21 lines
873 B
Plaintext
21 lines
873 B
Plaintext
PGM
|
|
/* Calculate last month beginning and ending dates */
|
|
DCL VAR(&THISDAY) TYPE(*CHAR) LEN(2)
|
|
DCL VAR(&ADJ) TYPE(*CHAR) LEN(3)
|
|
DCL VAR(&WKDATE) TYPE(*CHAR) LEN(10)
|
|
DCL VAR(&EOML) TYPE(*CHAR) LEN(10)
|
|
DCL VAR(&BOML) TYPE(*CHAR) LEN(10)
|
|
/* Adjustment is minus day value of today in system date*/
|
|
RTVSYSVAL SYSVAL(QDAY) RTNVAR(&THISDAY)
|
|
CHGVAR VAR(&ADJ) VALUE('-' *TCAT &THISDAY)
|
|
/* Last day of last month */
|
|
DATEADJ INDATE(*SYSTEM) OUTDATE(&EOML) ADJAMT(&ADJ)
|
|
/* 1st day of this month */
|
|
DATEADJ INDATE(&EOML) OUTDATE(&WKDATE) ADJAMT(1)
|
|
/* 1st day of last month */
|
|
DATEADJ INDATE(&WKDATE) OUTDATE(&BOML) ADJAMT(-1) +
|
|
ADJTYPE(*MONTHS) INFMT('*SYSTEM')
|
|
SNDMSG MSG('Last month is' *BCAT &BOML *BCAT +
|
|
'through' *BCAT &EOML) TOUSR(*REQUESTER)
|
|
ENDPGM
|