diff --git a/Copy_Mbrs/SRV_MSG_P.RPGLE b/Copy_Mbrs/SRV_MSG_P.RPGLE index f8bb213..8360177 100644 --- a/Copy_Mbrs/SRV_MSG_P.RPGLE +++ b/Copy_Mbrs/SRV_MSG_P.RPGLE @@ -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 diff --git a/Copy_Mbrs/USADRVALDS.RPGLE b/Copy_Mbrs/USADRVALDS.RPGLE new file mode 100644 index 0000000..f2cb7ef --- /dev/null +++ b/Copy_Mbrs/USADRVALDS.RPGLE @@ -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 ===== diff --git a/Copy_Mbrs/USADRVAL_P.RPGLE b/Copy_Mbrs/USADRVAL_P.RPGLE new file mode 100644 index 0000000..2fb169f --- /dev/null +++ b/Copy_Mbrs/USADRVAL_P.RPGLE @@ -0,0 +1,5 @@ +**Free +dcl-pr USAdrVal likeds(USAdrValDs) extproc('USADRVAL'); + inAddr likeds(USAdrValDS); +end-pr; +//=== End of USAdrVal Prototype ===================================== diff --git a/Service_Pgms/SRV_MSG.RPGLE b/Service_Pgms/SRV_MSG.RPGLE index 6276df1..199b5f7 100644 --- a/Service_Pgms/SRV_MSG.RPGLE +++ b/Service_Pgms/SRV_MSG.RPGLE @@ -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