Author: Robert Sample
Posted: Sat Mar 18, 2017 6:46 pm (GMT 5.5)
is how I would do it (although I would add RESP and a response variable). time-variable is an 8-byte packed decimal and data-area is PIC X(64).
_________________
TANSTAAFL
The first rule of code reuse is that the code needs to be worth re-using.
"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth
Posted: Sat Mar 18, 2017 6:46 pm (GMT 5.5)
| Code: |
| EXEC CICS ASKTIME ABSTIME(time-variable) END-EXEC EXEC CICS FORMATTIME ABSTIME(time-variable) DATESTRING (data-area) STRINGFORMAT (RFC3339) END-EXEC |
_________________
TANSTAAFL
The first rule of code reuse is that the code needs to be worth re-using.
"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth
