zOs/JCL/MVEXTIMP

//A540769L JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2                          00030003
//*MAIN CLASS=LOG                                                       00040003
//S1       EXEC PGM=DSNUTILB,PARM='DP4G,A540769L.LOAD'                  00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//DDI1         DD DUMMY
//DDI4         DD DUMMY
//*DDI1         DD DISP=SHR,DSN=DBAF.DA540769.A802A.P00001.D080526.REC
//*            DD DISP=SHR,DSN=DBAF.DA540769.A802A.P00001.D080526.REC
//SYSIN    DD *
  TEMPLATE INP
       DSN('A540769.DB2ADMIN.ACMD.P00000.D140423.REC')
       DISP(OLD,KEEP,KEEP)
LOAD DATA LOG YES RESUME YES
    SORTKEYS
    SORTDEVT DISK
    WORKDDN(TSYUTD,TSOUTD)
   INDDN INP
   UNICODE CCSID(00367,01208,01200)
   INTO TABLE
   OA1P.TQZ050CMD
   WHEN(00001:00002) = X'004F'
   NUMRECS               156646
   ( RZ
    POSITION(  00003:00003) CHAR(00001)
   , DBSYS
    POSITION(  00004:00004) CHAR(00001)
   , "DBMBR"
    POSITION(  00005:00008) CHAR(00004)
   , "SYSTEM"
    POSITION(  00009:00012) CHAR(00004)
   , "TST"
    POSITION(  00013:00038) TIMESTAMP EXTERNAL(026)
   , "VERB"
    POSITION(  00004:00004) CHAR(00001)
   , "CMD"
    POSITION(  00047:00120) VARCHAR
   , "CORR"
    POSITION(  00121:00128) CHAR(00008)
   , "AUTH"
    POSITION(  00129:00136) CHAR(00008)
   , "OPERATOR"
    POSITION(  00137:00144) CHAR(00008)
   )