FW: QMRSWTR

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: david@midrange.com
+---