For the MVS Cobol Compile which I seem to recall is the MVT one :


My Cobool xref Cobxref program has :

041800???? MOVE???? CURRENT-DATE TO HDDATE.
041900???? IF?????? HDDATE NOT = '000000'
042000????????????? MOVE HD-Y TO HD2-Y
042100????????????? MOVE HD-M TO HD2-M
042200????????????? MOVE HD-D TO HD2-D
042300????????????? MOVE HDDATEB TO H1DATE.
042400???? MOVE???? TIME-OF-DAY TO HDTIME.

and in WS? :

037200 01? HDTIME.
037300???? 03? HD-HH?????????????? PIC 99.
037400???? 03? HD-MM?????????????? PIC 99.
037500???? 03? HD-SS?????????????? PIC 99.
037600 01? HDTIMEB.
037700???? 03? HD2-HH????????????? PIC 99.
037800???? 03? FILLER????????????? PIC X?? VALUE ':'.
037900???? 03? HD2-MM????????????? PIC 99.
038000???? 03? FILLER????????????? PIC X?? VALUE ':'.
038100???? 03? HD2-SS????????????? PIC 99.
038200 01? HDDATE.
038300???? 03? HD-M??????????????? PIC 99.
038400???? 03? FILLER????????????? PIC X.
038500???? 03? HD-D??????????????? PIC 99.
038600???? 03? FILLER????????????? PIC X.
038700???? 03? HD-Y??????????????? PIC 99.


Vince


On 03/04/2024 16:42, Alejandro olivan Alvarez wrote: