Is there a way for CA Easytrieve to automatically provide a leading zero in the SYSTIME field if desired?
search cancel

Is there a way for CA Easytrieve to automatically provide a leading zero in the SYSTIME field if desired?

book

Article ID: 12216

calendar_today

Updated On:

Products

PanAudit Plus Easytrieve Report Generator PAN/SQL

Issue/Introduction



Is there a way for CA Easytrieve to automatically provideĀ a leading zero in the SYSTIME field if desired?

Environment

CA Easytrieve Report Generator, release 11.6

Resolution

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                                                                     
/*