//*--------------------------------------------------------------------
//*  XPEDITER  Check if CWPDDIO  DD allocated
//*            is a CWPDDIO file allocated ?
//*--------------------------------------------------------------------
//*
//XPEDITER EXEC PGM=IRXJCL,PARM='ENBPIU00 A'  XPEDITER allocated?
//OPTIONS  DD *
   WhatDDName = 'CWPDDIO'
   STRING = 'INFO FI('WhatDDName') INRTDSN(DSNVAR) INRDSNT(myDSNT)'
   CALL BPXWDYN STRING;
   if Substr(DSNVAR,1,1) > ' ' then,+
      Do;Say WhatDDName 'allocated to' DSNVAR; EXIT(1); End
   Exit(0)
//SYSEXEC  DD DISP=SHR,DSN=&CSIQCLS0
//SYSTSPRT DD SYSOUT=*
//*
//*   Doing an XPEDITER compile ?
//    IF (XPEDITER.RC = 1) THEN
-INC XPEDITER         <- Do an XPEDITER compile
//    ENDIF