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

Changes due to USADRVAL

Browse Source
This commit is contained in:
SJLennon
2022-01-24 16:22:51 -05:00
parent c875b751e3
commit 0caad3875e
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
5250_Subfile/CRTMSGF → 5250_Subfile/CRTMSGF.CLLE
+3
View File
@@ -35,6 +35,9 @@
ADDMSGD MSGID(DEM1002) MSGF(CUSTMSGF) MSG('Someone else + ADDMSGD MSGID(DEM1002) MSGF(CUSTMSGF) MSG('Someone else +
changed record. Rewiew data.') changed record. Rewiew data.')
ADDMSGD MSGID(DEM9898) MSGF(CUSTMSGF) MSG('USPS: +
&1') FMT((*CHAR 500))
ADDMSGD MSGID(DEM9999) MSGF(CUSTMSGF) MSG('Program Error! + ADDMSGD MSGID(DEM9999) MSGF(CUSTMSGF) MSG('Program Error! +
Please contact IT now.') Please contact IT now.')
ENDPGM ENDPGM
5250_Subfile/PMTCUSTR.SQLRPGLE
+1 -1
View File
@@ -944,7 +944,7 @@
d retField S N d retField S N
d wkMsgId s 7a d wkMsgId s 7a
d wkMsgFile s 10a d wkMsgFile s 10a
d wkMsgData s 80a varying d wkMsgData s 512a varying
/FREE /FREE
if %parms >2; if %parms >2;