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



You need the *CL on the EXTPROC keyword:
EXTPROC(*CL) Specifies an external procedure that is written in ILE CL, or
an RPG procedure to be called by ILE CL. Use *CL if your program uses return
values with data types that CL handles differently from RPG. For example,
use *CL when prototyping an RPG procedure that is to be called by a CL
procedure when the return value is 1A.

>   * Retrieve Authority Y/N fron Usrid/Application   
>  D AUTOF           PR             1A   ExtProc(*CL : 'AUTOF')

>  D InUsrId                       10A                
>  D InApp                          2A    

-Bob Cozzi
 
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Burke, Joel
Sent: Tuesday, January 25, 2005 10:31 AM
To: 'RPG400-L@xxxxxxxxxxxx'
Subject: Using procedure in CL Getting this error...Pointer not set for
location referenced. 


>  I am once again missing the boat...  This procedure works in rpg, but not
> cl...
> The procedure AUTOF is contained in my service program, binding
> directory...  
> I think it's the way something is defined in the prototype?  Any ideas?
> 
>  /*********************************************************************/ 
>  /* To create this program use create clmod,                  */         
>  /* then crtpgm w/binding directory marywood/dirid            */         
>  /*********************************************************************/ 
>              DCL        VAR(&APPL) TYPE(*CHAR) LEN(2) /* Application +
>                           Code */                                     
>              DCL        VAR(&AUTH) TYPE(*CHAR) LEN(1) /* Authority +  
>                           Y/N */                                      
>              DCL        VAR(&USER) TYPE(*CHAR) LEN(10) /* User ID */  
> 
>              CALLPRC    PRC(AUTOF) PARM(&USER &APPL) RTNVAL(&AUTH)
> 
> 
> Prototype
> 
>   * Retrieve Authority Y/N fron Usrid/Application   
>  D AUTOF           PR             1A                
>  D InUsrId                       10A                
>  D InApp                          2A     
> 
> 
> H Nomain
>      F* (C) COPYRIGHT MARYWOOD UNIVERSITY 1986
>      F*
>      F* TITLE           - Procedure -AUTOF -Check Authority of User for
> Application code
>      F* PROGRAMMER      - Wendy Brenzel
>      F* DATE WRITTEN    - January 20, 2005
>      F* MODIFICATIONS   -
>      F
>      FMISPSAUT  IF   E           K DISK    usropn
>      FMISLSAUA  IF   E           K DISK    usropn RENAME(wbrcd:xbrcd)
>      D*
>       /Copy mwdgpl/qrpglesrc,protoid
>      D* Status Data Structure
>      D STATUS         SDS           333
>  
> P**********************************************************************
>      P* Procedure -AUTOF
>  
> P**********************************************************************
>      P AUTOF           B                   Export
>      D* Procedure Interface...
>      D                 PI             1A
>      D InUsrId                       10A
>      D InApp                          2A
>      D* Local variables
>      D GotIt           S              1A
>      C* Key
>      C     keya          klist
>      C                   kfld                    InUsrId
>      C                   kfld                    InApp
>      C* Housekeeping  -Default to No
>      C                   Move      'N'           GotIt
>      C                   Open      mispsaut
>      C                   Open      mislsaua
>      C* First check for all authority...  Logical selecting '**' recs...
>      C     InUsrId       SETLL     xbrcd
> 88
>      C     *in88         ifeq      '1'
>      C                   move      'Y'           GotIt
>      C                   else
>      C* Now Check with App Code...
>      C     Keya          SETLL     wbrcd
> 88
>      C     *in88         ifeq      '1'
>      C                   move      'Y'           GotIt
>      C                   end
>      C                   end
>      C                   close     mispsaut
>      C                   close     mislsaua
>      C*
>      C                   Return    GotIt
>      P AUTOF           E
> 
> 
> 
> 
> 40   01/25/05  11:09:02.744096  SERVID       MARYWOOD    *STMT    SERVID
> 
>    From module . . . . . . . . :   AUTOF
> 
>    From procedure  . . . . . . :   AUTOF
> 
>    Statement . . . . . . . . . :   82
> 
>    To module . . . . . . . . . :   AUTOF
> 
>    To procedure  . . . . . . . :   AUTOF
> 
>    Statement . . . . . . . . . :   82
> 
>    Message . . . . :   Pointer not set for location referenced.
> 
>    Cause . . . . . :   A pointer was used, either directly or as a basing
> 
>      pointer, that has not been set to an address.
> 
>  99   01/25/05  11:09:02.811232  QCLXERR      QSYS        00C6     *EXT
> 
>    Message . . . . :   MCH3601 received by procedure CLA03505. (C D I R)
> 
>    Cause . . . . . :   ILE Control language (CL) procedure CLA03505 in
> module  
>      CLA03505 in program CLA03505 in library SSN detected an error at
> statement
>      number 0000002506.  Message text for MCH3601 is: Pointer not set for
> 
>      location referenced.  Use F10 (if available) or the Display Job Log
> 
> 
> Wendy Brenzel
> Senior Programmer/Analyst
> MIS Department
> Marywood University
> Scranton, PA  18509
> Phone: (570) 348-6221 ext. 2568
> Email: brenzel@xxxxxxxxxxxx
> 
-- 
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.





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.