|
> 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 >
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
