12 lines
638 B
Plaintext
12 lines
638 B
Plaintext
/* ================================================================ */
|
|
/* Helper program for DATEADJR to return: */
|
|
/* 1) The job date format */
|
|
/* 2) The value of QSYSVAL(DATFMT) */
|
|
/* ================================================================ */
|
|
PGM PARM(&JOBFMT &SYSVALFMT)
|
|
DCL VAR(&JOBFMT) TYPE(*CHAR) LEN(4)
|
|
DCL VAR(&SYSVALFMT) TYPE(*CHAR) LEN(3)
|
|
RTVJOBA DATFMT(&JOBFMT)
|
|
RTVSYSVAL SYSVAL(QDATFMT) RTNVAR(&SYSVALFMT)
|
|
ENDPGM
|