Re: soft coding parameters

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.