zOs/WK/PKGUSLOA

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00030000
//         MSGCLASS=T,TIME=1440,                                        00040000
//         NOTIFY=&SYSUID,REGION=0M                                     00020001
//*MAIN CLASS=LOG0
//S1       EXEC PGM=DSNUTILB,PARM='DBOF,A540769L.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
TEMPLATE PDB    DSN(A540769.TMP.PKGUS.PDBUNL)
TEMPLATE USD    DSN(A540769.TMP.PKGUS.USDUNL)
LISTDEF LST INCLUDE TABLESPACE DA540769.APKGUS* PARTLEVEL
COPY LIST LST COPYDDN(TCOPYD) FULL YES PARALLEL SHRLEVEL REFERENCE
  LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
            STATISTICS INDEX(ALL  KEYCARD)
            INDDN PDB
            SORTDEVT DISK
            WORKDDN(TSYUTS,TSOUTS)
  INTO TABLE A540769.TPKGUSPDB
   (
   CNT                                    POSITION(       1         )
   INTEGER                              ,
   OCCS                                   POSITION(       5         )
   FLOAT(                    53)
        NULLIF(      13)='?',
   SQLS                                   POSITION(      14         )
   FLOAT(                    53)
        NULLIF(      22)='?',
   ELA                                    POSITION(      23         )
   FLOAT(                    53)
        NULLIF(      31)='?',
   CPU                                    POSITION(      32         )
   FLOAT(                    53)
        NULLIF(      40)='?',
   TSTFR                                  POSITION(      41         )
   TIMESTAMP EXTERNAL(       26)
        NULLIF(      67)='?',
   TSTTO                                  POSITION(      68         )
   TIMESTAMP EXTERNAL(       26)
        NULLIF(      94)='?',
   MBRFR                                  POSITION(      95         )
   CHAR(                      4)
        NULLIF(      99)='?',
   MBRTO                                  POSITION(     100         )
   CHAR(                      4)
        NULLIF(     104)='?',
   PKG                                    POSITION(     105         )
   VARCHAR                              ,
   COL                                    POSITION(     235         )
   VARCHAR
   )
  LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
            STATISTICS INDEX(ALL  KEYCARD)
            INDDN USD
            SORTDEVT DISK
            WORKDDN(TSYUTS,TSOUTS)
  INTO TABLE A540769.TPKGUSD
   (
   LASTUSED                               POSITION(       1         )
   DATE EXTERNAL(            10)        ,
   PKG                                    POSITION(      11         )
   CHAR(                      8)        ,
   CONTOKEN                               POSITION(      19         )
   CHAR(                     16)
   )