|
midrange.com
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
'40404040404040404040404040404040404040404040404040404040404040404040404040404040'X
41
'40404040404040404040404040404040404040404040404040404040404040404040404040404040'X
81
'40404040404040404040404040404040404040404040404040404040404040404040404040404040'X
121 '404040404040404040404040'X
XFERMESSAGE CHAR(132) 'CWBLM0006 - The AS/400 license
system PVC400 is not available '
81 '
'
VALUE IN HEX
'C3E6C2D3D4F0F0F0F6406040E3888540C1E261F4F0F0409389838595A28540A2A8A2A3859440D7E5'X
41
'C3F4F0F04089A2409596A34081A58189938182938540404040404040404040404040404040404040'X
81
'40404040404040404040404040404040404040404040404040404040404040404040404040404040'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
+---
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.
