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

Interesting problem.

Have you tried to define REMOTE in a D-Spec?

Not only that it's prettier, it might tell the compiler better to declare it
global. As i understand it, the C statements before the first P-spec are a
procedure, too, with it's own local variables. This isn't necessarily true,
but i think that something like that is here messed up.

To make it even prettier, avoid global variables where not necessary. Give
your XferError the REMOTE as a parameter and you get more readable and
reusable code.

0.02 Euro

Anton Gombk�t�


----- Original Message -----
From: "Rob Berendt" <rob@dekko.com>
To: <RPG400-L@midrange.com>
Sent: Tuesday, February 15, 2000 5:51 PM
Subject: RE: MCH3601-Pointer not set for location referenced.


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

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