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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Copy_Mbrs/SRV_MSG_P.RPGLE
View File

@ -5,7 +5,7 @@
D pMsgQ 10
D pMsgid 7
D pMsgFile 10
D pMsgDta 80 options(*NOPASS)
D pMsgDta 512 options(*NOPASS)
D Varying
//============================================================
D ClrMsgPgmQ pr N Clear PGM Msg Q

14
Copy_Mbrs/USADRVALDS.RPGLE Normal file
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 =====

5
Copy_Mbrs/USADRVAL_P.RPGLE Normal file
View File

@ -0,0 +1,5 @@
**Free
dcl-pr USAdrVal likeds(USAdrValDs) extproc('USADRVAL');
inAddr likeds(USAdrValDS);
end-pr;
//=== End of USAdrVal Prototype =====================================

2
Service_Pgms/SRV_MSG.RPGLE
View File

@ -67,7 +67,7 @@
d pMsgQ 10
d pMsgid 7
d pMsgFile 10
d pMsgDta 80 options(*NOPASS)
d pMsgDta 512 options(*NOPASS)
d Varying
//=== Calling Parameters =======================================
// Parm I/O/B Description