|
Buck, It goes directly from PCGET2 to PCGETSTS. The CL program PCGET2 DCL's it at 10 char. The PARM statement in PCGETSTS defines it as 10A. buck.calabro@aptissoftware.com on 02/14/2000 06:35:47 PM Please respond to RPG400-L@midrange.com@Internet To: RPG400-L@midrange.com@Internet cc: Fax to: Subject: RE: MCH3601-Pointer not set for location referenced. Rob, I was going to say that this looks like a parameter mis-match, but I am afraid that I'm jumping the gun. Are there any other programs in the stack that use REMOTE (and might be mis-matched?) My experience is that almost all 3601's are a parm foobar. Buck Calabro > -----Original Message----- > From: Rob Berendt > Sent: Monday, February 14, 2000 5:10 PM > To: RPG400-L@midrange.com > 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 +---
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
