Hi all, > Below is the program BHVBITY. This program is generating an error > PGM > 0022.00 DCL VAR(&FILEPTR) TYPE(*CHAR) LEN(30) > 0023.00 > 0024.00 CALL PGM(QMRSWTR) PARM(&FILEPTR) > 0025.00 MONMSG MSGID(CNV0001) EXEC(GOTO END) > 0026.00 MONMSG MSGID(CPF9841) > 0027.00 MONMSG MSGID(CPF1005) > 0028.00 > 0029.00 SBMJOB CMD(CALL PGM(SLITPR/CLTRC004) + > 0030.00 PARM(&FILEPTR)) + > 0031.00 JOB(CLTRC004) + > 0032.00 JOBD(SLWMP/BHVDIS01) + > 0033.00 JOBQ(SLWMP/ROTRJEJOBQ) + > 0034.00 OUTQ(*JOBD) + > 0035.00 USER(QSYSOPR) + > 0036.00 SYSLIBL(*SYSVAL) + > 0037.00 CURLIB(SLITPR) + > 0038.00 INLLIBL(*JOBD) > 0039.00 END: > 0040.00 ENDPGM > > I have added QRJE in my Library List. When we call program QMRSWTR I am > getting the below error. > > Pointer not set for location referenced. > Function check. MCH3601 unmonitored by QMRSWTR at statement *N, > instruction X'0004'. > Pointer not set for location referenced. > Function check. MCH3601 unmonitored by QMRSWTR at statement *N, > instruction X'04A1'. > CPF9999 received by BHVBITY at 2400. (C D I R) > CPF9999 received by BHVBITY at 2400. (C D I R) > > > Please let me know the reason for this error as well as the solution. We > are presently using V4R3M0 for our AS/400. > > Thanks in Advance > Vamsi > > > +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: email@example.com +---
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.