zOs/JCL/QGS

//QGS400TP JOB (PD00,KE50,,SP00000000),
//             'GENERIERUNG COPY   ',
//             MSGCLASS=E,
//             TIME=1440
//*MAIN CLASS=LOG
//PARMLIB      JCLLIB ORDER=DBTF.DBAA.LCTL
//********************************************************************
//*                         JCLPREP   07/18/2006   09:46:42   A965472
//********************************************************************
//*
//P01     EXEC PGM=IEFBR14
//TEMP     DD  DSN=&&TEMP,
//             DISP=(,PASS,DELETE),
//             UNIT=DISK,
//             SPACE=(TRK,(1,1,5)),
//             DCB=ISP.SISPTENU
//*
// IF P01.RC = 0 THEN
//P02     EXEC PGM=IKJEFT1A,
//             REGION=0000M
//PARMS    INCLUDE MEMBER=QGS400T1
//SYSTSIN  DD *
  PROFILE  NOPREFIX
  ISPSTART PGM(HAA@BULD)
//HAA#DATA DD  DSN=DBTF.DBAA.LCTL(QGS400T2),DISP=SHR
// ENDIF