   PROC P,1,LOADM=ZQ#IMS
IMS#LNK  NAME
// OPTION JOBDUMP
// OPTION  SCAN,SUB
// OPTION PRO
// WORK1
// EXEC LNKEDT
//       IF  ('&P(1)' NE 'IMSLOD').LAB1D
// PARAM OUT=IMSLOD
//.LAB1D NOP
// PARAM RCNTCD,DEL,REF
/$
    LOADM  &LOADM
    LINKOP CLIB=ZQ#LNK/IMS$LNK
/*
    END
