zOs/JCL/GBGRMISW

$#@
$*( migrate gbGr schwellen
$*)
$=rz=RZ2
$=dbSys=DP2G
$;
$@unload $>$rz/intRdr
$;
call sleep 5
$@load $>intRdr
$;
$@proc $@=/unload/
//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2                          00030003
//*MAIN CLASS=LOG                                                       00040003
//DEL      EXEC PGM=IEFBR14,TIME=1440
//SU         DD DISP=(MOD,DELETE),
//             DSN=A540769.TMPGBGR.$rz.$dbSys.A013A.UNL
//SP         DD DISP=(MOD,DELETE),
//             DSN=A540769.TMPGBGR.$rz.$dbSys.A013A.PUN
//HU         DD DISP=(MOD,DELETE),
//             DSN=A540769.TMPGBGR.$rz.$dbSys.A013H.UNL
//HP         DD DISP=(MOD,DELETE),
//             DSN=A540769.TMPGBGR.$rz.$dbSys.A013H.PUN
//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.TMPGBGR.$rz.$dbSys.&SN..UNL')
                       DATACLAS (NULL30) MGMTCLAS(COM#E005)
                       SPACE (10,120) CYL
     TEMPLATE TPUN     DSN('A540769.TMPGBGR.$rz.$dbSys.&SN..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E005)
                       SPACE (1,10) TRK
     UNLOAD DATA
         PUNCHDDN TPUN   UNLDDN TUNL
         SHRLEVEL REFERENCE
     FROM TABLE OA1P.TADM13SCHWELLE
     (
       PRIO
     , RZ    CONSTANT '$rz'
     , DBSYS CONSTANT '$dbSys'
     , DB
     , TS
     , PART
     , TSTY
     , DSMIN
     , SCHWELLE
     , VALIDBEGIN
     , VALIDEND
     , ERFASSER
     , GRUSE
     , GRUND
     , ROWBEGIN
     , ROWEND
     , ROWTRANS
     )
     UNLOAD DATA
         PUNCHDDN TPUN   UNLDDN TUNL
         SHRLEVEL REFERENCE
     FROM TABLE OA1P.TADM13SCHWHIST
     (
       PRIO
     , RZ    CONSTANT '$rz'
     , DBSYS CONSTANT '$dbSys'
     , DB
     , TS
     , PART
     , TSTY
     , DSMIN
     , SCHWELLE
     , VALIDBEGIN
     , VALIDEND
     , ERFASSER
     , GRUSE
     , GRUND
     , ROWBEGIN
     , ROWEND
     , ROWTRANS
     )
$/unload/
$@proc $@=/load/
//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2                          00030003
//*MAIN CLASS=LOG                                                       00040003
//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
//SU         DD DISP=SHR,SUBSYS=(CSM,'SYSTEM=$rz'),
//             DSN=A540769.TMPGBGR.$rz.$dbSys.A013A.UNL
//HU         DD DISP=SHR,SUBSYS=(CSM,'SYSTEM=$rz'),
//             DSN=A540769.TMPGBGR.$rz.$dbSys.A013H.UNL
//SYSIN DD *
LOAD DATA LOG YES RESUME YES
    SORTKEYS
    SORTDEVT DISK
    WORKDDN(TSYUTS,TSOUTS)
    MAPDDN TMAPD ERRDDN  TERRD
    INDDN SU
         UNICODE CCSID(00367,01208,01200)
INTO TABLE OA1P.TQZ008GBGRSCHWELLE
 PERIODOVERRIDE TRANSIDOVERRIDE
 ( "PRIO"
  POSITION(  00003:00004) SMALLINT
 , "RZ"
  POSITION(  00005:00007) CHAR MIXED(003)
 , "DBSYS"
  POSITION(  00008:00011) CHAR MIXED(004)
 , "DB"
  POSITION(  00012:00019) CHAR MIXED(008)
 , "TS"
  POSITION(  00020:00027) CHAR MIXED(008)
 , "PART"
  POSITION(  00028:00029) SMALLINT
 , "TSTY"
  POSITION(  00030:00030) CHAR MIXED(001)
 , "DSMIN"
  POSITION(  00031:00034) INTEGER
 , "SCHWELLE"
  POSITION(  00035:00036) SMALLINT
 , "VALIDBEGIN"
  POSITION(  00037:00046) DATE EXTERNAL
 , "VALIDEND"
  POSITION(  00047:00056) DATE EXTERNAL
 , "ERFASSER"
  POSITION(  00057:00064) CHAR MIXED(008)
 , "GRUSE"
  POSITION(  00065:00066) SMALLINT
 , "GRUND"
  POSITION(  00067:00228) VARCHAR MIXED
 , ROWBEGIN
  POSITION(  00229:00260) TIMESTAMP EXTERNAL(032)
 , ROWEND
  POSITION(  00261:00292) TIMESTAMP EXTERNAL(032)
 , ROWTRANS
  POSITION(  00293:00324) TIMESTAMP EXTERNAL(032)
 )
LOAD DATA LOG YES RESUME YES
    SORTKEYS
    SORTDEVT DISK
    WORKDDN(TSYUTS,TSOUTS)
    MAPDDN TMAPD ERRDDN  TERRD
    INDDN HU
         UNICODE CCSID(00367,01208,01200)
INTO TABLE OA1P.TQZ008GBGRSCHWHIST
 PERIODOVERRIDE TRANSIDOVERRIDE
 ( "PRIO"
  POSITION(  00003:00004) SMALLINT
 , "RZ"
  POSITION(  00005:00007) CHAR MIXED(003)
 , "DBSYS"
  POSITION(  00008:00011) CHAR MIXED(004)
 , "DB"
  POSITION(  00012:00019) CHAR MIXED(008)
 , "TS"
  POSITION(  00020:00027) CHAR MIXED(008)
 , "PART"
  POSITION(  00028:00029) SMALLINT
 , "TSTY"
  POSITION(  00030:00030) CHAR MIXED(001)
 , "DSMIN"
  POSITION(  00031:00034) INTEGER
 , "SCHWELLE"
  POSITION(  00035:00036) SMALLINT
 , "VALIDBEGIN"
  POSITION(  00037:00046) DATE EXTERNAL
 , "VALIDEND"
  POSITION(  00047:00056) DATE EXTERNAL
 , "ERFASSER"
  POSITION(  00057:00064) CHAR MIXED(008)
 , "GRUSE"
  POSITION(  00065:00066) SMALLINT
 , "GRUND"
  POSITION(  00067:00228) VARCHAR MIXED
 , ROWBEGIN
  POSITION(  00229:00260) TIMESTAMP EXTERNAL(032)
 , ROWEND
  POSITION(  00261:00292) TIMESTAMP EXTERNAL(032)
 , ROWTRANS
  POSITION(  00293:00324) TIMESTAMP EXTERNAL(032)
 )
$/load/