8 lines
337 B
Text
8 lines
337 B
Text
/* The PL/I date functions handle dates and time in 49 */
|
|
/* different formats, but not that particular one. For any of the */
|
|
/* standard formats, the following date manipulation will add */
|
|
/* 12 hours to the current date/time. */
|
|
|
|
seconds = SECS(DATETIME());
|
|
seconds = seconds + 12*60*60;
|
|
put list (SECSTODATE(seconds));
|