Re: UIM Exit Programs in RPG/ILE

[Stuart Rowe <rowestu@xxxxxxxxx>]

Also I think I remember trying it once and got "incorrect pointer type" but
it would have been more than 10 years ago. Seems it needs a system pointer
to program.

On Tue, Nov 27, 2018, 07:07 Stuart Rowe <rowestu@xxxxxxxxx wrote:

> Be sure to declare your PI with a case sensitive name. The way it is coded
> it is probably upper case in the module export list.
>
> On Tue, Nov 27, 2018, 03:54 <dlclark@xxxxxxxxxxxxxxxx wrote:
>
> >         Can I point the UIM to an exit "program" based on a procedure
> > pointer address?  I'd like not to have to write a separate program for
> > the
> > exit program.  My reading of the UIM documentation states that it can
> > call
> > an exit program by address.  So, I defined the variable in the panel
> > group
> > as a pointer variable.  In my RPG/ILE program I would like to pass the
> > address to the UIM dialog as follows.  It seems this should work but I
> > can't get the program to compile.  It says it can't find the procedure
> > name at bind time.
> >
> >
> > header.ILExtPgm = %paddr('IncompleteListExit');
> > header.PanelId = iPnlGrp;
> > header.JobName = pJobId;
> >
> > callp IBMUIM_PutVariable( iHandle: header: %len(header)
> >                         : 'HEADER': ApiErrC );
> > if ApiErrC.BytAvail > *zero;           // if an error occurred
> >   callp CancelProgram();               // cancel the program
> > endif;
> >
> > ...snip...
> >
> > dcl-proc IncompleteListExit export;
> >   dcl-pi *n;
> >     pCallType             int(10);
> >     pAppHandle            char(8);
> >     pListName             char(10);
> >     pListDir              int(10);
> >     pEntReq               int(10);
> >   end-pi;
> >
> > ...snip...
> >
> >   return;
> > end-proc;
> >
> >
> > Sincerely,
> >
> > Dave Clark
> > --
> > int.ext: 91078
> > direct: (937) 531-6378
> > home: (937) 751-3300
> >
> > Winsupply Group Services
> > 3110 Kettering Boulevard
> > Dayton, Ohio  45439  USA
> > (937) 294-5331
> >
> >
> >
> >
> > *********************************************************************************************
> > This email message and any attachments is for use only by the named
> > addressee(s) and may contain confidential, privileged and/or proprietary
> > information. If you have received this message in error, please
> > immediately notify the sender and delete and destroy the message and all
> > copies. All unauthorized direct or indirect use or disclosure of this
> > message is strictly prohibited. No right to confidentiality or privilege
> > is waived or lost by any error in transmission.
> >
> > *********************************************************************************************
> > --
> > This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> > mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/rpg400-l.
> >
> > Please contact support@xxxxxxxxxxxx for any subscription related
> > questions.
> >
> > Help support midrange.com by shopping at amazon.com with our affiliate
> > link: https://amazon.midrange.com