Re: Missing parameter

[rajeev chandel <rajeevsinghchandel@xxxxxxxxx>]

%PARMS will work only in main procedure.

Thanks
Rajeev

On 12/16/09, Hillier, Martin <Martin.Hillier@xxxxxxxxxx> wrote:
> Hi David.
>
> Have you tried using %PARMS on the external procedure?
> Heres a quick example...
> P prExtProc       B                   EXPORT
> D                 PI              N
>  * Optional Display only
> D  vbOptional                     N   OPTIONS(*NOPASS) VALUE
>
>  * Default Display only Parameter
> D pbDisplayOnly   S               N
>
>  /FREE
>     // If parameter passed, use it
>     pbDisplayOnly = %PARMS > *ZEROS AND vbOptional;
>     // Rest of stuff...
>     RETURN pbDisplayOnly;
>  /END-FREE
> P prExtProc       E
>
> Martin
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of David FOXWELL
> Sent: 16 December 2009 10:33
> To: RPG programming on the IBM i / System i
> Subject: Missing parameter
>
> Hello all,
>
> An existing external procedure does a load of calculations and then displays
> a subfile for a client.
>
> I now need to be able to display it differently, ie in a visualization mode
> instead of modification mode so that function keys cannot be used and fields
> can be protected.
>
> Normally, we would just add a parameter for the display mode and modify all
> callers, etc,etc.
>
> What is an efficient way to modify this procédure? I am tempted to put a
> global field <mode> and add a procedure to set this mode from my caller
> before calling the subfile procedure. This way I will not touch the callers.
>
> Any advice?
>
> Thanks
> --
> This is the RPG programming on the IBM i / System i (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.
>
> --------------------------------------------------------
>
> This message (including any attachments) is only for the use of the
> person(s) for whom it is intended. It may contain Mattel confidential and/or
> trade secret information. If you are not the intended recipient, you should
> not copy, distribute or use this information for any purpose, and you should
> delete this message and inform the sender immediately.
>
> Mattel UK Limited is incorporated in England and Wales with its registered
> office at Mattel House, Vanwall Business Park, Vanwall Road, Maidenhead,
> Berkshire SL6 4UB. Company Registration Number 1471442.
> --
> This is the RPG programming on the IBM i / System i (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.