Re: CL Optional Parameter Question

[Mike <koldark@xxxxxxxxx>]

I didn't know about that in RTVJOBA... I might have to switch my program to
use that.

The reason for this is so that the program can be manually run and ask for
the parameters, but also can be setup in the scheduler to run every day.

--
Mike Wills
Midrange Programmer/Analyst

Sick of corporate radio and hungry for something new?
http://thenextgenerationofradio.com

On Mon, Jun 16, 2008 at 2:57 PM, <rob@xxxxxxxxx> wrote:

> First I am going to ask, why?  My only reason is are you using the
> parameter to tell it to run in batch, or, that it IS running in batch?
> The "IS" part is often handled by
> RTVJOBA TYPE(&TYPE)
> if (&type='0') then(goto alreadybatch...) /* run in batch because it's
> currently interactive. */
> sbmjob ...
> goto endpgm
> AlreadyBatch:
> ...
> endpgm:  ENDPGM
>
> Or, are you trying to do
> if (&parm="*YES") THEN(DO)
>  if (&type='0') then(goto alreadybatch...) /* run in batch because it's
> currently interactive. */
>    sbmjob ...
>    goto endpgm
>  AlreadyBatch:
> EndDo
> ...
> endpgm:  ENDPGM
>
>
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
>
>
>
>
> Mike <koldark@xxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 06/16/2008 03:45 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>
>
> To
> "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> cc
>
> Subject
> CL Optional Parameter Question
>
>
>
>
>
>
> Not sure if this is possible. We are on V5R3.
>
> I would like to optionally pass a parameter to a CL program. So
> interatively
> I would CALL AR115CL in batch I would CALL AR115CL PARM('Y').
>
> Is this possible?
>
> --
> Mike Wills
> Midrange Programmer/Analyst
>
> Sick of corporate radio and hungry for something new?
> http://thenextgenerationofradio.com
> --
> 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.
>
>
> --
> 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.