Is there a way for CA Easytrieve to automatically provideĀ a leading zero in the SYSTIME field if desired?
CA Easytrieve does not currently provide the functionality to add a leading zero in the SYSTIME field.
The following code will insert the leading zero for the SYSTIME field:
WS-TIME W 8 A FIRST-PART WS-TIME 1 A * JOB INPUT NULL WS-TIME = SYSTIME IF FIRST-PART = ' ' FIRST-PART = '0' END-IF DISPLAY 'EDITED SYSTIME = ' WS-TIME STOP /*