× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: MCH3601-Pointer not set for location referenced.
  • From: Rob Berendt <rob@xxxxxxxxx>
  • Date: Tue, 15 Feb 2000 12:03:42 -0500

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 thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.