zOs/WK/OPTHILOA

$#@
$*( migrate optHint History from rz2.dbof to rz4.dp4g
     1) unload
     2) load
$*)
$=rz=RZ2
$=dbSys=DBOF
$=fun = u
$;
$@unload $>$rz/intRdr
$;
call sleep 5
$;
$@load $>intRdr
$;
$@proc $@=/unload/
//A540769W JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//UNL   EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=($dbSys,'A540769W.UNLOA'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL  DD DSN=$dbSys.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     TEMPLATE TUNL     DSN('A540769.TMPOPTH.$rz.$dbSys.&SN..UNL')
                       DATACLAS (NULL30) MGMTCLAS(COM#E005)
                       SPACE (10,120) CYL
     TEMPLATE TPUN     DSN('A540769.TMPOPTH.$rz.$dbSys.&SN..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E005)
                       SPACE (1,10) TRK
     UNLOAD DATA
         PUNCHDDN TPUN   UNLDDN TUNL
         SHRLEVEL REFERENCE
     FROM TABLE OA1P.TADMOPTHINTPKG
     UNLOAD DATA
         PUNCHDDN TPUN   UNLDDN TUNL
         SHRLEVEL REFERENCE
     FROM TABLE OA1P.TADMOPTHINTPLAN
$/unload/
$@proc $@=/load/
//A540769W JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAINCLASS=LOG
//LOAD  EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DP4G,'A540769W.LOAD'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL  DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//KU         DD DISP=SHR,SUBSYS=(CSM,'SYSTEM=$rz'),
//             DSN=A540769.TMPOPTH.$rz.$dbSys.A071A.UNL
//LU         DD DISP=SHR,SUBSYS=(CSM,'SYSTEM=$rz'),
//             DSN=A540769.TMPOPTH.$rz.$dbSys.A072A.UNL
//SYSIN DD *
LOAD DATA LOG NO
    SORTKEYS
    SORTDEVT DISK
    WORKDDN(TSYUTS,TSOUTS)
    MAPDDN TMAPD ERRDDN  TERRD
    RESUME NO REPLACE
    INDDN KU
    UNICODE CCSID(00367,01208,01200)
 INTO TABLE
 OA1P.TQZ080OPTHINTQUERY
 NUMRECS                   14
 ( DESC
  POSITION(  00003:00054) VARCHAR MIXED
 , EXPLAIN_TIME
  POSITION(  00055:00080) TIMESTAMP EXTERNAL(026)
 )
LOAD DATA LOG NO
    SORTKEYS
    SORTDEVT DISK
    WORKDDN(TSYUTS,TSOUTS)
    MAPDDN TMAPD ERRDDN  TERRD
    RESUME NO REPLACE
    INDDN LU
    UNICODE CCSID(00367,01208,01200)
 INTO TABLE
 OA1P.TQZ081OPTHINTPLAN
 NUMRECS                 1119
 ( "QUERYNO"
  POSITION(  00003:00006) INTEGER
 , "QBLOCKNO"
  POSITION(  00007:00008) SMALLINT
 , "APPLNAME"
  POSITION(  00009:00034) VARCHAR MIXED
 , "PROGNAME"
  POSITION(  00035:00164) VARCHAR MIXED
 , "PLANNO"
  POSITION(  00165:00166) SMALLINT
 , "METHOD"
  POSITION(  00167:00168) SMALLINT
 , "CREATOR"
  POSITION(  00169:00298) VARCHAR MIXED
 , "TNAME"
  POSITION(  00299:00428) VARCHAR MIXED
 , "TABNO"
  POSITION(  00429:00430) SMALLINT
 , "ACCESSTYPE"
  POSITION(  00431:00432) CHAR MIXED(002)
 , "MATCHCOLS"
  POSITION(  00433:00434) SMALLINT
 , "ACCESSCREATOR"
  POSITION(  00435:00564) VARCHAR MIXED
 , "ACCESSNAME"
  POSITION(  00565:00694) VARCHAR MIXED
 , "INDEXONLY"
  POSITION(  00695:00695) CHAR MIXED(001)
 , "SORTN_UNIQ"
  POSITION(  00696:00696) CHAR MIXED(001)
 , "SORTN_JOIN"
  POSITION(  00697:00697) CHAR MIXED(001)
 , "SORTN_ORDERBY"
  POSITION(  00698:00698) CHAR MIXED(001)
 , "SORTN_GROUPBY"
  POSITION(  00699:00699) CHAR MIXED(001)
 , "SORTC_UNIQ"
  POSITION(  00700:00700) CHAR MIXED(001)
 , "SORTC_JOIN"
  POSITION(  00701:00701) CHAR MIXED(001)
 , "SORTC_ORDERBY"
  POSITION(  00702:00702) CHAR MIXED(001)
 , "SORTC_GROUPBY"
  POSITION(  00703:00703) CHAR MIXED(001)
 , "TSLOCKMODE"
  POSITION(  00704:00706) CHAR MIXED(003)
 , "TIMESTAMP"
  POSITION(  00707:00722) CHAR MIXED(016)
 , "REMARKS"
  POSITION(  00723:01486) VARCHAR MIXED
 , "PREFETCH"
  POSITION(  01487:01487) CHAR MIXED(001)
 , "COLUMN_FN_EVAL"
  POSITION(  01488:01488) CHAR MIXED(001)
 , "MIXOPSEQ"
  POSITION(  01489:01490) SMALLINT
 , "VERSION"
  POSITION(  01491:01614) VARCHAR MIXED
 , "COLLID"
  POSITION(  01615:01744) VARCHAR MIXED
 , "ACCESS_DEGREE"
  POSITION(  01746:01747) SMALLINT
                          NULLIF(01745)=X'FF'
 , "ACCESS_PGROUP_ID"
  POSITION(  01749:01750) SMALLINT
                          NULLIF(01748)=X'FF'
 , "JOIN_DEGREE"
  POSITION(  01752:01753) SMALLINT
                          NULLIF(01751)=X'FF'
 , "JOIN_PGROUP_ID"
  POSITION(  01755:01756) SMALLINT
                          NULLIF(01754)=X'FF'
 , "SORTC_PGROUP_ID"
  POSITION(  01758:01759) SMALLINT
                          NULLIF(01757)=X'FF'
 , "SORTN_PGROUP_ID"
  POSITION(  01761:01762) SMALLINT
                          NULLIF(01760)=X'FF'
 , "PARALLELISM_MODE"
  POSITION(  01764:01764) CHAR MIXED(001)
                          NULLIF(01763)=X'FF'
 , "MERGE_JOIN_COLS"
  POSITION(  01766:01767) SMALLINT
                          NULLIF(01765)=X'FF'
 , "CORRELATION_NAME"
  POSITION(  01769:01898) VARCHAR MIXED
                          NULLIF(01768)=X'FF'
 , "PAGE_RANGE"
  POSITION(  01899:01899) CHAR MIXED(001)
 , "JOIN_TYPE"
  POSITION(  01900:01900) CHAR MIXED(001)
 , "GROUP_MEMBER"
  POSITION(  01901:01926) VARCHAR MIXED
 , "IBM_SERVICE_DATA"
  POSITION(  01927:02182) VARCHAR
 , "WHEN_OPTIMIZE"
  POSITION(  02183:02183) CHAR MIXED(001)
 , "QBLOCK_TYPE"
  POSITION(  02184:02189) CHAR MIXED(006)
 , "BIND_TIME"
  POSITION(  02190:02215) TIMESTAMP EXTERNAL(026)
 , "OPTHINT"
  POSITION(  02216:02345) VARCHAR MIXED
 , "HINT_USED"
  POSITION(  02346:02475) VARCHAR MIXED
 , "PRIMARY_ACCESSTYPE"
  POSITION(  02476:02476) CHAR MIXED(001)
 , "PARENT_QBLOCKNO"
  POSITION(  02477:02478) SMALLINT
 , "TABLE_TYPE"
  POSITION(  02480:02480) CHAR MIXED(001)
                          NULLIF(02479)=X'FF'
 , "TABLE_ENCODE"
  POSITION(  02481:02481) CHAR MIXED(001)
 , "TABLE_SCCSID"
  POSITION(  02482:02483) SMALLINT
 , "TABLE_MCCSID"
  POSITION(  02484:02485) SMALLINT
 , "TABLE_DCCSID"
  POSITION(  02486:02487) SMALLINT
 , "ROUTINE_ID"
  POSITION(  02488:02491) INTEGER
 , "CTEREF"
  POSITION(  02492:02493) SMALLINT
 , "STMTTOKEN"
  POSITION(  02495:02736) VARCHAR MIXED
                          NULLIF(02494)=X'FF'
 , "PARENT_PLANNO"
  POSITION(  02737:02738) SMALLINT
 , "BIND_EXPLAIN_ONLY"
  POSITION(  02739:02739) CHAR MIXED(001)
 , "SECTNOI"
  POSITION(  02740:02743) INTEGER
 , "EXPLAIN_TIME"
  POSITION(  02744:02769) TIMESTAMP EXTERNAL(026)
 , "MERGC"
  POSITION(  02770:02770) CHAR MIXED(001)
 , "MERGN"
  POSITION(  02771:02771) CHAR MIXED(001)
 )
LISTDEF L INCLUDE TABLESPACE QZ01A1P.A080* PARTLEVEL
          INCLUDE TABLESPACE QZ01A1P.A081* PARTLEVEL
COPY LIST L COPYDDN TCOPYD
    PARALLEL
    SHRLEVEL CHANGE
    SCOPE PENDING
RUNSTATS TABLESPACE LIST L
  SHRLEVEL CHANGE
  INDEX(ALL)
  REPORT NO  UPDATE ALL
$/load/