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;