ecki/IBM-i-RPG-Free-CLP-Code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial Download

Browse Source
This commit is contained in:
SJLennon
2022-04-04 20:05:59 -04:00
parent 606bc8adca
commit c8b89110fc
8 changed files with 1126 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
DATEADJ/T3C.CLLE
+20
View File
@@ -0,0 +1,20 @@
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