     PROC P,1,INIT='',CYL=(,,),LBLA=AUDFILE,LBLC=CONDATA,LBLN=NAMEREC, X
               NBLK=(,,),ZCNF=ST,LBLADC=AUDCONF
IMS#INT  NAME
// OPTION JOBDUMP
//       IF  (&INIT EQ '')INTFIN
//       IF  ('&INIT' EQ 'INTLZE')INT00
//       IF  ('&INIT' EQ 'SCRINT')INT10
//       IF  ('&INIT' EQ 'LNMREC')INT20
// OPR 'FILE(S) NOT INITIALIZED**KEYWRD OPRND UNDEFINED'
//       GO    INTFIN
//INT00  IF  ('&CYL(1)&CYL(2)&NBLK(2)' EQ '')INTFIN
//       IF  ('&CYL(1)' EQ '')INT01
//       IF  ('&ZCNF' EQ 'ST')INTST
// IMS#NTZ   &P(1),&LBLA,AUDFILE,&CYL(1),ST,CYL,,
//       GO    INT01
//INTST  NOP
// IMS#NTZ &P(1),&LBLADC,AUDCONF,&CYL(1),ST,CYL,,
//       GO    INT02
//INT01  IF  ('&CYL(2)' EQ '')INT02
// IMS#NTZ   &P(1),&LBLC,CONDATA,&CYL(2),ST,CYL,,
//INT02  IF  ('&NBLK(2)' EQ '')INTFIN
// IMS#NTZ   &P(1),&LBLN,ISAMNRF,&NBLK(2),IS,BLK,&NBLK(1)
//       GO    INTFIN
//INT10  IF  ('&CYL(1)&CYL(2)&NBLK(2)' EQ '')INTFIN
//       IF  ('&CYL(1)' EQ '')INT11
//       IF  ('&ZCNF' EQ 'ST')INTST1
// IMS#SCR   &P(1),&LBLA,AUDFILE,&CYL(1),ST,NAUDF,CYL,,
//       GO    INT11
//INTST1 NOP
// IMS#SCR &P(1),&LBLADC,AUDCONF,&CYL(1),ST,NAUDF,CYL,,
//       GO    INT12
//INT11  IF  ('&CYL(2)' EQ '')INT12
// IMS#SCR   &P(1),&LBLC,CONDATA,&CYL(2),ST,NCONF,CYL,,
//INT12  IF  ('&NBLK(2)' EQ '')INTFIN
// IMS#SCR   &P(1),&LBLN,ISAMNRF,&NBLK(2),IS,NNMREC,BLK,&NBLK(1)
//       GO    INTFIN
//INT20  IF  ('&P(1)' NE '')INT21
// DVC RES  // LBL &LBLN  // LFD ISAMNRF,,INIT
// OPR 'DATA FILE &LBLN ON SYSRES INITIALIZED'
//       GO    INTFIN
//INT21  NOP
// DVC 50  // VOL &P(1)  // LBL &LBLN  // LFD ISAMNRF,,INIT
// OPR 'DATA FILE &LBLN ON &P(1) INITIALIZED'
//INTFIN NOP
         END
