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

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

当然，这会起作用。您将如何衡量绩效？