Changes due to USADRVAL

2022-01-24 16:22:51 -05:00
parent c875b751e3
commit 0caad3875e
2 changed files with 4 additions and 1 deletions
@@ -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
@@ -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;