Update QSHIFSSIZC.CLLE

Fixed message file reference.
richardschoen · Jul 23, 2024 · 50331f0 · 50331f0
1 parent 82853cb
commit 50331f0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/QSHIFSSIZC.CLLE b/QSHIFSSIZC.CLLE
@@ -67,12 +67,12 @@ ERRORS:
              CHGVAR     VAR(&ALLOCDEC) VALUE(-2)
 
              IF         COND(&ESCONERROR *EQ *YES) THEN(DO)
-             SNDPGMMSG  MSGID(CPF9898) MSGF(AQCPFMSG) MSGDTA('Error +
+             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Error +
                           checking IFS file size for' |> &IFSFILE) +
                           TOPGMQ(*PRV) MSGTYPE(*ESCAPE)
              ENDDO
              IF         COND(&ESCONERROR *NE *YES) THEN(DO)
-             SNDPGMMSG  MSGID(CPF9898) MSGF(AQCPFMSG) MSGDTA('Error +
+             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Error +
                           checking IFS file size for' |> &IFSFILE) +
                           TOPGMQ(*PRV) MSGTYPE(*DIAG)
              ENDDO