zOs/JCL/QUICKFUN

//A540769W JOB (CP00,KE50),'DB2 ADMIN',
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2,
//         MSGCLASS=T,NOTIFY=&SYSUID
//**##-- BEGIN DSN.CADB2.RZ1.P2.CDBAMDL(MJRCMANL)                       00010000
//ANALYZE  EXEC PGM=PTLDRIVM,REGION=0M,PARM='EP=RML@MAIN'
//STEPLIB  DD DISP=SHR,DSN=DSN.CADB2.RZ4.P1.CDBALOAD
//         DD DISP=SHR,DSN=DB2@.RZ4.P0.DSNLOAD
//PTILIB   DD DISP=SHR,DSN=DSN.CADB2.RZ4.P1.CDBALOAD
//         DD DISP=SHR,DSN=DB2@.RZ4.P0.DSNLOAD
//PTIPARM  DD DISP=SHR,DSN=DSN.CADB2.RZ4.P1.CDBAPARM
//PTIXMSG  DD   DISP=SHR,DSN=DSN.CADB2.RZ4.P1.CDBAXMSG
//MSGFILE  DD   SYSOUT=*                                                00070000
//REPFILE  DD   SYSOUT=*                                                00080000
//ABNLIGNR DD   DUMMY                 SUPPRESS ABENDAID DUMPS           00090000
//DDLFILE  DD   DISP=SHR,                                               00110000
//           DSN=A540769.TMP.LCTL(DROP1)
//PARMFILE DD   *                                                       00140000
 STRTSSID DP4G
 CREATOR  A540769
 QUICKM
 VIEW       QZ91CRS     VQZ91EC149CAS
 FUNCTION   OA1P        "FQZFMTBIN(R)"
 FUNCTION   OA1P        "FQZFMTBIN(R,S)"
 QUICKEND
 TRGSSID  DP4G
 AUXIMP
 MQTIMP
 REFMQT
 SEQIMP
 RTNIMP
 RTNIIO   N
 UNLOAD
 HEADER
 TRAILER
 REPINDDL
 PREFIX   A540769
 MODEL4   ALL
 MODEL4C  DBX
/*
//ANAPOST  EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00150002
//            PARM='%ANAPOST  ANA A540769.TMP.LCTL(DROP1)'
//SYSPROC   DD DISP=SHR,DSN=DSN.CADB2.CS.EXEC                           00170003
//SYSPRINT  DD SYSOUT=*                                                 00180002
//SYSUDUMP  DD SYSOUT=*                                                 00190002
//SYSTSPRT  DD SYSOUT=*                                                 00200002
//SYSTSIN   DD DUMMY                                                    00210004
//**##-- END   DSN.CADB2.RZ1.P2.CDBAMDL(MJRCMANL)                       00220000