From 0caad3875ef9fdc3dfb674aba15a2194a9bda33e Mon Sep 17 00:00:00 2001
From: SJLennon <67484051+SJLennon@users.noreply.github.com>
Date: Mon, 24 Jan 2022 16:22:51 -0500
Subject: [PATCH] Changes due to USADRVAL

---
 5250_Subfile/{CRTMSGF => CRTMSGF.CLLE} | 3 +++
 5250_Subfile/PMTCUSTR.SQLRPGLE         | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)
 rename 5250_Subfile/{CRTMSGF => CRTMSGF.CLLE} (95%)

diff --git a/5250_Subfile/CRTMSGF b/5250_Subfile/CRTMSGF.CLLE
similarity index 95%
rename from 5250_Subfile/CRTMSGF
rename to 5250_Subfile/CRTMSGF.CLLE
index c0f7340..cd983a6 100644
--- a/5250_Subfile/CRTMSGF
+++ b/5250_Subfile/CRTMSGF.CLLE
@@ -35,6 +35,9 @@
              ADDMSGD    MSGID(DEM1002) MSGF(CUSTMSGF) MSG('Someone else +
                           changed record.  Rewiew data.')
 
+             ADDMSGD    MSGID(DEM9898) MSGF(CUSTMSGF) MSG('USPS: +
+                          &1') FMT((*CHAR 500))
+
              ADDMSGD    MSGID(DEM9999) MSGF(CUSTMSGF) MSG('Program Error! +
                           Please contact IT now.')
              ENDPGM
diff --git a/5250_Subfile/PMTCUSTR.SQLRPGLE b/5250_Subfile/PMTCUSTR.SQLRPGLE
index 8bbdd2e..c99a644 100644
--- a/5250_Subfile/PMTCUSTR.SQLRPGLE
+++ b/5250_Subfile/PMTCUSTR.SQLRPGLE
@@ -944,7 +944,7 @@
      d retField        S               N
      d wkMsgId         s              7a
      d wkMsgFile       s             10a
-     d wkMsgData       s             80a   varying
+     d wkMsgData       s            512a   varying
 
       /FREE
        if %parms >2;