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/T1C.CLLE
+22
View File
@@ -0,0 +1,22 @@
/* Use DATEADJR command with specified parameters */
/* Called by T1R for extensive testing. */
PGM PARM(&INDATE &ADJ &TYPE &INFMT &OUTFMT &OUTDATE +
&OUTESC)
DCL VAR(&INDATE) TYPE(*CHAR) LEN(10)
DCL VAR(&ADJ) TYPE(*DEC) LEN(5 0)
DCL VAR(&TYPE) TYPE(*CHAR) LEN(7)
DCL VAR(&INFMT) TYPE(*CHAR) LEN(10)
DCL VAR(&OUTFMT) TYPE(*CHAR) LEN(10)
DCL VAR(&OUTDATE) TYPE(*CHAR) LEN(10)
DCL VAR(&OUTESC) TYPE(*CHAR) LEN(100) VALUE(' ')
CHGVAR VAR(&OUTESC) VALUE(' ')
DATEADJ INDATE(&INDATE) OUTDATE(&OUTDATE) +
ADJAMT(&ADJ) ADJTYPE(&TYPE) +
INFMT(&INFMT) OUTFMT(&OUTFMT)
MONMSG MSGID(CPF9898 CPF0001) EXEC(DO)
CHGVAR VAR(&OUTDATE) VALUE('*Failed*')
RCVMSG MSGTYPE(*EXCP) RMV(*YES) MSG(&OUTESC)
ENDDO
ENDPGM