         PROC  P,1,CCA=IMS4
IMS#CCA  NAME
// WORK1
// OPTION JOBDUMP
// OPTION  SCAN,SUB
// OPTION  PRO
// EXEC  LNKEDT
// PARAM NOAUTO,NOV,NOERR,NODICT,NOPHS
//       IF   ('&P(1)' NE  'CNFLOD')LAB1A
// PARAM OUT=CNFLOD
//LAB1A  NOP
/$
     LOADM   &CCA
     INCLUDE CCA$&CCA
/*
         END
