|
Rob, It would appear that VerifyXfer is the culprit. Your code does not show how it is defined and how it should be filled. Did the dump show anything about it? Joep Beckeringh ----- Original Message ----- From: "Rob Berendt" <rob@dekko.com> To: <RPG400-L@midrange.com> Sent: Monday, February 14, 2000 11:10 PM Subject: MCH3601-Pointer not set for location referenced. > I had a program someone else modified. Now they are getting > an error. Forego the comments to kill the person or have them > deal with it, please. > > Anyways it is getting an MCH3601. I took a D to it, and to the > program which called it. > > Bombing program = PCGETSTS > ... from compile listing > 51 D XferError PR > 52 D XferErrDesc like(spoolrcd) CONST > ... > 763 C *ENTRY PLIST > 764 C PARM REMOTE 10 > ... > 765 * > 766 C eval SetupStatus=Setup > 767 C If SetupStatus=true > 768 C callp CopyError(VerifyCopy) > 769 C callp XferError(VerifyXfer) > ... > 946 P XferError B > 947 D XferError PI > 948 D XferMessage like(spoolrcd) CONST > 949 D Message S like(fpcgetsts) > 950 > 951 C if XferMessage<>'Send completed successfully.' > 952 C eval message='File was not successfully ' + > 953 C 'sent from mixer ' + > 954 C %trimr(REMOTE) + > 955 C ' to 400. ' > 956 C callp sendmessage(message) > 957 C EndIf > ... > PROGRAM DUMP LISTING > ILE RPG/400 FORMATTED DUMP > Program Status Area: > Procedure Name . . . . . . . . . . . . : PCGETSTS > Program Name . . . . . . . . . . . . . : PCGETSTS > Library . . . . . . . . . . . . . . : PVCBPCS > Module Name. . . . . . . . . . . . . . : PCGETSTS > Program Status . . . . . . . . . . . . : 00202 > The call to ended in error (C G D F). > Previous Status . . . . . . . . . . . : 00000 > Statement in Error . . . . . . . . . . : 00000769 > RPG Routine . . . . . . . . . . . . . : XFERERRO > Number of Parameters . . . . . . . . . : 000 > Message Type . . . . . . . . . . . . . : MCH > Additional Message Info . . . . . . . : 3601 > Message Data . . . . . . . . . . . . . : > Pointer not set for location referenced. > ... > NAME ATTRIBUTES VALUE > _QRNL_PRMCPY_REMOTE POINTER SPP:*NULL > _QRNL_PSTR_REMOTE POINTER SPP:E460A3A465002120 > ... > REMOTE CHAR(10) NOT ADDRESSABLE > > > CALLING PROGRAM PCGET2 > ... > PGM ( + > &REMOTE /* Name of remote PC. */ + > ) > ... > DCL &REMOTE *CHAR 10 /* Remote system name */ > ... > /* PM001*/ CALL PGM(PCGETSTS) PARM(&REMOTE) > > END: > > ENDPGM > > DUMP OF CALLING PROGRAM PCGET2 > ... > 150049 CEE9901 30 ESC Application error. MCH QLEAWI 0000 PCGET2 01A8 > 3601 unmonitored by PCG > ETSTS at statement 0000 > 000952, instruction X'0 > 000'. > ... > &REMOTE *CHAR 10 'PVC2 ' D7E5C3F2404040404040 > ... > +--- > | This is the RPG/400 Mailing List! > | To submit a new message, send your mail to RPG400-L@midrange.com. > | To subscribe to this list send email to RPG400-L-SUB@midrange.com. > | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: david@midrange.com > +--- > +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
