Re: "MCH3601-Pointer not set for location referenced" on return statement

Change your prototype to have EXTPROC(*CL) or change &RUN to LEN(2)...

To: <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, January 19, 2007 12:28 PM

I have a CRTPGM composed of a CLLE module and a RPGLE module.  CLLE's
first.  CALLPRC the RPGLE module.  When the RPGLE module tries to return a
variable I am getting MCH3601 message.

MCH3601-Pointer not set for location referenced.

From program . . . . . . . . . :   YADDA

 From library . . . . . . . . :     TROYM
 From module  . . . . . . . . :     DCADPTRP
 From procedure . . . . . . . :     DCADPTRP
 From statement . . . . . . . :     110

To program . . . . . . . . . . :   YADDA
 To library . . . . . . . . . :     TROYM
 To module  . . . . . . . . . :     DCADPTRP
 To procedure . . . . . . . . :     DCADPTRP
 To statement . . . . . . . . :     110



CL **** module ****
            PGM

            DCL        VAR(&RUN) TYPE(*CHAR) LEN(1)

/* Prompt:                                         */

            CALLPRC    PRC(DCADPTRP) RTNVAL(&RUN)

rpgle **** module ****
    D DCADPTRP        PR             1a

    P DCADPTRP        B                             export
    D DCADPTRP        PI                  like(runp)      *entry plist

    D runP            s              1a
...
      RUNp        = *IN08;
      RETURN runp;  // in compile listing, this is stmt 110.

CRTPGM PGM(TROYM/YADDA) MODULE(TROYM/DCADPTC TROYM/DCADPTRP)
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.