|
Rob, I didn't get around to answering this yesterday. I can't make chocolate of it (as we Dutch like to say when we don't understand what's going on), so my next suggestion is STRDBG, put a breakpoint on 769, inspect REMOTE and VerifyXfer, step into XferError. Joep Beckeringh ----- Original Message ----- From: "Rob Berendt" <rob@dekko.com> To: <RPG400-L@midrange.com> Sent: Tuesday, February 15, 2000 6:03 PM Subject: Re: MCH3601-Pointer not set for location referenced. > Joep, > > The dump of PCGETSTS does show a problem with line 769 > which seems to indicate VerifyXfer as you state. However > the dump of PCGET2 indicates the error occurred at 952 of > PCGETSTS, which would indicate REMOTE. > > Here is the definition of VerifyXfer. > 50 D VerifyXfer PR like(spoolrcd) > > As you can see, VerifyXfer has the same definition as XferError. > > Also, the dump seems to indicate that XferError was called > successfully. I am determining this by: > Local variables for subprocedure : XFERERROR > NAME ATTRIBUTES VALUE > _QRNL_PSTR_XFERMESSAGE... > POINTER SPP:E460A3A465002120 > MESSAGE CHAR(132) ' ' > 81 ' ' > VALUE IN HEX '404040404040404040404040404040404040404040404040404040404040404040404040404 04040'X > 41 '404040404040404040404040404040404040404040404040404040404040404040404040404 04040'X > 81 '404040404040404040404040404040404040404040404040404040404040404040404040404 04040'X > 121 '404040404040404040404040'X > XFERMESSAGE CHAR(132) 'CWBLM0006 - The AS/400 license system PVC400 is not available ' > 81 ' ' > VALUE IN HEX 'C3E6C2D3D4F0F0F0F6406040E3888540C1E261F4F0F0409389838595A28540A2A8A2A385944 0D7E5'X > 41 'C3F4F0F04089A2409596A34081A581899381829385404040404040404040404040404040404 04040'X > 81 '404040404040404040404040404040404040404040404040404040404040404040404040404 04040'X > 121 '404040404040404040404040'X > > Good suggestion though. Do you have any others? > > > > > joep@beckeringh.myweb.nl on 02/14/2000 07:08:42 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, > > 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 > +--- > > > +--- > | 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
