Question

我想在CL中调用一个程序100次来测量不同程序设置的通话时间。

也许是这样的？

DOFOR      VAR(&INT) FROM(0) TO(99)
CALL       PGM(TProg) PARM(&Parm)
ENDDO

Answer 1

当我进行这种测试时，我将迭代次数作为参数传递。

您应该有足够的迭代次数，以便最快设置的呼叫至少需要半分钟，以帮助取消额外的工作，如获取时间戳。将迭代次数作为参数可以更容易地做到这一点。

要在CL中获取时间戳，您可以使用RTVSYSVAL QDATETIME。

dcl &before type(*char) len(20)      
dcl &after type(*char) len(20)       

rtvsysval QDATETIME rtnvar(&before)  
--- do the loop
rtvsysval QDATETIME rtnvar(&after)   
sndpgmmsg &before
sndpgmmsg &after

时间戳不是很易读（20180203143253529956，这意味着2018-02-03-14.32.53.529956）。您可能希望进行一些子字符串处理以使其更具可读性，甚至可以进行一些计算以获得两个时间戳之间的秒数。

更新以回答有关如何子字符串的问题：

我，我只想编写一个RPG程序来获取两个时间戳之间的区别。

**free
dcl-pi *n;
   t1 char(20) const;
   t2 char(20) const;
   diffSeconds packed(7:2);
end-pi;
dcl-s ts1 timestamp;
dcl-s ts2 timestamp;
ts1 = %timestamp(t1 : *iso0);
ts2 = %timestamp(t2 : *iso0);
diffSeconds = %diff (ts1 : ts2 : *seconds : 2);
return;

如果你不想使用RPG，或者你不能，那么这里是你如何在CL中使用子串和连接来产生更可读的时间戳。

dcl &prtBefore type(*char) len(26)                      

chgvar &prtBefore (%sst(&before  1 4) *tcat '-' *tcat + 
                   %sst(&before  5 2) *tcat '-' *tcat + 
                   %sst(&before  7 2) *tcat '-' *tcat + 
                   %sst(&before  9 2) *tcat '.' *tcat + 
                   %sst(&before 11 2) *tcat '.' *tcat + 
                   %sst(&before 13 2) *tcat '.' *tcat + 
                   %sst(&before 15 6))                  
sndpgmmsg &prtBefore

Answer 2

当然，那会有效。你打算如何衡量绩效？

如何在CL中调用程序100次？

2 个答案: