Re: MCH3601-Pointer not set for location referenced. -- RPG400-L

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
+---