Rex, at this link you'll find an interesting thread: https://groups.google.com/g/bit.listserv.ibm-main/c/B04G-HasOd4 As somebody (who is at least 30K light years beyond me) probably the right way is to use TIMEUSED macro. It depends on how much you need to rely the info.
I recently wrote an assembler interface to do the needed using the new instructions (without too many checks to be honest). It seems the new way (ECT=YES) invocation costs very less than before. Best regards. Max Il giorno mar 11 lug 2023 alle ore 23:44 Joe Monk <joemon...@gmail.com> ha scritto: > You can always map the TCB and reference field TCBTTIME to get the > accumulated CPU time for the task - I think its offset 316 decimal. > > Joe > > On Tue, Jul 11, 2023 at 4:22 PM Pommier, Rex <rpomm...@sfgmembers.com> > wrote: > > > Hey all, > > > > I just got this tossed at me by an application developer. Cobol 6.3. Is > > there some built-in function or something that they can put into a > program > > to report out the amount of CPU (TCB) time the program has consumed thus > > far in execution of the program? We have a program that processes > > accounts, and at the beginning of every account it prints the account > > number and wall clock timestamp. The developers would like to also > report > > out how much CPU the program has consumed at the same time as the wall > > clock. I don't know of any but if somebody has an idea off the top of > > their head, I'll listen. > > > > TIA, > > > > Rex > > > > ---------------------------------------------------------------------- > > The information contained in this message is confidential, protected from > > disclosure and may be legally privileged. If the reader of this message > is > > not the intended recipient or an employee or agent responsible for > > delivering this message to the intended recipient, you are hereby > notified > > that any disclosure, distribution, copying, or any action taken or action > > omitted in reliance on it, is strictly prohibited and may be unlawful. If > > you have received this communication in error, please notify us > immediately > > by replying to this message and destroy the material in its entirety, > > whether in electronic or hard copy format. Thank you. > > > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN