Re: UIM Exit Programs in RPG/ILE

[Stuart Rowe <rowestu@xxxxxxxxx>]

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