    PROC P,1
IMS#ASM  NAME
// OPTION JOBDUMP
// WORK1
// WORK2
// EXEC ASM
// PARAM LST=(NC)
// PARAM IN=ZQ#IMS/IMS$ASM
//       IF  ('&P(1)' NE 'IMSOBJ').LAB1C
// PARAM OUT=IMSOBJ
//.LAB1C NOP
    END
