    PROC P,6,CCA=IMS4,NMREC=YES,AUDF=YES,CONF=YES,LST=(O,S,C),ZCNF=ST, X
               LOADM='',CNFLNK=NO,INIT='',CNFJCS=(ALL),CYL=(15,5),     X
               LBLA=AUDFILE,LBLC=CONDATA,LBLN=NAMEREC,LBLADC=AUDCONF,  X
               ALTER=NO,NBLK=(3072,35)
IMSCONF  NAME
// DVC 20 // LFD PRNTR
// DVC 20 // LFD PRNTR2
//RLSPAK JSET  REL040
//P1     JSET  ''
//P2     JSET  ''
//P3     JSET  ''
//P4     JSET  ''
//       IF  ('&P(1)' EQ '&RLSPAK')LABCI
//P1     JSET  '&P(1)'
//LABCI  IF  ('&P(2)' EQ '$Y$SRC')LABR
//P2     JSET  '&P(2)'
//LABR   IF  ('&P(3)' EQ '$Y$OBJ')LABI
//P3     JSET  '&P(3)'
//LABI   IF  ('&P(4)' EQ '$Y$LOD')LABL
//P4     JSET  '&P(4)'
//LABL   IF  ('&ZCNF' NE 'MT')LABST
//       IF  ('&NBLK(1)' NE '')LABMT
//DNBLK  JSET  '6144'
//       GO    LABGO
//LABMT  NOP
//DNBLK  JSET  '&NBLK(1)'
//       GO    LABGO
//LABST  IF  ('&NBLK(1)' NE '')LABST1
//DNBLK  JSET  '3072'
//       GO    LABGO
//LABST1 NOP
//DNBLK  JSET  '&NBLK(1)'
//LABGO  IF  ('&CNFJCS(1)' EQ 'ALL')LAB00
//       IF  ('&CNFJCS(2)' NE 'CCA')LAB3
//LAB00  NOP
//       IF  ('&P4' NE '')LAB1
// DVC RES // LBL $Y$LOD // LFD CNFLOD
// OPR ' LINK USER CCA TO $Y$LOD FROM $Y$OBJ '
//       GO    LAB2
//LAB1   NOP
// DVC 50 // VOL &P(1) // LBL &P(4) // LFD CNFLOD
// OPR ' LINK USER CCA TO &P(4) ON &P(1) FROM $Y$OBJ '
//LAB2   NOP
// IMS#CCA CNFLOD,CCA=&CCA
//LAB3   IF  (&INIT EQ '')LAB4
// OPR 'INITIALIZATION OF ANY OR ALL IMS/90 FILES'
// IMS#INT   &P1,CYL=&CYL,LBLA=&LBLA,LBLC=&LBLC,LBLN=&LBLN,INIT=&INIT, X
//1      NBLK=(&DNBLK,&NBLK(2)),ZCNF=&ZCNF,LBLADC=&LBLADC
// OPTION  SCAN,SUB,PRO
//       IF  ('&P4' EQ '')LAB40
// DVC 50  // VOL &P(1)  // LBL &P(4)  // LFD IMSLOD
//       IF  ('&INIT' NE 'LNMREC')LAB41
// EXEC ZP#NRU,IMSLOD
/$
INIT     BLKSZE=&DNBLK
/*
//       GO    LAB4
//LAB40  IF  ('&INIT' NE 'LNMREC')LAB42
// EXEC ZP#NRU
/$
INIT     BLKSZE=&DNBLK
/*
//       GO    LAB4
//LAB41  IF  ('&NBLK(2)' EQ '')LAB4
// EXEC ZP#NRU,IMSLOD
/$
INIT     BLKSZE=&DNBLK
/*
//       GO    LAB4
//LAB42  IF  ('&NBLK(2)' EQ '')LAB4
// EXEC ZP#NRU
/$
INIT     BLKSZE=&DNBLK
/*
//LAB4   IF    ('&CNFLNK' EQ 'NO')LAB5
// OPR ' LINK IMS CONFIGURATOR'
//       IF  ('&P3&P4' EQ '')LAB50
// DVC 50 // VOL &P(1) // LBL &P(3) // LFD CNFOBJ
// DVC 50 // VOL &P(1) // LBL &P(4) // LFD CNFLOD
//       GO    LAB51
//LAB50  NOP
// DVC RES  // LBL $Y$OBJ  // LFD CNFOBJ
// DVC RES  // LBL $Y$LOD  // LFD CNFLOD
//LAB51  NOP
// CNF#LNK CNFLOD
//LAB5   IF  ('&CNFJCS(1)' EQ 'ALL')LAB52
//       IF  ('&CNFJCS(3)' NE 'CNF')LAB8
//LAB52  NOP
// OPR ' EXECUTION OF IMS/90 CONFIGURATOR '
//       IF  ('&P1' NE '')LAB60
// DVC RES  // LBL &LBLN  // LFD NAMEREC,,ACCEPT
//       GO    LAB61
//LAB60  NOP
// DVC 50 // VOL &P(1) // LBL &LBLN // LFD NAMEREC,,ACCEPT
//LAB61  NOP
// DVC RES // EXT ST,C,,CYL,5 // LBL $SCR1   // LFD IMS$SRC,,INIT
//       IF  ('&P4' EQ '')LAB62
// DVC 50  // VOL &P(1)  // LBL &P(4)  // LFD CNFLOD
//LAB62  IF  ('&P2' NE '')LAB6
// DVC RES // LBL $Y$SRC // LFD IMS$ASM
// DVC RES // LBL $Y$SRC // LFD IMS$LNK
//       GO    LAB7
//LAB6   NOP
// DVC 50 // VOL &P(1) // LBL &P(2) // LFD IMS$ASM
// DVC 50 // VOL &P(1) // LBL &P(2) // LFD IMS$LNK
//LAB7   NOP
// IMS#CNF &P1,&P2,&P3,&P4,&P(5),&P(6),AUDF=&AUDF,CONF=&CONF,          X
//1      LBLC=&LBLC,LBLA=&LBLA,LST=&LST,ALTER=&ALTER,ZCNF=&ZCNF,       X
//2      LBLADC=&LBLADC
//LAB8   IF  ('&CNFJCS(1)' EQ 'ALL')LAB80
//       IF  ('&CNFJCS(4)' NE 'ASM')LAB13
//LAB80  NOP
// OPR ' ASSEMBLE IMS/90 DTFS '
//       IF  ('&P2' NE '')LAB9
// DVC RES // LBL $Y$SRC // LFD IMS$ASM
//       GO    LAB10
//LAB9   NOP
// DVC 50 // VOL &P(1) // LBL &P(2) // LFD IMS$ASM
//LAB10  IF  ('&P3' NE '')LAB11
// DVC RES // LBL $Y$OBJ // LFD IMSOBJ
//       GO    LAB12
//LAB11  NOP
// DVC 50 // VOL &P(1) // LBL &P(3) // LFD IMSOBJ
//LAB12  NOP
// IMS#ASM IMSOBJ
//LAB13  IF  ('&CNFJCS(1)' EQ 'ALL')LAB130
//       IF  ('&CNFJCS(5)' NE 'LNK')LAB20
//LAB130 NOP
// OPR ' LINK ONLINE IMS/90 MODULES '
//       IF  ('&P2' NE '')LAB14
// DVC RES // LBL $Y$SRC // LFD IMS$LNK
//       GO    LAB15
//LAB14  NOP
// DVC 50 // VOL &P(1) // LBL &P(2) // LFD IMS$LNK
//LAB15  IF  ('&P3' NE '')LAB16
// DVC RES // LBL $Y$OBJ // LFD IMSOBJ
//       GO    LAB17
//LAB16  NOP
// DVC 50 // VOL &P(1) // LBL &P(3) // LFD IMSOBJ
//LAB17  IF  ('&P4' NE '')LAB18
// DVC RES // LBL $Y$LOD // LFD IMSLOD
//       GO    LAB19
//LAB18  NOP
// DVC 50 // VOL &P(1) // LBL &P(4) // LFD IMSLOD
//LAB19  IF  ('&ZCNF' NE 'ST')LAB191
//       IF  ('&LOADM' NE '')LAB192
//DLOADM JSET  'ZS#IMS'
//       GO    LAB193
//LAB191 IF  ('&LOADM' NE '')LAB192
//DLOADM JSET  'ZQ#IMS'
//       GO    LAB193
//LAB192 NOP
//DLOADM JSET  '&LOADM'
//LAB193 NOP
// IMS#LNK     IMSLOD,LOADM=&DLOADM
//LAB20  NOP
         END
