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

Prep for USADRVAL

Browse Source
This commit is contained in:
SJLennon
2022-01-24 16:16:09 -05:00
parent 2cae047ce8
commit c875b751e3
4 changed files with 21 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Copy_Mbrs/SRV_MSG_P.RPGLE
+1 -1
View File
@@ -5,7 +5,7 @@
D pMsgQ 10 D pMsgQ 10
D pMsgid 7 D pMsgid 7
D pMsgFile 10 D pMsgFile 10
D pMsgDta 80 options(*NOPASS) D pMsgDta 512 options(*NOPASS)
D Varying D Varying
//============================================================ //============================================================
D ClrMsgPgmQ pr N Clear PGM Msg Q D ClrMsgPgmQ pr N Clear PGM Msg Q
Copy_Mbrs/USADRVALDS.RPGLE
+14
View File
@@ -0,0 +1,14 @@
**free
//=== US Address Validation Data Structure Parm template =============
dcl-ds USAdrValDS template qualified;
Address1 char(30);
Address2 char(30);
City char(30);
State char(2);
Zip5 char(5);
Zip4 char(4);
Number int(10); // Error Number
Source varchar(30); // Error Source
Description varchar(512); // Error Description
end-ds;
// === End of US Address Validation Data Structure Parm template =====
Copy_Mbrs/USADRVAL_P.RPGLE
+5
View File
@@ -0,0 +1,5 @@
**Free
dcl-pr USAdrVal likeds(USAdrValDs) extproc('USADRVAL');
inAddr likeds(USAdrValDS);
end-pr;
//=== End of USAdrVal Prototype =====================================
Service_Pgms/SRV_MSG.RPGLE
+1 -1
View File
@@ -67,7 +67,7 @@
d pMsgQ 10 d pMsgQ 10
d pMsgid 7 d pMsgid 7
d pMsgFile 10 d pMsgFile 10
d pMsgDta 80 options(*NOPASS) d pMsgDta 512 options(*NOPASS)
d Varying d Varying
//=== Calling Parameters ======================================= //=== Calling Parameters =======================================
// Parm I/O/B Description // Parm I/O/B Description