Re: soft coding parameters

[Jack Kingsley <iseriesflorida@xxxxxxxxx>]

Are you able to get everything you need to populate the command via
rtvobjd??

On Fri, Mar 22, 2013 at 7:51 PM, A Paul <amandapaul1@xxxxxxxxxxx> wrote:

> This is my CLLE program
>   PGM
>
>  DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)
>
> RTVOBJD    OBJ(AXAFILE) OBJTYPE(*FILE) RTNLIB(&LIB)
>
>     ?          MQAXAMC FUNCTION('*START') ??FLIB(&LIB) +
>                  ??INBOUND('QUANTUM.MSGQ.MGR' +
>                  'ADMEM.AXAUS.LF000' 'QIUKVC1.QUANTUM') +
>                  ??OUTBOUND('QUANTUM.MSGQ.MGR' +
>                  'AXAUS.ADMEM.RF000' 'QUANTUM.QIUKVC1') +
>                  SINEX('A1' 'A2' 'A4' 'B1' 'C1' 'D1' +
>                  'F1' 'I1' 'K1' 'K2' 'K3' 'L1' 'M1' 'M3' +
>                  'P1' 'P2' 'S1' ' ' ' ' ' ') PENCE('LA' +
>                  'L1' 'LB' ' ' ' ' ' ' ' ' ' ' ' ' ' ') +
>                  ??JOB(ADMMQLDUS2) ??JOBQ(QBATCHFUT2) +
>                  PRTERRRPT('*YES') ??BATCH(30) +
>                  ??TESTTRN(ADMSTNF1) ??TESTLNK(ADMLNKF2) +
>                  ??RTGDTA('QCMDB')
> ENDPGM
>
> I'm using a vendor supplied command MQAXAMC which has following parameters.
> Function
> FLIB
> INBOUND :
> MQ Manager name
> MQ Queue name
> MQ channel name
> OUTBOUND:
> MQ Manager name
> MQ Queue name
> MQ channel name
> SINEX
> PENCE
> JOBQ
> PRTERRPT
> BATCH
> TESTTRN
> TESTLNK
> RTGDATA
> Due to strict limitation on not to hard code, I'm looking for an alternate
> solution, may be to store these parameters in a file and use ?.  I normally
> plan to use the same program with different inbound and outbound queue
> parameters from time to time by keeping at least rest of the parameters
> hard coded.
>   So at least I like to keep   two parameters(inbound & outbound queues)
> not hard-coded , if   its not possible to limit all the parameters (that
> arein in single quotes ) from hard-coded. Any solution or advice is
> appreciated.
> Thanks
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.