Author: Robert Sample
Posted: Thu Jun 30, 2016 10:06 pm (GMT 5.5)
Why not do it the easy way?
EXEC CICS ASKTIME ABSTIME(<abstimevar>)
EXEC CICS FORMATTIME ABSTIME(<abstimevar>) DATESTRING(<varname>) and bytes 18 to 25 will have GMT in HH:MM:SS format
This is another example of someone posting how they want to do something rather than just posting the issue. If you had said you need to get GMT in CICS (instead of saying your issue is to convert date/time values to ABSTIME), you probably would have gotten this solution much quicker.
_________________
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: Thu Jun 30, 2016 10:06 pm (GMT 5.5)
Why not do it the easy way?
EXEC CICS ASKTIME ABSTIME(<abstimevar>)
EXEC CICS FORMATTIME ABSTIME(<abstimevar>) DATESTRING(<varname>) and bytes 18 to 25 will have GMT in HH:MM:SS format
This is another example of someone posting how they want to do something rather than just posting the issue. If you had said you need to get GMT in CICS (instead of saying your issue is to convert date/time values to ABSTIME), you probably would have gotten this solution much quicker.
_________________
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