zOs/war/jcl0
}¢--- A540769.WK.JCL(#LOADSHR) cre=2006-03-06 mod=2015-09-11-08.30.56 A540769 ---
//A5407691 JOB (KEL25071,0240,,3612),'CATALOG',
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A828386
//* TIMESTAMP : 11/15/2002.13.43.48
//* ENVIRONMENT: ISPF 5.0MVS TSO
//* RELEASE : V6.2.01 09/29/2000
//* DB2 VERSION: 710
//***************************************************
//*DSN('DSN.DBAF.DPX01.SPX272.UNL1.D2004351')
//*DISP(OLD,KEEP,KEEP)
//*VOLUMES(SHR200) <=======IM PUNCHDATASET DIESE LINE EINFüGEN
//STEP1 EXEC PGM=DSNUTILB,
// PARM=(DBOF,'A540769.LOAD1'),
//* ***INITIAL***
// REGION=0M
//STEPLIB DD DISP=SHR,
// DSN='DSN.BMC.RZ1.P0.ADMIN.LOAD'
//ABNLIGNR DD DUMMY
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//* PUNCH DATASET HIER ANPASSEN
//SYSIN DD DISP=SHR,DSN=DSN.DBTF.BX01A1T.A123A.PUN1.D2006065,
// UNIT=DISK,VOL=SER=SHR106
//*--------------------------------------------------------------------
//* UTILITY WORK DD STATEMENTS
//*--------------------------------------------------------------------
//* DATA SET SIZE REQUIRED FOR DD SYSUT1 IS AN ESTIMATE
//SYSUT1 DD DSN=DSN.A828386.DBAF.STEP1.SYSUT1,
//* DISP=SHR, ***RESTART***
// DISP=(NEW,CATLG,CATLG), ***INITIAL***
// SPACE=(CYL,(1,1)), ESTIMATE-C/C
// DATACLAS=NULL12,MGMTCLAS=D035N000,STORCLAS=AYN,
// UNIT=VIO
//*--------------------------------------------------------------------
//* UTILITY WORK DD STATEMENTS
//*--------------------------------------------------------------------
//* M = ESTIMATE IS THE MAXIMUM DATASET SIZE FOUND FOR THIS WORKDD TYPE
//SORTOUT DD DSN=DSN.A828386.DBAF.STEP1.SORTOUT1,
//* DISP=SHR, ***RESTART***
// DISP=(NEW,CATLG,CATLG), ***INITIAL***
// SPACE=(CYL,(1,1)), ESTIMATE-C/M
// DATACLAS=NULL12,MGMTCLAS=D035N000,STORCLAS=AYN,
// UNIT=VIO
//*--------------------------------------------------------------------
//* MAPDDN OUTPUT DD STATEMENTS
//*--------------------------------------------------------------------
//* DATA SET SIZE REQUIRED FOR DD SYSMAP IS AN ESTIMATE
//SYSMAP DD DSN=DSN.A828386.DBAF.STEP1.SYSMAP1,
//* DISP=SHR, ***RESTART***
// DISP=(NEW,CATLG,CATLG), ***INITIAL***
// SPACE=(CYL,(1,1)), SPACE ESTIMATE-C/C
// DATACLAS=NULL12,MGMTCLAS=D035N000,STORCLAS=AYN,
// UNIT=VIO
//*--------------------------------------------------------------------
//* ERRDDN OUTPUT DD STATEMENTS
//*--------------------------------------------------------------------
//* DATA SET SIZE REQUIRED FOR DD SYSERR1 IS AN ESTIMATE
//SYSERR1 DD DSN=DSN.A828386.DBAF.STEP1.SYSERR1,
//* DISP=SHR, ***RESTART***
// DISP=(NEW,CATLG,CATLG), ***INITIAL***
// SPACE=(CYL,(1,1),RLSE), ESTIMATE-C/C
// DATACLAS=NULL12,MGMTCLAS=D035N000,STORCLAS=AYN,
// UNIT=VIO
//*--------------------------------------------------------------------
//* UTILITY INPUT DD STATEMENTS
//*--------------------------------------------------------------------
//SYSREC DD DISP=SHR,UNIT=DISK,VOL=SER=SHR106,
// DSN=DSN.DBTF.BX01A1T.A123A.UNL1.D2006065
//*--------------------------------------------------------------------
//* SORT WORK DD STATEMENTS
//*--------------------------------------------------------------------
//* S = SORTWK SIZE IS (WORK SPACE * 2 / #SORTWKS)
//SORTWK01 DD UNIT=VIO,
// SPACE=(CYL,(1,1)), ESTIMATE-C/S
// DISP=(NEW,DELETE)
//SORTWK02 DD UNIT=VIO,
// SPACE=(CYL,(1,1)), ESTIMATE-C/S
// DISP=(NEW,DELETE)
//SORTWK03 DD UNIT=VIO,
// SPACE=(CYL,(1,1)), ESTIMATE-C/S
// DISP=(NEW,DELETE)
//SORTWK04 DD UNIT=VIO,
// SPACE=(CYL,(1,1)), ESTIMATE-C/S
// DISP=(NEW,DELETE)
//SORTWK05 DD UNIT=VIO,
// SPACE=(CYL,(1,1)), ESTIMATE-C/S
// DISP=(NEW,DELETE)
//SORTWK06 DD UNIT=VIO,
// SPACE=(CYL,(1,1)), ESTIMATE-C/S
// DISP=(NEW,DELETE)
//SORTWK07 DD UNIT=VIO,
// SPACE=(CYL,(1,1)), ESTIMATE-C/S
// DISP=(NEW,DELETE)
//SORTWK08 DD UNIT=VIO,
// SPACE=(CYL,(1,1)), ESTIMATE-C/S
// DISP=(NEW,DELETE)
//SORTWK09 DD UNIT=VIO,
// SPACE=(CYL,(1,1)), ESTIMATE-C/S
// DISP=(NEW,DELETE)
//SORTWK10 DD UNIT=VIO,
// SPACE=(CYL,(1,1)), ESTIMATE-C/S
// DISP=(NEW,DELETE)
//SORTWK11 DD UNIT=VIO,
// SPACE=(CYL,(1,1)), ESTIMATE-C/S
// DISP=(NEW,DELETE)
//SORTWK12 DD UNIT=VIO,
// SPACE=(CYL,(1,1)), ESTIMATE-C/S
// DISP=(NEW,DELETE)
//*--------------------------------------------------------------------
//* END OF JOBSTEP
//*--------------------------------------------------------------------
//*--------------------------------------------------------------------
//* DATASET CLEANUP STEP WILL EXECUTE IF PREVIOUS CONDITION CODE
//* IS 4 OR LESS.
//*--------------------------------------------------------------------
//CLEANUP EXEC PGM=IEFBR14,
// COND=(4,LT)
//*--------------------------------------------------------------------
//* UTILITY WORK DD STATEMENTS
//*--------------------------------------------------------------------
//SYSUT1 DD DSN=DSN.A828386.DBAF.STEP1.SYSUT1,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,(1,1)),
// UNIT=VIO
//SORTOUT DD DSN=DSN.A828386.DBAF.STEP1.SORTOUT1,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,(1,1)),
// UNIT=VIO
//*--------------------------------------------------------------------
//* MAPDDN OUTPUT DD STATEMENTS
//*--------------------------------------------------------------------
//SYSMAP DD DSN=DSN.A828386.DBAF.STEP1.SYSMAP1,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,(1,1)),
// UNIT=VIO
//*--------------------------------------------------------------------
//* ERRDDN OUTPUT DD STATEMENTS
//*--------------------------------------------------------------------
//SYSERR1 DD DSN=DSN.A828386.DBAF.STEP1.SYSERR1,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,(1,1)),
// UNIT=VIO
//*--------------------------------------------------------------------
//* END OF DATASET CLEANUP STEP
//*--------------------------------------------------------------------
//*--------------------------------------------------------------------
//* END OF JOB
//*--------------------------------------------------------------------
}¢--- A540769.WK.JCL(ABUB) cre=2014-01-28 mod=2016-01-04-11.54.41 A540769 ------
//QZT1100P JOB (CP00,KE50),'DB2 ADMIN', 00010002
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL, 00020004
// MSGCLASS=T,NOTIFY=&SYSUID 00021002
//*
//* test job fuer ABUB = Ablaufueberwachung
//*
//ABUB EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='%ABUB C'
//* PARM='%ABUB C all rz=rr2'
//* all: alles checken unabhaengig Zeit
//STEPLIB DD DSN=PCL.U0000.P0.RZ4AKT.PERM.@008.LLB,DISP=SHR
//SYSPROC DD DISP=SHR,DSN=DSN.DB2.EXEC
//*YSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
}¢--- A540769.WK.JCL(ABUBCP) cre=2014-01-29 mod=2014-01-31-07.58.23 A540769 ----
$#@
rzF = RZ1
rzT = RZX
msk = 'DSN.WOK.QMW*.**.'rzY
lc = adrCsm('dslist system('rzF') dsnMask('msk')')
do sx=1 to stemSize
dsNew = overlay('TST',left(dsName.sx, length(dsName.sx)-4), 5)
say dsName.sx '=>' dsNew
call csmCopy rzF'/'dsName.sx, rzT'/'dsNew
end
$#out 20140130 16:58:45
}¢--- A540769.WK.JCL(ABUBONE) cre=2014-10-08 mod=2015-10-24-10.19.03 A540769 ---
//QMW8008W JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,CLASS=M1,
// NOTIFY=&SYSUID,REGION=0M
//JOBLIB DD DSN=PCL.U0000.P0.RZ4AKT.PERM.@008.LLB,DISP=SHR
//ABUB EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='abUb c'
//* PARM='abUb c all rz=rq2 ab=gbGr'
//* PARM='abUb c all rz=rz2'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSPROC DD DISP=SHR,DSN=DSN.DB2.EXEC
}¢--- A540769.WK.JCL(ACC01) cre=2013-10-21 mod=2013-10-21-13.32.48 A540769 -----
//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
//SYSREC00 DD DISP=(MOD,DELETE),DSN=A540769.TMP.DSNTIAU0
//SYSREC01 DD DISP=(MOD,DELETE),DSN=A540769.TMP.DSNTIAU1
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN DD *
DSN SYSTEM(DP4G)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*,RECFM=FB,LRECL=80
//SYSREC00 DD DISP=(NEW,CATLG),DSN=*.DEL.SYSREC00,
//* dcb=(lrecl=2048,recfm=fb), kein reclen angeben,
//* dann macht dsntiaul es richtig
// SPACE=(CYL,(2,1000)),MGMTCLAS=COM#A069
//SYSREC01 DD DISP=(NEW,CATLG),DSN=*.DEL.SYSREC01,
// SPACE=(CYL,(2,1000)),MGMTCLAS=COM#A069
//DDCARD DD SYSOUT=*,RECFM=FB,LRECL=80
//SYSIN DD * -- nur jedes 100te query
set current path = oa1p;
with x as
( select float(max(1, round(sqlCount/100, 0))) sn, p.*
from pbxx.TACCT_PROGRAM_20131015 p
where sqlCount > 0
/* fetch first 1000000 rows only */
)
, y as
( select smallint(floor(log10(max(1e-30,
real(BPGETPAGE)/sn)) * 3)) g, x.*
from x
)
select char(
right(' ' || strip(char(count(*))), 12) || ' '
|| substr(fosFmte7(min(real(BPGETPAGE)/sn)), 1, 7) || ' '
|| substr(fosFmte7(max(real(BPGETPAGE)/sn)), 1, 7) || ' '
|| substr(fosFmte7(avg(real(BPGETPAGE)/sn)), 1, 7) || ' '
|| substr(fosFmte7(avg(real(ELAPSEPKG)/sn)), 1, 7) || ' '
|| substr(fosFmte7(avg(real(CPUTCBPKG)/sn)), 1, 7) || ' sum '
|| substr(fosFmte7(sum(real(occurrences))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(sqlCount))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(sn))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(bpGetPage))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(elapsePkg))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(cpuTcbPkg))), 1, 7) || ' '
|| char(min(dateTime)) || ' '
|| char(max(dateTime)) || ' '
|| min(subsystem) || max(subsystem)
|| min(planName) || max(planName)
|| min(programName) || max(programName)
, 255)
from y
group by g
order by g desc
;
//SYSI1 DD * -- average
set current path = oa1p;
with x as
( select smallint(floor(log10(max(1e-30,
real(BPGETPAGE)/sqlCount)) * 3)) g, p.*
from pbxx.TACCT_PROGRAM_20131015 p
where sqlCount > 0
fetch first 100000 rows only
)
select char(
right(' ' || strip(char(count(*))), 12) || ' '
|| substr(fosFmte7(min(real(BPGETPAGE)/sqlCount)), 1, 7) || ' '
|| substr(fosFmte7(max(real(BPGETPAGE)/sqlCount)), 1, 7) || ' '
|| substr(fosFmte7(avg(real(BPGETPAGE)/sqlCount)), 1, 7) || ' '
|| substr(fosFmte7(avg(real(ELAPSEPKG)/sqlCount)), 1, 7) || ' '
|| substr(fosFmte7(avg(real(CPUTCBPKG)/sqlCount)), 1, 7) || ' sum '
|| substr(fosFmte7(sum(real(occurrences))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(sqlCount))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(bpGetPage))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(elapsePkg))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(cpuTcbPkg))), 1, 7) || ' '
|| char(min(dateTime)) || ' '
|| char(max(dateTime)) || ' '
|| min(subsystem) || max(subsystem)
|| min(planName) || max(planName)
|| min(programName) || max(programName)
, 255)
from x
group by g
order by g desc
;
}¢--- A540769.WK.JCL(ACIF) cre= mod=-. -----------------------------------------
//A540769A JOB (CP00,KE50)
//*
//*-------------------------------------------------------------------*
//* SET INPUT=WGR.U0034.T0.AKT.DATAVBA(PVSDBOLD)
//* SET INPUT=WGR.U0034.T0.AKT.DATAVBA(DATAMATN)
//* SET INPUT=WGR.U0034.T0.AKT.DATAVBA(PVSNDBH2)
// SET INPUT=A540769.TEST.JESOUT.T6BEDO.NOCPYGRP
//*-------------------------------------------------------------------* 00030000
// SET COPIES=1 00040000
//* SET FORMS=WHC0T 00040000
// SET FORMS=W7817 00040000
// SET DEST=RZ2,CLASS=3 00040000
//* SET DEST=B643,CLASS=2 00040000
//*-------------------------------------------------------------------*
//*
//*-------------------------------------------------------------------*
//* BUILD INDEX-, RESOURCE- AND DATA-FILE FROM INPUT AND RESOURCES *
//*-------------------------------------------------------------------*
//*
//ACIF EXEC PGM=APKACIF,
// PARM=('',
// 'PARMDD=DDPARM,',
// 'MSGDD=DDMSG,'),
// COND=(0,NE)
//*TEPLIB DD DISP=SHR,DSN=APK.ACIF.SAPKMOD1
//DDINPUT DD DISP=SHR,DSN=&INPUT
//DDOUT DD DISP=(,PASS),MGMTCLAS=D001N000,
//* DSN=F712396.ACIF.OUT.#DT#,
// DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VBA,DSORG=PS),
// SPACE=(32760,(15,15)),UNIT=SYSDA
//DDRES DD DISP=(,PASS),MGMTCLAS=D001N000,
//* DSN=F712396.ACIF.RES.#DT#,
// DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VBA,DSORG=PS),
// SPACE=(32760,(15,15)),UNIT=SYSDA
//DDIDX DD DISP=(,PASS),MGMTCLAS=D001N000,
//* DSN=F712396.ACIF.IDX.#DT#,
// DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VBA,DSORG=PS),
// SPACE=(32760,(15,15)),UNIT=SYSDA
//DDMSG DD SYSOUT=*
//DDPARM DD *
/* ---------------- */
/* FILE INFORMATION */
/* ---------------- */
INPUTDD = DDINPUT /* DDN INPUT-FILE (DATA) */
OUTPUTDD = DDOUT /* DDN OUTPUT-FILE (DATA) */
RESOBJDD = DDRES /* DDN RESOURCE-OUTPUT */
INDEXDD = DDIDX /* DDN INDEX-FILE */
/* -------------------- */
/* DATA CHARACTERISTICS */
/* -------------------- */
RESTYPE = ALL /* INCLUDE ALL RESOURCES */
RESFILE = SEQ /* RESOURCE FILE TYPE */
CC = YES /* CARRIAGE-CONTROL */
CCTYPE = A /* ASA-CHARACTERS */
TRC = NO /* NO TRC'S IN INPUT */
CPGID = 500 /* CODE PAGE ID FOR TLE'S */
/* -------------------- */
/* INDEXING INFORMATION */
/* -------------------- */
INDEXOBJ = ALL
/* ------------------- */
/* LIBRARY INFORMATION */
/* ------------------- */
FDEFLIB = WGR.U0034.T0.AKT.AFPLIB, /* FORMDEF-LIBRARIES */
PSF.DIV.P0.AKT.P3820.PRTFDEF
PDEFLIB = WGR.U0034.T0.AKT.AFPLIB, /* PAGEDEF-LIBRARIES */
WGR.U0034.P0.AKT.AFPLIB, /* PAGEDEF-LIBRARIES */
PSF.DIV.P0.AKT.P3820.PRTPDEF
OVLYLIB = WGR.U0034.T0.AKT.AFPLIB, /* OVERLAY-LIBRARIES */
WGR.U0034.T0.AKT.AFPLIB.PVS, /* OVERLAY-LIBRARIES */
PSF.DIV.P0.AKT.P3820.PRTOVLY,
PSF.DIV.P0.AKT.P38P1.PRTOVLY,
PSF.DIV.P0.AKT.P38PP.PRTOVLY
PSEGLIB = WGR.U0034.T0.AKT.AFPLIB, /* PAGESEGMENT-LIBRARIES */
PSF.DIV.P0.AKT.P3820.PRTPSEG,
PSF.DIV.P0.AKT.P38PP.PRTPSEG
FONTLIB = WGR.U0034.T0.AKT.AFPLIB, /*FONT-LIBRARIES */
PSF.DIV.P0.AKT.P300.PRTFONT,
PSF.DIV.P0.AKT.P240.PRTFONT
/* -------------------- */
/* RESOURCE INFORMATION */
/* -------------------- */
/* FORMDEF = F1PVTEST */ /* FORMDEF USED */
/* PAGEDEF = P1PV0500 */ /* PAGEDEF USED */
FORMDEF = F1C#CH1 /* FORMDEF USED */
PAGEDEF = P1PVWGR1 /* PAGEDEF USED */
/*
//*
//*-------------------------------------------------------------------*
//* MERGE RESOURCE- AND DATA-OUTPUT TO AFPDS *
//*-------------------------------------------------------------------*
//*
//*-------------------------------------------------------------------* 00050000
//IEBGENER EXEC PGM=ICEGENER,
// COND=(0,NE)
//*-------------------------------------------------------------------* 00050000
//OUT1 OUTPUT PRMODE=PAGE,DEST=&DEST,
// CLASS=&CLASS,FORMS=&FORMS,COPIES=&COPIES,
// USERLIB=WGR.U0034.T0.AKT.AFPLIB,
// OVERLAYF=O1PVTEST,OVERLAYB=O1PVTEST
//* OVERLAYF=O1CIT024,OVERLAYB=O1CIT024
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=*.ACIF.DDRES
// DD DISP=SHR,DSN=*.ACIF.DDOUT
//SYSUT2 DD SYSOUT=(,),OUTPUT=*.OUT1
//*YSUT2 DD DISP=(,CATLG),MGMTCLAS=D001N000,
//* DSN=WGR.U0034.T0.AKT.TESTOUT.DB1.AFP,
//* DCB=(LRECL=32756,BLKSIZE=32760,RECFM=VBA,DSORG=PS),
//* SPACE=(32760,(15,15)),UNIT=SYSDA
}¢--- A540769.WK.JCL(AFPPRINT) cre= mod=-. -------------------------------------
//A540769P JOB (CP00,KE50)
//*MAIN CLASS=PVS
//*-------------------------------------------------------------------*
// SET INPUT=PVSO.RZ1.T0.TS3S6283.D05305.T131918.A5B1.AFP
//* SET INPUT=WGR.U0034.T0.AKT.DATAVBA(PVSNDBH2)
//* SET INPUT=A540769.TEST.JESOUT.T6BEDO.NOCPYGRP
//*-------------------------------------------------------------------* 00030000
// SET COPIES=1 00040000
//* SET FORMS=WHC0T 00040000
//* SET FORMS=W7817 00040000
// SET FORMS=TEST 00040000
//* SET DEST=RZ2,CLASS=3 00040000
// SET DEST=B643,CLASS=2 00040000
//*-------------------------------------------------------------------*
//*-------------------------------------------------------------------* 00050000
//IEBGENER EXEC PGM=ICEGENER,
// COND=(0,NE)
//*-------------------------------------------------------------------* 00050000
//OUT1 OUTPUT PRMODE=PAGE,DEST=&DEST,
// CLASS=&CLASS,FORMS=&FORMS,COPIES=&COPIES
//* XSERLIB=WGR.U0034.T0.AKT.AFPLIB
//* OVERLAYF=O1PVTEST,OVERLAYB=O1PVTEST
//* OVERLAYF=O1CIT024,OVERLAYB=O1CIT024
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=&INPUT
//SYSUT2 DD SYSOUT=(,),OUTPUT=*.OUT1
}¢--- A540769.WK.JCL(ALLOCEXT) cre=2012-06-14 mod=2013-02-14-13.16.28 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0 00040000
//CP EXEC PGM=IEFBR14 00050000
//DDAA DD DSN=A540769.TMP.T1, 00060004
// DISP=(NEW,CATLG,CATLG),UNIT=DISK, 00070001
// MGMTCLAS=COM#E000,DATACLAS=NULL6,STORCLAS=ALL$N, 00080003
// SPACE=(CYL,(2000,2000),RLSE), 00090004
// DCB=(RECFM=FB,LRECL=1024,BLKSIZE=2M) 00100004
}¢--- A540769.WK.JCL(ANAPOST) cre=2015-11-10 mod=2015-11-10-09.26.10 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// CLASS=M1,MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//STEPLI EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='%anaPost'
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//*YSPROC DD DISP=SHR,DSN=DSN.DB2.EXEC
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//SYSTSIN DD DUMMY
}¢--- A540769.WK.JCL(ASM) cre= mod=-. ------------------------------------------
//A540769A JOB (PVS47392,0000,,3653),'PVS-ASM',MSGCLASS=T
//*
//*MAIN CLASS=CMNA
//*
//*--------------------------------------------------------------------
//* COMPILE + LINK PVS-MODULE PVSVPMFT
//*--------------------------------------------------------------------
//E01 EXEC ASMPVS2,PARM.C='NODECK,OBJECT,LIST,SYSPARM(03.020)',
// PARM.L='AC=0,LET,MAP,LIST,XCAL,XREF,RENT'
//C.SYSIN DD DSN=A540769.WK.PLI(ASM2),DISP=SHR
//L.SYSLMOD DD DSN=A540769.WK.LOAD,DISP=SHR
//*.SYSLMID DD DSN=LNKA.RZ1A.LPGM,DISP=SHR
NAME ASM2(R)
/*
}¢--- A540769.WK.JCL(ASMR) cre= mod=-. -----------------------------------------
//A540769Y JOB (CP00,KE50) 00010000
//*MAIN CLASS=CMNA 00020000
//S1 EXEC PGM=ASM2 00030000
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LOAD 00040000
//DDIN DD DISP=SHR,DSN=A540769.WK.TEXT(EINS) 00050000
//OUTLIST DD SYSOUT=*,DCB=(RECFM=FB,LRECL=80) 00060000
//SYSPRINT DD SYSOUT=* 00070000
}¢--- A540769.WK.JCL(BEIXCR) cre=2011-05-27 mod=2011-05-31-16.34.15 A540769 ----
$#@
$=tx=4
$=qq=T
$=subsys=DBTF
$=cr=OA1${qq}0$tx
$=ts=BE01A1$qq.A010A0$tx
$=job=YBE010$tx
$;
$** $>.fSub()
$@=¢
//${job}C JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//***MAIN CLASS=$subsys
//*********************************************************************
//* create tbe010 secondary indexes
//* subsys = $subsys
//* creator = $cr
//* tablespace = $ts
//* jobs = ${job}C und ${job}S
//*********************************************************************
//DDL EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM($subsys)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
SET CURRENT SQLID = 'S100447';
ALTER INDEX $cr.IBE010A0
PRIQTY -1
SECQTY -1 ;
COMMIT;
CREATE INDEX $cr.IBE010A1
ON $cr.TBE010A1
(BE010001 ASC,
BE010002 ASC,
BE010089 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
CREATE INDEX $cr.IBE010A3
ON $cr.TBE010A1
(BE010001 ASC,
BE010002 ASC,
BE010034 ASC,
BE010054 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
// IF DDL.RC LE 4 THEN
//SUBRUN EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSUT1 DD *,DLM='eS'
//${job}S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=($subsys,'${job}S.RUNSTA'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//SYSIN DD *
RUNSTATS TABLESPACE $ts
SHRLEVEL CHANGE
INDEX($cr.IBE010A0 KEYCARD)
REPORT NO UPDATE ALL
eS
//REB EXEC PGM=DSNUTILB,
// PARM='$subsys,${job}C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=$subsys.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF C#LIST 00010000
INCLUDE INDEX $cr.IBE010A1 PARTLEVEL
INCLUDE INDEX $cr.IBE010A3 PARTLEVEL
REBUILD INDEX LIST C#LIST
SORTDEVT SYSDA
WORKDDN(TSYUTD)
SHRLEVEL REFERENCE
STATISTICS KEYCARD
REPORT NO UPDATE ALL
//*
// ENDIF
$!
$#out 20110531 15:56:17
//YBE0104C JOB (CP00,KE50), 0001000
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//***MAIN CLASS=DBTF
//*********************************************************************
//* create tbe010 secondary indexes
//* subsys = DBTF
//* creator = OA1T04
//* tablespace = BE01A1T.A010A04
//* jobs = YBE0104C und YBE0104S
//*********************************************************************
//DDL EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
SET CURRENT SQLID = 'S100447';
ALTER INDEX OA1T04.IBE010A0
PRIQTY -1
SECQTY -1 ;
COMMIT;
CREATE INDEX OA1T04.IBE010A1
ON OA1T04.TBE010A1
(BE010001 ASC,
BE010002 ASC,
BE010089 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
CREATE INDEX OA1T04.IBE010A3
ON OA1T04.TBE010A1
(BE010001 ASC,
BE010002 ASC,
BE010034 ASC,
BE010054 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
// IF DDL.RC LE 4 THEN
//SUBRUN EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSUT1 DD *,DLM='eS'
//YBE0104S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'YBE0104S.RUNSTA'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//SYSIN DD *
RUNSTATS TABLESPACE BE01A1T.A010A04
SHRLEVEL CHANGE
INDEX(OA1T04.IBE010A0 KEYCARD)
REPORT NO UPDATE ALL
eS
//REB EXEC PGM=DSNUTILB,
// PARM='DBTF,YBE0104C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF C#LIST 00010000
INCLUDE INDEX OA1T04.IBE010A1 PARTLEVEL
INCLUDE INDEX OA1T04.IBE010A3 PARTLEVEL
REBUILD INDEX LIST C#LIST
SORTDEVT SYSDA
WORKDDN(TSYUTD)
SHRLEVEL REFERENCE
STATISTICS KEYCARD
REPORT NO UPDATE ALL
//*
// ENDIF
$#out 20110531 15:52:47
$#out 20110531 15:41:01
$#out 20110531 12:56:46
//YBE0101C JOB (CP00,KE50), 0001000
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//***MAIN CLASS=DBTF
//*********************************************************************
//* create tbe010 secondary indexes
//* subsys = DBTF
//* creator = OA1T01
//* tablespace = BE01A1T.A010A01
//* jobs = YBE0101C und YBE0101S
//*********************************************************************
//DDL EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
SET CURRENT SQLID = 'S100447';
ALTER INDEX OA1T01.IBE010A0
PRIQTY -1
SECQTY -1 ;
COMMIT;
CREATE INDEX OA1T01.IBE010A1
ON OA1T01.TBE010A1
(BE010001 ASC,
BE010002 ASC,
BE010089 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
CREATE INDEX OA1T01.IBE010A3
ON OA1T01.TBE010A1
(BE010001 ASC,
BE010002 ASC,
BE010034 ASC,
BE010054 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
// IF DDL.RC LE 4 THEN
//SUBRUN EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSUT1 DD *,DLM='eS'
//YBE0101S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'YBE0101S.RUNSTA'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//SYSIN DD *
RUNSTATS TABLESPACE BE01A1T.A010A01
SHRLEVEL CHANGE
INDEX(OA1T01.IBE010A0 KEYCARD)
REPORT NO UPDATE ALL
eS
//REB EXEC PGM=DSNUTILB,
// PARM='DBTF,YBE0101C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF C#LIST 00010000
INCLUDE INDEX OA1T01.IBE010A1 PARTLEVEL
INCLUDE INDEX OA1T01.IBE010A3 PARTLEVEL
REBUILD INDEX LIST C#LIST
SORTDEVT SYSDA
WORKDDN(TSYUTD)
SHRLEVEL REFERENCE
STATISTICS KEYCARD
REPORT NO UPDATE ALL
//*
// ENDIF
$#out 20110531 12:05:14
$#out 20110531 11:55:22
$#out 20110530 09:20:26
$#out 20110530 09:19:48
}¢--- A540769.WK.JCL(BEIXREBI) cre=2011-05-31 mod=2011-05-31-15.53.40 A540769 ---
//YR15REBI JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S01 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SDF DD *
alter tablespace BE01A1T.A010A03;
alter tablespace BE01A1T.A010A04;
//SYSTSIN DD *
DSN SYS(DBTF)
-- generating rebinds in DBTF at 15:53:30 31/05/11 for A540769
-- for 2 tablespace, 0 table, 0 view, 0 index, 0 alias, 0 synonym
-- tablespace BE01A1T.A010A03
-- tablespace BE01A1T.A010A04
REBIND PACKAGE(BE03.BE5010.(VERB000193));
REBIND PACKAGE(BE03.BE5010.(VERB000197));
REBIND PACKAGE(BE03.BE5020.(VERB000171));
REBIND PACKAGE(BE03.BE5020.(VERB000176));
REBIND PACKAGE(BE03.BE5020.(VERB000186));
REBIND PACKAGE(BE03.BE5050.(VERB000171));
REBIND PACKAGE(BE03.BE5050.(VERB000186));
REBIND PACKAGE(BE03.BE5050.(VERB000193));
REBIND PACKAGE(BE03.BE5090.(VERB000171));
REBIND PACKAGE(BE03.BE5090.(VERB000174));
REBIND PACKAGE(BE03.BE5090.(VERB000186));
REBIND PACKAGE(BE03.BE5900.(VERB000171));
REBIND PACKAGE(BE03.BE5900.(VERB000176));
REBIND PACKAGE(BE03.BE5900.(VERB000186));
REBIND PACKAGE(BE03.BE5930.(VERB000176));
REBIND PACKAGE(BE03.BE5930.(VERB000179));
REBIND PACKAGE(BE03.BE5930.(VERB000186));
REBIND PACKAGE(BE03.BE5931.(VERB000142));
REBIND PACKAGE(BE03.BE5931.(VERB000144));
REBIND PACKAGE(BE03.BE5931.(VERB000153));
REBIND PACKAGE(BE03.BE5950.(VERB000171));
REBIND PACKAGE(BE03.BE5950.(VERB000176));
REBIND PACKAGE(BE03.BE5950.(VERB000186));
REBIND PACKAGE(BE03.BE7110.(VERB000186));
REBIND PACKAGE(BE03.BE7110.(VERB000188));
REBIND PACKAGE(BE03.BE7110.(VERB000192));
REBIND PACKAGE(BE03.BE7160.(VERB000171));
REBIND PACKAGE(BE03.BE7160.(VERB000176));
REBIND PACKAGE(BE03.BE7160.(VERB000192));
REBIND PACKAGE(BE03.BE7210.(VERB000176));
REBIND PACKAGE(BE03.BE7210.(VERB000186));
REBIND PACKAGE(BE03.BE7210.(VERB000192));
REBIND PACKAGE(BE03.YBE24.(VERB0001175766A933));
REBIND PACKAGE(BE03.YBE24.(VERB00012857DEA8FF));
REBIND PACKAGE(BE03.YBE24.(VERB00014258E20E97));
REBIND PACKAGE(BE03.YBE24.(VERB00015359BFD329));
REBIND PACKAGE(BE03.YBE24.(VERB0001575A242781));
REBIND PACKAGE(BE03.YBE24.(VERB0001575A242781MVS));
REBIND PACKAGE(BE03.YBE24.(VERB0001695C1F5978));
REBIND PACKAGE(BE03.YBE24.(VERB0001865F689A3D));
REBIND PACKAGE(BE03.YBE24.(VERB00019360606D56));
REBIND PACKAGE(BE03.YBE24.(VERB00019360AA0F24));
REBIND PACKAGE(BE03.YBE24.(VERB00019360AE6BBD));
REBIND PACKAGE(BE03.YBE27.(VERB0001175766AABF));
REBIND PACKAGE(BE03.YBE27.(VERB00012857DEAE17));
REBIND PACKAGE(BE03.YBE27.(VERB000136586CB26E));
REBIND PACKAGE(BE03.YBE27.(VERB00014158514075));
REBIND PACKAGE(BE03.YBE27.(VERB00014258E20F9F));
REBIND PACKAGE(BE03.YBE27.(VERB00015359BFD32A));
REBIND PACKAGE(BE03.YBE27.(VERB0001575A2427DC));
REBIND PACKAGE(BE03.YBE27.(VERB0001575A2427DCMVS));
REBIND PACKAGE(BE03.YBE27.(VERB0001695C1F599E));
REBIND PACKAGE(BE03.YBE27.(VERB0001865F689A5B));
REBIND PACKAGE(BE03.YBE27.(VERB00019360AA1789));
REBIND PACKAGE(BE03.YBEM01.(VERB0001175766953E));
REBIND PACKAGE(BE03.YBEM01.(VERB00015359A28ECB));
REBIND PACKAGE(BE03.YBEM01.(VERB00015359A28ECBMVS));
REBIND PACKAGE(BE03.YBEM01.(VERB0001695C1F728B));
REBIND PACKAGE(BE03.YBEM01.(VERB0001865F689860));
REBIND PACKAGE(BE03.YBEM02.(VERB0001175766A3B8));
REBIND PACKAGE(BE03.YBEM02.(VERB00012857DFFA0A));
REBIND PACKAGE(BE03.YBEM02.(VERB000136588DC56A));
REBIND PACKAGE(BE03.YBEM02.(VERB00014258E298F0));
REBIND PACKAGE(BE03.YBEM02.(VERB00015359C76B0A));
REBIND PACKAGE(BE03.YBEM02.(VERB00015359C76B0AMVS));
REBIND PACKAGE(BE03.YBEM02.(VERB0001585AAE655A));
REBIND PACKAGE(BE03.YBEM02.(VERB0001585AAE655AMVS));
REBIND PACKAGE(BE03.YBEM02.(VERB0001605AFD2B7C));
REBIND PACKAGE(BE03.YBEM02.(VERB0001605B1E4D38));
REBIND PACKAGE(BE03.YBEM02.(VERB0001625BACF55A));
REBIND PACKAGE(BE03.YBEM02.(VERB0001695C16133A));
REBIND PACKAGE(BE03.YBEM02.(VERB0001805E735A4A));
REBIND PACKAGE(BE03.YBEM02.(VERB00019360AFB7A3));
REBIND PACKAGE(BE03.YBER02.(VERB0001175767A3E9));
REBIND PACKAGE(BE03.YBER02E.(VERB000146));
REBIND PACKAGE(BE03.YBER02E.(VERB000169));
REBIND PACKAGE(BE03.YBER02E.(VERB000186));
REBIND PACKAGE(BE03.YBER02E.(VERB000193));
REBIND PACKAGE(BE03.YBER02F.(VERB000136));
REBIND PACKAGE(BE03.YBER02F.(VERB000146));
REBIND PACKAGE(BE04.BE5010.(VERB000193));
REBIND PACKAGE(BE04.BE5010.(VERB000197));
REBIND PACKAGE(BE04.BE5020.(VERB000171));
REBIND PACKAGE(BE04.BE5020.(VERB000176));
REBIND PACKAGE(BE04.BE5020.(VERB000186));
REBIND PACKAGE(BE04.BE5050.(VERB000171));
REBIND PACKAGE(BE04.BE5050.(VERB000186));
REBIND PACKAGE(BE04.BE5050.(VERB000193));
REBIND PACKAGE(BE04.BE5090.(VERB000171));
REBIND PACKAGE(BE04.BE5090.(VERB000174));
REBIND PACKAGE(BE04.BE5090.(VERB000186));
REBIND PACKAGE(BE04.BE5900.(VERB000171));
REBIND PACKAGE(BE04.BE5900.(VERB000176));
REBIND PACKAGE(BE04.BE5900.(VERB000186));
REBIND PACKAGE(BE04.BE5930.(VERB000176));
REBIND PACKAGE(BE04.BE5930.(VERB000179));
REBIND PACKAGE(BE04.BE5930.(VERB000186));
REBIND PACKAGE(BE04.BE5931.(VERB000142));
REBIND PACKAGE(BE04.BE5931.(VERB000144));
REBIND PACKAGE(BE04.BE5931.(VERB000153));
REBIND PACKAGE(BE04.BE5950.(VERB000171));
REBIND PACKAGE(BE04.BE5950.(VERB000176));
REBIND PACKAGE(BE04.BE5950.(VERB000186));
REBIND PACKAGE(BE04.BE7110.(VERB000186));
REBIND PACKAGE(BE04.BE7110.(VERB000188));
REBIND PACKAGE(BE04.BE7110.(VERB000192));
REBIND PACKAGE(BE04.BE7160.(VERB000171));
REBIND PACKAGE(BE04.BE7160.(VERB000176));
REBIND PACKAGE(BE04.BE7160.(VERB000192));
REBIND PACKAGE(BE04.BE7210.(VERB000176));
REBIND PACKAGE(BE04.BE7210.(VERB000186));
REBIND PACKAGE(BE04.BE7210.(VERB000192));
REBIND PACKAGE(BE04.YBE24.(VERB0001175766A933));
REBIND PACKAGE(BE04.YBE24.(VERB00012857DEA8FF));
REBIND PACKAGE(BE04.YBE24.(VERB00014258E20E97));
REBIND PACKAGE(BE04.YBE24.(VERB00015359BFD329));
REBIND PACKAGE(BE04.YBE24.(VERB0001575A242781));
REBIND PACKAGE(BE04.YBE24.(VERB0001575A242781MVS));
REBIND PACKAGE(BE04.YBE24.(VERB0001695C1F5978));
REBIND PACKAGE(BE04.YBE24.(VERB0001865F689A3D));
REBIND PACKAGE(BE04.YBE24.(VERB00019360606D56));
REBIND PACKAGE(BE04.YBE24.(VERB00019360AA0F24));
REBIND PACKAGE(BE04.YBE24.(VERB00019360AE6BBD));
REBIND PACKAGE(BE04.YBE27.(VERB0001175766AABF));
REBIND PACKAGE(BE04.YBE27.(VERB00012857DEAE17));
REBIND PACKAGE(BE04.YBE27.(VERB000136586CB26E));
REBIND PACKAGE(BE04.YBE27.(VERB00014158514075));
REBIND PACKAGE(BE04.YBE27.(VERB00014258E20F9F));
REBIND PACKAGE(BE04.YBE27.(VERB00015359BFD32A));
REBIND PACKAGE(BE04.YBE27.(VERB0001575A2427DC));
REBIND PACKAGE(BE04.YBE27.(VERB0001575A2427DCMVS));
REBIND PACKAGE(BE04.YBE27.(VERB0001695C1F599E));
REBIND PACKAGE(BE04.YBE27.(VERB0001865F689A5B));
REBIND PACKAGE(BE04.YBE27.(VERB00019360AA1789));
REBIND PACKAGE(BE04.YBEM01.(VERB0001175766953E));
REBIND PACKAGE(BE04.YBEM01.(VERB00015359A28ECB));
REBIND PACKAGE(BE04.YBEM01.(VERB00015359A28ECBMVS));
REBIND PACKAGE(BE04.YBEM01.(VERB0001695C1F728B));
REBIND PACKAGE(BE04.YBEM01.(VERB0001865F689860));
REBIND PACKAGE(BE04.YBEM02.(VERB0001175766A3B8));
REBIND PACKAGE(BE04.YBEM02.(VERB00012857DFFA0A));
REBIND PACKAGE(BE04.YBEM02.(VERB000136588DC56A));
REBIND PACKAGE(BE04.YBEM02.(VERB00014258E298F0));
REBIND PACKAGE(BE04.YBEM02.(VERB00015359C76B0A));
REBIND PACKAGE(BE04.YBEM02.(VERB00015359C76B0AMVS));
REBIND PACKAGE(BE04.YBEM02.(VERB0001585AAE655A));
REBIND PACKAGE(BE04.YBEM02.(VERB0001585AAE655AMVS));
REBIND PACKAGE(BE04.YBEM02.(VERB0001605AFD2B7C));
REBIND PACKAGE(BE04.YBEM02.(VERB0001605B1E4D38));
REBIND PACKAGE(BE04.YBEM02.(VERB0001625BACF55A));
REBIND PACKAGE(BE04.YBEM02.(VERB0001695C16133A));
REBIND PACKAGE(BE04.YBEM02.(VERB0001805E735A4A));
REBIND PACKAGE(BE04.YBEM02.(VERB00019360AFB7A3));
REBIND PACKAGE(BE04.YBER02.(VERB0001175767A3E9));
REBIND PACKAGE(BE04.YBER02E.(VERB000146));
REBIND PACKAGE(BE04.YBER02E.(VERB000169));
REBIND PACKAGE(BE04.YBER02E.(VERB000186));
REBIND PACKAGE(BE04.YBER02E.(VERB000193));
REBIND PACKAGE(BE04.YBER02F.(VERB000136));
REBIND PACKAGE(BE04.YBER02F.(VERB000146));
}¢--- A540769.WK.JCL(BEIXRUN) cre=2011-05-27 mod=2011-05-27-16.42.20 A540769 ---
//A540769R JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769R.RUNSTA'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//SYSIN DD *
RUNSTATS TABLESPACE BE01A1A.A010A01
SHRLEVEL CHANGE
INDEX(OA1A01.IBE010A0 KEYCARD)
REPORT NO UPDATE ALL
}¢--- A540769.WK.JCL(BETA92EX) cre=2012-03-13 mod=2012-03-20-11.36.53 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG 00040000
//********************************************************************* 00050000
//* PROCESS HISTORY MANAGER (BETA 92 - V4R4) * 00060000
//* (C) COPYRIGHT BETA SYSTEMS SOFTWARE AG, 2009 * 00070000
//* ----------------------------------------------------------------- * 00080000
//* THIS JOB PRINTS SELECTED SYSOUT LISTS FROM THE ONLINE LIST * 00090000
//* DATA SET(S). * 00100000
//********************************************************************* 00110000
//PRINT EXEC PGM=BST01RFF,REGION=0M, 00120000
// PARM=('S=92,B01LST=00,B92LST=00', 00130000
// 'PGM=B92PRINT') 00140000
//* 00150000
//STEPLIB DD DISP=SHR, 00160000
// DSN=BSA.U0000.P0.RZ1I.LOAD 00170001
// DD DISP=SHR, 00180000
// DSN=B92.U0000.P0.RZ1I.LOAD 00190001
//* 00200000
//B92DEF DD DUMMY 00210000
//* 00220000
//SFFPARM DD DISP=SHR, 00230000
// DSN=BSA.U0000.P0.RZ1I.PARM 00240001
//* 00250000
//SFFFDUMP DD SYSOUT=* 00260000
//SYSUDUMP DD SYSOUT=* 00270000
//OMSPRINT DD SYSOUT=* 00280000
//B92LOG DD SYSOUT=* 00290000
//* 00300000
//SYSIN DD * 00310000
PRINT 00320000
SDATE(18.03.2012) 00330003
PDATE(19.03.2012) 00340003
MASK(DD.MM.YYYY) 00350000
JOBNAME(QR*S) 00360001
SCOPE(BOTH) 00370000
DISPOSITION(SHR) 00380000
DATASET(A540769.TMP.TEXV(BETA0318)) 00390003
}¢--- A540769.WK.JCL(BIND) cre=2006-03-13 mod=2012-09-14-15.20.15 A540769 ------
//A540769B JOB (BAN45833,9999,,9904),TSOJOB,
// TIME=1,REGION=4M,MSGCLASS=T
//*MAIN CLASS=LOG SYSTEM=S12
//*
//* LIBRARY(PCL.U0000.P0.RZ4AKT.PERM.@008.DBR) -
//* LIBRARY('CMN.DIV.P0.QMSW.#000010.DBR') -
//* LIBRARY('PCL.U0000.P0.RZ4AKT.PERM.@008.DBR') -
//*
//E01 EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//DBRMLIB DD DISP=SHR,DSN=A540769.WK.DBRM
//*BRMLIB DD DISP=SHR,DSN=CMN.ER0#.F1209140.INSTALL.RZ2.DBR
//*BRMLIB DD DISP=SHR,DSN=CMN.SKA.P0.BPKG.#000033.DBR
//SYSTSIN DD *
DSN S(DBTF)
BIND PACKAGE(WALTER) OWNER(CMNBATCH) QUALIFIER(OA1T) -
MEMBER(YBVBUCS) CURRENTDATA(NO) DEGREE(1) DYNAMICRULES(BIND) -
explain(YES) FLAG(I) ISOLATION(CS) SQLERROR(NOPACKAGE) -
VALIDATE(BIND) ACTION(REPLACE)
}¢--- A540769.WK.JCL(BINDJCL) cre=2015-02-04 mod=2015-02-04-08.20.32 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//STEPLI EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='BINDCMN EXE'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=TSO.RZ4.P0.PROD.EXEC
//BINDRES DD DISP=SHR,DSN=A540769.WK.TEXV(BINDRES)
//BINDERR DD DISP=SHR,DSN=A540769.WK.TEXV(BINDERR)
//BIND DD *
/* beginRzPgm RQ2/DBOF appl@04.02.2015 SV5201
/* 1 binds in 1 locations
/* id 140911 t A540769@2015-02-04-08.11.02.804117
dsn system(DBOF)
bind package(SV) -
member(SV5201) -
qualifier(OA1P) -
OWNER(CMNBATCH) -
ISOLATION(CS) -
DEGREE(1) -
DYNAMICRULES(BIND) -
VALIDATE(BIND) -
EXPLAIN(YES) -
FLAG(I) -
sqlError(noPackage) -
action(replace) -
/* end RQ2/DBOF appl@04.02.2015 .SV.SV5201
end
}¢--- A540769.WK.JCL(BINDTEST) cre=2014-09-03 mod=2014-09-03-15.33.20 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
// SET PKG=CMN.DIV.P0.DB2J.#000223 00041001
//E01 EXEC PGM=IKJEFT01,DYNAMNBR=30 00049000
//SYSTSPRT DD SYSOUT=* 00049100
//DBRMLIB DD DISP=SHR,DSN=&PKG..DBR 00049200
//SYSTSIN DD * 00049500
DSN S(DP4G) 00049600
BIND PACKAGE(QZ) - 00049700
OWNER(CMNBATCH) - 00049800
QUALIFIER(OA1A) - 00049900
MEMBER(QZNZGFM) - 00050001
CURRENTDATA(NO) - 00050100
DEGREE(1) - 00050200
DYNAMICRULES(BIND) - 00050300
EXPLAIN(YES) - 00050400
FLAG(I) - 00050500
ISOLATION(CS) - 00050600
SQLERROR(NOPACKAGE) - 00050700
VALIDATE(BIND) - 00050800
ACTION(REPLACE) 00050900
}¢--- A540769.WK.JCL(BINDTES2) cre= mod=-. -------------------------------------
/* beginRzPgm RQ2/DBOF appl@04.02.2015 SV5201
/* 1 binds in 1 locations
/* id 140911 t A540769@2015-02-04-08.11.02.804117
dsn system(DBOF)
bind package(SV) -
member(SV5201) -
qualifier(OA1P) -
OWNER(CMNBATCH) -
ISOLATION(CS) -
DEGREE(1) -
DYNAMICRULES(BIND) -
VALIDATE(BIND) -
EXPLAIN(YES) -
FLAG(I) -
sqlError(noPackage) -
action(replace) -
/* end RQ2/DBOF appl@04.02.2015 .SV.SV5201
end
}¢--- A540769.WK.JCL(BINPARCV) cre=2008-07-01 mod=2008-07-01-16.17.19 F540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//*********************************************************************
//*
//* synchronize bind_parameters from RZ1 to RZ8
//* this job is submitted by job BINPASND from RZ1 to RZ8
//*
//* load data from unload Files DSN.DBOC.BIND.* in RZ8
//* to RZ8 DP8G, tables
//* OA1P.BIND_PARAMETERS
//* OA1P.BIND_EXCEPTIONS
//* Attention BIND_##INFO## is NOT loaded
//* BIND_ENVIRONMENTS is NOT loaded
//* Job BINPARCV must be updated (in RZ1) after structure changes
//*
//*********************************************************************
//* UNLOAD COPY
//***************************************************
//S3 EXEC PGM=DSNUTILB,PARM=(DP8G,'A540769V.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//PARUNL DD DISP=SHR,DSN=DSN.DBOC.BIND.PAR.UNL
//EXCUNL DD DISP=SHR,DSN=DSN.DBOC.BIND.EXC.UNL
//SYSTEMPL DD DISP=SHR,DSN=DP8G.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LOAD DATA INDDN PARUNL LOG NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE ALL
WORKDDN(TSYUTD,TSOUTD)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 2475
INTO TABLE "OA1P"."BIND_PARAMETERS"
WHEN(00001:00002) = X'0011'
( "APPL"
POSITION( 00003:00010) CHAR(00008)
, "PGM"
POSITION( 00011:00018) CHAR(00008)
, "COLLID"
POSITION( 00019:00036) CHAR(00018)
, "INSTALLDATE"
POSITION( 00037:00046) DATE EXTERNAL
, "OWNER"
POSITION( 00047:00054) CHAR(00008)
, "QUALIFIER"
POSITION( 00055:00062) CHAR(00008)
, "ISOLATION"
POSITION( 00063:00064) CHAR(00002)
, "EXPLAIN"
POSITION( 00065:00068) CHAR(00004)
, "CURRENTDATA"
POSITION( 00069:00072) CHAR(00004)
, "RELEASE"
POSITION( 00073:00084) CHAR(00012)
, "DBPROTOCOL"
POSITION( 00085:00092) CHAR(00008)
, "DEGREE"
POSITION( 00093:00096) CHAR(00004)
, "DYNAMICRULES"
POSITION( 00097:00108) CHAR(00012)
, "KEEPDYNAMIC"
POSITION( 00109:00112) CHAR(00004)
, "REOPT"
POSITION( 00113:00120) CHAR(00008)
, "OPTHINT"
POSITION( 00121:00128) CHAR(00008)
, "IMMEDWRITE"
POSITION( 00129:00132) CHAR(00004)
, "FLAG"
POSITION( 00133:00133) CHAR(00001)
, "PATH"
POSITION( 00134:00389) VARCHAR
, "VALIDATE"
POSITION( 00390:00393) CHAR(00004)
, "SQLERROR"
POSITION( 00394:00405) CHAR(00012)
, "SQLRULES"
POSITION( 00406:00417) CHAR(00012)
, "DEFER"
POSITION( 00418:00425) CHAR(00008)
, "ENCODING"
POSITION( 00426:00433) CHAR(00008)
, "ROUNDING"
POSITION( 00434:00445) CHAR(00012)
, "CREATEDTS"
POSITION( 00446:00471) TIMESTAMP EXTERNAL
, "ALTEREDTS"
POSITION( 00472:00497) TIMESTAMP EXTERNAL
, "ALTEREDBY"
POSITION( 00498:00505) CHAR(00008)
)
LOAD DATA INDDN EXCUNL LOG NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE ALL
WORKDDN(TSYUTD,TSOUTD)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 192
INTO TABLE "OA1P"."BIND_EXCEPTIONS"
WHEN(00001:00002) = X'0024'
( "APPL"
POSITION( 00003:00010) CHAR(00008)
, "PGM"
POSITION( 00011:00018) CHAR(00008)
, "COLLID"
POSITION( 00019:00036) CHAR(00018)
, "INSTALLDATE"
POSITION( 00037:00046) DATE EXTERNAL
, "LOCATION"
POSITION( 00047:00062) CHAR(00016)
, "SSID"
POSITION( 00063:00070) CHAR(00008)
, "QUALIFIER"
POSITION( 00071:00078) CHAR(00008)
, "CREATEDTS"
POSITION( 00079:00104) TIMESTAMP EXTERNAL
, "ALTEREDTS"
POSITION( 00105:00130) TIMESTAMP EXTERNAL
, "ALTEREDBY"
POSITION( 00131:00138) CHAR(00008)
)
}¢--- A540769.WK.JCL(BINPASND) cre=2008-07-01 mod=2008-07-01-16.17.32 F540769 ---
//YBINPASN JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*********************************************************************
//*
//* synchronize bind_parameters from RZ1 to RZ8
//*
//* unload data from rz1 dboc tables
//* OA1P.BIND_PARAMETERS
//* OA1P.BIND_EXCEPTIONS
//* to unload Files DSN.DBOC.BIND.* in RZ8
//* and submit in RZ8 the job BINPARCV (from RZ1)
//* which load replace these files into the tables in DP8G
//*
//* Attention BIND_##INFO## is NOT loaded
//* BIND_ENVIRONMENTS is NOT loaded
//* Job BINPARCV must be updated (in RZ1) after structure changes
//*
//*********************************************************************
//S2 EXEC PGM=IEFBR14
//EXCUNL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.DBOC.BIND.EXC.UNL,
// SUBSYS=(CSM,'SYSTEM=RZ8')
//PARUNL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.DBOC.BIND.PAR.UNL,
// SUBSYS=(CSM,'SYSTEM=RZ8')
//S3 EXEC PGM=DSNUTILB,PARM=(DBOC,'YBINPASN.UNLOA')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//PARPUN DD SYSOUT=*
//PARUNL DD DISP=(NEW,CATLG,CATLG),DSN=DSN.DBOC.BIND.PAR.UNL,
// MGMTCLAS=BAT#AT,
// SUBSYS=(CSM,'SYSTEM=RZ8')
//EXCPUN DD SYSOUT=*
//EXCUNL DD DISP=(NEW,CATLG,CATLG),DSN=DSN.DBOC.BIND.EXC.UNL,
// MGMTCLAS=BAT#AT,
// SUBSYS=(CSM,'SYSTEM=RZ8')
//SYSIN DD *
UNLOAD DATA FROM TABLE OA1P.BIND_PARAMETERS
PUNCHDDN PARPUN UNLDDN PARUNL
SHRLEVEL CHANGE
UNLOAD DATA FROM TABLE OA1P.BIND_EXCEPTIONS
PUNCHDDN EXCPUN UNLDDN EXCUNL
SHRLEVEL CHANGE
//S4 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=A540769.WK.JCL(BINPARCV)
//SYSUT2 DD SUBSYS=(CSM,'SYSTEM=RZ8,SYSOUT=(A,INTRDR)')
}¢--- A540769.WK.JCL(BMCANA) cre=2011-12-12 mod=2011-12-12-17.42.50 A540769 ----
//A540769W JOB (CP00,KE50),'DB2 BMC',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 12/12/2011.17.39.08
//* ENVIRONMENT: ISPF 6.1MVS TSO
//* RELEASE : V10.01.00 04/08/2011
//* DB2 VERSION: 09015
//***************************************************
//*-------------------------------------------------------------------
//* BMC CHANGE MANAGER ANALYSIS
//*-------------------------------------------------------------------
//ANALYSIS EXEC PGM=ALUAMAIN,
// REGION=0M,
// PARM='ACMDOPD1'
//STEPLIB DD DSN=DSN.BMC.BMCLINK,DISP=SHR
// DD DSN=MVIEW.PLEXA.S13.BMCLINK,DISP=SHR
//ABNLIGNR DD DUMMY
//SYSUDUMP DD SYSOUT=*
//********************************************************
//**** SAMPLE SYSMDUMP JCL ********
//**** PLEASE REPLACE THE DSN AND UNIT WITH ONES THAT FITS
//**** YOUR SHOP STANDARDS AND UNCOMMENT THE JCL
//*SYSMDUMP DD DSN=CUSTOMER.SYSMDUMP,DISP=(,CATLG,CATLG),UNIT=XXXXXXX,
//* SPACE=(CYL,(50,50),RLSE),LRECL=4160,BLKSIZE=4160
//********************************************************
//ALUPRINT DD SYSOUT=*
//AJXPOFVL DD DUMMY
//ALUIN DD *
SSID DBAF
WORKID A540769.NEW9119ZWEI
INCLUDE (DATA SQL AMS REBIND )
SORTDEVT SYSDA
SMSINCLUDE ( )
IBMREBUILD
STANDALONESTATS DB2STATSUPD NOTABLEALL
HISTORYALL
IBMCOPY
IBMLOAD NOUTILCOPY
NODYNUNLD
NODYNCOPY
NOPARTCOPY
COPYDDN (COPY01 )
NOREGENIDENTITY
NOVVALPROP
IBMUNLOAD
IBMREORG IBMCHECK
SYNCPOINT 10
NODBRMLIB
ORDERBY
UNLOADTABLE
UNLOADEMPTY
NOSTOPCOMMIT
TABLEACCESS
NOPARALLEL
NOREORGONLINE
NOKEYCARD
REORGALL
REORGREF
//* POF INPUT FILE AJXAPOF
//* THE KEYWORDS MUST START IN COLUMN 1
//AJXPOFIN DD *
ACM_WLORDER=
ACM_WLORDERMSG=
BLRP_DATACLASS_ALT=
BLRP_DATACLASS=
BLRP_EXPDT=
BLRP_MGMTCLASS_ALT=
BLRP_MGMTCLASS=
BLRP_PREFIX=&PREFIX..&OBNOD
BLRP_PRIQTY=10
BLRP_RETPD=
BLRP_SECQTY=2
BLRP_STACK=N
BLRP_STORCLASS_ALT=
BLRP_STORCLASS=
BLRP_THRESH=0
BLRP_UNIT_ALT=
BLRP_UNIT=SYSDA
BMC_REORG_XBMID=
DEF_GDG_BASE=N
DEF_GDG_LIMIT=10
DEF_GDG2_LIMIT=10
DEF_GDG_NOSCR = N
DIAG_MSGCLASS=
DISC_DATACLASS_ALT=
DISC_DATACLASS=
DISC_EXPDT=
DISC_MGMTCLASS_ALT=
DISC_MGMTCLASS=
DISC_PREFIX=&PREFIX..&OBNOD
DISC_PRIQTY=10
DISC_RETPD=
DISC_SECQTY=2
DISC_STORCLASS_ALT=
DISC_STORCLASS=
DISC_THRESH=0
DISC_UNIT_ALT=
DISC_UNIT=SYSDA
GDG_MODEL=SYS1.MODEL
PCPY1_DATACLASS_ALT=
PCPY1_DATACLASS=
PCPY1_EXPDT=
PCPY1_MGMTCLASS_ALT=
PCPY1_MGMTCLASS=
PCPY1_PREFIX=&PREFIX..&OBNOD..P&PART
PCPY1_PRIQTY=10
PCPY1_RETPD=
PCPY1_SECQTY=2
PCPY1_STACK=N
PCPY1_STORCLASS=
PCPY1_STORCLASS_ALT=
PCPY1_SUPPRESS_SUFF=N
PCPY1_THRESH=0
PCPY1_UNIT_ALT=
PCPY1_UNIT=SYSDA
PCPY2_DATACLASS_ALT=
PCPY2_DATACLASS=
PCPY2_EXPDT=
PCPY2_MGMTCLASS_ALT=
PCPY2_MGMTCLASS=
PCPY2_PREFIX=&PREFIX..&OBNOD..P&PART
PCPY2_PRIQTY=10
PCPY2_RETPD=
PCPY2_SECQTY=2
PCPY2_STACK=N
PCPY2_STORCLASS=
PCPY2_STORCLASS_ALT=
PCPY2_SUPPRESS_SUFF=N
PCPY2_THRESH=0
PCPY2_UNIT_ALT=
PCPY2_UNIT=SYSDA
RCPY1_DATACLASS_ALT=
RCPY1_DATACLASS=
RCPY1_EXPDT=
RCPY1_MGMTCLASS_ALT=
RCPY1_MGMTCLASS=
RCPY1_PREFIX=&PREFIX..&OBNOD..P&PART
RCPY1_PRIQTY=10
RCPY1_RETPD=
RCPY1_SECQTY=2
RCPY1_STACK=N
RCPY1_STORCLASS=
RCPY1_STORCLASS_ALT=
RCPY1_SUPPRESS_SUFF=N
RCPY1_THRESH=0
RCPY1_UNIT_ALT=
RCPY1_UNIT=SYSDA
RCPY2_DATACLASS_ALT=
RCPY2_DATACLASS=
RCPY2_EXPDT=
RCPY2_MGMTCLASS_ALT=
RCPY2_MGMTCLASS=
RCPY2_PREFIX=&PREFIX..&OBNOD..P&PART
RCPY2_PRIQTY=10
RCPY2_RETPD=
RCPY2_SECQTY=2
RCPY2_STACK=N
RCPY2_STORCLASS=
RCPY2_STORCLASS_ALT=
RCPY2_SUPPRESS_SUFF=N
RCPY2_THRESH=0
RCPY2_UNIT_ALT=
RCPY2_UNIT=SYSDA
REORG_MAPTAB=
SRTOUT_DATACLASS_ALT=
SRTOUT_DATACLASS=
SRTOUT_EXPDT=
SRTOUT_MGMTCLASS_ALT=
SRTOUT_MGMTCLASS=
SRTOUT_PREFIX=&PREFIX..&WKID..&STEPN
SRTOUT_PRIQTY=10
SRTOUT_RETPD=
SRTOUT_SECQTY=2
SRTOUT_STORCLASS_ALT=
SRTOUT_STORCLASS=
SRTOUT_THRESH=0
SRTOUT_UNIT_ALT=
SRTOUT_UNIT=SYSDA
SYSUT_DATACLASS_ALT=
SYSUT_DATACLASS=
SYSUT_EXPDT=
SYSUT_MGMTCLASS_ALT=
SYSUT_MGMTCLASS=
SYSUT_PREFIX=&PREFIX..&WKID..&STEPN
SYSUT_PRIQTY=10
SYSUT_RETPD=
SYSUT_SECQTY=2
SYSUT_STORCLASS_ALT=
SYSUT_STORCLASS=
SYSUT_THRESH=0
SYSUT_UNIT_ALT=
SYSUT_UNIT=SYSDA
TAPE_EXPDT=
TAPE_RETPD=
TAPE_VOLCNT=99
TAPE1=CART
TAPE2=TAPE
TAPE3=TAPE
TEMPUNIT=SYSDA
UNLD1_DATACLASS_ALT=
UNLD1_DATACLASS=
UNLD1_EXPDT=
UNLD1_MGMTCLASS_ALT=
UNLD1_MGMTCLASS=
UNLD1_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD1_PRIQTY=10
UNLD1_RETPD=
UNLD1_SECQTY=2
UNLD1_STACK=N
UNLD1_STORCLASS_ALT=
UNLD1_STORCLASS=
UNLD1_THRESH=0
UNLD1_UNIT_ALT=
UNLD1_UNIT=SYSDA
UNLD2_DATACLASS_ALT=
UNLD2_DATACLASS=
UNLD2_EXPDT=
UNLD2_MGMTCLASS_ALT=
UNLD2_MGMTCLASS=
UNLD2_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD2_PRIQTY =10
UNLD2_RETPD=
UNLD2_SECQTY =2
UNLD2_STACK=N
UNLD2_STORCLASS_ALT=
UNLD2_STORCLASS=
UNLD2_THRESH=0
UNLD2_UNIT_ALT=
UNLD2_UNIT=SYSDA
UNLD3_DATACLASS=
UNLD3_EXPDT=
UNLD3_MGMTCLASS=
UNLD3_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD3_RETPD=
UNLD3_STORCLASS=
UNLD3_UNIT=SYSDA
UNLD4_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD4_STORCLASS=
UNLD4_UNIT=SYSDA
UNLD4_MGMTCLASS=
UNLD4_DATACLASS=
UNLD_FREF_DATACLASS=
UNLD_FREF_MGMTCLASS=
UNLD_FREF_PREFIX=&PREFIX..&MSSID..&WORKID8
UNLD_FREF_STORCLASS=
UNLD_FREF_UNIT=SYSDA
UNLD_FREF_PRIQTY=10
UNLD_FREF_DIRBLOCK=250
UNLD_FREF_SECQTY=2
USER_VAR1_CHAR=
USER_VAR2_CHAR=
USER_VAR3_CHAR=
USER_VAR4_CHAR=
USER_VAR5_CHAR=
//WORKL001 DD DISP=SHR,
// DSN=A540769.BMC.WSL(NEW9119Z)
//*--------------------------------------------------------------------
//* END OF JOB
//*--------------------------------------------------------------------
}¢--- A540769.WK.JCL(BMCCOM) cre=2011-12-15 mod=2011-12-15-10.09.57 A540769 ----
//A540769W JOB (CP00,KE50),'DB2 BMC',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 12/15/2011.10.09.39
//* ENVIRONMENT: ISPF 6.1MVS TSO
//* RELEASE : V10.01.00 04/08/2011
//* DB2 VERSION: 09015
//***************************************************
//*--------------------------------------------------------------------
//* BMC CHANGE MANAGER COMPARE
//*--------------------------------------------------------------------
//COMPARE1 EXEC PGM=ACMCMAN,
// REGION=0M,PARM='ACMDOPD1',
// COND=(4,LT)
//STEPLIB DD DSN=DSN.BMC.BMCLINK,DISP=SHR
// DD DSN=MVIEW.PLEXA.S13.BMCLINK,DISP=SHR
//ABNLIGNR DD DUMMY
//ALUPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//********************************************************
//**** SAMPLE SYSMDUMP JCL ********
//**** PLEASE REPLACE THE DSN AND UNIT WITH ONES THAT FITS
//**** YOUR SHOP STANDARDS AND UNCOMMENT THE JCL
//*SYSMDUMP DD DSN=CUSTOMER.SYSMDUMP,DISP=(,CATLG,CATLG),UNIT=XXXXXXX,
//* SPACE=(CYL,(50,50),RLSE),LRECL=4160,BLKSIZE=4160
//********************************************************
//CDL001 DD DISP=SHR,
// DSN=A540769.BMC.WSL(WK401)
//ALUIN DD *
SSID DBAF
CMPTYPE1 LOCAL
CMPTYPE2 LOCAL
CDLCHANGERULES TX.DBTWAL3
SCOPETYPE PROFILES:BASELINE,BASELINE
SCOPE1 DBXAUFTR.WK401D3C_SRC
SCOPE2 DBXAUFTR.WK401D3C_TRG
INCLUDE( CDLDEP ALTER CREATE DROP)
REPORT (DETAIL)
CHANGERULESIN2 TX.DBTWAL3
NODEFINE
SHOWRULES
//*--------------------------------------------------------------------
//* END OF JOB
//*--------------------------------------------------------------------
}¢--- A540769.WK.JCL(BMCCOMP) cre=2011-12-12 mod=2011-12-12-08.05.46 A540769 ---
//JOBC JOB (CP00,KE50),'COMPARE-NOWORKID',
// CLASS=A,MSGLEVEL=(1,1)
//*
//*
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 12/08/2011.13.51.46
//* ENVIRONMENT: ISPF 6.1MVS TSO
//* RELEASE : V10.01.00 04/08/2011
//* DB2 VERSION: 09015
//***************************************************
//*--------------------------------------------------------------------
//* BMC CHANGE MANAGER COMPARE
//*--------------------------------------------------------------------
//COMPARE1 EXEC PGM=ACMCMAN,
// REGION=0M,PARM='ACMDOPD1',
// COND=(4,LT)
//STEPLIB DD DSN=DSN.BMC.BMCLINK,DISP=SHR
//ABNLIGNR DD DUMMY
//ALUPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//********************************************************
//**** SAMPLE SYSMDUMP JCL ********
//**** PLEASE REPLACE THE DSN AND UNIT WITH ONES THAT FITS
//**** YOUR SHOP STANDARDS AND UNCOMMENT THE JCL
//*SYSMDUMP DD DSN=CUSTOMER.SYSMDUMP,DISP=(,CATLG,CATLG),UNIT=XXXXXXX,
//* SPACE=(CYL,(50,50),RLSE),LRECL=4160,BLKSIZE=4160
//********************************************************
//CDL001 DD DISP=SHR,
// DSN=A540769.BMC.CDL(CDL)
//ALUIN DD *
SSID DBAF
CMPTYPE1 LOCAL
CMPTYPE2 LOCAL
SCOPETYPE RULE
INCLUDE( ALTER CREATE DROP)
SCOPERULE1 (* TS DA540769.A404A
* TS DA540769.A401A)
SCOPERULE2 (* TS DGDB9998.A404A
* TS DGDB9998.A401A)
NODATABASE
NOTABLESPACE
NOSYNONYM
NOALIAS
NODEFINE
//*--------------------------------------------------------------------
//* END OF JOB
//*--------------------------------------------------------------------
}¢--- A540769.WK.JCL(BMCIMP) cre=2011-12-12 mod=2011-12-12-17.42.27 A540769 ----
//A540769W JOB (CP00,KE50),'DB2 BMC',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 12/12/2011.17.24.38
//* ENVIRONMENT: ISPF 6.1MVS TSO
//* RELEASE : V10.01.00 04/08/2011
//* DB2 VERSION: 09015
//***************************************************
//*--------------------------------------------------------------------
//* BMC - IMPORT
//*--------------------------------------------------------------------
//IMPORT EXEC PGM=ACMIMAN,REGION=0M,
// PARM='ACMDOPD1'
//STEPLIB DD DSN=DSN.BMC.BMCLINK,DISP=SHR
// DD DSN=MVIEW.PLEXA.S13.BMCLINK,DISP=SHR
//ABNLIGNR DD DUMMY
//ALUPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//********************************************************
//**** SAMPLE SYSMDUMP JCL ********
//**** PLEASE REPLACE THE DSN AND UNIT WITH ONES THAT FITS
//**** YOUR SHOP STANDARDS AND UNCOMMENT THE JCL
//*SYSMDUMP DD DSN=CUSTOMER.SYSMDUMP,DISP=(,CATLG,CATLG),UNIT=XXXXXXX,
//* SPACE=(CYL,(50,50),RLSE),LRECL=4160,BLKSIZE=4160
//********************************************************
//IMPORTIN DD DISP=SHR,DSN=A540769.BMC.CDL(WK9117)
// DD DISP=SHR,DSN=A540769.BMC.CDL(WK9118)
//ALUIN DD *
SSID DBAF
NEWWORKID A540769.NEW9119Zwei
SOURCETYPE CDL
//*--------------------------------------------------------------------
//* END OF JOB
//*--------------------------------------------------------------------
}¢--- A540769.WK.JCL(BORIS2) cre=2007-02-06 mod=2007-02-06-13.20.07 F540769 ----
//A540769D JOB (PI00,KE30,,SS00000000),'DB2 RECOVERY',
// NOTIFY=A267167,
// CLASS=A
//*
//*
//**********************************************************************
//*
//* DB2 ADMIN GENERATED JOB - RUN RECOVER UTILITY (TABLESPACES)
//*
//***********************************************************ADB2USV****
//*
//**********************************************************************
//* STEP RECOVER: RECOVER TABLESPACES
//**********************************************************************
//RECOVER EXEC DSNUPROC,SYSTEM=DBAF,
// LIB='DB2@.RZ1.P0.DSNLOAD',
// UID=''
//DSNUPROC.SYSUT1 DD DSN=A540769.SYSUT1,
// DISP=(MOD,DELETE,CATLG),
// SPACE=(TRK,(82,82),RLSE),
// UNIT=SYSDA
//DSNUPROC.SYSIN DD *
UNLOAD DATA TABLESPACE DA267167.A031OLD
RECOVER TABLESPACE DA267167.A031OLD DSNUM ALL
TOCOPY DBAF.DA267167.A031OLD.D06331.T092656
REBUILD INDEX(ALL) TABLESPACE DA267167.A031OLD
//
TOCOPY DBAF.DA267167.A031OLD.D06293.T121727 <- RZ 1 DATA
TOCOPY DBAF.DA267167.A031OLD.D06307.T153331 <- RZ 2 DATA |||
TOCOPY DBAF.DA267167.A031OLD.D06331.T092656 <- RZ BLUP
TOCOPY DBAF.DA267167.A031OLD.D07005.T101131 <- RZ2 DATA ORIGINALS
TOCOPY DBAF.DA267167.A031OLD.D06331.T101744 <- EMPTY
TOCOPY DBAF.DA267167.A031OLD.D07037.T125512 <- SAVE 6.2. 1ST RUN
}¢--- A540769.WK.JCL(BR14) cre=2006-11-21 mod=2015-11-16-15.56.53 A540769 ------
//A540769K JOB (CP00,KE50) 00010006
// SET PR=OMS.DIV.P0.STAT.RZ4. 00020000
//S1 EXEC PGM=IEFBR14, 00030000
// PARM='P %%DSN %%EINS.' 00040000
//AUDIT DD DISP=(NEW,CATLG,CATLG),MGMTCLAS=COM#A049, 00041007
// DSN=A540769.TMP.EXE.#DT#.AFT 00042007
// 00043007
//D01 DD DISP=SHR,DSN=DSN.DBQ.AUFTRAG 90.PU2 00050006
//D02 DD DISP=SHR,DSN=DSN.DBQ.AUTO 90.P00001.UN 00060006
//D03 DD DISP=SHR,DSN=DSN.DBQ.CDL 90.P00001.UN2 00070006
//D04 DD DISP=SHR,DSN=DSN.DBQ.CLON.JCL 90.P00002.UN 00080006
//D05 DD DISP=SHR,DSN=DSN.DBQ.CLON.WSL 90.P00002.UN2 00090006
//D06 DD DISP=SHR,DSN=DSN.DBQ.DBAUTO 90.P00003.UN 00100006
//D07 DD DISP=SHR,DSN=DSN.DBQ.DBSRCCAT 90.P00003.UN2 00110006
//D08 DD DISP=SHR,DSN=DSN.DBQ.DBSRCDDL 90.P00004.UN 00120006
//D09 DD DISP=SHR,DSN=DSN.DBQ.DBSRCDDL.OLD 90.P00004.UN2 00130006
//D10 DD DISP=SHR,DSN=DSN.DBQ.DBTRGCAT 90.P00005.UN 00140006
//D11 DD DISP=SHR,DSN=DSN.DBQ.DBTRGDDL 90.P00005.UN2 00150006
//D12 DD DISP=SHR,DSN=DSN.DBQ.DBTRGDDL.OLD 90.P00006.UN 00160006
//D13 DD DISP=SHR,DSN=DSN.DBQ.DQ0G.ANA.JCL 90.P00006.UN2 00170006
//D14 DD DISP=SHR,DSN=DSN.DBQ.DQ0G.ANA.WSL 90.P00007.UN 00180006
//D15 DD DISP=SHR,DSN=DSN.DBQ.DQ0G.JCL 90.P00007.UN2 00190006
//D16 DD DISP=SHR,DSN=DSN.DBQ.DQ0G.RUN.JCL 90.P00008.UN2 00200006
//D17 DD DISP=SHR,DSN=DSN.DBQ.DQ0G.RUN.JCL.OLD 90.P00008.UN2 00210006
//D18 DD DISP=SHR,DSN=DSN.DBQ.DQ0G.WSL.JCL.OLD 90.P00008.UN2 00220006
//D19 DD DISP=SHR,DSN=DSN.DBQ.JCLG.RUN.JCL.OLD 90.P00008.UN2 00230006
//D20 DD DISP=SHR,DSN=DSN.DBQ.MASK.RUN.JCL.OLD 90.P00008.UN2 00240006
//D21 DD DISP=SHR,DSN=DSN.DBQ.MULTI.CLONEC.JCL 90.P00008.UN2 00250006
//D22 DD DISP=SHR,DSN=DSN.DBQ.OVRCATUN.JCL.OLD 90.P00008.UN2 00260006
//D23 DD DISP=SHR,DSN=DSN.DBQ.SRCCATUN.JCL.OLD 90.P00008.UN2 00270006
//D24 DD DISP=SHR,DSN=DSN.DBQ.SRCDDLUN.JCL.OLD 90.P00008.UN2 00280006
//D25 DD DISP=SHR,DSN=DSN.DBQ.TRGCATUN.JCL.OLD 90.P00008.UN2 00290006
//D26 DD DISP=SHR,DSN=DSN.DBQ.TRGDDLUN.JCL.OLD 90.P00008.UN2 00300006
}¢--- A540769.WK.JCL(CAAUTDDL) cre=2012-11-15 mod=2012-11-15-14.52.22 A540769 ---
//YWK40300 JOB (CP00,KE50),'DB2 DBX',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//* Funktion importAna DBAF Auftrag WK40300C db2=V1015 tool=V
//* dbx import: compare automap creating strategy
//* change WK40300C038_TEST
//* changeRem zs Test auf WK40300C E import DBX
//AUTOMAP EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML$CMAI'
//STEPLIB DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBALOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBALOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBAPARM
//PTIXMSG DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBAXMSG
//MSGFILE DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//CNTLFILE DD DISP=SHR,DSN=DSN.DBX.ZZZDUMMY(WK40300E)
//DDLIN DD DISP=SHR,
// DSN=DSN.DBX.CACDL(WK40300E)
//DDLINTRG DD DISP=SHR,
// DSN=DSN.DBX.CACDL(EMPTY)
//PARMFILE DD *
STRATEGY WK40300X -- new strategy
CREATOR DBX -- new strategy
SHAREOPT Y
STRTSSID DBAF -- ssid für Strategy
STRTDESC WK40300C038_TEST zs Test auf WK40300C E import DBX
REPLACE
EXPOPT A -- A=explode source keep Target, X=drop unmap
TRGSSID DBAF -- target
RULECRTR S100447 -- change rule set
RULENAME @DEFAULT
MASKCRTR A540769 -- auto map mask
MASKNAME WKA2B
// IF AUTOMAP.RC = 0 THEN
//* ca: analyze strategy
//ANA EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN'
//STEPLIB DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBALOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBALOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBAPARM
//PTIXMSG DD DISP=SHR,DSN=DSN.CADB2.RZ1.P0.CDBAXMSG
//MSGFILE DD SYSOUT=*
//REPFILE DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//* strategy
//DDLFILE DD DISP=SHR,DSN=DSN.DBXDBAF.STRY(WK40300X)
//PARMFILE DD *
STRTSSID DBAF
CREATOR DBX
STRATEGY WK40300X
AUXIMP N
MQTIMP
REFMQT N
SEQIMP
RTNIMP
RTNIIO N
SQLID S100447
UNLOAD
NOAUTHS
HEADER
TRAILER
REBIND
RECOVIX
REORGTS
IMAGCOPY PARTITION
PREFIX DSN.DBA
MODEL4 @DEFAULT
MODEL4C S100447
RULESET DBXNN
RULECR A540769
GLBLNAME WKA2B -- 8.11.12 14:45
GLBLCRTR A540769
ALCR A540769 A540769B
ALDB DA540769 DA54076B
ALSG * GSMS
TSSS 0 0
TSSS * 64
TSCP * YES
VWTC A540769 A540769B
VWFS A540769 A540769B
TGSC A540769 A540769B
TGTO A540769 A540769B
TGTC A540769 A540769B
TGFS A540769 A540769B
TGQS A540769 A540769B
SQSC A540769 A540769B
RTSC A540769 A540769B
// ENDIF
// IF ABEND OR NOT (AUTOMAP.RUN AND
// (AUTOMAP.RC = 0 OR AUTOMAP.RC = 4)) THEN
//PERROR EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SET MAXCC = 12
// ENDIF
}¢--- A540769.WK.JCL(CADSAR) cre=2012-02-14 mod=2012-02-14-21.25.11 A540769 ----
//A540769W JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//* create ddl from source spec
//DDL EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN'
//STEPLIB DD DISP=SHR,DSN=DSN.CA.CDBALOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB DD DISP=SHR,DSN=DSN.CA.CDBALOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM DD DISP=SHR,DSN=DSN.CA.CDBAPARM
//PTIXMSG DD DISP=SHR,DSN=DSN.CA.CDBAXMSG
//MSGFILE DD SYSOUT=* 00110002
//REPFILE DD SYSOUT=* 00120002
//DDLFILE DD DISP=SHR, 00132002
// DSN=A540769.TMP.SQL(WK911G) -> GENDDL
//PARMFILE DD * 00135002
STRTSSID DBAF
CREATOR A540769
QUICKM
TABLESPACE DGDB9998 A911K
EXPLODE TABLE
EXPLODE INDEX
EXPLODE VIEW
EXPLODE SYNONYM
EXPLODE TRIGGER
EXPLODE MQTB_T
EXPLODE MQTB_I
EXPLODE MQTB_V
EXPLODE MQTB_S
EXPLODE MQVW_VW
EXPLODE MQVW_I
EXPLODE MQVW_V
EXPLODE MQVW_S
VIEW GDB9998 VWK9210
QUICKEND
TRGSSID DBAF
AUXIMP N
MQTIMP N
REFMQT N
SEQIMP
VWIMPEXP
RTNIMP
RTNIIO N
UNLOAD
NOAUTHS
DDLONLY
HEADER
TRAILER
PREFIX A540769
MODEL4 @DEFAULT
MODEL4C A351153
GLBLNAME PROTTWAL global change set
GLBLCRTR A540769
ALCR GDB9998 A540769 global change set must be exp
ALDB DGDB9998 DA540769
SGNM * GSMS
TSSS * 64
TSBP * BP2
VWTC GDB9998 A540769 view text creator
VWFS GDB9998 A540769 view func schema
//* compare automap creating strategy
//AUTOMAP EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML$CMAI'
//STEPLIB DD DISP=SHR,DSN=DSN.CA.CDBALOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB DD DISP=SHR,DSN=DSN.CA.CDBALOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM DD DISP=SHR,DSN=DSN.CA.CDBAPARM
//MSGFILE DD SYSOUT=* 00110002
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS 00130002
//CNTLFILE DD DISP=SHR,DSN=A540769.TMP.TEXT(AAA) 00132002
//DDLIN DD DISP=SHR, 00132002
// DSN=*.DDL.DDLFILE
//PARMFILE DD * 00135002
STRATEGY WK911G -- new strategy
CREATOR A540769 -- new strategy
SHAREOPT Y
STRTSSID DBAF -- ssid für Strategy
STRTDESC Beschreibung kommt hier
EXPOPT A -- explode all
TRGSSID DBAF -- target
MASKCRTR A540769 -- auto map mask
MASKNAME TWALWAL
RULECRTR A540769 -- change rule set
RULENAME TWALWAL
//* analyze strategy
//ANA EXEC PGM=PTLDRIVM,REGION=0M,PARM='SUFFIX=00,EP=RML@MAIN'
//STEPLIB DD DISP=SHR,DSN=DSN.CA.CDBALOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB DD DISP=SHR,DSN=DSN.CA.CDBALOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM DD DISP=SHR,DSN=DSN.CA.CDBAPARM
//PTIXMSG DD DISP=SHR,DSN=DSN.CA.CDBAXMSG
//MSGFILE DD SYSOUT=* 00110002
//REPFILE DD SYSOUT=* 00120002
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS 00130002
//DDLFILE DD DISP=SHR, 00132002
// DSN=A540769.TMP.TEXT(WK911G) --> strategy
//PARMFILE DD * 00135002
STRTSSID DBAF
CREATOR A540769
STRATEGY WK911G
AUXIMP N
MQTIMP
REFMQT N
SEQIMP
RTNIMP
RTNIIO N
SQLID S100447
UNLOAD
NOAUTHS
HEADER
TRAILER
PREFIX A540769
MODEL4 @DEFAULT
MODEL4C A351153
RULESET IGNORE
RULECR A540769
//* execute strategy
//RUN EXEC PGM=PTLDRIVM,REGION=4M,PARM='SUFFIX=00,EP=BPLBCTL'
//STEPLIB DD DISP=SHR,DSN=DSN.CA.CDBALOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTILIB DD DISP=SHR,DSN=DSN.CA.CDBALOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//PTIPARM DD DISP=SHR,DSN=DSN.CA.CDBAPARM
//PTIXMSG DD DISP=SHR,DSN=DSN.CA.CDBAXMSG
//SYSOUT DD SYSOUT=*
//PTIIMSG DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(30,30))
//SYSREC DD UNIT=SYSDA,SPACE=(TRK,(1,1))
//BPIIPT DD DISP=SHR,
// DSN=*.ANA.DDLFILE
//BPIOPT DD *
.CONTROL BPID(A540769.TMP.TEXT-WK911G) +
LOGID(DBAF) UNIT(SYSDA) --> syncpoints of run
.LIST SYSOUT(A)
.OPTION ERRORS NOSQLERRORS RETRY(96) BINDERRORS +
DISCARDS
.CONNECT DBAF
}¢--- A540769.WK.JCL(CANCEL) cre=2011-08-25 mod=2016-06-23-14.44.07 A540769 ----
//A5407692 JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,CLASS=M 00030000
//***************************************************************
//*
//MYPROC JCLLIB ORDER=SM.DIV.P0.CSM.COMMON.PROC
//*
//* THIS JOB EXECUTES MVS COMMANDS AT ANOTHER RZ
//* ¨
//* ¨RO *ALL,C U=A540769 CANCEL TSO USER
//* ¨
//*
//CANRR2 EXEC RM@OCMD0,RSYS=RZ2
//DDOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN DD *
RO *ALL,C U=A540769
//A540769R JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,CLASS=M 00030000
//***************************************************************
//*
//MYPROC JCLLIB ORDER=SM.DIV.P0.CSM.COMMON.PROC
//*
//* THIS JOB EXECUTES MVS COMMANDS AT ANOTHER RZ
//* ¨
//* ¨RO *ALL,C U=A540769 CANCEL TSO USER
//* ¨
//*
//CANRR2 EXEC RM@OCMD0,RSYS=RR2
//DDOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN DD *
RO *ALL,C U=A540769
//A540769X JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,CLASS=M 00030000
//***************************************************************
//*
//MYPROC JCLLIB ORDER=SM.DIV.P0.CSM.COMMON.PROC
//*
//* THIS JOB EXECUTES MVS COMMANDS AT ANOTHER RZ
//* ¨
//* ¨RO *ALL,C U=A540769 CANCEL TSO USER
//* ¨
//*
//CANRZ0 EXEC RM@OCMD0,RSYS=RZX
//DDOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN DD *
RO *ALL,C U=A540769
//A540769Y JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,CLASS=M 00030000
//***************************************************************
//*
//MYPROC JCLLIB ORDER=SM.DIV.P0.CSM.COMMON.PROC
//*
//* THIS JOB EXECUTES MVS COMMANDS AT ANOTHER RZ
//* ¨
//* ¨RO *ALL,C U=A540769 CANCEL TSO USER
//* ¨
//*
//CANRZ0 EXEC RM@OCMD0,RSYS=RZY
//DDOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN DD *
RO *ALL,C U=A540769
//A540769Z JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,CLASS=M 00030000
//***************************************************************
//*
//MYPROC JCLLIB ORDER=SM.DIV.P0.CSM.COMMON.PROC
//*
//* THIS JOB EXECUTES MVS COMMANDS AT ANOTHER RZ
//* ¨
//* ¨RO *ALL,C U=A540769 CANCEL TSO USER
//* ¨
//*
//CANRZ0 EXEC RM@OCMD0,RSYS=RZZ
//DDOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN DD *
RO *ALL,C U=A540769
}¢--- A540769.WK.JCL(CARAT) cre=2008-01-21 mod=2008-11-24-17.24.32 F540769 -----
$= sub = DBTF
$= cre = OA1T
$= jcll= TSS.SKA.JCLL
$= steps = 999
$= stJob = -1
$= stCur = 0
$;
$@¢
TCT100A1
TCT110A1
TCT111A1
TCT120A1
TCT130A1
TCT135A1
TCT140A1
TCT141A1
TCT150A1
TCT151A1
TCT152A1
TCT153A1
TCT170A1
TCT200A1
TCT201A1
TCT202A1
TCT203A1
TCT204A1
TCT205A1
TCT206A1
TCT207A1
TCT208A1
TCT209A1
TCT210A1
TCT211A1
TCT212A1
TCT213A1
TCT214A1
TCT220A1
TCT221A1
TCT222A1
TCT230A1
TCT233A1
TCT240A1
TCT241A1
TCT242A1
TCT243A1
TCT250A1
TCT251A1
TCT252A1
TCT253A1
TCT254A1
TCT255A1
TCT256A1
TCT257A1
TCT258A1
TCT270A1
TCT290A1
TCT291A1
TCT292A1
TCT293A1
TCT300A1
TCT301A1
TCT302A1
TCT303A1
TCT304A1
TCT305A1
TCT306A1
TCT307A1
TCT320A1
TCT340A1
TCT350A1
TCT351A1
TCT352A1
TCT353A1
TCT354A1
TCT355A1
TCT370A1
TCT400A1
$!
$¨ $@for tt $@{
$=tt £ strip($tt)
$=j £ 'T'substr($tt, 4, 3)'LOAD'
$=jNa £ $jcll"("$j")"
if sysDsn("'"$jNa"'") ^== 'OK' then do
$$ $tt
end
else $@{
lst = ''
ct = ''
st = ''
$;
$<$jNa $@for l $@{
if abbrev($l, '//SYSREC ') then
st = 'r'
else if abbrev($l, '//SYSIN ') then
st = 'i'
else if abbrev($l, '//*') then
iterate
else if ^ abbrev($l, '// ') then
st = ''
if st = '' then
iterate
cx = pos('DSN=', $l)
if cx < 1 then
iterate
dsn = word(translate(substr($l, cx+4), ' ', ','), 1)
if st = 'i' then
ct = dsn
else do
t = substr(dsn, 19, 6)
if $tt <> t'A1' then
call err 'mismatch tb' $tt '<> t' t 'in' $l
lst = lst dsn
end
$}
if lst = '' then
call err 'no sysRec in' $jNa
if ct = '' then
call err 'no sysIn in' $jNa
$£ $tt ct lst
$}
$}
$*(
$¨ tb = ''; lst = ''
$@for l $@{
d = strip($l)
n = substr(d, 19, 6)
if n <> tb then do
if tb <> '' then
$£ tb lst
tb = n
lst = ''
end
lst = lst d
$}
$£ tb lst
$*)
$¨ $@for l $@{
parse value $l with tb ct lst
$= tb £ tb
$= tn £ substr(tb, 4, 3)
$= stCur £ $stCur + 1
if $stCur >= $stJob then $@{
$= stJob £ $stCur + $steps
$= jn = $tn
$@¢
//YCARA$jn JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
$!
$}
$@¢
//LO$tn EXEC PGM=DSNUTILB,PARM='$sub,YCARA$tn.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=$sub.DBAA.LISTDEF(TEMPL),DISP=SHR
$!
if lst = '' then do
$$ //SYSREC DD DUMMY
end
else do wx=1 to words(lst)
if wx = 1 then
l = '//SYSREC '
else
l = '// '
$£ l 'DD DISP=SHR,DSN='word(lst,wx)
end
$@¢
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE $cre.$tb
$!
$;
if ct <> '' then $@{
$<$(ct$)
ccx = 0
$@for cc $@{
ccx = ccx + 1
if ccx = 1 then
$$ -- $cc
else
$$ $cc
$}
$}
$;
$}
$***out 20080225 12:04:57
//YCARA100 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//LO100 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA100.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT100A1
//LO110 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA110.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT110A1
//LO111 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA111.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT111A1
//LO120 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA120.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT120A1
//LO130 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA130.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT130A1
//LO135 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA135.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT135A1
//LO140 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA140.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT140A1
//LO141 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA141.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT141A1
//LO150 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA150.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT150.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT150A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT150A1"
(I_CRDT_CSTMR POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CRDT_CSTMR_STS_T POSITION (133) CHAR (5) ,
I_BU_T POSITION (138) CHAR (4) ,
I_IP POSITION (142) CHAR (20) ,
I_IC POSITION (162) CHAR (20) ,
F_PRSPCT POSITION (182) INTEGER ,
F_CRDT_CSTMR POSITION (186) INTEGER )
//LO151 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA151.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT151A1
//LO152 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA152.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT152A1
//LO153 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA153.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT153A1
//LO170 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA170.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT170.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT170A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT170A1"
(I_CRDT_CSTMR POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_CRDT_CSTMR_STS_T POSITION (67) CHAR (5) )
//LO200 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA200.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT200.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT200A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT200A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CRDT_RQST_STS_T POSITION (133) CHAR (5) ,
I_CRDT_CSTMR POSITION (138) CHAR (20) ,
I_ID_CRDT_RQST POSITION (158) INTEGER ,
I_CRDT_RQST_T POSITION (162) CHAR (5) ,
I_RQST_T POSITION (167) CHAR (5) ,
I_PRCS_T POSITION (172) CHAR (5) ,
I_RQST_STS_T POSITION (177) CHAR (5) ,
I_PRCS_PHSE_T POSITION (182) CHAR (5) ,
I_RQST_ORGN_T POSITION (187) CHAR (5) ,
C_BRNCH_OE POSITION (192) CHAR (20) ,
C_CRDT_UNT POSITION (212) CHAR (20) ,
I_CMPTNCE_T POSITION (232) CHAR (5) ,
C_BRNCH_OE_2 POSITION (237) CHAR (20) ,
F_OGR POSITION (257) INTEGER ,
D_STLMNT POSITION (261) DATE EXTERNAL (10) ,
I_RQST_PRCS_STS_T POSITION (271) CHAR (5) ,
F_PRE_APRVD_CO POSITION (276) INTEGER ,
I_TRNSCTN_DTL_T_1 POSITION (280) CHAR (5) ,
I_TRNSCTN_DTL_T_2 POSITION (285) CHAR (5) )
//LO201 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA201.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT201.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT201A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT201A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
D_DUE_START POSITION (133) DATE EXTERNAL (10) ,
I_RQST_STS_T POSITION (143) CHAR (5) ,
I_PRCS_PHSE_T POSITION (148) CHAR (5) )
//LO202 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA202.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.A
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.B
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.C
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.D
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.E
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT202A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT202A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
D_TIME_CREATED_A POSITION (47) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (73) CHAR (20) ,
D_TIME_MODIFIED POSITION (93) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (119) CHAR (20) ,
D_EFFECTIVE POSITION (139) DATE EXTERNAL (10) ,
D_END POSITION (149) DATE EXTERNAL (10) ,
I_DCSN_CMNT_T POSITION (159) CHAR (5) ,
I_RJCT_T POSITION (164) CHAR (5) ,
T_CMNT POSITION (169) VARCHAR )
//LO203 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA203.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT203.IT.A
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT203.IT.B
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT203.IT.C
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT203A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT203A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_RQST_CMNT_T POSITION (133) CHAR (5) ,
T_CMNT POSITION (138) VARCHAR )
//LO204 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA204.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT204.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT204A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT204A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_RQST_INFRMTN_T POSITION (133) CHAR (5) ,
I_UOM_T POSITION (138) CHAR (5) ,
I_CRNCY_ISO_T POSITION (143) CHAR (3) ,
A_VLE POSITION (146:176) DECIMAL EXTERNAL,
T_VLE POSITION (177) CHAR (60) )
//LO205 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA205.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT205.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT205A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT205A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_EXCLSN_CRTRA_T POSITION (133) CHAR (5) ,
F_EXCLSN_CRTRA POSITION (138) INTEGER )
//LO206 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA206.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT206A1
//LO207 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA207.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT207A1
//LO208 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA208.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT208A1
//LO209 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA209.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT209A1
//LO210 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA210.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT210A1
//LO211 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA211.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT211A1
//LO212 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA212.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT212A1
//LO213 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA213.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT213A1
//LO214 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA214.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT214A1
//LO220 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA220.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT220.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT220A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT220A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_CRDT_RQST_STS_T POSITION (67) CHAR (5) )
//LO221 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA221.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT221A1
//LO222 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA222.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT222A1
//LO230 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA230.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT230A1
//LO233 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA233.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT233.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT233A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT233A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CMPTNCE_T POSITION (133) CHAR (5) ,
T_NME_CMPTNCE POSITION (138) CHAR (30) ,
T_FNCTN_CMPTNCE POSITION (168) CHAR (30) )
//LO240 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA240.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT240A1
//LO241 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA241.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT241A1
//LO242 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA242.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT242.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT242A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT242A1"
(I_RQST_BLNCE_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CRDT_RQST POSITION (133) CHAR (20) ,
F_CRDT_RQST_ARCHVD POSITION (153) INTEGER ,
I_BLNCE POSITION (157) CHAR (20) ,
F_BLNCE_ARCHVD POSITION (177) INTEGER )
//LO243 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA243.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT243.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT243A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT243A1"
(I_RQST_AFRDBLT_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CRDT_RQST POSITION (133) CHAR (20) ,
F_CRDT_RQST_ARCHVD POSITION (153) INTEGER ,
I_AFRDBLTY POSITION (157) CHAR (20) ,
F_AFRDBLTY_ARCHVD POSITION (177) INTEGER )
//LO250 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA250.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT250.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT250A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT250A1"
(I_ANLYS POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS_STS_T POSITION (133) CHAR (5) ,
I_ANLYS_T POSITION (138) CHAR (5) ,
I_CRDT_CSTMR POSITION (143) CHAR (20) ,
I_MDLVRSN_T POSITION (163) CHAR (5) ,
I_MDLVRSN_USR_T POSITION (168) CHAR (5) ,
I_CSTMR_RTNG_FNL_T POSITION (173) CHAR (5) ,
P_PD_FNL POSITION (178:186) DECIMAL EXTERNAL,
I_MX_CRDT_RSK POSITION (187) CHAR (5) ,
I_CVRD_CRDT_T POSITION (192) CHAR (5) ,
T_CSTMR_RLBLTY POSITION (197) CHAR (5) ,
I_ECNMC_SCTR_T POSITION (202) CHAR (5) ,
I_RSK_DMCLE_ISO_T POSITION (207) CHAR (3) )
//LO251 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA251.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT251A1
//LO252 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA252.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT252A1
//LO253 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA253.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT253A1
//LO254 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA254.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT254A1
//LO255 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA255.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT255A1
//LO256 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA256.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT256A1
//LO257 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA257.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT257A1
//LO258 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA258.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT258A1
//LO270 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA270.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT270.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT270A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT270A1"
(I_ANLYS POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_ANLYS_STS_T POSITION (67) CHAR (5) )
//LO290 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA290.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT290.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT290A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT290A1"
(I_ANLYS_RQST_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS POSITION (133) CHAR (20) ,
F_ANLYS_ARCHVD POSITION (153) INTEGER ,
I_CRDT_RQST POSITION (157) CHAR (20) ,
F_CRDT_RQST_ARCHVD POSITION (177) INTEGER )
//LO291 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA291.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT291.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT291A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT291A1"
(I_ANLYS_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS_RP_T POSITION (133) CHAR (5) ,
I_ANLYS_1 POSITION (138) CHAR (20) ,
F_ANLYS_1_ARCHVD POSITION (158) INTEGER ,
I_ANLYS_2 POSITION (162) CHAR (20) ,
F_ANLYS_2_ARCHVD POSITION (182) INTEGER )
//LO292 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA292.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT292.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT292A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT292A1"
(I_ANLYS_BLNCE_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS POSITION (133) CHAR (20) ,
F_ANLYS_ARCHVD POSITION (153) INTEGER ,
I_BLNCE POSITION (157) CHAR (20) ,
F_BLNCE_ARCHVD POSITION (177) INTEGER )
//LO293 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA293.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT293.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT293A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT293A1"
(I_ANLYS_AFRDBLT_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS POSITION (133) CHAR (20) ,
F_ANLYS_ARCHVD POSITION (153) INTEGER ,
I_AFRDBLTY POSITION (157) CHAR (20) ,
F_AFRDBLTY_ARCHVD POSITION (177) INTEGER )
//LO300 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA300.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT300.IT.STEU
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT300.IT.GEAB
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT300.IT.PACK
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT300A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT300A1"
(I_BLNCE POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_BLNCE_STS_T POSITION (133) CHAR (5) ,
I_CRDT_CSTMR POSITION (138) CHAR (20) ,
I_MDLVRSN_T POSITION (158) CHAR (5) ,
D_BLNCE POSITION (163) DATE EXTERNAL (10) ,
I_BLNCE_T POSITION (173) CHAR (5) ,
I_NOGA_T POSITION (178) CHAR (20) ,
I_BRNCH_GRP_T POSITION (198) CHAR (5) ,
N_CLSNG_PRD POSITION (203) INTEGER ,
I_CRNCY_ISO_T POSITION (207) CHAR (3) ,
I_ACNTNG_PRNCPLS_T POSITION (210) CHAR (5) ,
I_BSNS_T POSITION (215) CHAR (5) ,
I_PRFT_ORNTN_T POSITION (220) CHAR (5) ,
I_RVSN_PRNCPLS_T POSITION (225) CHAR (5) ,
I_PRFT_LS_ACNT_T POSITION (230) CHAR (5) )
//LO301 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA301.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.IT.A
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.IT.B
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.IT.C
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.IT.STEU
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT301A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT301A1"
(I_BLNCE POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
I_KY_FGRE_T POSITION (113) CHAR (20) ,
C_BLNCE_T POSITION (133) CHAR (1) ,
I_UOM_T POSITION (134) CHAR (5) ,
I_CRNCY_ISO_T POSITION (139) CHAR (3) ,
A_VLE POSITION (142:172) DECIMAL EXTERNAL,
I_RFT_T POSITION (173) CHAR (4) ,
I_VLE_T POSITION (177) CHAR (5) ,
I_PRFT_LS_ACNT_T POSITION (182) CHAR (5) ,
T_CMNT_RM POSITION (187) VARCHAR ,
T_CMNT_CO POSITION (1689) VARCHAR )
//LO302 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA302.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT302A1
//LO303 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA303.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT303.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT303A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT303A1"
(I_BLNCE_CMNT POSITION (1) CHAR (20) ,
I_BLNCE POSITION (21) CHAR (20) ,
D_TIME_CREATED POSITION (41) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (67) CHAR (20) ,
D_TIME_MODIFIED POSITION (87) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (113) CHAR (20) ,
D_EFFECTIVE POSITION (133) DATE EXTERNAL (10) ,
D_END POSITION (143) DATE EXTERNAL (10) ,
I_BLNCE_OWNR_T POSITION (153) CHAR (5) ,
I_CMNT_OWNR_T POSITION (158) CHAR (5) ,
I_CMNT_STS_T POSITION (163) CHAR (5) )
//LO304 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA304.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT304A1
//LO305 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA305.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT305A1
//LO306 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA306.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT306.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT306A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT306A1"
(I_BLNCE_CMNT POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
I_BLNCE_CMNT_GRP_T POSITION (113) CHAR (5) ,
I_BLNCE_CMNT_T POSITION (118) CHAR (20) ,
I_CMNT_CTGRY_T POSITION (138) CHAR (5) ,
T_CMNT POSITION (143) VARCHAR )
//LO307 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA307.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT307.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT307A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT307A1"
(I_BLNCE_CMNT POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_CMNT_STS_T POSITION (67) CHAR (5) )
//LO320 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA320.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT320.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT320A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT320A1"
(I_BLNCE POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_BLNCE_STS_T POSITION (67) CHAR (5) )
//LO340 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA340.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT340.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT340A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT340A1"
(I_BLNCE_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_BLNCE_RP_T POSITION (133) CHAR (5) ,
I_BLNCE_1 POSITION (138) CHAR (20) ,
F_BLNCE_1_ARCHVD POSITION (158) INTEGER ,
I_BLNCE_2 POSITION (162) CHAR (20) ,
F_BLNCE_2_ARCHVD POSITION (182) INTEGER )
//LO350 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA350.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT350.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT350A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT350A1"
(I_AFRDBLTY POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_AFRDBLTY_STS_T POSITION (133) CHAR (5) ,
I_CRDT_CSTMR POSITION (138) CHAR (20) ,
I_MDLVRSN_T POSITION (158) CHAR (5) ,
F_USDBY_CSTMR POSITION (163) INTEGER ,
F_PRVTE POSITION (167) INTEGER ,
F_CRDTWRTHY POSITION (171) INTEGER ,
I_PRTFLO_DCSN_T POSITION (175) CHAR (5) ,
F_AFRDBLTY_CLCLTD POSITION (180) INTEGER ,
I_AFRDBLTY_USR_T POSITION (184) CHAR (5) ,
A_CRDT_RQST POSITION (189:219) DECIMAL EXTERNAL,
A_SMLTN_RTE POSITION (220:250) DECIMAL EXTERNAL,
A_LMTS_EXSTNG POSITION (251:281) DECIMAL EXTERNAL,
A_LMTS_NW POSITION (282:312) DECIMAL EXTERNAL,
D_BLNCE POSITION (313) DATE EXTERNAL (10) ,
A_NT_TRNVR POSITION (323:353) DECIMAL EXTERNAL,
A_NT_LBLTY POSITION (354:384) DECIMAL EXTERNAL,
A_EQTY POSITION (385:415) DECIMAL EXTERNAL,
A_RLVNT_RSRCS POSITION (416:446) DECIMAL EXTERNAL,
A_EBIT POSITION (447:477) DECIMAL EXTERNAL,
A_CSHFLW POSITION (478:508) DECIMAL EXTERNAL,
I_CRNCY_ISO_T POSITION (509) CHAR (3) ,
T_CMNT POSITION (512) VARCHAR )
//LO351 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA351.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT351A1
//LO352 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA352.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT352A1
//LO353 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA353.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT353A1
//LO354 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA354.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT354A1
//LO355 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA355.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT355A1
//LO370 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA370.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT370.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT370A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT370A1"
(I_AFRDBLTY POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_AFRDBLTY_STS_T POSITION (67) CHAR (5) )
//LO400 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA400.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT400A1
$***out 20080225 12:04:08
}¢--- A540769.WK.JCL(CARATCHE) cre=2008-01-21 mod=2010-03-16-10.52.04 A540769 ---
//YCARACHK JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/20/2006.09.40.21
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
// PARM=(DBTF,'YCARACHK.CHECK'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*SYSERR DD SYSOUT=*
//SYSERR DD DISP=(,PASS),UNIT=SYSDA,DATACLAS=NULL30,
// SPACE=(CYL,(100,1000))
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA,DATACLAS=NULL30,
// SPACE=(CYL,(100,1000))
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA,DATACLAS=NULL30,
// SPACE=(CYL,(100,1000))
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
CHECK DATA
TABLESPACE CT01G1$.A100A
TABLESPACE CT01G1$.A110A
TABLESPACE CT01G1$.A111A
TABLESPACE CT01G1$.A120A
TABLESPACE CT01G1$.A135A
TABLESPACE CT01G1$.A141A
TABLESPACE CT01G1$.A142A
TABLESPACE CT01G1$.A150A
TABLESPACE CT01G1$.A152A
TABLESPACE CT01G1$.A153A
TABLESPACE CT01G1$.A170A
TABLESPACE CT01G1$.A200A
TABLESPACE CT01G1$.A201A
TABLESPACE CT01G1$.A202A
TABLESPACE CT01G1$.A203A
TABLESPACE CT01G1$.A204A
TABLESPACE CT01G1$.A206A
TABLESPACE CT01G1$.A207A
TABLESPACE CT01G1$.A208A
TABLESPACE CT01G1$.A209A
TABLESPACE CT01G1$.A210A
TABLESPACE CT01G1$.A211A
TABLESPACE CT01G1$.A212A
TABLESPACE CT01G1$.A213A
TABLESPACE CT01G1$.A214A
TABLESPACE CT01G1$.A215A
TABLESPACE CT01G1$.A216A
TABLESPACE CT01G1$.A217A
TABLESPACE CT01G1$.A218A
TABLESPACE CT01G1$.A220A
TABLESPACE CT01G1$.A221A
TABLESPACE CT01G1$.A222A
TABLESPACE CT01G1$.A230A
TABLESPACE CT01G1$.A231A
TABLESPACE CT01G1$.A233A
TABLESPACE CT01G1$.A240A
TABLESPACE CT01G1$.A241A
TABLESPACE CT01G1$.A242A
TABLESPACE CT01G1$.A243A
TABLESPACE CT01G1$.A244A
TABLESPACE CT01G1$.A250A
TABLESPACE CT01G1$.A251A
TABLESPACE CT01G1$.A252A
TABLESPACE CT01G1$.A253A
TABLESPACE CT01G1$.A254A
TABLESPACE CT01G1$.A255A
TABLESPACE CT01G1$.A256A
TABLESPACE CT01G1$.A257A
TABLESPACE CT01G1$.A258A
TABLESPACE CT01G1$.A259A
TABLESPACE CT01G1$.A260A
TABLESPACE CT01G1$.A261A
TABLESPACE CT01G1$.A262A
TABLESPACE CT01G1$.A264A
TABLESPACE CT01G1$.A265A
TABLESPACE CT01G1$.A266A
TABLESPACE CT01G1$.A270A
TABLESPACE CT01G1$.A290A
TABLESPACE CT01G1$.A291A
TABLESPACE CT01G1$.A292A
TABLESPACE CT01G1$.A293A
TABLESPACE CT01G1$.A300A
TABLESPACE CT01G1$.A301A
TABLESPACE CT01G1$.A302A
TABLESPACE CT01G1$.A303A
TABLESPACE CT01G1$.A304A
TABLESPACE CT01G1$.A304A
TABLESPACE CT01G1$.A305A
TABLESPACE CT01G1$.A306A
TABLESPACE CT01G1$.A308A
TABLESPACE CT01G1$.A309A
TABLESPACE CT01G1$.A320A
TABLESPACE CT01G1$.A340A
TABLESPACE CT01G1$.A350A
TABLESPACE CT01G1$.A351A
TABLESPACE CT01G1$.A353A
TABLESPACE CT01G1$.A354A
TABLESPACE CT01G1$.A355A
TABLESPACE CT01G1$.A356A
TABLESPACE CT01G1$.A357A
TABLESPACE CT01G1$.A358A
TABLESPACE CT01G1$.A359A
TABLESPACE CT01G1$.A370A
TABLESPACE CT01G1$.A390A
TABLESPACE CT01G1$.A400A
SCOPE ALL
}¢--- A540769.WK.JCL(CARATET) cre=2008-02-21 mod=2008-11-24-17.24.33 F540769 ---
//YCARA100 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA100.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT100A1
//YCARA110 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA110.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT110A1
//YCARA111 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA111.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT111A1
//YCARA120 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA120.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT120A1
//YCARA130 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA130.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT130A1
//YCARA135 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA135.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT135A1
//YCARA140 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA140.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT140A1
//YCARA141 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA141.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT141A1
//YCARA150 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA150.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT150.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT150A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT150A1"
(I_CRDT_CSTMR POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CRDT_CSTMR_STS_T POSITION (133) CHAR (5) ,
I_BU_T POSITION (138) CHAR (4) ,
I_IP POSITION (142) CHAR (20) ,
I_IC POSITION (162) CHAR (20) ,
F_PRSPCT POSITION (182) INTEGER ,
F_CRDT_CSTMR POSITION (186) INTEGER )
//YCARA151 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA151.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT151A1
//YCARA152 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA152.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT152A1
//YCARA153 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA153.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT153A1
//YCARA170 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA170.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT170.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT170A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT170A1"
(I_CRDT_CSTMR POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_CRDT_CSTMR_STS_T POSITION (67) CHAR (5) )
//YCARA200 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA200.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT200.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT200A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT200A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CRDT_RQST_STS_T POSITION (133) CHAR (5) ,
I_CRDT_CSTMR POSITION (138) CHAR (20) ,
I_ID_CRDT_RQST POSITION (158) INTEGER ,
I_CRDT_RQST_T POSITION (162) CHAR (5) ,
I_RQST_T POSITION (167) CHAR (5) ,
I_PRCS_T POSITION (172) CHAR (5) ,
I_RQST_STS_T POSITION (177) CHAR (5) ,
I_PRCS_PHSE_T POSITION (182) CHAR (5) ,
I_RQST_ORGN_T POSITION (187) CHAR (5) ,
C_BRNCH_OE POSITION (192) CHAR (20) ,
C_CRDT_UNT POSITION (212) CHAR (20) ,
I_CMPTNCE_T POSITION (232) CHAR (5) ,
C_BRNCH_OE_2 POSITION (237) CHAR (20) ,
F_OGR POSITION (257) INTEGER ,
D_STLMNT POSITION (261) DATE EXTERNAL (10) ,
I_RQST_PRCS_STS_T POSITION (271) CHAR (5) ,
F_PRE_APRVD_CO POSITION (276) INTEGER ,
I_TRNSCTN_DTL_T_1 POSITION (280) CHAR (5) ,
I_TRNSCTN_DTL_T_2 POSITION (285) CHAR (5) )
//YCARA201 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA201.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT201.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT201A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT201A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
D_DUE_START POSITION (133) DATE EXTERNAL (10) ,
I_RQST_STS_T POSITION (143) CHAR (5) ,
I_PRCS_PHSE_T POSITION (148) CHAR (5) )
//YCARA202 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA202.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.ET.A
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.ET.B
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.ET.C
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.ET.D
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.ET.E
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT202A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT202A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
D_TIME_CREATED_A POSITION (47) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (73) CHAR (20) ,
D_TIME_MODIFIED POSITION (93) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (119) CHAR (20) ,
D_EFFECTIVE POSITION (139) DATE EXTERNAL (10) ,
D_END POSITION (149) DATE EXTERNAL (10) ,
I_DCSN_CMNT_T POSITION (159) CHAR (5) ,
I_RJCT_T POSITION (164) CHAR (5) ,
T_CMNT POSITION (169) VARCHAR )
//YCARA203 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA203.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT203.ET.A
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT203.ET.B
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT203.ET.C
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT203A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT203A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_RQST_CMNT_T POSITION (133) CHAR (5) ,
T_CMNT POSITION (138) VARCHAR )
//YCARA204 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA204.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT204.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT204A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT204A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_RQST_INFRMTN_T POSITION (133) CHAR (5) ,
I_UOM_T POSITION (138) CHAR (5) ,
I_CRNCY_ISO_T POSITION (143) CHAR (3) ,
A_VLE POSITION (146:176) DECIMAL EXTERNAL,
T_VLE POSITION (177) CHAR (60) )
//YCARA205 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA205.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT205.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT205A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT205A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_EXCLSN_CRTRA_T POSITION (133) CHAR (5) ,
F_EXCLSN_CRTRA POSITION (138) INTEGER )
//YCARA206 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA206.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT206A1
//YCARA207 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA207.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT207A1
//YCARA208 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA208.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT208A1
//YCARA209 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA209.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT209A1
//YCARA210 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA210.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT210A1
//YCARA211 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA211.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT211A1
//YCARA212 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA212.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT212A1
//YCARA213 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA213.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT213A1
//YCARA214 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA214.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT214A1
//YCARA220 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA220.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT220.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT220A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT220A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_CRDT_RQST_STS_T POSITION (67) CHAR (5) )
//YCARA221 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA221.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT221A1
//YCARA222 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA222.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT222A1
//YCARA230 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA230.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT230A1
//YCARA233 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA233.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT233.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT233A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT233A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CMPTNCE_T POSITION (133) CHAR (5) ,
T_NME_CMPTNCE POSITION (138) CHAR (30) ,
T_FNCTN_CMPTNCE POSITION (168) CHAR (30) )
//YCARA240 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA240.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT240A1
//YCARA241 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA241.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT241A1
//YCARA242 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA242.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT242.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT242A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT242A1"
(I_RQST_BLNCE_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CRDT_RQST POSITION (133) CHAR (20) ,
F_CRDT_RQST_ARCHVD POSITION (153) INTEGER ,
I_BLNCE POSITION (157) CHAR (20) ,
F_BLNCE_ARCHVD POSITION (177) INTEGER )
//YCARA243 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA243.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT243.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT243A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT243A1"
(I_RQST_AFRDBLT_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CRDT_RQST POSITION (133) CHAR (20) ,
F_CRDT_RQST_ARCHVD POSITION (153) INTEGER ,
I_AFRDBLTY POSITION (157) CHAR (20) ,
F_AFRDBLTY_ARCHVD POSITION (177) INTEGER )
//YCARA250 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA250.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT250.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT250A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT250A1"
(I_ANLYS POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS_STS_T POSITION (133) CHAR (5) ,
I_ANLYS_T POSITION (138) CHAR (5) ,
I_CRDT_CSTMR POSITION (143) CHAR (20) ,
I_MDLVRSN_T POSITION (163) CHAR (5) ,
I_MDLVRSN_USR_T POSITION (168) CHAR (5) ,
I_CSTMR_RTNG_FNL_T POSITION (173) CHAR (5) ,
P_PD_FNL POSITION (178:186) DECIMAL EXTERNAL,
I_MX_CRDT_RSK POSITION (187) CHAR (5) ,
I_CVRD_CRDT_T POSITION (192) CHAR (5) ,
T_CSTMR_RLBLTY POSITION (197) CHAR (5) ,
I_ECNMC_SCTR_T POSITION (202) CHAR (5) ,
I_RSK_DMCLE_ISO_T POSITION (207) CHAR (3) )
//YCARA251 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA251.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT251A1
//YCARA252 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA252.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT252A1
//YCARA253 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA253.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT253A1
//YCARA254 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA254.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT254A1
//YCARA255 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA255.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT255A1
//YCARA256 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA256.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT256A1
//YCARA257 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA257.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT257A1
//YCARA258 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA258.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT258A1
//YCARA270 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA270.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT270.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT270A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT270A1"
(I_ANLYS POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_ANLYS_STS_T POSITION (67) CHAR (5) )
//YCARA290 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA290.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT290.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT290A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT290A1"
(I_ANLYS_RQST_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS POSITION (133) CHAR (20) ,
F_ANLYS_ARCHVD POSITION (153) INTEGER ,
I_CRDT_RQST POSITION (157) CHAR (20) ,
F_CRDT_RQST_ARCHVD POSITION (177) INTEGER )
//YCARA291 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA291.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT291.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT291A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT291A1"
(I_ANLYS_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS_RP_T POSITION (133) CHAR (5) ,
I_ANLYS_1 POSITION (138) CHAR (20) ,
F_ANLYS_1_ARCHVD POSITION (158) INTEGER ,
I_ANLYS_2 POSITION (162) CHAR (20) ,
F_ANLYS_2_ARCHVD POSITION (182) INTEGER )
//YCARA292 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA292.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT292.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT292A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT292A1"
(I_ANLYS_BLNCE_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS POSITION (133) CHAR (20) ,
F_ANLYS_ARCHVD POSITION (153) INTEGER ,
I_BLNCE POSITION (157) CHAR (20) ,
F_BLNCE_ARCHVD POSITION (177) INTEGER )
//YCARA293 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA293.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT293.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT293A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT293A1"
(I_ANLYS_AFRDBLT_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS POSITION (133) CHAR (20) ,
F_ANLYS_ARCHVD POSITION (153) INTEGER ,
I_AFRDBLTY POSITION (157) CHAR (20) ,
F_AFRDBLTY_ARCHVD POSITION (177) INTEGER )
//YCARA300 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA300.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT300.ET.STEU
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT300.ET.GEAB
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT300.ET.PACK
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT300A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT300A1"
(I_BLNCE POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_BLNCE_STS_T POSITION (133) CHAR (5) ,
I_CRDT_CSTMR POSITION (138) CHAR (20) ,
I_MDLVRSN_T POSITION (158) CHAR (5) ,
D_BLNCE POSITION (163) DATE EXTERNAL (10) ,
I_BLNCE_T POSITION (173) CHAR (5) ,
I_NOGA_T POSITION (178) CHAR (20) ,
I_BRNCH_GRP_T POSITION (198) CHAR (5) ,
N_CLSNG_PRD POSITION (203) INTEGER ,
I_CRNCY_ISO_T POSITION (207) CHAR (3) ,
I_ACNTNG_PRNCPLS_T POSITION (210) CHAR (5) ,
I_BSNS_T POSITION (215) CHAR (5) ,
I_PRFT_ORNTN_T POSITION (220) CHAR (5) ,
I_RVSN_PRNCPLS_T POSITION (225) CHAR (5) ,
I_PRFT_LS_ACNT_T POSITION (230) CHAR (5) )
//YCARA301 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA301.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.ET.A
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.ET.B
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.ET.C
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.ET.STEU
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT301A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT301A1"
(I_BLNCE POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
I_KY_FGRE_T POSITION (113) CHAR (20) ,
C_BLNCE_T POSITION (133) CHAR (1) ,
I_UOM_T POSITION (134) CHAR (5) ,
I_CRNCY_ISO_T POSITION (139) CHAR (3) ,
A_VLE POSITION (142:172) DECIMAL EXTERNAL,
I_RFT_T POSITION (173) CHAR (4) ,
I_VLE_T POSITION (177) CHAR (5) ,
I_PRFT_LS_ACNT_T POSITION (182) CHAR (5) ,
T_CMNT_RM POSITION (187) VARCHAR ,
T_CMNT_CO POSITION (1689) VARCHAR )
//YCARA302 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA302.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT302A1
//YCARA303 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA303.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT303.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT303A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT303A1"
(I_BLNCE_CMNT POSITION (1) CHAR (20) ,
I_BLNCE POSITION (21) CHAR (20) ,
D_TIME_CREATED POSITION (41) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (67) CHAR (20) ,
D_TIME_MODIFIED POSITION (87) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (113) CHAR (20) ,
D_EFFECTIVE POSITION (133) DATE EXTERNAL (10) ,
D_END POSITION (143) DATE EXTERNAL (10) ,
I_BLNCE_OWNR_T POSITION (153) CHAR (5) ,
I_CMNT_OWNR_T POSITION (158) CHAR (5) ,
I_CMNT_STS_T POSITION (163) CHAR (5) )
//YCARA304 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA304.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT304A1
//YCARA305 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA305.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT305A1
//YCARA306 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA306.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT306.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT306A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT306A1"
(I_BLNCE_CMNT POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
I_BLNCE_CMNT_GRP_T POSITION (113) CHAR (5) ,
I_BLNCE_CMNT_T POSITION (118) CHAR (20) ,
I_CMNT_CTGRY_T POSITION (138) CHAR (5) ,
T_CMNT POSITION (143) VARCHAR )
//YCARA307 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA307.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT307.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT307A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT307A1"
(I_BLNCE_CMNT POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_CMNT_STS_T POSITION (67) CHAR (5) )
//YCARA320 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA320.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT320.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT320A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT320A1"
(I_BLNCE POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_BLNCE_STS_T POSITION (67) CHAR (5) )
//YCARA340 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA340.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT340.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT340A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT340A1"
(I_BLNCE_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_BLNCE_RP_T POSITION (133) CHAR (5) ,
I_BLNCE_1 POSITION (138) CHAR (20) ,
F_BLNCE_1_ARCHVD POSITION (158) INTEGER ,
I_BLNCE_2 POSITION (162) CHAR (20) ,
F_BLNCE_2_ARCHVD POSITION (182) INTEGER )
//YCARA350 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA350.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT350.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT350A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT350A1"
(I_AFRDBLTY POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_AFRDBLTY_STS_T POSITION (133) CHAR (5) ,
I_CRDT_CSTMR POSITION (138) CHAR (20) ,
I_MDLVRSN_T POSITION (158) CHAR (5) ,
F_USDBY_CSTMR POSITION (163) INTEGER ,
F_PRVTE POSITION (167) INTEGER ,
F_CRDTWRTHY POSITION (171) INTEGER ,
I_PRTFLO_DCSN_T POSITION (175) CHAR (5) ,
F_AFRDBLTY_CLCLTD POSITION (180) INTEGER ,
I_AFRDBLTY_USR_T POSITION (184) CHAR (5) ,
A_CRDT_RQST POSITION (189:219) DECIMAL EXTERNAL,
A_SMLTN_RTE POSITION (220:250) DECIMAL EXTERNAL,
A_LMTS_EXSTNG POSITION (251:281) DECIMAL EXTERNAL,
A_LMTS_NW POSITION (282:312) DECIMAL EXTERNAL,
D_BLNCE POSITION (313) DATE EXTERNAL (10) ,
A_NT_TRNVR POSITION (323:353) DECIMAL EXTERNAL,
A_NT_LBLTY POSITION (354:384) DECIMAL EXTERNAL,
A_EQTY POSITION (385:415) DECIMAL EXTERNAL,
A_RLVNT_RSRCS POSITION (416:446) DECIMAL EXTERNAL,
A_EBIT POSITION (447:477) DECIMAL EXTERNAL,
A_CSHFLW POSITION (478:508) DECIMAL EXTERNAL,
I_CRNCY_ISO_T POSITION (509) CHAR (3) ,
T_CMNT POSITION (512) VARCHAR )
//YCARA351 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA351.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT351A1
//YCARA352 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA352.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT352A1
//YCARA353 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA353.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT353A1
//YCARA354 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA354.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT354A1
//YCARA355 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA355.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT355A1
//YCARA370 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA370.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT370.ET
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT370A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT370A1"
(I_AFRDBLTY POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_AFRDBLTY_STS_T POSITION (67) CHAR (5) )
//YCARA400 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YCARA400.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1A.TCT400A1
}¢--- A540769.WK.JCL(CARATETC) cre=2008-02-21 mod=2008-02-21-18.39.20 F540769 ---
//YCARACHK JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/20/2006.09.40.21
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
// PARM=(DBAF,'YCARACHK.CHECK'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*SYSERR DD SYSOUT=*
//SYSERR DD DISP=(,PASS),UNIT=SYSDA,DATACLAS=NULL30,
// SPACE=(CYL,(100,1000))
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA,DATACLAS=NULL30,
// SPACE=(CYL,(100,1000))
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA,DATACLAS=NULL30,
// SPACE=(CYL,(100,1000))
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
CHECK DATA
TABLESPACE CT02A1A.A100A
TABLESPACE CT02A1A.A110A
TABLESPACE CT02A1A.A111A
TABLESPACE CT02A1A.A120A
TABLESPACE CT02A1A.A130A
TABLESPACE CT02A1A.A135A
TABLESPACE CT02A1A.A140A
TABLESPACE CT02A1A.A141A
TABLESPACE CT02A1A.A150A
TABLESPACE CT02A1A.A151A
TABLESPACE CT02A1A.A152A
TABLESPACE CT02A1A.A153A
TABLESPACE CT02A1A.A170A
TABLESPACE CT02A1A.A200A
TABLESPACE CT02A1A.A201A
TABLESPACE CT02A1A.A202A
TABLESPACE CT02A1A.A203A
TABLESPACE CT02A1A.A204A
TABLESPACE CT02A1A.A205A
TABLESPACE CT02A1A.A206A
TABLESPACE CT02A1A.A207A
TABLESPACE CT02A1A.A208A
TABLESPACE CT02A1A.A209A
TABLESPACE CT02A1A.A210A
TABLESPACE CT02A1A.A211A
TABLESPACE CT02A1A.A212A
TABLESPACE CT02A1A.A213A
TABLESPACE CT02A1A.A214A
TABLESPACE CT02A1A.A220A
TABLESPACE CT02A1A.A221A
TABLESPACE CT02A1A.A222A
TABLESPACE CT02A1A.A230A
TABLESPACE CT02A1A.A233A
TABLESPACE CT02A1A.A240A
TABLESPACE CT02A1A.A241A
TABLESPACE CT02A1A.A242A
TABLESPACE CT02A1A.A243A
TABLESPACE CT02A1A.A250A
TABLESPACE CT02A1A.A251A
TABLESPACE CT02A1A.A252A
TABLESPACE CT02A1A.A253A
TABLESPACE CT02A1A.A254A
TABLESPACE CT02A1A.A255A
TABLESPACE CT02A1A.A256A
TABLESPACE CT02A1A.A257A
TABLESPACE CT02A1A.A258A
TABLESPACE CT02A1A.A270A
TABLESPACE CT02A1A.A290A
TABLESPACE CT02A1A.A291A
TABLESPACE CT02A1A.A292A
TABLESPACE CT02A1A.A293A
TABLESPACE CT02A1A.A300A
TABLESPACE CT02A1A.A301A
TABLESPACE CT02A1A.A302A
TABLESPACE CT02A1A.A303A
TABLESPACE CT02A1A.A304A
TABLESPACE CT02A1A.A305A
TABLESPACE CT02A1A.A306A
TABLESPACE CT02A1A.A307A
TABLESPACE CT02A1A.A320A
TABLESPACE CT02A1A.A340A
TABLESPACE CT02A1A.A350A
TABLESPACE CT02A1A.A351A
TABLESPACE CT02A1A.A352A
TABLESPACE CT02A1A.A353A
TABLESPACE CT02A1A.A354A
TABLESPACE CT02A1A.A355A
TABLESPACE CT02A1A.A370A
TABLESPACE CT02A1A.A400A
SCOPE ALL
}¢--- A540769.WK.JCL(CARATLOA) cre=2008-02-25 mod=2008-11-24-17.24.33 F540769 ---
//YCARATAA JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=DBTF
//LO100 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA100.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT100A1
//LO110 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA110.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT110A1
//LO111 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA111.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT111A1
//LO120 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA120.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT120A1
//LO130 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA130.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT130A1
//LO135 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA135.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT135A1
//LO140 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA140.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT140A1
//LO141 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA141.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT141A1
//LO150 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA150.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT150.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT150A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT150A1"
(I_CRDT_CSTMR POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CRDT_CSTMR_STS_T POSITION (133) CHAR (5) ,
I_BU_T POSITION (138) CHAR (4) ,
I_IP POSITION (142) CHAR (20) ,
I_IC POSITION (162) CHAR (20) ,
F_PRSPCT POSITION (182) INTEGER ,
F_CRDT_CSTMR POSITION (186) INTEGER )
//LO151 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA151.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT151A1
//LO152 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA152.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT152A1
//LO153 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA153.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT153A1
//LO170 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA170.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT170.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT170A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT170A1"
(I_CRDT_CSTMR POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_CRDT_CSTMR_STS_T POSITION (67) CHAR (5) )
//LO200 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA200.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT200.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT200A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT200A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CRDT_RQST_STS_T POSITION (133) CHAR (5) ,
I_CRDT_CSTMR POSITION (138) CHAR (20) ,
I_ID_CRDT_RQST POSITION (158) INTEGER ,
I_CRDT_RQST_T POSITION (162) CHAR (5) ,
I_RQST_T POSITION (167) CHAR (5) ,
I_PRCS_T POSITION (172) CHAR (5) ,
I_RQST_STS_T POSITION (177) CHAR (5) ,
I_PRCS_PHSE_T POSITION (182) CHAR (5) ,
I_RQST_ORGN_T POSITION (187) CHAR (5) ,
C_BRNCH_OE POSITION (192) CHAR (20) ,
C_CRDT_UNT POSITION (212) CHAR (20) ,
I_CMPTNCE_T POSITION (232) CHAR (5) ,
C_BRNCH_OE_2 POSITION (237) CHAR (20) ,
F_OGR POSITION (257) INTEGER ,
D_STLMNT POSITION (261) DATE EXTERNAL (10) ,
I_RQST_PRCS_STS_T POSITION (271) CHAR (5) ,
F_PRE_APRVD_CO POSITION (276) INTEGER ,
I_TRNSCTN_DTL_T_1 POSITION (280) CHAR (5) ,
I_TRNSCTN_DTL_T_2 POSITION (285) CHAR (5) )
//LO201 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA201.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT201.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT201A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT201A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
D_DUE_START POSITION (133) DATE EXTERNAL (10) ,
I_RQST_STS_T POSITION (143) CHAR (5) ,
I_PRCS_PHSE_T POSITION (148) CHAR (5) )
//LO202 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA202.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.A
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.B
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.C
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.D
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.E
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT202A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT202A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
D_TIME_CREATED_A POSITION (47) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (73) CHAR (20) ,
D_TIME_MODIFIED POSITION (93) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (119) CHAR (20) ,
D_EFFECTIVE POSITION (139) DATE EXTERNAL (10) ,
D_END POSITION (149) DATE EXTERNAL (10) ,
I_DCSN_CMNT_T POSITION (159) CHAR (5) ,
I_RJCT_T POSITION (164) CHAR (5) ,
T_CMNT POSITION (169) VARCHAR )
//LO203 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA203.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT203.IT.A
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT203.IT.B
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT203.IT.C
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT203A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT203A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_RQST_CMNT_T POSITION (133) CHAR (5) ,
T_CMNT POSITION (138) VARCHAR )
//LO204 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA204.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT204.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT204A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT204A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_RQST_INFRMTN_T POSITION (133) CHAR (5) ,
I_UOM_T POSITION (138) CHAR (5) ,
I_CRNCY_ISO_T POSITION (143) CHAR (3) ,
A_VLE POSITION (146:176) DECIMAL EXTERNAL,
T_VLE POSITION (177) CHAR (60) )
//LO205 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA205.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT205.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT205A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT205A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_EXCLSN_CRTRA_T POSITION (133) CHAR (5) ,
F_EXCLSN_CRTRA POSITION (138) INTEGER )
//LO206 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA206.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT206A1
//LO207 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA207.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT207A1
//LO208 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA208.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT208A1
//LO209 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA209.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT209A1
//LO210 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA210.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT210A1
//LO211 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA211.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT211A1
//LO212 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA212.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT212A1
//LO213 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA213.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT213A1
//LO214 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA214.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT214A1
//LO220 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA220.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT220.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT220A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT220A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_CRDT_RQST_STS_T POSITION (67) CHAR (5) )
//LO221 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA221.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT221A1
//LO222 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA222.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT222A1
//LO230 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA230.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT230A1
//LO233 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA233.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT233.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT233A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT233A1"
(I_CRDT_RQST POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CMPTNCE_T POSITION (133) CHAR (5) ,
T_NME_CMPTNCE POSITION (138) CHAR (30) ,
T_FNCTN_CMPTNCE POSITION (168) CHAR (30) )
//LO240 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA240.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT240A1
//LO241 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA241.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT241A1
//LO242 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA242.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT242.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT242A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT242A1"
(I_RQST_BLNCE_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CRDT_RQST POSITION (133) CHAR (20) ,
F_CRDT_RQST_ARCHVD POSITION (153) INTEGER ,
I_BLNCE POSITION (157) CHAR (20) ,
F_BLNCE_ARCHVD POSITION (177) INTEGER )
//LO243 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA243.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT243.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT243A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT243A1"
(I_RQST_AFRDBLT_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_CRDT_RQST POSITION (133) CHAR (20) ,
F_CRDT_RQST_ARCHVD POSITION (153) INTEGER ,
I_AFRDBLTY POSITION (157) CHAR (20) ,
F_AFRDBLTY_ARCHVD POSITION (177) INTEGER )
//LO250 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA250.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT250.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT250A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT250A1"
(I_ANLYS POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS_STS_T POSITION (133) CHAR (5) ,
I_ANLYS_T POSITION (138) CHAR (5) ,
I_CRDT_CSTMR POSITION (143) CHAR (20) ,
I_MDLVRSN_T POSITION (163) CHAR (5) ,
I_MDLVRSN_USR_T POSITION (168) CHAR (5) ,
I_CSTMR_RTNG_FNL_T POSITION (173) CHAR (5) ,
P_PD_FNL POSITION (178:186) DECIMAL EXTERNAL,
I_MX_CRDT_RSK POSITION (187) CHAR (5) ,
I_CVRD_CRDT_T POSITION (192) CHAR (5) ,
T_CSTMR_RLBLTY POSITION (197) CHAR (5) ,
I_ECNMC_SCTR_T POSITION (202) CHAR (5) ,
I_RSK_DMCLE_ISO_T POSITION (207) CHAR (3) )
//LO251 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA251.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT251A1
//LO252 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA252.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT252A1
//LO253 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA253.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT253A1
//LO254 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA254.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT254A1
//LO255 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA255.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT255A1
//LO256 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA256.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT256A1
//LO257 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA257.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT257A1
//LO258 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA258.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT258A1
//LO270 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA270.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT270.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT270A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT270A1"
(I_ANLYS POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_ANLYS_STS_T POSITION (67) CHAR (5) )
//LO290 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA290.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT290.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT290A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT290A1"
(I_ANLYS_RQST_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS POSITION (133) CHAR (20) ,
F_ANLYS_ARCHVD POSITION (153) INTEGER ,
I_CRDT_RQST POSITION (157) CHAR (20) ,
F_CRDT_RQST_ARCHVD POSITION (177) INTEGER )
//LO291 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA291.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT291.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT291A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT291A1"
(I_ANLYS_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS_RP_T POSITION (133) CHAR (5) ,
I_ANLYS_1 POSITION (138) CHAR (20) ,
F_ANLYS_1_ARCHVD POSITION (158) INTEGER ,
I_ANLYS_2 POSITION (162) CHAR (20) ,
F_ANLYS_2_ARCHVD POSITION (182) INTEGER )
//LO292 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA292.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT292.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT292A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT292A1"
(I_ANLYS_BLNCE_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS POSITION (133) CHAR (20) ,
F_ANLYS_ARCHVD POSITION (153) INTEGER ,
I_BLNCE POSITION (157) CHAR (20) ,
F_BLNCE_ARCHVD POSITION (177) INTEGER )
//LO293 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA293.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT293.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT293A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT293A1"
(I_ANLYS_AFRDBLT_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_ANLYS POSITION (133) CHAR (20) ,
F_ANLYS_ARCHVD POSITION (153) INTEGER ,
I_AFRDBLTY POSITION (157) CHAR (20) ,
F_AFRDBLTY_ARCHVD POSITION (177) INTEGER )
//LO300 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA300.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT300.IT.STEU
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT300.IT.GEAB
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT300.IT.PACK
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT300A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT300A1"
(I_BLNCE POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_BLNCE_STS_T POSITION (133) CHAR (5) ,
I_CRDT_CSTMR POSITION (138) CHAR (20) ,
I_MDLVRSN_T POSITION (158) CHAR (5) ,
D_BLNCE POSITION (163) DATE EXTERNAL (10) ,
I_BLNCE_T POSITION (173) CHAR (5) ,
I_NOGA_T POSITION (178) CHAR (20) ,
I_BRNCH_GRP_T POSITION (198) CHAR (5) ,
N_CLSNG_PRD POSITION (203) INTEGER ,
I_CRNCY_ISO_T POSITION (207) CHAR (3) ,
I_ACNTNG_PRNCPLS_T POSITION (210) CHAR (5) ,
I_BSNS_T POSITION (215) CHAR (5) ,
I_PRFT_ORNTN_T POSITION (220) CHAR (5) ,
I_RVSN_PRNCPLS_T POSITION (225) CHAR (5) ,
I_PRFT_LS_ACNT_T POSITION (230) CHAR (5) )
//LO301 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA301.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.IT.A
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.IT.B
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.IT.C
// DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.IT.STEU
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT301A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT301A1"
(I_BLNCE POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
I_KY_FGRE_T POSITION (113) CHAR (20) ,
C_BLNCE_T POSITION (133) CHAR (1) ,
I_UOM_T POSITION (134) CHAR (5) ,
I_CRNCY_ISO_T POSITION (139) CHAR (3) ,
A_VLE POSITION (142:172) DECIMAL EXTERNAL,
I_RFT_T POSITION (173) CHAR (4) ,
I_VLE_T POSITION (177) CHAR (5) ,
I_PRFT_LS_ACNT_T POSITION (182) CHAR (5) ,
T_CMNT_RM POSITION (187) VARCHAR ,
T_CMNT_CO POSITION (1689) VARCHAR )
//LO302 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA302.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT302A1
//LO303 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA303.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT303.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT303A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT303A1"
(I_BLNCE_CMNT POSITION (1) CHAR (20) ,
I_BLNCE POSITION (21) CHAR (20) ,
D_TIME_CREATED POSITION (41) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (67) CHAR (20) ,
D_TIME_MODIFIED POSITION (87) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (113) CHAR (20) ,
D_EFFECTIVE POSITION (133) DATE EXTERNAL (10) ,
D_END POSITION (143) DATE EXTERNAL (10) ,
I_BLNCE_OWNR_T POSITION (153) CHAR (5) ,
I_CMNT_OWNR_T POSITION (158) CHAR (5) ,
I_CMNT_STS_T POSITION (163) CHAR (5) )
//LO304 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA304.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT304A1
//LO305 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA305.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT305A1
//LO306 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA306.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT306.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT306A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT306A1"
(I_BLNCE_CMNT POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
I_BLNCE_CMNT_GRP_T POSITION (113) CHAR (5) ,
I_BLNCE_CMNT_T POSITION (118) CHAR (20) ,
I_CMNT_CTGRY_T POSITION (138) CHAR (5) ,
T_CMNT POSITION (143) VARCHAR )
//LO307 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA307.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT307.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT307A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT307A1"
(I_BLNCE_CMNT POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_CMNT_STS_T POSITION (67) CHAR (5) )
//LO320 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA320.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT320.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT320A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT320A1"
(I_BLNCE POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_BLNCE_STS_T POSITION (67) CHAR (5) )
//LO340 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA340.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT340.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT340A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT340A1"
(I_BLNCE_RP POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_BLNCE_RP_T POSITION (133) CHAR (5) ,
I_BLNCE_1 POSITION (138) CHAR (20) ,
F_BLNCE_1_ARCHVD POSITION (158) INTEGER ,
I_BLNCE_2 POSITION (162) CHAR (20) ,
F_BLNCE_2_ARCHVD POSITION (182) INTEGER )
//LO350 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA350.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT350.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT350A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT350A1"
(I_AFRDBLTY POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL (26) ,
I_ID_MODIFIER POSITION (93) CHAR (20) ,
D_EFFECTIVE POSITION (113) DATE EXTERNAL (10) ,
D_END POSITION (123) DATE EXTERNAL (10) ,
I_AFRDBLTY_STS_T POSITION (133) CHAR (5) ,
I_CRDT_CSTMR POSITION (138) CHAR (20) ,
I_MDLVRSN_T POSITION (158) CHAR (5) ,
F_USDBY_CSTMR POSITION (163) INTEGER ,
F_PRVTE POSITION (167) INTEGER ,
F_CRDTWRTHY POSITION (171) INTEGER ,
I_PRTFLO_DCSN_T POSITION (175) CHAR (5) ,
F_AFRDBLTY_CLCLTD POSITION (180) INTEGER ,
I_AFRDBLTY_USR_T POSITION (184) CHAR (5) ,
A_CRDT_RQST POSITION (189:219) DECIMAL EXTERNAL,
A_SMLTN_RTE POSITION (220:250) DECIMAL EXTERNAL,
A_LMTS_EXSTNG POSITION (251:281) DECIMAL EXTERNAL,
A_LMTS_NW POSITION (282:312) DECIMAL EXTERNAL,
D_BLNCE POSITION (313) DATE EXTERNAL (10) ,
A_NT_TRNVR POSITION (323:353) DECIMAL EXTERNAL,
A_NT_LBLTY POSITION (354:384) DECIMAL EXTERNAL,
A_EQTY POSITION (385:415) DECIMAL EXTERNAL,
A_RLVNT_RSRCS POSITION (416:446) DECIMAL EXTERNAL,
A_EBIT POSITION (447:477) DECIMAL EXTERNAL,
A_CSHFLW POSITION (478:508) DECIMAL EXTERNAL,
I_CRNCY_ISO_T POSITION (509) CHAR (3) ,
T_CMNT POSITION (512) VARCHAR )
//LO351 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA351.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT351A1
//LO352 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA352.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT352A1
//LO353 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA353.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT353A1
//LO354 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA354.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT354A1
//LO355 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA355.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT355A1
//LO370 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA370.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT370.IT
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT370A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT370A1"
(I_AFRDBLTY POSITION (1) CHAR (20) ,
D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL (26) ,
I_ID_CREATOR POSITION (47) CHAR (20) ,
I_AFRDBLTY_STS_T POSITION (67) CHAR (5) )
//LO400 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA400.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT400A1
//CHECK EXEC PGM=DSNUTILB,
// PARM=(DBTF,'YCARAT.CHECK'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*SYSERR DD SYSOUT=*
//SYSERR DD DISP=(,PASS),UNIT=SYSDA,DATACLAS=NULL30,
// SPACE=(CYL,(100,1000))
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA,DATACLAS=NULL30,
// SPACE=(CYL,(100,1000))
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA,DATACLAS=NULL30,
// SPACE=(CYL,(100,1000))
//SYSTEMPL DD DISP=SHR,DSN=DBTF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
CHECK DATA
TABLESPACE CT02A1T.A100A
TABLESPACE CT02A1T.A110A
TABLESPACE CT02A1T.A111A
TABLESPACE CT02A1T.A120A
TABLESPACE CT02A1T.A130A
TABLESPACE CT02A1T.A135A
TABLESPACE CT02A1T.A140A
TABLESPACE CT02A1T.A141A
TABLESPACE CT02A1T.A150A
TABLESPACE CT02A1T.A151A
TABLESPACE CT02A1T.A152A
TABLESPACE CT02A1T.A153A
TABLESPACE CT02A1T.A170A
TABLESPACE CT02A1T.A200A
TABLESPACE CT02A1T.A201A
TABLESPACE CT02A1T.A202A
TABLESPACE CT02A1T.A203A
TABLESPACE CT02A1T.A204A
TABLESPACE CT02A1T.A205A
TABLESPACE CT02A1T.A206A
TABLESPACE CT02A1T.A207A
TABLESPACE CT02A1T.A208A
TABLESPACE CT02A1T.A209A
TABLESPACE CT02A1T.A210A
TABLESPACE CT02A1T.A211A
TABLESPACE CT02A1T.A212A
TABLESPACE CT02A1T.A213A
TABLESPACE CT02A1T.A214A
TABLESPACE CT02A1T.A220A
TABLESPACE CT02A1T.A221A
TABLESPACE CT02A1T.A222A
TABLESPACE CT02A1T.A230A
TABLESPACE CT02A1T.A233A
TABLESPACE CT02A1T.A240A
TABLESPACE CT02A1T.A241A
TABLESPACE CT02A1T.A242A
TABLESPACE CT02A1T.A243A
TABLESPACE CT02A1T.A250A
TABLESPACE CT02A1T.A251A
TABLESPACE CT02A1T.A252A
TABLESPACE CT02A1T.A253A
TABLESPACE CT02A1T.A254A
TABLESPACE CT02A1T.A255A
TABLESPACE CT02A1T.A256A
TABLESPACE CT02A1T.A257A
TABLESPACE CT02A1T.A258A
TABLESPACE CT02A1T.A270A
TABLESPACE CT02A1T.A290A
TABLESPACE CT02A1T.A291A
TABLESPACE CT02A1T.A292A
TABLESPACE CT02A1T.A293A
TABLESPACE CT02A1T.A300A
TABLESPACE CT02A1T.A301A
TABLESPACE CT02A1T.A302A
TABLESPACE CT02A1T.A303A
TABLESPACE CT02A1T.A304A
TABLESPACE CT02A1T.A305A
TABLESPACE CT02A1T.A306A
TABLESPACE CT02A1T.A307A
TABLESPACE CT02A1T.A320A
TABLESPACE CT02A1T.A340A
TABLESPACE CT02A1T.A350A
TABLESPACE CT02A1T.A351A
TABLESPACE CT02A1T.A352A
TABLESPACE CT02A1T.A353A
TABLESPACE CT02A1T.A354A
TABLESPACE CT02A1T.A355A
TABLESPACE CT02A1T.A370A
TABLESPACE CT02A1T.A400A
SCOPE ALL
//RUNSTA EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'A540769U.RUNSTA'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//SYSIN DD *
LISTDEF LST#STA
INCLUDE TABLESPACE CT01G1A.*
INCLUDE TABLESPACE CT02A1A.*
OPTIONS EVENT (ITEMERROR, SKIP)
RUNSTATS TABLESPACE CT02A1A.A340A
SHRLEVEL CHANGE
INDEX ALL UPDATE ALL
}¢--- A540769.WK.JCL(CARATPRL) cre=2010-03-15 mod=2010-03-16-10.25.13 A540769 ---
$= sub = DBOF
$= cre = OA1P
$= steps = 2
$;
$@=¢
TCT100A1
TCT110A1
TCT111A1
TCT120A1
TCT135A1
TCT141A1
TCT142A1
TCT150A1
TCT152A1
TCT153A1
TCT170A1
TCT200A1
TCT201A1
TCT202A1
TCT203A1
TCT204A1
TCT206A1
TCT207A1
TCT208A1
TCT209A1
TCT210A1
TCT211A1
TCT212A1
TCT213A1
TCT214A1
TCT215A1
TCT216A1
TCT217A1
TCT218A1
TCT220A1
TCT221A1
TCT222A1
TCT230A1
TCT231A1
$*+ TCT233A1
TCT240A1
TCT241A1
TCT242A1
TCT243A1
TCT244A1
TCT250A1
TCT251A1
TCT252A1
TCT253A1
TCT254A1
TCT255A1
TCT256A1
TCT257A1
TCT258A1
TCT259A1
TCT260A1
TCT261A1
TCT262A1
TCT264A1
TCT265A1
TCT266A1
TCT270A1
TCT290A1
TCT291A1
TCT292A1
TCT293A1
TCT300A1
TCT301A1
TCT302A1
$*+ TCT303A1
TCT304A1
TCT305A1
$*+ TCT306A1
TCT308A1
TCT309A1
TCT320A1
TCT340A1
TCT350A1
TCT351A1
TCT353A1
TCT354A1
TCT355A1
TCT356A1
TCT357A1
TCT358A1
TCT359A1
TCT370A1
TCT390A1
TCT400A1
$!
$| $@¢
jNo = 01
sNo = 0
$@for tt $@¢
sNo = sNo + 1
if sNo > $steps then do
$$- 'eoj' jNo
jNo = right(jNo + 1, 2, 0)
sNo = 1
end
if sNo = 1 then
$$- 'job' jNo
$$ $tt
$!
$$- 'eoj' jNo
$!
$| $@for tt $@¢
$= tt =- strip($tt)
if abbrev($tt, 'job') then $@=¢
$=jNo =- word($tt, 2)
$=j = YCARAT$jNo
//$j JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//LOAD EXEC PGM=DSNUTILB,PARM='$sub,$j.UNLOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=$sub.DBAA.LISTDEF(TEMPL),DISP=SHR
$!
else if \ abbrev($tt, 'eoj') then $@=¢
$= tx =- substr($tt, 4, 3)
TEMPLATE IN$tx DSN('DSN.CARAT.CT02A1P.A${tx}A.UNL')
--TEMPLATE TPUN DSN('DSN.CARAT.&DB..&SN..PUN')
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INDDN IN$tx
INTO TABLE OA1P.TCT${tx}T1
$@¢
pu = 'DSN.CARAT.CT02A1A.A'${tx}'A.PUN'
if sysDsn("'"pu"'") \= 'OK' then
call err 'missing punch' pu
st = 0
$;
$<-pu
$@for li $@¢
if st=0 & abbrev(strip($li), 'INTO TABLE') then
st=1
else if st=1 then
st=2
else if st=2 then do
et = 'TCT'$tx'A1'
if strip($li) \== '"'et'"' then
say 'table' strip($li) 'not' et
st = 3
end
else if st=3 then
st=4
else if st=4 then
$$ $li
$!
$!
$!
$!
$#out 20100315 17:23:06
$#out 20100316 10:24:26
}¢--- A540769.WK.JCL(CARATPRU) cre=2010-03-15 mod=2010-03-15-16.50.33 A540769 ---
$= sub = DBOF
$= cre = OA1P
$= steps = 9
$;
$@=¢
TCT100A1
TCT110A1
TCT111A1
TCT120A1
TCT135A1
TCT141A1
TCT142A1
TCT150A1
TCT152A1
TCT153A1
TCT170A1
TCT200A1
TCT201A1
TCT202A1
TCT203A1
TCT204A1
TCT206A1
TCT207A1
TCT208A1
TCT209A1
TCT210A1
TCT211A1
TCT212A1
TCT213A1
TCT214A1
TCT215A1
TCT216A1
TCT217A1
TCT218A1
TCT220A1
TCT221A1
TCT222A1
TCT230A1
TCT231A1
$*+ TCT233A1
TCT240A1
TCT241A1
TCT242A1
TCT243A1
TCT244A1
TCT250A1
TCT251A1
TCT252A1
TCT253A1
TCT254A1
TCT255A1
TCT256A1
TCT257A1
TCT258A1
TCT259A1
TCT260A1
TCT261A1
TCT262A1
TCT264A1
TCT265A1
TCT266A1
TCT270A1
TCT290A1
TCT291A1
TCT292A1
TCT293A1
TCT300A1
TCT301A1
TCT302A1
$*+ TCT303A1
TCT304A1
TCT305A1
$*+ TCT306A1
TCT308A1
TCT309A1
TCT320A1
TCT340A1
TCT350A1
TCT351A1
TCT353A1
TCT354A1
TCT355A1
TCT356A1
TCT357A1
TCT358A1
TCT359A1
TCT370A1
TCT390A1
TCT400A1
$!
$| $@¢
jNo = 01
sNo = 0
$@for tt $@¢
sNo = sNo + 1
if sNo > $steps then do
$$- 'eoj' jNo
jNo = right(jNo + 1, 2, 0)
sNo = 1
end
if sNo = 1 then
$$- 'job' jNo
$$ $tt
$!
$$- 'eoj' jNo
$!
$| $@for tt $@¢
$= tt =- strip($tt)
if abbrev($tt, 'job') then $@=¢
$=jNo =- word($tt, 2)
$=j = YCARAT$jNo
//$j JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD EXEC PGM=DSNUTILB,PARM='$sub,$j.UNLOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=$sub.DBAA.LISTDEF(TEMPL),DISP=SHR
LISTDEF LST
$!
else if \ abbrev($tt, 'eoj') then $@=¢
$= tx =- substr($tt, 4, 3)
INCLUDE TABLESPACE CT02A1P.A${tx}A
$!
else $@=¢
TEMPLATE TREC DSN('DSN.CARAT.&DB..&SN..UNL')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
SPACE (10,250) CYL
TEMPLATE TPUN DSN('DSN.CARAT.&DB..&SN..PUN')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
-- SPACE (10,250) CYL
UNLOAD LIST LST
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
$!
$!
$#out 20100315 16:50:18
//YCARAT01 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT01.UNLOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
LISTDEF LST
INCLUDE TABLESPACE CT02A1P.A100A
INCLUDE TABLESPACE CT02A1P.A110A
INCLUDE TABLESPACE CT02A1P.A111A
INCLUDE TABLESPACE CT02A1P.A120A
INCLUDE TABLESPACE CT02A1P.A135A
INCLUDE TABLESPACE CT02A1P.A141A
INCLUDE TABLESPACE CT02A1P.A142A
INCLUDE TABLESPACE CT02A1P.A150A
INCLUDE TABLESPACE CT02A1P.A152A
TEMPLATE TREC DSN('DSN.CARAT.&DB..&SN..UNL')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
SPACE (10,250) CYL
TEMPLATE TPUN DSN('DSN.CARAT.&DB..&SN..PUN')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
-- SPACE (10,250) CYL
UNLOAD LIST LST
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
//YCARAT02 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT02.UNLOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
LISTDEF LST
INCLUDE TABLESPACE CT02A1P.A153A
INCLUDE TABLESPACE CT02A1P.A170A
INCLUDE TABLESPACE CT02A1P.A200A
INCLUDE TABLESPACE CT02A1P.A201A
INCLUDE TABLESPACE CT02A1P.A202A
INCLUDE TABLESPACE CT02A1P.A203A
INCLUDE TABLESPACE CT02A1P.A204A
INCLUDE TABLESPACE CT02A1P.A206A
INCLUDE TABLESPACE CT02A1P.A207A
TEMPLATE TREC DSN('DSN.CARAT.&DB..&SN..UNL')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
SPACE (10,250) CYL
TEMPLATE TPUN DSN('DSN.CARAT.&DB..&SN..PUN')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
-- SPACE (10,250) CYL
UNLOAD LIST LST
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
//YCARAT03 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT03.UNLOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
LISTDEF LST
INCLUDE TABLESPACE CT02A1P.A208A
INCLUDE TABLESPACE CT02A1P.A209A
INCLUDE TABLESPACE CT02A1P.A210A
INCLUDE TABLESPACE CT02A1P.A211A
INCLUDE TABLESPACE CT02A1P.A212A
INCLUDE TABLESPACE CT02A1P.A213A
INCLUDE TABLESPACE CT02A1P.A214A
INCLUDE TABLESPACE CT02A1P.A215A
INCLUDE TABLESPACE CT02A1P.A216A
TEMPLATE TREC DSN('DSN.CARAT.&DB..&SN..UNL')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
SPACE (10,250) CYL
TEMPLATE TPUN DSN('DSN.CARAT.&DB..&SN..PUN')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
-- SPACE (10,250) CYL
UNLOAD LIST LST
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
//YCARAT04 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT04.UNLOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
LISTDEF LST
INCLUDE TABLESPACE CT02A1P.A217A
INCLUDE TABLESPACE CT02A1P.A218A
INCLUDE TABLESPACE CT02A1P.A220A
INCLUDE TABLESPACE CT02A1P.A221A
INCLUDE TABLESPACE CT02A1P.A222A
INCLUDE TABLESPACE CT02A1P.A230A
INCLUDE TABLESPACE CT02A1P.A231A
INCLUDE TABLESPACE CT02A1P.A240A
INCLUDE TABLESPACE CT02A1P.A241A
TEMPLATE TREC DSN('DSN.CARAT.&DB..&SN..UNL')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
SPACE (10,250) CYL
TEMPLATE TPUN DSN('DSN.CARAT.&DB..&SN..PUN')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
-- SPACE (10,250) CYL
UNLOAD LIST LST
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
//YCARAT05 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT05.UNLOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
LISTDEF LST
INCLUDE TABLESPACE CT02A1P.A242A
INCLUDE TABLESPACE CT02A1P.A243A
INCLUDE TABLESPACE CT02A1P.A244A
INCLUDE TABLESPACE CT02A1P.A250A
INCLUDE TABLESPACE CT02A1P.A251A
INCLUDE TABLESPACE CT02A1P.A252A
INCLUDE TABLESPACE CT02A1P.A253A
INCLUDE TABLESPACE CT02A1P.A254A
INCLUDE TABLESPACE CT02A1P.A255A
TEMPLATE TREC DSN('DSN.CARAT.&DB..&SN..UNL')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
SPACE (10,250) CYL
TEMPLATE TPUN DSN('DSN.CARAT.&DB..&SN..PUN')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
-- SPACE (10,250) CYL
UNLOAD LIST LST
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
//YCARAT06 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT06.UNLOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
LISTDEF LST
INCLUDE TABLESPACE CT02A1P.A256A
INCLUDE TABLESPACE CT02A1P.A257A
INCLUDE TABLESPACE CT02A1P.A258A
INCLUDE TABLESPACE CT02A1P.A259A
INCLUDE TABLESPACE CT02A1P.A260A
INCLUDE TABLESPACE CT02A1P.A261A
INCLUDE TABLESPACE CT02A1P.A262A
INCLUDE TABLESPACE CT02A1P.A264A
INCLUDE TABLESPACE CT02A1P.A265A
TEMPLATE TREC DSN('DSN.CARAT.&DB..&SN..UNL')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
SPACE (10,250) CYL
TEMPLATE TPUN DSN('DSN.CARAT.&DB..&SN..PUN')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
-- SPACE (10,250) CYL
UNLOAD LIST LST
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
//YCARAT07 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT07.UNLOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
LISTDEF LST
INCLUDE TABLESPACE CT02A1P.A266A
INCLUDE TABLESPACE CT02A1P.A270A
INCLUDE TABLESPACE CT02A1P.A290A
INCLUDE TABLESPACE CT02A1P.A291A
INCLUDE TABLESPACE CT02A1P.A292A
INCLUDE TABLESPACE CT02A1P.A293A
INCLUDE TABLESPACE CT02A1P.A300A
INCLUDE TABLESPACE CT02A1P.A301A
INCLUDE TABLESPACE CT02A1P.A302A
TEMPLATE TREC DSN('DSN.CARAT.&DB..&SN..UNL')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
SPACE (10,250) CYL
TEMPLATE TPUN DSN('DSN.CARAT.&DB..&SN..PUN')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
-- SPACE (10,250) CYL
UNLOAD LIST LST
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
//YCARAT08 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT08.UNLOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
LISTDEF LST
INCLUDE TABLESPACE CT02A1P.A304A
INCLUDE TABLESPACE CT02A1P.A305A
INCLUDE TABLESPACE CT02A1P.A308A
INCLUDE TABLESPACE CT02A1P.A309A
INCLUDE TABLESPACE CT02A1P.A320A
INCLUDE TABLESPACE CT02A1P.A340A
INCLUDE TABLESPACE CT02A1P.A350A
INCLUDE TABLESPACE CT02A1P.A351A
INCLUDE TABLESPACE CT02A1P.A353A
TEMPLATE TREC DSN('DSN.CARAT.&DB..&SN..UNL')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
SPACE (10,250) CYL
TEMPLATE TPUN DSN('DSN.CARAT.&DB..&SN..PUN')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
-- SPACE (10,250) CYL
UNLOAD LIST LST
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
//YCARAT09 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT09.UNLOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
LISTDEF LST
INCLUDE TABLESPACE CT02A1P.A354A
INCLUDE TABLESPACE CT02A1P.A355A
INCLUDE TABLESPACE CT02A1P.A356A
INCLUDE TABLESPACE CT02A1P.A357A
INCLUDE TABLESPACE CT02A1P.A358A
INCLUDE TABLESPACE CT02A1P.A359A
INCLUDE TABLESPACE CT02A1P.A370A
INCLUDE TABLESPACE CT02A1P.A390A
INCLUDE TABLESPACE CT02A1P.A400A
TEMPLATE TREC DSN('DSN.CARAT.&DB..&SN..UNL')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
SPACE (10,250) CYL
TEMPLATE TPUN DSN('DSN.CARAT.&DB..&SN..PUN')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
-- SPACE (10,250) CYL
UNLOAD LIST LST
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
$#out 20100315 16:45:24
}¢--- A540769.WK.JCL(CAREXX) cre=2012-11-16 mod=2012-11-16-12.50.07 A540769 ----
//DDAUDIT DD DISP=SHR,DSN=A540769.TMP.TEXT(AUDIT)
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//BPIIPT DD *
.MSG 'BEFORE SLEEP 1'
.CALL IKJEFT01 OUTDDN(SYSTSPRT) INDDN(SYSTSIN) PARM(%EXARGS A B) +
SYSLIB
.DATA
%EXSLEEP FROM DATA ....
.ENDDATA
.MSG 'AFTER SLEEP 1'
// DD DISP=SHR,
-...........
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//BPIOPT DD *
......................
.LIST SYSOUT(*)
.LIST DDNAME(DDAUDIT)
.CALL IKJEFT01 OUTDDN(SYSTSPRT) INDDN(SYSTSIN) PARM(%EXARGS A B) +
SYSLIB
.DATA
%EXARGS FROM DATA ....
.ENDDATA
}¢--- A540769.WK.JCL(CATPLAN) cre=2012-08-28 mod=2012-08-29-14.59.45 A540769 ---
//A540769C JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0 00040001
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM='WSH'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//OUT DD DISP=SHR,DSN=A540769.TMP.TEXT(PLANDBTF)
//SYSTSIN DD DUMMY
//WSH DD *
$#@
$=dbSy=dbtf
call sqlConnect $dbSy
call sqlSel "select p.NAME plan, l.SEQNO, l.LOCATION,",
"l.COLLID, l.NAME package",
"from sysibm.sysPlan p",
"left join sysibm.sysPackList l",
"on l.planName = p.name",
"where p.name like '%'",
"order by 1, 2",
"with ur"
$|
$$- $dbSy date('s')
call fmtFTab
}¢--- A540769.WK.JCL(CATPLARB) cre=2013-05-26 mod=2013-05-26-22.59.57 A540769 ---
//A540769X JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0 00040000
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM='WSH'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//OUT DD SYSOUT=*
//CMDLIST DD DISP=(MOD,CATLG),DSN=A540769.TST.IN1,
// DCB=(LRECL=2000,RECFM=VBA,DSORG=PS),
// SPACE=(CYL,(1,10)),MGMTCLAS=BAT#WK
//SYSTSIN DD DUMMY
//WSH DD *
$#@
say say hallo
$$ hallo
exit
$=dbSys = dc0g
$=rz=- sysvar(sysNode)
$;
$<dsn.tx.plan$rz(${dbSys}S4)
x = ${>ii}
$@for ii $@¢
parse value $ii with pl dt rb
rb = strip(rb)
say time() pl 'rb' rb
iterate
rx = sqlDsn(st, $dbSys, rb, '*')
if rx <> -99 then do /* output anzeigen */
say 'rc='rx 'for rebind' pl
do sx=1 to m.st.0
say '.' m.st.sx
end
call err 'rebind rc' rx
end
$!
$#out 20130524 21:52:40
$#out 20130524 21:51:13
$#out 20130524 21:49:31
}¢--- A540769.WK.JCL(CD) cre= mod=-. -------------------------------------------
//A540769H JOB (OS12,KE50,,SP00000000),MSGCLASS=T,TIME=100
//*MAIN CLASS=PVS
//*
//USEDPROC JCLLIB ORDER=PCL.U0000.P0.RZ1AKT.PERM.@005.JPO
//*
//*******************************************************************
//* FILE-TRANSFER BY CONNECT:DIRECT
//*******************************************************************
//*
//P01 EXEC CD01SKA1
//E01.DDKART1 DD DDNAME=WGRACC
//RZ2 DD *
SIGNON
SUBMIT PROC=MVS03DSN -
NEWNAME=PVT760MP -
MAXDELAY=00:01:00 -
&DEST=SKA.RZ2 -
&INDSN=A540769.TEST.OUT -
&INDISP=(SHR,KEEP,KEEP) -
&OUTDSN=A540769.CDRZ1.OUT -
&OUTDISP=(OLD,CATLG,KEEP)
SIGNOFF
//WGRACC DD * WGR ACCEPTANCE
SIGNON
SUBMIT PROC=MVS03DSN -
NEWNAME=PVT760MP -
MAXDELAY=00:10:00 -
&DEST=ACC -
&INDSN=PVSP.RZ1.P0.PVSTRACK.U0034.D05346.T150005 -
&INDISP=(SHR,KEEP,KEEP) -
&OUTDSN=P1DAT.DOCSYS.FTSCS.PVSTRACK(+1) -
&OUTDISP=(NEW,CATLG,DELETE) -
&OPARM1=MGMTCLAS=MCGDG -
&OPARM2=DATACLAS=DCVFILE -
&OPARM3=LRECL=32756
SIGNOFF
/*
//E01.TEKART1 DD * WGR TEST
SIGNON
SUBMIT PROC=MVS03DSN -
NEWNAME=PVT760MP -
MAXDELAY=UNLIMITED -
&DEST=TEST -
&INDSN=PVSP.RZ1.P0.PVSTRACK.U0034.D05346.T1500052 -
&INDISP=(SHR,KEEP,KEEP) -
&OUTDSN=T1DAT.DOCSYS.FTSCS.PVSTRACK(+1) -
&OUTDISP=(NEW,CATLG,DELETE) -
&OPARM1=MGMTCLAS=MCGDG -
&OPARM2=DATACLAS=DCVFILE -
&OPARM3=LRECL=32756
SIGNOFF
/*
}¢--- A540769.WK.JCL(CDOS29) cre=2008-11-24 mod=2008-11-24-17.24.33 F540769 ----
//PVT7600P JOB (CP00,KE50) 00010001
//*MAIN CLASS=POV
//********************************************************************
//* file transfer mit connect direct
//* vom aktuellen node nach rz2
//********************************************************************
//*
//SEND1 EXEC PGM=OS2900
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSUT1 DD DISP=SHR,
// DSNAME=PVSO.RZ1.T0.TS4S6164.D05300.T213327.TRACK2
//DDIN DD *
DEST='TEST'
DSNCOPY='YES'
DSN='T1DAT.DOCSYS.FTSCS.PVSTRACK(+1)'
WAIT='YES'
MGMTCLAS='MCGDG'
DATACLAS='DCVFILE'
//DDIN3 DD *
DEST='RZ2'
DSNCOPY='YES'
DSN='PVST.RZ1.T0.TS4S6164.D05300.T213327.TRACK'
WAIT='YES'
MGMTCLAS='COM#A092'
//DDIN2 DD *
DSN='A540769.LST.RZ2.T1'
DISP='NEW'
DEST='RZ1'
DUPLI='RETRY'
WAIT='YES'
//XXIN DD *
DSN='A540769.POX.Y04M11'
DEST='RZ2'
DSNCOPY='YES'
}¢--- A540769.WK.JCL(CDTSO) cre=2008-11-24 mod=2008-11-24-17.24.34 F540769 -----
//A540769F JOB (OS12,KE50,,SP00000000),MSGCLASS=T,TIME=100
//*MAIN CLASS=PVS
//*
//*******************************************************************
//* FILE-TRANSFER BY CONNECT:DIRECT
//*******************************************************************
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//* PARM='%CD'
//*YSIN DD DUMMY
//*SYSTSIN DD DUMMY
//SYSTSIN DD *
CALL *(DMBATCH) 'YYSLYNN'
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//* dd's für cd, entsprechend proc CD01SKA1
//DMPUBLIB DD DSN=JOBP.FT1A.PRCS,DISP=SHR
// DD DSN=SFT.DIV.X0.CD.PRCS,DISP=SHR
//DMNETMAP DD DSN=SFT.SKA.P0.CD.NETMAP,DISP=SHR
//DMMSGFIL DD DSN=SFT.DIV.X0.CD.MSG,DISP=SHR
//DMPRINT DD SYSOUT=*
//SYSIN DD *
SIGNON
SUBMIT PROC=MVS03DSN -
NEWNAME=PVT7600P -
MAXDELAY=UNLIMITED -
&DEST=ACC -
&INDSN=PVSO.RZ1.P0.TS4SXXXX.D05300.TXXXXXX.TRACK2 -
&INDISP=(SHR,KEEP,KEEP) -
&OUTDSN=P1DAT.DOCSYS.FTSCS.PVSTRACK(+1) -
&OUTDISP=(NEW,CATLG,DELETE) -
&OPARM1=MGMTCLAS=MCGDG -
&OPARM2=DATACLAS=DCVFILE -
&OPARM3=LRECL=32756
SIGNOFF
//SYSINP DD *
SIGNON
SUBMIT PROC=MVS03DSN -
NEWNAME=PVT7600P -
MAXDELAY=UNLIMITED -
&DEST=PROD -
&INDSN=PVSO.RZ1.P0.TS4SXXXX.D05300.TXXXXXX.TRACK2 -
&INDISP=(SHR,KEEP,KEEP) -
&OUTDSN=P1DAT.DOCSYS.FTSCS.PVSTRACK(+1) -
&OUTDISP=(NEW,CATLG,DELETE) -
&OPARM1=MGMTCLAS=MCGDG -
&OPARM2=DATACLAS=DCVFILE -
&OPARM3=LRECL=32756
//SYSINT DD *
SIGNOFF
SIGNON
SUBMIT PROC=MVS03DSN -
NEWNAME=PVT760MP -
MAXDELAY=UNLIMITED -
&DEST=TEST -
&INDSN=PVSO.RZ1.P0.TS4SXXXX.D05300.TXXXXXX.TRACK2 -
&INDISP=(SHR,KEEP,KEEP) -
&OUTDSN=T1DAT.DOCSYS.FTSCS.PVSTRACK(+1) -
&OUTDISP=(NEW,CATLG,DELETE) -
&OPARM1=MGMTCLAS=MCGDG -
&OPARM2=DATACLAS=DCVFILE -
&OPARM3=LRECL=32756
SIGNOFF
//SYSIN2 DD *
SIGNON
SUBMIT PROC=MVS03DSN -
NEWNAME=PVT760MP -
MAXDELAY=UNLIMITED -
&DEST=SKA.RZ2 -
&INDSN=PVSO.RZ1.P0.TS4SXXXX.D05300.TXXXXXX.TRACK2 -
&INDISP=(SHR,KEEP,KEEP) -
&OUTDSN=A540769.TEST.PVSTRACD.U0034(+1) -
&OUTDISP=(NEW,CATLG,DELETE) -
&OPARM1=MGMTCLAS=COM#A092 -
&OPARM2=LRECL=32756
SIGNOFF
}¢--- A540769.WK.JCL(CHARS) cre=2008-02-22 mod=2008-02-29-16.30.40 F540769 -----
a.
a+
a|
a*
a/
a%
a?
a=
aa
aab*efg
aab=efg
aabc*efg
aabc=efg
aabcd*ef
aabcd=ef
aab2*efg
a¨
aA
a0
a9
}¢--- A540769.WK.JCL(CHECKRJ0) cre=2008-03-03 mod=2008-11-24-17.24.34 F540769 ---
//QR03211P JOB (PD00,KE50,,SP00000000),
// 'DB2',
// MSGCLASS=E,
// TIME=1440
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
//*MAIN CLASS=SUBP2
//********************************************************************
//* JCLPREP 10/04/2006 10:51:29 A965472
//********************************************************************
//*
//P00 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL 'DSN.SYSPRINT.QR03211P' NVSAM PURGE
DEL 'DBOF.DBAA.LISTDEF.QR03211P' NVSAM PURGE
IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//* OBJEKTE AUS LISTDEF AUFLÖSEN
//P02 EXEC PGM=DSNUTILB,
// PARM='DBOF,QR03211P.PREVIEW'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD DSN=DSN.SYSPRINT.QR03211P,
// DISP=(NEW,CATLG)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBOF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBOF.DBAA.LISTDEF(QR032111),DISP=SHR
// ENDIF
//*
// IF RC < 9 THEN
//* SYSPRINT AUF SYSOUT UMKOPIEREN
//P03 EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DSN=DSN.SYSPRINT.QR03211P,DISP=SHR
//SYSUT2 DD SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* RTS FÜR TABLESPACES CHECKEN, OUTPUT ERSTELLEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ2.P0.USER.EXEC,DISP=SHR
//DDIN1 DD DSN=DSN.SYSPRINT.QR03211P,DISP=SHR
//DDIN2 DD DSN=DBOF.DBAA.LISTDEF(QR032111),DISP=SHR
//DDOUT1 DD DSN=DBOF.DBAA.LISTDEF.QR03211P,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD *
%CHECKRTS DBOF TS
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* REORG FÜR TABLESPACES AUSFÜHREN
//P05 EXEC PGM=DSNUTILB,
// PARM='DBOF,QR03211P.REORG'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBOF.DBAA.LISTDEF.QR03211P,DISP=SHR
// ENDIF
//*
// IF RC < 5 THEN
//* RTS FÜR INDEXE CHECKEN, OUTPUT ERSTELLEN
//P06 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ2.P0.USER.EXEC,DISP=SHR
//DDIN1 DD DSN=DSN.SYSPRINT.QR03211P,DISP=SHR
//DDIN2 DD DSN=DBOF.DBAA.LISTDEF(QR032111),DISP=SHR
//DDOUT1 DD DSN=DBOF.DBAA.LISTDEF.QR03211P,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD *
%CHECKRTS DBOF IX
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* REORG FÜR INDEXE AUSFÜHREN
//P07 EXEC PGM=DSNUTILB,
// PARM='DBOF,QR03211P.REORG'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBOF.DBAA.LISTDEF.QR03211P,DISP=SHR
// ENDIF
//*
// IF ((ABEND) OR (P05.RC GT 4) OR (P07.RC GT 4)) THEN
//* TERM UTIL
//P08 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DSN=DBOF.DBAA.LCTL(QR032112),DISP=SHR
//* DISPLAY DATABASE
//*
//P09 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DSN=DBOF.DBAA.LCTL(QR032113),DISP=SHR
// ENDIF
}¢--- A540769.WK.JCL(CHECKRJ1) cre=2008-03-03 mod=2008-11-24-17.24.34 F540769 ---
//A540769S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//* test job für checkRTS
//* preview Liste
//* checkRts laufen lassen und List in Library kopieren
//* nach alt und neu
//*
// SET MBR=QR20801
//P02 EXEC PGM=DSNUTILB,
// PARM='DBAF,&MBR.P.PREVIEW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBAF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=A540769.CHECKRTS.LISTDEF(&MBR.1),DISP=SHR
//* DD DSN=DBAF.DBAA.LISTDEF(QR032111),DISP=SHR
//P04OLD EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//*YSEXEC DD DSN=TSO.RZ1.P0.USER.EXEC,DISP=SHR
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=A540769.CHECKRTS.LISTDEF(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR.O,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD *
%CHECKRT0 DBAF TS
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OUTPROLD(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//P05 EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR.O
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OUTLINEW(&MBR)
//P06NEW EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=A540769.CHECKRTS.LISTDEF(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR.N,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD *
%CHECKRTS DBAF TS
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OUTPRNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//P07 EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR.N
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OUTLINEW(&MBR)
//
//*
// IF RC < 5 THEN
//* REORG FÜR TABLESPACES AUSFÜHREN
//P05 EXEC PGM=DSNUTILB,
// PARM='DBAF,QR03211P.REORG'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBAF.DBAA.LISTDEF.QR03211P,DISP=SHR
// ENDIF
//*
// IF RC < 5 THEN
//* RTS FÜR INDEXE CHECKEN, OUTPUT ERSTELLEN
//P06 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ2.P0.USER.EXEC,DISP=SHR
//DDIN1 DD DSN=DSN.SYSPRINT.QR03211P,DISP=SHR
//DDIN2 DD DSN=DBAF.DBAA.LISTDEF(QR032111),DISP=SHR
//DDOUT1 DD DSN=DBAF.DBAA.LISTDEF.QR03211P,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD *
%CHECKRTS DBAF IX
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* REORG FÜR INDEXE AUSFÜHREN
//P07 EXEC PGM=DSNUTILB,
// PARM='DBAF,QR03211P.REORG'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBAF.DBAA.LISTDEF.QR03211P,DISP=SHR
// ENDIF
//*
// IF ((ABEND) OR (P05.RC GT 4) OR (P07.RC GT 4)) THEN
//* TERM UTIL
//P08 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DSN=DBAF.DBAA.LCTL(QR032112),DISP=SHR
//* DISPLAY DATABASE
//*
//P09 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DSN=DBAF.DBAA.LCTL(QR032113),DISP=SHR
// ENDIF
}¢--- A540769.WK.JCL(CHECKRJ2) cre=2008-03-07 mod=2008-05-20-11.48.29 F540769 ---
$*(
checkRts Test
Jobs generieren für
list Previews laufen lassen für alle QR Member aus listdef
$*)
$=subsys = DBTF
$=listDef = $subsys.dbaa.listdef
$=listOvr = A540769.CHECKRTS.$subsys.listdef
$=listOvr =
id = lmmbegin($listDef'(qr*)')
do forever
mbr = lmmnext(id)
if mbr = '' then
leave
if substr(mbr, 8) == '1' then
$£ left(mbr, 7)
else
say 'ignoring' mbr
end
call lmmend id
$¨ $@{
mx = 0
jx = 0
$@for mbr $@{
if mx // 100 = 0 then $@{
jx = jx + 1
$=jc £ right(jx, 1)
$@¢
//A540769$jc JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job $(jx$) first member $(mx+1$) $mbr
$!
$}
mx = mx+1
ll = $listDef
if $listOvr <> '' then
if sysDsn("'"$listOvr"("$mbr"1)'") == 'OK' then
ll = $listOvr
$@¢
//P$(mx$) EXEC PGM=DSNUTILB,
// PARM='$subsys,$mbr.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT($mbr)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=$subsys.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=$subsys.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=$(translate(ll)$)(${mbr}1),DISP=SHR
$!
$}
$}
$***out 20080520 11:45:55
//A5407691 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 1 first member 1 QR00101
//P1 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR001011),DISP=SHR
//P2 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR002011),DISP=SHR
//P3 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00202.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00202)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR002021),DISP=SHR
//P4 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00203.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00203)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR002031),DISP=SHR
//P5 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00205.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00205)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR002051),DISP=SHR
//P6 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003011),DISP=SHR
//P7 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00302.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00302)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003021),DISP=SHR
//P8 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00303.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00303)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003031),DISP=SHR
//P9 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00304.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00304)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003041),DISP=SHR
//P10 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00305.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00305)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003051),DISP=SHR
//P11 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00306.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00306)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003061),DISP=SHR
//P12 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00307.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00307)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003071),DISP=SHR
//P13 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00308.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00308)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003081),DISP=SHR
//P14 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00309.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00309)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003091),DISP=SHR
//P15 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00310.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00310)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003101),DISP=SHR
//P16 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00311.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00311)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003111),DISP=SHR
//P17 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00312.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00312)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003121),DISP=SHR
//P18 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00313.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00313)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003131),DISP=SHR
//P19 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00314.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00314)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003141),DISP=SHR
//P20 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00315.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00315)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003151),DISP=SHR
//P21 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00316.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00316)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR003161),DISP=SHR
//P22 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR004011),DISP=SHR
//P23 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR005011),DISP=SHR
//P24 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR006011),DISP=SHR
//P25 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR007011),DISP=SHR
//P26 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR008011),DISP=SHR
//P27 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR00901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR00901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR009011),DISP=SHR
//P28 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR01001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR01001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR010011),DISP=SHR
//P29 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR01101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR01101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR011011),DISP=SHR
//P30 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR01201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR01201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR012011),DISP=SHR
//P31 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR01202.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR01202)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR012021),DISP=SHR
//P32 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR01203.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR01203)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR012031),DISP=SHR
//P33 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR01401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR01401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR014011),DISP=SHR
//P34 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR01501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR01501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR015011),DISP=SHR
//P35 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR01601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR01601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR016011),DISP=SHR
//P36 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR01701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR01701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR017011),DISP=SHR
//P37 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR01702.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR01702)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR017021),DISP=SHR
//P38 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR01901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR01901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR019011),DISP=SHR
//P39 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR020011),DISP=SHR
//P40 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR021011),DISP=SHR
//P41 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR022011),DISP=SHR
//P42 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR024011),DISP=SHR
//P43 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR025011),DISP=SHR
//P44 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR026011),DISP=SHR
//P45 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02602.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02602)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR026021),DISP=SHR
//P46 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02603.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02603)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR026031),DISP=SHR
//P47 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02604.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02604)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR026041),DISP=SHR
//P48 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02605.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02605)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR026051),DISP=SHR
//P49 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02606.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02606)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR026061),DISP=SHR
//P50 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02607.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02607)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR026071),DISP=SHR
//P51 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02608.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02608)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR026081),DISP=SHR
//P52 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02609.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02609)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR026091),DISP=SHR
//P53 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR027011),DISP=SHR
//P54 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02702.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02702)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR027021),DISP=SHR
//P55 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR02901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR02901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR029011),DISP=SHR
//P56 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR030011),DISP=SHR
//P57 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03002.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03002)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR030021),DISP=SHR
//P58 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR031011),DISP=SHR
//P59 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR032011),DISP=SHR
//P60 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03202.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03202)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR032021),DISP=SHR
//P61 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03203.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03203)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR032031),DISP=SHR
//P62 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03204.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03204)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR032041),DISP=SHR
//P63 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03205.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03205)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR032051),DISP=SHR
//P64 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03206.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03206)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR032061),DISP=SHR
//P65 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03207.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03207)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR032071),DISP=SHR
//P66 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03208.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03208)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR032081),DISP=SHR
//P67 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03209.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03209)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR032091),DISP=SHR
//P68 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03210.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03210)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR032101),DISP=SHR
//P69 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03211.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03211)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR032111),DISP=SHR
//P70 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03212.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03212)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR032121),DISP=SHR
//P71 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR033011),DISP=SHR
//P72 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR034011),DISP=SHR
//P73 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR035011),DISP=SHR
//P74 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR036011),DISP=SHR
//P75 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR037011),DISP=SHR
//P76 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR038011),DISP=SHR
//P77 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR039011),DISP=SHR
//P78 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR03902.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR03902)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR039021),DISP=SHR
//P79 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04002.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04002)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR040021),DISP=SHR
//P80 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04003.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04003)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR040031),DISP=SHR
//P81 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04004.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04004)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR040041),DISP=SHR
//P82 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04005.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04005)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR040051),DISP=SHR
//P83 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR041011),DISP=SHR
//P84 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR043011),DISP=SHR
//P85 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044011),DISP=SHR
//P86 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04402.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04402)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044021),DISP=SHR
//P87 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04403.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04403)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044031),DISP=SHR
//P88 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04404.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04404)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044041),DISP=SHR
//P89 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04405.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04405)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044051),DISP=SHR
//P90 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04406.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04406)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044061),DISP=SHR
//P91 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04407.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04407)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044071),DISP=SHR
//P92 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04408.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04408)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044081),DISP=SHR
//P93 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04409.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04409)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044091),DISP=SHR
//P94 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04410.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04410)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044101),DISP=SHR
//P95 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04411.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04411)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044111),DISP=SHR
//P96 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04412.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04412)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044121),DISP=SHR
//P97 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04413.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04413)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044131),DISP=SHR
//P98 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04414.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04414)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044141),DISP=SHR
//P99 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04415.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04415)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR044151),DISP=SHR
//P100 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR045011),DISP=SHR
//A5407692 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 2 first member 101 QR04601
//P101 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR046011),DISP=SHR
//P102 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR047011),DISP=SHR
//P103 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04702.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04702)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR047021),DISP=SHR
//P104 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR048011),DISP=SHR
//P105 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR04901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR04901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR049011),DISP=SHR
//P106 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR050011),DISP=SHR
//P107 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR051011),DISP=SHR
//P108 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR052011),DISP=SHR
//P109 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR053011),DISP=SHR
//P110 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05402.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05402)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR054021),DISP=SHR
//P111 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05403.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05403)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR054031),DISP=SHR
//P112 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055011),DISP=SHR
//P113 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05503.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05503)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055031),DISP=SHR
//P114 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05504.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05504)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055041),DISP=SHR
//P115 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05505.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05505)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055051),DISP=SHR
//P116 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05506.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05506)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055061),DISP=SHR
//P117 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05507.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05507)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055071),DISP=SHR
//P118 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05508.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05508)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055081),DISP=SHR
//P119 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05509.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05509)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055091),DISP=SHR
//P120 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05510.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05510)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055101),DISP=SHR
//P121 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05511.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05511)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055111),DISP=SHR
//P122 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05512.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05512)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055121),DISP=SHR
//P123 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05513.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05513)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055131),DISP=SHR
//P124 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05514.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05514)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055141),DISP=SHR
//P125 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05515.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05515)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR055151),DISP=SHR
//P126 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR056011),DISP=SHR
//P127 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR057T2.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR057T2)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057T21),DISP=SHR
//P128 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR057T3.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR057T3)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057T31),DISP=SHR
//P129 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR057T4.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR057T4)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057T41),DISP=SHR
//P130 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR057T5.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR057T5)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057T51),DISP=SHR
//P131 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR057T6.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR057T6)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057T61),DISP=SHR
//P132 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR057T7.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR057T7)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057T71),DISP=SHR
//P133 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR057T8.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR057T8)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057T81),DISP=SHR
//P134 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR057T9.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR057T9)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057T91),DISP=SHR
//P135 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05702.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05702)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057021),DISP=SHR
//P136 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05703.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05703)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057031),DISP=SHR
//P137 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05704.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05704)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057041),DISP=SHR
//P138 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05705.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05705)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057051),DISP=SHR
//P139 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05706.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05706)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057061),DISP=SHR
//P140 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05707.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05707)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057071),DISP=SHR
//P141 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05708.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05708)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057081),DISP=SHR
//P142 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05709.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05709)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR057091),DISP=SHR
//P143 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058011),DISP=SHR
//P144 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05802.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05802)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058021),DISP=SHR
//P145 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05803.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05803)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058031),DISP=SHR
//P146 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05804.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05804)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058041),DISP=SHR
//P147 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05805.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05805)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058051),DISP=SHR
//P148 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05806.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05806)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058061),DISP=SHR
//P149 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05807.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05807)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058071),DISP=SHR
//P150 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05808.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05808)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058081),DISP=SHR
//P151 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05809.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05809)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058091),DISP=SHR
//P152 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05810.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05810)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058101),DISP=SHR
//P153 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05811.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05811)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058111),DISP=SHR
//P154 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05812.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05812)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058121),DISP=SHR
//P155 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05813.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05813)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058131),DISP=SHR
//P156 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05814.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05814)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058141),DISP=SHR
//P157 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05815.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05815)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058151),DISP=SHR
//P158 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05816.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05816)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058161),DISP=SHR
//P159 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05817.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05817)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058171),DISP=SHR
//P160 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05818.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05818)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058181),DISP=SHR
//P161 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05819.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05819)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058191),DISP=SHR
//P162 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05820.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05820)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR058201),DISP=SHR
//P163 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR059T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR059T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR059T11),DISP=SHR
//P164 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR059T2.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR059T2)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR059T21),DISP=SHR
//P165 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR059T3.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR059T3)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR059T31),DISP=SHR
//P166 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR059T4.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR059T4)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR059T41),DISP=SHR
//P167 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR059T5.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR059T5)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR059T51),DISP=SHR
//P168 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR059T6.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR059T6)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR059T61),DISP=SHR
//P169 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR059011),DISP=SHR
//P170 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05902.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05902)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR059021),DISP=SHR
//P171 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05903.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05903)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR059031),DISP=SHR
//P172 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05904.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05904)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR059041),DISP=SHR
//P173 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR05905.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR05905)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR059051),DISP=SHR
//P174 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR060011),DISP=SHR
//P175 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR061011),DISP=SHR
//P176 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR062011),DISP=SHR
//P177 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR063011),DISP=SHR
//P178 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR064011),DISP=SHR
//P179 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR066011),DISP=SHR
//P180 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR067011),DISP=SHR
//P181 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR068011),DISP=SHR
//P182 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06802.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06802)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR068021),DISP=SHR
//P183 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06803.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06803)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR068031),DISP=SHR
//P184 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06804.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06804)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR068041),DISP=SHR
//P185 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06805.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06805)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR068051),DISP=SHR
//P186 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06806.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06806)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR068061),DISP=SHR
//P187 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06807.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06807)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR068071),DISP=SHR
//P188 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06808.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06808)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR068081),DISP=SHR
//P189 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR06901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR06901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR069011),DISP=SHR
//P190 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR07001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR07001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR070011),DISP=SHR
//P191 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR07101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR07101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR071011),DISP=SHR
//P192 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR07201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR07201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR072011),DISP=SHR
//P193 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR07302.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR07302)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR073021),DISP=SHR
//P194 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR07401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR07401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR074011),DISP=SHR
//P195 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR07402.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR07402)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR074021),DISP=SHR
//P196 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR07501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR07501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR075011),DISP=SHR
//P197 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR07601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR07601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR076011),DISP=SHR
//P198 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR07701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR07701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR077011),DISP=SHR
//P199 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR07801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR07801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR078011),DISP=SHR
//P200 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR07901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR07901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR079011),DISP=SHR
//A5407693 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 3 first member 201 QR08001
//P201 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR080011),DISP=SHR
//P202 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR081011),DISP=SHR
//P203 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR082011),DISP=SHR
//P204 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR083011),DISP=SHR
//P205 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR084011),DISP=SHR
//P206 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR085011),DISP=SHR
//P207 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR086011),DISP=SHR
//P208 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR087011),DISP=SHR
//P209 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR088011),DISP=SHR
//P210 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR089T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR089T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR089T11),DISP=SHR
//P211 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR089T2.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR089T2)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR089T21),DISP=SHR
//P212 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR089T3.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR089T3)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR089T31),DISP=SHR
//P213 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR089T4.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR089T4)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR089T41),DISP=SHR
//P214 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR089T5.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR089T5)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR089T51),DISP=SHR
//P215 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR089011),DISP=SHR
//P216 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08902.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08902)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR089021),DISP=SHR
//P217 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08903.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08903)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR089031),DISP=SHR
//P218 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08904.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08904)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR089041),DISP=SHR
//P219 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08905.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08905)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR089051),DISP=SHR
//P220 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR08909.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR08909)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR089091),DISP=SHR
//P221 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR09001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR09001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR090011),DISP=SHR
//P222 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR09101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR09101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR091011),DISP=SHR
//P223 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR09201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR09201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR092011),DISP=SHR
//P224 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR09401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR09401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR094011),DISP=SHR
//P225 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR09501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR09501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR095011),DISP=SHR
//P226 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR09601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR09601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR096011),DISP=SHR
//P227 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR09701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR09701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR097011),DISP=SHR
//P228 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR09901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR09901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR099011),DISP=SHR
//P229 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR10101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR10101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR101011),DISP=SHR
//P230 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR10201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR10201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR102011),DISP=SHR
//P231 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR10301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR10301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR103011),DISP=SHR
//P232 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR10401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR10401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR104011),DISP=SHR
//P233 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR10501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR10501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR105011),DISP=SHR
//P234 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR10601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR10601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR106011),DISP=SHR
//P235 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR10802.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR10802)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR108021),DISP=SHR
//P236 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR10901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR10901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR109011),DISP=SHR
//P237 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR110011),DISP=SHR
//P238 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11002.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11002)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR110021),DISP=SHR
//P239 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR112011),DISP=SHR
//P240 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR113011),DISP=SHR
//P241 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11302.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11302)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR113021),DISP=SHR
//P242 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR114011),DISP=SHR
//P243 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR115011),DISP=SHR
//P244 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR116011),DISP=SHR
//P245 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR117011),DISP=SHR
//P246 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11702.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11702)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR117021),DISP=SHR
//P247 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11703.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11703)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR117031),DISP=SHR
//P248 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11704.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11704)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR117041),DISP=SHR
//P249 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11705.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11705)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR117051),DISP=SHR
//P250 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11706.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11706)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR117061),DISP=SHR
//P251 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11707.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11707)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR117071),DISP=SHR
//P252 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11708.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11708)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR117081),DISP=SHR
//P253 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11709.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11709)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR117091),DISP=SHR
//P254 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11710.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11710)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR117101),DISP=SHR
//P255 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR118011),DISP=SHR
//P256 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR11901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR11901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR119011),DISP=SHR
//P257 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR120011),DISP=SHR
//P258 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR121011),DISP=SHR
//P259 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12102.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12102)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR121021),DISP=SHR
//P260 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR122011),DISP=SHR
//P261 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR124T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR124T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR124T11),DISP=SHR
//P262 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR124011),DISP=SHR
//P263 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125011),DISP=SHR
//P264 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12502.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12502)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125021),DISP=SHR
//P265 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12503.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12503)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125031),DISP=SHR
//P266 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12504.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12504)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125041),DISP=SHR
//P267 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12505.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12505)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125051),DISP=SHR
//P268 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12506.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12506)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125061),DISP=SHR
//P269 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12507.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12507)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125071),DISP=SHR
//P270 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12508.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12508)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125081),DISP=SHR
//P271 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12509.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12509)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125091),DISP=SHR
//P272 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12510.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12510)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125101),DISP=SHR
//P273 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12511.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12511)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125111),DISP=SHR
//P274 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12512.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12512)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125121),DISP=SHR
//P275 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12513.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12513)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125131),DISP=SHR
//P276 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12514.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12514)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125141),DISP=SHR
//P277 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12515.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12515)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125151),DISP=SHR
//P278 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12516.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12516)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125161),DISP=SHR
//P279 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12517.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12517)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125171),DISP=SHR
//P280 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12518.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12518)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125181),DISP=SHR
//P281 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12569.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12569)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125691),DISP=SHR
//P282 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12570.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12570)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125701),DISP=SHR
//P283 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12571.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12571)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125711),DISP=SHR
//P284 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12572.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12572)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125721),DISP=SHR
//P285 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12573.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12573)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125731),DISP=SHR
//P286 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12574.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12574)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125741),DISP=SHR
//P287 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12575.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12575)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125751),DISP=SHR
//P288 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12576.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12576)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125761),DISP=SHR
//P289 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12577.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12577)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR125771),DISP=SHR
//P290 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR126011),DISP=SHR
//P291 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12602.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12602)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR126021),DISP=SHR
//P292 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR12701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR12701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR127011),DISP=SHR
//P293 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR130011),DISP=SHR
//P294 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR131011),DISP=SHR
//P295 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR136011),DISP=SHR
//P296 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13602.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13602)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR136021),DISP=SHR
//P297 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13603.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13603)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR136031),DISP=SHR
//P298 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13604.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13604)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR136041),DISP=SHR
//P299 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13605.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13605)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR136051),DISP=SHR
//P300 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13606.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13606)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR136061),DISP=SHR
//A5407694 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 4 first member 301 QR13607
//P301 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13607.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13607)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR136071),DISP=SHR
//P302 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13608.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13608)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR136081),DISP=SHR
//P303 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13609.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13609)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR136091),DISP=SHR
//P304 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13610.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13610)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR136101),DISP=SHR
//P305 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13611.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13611)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR136111),DISP=SHR
//P306 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13612.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13612)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR136121),DISP=SHR
//P307 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR138011),DISP=SHR
//P308 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13802.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13802)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR138021),DISP=SHR
//P309 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR13901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR13901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR139011),DISP=SHR
//P310 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR148T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR148T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR148T11),DISP=SHR
//P311 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR148T2.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR148T2)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR148T21),DISP=SHR
//P312 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR148T3.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR148T3)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR148T31),DISP=SHR
//P313 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR14801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR14801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR148011),DISP=SHR
//P314 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR14802.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR14802)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR148021),DISP=SHR
//P315 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR14803.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR14803)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR148031),DISP=SHR
//P316 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR149T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR149T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149T11),DISP=SHR
//P317 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR149T2.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR149T2)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149T21),DISP=SHR
//P318 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR149T3.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR149T3)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149T31),DISP=SHR
//P319 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR149T4.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR149T4)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149T41),DISP=SHR
//P320 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR149T5.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR149T5)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149T51),DISP=SHR
//P321 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR149T6.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR149T6)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149T61),DISP=SHR
//P322 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR149T7.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR149T7)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149T71),DISP=SHR
//P323 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR14902.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR14902)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149021),DISP=SHR
//P324 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR14903.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR14903)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149031),DISP=SHR
//P325 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR14904.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR14904)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149041),DISP=SHR
//P326 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR14905.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR14905)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149051),DISP=SHR
//P327 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR14906.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR14906)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149061),DISP=SHR
//P328 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR14907.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR14907)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR149071),DISP=SHR
//P329 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR150T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR150T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR150T11),DISP=SHR
//P330 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR150T2.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR150T2)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR150T21),DISP=SHR
//P331 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR150T3.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR150T3)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR150T31),DISP=SHR
//P332 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR150T4.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR150T4)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR150T41),DISP=SHR
//P333 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR150011),DISP=SHR
//P334 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15002.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15002)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR150021),DISP=SHR
//P335 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15003.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15003)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR150031),DISP=SHR
//P336 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15004.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15004)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR150041),DISP=SHR
//P337 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR151T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR151T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR151T11),DISP=SHR
//P338 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR151011),DISP=SHR
//P339 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR152T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR152T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR152T11),DISP=SHR
//P340 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR152011),DISP=SHR
//P341 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR153T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR153T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR153T11),DISP=SHR
//P342 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR153011),DISP=SHR
//P343 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR154T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR154T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR154T11),DISP=SHR
//P344 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR154011),DISP=SHR
//P345 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR155T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR155T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR155T11),DISP=SHR
//P346 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR155T2.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR155T2)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR155T21),DISP=SHR
//P347 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR155T3.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR155T3)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR155T31),DISP=SHR
//P348 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR155011),DISP=SHR
//P349 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15502.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15502)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR155021),DISP=SHR
//P350 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15503.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15503)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR155031),DISP=SHR
//P351 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR156T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR156T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR156T11),DISP=SHR
//P352 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR156011),DISP=SHR
//P353 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15602.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15602)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR156021),DISP=SHR
//P354 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15603.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15603)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR156031),DISP=SHR
//P355 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR157T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR157T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR157T11),DISP=SHR
//P356 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR157T2.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR157T2)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR157T21),DISP=SHR
//P357 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR157T3.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR157T3)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR157T31),DISP=SHR
//P358 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR157011),DISP=SHR
//P359 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15702.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15702)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR157021),DISP=SHR
//P360 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15703.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15703)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR157031),DISP=SHR
//P361 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR158T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR158T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR158T11),DISP=SHR
//P362 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR158011),DISP=SHR
//P363 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR15901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR15901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR159011),DISP=SHR
//P364 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR160T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR160T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR160T11),DISP=SHR
//P365 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR160T2.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR160T2)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR160T21),DISP=SHR
//P366 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR160T3.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR160T3)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR160T31),DISP=SHR
//P367 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR160T4.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR160T4)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR160T41),DISP=SHR
//P368 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR16001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR16001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR160011),DISP=SHR
//P369 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR16002.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR16002)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR160021),DISP=SHR
//P370 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR16003.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR16003)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR160031),DISP=SHR
//P371 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR16004.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR16004)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR160041),DISP=SHR
//P372 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR161T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR161T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR161T11),DISP=SHR
//P373 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR16102.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR16102)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR161021),DISP=SHR
//P374 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR16103.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR16103)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR161031),DISP=SHR
//P375 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR16104.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR16104)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR161041),DISP=SHR
//P376 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR16105.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR16105)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR161051),DISP=SHR
//P377 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR162T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR162T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR162T11),DISP=SHR
//P378 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR16201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR16201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR162011),DISP=SHR
//P379 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR16401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR16401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR164011),DISP=SHR
//P380 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR16801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR16801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR168011),DISP=SHR
//P381 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR17101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR17101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR171011),DISP=SHR
//P382 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR17201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR17201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR172011),DISP=SHR
//P383 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR17301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR17301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR173011),DISP=SHR
//P384 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR17401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR17401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR174011),DISP=SHR
//P385 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR17701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR17701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR177011),DISP=SHR
//P386 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR17702.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR17702)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR177021),DISP=SHR
//P387 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR17801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR17801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR178011),DISP=SHR
//P388 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR18101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR18101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR181011),DISP=SHR
//P389 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR18201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR18201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR182011),DISP=SHR
//P390 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR18901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR18901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR189011),DISP=SHR
//P391 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR19001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR19001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR190011),DISP=SHR
//P392 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR19002.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR19002)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR190021),DISP=SHR
//P393 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR19301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR19301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR193011),DISP=SHR
//P394 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR19401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR19401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR194011),DISP=SHR
//P395 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR19501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR19501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR195011),DISP=SHR
//P396 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR19601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR19601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR196011),DISP=SHR
//P397 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR19901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR19901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR199011),DISP=SHR
//P398 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR200011),DISP=SHR
//P399 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR201011),DISP=SHR
//P400 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR204011),DISP=SHR
//A5407695 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 5 first member 401 QR20501
//P401 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR205011),DISP=SHR
//P402 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR206011),DISP=SHR
//P403 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR207011),DISP=SHR
//P404 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR208011),DISP=SHR
//P405 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20803.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20803)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR208031),DISP=SHR
//P406 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20804.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20804)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR208041),DISP=SHR
//P407 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20805.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20805)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR208051),DISP=SHR
//P408 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20806.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20806)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR208061),DISP=SHR
//P409 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20807.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20807)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR208071),DISP=SHR
//P410 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20808.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20808)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR208081),DISP=SHR
//P411 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20809.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20809)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR208091),DISP=SHR
//P412 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR20810.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR20810)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR208101),DISP=SHR
//P413 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR21201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR21201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR212011),DISP=SHR
//P414 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR21301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR21301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR213011),DISP=SHR
//P415 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR21401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR21401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR214011),DISP=SHR
//P416 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR21801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR21801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR218011),DISP=SHR
//P417 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR22001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR22001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR220011),DISP=SHR
//P418 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR22501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR22501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR225011),DISP=SHR
//P419 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR22601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR22601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR226011),DISP=SHR
//P420 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR22801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR22801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR228011),DISP=SHR
//P421 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR23302.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR23302)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR233021),DISP=SHR
//P422 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR23402.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR23402)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR234021),DISP=SHR
//P423 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR23601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR23601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR236011),DISP=SHR
//P424 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR25101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR25101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR251011),DISP=SHR
//P425 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR25201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR25201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR252011),DISP=SHR
//P426 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR25301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR25301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR253011),DISP=SHR
//P427 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR25501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR25501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR255011),DISP=SHR
//P428 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR25601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR25601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR256011),DISP=SHR
//P429 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR25901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR25901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR259011),DISP=SHR
//P430 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR26201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR26201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR262011),DISP=SHR
//P431 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR26801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR26801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR268011),DISP=SHR
//P432 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR26901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR26901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR269011),DISP=SHR
//P433 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR27001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR27001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR270011),DISP=SHR
//P434 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR27201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR27201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR272011),DISP=SHR
//P435 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR27301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR27301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR273011),DISP=SHR
//P436 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR27401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR27401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR274011),DISP=SHR
//P437 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR27501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR27501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR275011),DISP=SHR
//P438 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR27601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR27601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR276011),DISP=SHR
//P439 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR27701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR27701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR277011),DISP=SHR
//P440 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR27901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR27901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR279011),DISP=SHR
//P441 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR28401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR28401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR284011),DISP=SHR
//P442 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR28402.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR28402)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR284021),DISP=SHR
//P443 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR28902.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR28902)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR289021),DISP=SHR
//P444 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR29101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR29101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR291011),DISP=SHR
//P445 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR29201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR29201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR292011),DISP=SHR
//P446 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR29202.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR29202)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR292021),DISP=SHR
//P447 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR29203.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR29203)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR292031),DISP=SHR
//P448 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR29204.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR29204)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR292041),DISP=SHR
//P449 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR29205.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR29205)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR292051),DISP=SHR
//P450 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR29301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR29301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR293011),DISP=SHR
//P451 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR29401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR29401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR294011),DISP=SHR
//P452 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR29501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR29501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR295011),DISP=SHR
//P453 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR29601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR29601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR296011),DISP=SHR
//P454 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR29801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR29801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR298011),DISP=SHR
//P455 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR29901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR29901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR299011),DISP=SHR
//P456 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR300011),DISP=SHR
//P457 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR302011),DISP=SHR
//P458 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR303011),DISP=SHR
//P459 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR304011),DISP=SHR
//P460 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30402.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30402)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR304021),DISP=SHR
//P461 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30403.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30403)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR304031),DISP=SHR
//P462 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30404.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30404)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR304041),DISP=SHR
//P463 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30405.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30405)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR304051),DISP=SHR
//P464 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR306011),DISP=SHR
//P465 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30602.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30602)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR306021),DISP=SHR
//P466 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30603.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30603)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR306031),DISP=SHR
//P467 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30604.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30604)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR306041),DISP=SHR
//P468 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30605.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30605)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR306051),DISP=SHR
//P469 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30606.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30606)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR306061),DISP=SHR
//P470 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30607.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30607)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR306071),DISP=SHR
//P471 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR307011),DISP=SHR
//P472 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR308011),DISP=SHR
//P473 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR30901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR30901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR309011),DISP=SHR
//P474 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR310011),DISP=SHR
//P475 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR311011),DISP=SHR
//P476 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31102.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31102)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR311021),DISP=SHR
//P477 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31103.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31103)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR311031),DISP=SHR
//P478 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR312011),DISP=SHR
//P479 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR314011),DISP=SHR
//P480 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR315011),DISP=SHR
//P481 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31702.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31702)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR317021),DISP=SHR
//P482 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31703.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31703)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR317031),DISP=SHR
//P483 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31704.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31704)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR317041),DISP=SHR
//P484 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31705.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31705)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR317051),DISP=SHR
//P485 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31706.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31706)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR317061),DISP=SHR
//P486 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31707.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31707)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR317071),DISP=SHR
//P487 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31708.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31708)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR317081),DISP=SHR
//P488 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31709.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31709)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR317091),DISP=SHR
//P489 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31710.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31710)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR317101),DISP=SHR
//P490 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31711.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31711)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR317111),DISP=SHR
//P491 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR31901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR31901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR319011),DISP=SHR
//P492 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR32001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR32001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR320011),DISP=SHR
//P493 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR32101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR32101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR321011),DISP=SHR
//P494 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR32201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR32201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR322011),DISP=SHR
//P495 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR32701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR32701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR327011),DISP=SHR
//P496 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR33101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR33101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR331011),DISP=SHR
//P497 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350011),DISP=SHR
//P498 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35002.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35002)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350021),DISP=SHR
//P499 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35003.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35003)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350031),DISP=SHR
//P500 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35006.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35006)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350061),DISP=SHR
//A5407696 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 6 first member 501 QR35007
//P501 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35007.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35007)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350071),DISP=SHR
//P502 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35008.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35008)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350081),DISP=SHR
//P503 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35009.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35009)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350091),DISP=SHR
//P504 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35010.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35010)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350101),DISP=SHR
//P505 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35011.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35011)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350111),DISP=SHR
//P506 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35012.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35012)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350121),DISP=SHR
//P507 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35013.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35013)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350131),DISP=SHR
//P508 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35014.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35014)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350141),DISP=SHR
//P509 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35015.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35015)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350151),DISP=SHR
//P510 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35016.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35016)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR350161),DISP=SHR
//P511 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR35401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR35401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR354011),DISP=SHR
//P512 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR380011),DISP=SHR
//P513 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR382011),DISP=SHR
//P514 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38202.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38202)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR382021),DISP=SHR
//P515 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38203.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38203)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR382031),DISP=SHR
//P516 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38204.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38204)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR382041),DISP=SHR
//P517 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38205.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38205)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR382051),DISP=SHR
//P518 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38206.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38206)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR382061),DISP=SHR
//P519 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR383T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR383T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR383T11),DISP=SHR
//P520 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR383011),DISP=SHR
//P521 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR387011),DISP=SHR
//P522 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38702.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38702)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR387021),DISP=SHR
//P523 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38703.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38703)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR387031),DISP=SHR
//P524 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38704.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38704)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR387041),DISP=SHR
//P525 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38705.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38705)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR387051),DISP=SHR
//P526 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38706.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38706)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR387061),DISP=SHR
//P527 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38707.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38707)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR387071),DISP=SHR
//P528 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38708.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38708)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR387081),DISP=SHR
//P529 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR38709.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR38709)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR387091),DISP=SHR
//P530 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR39501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR39501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR395011),DISP=SHR
//P531 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR39601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR39601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR396011),DISP=SHR
//P532 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR39701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR39701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR397011),DISP=SHR
//P533 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR39801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR39801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR398011),DISP=SHR
//P534 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR41301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR41301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR413011),DISP=SHR
//P535 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR41401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR41401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR414011),DISP=SHR
//P536 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR41501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR41501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR415011),DISP=SHR
//P537 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR41701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR41701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR417011),DISP=SHR
//P538 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR41801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR41801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR418011),DISP=SHR
//P539 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR41901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR41901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR419011),DISP=SHR
//P540 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR41902.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR41902)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR419021),DISP=SHR
//P541 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR41903.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR41903)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR419031),DISP=SHR
//P542 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR42001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR42001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR420011),DISP=SHR
//P543 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR421T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR421T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR421T11),DISP=SHR
//P544 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR42101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR42101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR421011),DISP=SHR
//P545 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR42201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR42201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR422011),DISP=SHR
//P546 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR42301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR42301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR423011),DISP=SHR
//P547 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR42401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR42401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR424011),DISP=SHR
//P548 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR425T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR425T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR425T11),DISP=SHR
//P549 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR42601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR42601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR426011),DISP=SHR
//P550 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR42701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR42701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR427011),DISP=SHR
//P551 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR42901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR42901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR429011),DISP=SHR
//P552 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR43001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR43001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR430011),DISP=SHR
//P553 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR43301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR43301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR433011),DISP=SHR
//P554 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR434T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR434T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR434T11),DISP=SHR
//P555 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR43401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR43401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR434011),DISP=SHR
//P556 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR43501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR43501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR435011),DISP=SHR
//P557 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR43601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR43601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR436011),DISP=SHR
//P558 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR43701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR43701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR437011),DISP=SHR
//P559 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR43702.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR43702)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR437021),DISP=SHR
//P560 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR43703.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR43703)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR437031),DISP=SHR
//P561 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR43704.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR43704)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR437041),DISP=SHR
//P562 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR43801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR43801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR438011),DISP=SHR
//P563 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR43901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR43901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR439011),DISP=SHR
//P564 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR44101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR44101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR441011),DISP=SHR
//P565 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR44201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR44201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR442011),DISP=SHR
//P566 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR44501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR44501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR445011),DISP=SHR
//P567 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR44701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR44701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR447011),DISP=SHR
//P568 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR44801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR44801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR448011),DISP=SHR
//P569 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR44802.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR44802)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR448021),DISP=SHR
//P570 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR44803.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR44803)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR448031),DISP=SHR
//P571 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR44804.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR44804)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR448041),DISP=SHR
//P572 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR44805.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR44805)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR448051),DISP=SHR
//P573 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR44806.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR44806)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR448061),DISP=SHR
//P574 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR44807.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR44807)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR448071),DISP=SHR
//P575 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR44901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR44901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR449011),DISP=SHR
//P576 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR45001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR45001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR450011),DISP=SHR
//P577 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR45301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR45301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR453011),DISP=SHR
//P578 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR45601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR45601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR456011),DISP=SHR
//P579 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR45701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR45701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR457011),DISP=SHR
//P580 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR45801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR45801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR458011),DISP=SHR
//P581 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR45901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR45901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR459011),DISP=SHR
//P582 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR46001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR46001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR460011),DISP=SHR
//P583 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR46101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR46101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR461011),DISP=SHR
//P584 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR46201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR46201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR462011),DISP=SHR
//P585 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR46301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR46301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR463011),DISP=SHR
//P586 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR46401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR46401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR464011),DISP=SHR
//P587 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR46701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR46701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR467011),DISP=SHR
//P588 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR47701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR47701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR477011),DISP=SHR
//P589 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR478T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR478T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR478T11),DISP=SHR
//P590 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR47801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR47801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR478011),DISP=SHR
//P591 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR47901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR47901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR479011),DISP=SHR
//P592 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR48001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR48001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR480011),DISP=SHR
//P593 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR48101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR48101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR481011),DISP=SHR
//P594 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR48201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR48201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR482011),DISP=SHR
//P595 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR48301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR48301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR483011),DISP=SHR
//P596 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR48501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR48501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR485011),DISP=SHR
//P597 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR48601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR48601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR486011),DISP=SHR
//P598 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR48701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR48701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR487011),DISP=SHR
//P599 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR48801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR48801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR488011),DISP=SHR
//P600 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR48901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR48901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR489011),DISP=SHR
//A5407697 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 7 first member 601 QR49201
//P601 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR49201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR49201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR492011),DISP=SHR
//P602 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR49301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR49301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR493011),DISP=SHR
//P603 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR49401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR49401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR494011),DISP=SHR
//P604 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR49701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR49701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR497011),DISP=SHR
//P605 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR498T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR498T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR498T11),DISP=SHR
//P606 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR498T2.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR498T2)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR498T21),DISP=SHR
//P607 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR498T3.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR498T3)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR498T31),DISP=SHR
//P608 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR498T4.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR498T4)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR498T41),DISP=SHR
//P609 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR49801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR49801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR498011),DISP=SHR
//P610 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR49803.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR49803)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR498031),DISP=SHR
//P611 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR49804.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR49804)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR498041),DISP=SHR
//P612 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR49901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR49901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR499011),DISP=SHR
//P613 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR50101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR50101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR501011),DISP=SHR
//P614 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR50301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR50301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR503011),DISP=SHR
//P615 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR511011),DISP=SHR
//P616 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515011),DISP=SHR
//P617 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51502.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51502)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515021),DISP=SHR
//P618 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51503.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51503)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515031),DISP=SHR
//P619 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51504.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51504)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515041),DISP=SHR
//P620 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51505.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51505)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515051),DISP=SHR
//P621 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51506.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51506)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515061),DISP=SHR
//P622 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51507.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51507)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515071),DISP=SHR
//P623 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51508.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51508)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515081),DISP=SHR
//P624 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51509.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51509)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515091),DISP=SHR
//P625 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51510.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51510)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515101),DISP=SHR
//P626 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51511.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51511)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515111),DISP=SHR
//P627 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51512.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51512)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515121),DISP=SHR
//P628 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51513.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51513)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515131),DISP=SHR
//P629 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51514.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51514)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515141),DISP=SHR
//P630 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51515.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51515)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515151),DISP=SHR
//P631 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51516.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51516)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515161),DISP=SHR
//P632 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51517.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51517)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515171),DISP=SHR
//P633 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51518.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51518)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515181),DISP=SHR
//P634 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51519.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51519)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515191),DISP=SHR
//P635 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51520.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51520)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515201),DISP=SHR
//P636 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51521.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51521)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515211),DISP=SHR
//P637 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51522.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51522)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515221),DISP=SHR
//P638 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51523.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51523)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515231),DISP=SHR
//P639 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51524.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51524)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515241),DISP=SHR
//P640 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51525.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51525)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515251),DISP=SHR
//P641 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51526.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51526)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515261),DISP=SHR
//P642 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51527.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51527)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515271),DISP=SHR
//P643 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51528.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51528)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515281),DISP=SHR
//P644 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51529.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51529)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515291),DISP=SHR
//P645 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51530.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51530)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515301),DISP=SHR
//P646 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51531.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51531)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515311),DISP=SHR
//P647 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51532.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51532)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR515321),DISP=SHR
//P648 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR517011),DISP=SHR
//P649 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR518011),DISP=SHR
//P650 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR51901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR51901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR519011),DISP=SHR
//P651 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR52001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR52001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR520011),DISP=SHR
//P652 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR52101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR52101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR521011),DISP=SHR
//P653 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR52201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR52201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR522011),DISP=SHR
//P654 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR52301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR52301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR523011),DISP=SHR
//P655 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR52401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR52401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR524011),DISP=SHR
//P656 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR531T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR531T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR531T11),DISP=SHR
//P657 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR53101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR53101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR531011),DISP=SHR
//P658 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR53102.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR53102)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR531021),DISP=SHR
//P659 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR53103.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR53103)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR531031),DISP=SHR
//P660 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR53201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR53201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR532011),DISP=SHR
//P661 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR53401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR53401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR534011),DISP=SHR
//P662 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR53501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR53501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR535011),DISP=SHR
//P663 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR53601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR53601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR536011),DISP=SHR
//P664 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR537T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR537T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR537T11),DISP=SHR
//P665 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR53701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR53701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR537011),DISP=SHR
//P666 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR54501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR54501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR545011),DISP=SHR
//P667 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR54502.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR54502)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR545021),DISP=SHR
//P668 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR546T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR546T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR546T11),DISP=SHR
//P669 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR54601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR54601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR546011),DISP=SHR
//P670 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR54701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR54701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR547011),DISP=SHR
//P671 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR54702.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR54702)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR547021),DISP=SHR
//P672 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR55001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR55001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR550011),DISP=SHR
//P673 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR55201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR55201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR552011),DISP=SHR
//P674 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR55301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR55301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR553011),DISP=SHR
//P675 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR55401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR55401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR554011),DISP=SHR
//P676 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR55501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR55501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR555011),DISP=SHR
//P677 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR55601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR55601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR556011),DISP=SHR
//P678 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR55701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR55701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR557011),DISP=SHR
//P679 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR55801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR55801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR558011),DISP=SHR
//P680 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR55901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR55901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR559011),DISP=SHR
//P681 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR56101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR56101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR561011),DISP=SHR
//P682 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR56201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR56201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR562011),DISP=SHR
//P683 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR56301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR56301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR563011),DISP=SHR
//P684 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR56401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR56401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR564011),DISP=SHR
//P685 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR56701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR56701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR567011),DISP=SHR
//P686 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR56801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR56801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR568011),DISP=SHR
//P687 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR570011),DISP=SHR
//P688 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR571011),DISP=SHR
//P689 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57102.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57102)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR571021),DISP=SHR
//P690 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57103.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57103)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR571031),DISP=SHR
//P691 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57104.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57104)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR571041),DISP=SHR
//P692 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57105.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57105)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR571051),DISP=SHR
//P693 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57106.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57106)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR571061),DISP=SHR
//P694 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57107.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57107)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR571071),DISP=SHR
//P695 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR572011),DISP=SHR
//P696 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR573011),DISP=SHR
//P697 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57302.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57302)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR573021),DISP=SHR
//P698 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57303.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57303)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR573031),DISP=SHR
//P699 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR574011),DISP=SHR
//P700 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR577011),DISP=SHR
//A5407698 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 8 first member 701 QR57801
//P701 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR578011),DISP=SHR
//P702 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR57901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR57901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR579011),DISP=SHR
//P703 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR58001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR58001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR580011),DISP=SHR
//P704 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR581T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR581T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR581T11),DISP=SHR
//P705 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR58101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR58101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR581011),DISP=SHR
//P706 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR582T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR582T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR582T11),DISP=SHR
//P707 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR58201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR58201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR582011),DISP=SHR
//P708 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR583T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR583T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR583T11),DISP=SHR
//P709 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR58301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR58301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR583011),DISP=SHR
//P710 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR584T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR584T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR584T11),DISP=SHR
//P711 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR58401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR58401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR584011),DISP=SHR
//P712 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR585T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR585T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR585T11),DISP=SHR
//P713 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR58501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR58501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR585011),DISP=SHR
//P714 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR586T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR586T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR586T11),DISP=SHR
//P715 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR58601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR58601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR586011),DISP=SHR
//P716 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR587T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR587T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR587T11),DISP=SHR
//P717 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR58701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR58701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR587011),DISP=SHR
//P718 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR588T1.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR588T1)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR588T11),DISP=SHR
//P719 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR588T2.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR588T2)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR588T21),DISP=SHR
//P720 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR588T3.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR588T3)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR588T31),DISP=SHR
//P721 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR588T4.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR588T4)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR588T41),DISP=SHR
//P722 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR588T5.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR588T5)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR588T51),DISP=SHR
//P723 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR588T6.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR588T6)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR588T61),DISP=SHR
//P724 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR58801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR58801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR588011),DISP=SHR
//P725 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR58901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR58901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR589011),DISP=SHR
//P726 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR590011),DISP=SHR
//P727 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR591011),DISP=SHR
//P728 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR592011),DISP=SHR
//P729 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR593011),DISP=SHR
//P730 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR594011),DISP=SHR
//P731 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59402.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59402)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR594021),DISP=SHR
//P732 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59403.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59403)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR594031),DISP=SHR
//P733 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59404.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59404)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR594041),DISP=SHR
//P734 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59405.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59405)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR594051),DISP=SHR
//P735 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59406.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59406)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR594061),DISP=SHR
//P736 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59407.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59407)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR594071),DISP=SHR
//P737 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR596011),DISP=SHR
//P738 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR597011),DISP=SHR
//P739 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR598011),DISP=SHR
//P740 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR59901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR59901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR599011),DISP=SHR
//P741 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR60001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR60001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR600011),DISP=SHR
//P742 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR60101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR60101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR601011),DISP=SHR
//P743 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR60201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR60201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR602011),DISP=SHR
//P744 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR60301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR60301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR603011),DISP=SHR
//P745 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR60401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR60401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR604011),DISP=SHR
//P746 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR60501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR60501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR605011),DISP=SHR
//P747 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR60601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR60601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR606011),DISP=SHR
//P748 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR60701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR60701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR607011),DISP=SHR
//P749 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR60901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR60901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR609011),DISP=SHR
//P750 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR61001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR61001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR610011),DISP=SHR
//P751 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR61101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR61101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR611011),DISP=SHR
//P752 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR61201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR61201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR612011),DISP=SHR
//P753 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR61301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR61301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR613011),DISP=SHR
//P754 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR61401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR61401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR614011),DISP=SHR
//P755 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR61701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR61701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR617011),DISP=SHR
//P756 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR61801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR61801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR618011),DISP=SHR
//P757 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR61901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR61901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR619011),DISP=SHR
//P758 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR62101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR62101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR621011),DISP=SHR
//P759 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR62201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR62201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR622011),DISP=SHR
//P760 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR62301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR62301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR623011),DISP=SHR
//P761 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR62401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR62401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR624011),DISP=SHR
//P762 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR62701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR62701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR627011),DISP=SHR
//P763 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR62801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR62801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR628011),DISP=SHR
//P764 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR62901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR62901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR629011),DISP=SHR
//P765 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR63001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR63001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR630011),DISP=SHR
//P766 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR63101.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR63101)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR631011),DISP=SHR
//P767 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR63701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR63701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR637011),DISP=SHR
//P768 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR63901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR63901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR639011),DISP=SHR
//P769 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR64001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR64001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR640011),DISP=SHR
//P770 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR64201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR64201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR642011),DISP=SHR
//P771 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR64401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR64401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR644011),DISP=SHR
//P772 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR64501.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR64501)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR645011),DISP=SHR
//P773 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR64701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR64701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR647011),DISP=SHR
//P774 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR65201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR65201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR652011),DISP=SHR
//P775 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR65401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR65401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR654011),DISP=SHR
//P776 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR66201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR66201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR662011),DISP=SHR
//P777 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR66301.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR66301)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR663011),DISP=SHR
//P778 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR66401.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR66401)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR664011),DISP=SHR
//P779 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR66601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR66601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR666011),DISP=SHR
//P780 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR66801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR66801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR668011),DISP=SHR
//P781 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR66901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR66901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR669011),DISP=SHR
//P782 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR67001.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR67001)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR670011),DISP=SHR
//P783 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR67601.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR67601)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR676011),DISP=SHR
//P784 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR67701.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR67701)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR677011),DISP=SHR
//P785 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR67801.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR67801)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR678011),DISP=SHR
//P786 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR68201.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR68201)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR682011),DISP=SHR
//P787 EXEC PGM=DSNUTILB,
// PARM='DBTF,QR99901.PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(QR99901)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBTF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBTF.DBAA.LISTDEF(QR999011),DISP=SHR
$***out 20080520 11:45:16
}¢--- A540769.WK.JCL(CHECKRJ3) cre=2008-03-07 mod=2008-11-24-17.24.35 F540769 ---
$*(
checkRts test jobs generieren
fuer alle Member dbaa.listdef(QR*)
ruft Prozedur doit , includen aus jcl(chekRP*)
$*)
$=subsys = DBTF
$=listDef = $subsys.dbaa.listdef
$=listOvr = A540769.CHECKRTS.$subsys.listdef
$=listOvr =
$; $=proc = $-cmpData $<~WK.JCL(CHECKRPN)
$; id = lmmbegin($listDef'(qr*)')
$** $; id = lmmbegin('A540769.CHECKRTS.SYSPRINT(qr*)')
do forever
mbr = lmmnext(id)
if mbr = '' then
leave
if substr(mbr, 8) ^== '1' then do
say 'ignoring' mbr
iterate
end
mbr = left(mbr, 7)
ll = $listDef
if $listOvr <> '' then
if sysDsn("'"$listOvr"("mbr"1)'") == 'OK' then
ll = $listOvr
$£ mbr translate(ll)
end
call lmmend id
$¨ $@{
mx = 0
jx = 0
$@for line $@{
parse value $line with mbr ll
$=mbr £ mbr
$=ll £ ll
if mx // 50 = 0 then $@{
jx = jx + 1
$=jc £ right(jx, 1)
$@¢
//A540769$jc JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job $(jx$) first member $(mx+1$) $mbr
$!
$@run $proc
$}
mx = mx+1
$@¢
//P$(mx$) EXEC PROC=DOIT,MBR=$mbr,SUBSYS=$subsys,
// LIST=$(ll$)
$!
$}
$}
$***out 20080429 16:52:15
//A5407691 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 1 first member 1 QR00101
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P1 EXEC PROC=DOIT,MBR=QR00101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P2 EXEC PROC=DOIT,MBR=QR00201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P3 EXEC PROC=DOIT,MBR=QR00202,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P4 EXEC PROC=DOIT,MBR=QR00203,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P5 EXEC PROC=DOIT,MBR=QR00205,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P6 EXEC PROC=DOIT,MBR=QR00301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P7 EXEC PROC=DOIT,MBR=QR00302,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P8 EXEC PROC=DOIT,MBR=QR00303,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P9 EXEC PROC=DOIT,MBR=QR00304,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P10 EXEC PROC=DOIT,MBR=QR00305,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P11 EXEC PROC=DOIT,MBR=QR00306,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P12 EXEC PROC=DOIT,MBR=QR00307,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P13 EXEC PROC=DOIT,MBR=QR00308,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P14 EXEC PROC=DOIT,MBR=QR00309,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P15 EXEC PROC=DOIT,MBR=QR00310,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P16 EXEC PROC=DOIT,MBR=QR00311,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P17 EXEC PROC=DOIT,MBR=QR00312,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P18 EXEC PROC=DOIT,MBR=QR00313,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P19 EXEC PROC=DOIT,MBR=QR00314,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P20 EXEC PROC=DOIT,MBR=QR00315,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P21 EXEC PROC=DOIT,MBR=QR00316,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P22 EXEC PROC=DOIT,MBR=QR00401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P23 EXEC PROC=DOIT,MBR=QR00501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P24 EXEC PROC=DOIT,MBR=QR00601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P25 EXEC PROC=DOIT,MBR=QR00701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P26 EXEC PROC=DOIT,MBR=QR00801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P27 EXEC PROC=DOIT,MBR=QR00901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P28 EXEC PROC=DOIT,MBR=QR01001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P29 EXEC PROC=DOIT,MBR=QR01101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P30 EXEC PROC=DOIT,MBR=QR01201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P31 EXEC PROC=DOIT,MBR=QR01202,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P32 EXEC PROC=DOIT,MBR=QR01203,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P33 EXEC PROC=DOIT,MBR=QR01401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P34 EXEC PROC=DOIT,MBR=QR01501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P35 EXEC PROC=DOIT,MBR=QR01601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P36 EXEC PROC=DOIT,MBR=QR01701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P37 EXEC PROC=DOIT,MBR=QR01702,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P38 EXEC PROC=DOIT,MBR=QR01901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P39 EXEC PROC=DOIT,MBR=QR02001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P40 EXEC PROC=DOIT,MBR=QR02101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P41 EXEC PROC=DOIT,MBR=QR02201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P42 EXEC PROC=DOIT,MBR=QR02401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P43 EXEC PROC=DOIT,MBR=QR02501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P44 EXEC PROC=DOIT,MBR=QR02601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P45 EXEC PROC=DOIT,MBR=QR02602,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P46 EXEC PROC=DOIT,MBR=QR02603,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P47 EXEC PROC=DOIT,MBR=QR02604,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P48 EXEC PROC=DOIT,MBR=QR02605,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P49 EXEC PROC=DOIT,MBR=QR02606,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P50 EXEC PROC=DOIT,MBR=QR02607,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407692 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 2 first member 51 QR02608
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P51 EXEC PROC=DOIT,MBR=QR02608,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P52 EXEC PROC=DOIT,MBR=QR02609,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P53 EXEC PROC=DOIT,MBR=QR02701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P54 EXEC PROC=DOIT,MBR=QR02702,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P55 EXEC PROC=DOIT,MBR=QR02901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P56 EXEC PROC=DOIT,MBR=QR03001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P57 EXEC PROC=DOIT,MBR=QR03002,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P58 EXEC PROC=DOIT,MBR=QR03101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P59 EXEC PROC=DOIT,MBR=QR03201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P60 EXEC PROC=DOIT,MBR=QR03202,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P61 EXEC PROC=DOIT,MBR=QR03203,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P62 EXEC PROC=DOIT,MBR=QR03204,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P63 EXEC PROC=DOIT,MBR=QR03205,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P64 EXEC PROC=DOIT,MBR=QR03206,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P65 EXEC PROC=DOIT,MBR=QR03207,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P66 EXEC PROC=DOIT,MBR=QR03208,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P67 EXEC PROC=DOIT,MBR=QR03209,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P68 EXEC PROC=DOIT,MBR=QR03210,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P69 EXEC PROC=DOIT,MBR=QR03211,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P70 EXEC PROC=DOIT,MBR=QR03212,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P71 EXEC PROC=DOIT,MBR=QR03301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P72 EXEC PROC=DOIT,MBR=QR03401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P73 EXEC PROC=DOIT,MBR=QR03501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P74 EXEC PROC=DOIT,MBR=QR03601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P75 EXEC PROC=DOIT,MBR=QR03701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P76 EXEC PROC=DOIT,MBR=QR03801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P77 EXEC PROC=DOIT,MBR=QR03901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P78 EXEC PROC=DOIT,MBR=QR03902,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P79 EXEC PROC=DOIT,MBR=QR04002,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P80 EXEC PROC=DOIT,MBR=QR04003,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P81 EXEC PROC=DOIT,MBR=QR04004,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P82 EXEC PROC=DOIT,MBR=QR04005,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P83 EXEC PROC=DOIT,MBR=QR04101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P84 EXEC PROC=DOIT,MBR=QR04301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P85 EXEC PROC=DOIT,MBR=QR04401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P86 EXEC PROC=DOIT,MBR=QR04402,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P87 EXEC PROC=DOIT,MBR=QR04403,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P88 EXEC PROC=DOIT,MBR=QR04404,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P89 EXEC PROC=DOIT,MBR=QR04405,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P90 EXEC PROC=DOIT,MBR=QR04406,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P91 EXEC PROC=DOIT,MBR=QR04407,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P92 EXEC PROC=DOIT,MBR=QR04408,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P93 EXEC PROC=DOIT,MBR=QR04409,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P94 EXEC PROC=DOIT,MBR=QR04410,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P95 EXEC PROC=DOIT,MBR=QR04411,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P96 EXEC PROC=DOIT,MBR=QR04412,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P97 EXEC PROC=DOIT,MBR=QR04413,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P98 EXEC PROC=DOIT,MBR=QR04414,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P99 EXEC PROC=DOIT,MBR=QR04415,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P100 EXEC PROC=DOIT,MBR=QR04501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407693 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 3 first member 101 QR04601
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P101 EXEC PROC=DOIT,MBR=QR04601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P102 EXEC PROC=DOIT,MBR=QR04701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P103 EXEC PROC=DOIT,MBR=QR04702,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P104 EXEC PROC=DOIT,MBR=QR04801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P105 EXEC PROC=DOIT,MBR=QR04901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P106 EXEC PROC=DOIT,MBR=QR05001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P107 EXEC PROC=DOIT,MBR=QR05101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P108 EXEC PROC=DOIT,MBR=QR05201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P109 EXEC PROC=DOIT,MBR=QR05301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P110 EXEC PROC=DOIT,MBR=QR05402,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P111 EXEC PROC=DOIT,MBR=QR05403,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P112 EXEC PROC=DOIT,MBR=QR05501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P113 EXEC PROC=DOIT,MBR=QR05503,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P114 EXEC PROC=DOIT,MBR=QR05504,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P115 EXEC PROC=DOIT,MBR=QR05505,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P116 EXEC PROC=DOIT,MBR=QR05506,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P117 EXEC PROC=DOIT,MBR=QR05507,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P118 EXEC PROC=DOIT,MBR=QR05508,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P119 EXEC PROC=DOIT,MBR=QR05509,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P120 EXEC PROC=DOIT,MBR=QR05510,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P121 EXEC PROC=DOIT,MBR=QR05511,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P122 EXEC PROC=DOIT,MBR=QR05512,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P123 EXEC PROC=DOIT,MBR=QR05513,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P124 EXEC PROC=DOIT,MBR=QR05514,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P125 EXEC PROC=DOIT,MBR=QR05515,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P126 EXEC PROC=DOIT,MBR=QR05601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P127 EXEC PROC=DOIT,MBR=QR057T2,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P128 EXEC PROC=DOIT,MBR=QR057T3,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P129 EXEC PROC=DOIT,MBR=QR057T4,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P130 EXEC PROC=DOIT,MBR=QR057T5,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P131 EXEC PROC=DOIT,MBR=QR057T6,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P132 EXEC PROC=DOIT,MBR=QR057T7,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P133 EXEC PROC=DOIT,MBR=QR057T8,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P134 EXEC PROC=DOIT,MBR=QR057T9,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P135 EXEC PROC=DOIT,MBR=QR05702,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P136 EXEC PROC=DOIT,MBR=QR05703,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P137 EXEC PROC=DOIT,MBR=QR05704,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P138 EXEC PROC=DOIT,MBR=QR05705,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P139 EXEC PROC=DOIT,MBR=QR05706,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P140 EXEC PROC=DOIT,MBR=QR05707,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P141 EXEC PROC=DOIT,MBR=QR05708,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P142 EXEC PROC=DOIT,MBR=QR05709,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P143 EXEC PROC=DOIT,MBR=QR05801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P144 EXEC PROC=DOIT,MBR=QR05802,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P145 EXEC PROC=DOIT,MBR=QR05803,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P146 EXEC PROC=DOIT,MBR=QR05804,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P147 EXEC PROC=DOIT,MBR=QR05805,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P148 EXEC PROC=DOIT,MBR=QR05806,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P149 EXEC PROC=DOIT,MBR=QR05807,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P150 EXEC PROC=DOIT,MBR=QR05808,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407694 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 4 first member 151 QR05809
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P151 EXEC PROC=DOIT,MBR=QR05809,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P152 EXEC PROC=DOIT,MBR=QR05810,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P153 EXEC PROC=DOIT,MBR=QR05811,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P154 EXEC PROC=DOIT,MBR=QR05812,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P155 EXEC PROC=DOIT,MBR=QR05813,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P156 EXEC PROC=DOIT,MBR=QR05814,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P157 EXEC PROC=DOIT,MBR=QR05815,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P158 EXEC PROC=DOIT,MBR=QR05816,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P159 EXEC PROC=DOIT,MBR=QR05817,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P160 EXEC PROC=DOIT,MBR=QR05818,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P161 EXEC PROC=DOIT,MBR=QR05819,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P162 EXEC PROC=DOIT,MBR=QR05820,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P163 EXEC PROC=DOIT,MBR=QR059T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P164 EXEC PROC=DOIT,MBR=QR059T2,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P165 EXEC PROC=DOIT,MBR=QR059T3,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P166 EXEC PROC=DOIT,MBR=QR059T4,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P167 EXEC PROC=DOIT,MBR=QR059T5,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P168 EXEC PROC=DOIT,MBR=QR059T6,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P169 EXEC PROC=DOIT,MBR=QR05901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P170 EXEC PROC=DOIT,MBR=QR05902,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P171 EXEC PROC=DOIT,MBR=QR05903,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P172 EXEC PROC=DOIT,MBR=QR05904,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P173 EXEC PROC=DOIT,MBR=QR05905,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P174 EXEC PROC=DOIT,MBR=QR06001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P175 EXEC PROC=DOIT,MBR=QR06101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P176 EXEC PROC=DOIT,MBR=QR06201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P177 EXEC PROC=DOIT,MBR=QR06301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P178 EXEC PROC=DOIT,MBR=QR06401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P179 EXEC PROC=DOIT,MBR=QR06601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P180 EXEC PROC=DOIT,MBR=QR06701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P181 EXEC PROC=DOIT,MBR=QR06801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P182 EXEC PROC=DOIT,MBR=QR06802,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P183 EXEC PROC=DOIT,MBR=QR06803,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P184 EXEC PROC=DOIT,MBR=QR06804,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P185 EXEC PROC=DOIT,MBR=QR06805,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P186 EXEC PROC=DOIT,MBR=QR06806,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P187 EXEC PROC=DOIT,MBR=QR06807,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P188 EXEC PROC=DOIT,MBR=QR06808,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P189 EXEC PROC=DOIT,MBR=QR06901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P190 EXEC PROC=DOIT,MBR=QR07001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P191 EXEC PROC=DOIT,MBR=QR07101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P192 EXEC PROC=DOIT,MBR=QR07201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P193 EXEC PROC=DOIT,MBR=QR07302,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P194 EXEC PROC=DOIT,MBR=QR07401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P195 EXEC PROC=DOIT,MBR=QR07402,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P196 EXEC PROC=DOIT,MBR=QR07501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P197 EXEC PROC=DOIT,MBR=QR07601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P198 EXEC PROC=DOIT,MBR=QR07701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P199 EXEC PROC=DOIT,MBR=QR07801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P200 EXEC PROC=DOIT,MBR=QR07901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407695 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 5 first member 201 QR08001
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P201 EXEC PROC=DOIT,MBR=QR08001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P202 EXEC PROC=DOIT,MBR=QR08101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P203 EXEC PROC=DOIT,MBR=QR08201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P204 EXEC PROC=DOIT,MBR=QR08301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P205 EXEC PROC=DOIT,MBR=QR08401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P206 EXEC PROC=DOIT,MBR=QR08501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P207 EXEC PROC=DOIT,MBR=QR08601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P208 EXEC PROC=DOIT,MBR=QR08701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P209 EXEC PROC=DOIT,MBR=QR08801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P210 EXEC PROC=DOIT,MBR=QR089T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P211 EXEC PROC=DOIT,MBR=QR089T2,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P212 EXEC PROC=DOIT,MBR=QR089T3,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P213 EXEC PROC=DOIT,MBR=QR089T4,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P214 EXEC PROC=DOIT,MBR=QR089T5,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P215 EXEC PROC=DOIT,MBR=QR08901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P216 EXEC PROC=DOIT,MBR=QR08902,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P217 EXEC PROC=DOIT,MBR=QR08903,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P218 EXEC PROC=DOIT,MBR=QR08904,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P219 EXEC PROC=DOIT,MBR=QR08905,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P220 EXEC PROC=DOIT,MBR=QR08909,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P221 EXEC PROC=DOIT,MBR=QR09001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P222 EXEC PROC=DOIT,MBR=QR09101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P223 EXEC PROC=DOIT,MBR=QR09201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P224 EXEC PROC=DOIT,MBR=QR09401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P225 EXEC PROC=DOIT,MBR=QR09501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P226 EXEC PROC=DOIT,MBR=QR09601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P227 EXEC PROC=DOIT,MBR=QR09701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P228 EXEC PROC=DOIT,MBR=QR09901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P229 EXEC PROC=DOIT,MBR=QR10101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P230 EXEC PROC=DOIT,MBR=QR10201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P231 EXEC PROC=DOIT,MBR=QR10301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P232 EXEC PROC=DOIT,MBR=QR10401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P233 EXEC PROC=DOIT,MBR=QR10501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P234 EXEC PROC=DOIT,MBR=QR10601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P235 EXEC PROC=DOIT,MBR=QR10802,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P236 EXEC PROC=DOIT,MBR=QR10901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P237 EXEC PROC=DOIT,MBR=QR11001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P238 EXEC PROC=DOIT,MBR=QR11002,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P239 EXEC PROC=DOIT,MBR=QR11201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P240 EXEC PROC=DOIT,MBR=QR11301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P241 EXEC PROC=DOIT,MBR=QR11302,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P242 EXEC PROC=DOIT,MBR=QR11401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P243 EXEC PROC=DOIT,MBR=QR11501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P244 EXEC PROC=DOIT,MBR=QR11601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P245 EXEC PROC=DOIT,MBR=QR11701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P246 EXEC PROC=DOIT,MBR=QR11702,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P247 EXEC PROC=DOIT,MBR=QR11703,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P248 EXEC PROC=DOIT,MBR=QR11704,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P249 EXEC PROC=DOIT,MBR=QR11705,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P250 EXEC PROC=DOIT,MBR=QR11706,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407696 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 6 first member 251 QR11707
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P251 EXEC PROC=DOIT,MBR=QR11707,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P252 EXEC PROC=DOIT,MBR=QR11708,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P253 EXEC PROC=DOIT,MBR=QR11709,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P254 EXEC PROC=DOIT,MBR=QR11710,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P255 EXEC PROC=DOIT,MBR=QR11801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P256 EXEC PROC=DOIT,MBR=QR11901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P257 EXEC PROC=DOIT,MBR=QR12001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P258 EXEC PROC=DOIT,MBR=QR12101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P259 EXEC PROC=DOIT,MBR=QR12102,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P260 EXEC PROC=DOIT,MBR=QR12201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P261 EXEC PROC=DOIT,MBR=QR124T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P262 EXEC PROC=DOIT,MBR=QR12401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P263 EXEC PROC=DOIT,MBR=QR12501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P264 EXEC PROC=DOIT,MBR=QR12502,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P265 EXEC PROC=DOIT,MBR=QR12503,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P266 EXEC PROC=DOIT,MBR=QR12504,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P267 EXEC PROC=DOIT,MBR=QR12505,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P268 EXEC PROC=DOIT,MBR=QR12506,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P269 EXEC PROC=DOIT,MBR=QR12507,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P270 EXEC PROC=DOIT,MBR=QR12508,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P271 EXEC PROC=DOIT,MBR=QR12509,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P272 EXEC PROC=DOIT,MBR=QR12510,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P273 EXEC PROC=DOIT,MBR=QR12511,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P274 EXEC PROC=DOIT,MBR=QR12512,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P275 EXEC PROC=DOIT,MBR=QR12513,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P276 EXEC PROC=DOIT,MBR=QR12514,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P277 EXEC PROC=DOIT,MBR=QR12515,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P278 EXEC PROC=DOIT,MBR=QR12516,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P279 EXEC PROC=DOIT,MBR=QR12517,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P280 EXEC PROC=DOIT,MBR=QR12518,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P281 EXEC PROC=DOIT,MBR=QR12569,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P282 EXEC PROC=DOIT,MBR=QR12570,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P283 EXEC PROC=DOIT,MBR=QR12571,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P284 EXEC PROC=DOIT,MBR=QR12572,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P285 EXEC PROC=DOIT,MBR=QR12573,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P286 EXEC PROC=DOIT,MBR=QR12574,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P287 EXEC PROC=DOIT,MBR=QR12575,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P288 EXEC PROC=DOIT,MBR=QR12576,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P289 EXEC PROC=DOIT,MBR=QR12577,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P290 EXEC PROC=DOIT,MBR=QR12601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P291 EXEC PROC=DOIT,MBR=QR12602,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P292 EXEC PROC=DOIT,MBR=QR12701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P293 EXEC PROC=DOIT,MBR=QR13001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P294 EXEC PROC=DOIT,MBR=QR13101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P295 EXEC PROC=DOIT,MBR=QR13601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P296 EXEC PROC=DOIT,MBR=QR13602,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P297 EXEC PROC=DOIT,MBR=QR13603,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P298 EXEC PROC=DOIT,MBR=QR13604,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P299 EXEC PROC=DOIT,MBR=QR13605,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P300 EXEC PROC=DOIT,MBR=QR13606,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407697 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 7 first member 301 QR13607
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P301 EXEC PROC=DOIT,MBR=QR13607,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P302 EXEC PROC=DOIT,MBR=QR13608,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P303 EXEC PROC=DOIT,MBR=QR13609,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P304 EXEC PROC=DOIT,MBR=QR13610,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P305 EXEC PROC=DOIT,MBR=QR13611,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P306 EXEC PROC=DOIT,MBR=QR13612,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P307 EXEC PROC=DOIT,MBR=QR13801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P308 EXEC PROC=DOIT,MBR=QR13802,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P309 EXEC PROC=DOIT,MBR=QR13901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P310 EXEC PROC=DOIT,MBR=QR148T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P311 EXEC PROC=DOIT,MBR=QR148T2,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P312 EXEC PROC=DOIT,MBR=QR148T3,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P313 EXEC PROC=DOIT,MBR=QR14801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P314 EXEC PROC=DOIT,MBR=QR14802,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P315 EXEC PROC=DOIT,MBR=QR14803,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P316 EXEC PROC=DOIT,MBR=QR149T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P317 EXEC PROC=DOIT,MBR=QR149T2,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P318 EXEC PROC=DOIT,MBR=QR149T3,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P319 EXEC PROC=DOIT,MBR=QR149T4,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P320 EXEC PROC=DOIT,MBR=QR149T5,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P321 EXEC PROC=DOIT,MBR=QR149T6,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P322 EXEC PROC=DOIT,MBR=QR149T7,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P323 EXEC PROC=DOIT,MBR=QR14902,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P324 EXEC PROC=DOIT,MBR=QR14903,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P325 EXEC PROC=DOIT,MBR=QR14904,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P326 EXEC PROC=DOIT,MBR=QR14905,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P327 EXEC PROC=DOIT,MBR=QR14906,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P328 EXEC PROC=DOIT,MBR=QR14907,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P329 EXEC PROC=DOIT,MBR=QR150T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P330 EXEC PROC=DOIT,MBR=QR150T2,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P331 EXEC PROC=DOIT,MBR=QR150T3,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P332 EXEC PROC=DOIT,MBR=QR150T4,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P333 EXEC PROC=DOIT,MBR=QR15001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P334 EXEC PROC=DOIT,MBR=QR15002,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P335 EXEC PROC=DOIT,MBR=QR15003,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P336 EXEC PROC=DOIT,MBR=QR15004,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P337 EXEC PROC=DOIT,MBR=QR151T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P338 EXEC PROC=DOIT,MBR=QR15101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P339 EXEC PROC=DOIT,MBR=QR152T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P340 EXEC PROC=DOIT,MBR=QR15201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P341 EXEC PROC=DOIT,MBR=QR153T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P342 EXEC PROC=DOIT,MBR=QR15301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P343 EXEC PROC=DOIT,MBR=QR154T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P344 EXEC PROC=DOIT,MBR=QR15401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P345 EXEC PROC=DOIT,MBR=QR155T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P346 EXEC PROC=DOIT,MBR=QR155T2,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P347 EXEC PROC=DOIT,MBR=QR155T3,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P348 EXEC PROC=DOIT,MBR=QR15501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P349 EXEC PROC=DOIT,MBR=QR15502,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P350 EXEC PROC=DOIT,MBR=QR15503,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407698 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 8 first member 351 QR156T1
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P351 EXEC PROC=DOIT,MBR=QR156T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P352 EXEC PROC=DOIT,MBR=QR15601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P353 EXEC PROC=DOIT,MBR=QR15602,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P354 EXEC PROC=DOIT,MBR=QR15603,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P355 EXEC PROC=DOIT,MBR=QR157T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P356 EXEC PROC=DOIT,MBR=QR157T2,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P357 EXEC PROC=DOIT,MBR=QR157T3,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P358 EXEC PROC=DOIT,MBR=QR15701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P359 EXEC PROC=DOIT,MBR=QR15702,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P360 EXEC PROC=DOIT,MBR=QR15703,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P361 EXEC PROC=DOIT,MBR=QR158T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P362 EXEC PROC=DOIT,MBR=QR15801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P363 EXEC PROC=DOIT,MBR=QR15901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P364 EXEC PROC=DOIT,MBR=QR160T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P365 EXEC PROC=DOIT,MBR=QR160T2,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P366 EXEC PROC=DOIT,MBR=QR160T3,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P367 EXEC PROC=DOIT,MBR=QR160T4,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P368 EXEC PROC=DOIT,MBR=QR16001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P369 EXEC PROC=DOIT,MBR=QR16002,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P370 EXEC PROC=DOIT,MBR=QR16003,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P371 EXEC PROC=DOIT,MBR=QR16004,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P372 EXEC PROC=DOIT,MBR=QR161T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P373 EXEC PROC=DOIT,MBR=QR16102,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P374 EXEC PROC=DOIT,MBR=QR16103,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P375 EXEC PROC=DOIT,MBR=QR16104,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P376 EXEC PROC=DOIT,MBR=QR16105,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P377 EXEC PROC=DOIT,MBR=QR162T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P378 EXEC PROC=DOIT,MBR=QR16201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P379 EXEC PROC=DOIT,MBR=QR16401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P380 EXEC PROC=DOIT,MBR=QR16801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P381 EXEC PROC=DOIT,MBR=QR17101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P382 EXEC PROC=DOIT,MBR=QR17201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P383 EXEC PROC=DOIT,MBR=QR17301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P384 EXEC PROC=DOIT,MBR=QR17401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P385 EXEC PROC=DOIT,MBR=QR17701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P386 EXEC PROC=DOIT,MBR=QR17702,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P387 EXEC PROC=DOIT,MBR=QR17801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P388 EXEC PROC=DOIT,MBR=QR18101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P389 EXEC PROC=DOIT,MBR=QR18201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P390 EXEC PROC=DOIT,MBR=QR18901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P391 EXEC PROC=DOIT,MBR=QR19001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P392 EXEC PROC=DOIT,MBR=QR19002,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P393 EXEC PROC=DOIT,MBR=QR19301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P394 EXEC PROC=DOIT,MBR=QR19401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P395 EXEC PROC=DOIT,MBR=QR19501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P396 EXEC PROC=DOIT,MBR=QR19601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P397 EXEC PROC=DOIT,MBR=QR19901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P398 EXEC PROC=DOIT,MBR=QR20001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P399 EXEC PROC=DOIT,MBR=QR20101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P400 EXEC PROC=DOIT,MBR=QR20401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407699 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 9 first member 401 QR20501
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P401 EXEC PROC=DOIT,MBR=QR20501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P402 EXEC PROC=DOIT,MBR=QR20601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P403 EXEC PROC=DOIT,MBR=QR20701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P404 EXEC PROC=DOIT,MBR=QR20801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P405 EXEC PROC=DOIT,MBR=QR20803,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P406 EXEC PROC=DOIT,MBR=QR20804,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P407 EXEC PROC=DOIT,MBR=QR20805,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P408 EXEC PROC=DOIT,MBR=QR20806,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P409 EXEC PROC=DOIT,MBR=QR20807,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P410 EXEC PROC=DOIT,MBR=QR20808,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P411 EXEC PROC=DOIT,MBR=QR20809,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P412 EXEC PROC=DOIT,MBR=QR20810,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P413 EXEC PROC=DOIT,MBR=QR21201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P414 EXEC PROC=DOIT,MBR=QR21301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P415 EXEC PROC=DOIT,MBR=QR21401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P416 EXEC PROC=DOIT,MBR=QR21801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P417 EXEC PROC=DOIT,MBR=QR22001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P418 EXEC PROC=DOIT,MBR=QR22501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P419 EXEC PROC=DOIT,MBR=QR22601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P420 EXEC PROC=DOIT,MBR=QR22801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P421 EXEC PROC=DOIT,MBR=QR23302,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P422 EXEC PROC=DOIT,MBR=QR23402,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P423 EXEC PROC=DOIT,MBR=QR23601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P424 EXEC PROC=DOIT,MBR=QR25101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P425 EXEC PROC=DOIT,MBR=QR25201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P426 EXEC PROC=DOIT,MBR=QR25301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P427 EXEC PROC=DOIT,MBR=QR25501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P428 EXEC PROC=DOIT,MBR=QR25601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P429 EXEC PROC=DOIT,MBR=QR25901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P430 EXEC PROC=DOIT,MBR=QR26201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P431 EXEC PROC=DOIT,MBR=QR26801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P432 EXEC PROC=DOIT,MBR=QR26901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P433 EXEC PROC=DOIT,MBR=QR27001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P434 EXEC PROC=DOIT,MBR=QR27201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P435 EXEC PROC=DOIT,MBR=QR27301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P436 EXEC PROC=DOIT,MBR=QR27401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P437 EXEC PROC=DOIT,MBR=QR27501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P438 EXEC PROC=DOIT,MBR=QR27601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P439 EXEC PROC=DOIT,MBR=QR27701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P440 EXEC PROC=DOIT,MBR=QR27901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P441 EXEC PROC=DOIT,MBR=QR28401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P442 EXEC PROC=DOIT,MBR=QR28402,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P443 EXEC PROC=DOIT,MBR=QR28902,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P444 EXEC PROC=DOIT,MBR=QR29101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P445 EXEC PROC=DOIT,MBR=QR29201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P446 EXEC PROC=DOIT,MBR=QR29202,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P447 EXEC PROC=DOIT,MBR=QR29203,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P448 EXEC PROC=DOIT,MBR=QR29204,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P449 EXEC PROC=DOIT,MBR=QR29205,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P450 EXEC PROC=DOIT,MBR=QR29301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407690 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 10 first member 451 QR29401
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P451 EXEC PROC=DOIT,MBR=QR29401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P452 EXEC PROC=DOIT,MBR=QR29501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P453 EXEC PROC=DOIT,MBR=QR29601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P454 EXEC PROC=DOIT,MBR=QR29801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P455 EXEC PROC=DOIT,MBR=QR29901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P456 EXEC PROC=DOIT,MBR=QR30001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P457 EXEC PROC=DOIT,MBR=QR30201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P458 EXEC PROC=DOIT,MBR=QR30301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P459 EXEC PROC=DOIT,MBR=QR30401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P460 EXEC PROC=DOIT,MBR=QR30402,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P461 EXEC PROC=DOIT,MBR=QR30403,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P462 EXEC PROC=DOIT,MBR=QR30404,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P463 EXEC PROC=DOIT,MBR=QR30405,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P464 EXEC PROC=DOIT,MBR=QR30601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P465 EXEC PROC=DOIT,MBR=QR30602,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P466 EXEC PROC=DOIT,MBR=QR30603,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P467 EXEC PROC=DOIT,MBR=QR30604,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P468 EXEC PROC=DOIT,MBR=QR30605,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P469 EXEC PROC=DOIT,MBR=QR30606,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P470 EXEC PROC=DOIT,MBR=QR30607,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P471 EXEC PROC=DOIT,MBR=QR30701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P472 EXEC PROC=DOIT,MBR=QR30801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P473 EXEC PROC=DOIT,MBR=QR30901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P474 EXEC PROC=DOIT,MBR=QR31001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P475 EXEC PROC=DOIT,MBR=QR31101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P476 EXEC PROC=DOIT,MBR=QR31102,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P477 EXEC PROC=DOIT,MBR=QR31103,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P478 EXEC PROC=DOIT,MBR=QR31201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P479 EXEC PROC=DOIT,MBR=QR31401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P480 EXEC PROC=DOIT,MBR=QR31501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P481 EXEC PROC=DOIT,MBR=QR31702,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P482 EXEC PROC=DOIT,MBR=QR31703,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P483 EXEC PROC=DOIT,MBR=QR31704,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P484 EXEC PROC=DOIT,MBR=QR31705,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P485 EXEC PROC=DOIT,MBR=QR31706,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P486 EXEC PROC=DOIT,MBR=QR31707,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P487 EXEC PROC=DOIT,MBR=QR31708,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P488 EXEC PROC=DOIT,MBR=QR31709,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P489 EXEC PROC=DOIT,MBR=QR31710,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P490 EXEC PROC=DOIT,MBR=QR31711,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P491 EXEC PROC=DOIT,MBR=QR31901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P492 EXEC PROC=DOIT,MBR=QR32001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P493 EXEC PROC=DOIT,MBR=QR32101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P494 EXEC PROC=DOIT,MBR=QR32201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P495 EXEC PROC=DOIT,MBR=QR32701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P496 EXEC PROC=DOIT,MBR=QR33101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P497 EXEC PROC=DOIT,MBR=QR35001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P498 EXEC PROC=DOIT,MBR=QR35002,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P499 EXEC PROC=DOIT,MBR=QR35003,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P500 EXEC PROC=DOIT,MBR=QR35006,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407691 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 11 first member 501 QR35007
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P501 EXEC PROC=DOIT,MBR=QR35007,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P502 EXEC PROC=DOIT,MBR=QR35008,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P503 EXEC PROC=DOIT,MBR=QR35009,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P504 EXEC PROC=DOIT,MBR=QR35010,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P505 EXEC PROC=DOIT,MBR=QR35011,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P506 EXEC PROC=DOIT,MBR=QR35012,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P507 EXEC PROC=DOIT,MBR=QR35013,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P508 EXEC PROC=DOIT,MBR=QR35014,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P509 EXEC PROC=DOIT,MBR=QR35015,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P510 EXEC PROC=DOIT,MBR=QR35016,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P511 EXEC PROC=DOIT,MBR=QR35401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P512 EXEC PROC=DOIT,MBR=QR38001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P513 EXEC PROC=DOIT,MBR=QR38201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P514 EXEC PROC=DOIT,MBR=QR38202,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P515 EXEC PROC=DOIT,MBR=QR38203,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P516 EXEC PROC=DOIT,MBR=QR38204,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P517 EXEC PROC=DOIT,MBR=QR38205,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P518 EXEC PROC=DOIT,MBR=QR38206,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P519 EXEC PROC=DOIT,MBR=QR383T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P520 EXEC PROC=DOIT,MBR=QR38301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P521 EXEC PROC=DOIT,MBR=QR38701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P522 EXEC PROC=DOIT,MBR=QR38702,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P523 EXEC PROC=DOIT,MBR=QR38703,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P524 EXEC PROC=DOIT,MBR=QR38704,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P525 EXEC PROC=DOIT,MBR=QR38705,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P526 EXEC PROC=DOIT,MBR=QR38706,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P527 EXEC PROC=DOIT,MBR=QR38707,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P528 EXEC PROC=DOIT,MBR=QR38708,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P529 EXEC PROC=DOIT,MBR=QR38709,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P530 EXEC PROC=DOIT,MBR=QR39501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P531 EXEC PROC=DOIT,MBR=QR39601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P532 EXEC PROC=DOIT,MBR=QR39701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P533 EXEC PROC=DOIT,MBR=QR39801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P534 EXEC PROC=DOIT,MBR=QR41301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P535 EXEC PROC=DOIT,MBR=QR41401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P536 EXEC PROC=DOIT,MBR=QR41501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P537 EXEC PROC=DOIT,MBR=QR41701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P538 EXEC PROC=DOIT,MBR=QR41801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P539 EXEC PROC=DOIT,MBR=QR41901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P540 EXEC PROC=DOIT,MBR=QR41902,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P541 EXEC PROC=DOIT,MBR=QR41903,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P542 EXEC PROC=DOIT,MBR=QR42001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P543 EXEC PROC=DOIT,MBR=QR421T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P544 EXEC PROC=DOIT,MBR=QR42101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P545 EXEC PROC=DOIT,MBR=QR42201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P546 EXEC PROC=DOIT,MBR=QR42301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P547 EXEC PROC=DOIT,MBR=QR42401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P548 EXEC PROC=DOIT,MBR=QR425T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P549 EXEC PROC=DOIT,MBR=QR42601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P550 EXEC PROC=DOIT,MBR=QR42701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407692 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 12 first member 551 QR42901
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P551 EXEC PROC=DOIT,MBR=QR42901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P552 EXEC PROC=DOIT,MBR=QR43001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P553 EXEC PROC=DOIT,MBR=QR43301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P554 EXEC PROC=DOIT,MBR=QR434T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P555 EXEC PROC=DOIT,MBR=QR43401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P556 EXEC PROC=DOIT,MBR=QR43501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P557 EXEC PROC=DOIT,MBR=QR43601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P558 EXEC PROC=DOIT,MBR=QR43701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P559 EXEC PROC=DOIT,MBR=QR43702,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P560 EXEC PROC=DOIT,MBR=QR43703,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P561 EXEC PROC=DOIT,MBR=QR43704,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P562 EXEC PROC=DOIT,MBR=QR43801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P563 EXEC PROC=DOIT,MBR=QR43901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P564 EXEC PROC=DOIT,MBR=QR44101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P565 EXEC PROC=DOIT,MBR=QR44201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P566 EXEC PROC=DOIT,MBR=QR44501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P567 EXEC PROC=DOIT,MBR=QR44701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P568 EXEC PROC=DOIT,MBR=QR44801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P569 EXEC PROC=DOIT,MBR=QR44802,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P570 EXEC PROC=DOIT,MBR=QR44803,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P571 EXEC PROC=DOIT,MBR=QR44804,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P572 EXEC PROC=DOIT,MBR=QR44805,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P573 EXEC PROC=DOIT,MBR=QR44806,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P574 EXEC PROC=DOIT,MBR=QR44807,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P575 EXEC PROC=DOIT,MBR=QR44901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P576 EXEC PROC=DOIT,MBR=QR45001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P577 EXEC PROC=DOIT,MBR=QR45301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P578 EXEC PROC=DOIT,MBR=QR45601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P579 EXEC PROC=DOIT,MBR=QR45701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P580 EXEC PROC=DOIT,MBR=QR45801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P581 EXEC PROC=DOIT,MBR=QR45901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P582 EXEC PROC=DOIT,MBR=QR46001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P583 EXEC PROC=DOIT,MBR=QR46101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P584 EXEC PROC=DOIT,MBR=QR46201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P585 EXEC PROC=DOIT,MBR=QR46301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P586 EXEC PROC=DOIT,MBR=QR46401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P587 EXEC PROC=DOIT,MBR=QR46701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P588 EXEC PROC=DOIT,MBR=QR47701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P589 EXEC PROC=DOIT,MBR=QR478T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P590 EXEC PROC=DOIT,MBR=QR47801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P591 EXEC PROC=DOIT,MBR=QR47901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P592 EXEC PROC=DOIT,MBR=QR48001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P593 EXEC PROC=DOIT,MBR=QR48101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P594 EXEC PROC=DOIT,MBR=QR48201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P595 EXEC PROC=DOIT,MBR=QR48301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P596 EXEC PROC=DOIT,MBR=QR48501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P597 EXEC PROC=DOIT,MBR=QR48601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P598 EXEC PROC=DOIT,MBR=QR48701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P599 EXEC PROC=DOIT,MBR=QR48801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P600 EXEC PROC=DOIT,MBR=QR48901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407693 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 13 first member 601 QR49201
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P601 EXEC PROC=DOIT,MBR=QR49201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P602 EXEC PROC=DOIT,MBR=QR49301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P603 EXEC PROC=DOIT,MBR=QR49401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P604 EXEC PROC=DOIT,MBR=QR49701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P605 EXEC PROC=DOIT,MBR=QR498T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P606 EXEC PROC=DOIT,MBR=QR498T2,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P607 EXEC PROC=DOIT,MBR=QR498T3,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P608 EXEC PROC=DOIT,MBR=QR498T4,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P609 EXEC PROC=DOIT,MBR=QR49801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P610 EXEC PROC=DOIT,MBR=QR49803,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P611 EXEC PROC=DOIT,MBR=QR49804,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P612 EXEC PROC=DOIT,MBR=QR49901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P613 EXEC PROC=DOIT,MBR=QR50101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P614 EXEC PROC=DOIT,MBR=QR50301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P615 EXEC PROC=DOIT,MBR=QR51101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P616 EXEC PROC=DOIT,MBR=QR51501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P617 EXEC PROC=DOIT,MBR=QR51502,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P618 EXEC PROC=DOIT,MBR=QR51503,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P619 EXEC PROC=DOIT,MBR=QR51504,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P620 EXEC PROC=DOIT,MBR=QR51505,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P621 EXEC PROC=DOIT,MBR=QR51506,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P622 EXEC PROC=DOIT,MBR=QR51507,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P623 EXEC PROC=DOIT,MBR=QR51508,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P624 EXEC PROC=DOIT,MBR=QR51509,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P625 EXEC PROC=DOIT,MBR=QR51510,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P626 EXEC PROC=DOIT,MBR=QR51511,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P627 EXEC PROC=DOIT,MBR=QR51512,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P628 EXEC PROC=DOIT,MBR=QR51513,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P629 EXEC PROC=DOIT,MBR=QR51514,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P630 EXEC PROC=DOIT,MBR=QR51515,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P631 EXEC PROC=DOIT,MBR=QR51516,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P632 EXEC PROC=DOIT,MBR=QR51517,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P633 EXEC PROC=DOIT,MBR=QR51518,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P634 EXEC PROC=DOIT,MBR=QR51519,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P635 EXEC PROC=DOIT,MBR=QR51520,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P636 EXEC PROC=DOIT,MBR=QR51521,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P637 EXEC PROC=DOIT,MBR=QR51522,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P638 EXEC PROC=DOIT,MBR=QR51523,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P639 EXEC PROC=DOIT,MBR=QR51524,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P640 EXEC PROC=DOIT,MBR=QR51525,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P641 EXEC PROC=DOIT,MBR=QR51526,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P642 EXEC PROC=DOIT,MBR=QR51527,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P643 EXEC PROC=DOIT,MBR=QR51528,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P644 EXEC PROC=DOIT,MBR=QR51529,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P645 EXEC PROC=DOIT,MBR=QR51530,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P646 EXEC PROC=DOIT,MBR=QR51531,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P647 EXEC PROC=DOIT,MBR=QR51532,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P648 EXEC PROC=DOIT,MBR=QR51701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P649 EXEC PROC=DOIT,MBR=QR51801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P650 EXEC PROC=DOIT,MBR=QR51901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407694 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 14 first member 651 QR52001
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P651 EXEC PROC=DOIT,MBR=QR52001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P652 EXEC PROC=DOIT,MBR=QR52101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P653 EXEC PROC=DOIT,MBR=QR52201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P654 EXEC PROC=DOIT,MBR=QR52301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P655 EXEC PROC=DOIT,MBR=QR52401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P656 EXEC PROC=DOIT,MBR=QR531T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P657 EXEC PROC=DOIT,MBR=QR53101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P658 EXEC PROC=DOIT,MBR=QR53102,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P659 EXEC PROC=DOIT,MBR=QR53103,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P660 EXEC PROC=DOIT,MBR=QR53201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P661 EXEC PROC=DOIT,MBR=QR53401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P662 EXEC PROC=DOIT,MBR=QR53501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P663 EXEC PROC=DOIT,MBR=QR53601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P664 EXEC PROC=DOIT,MBR=QR537T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P665 EXEC PROC=DOIT,MBR=QR53701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P666 EXEC PROC=DOIT,MBR=QR54501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P667 EXEC PROC=DOIT,MBR=QR54502,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P668 EXEC PROC=DOIT,MBR=QR546T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P669 EXEC PROC=DOIT,MBR=QR54601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P670 EXEC PROC=DOIT,MBR=QR54701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P671 EXEC PROC=DOIT,MBR=QR54702,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P672 EXEC PROC=DOIT,MBR=QR55001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P673 EXEC PROC=DOIT,MBR=QR55201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P674 EXEC PROC=DOIT,MBR=QR55301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P675 EXEC PROC=DOIT,MBR=QR55401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P676 EXEC PROC=DOIT,MBR=QR55501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P677 EXEC PROC=DOIT,MBR=QR55601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P678 EXEC PROC=DOIT,MBR=QR55701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P679 EXEC PROC=DOIT,MBR=QR55801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P680 EXEC PROC=DOIT,MBR=QR55901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P681 EXEC PROC=DOIT,MBR=QR56101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P682 EXEC PROC=DOIT,MBR=QR56201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P683 EXEC PROC=DOIT,MBR=QR56301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P684 EXEC PROC=DOIT,MBR=QR56401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P685 EXEC PROC=DOIT,MBR=QR56701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P686 EXEC PROC=DOIT,MBR=QR56801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P687 EXEC PROC=DOIT,MBR=QR57001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P688 EXEC PROC=DOIT,MBR=QR57101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P689 EXEC PROC=DOIT,MBR=QR57102,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P690 EXEC PROC=DOIT,MBR=QR57103,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P691 EXEC PROC=DOIT,MBR=QR57104,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P692 EXEC PROC=DOIT,MBR=QR57105,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P693 EXEC PROC=DOIT,MBR=QR57106,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P694 EXEC PROC=DOIT,MBR=QR57107,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P695 EXEC PROC=DOIT,MBR=QR57201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P696 EXEC PROC=DOIT,MBR=QR57301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P697 EXEC PROC=DOIT,MBR=QR57302,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P698 EXEC PROC=DOIT,MBR=QR57303,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P699 EXEC PROC=DOIT,MBR=QR57401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P700 EXEC PROC=DOIT,MBR=QR57701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407695 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 15 first member 701 QR57801
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P701 EXEC PROC=DOIT,MBR=QR57801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P702 EXEC PROC=DOIT,MBR=QR57901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P703 EXEC PROC=DOIT,MBR=QR58001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P704 EXEC PROC=DOIT,MBR=QR581T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P705 EXEC PROC=DOIT,MBR=QR58101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P706 EXEC PROC=DOIT,MBR=QR582T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P707 EXEC PROC=DOIT,MBR=QR58201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P708 EXEC PROC=DOIT,MBR=QR583T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P709 EXEC PROC=DOIT,MBR=QR58301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P710 EXEC PROC=DOIT,MBR=QR584T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P711 EXEC PROC=DOIT,MBR=QR58401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P712 EXEC PROC=DOIT,MBR=QR585T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P713 EXEC PROC=DOIT,MBR=QR58501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P714 EXEC PROC=DOIT,MBR=QR586T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P715 EXEC PROC=DOIT,MBR=QR58601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P716 EXEC PROC=DOIT,MBR=QR587T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P717 EXEC PROC=DOIT,MBR=QR58701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P718 EXEC PROC=DOIT,MBR=QR588T1,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P719 EXEC PROC=DOIT,MBR=QR588T2,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P720 EXEC PROC=DOIT,MBR=QR588T3,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P721 EXEC PROC=DOIT,MBR=QR588T4,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P722 EXEC PROC=DOIT,MBR=QR588T5,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P723 EXEC PROC=DOIT,MBR=QR588T6,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P724 EXEC PROC=DOIT,MBR=QR58801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P725 EXEC PROC=DOIT,MBR=QR58901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P726 EXEC PROC=DOIT,MBR=QR59001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P727 EXEC PROC=DOIT,MBR=QR59101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P728 EXEC PROC=DOIT,MBR=QR59201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P729 EXEC PROC=DOIT,MBR=QR59301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P730 EXEC PROC=DOIT,MBR=QR59401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P731 EXEC PROC=DOIT,MBR=QR59402,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P732 EXEC PROC=DOIT,MBR=QR59403,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P733 EXEC PROC=DOIT,MBR=QR59404,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P734 EXEC PROC=DOIT,MBR=QR59405,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P735 EXEC PROC=DOIT,MBR=QR59406,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P736 EXEC PROC=DOIT,MBR=QR59407,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P737 EXEC PROC=DOIT,MBR=QR59601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P738 EXEC PROC=DOIT,MBR=QR59701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P739 EXEC PROC=DOIT,MBR=QR59801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P740 EXEC PROC=DOIT,MBR=QR59901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P741 EXEC PROC=DOIT,MBR=QR60001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P742 EXEC PROC=DOIT,MBR=QR60101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P743 EXEC PROC=DOIT,MBR=QR60201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P744 EXEC PROC=DOIT,MBR=QR60301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P745 EXEC PROC=DOIT,MBR=QR60401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P746 EXEC PROC=DOIT,MBR=QR60501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P747 EXEC PROC=DOIT,MBR=QR60601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P748 EXEC PROC=DOIT,MBR=QR60701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P749 EXEC PROC=DOIT,MBR=QR60901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P750 EXEC PROC=DOIT,MBR=QR61001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//A5407696 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG job 16 first member 751 QR61101
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
//P751 EXEC PROC=DOIT,MBR=QR61101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P752 EXEC PROC=DOIT,MBR=QR61201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P753 EXEC PROC=DOIT,MBR=QR61301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P754 EXEC PROC=DOIT,MBR=QR61401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P755 EXEC PROC=DOIT,MBR=QR61701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P756 EXEC PROC=DOIT,MBR=QR61801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P757 EXEC PROC=DOIT,MBR=QR61901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P758 EXEC PROC=DOIT,MBR=QR62101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P759 EXEC PROC=DOIT,MBR=QR62201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P760 EXEC PROC=DOIT,MBR=QR62301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P761 EXEC PROC=DOIT,MBR=QR62401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P762 EXEC PROC=DOIT,MBR=QR62701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P763 EXEC PROC=DOIT,MBR=QR62801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P764 EXEC PROC=DOIT,MBR=QR62901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P765 EXEC PROC=DOIT,MBR=QR63001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P766 EXEC PROC=DOIT,MBR=QR63101,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P767 EXEC PROC=DOIT,MBR=QR63701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P768 EXEC PROC=DOIT,MBR=QR63901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P769 EXEC PROC=DOIT,MBR=QR64001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P770 EXEC PROC=DOIT,MBR=QR64201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P771 EXEC PROC=DOIT,MBR=QR64401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P772 EXEC PROC=DOIT,MBR=QR64501,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P773 EXEC PROC=DOIT,MBR=QR64701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P774 EXEC PROC=DOIT,MBR=QR65201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P775 EXEC PROC=DOIT,MBR=QR65401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P776 EXEC PROC=DOIT,MBR=QR66201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P777 EXEC PROC=DOIT,MBR=QR66301,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P778 EXEC PROC=DOIT,MBR=QR66401,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P779 EXEC PROC=DOIT,MBR=QR66601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P780 EXEC PROC=DOIT,MBR=QR66801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P781 EXEC PROC=DOIT,MBR=QR66901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P782 EXEC PROC=DOIT,MBR=QR67001,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P783 EXEC PROC=DOIT,MBR=QR67601,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P784 EXEC PROC=DOIT,MBR=QR67701,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P785 EXEC PROC=DOIT,MBR=QR67801,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P786 EXEC PROC=DOIT,MBR=QR68201,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
//P787 EXEC PROC=DOIT,MBR=QR99901,SUBSYS=DBTF,
// LIST=DBTF.DBAA.LISTDEF
$***out 20080429 16:51:45
}¢--- A540769.WK.JCL(CHECKRJ4) cre=2008-04-08 mod=2008-05-20-11.44.44 F540769 ---
//A540769C JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG BOJ 1 first member 1 QR00101
//* check RTS Prozedur für checkRTS ix und TS nach alt
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=DBTF,LIST=DBTF.DBAA.LISTDEF
//PREVIEW EXEC PGM=DSNUTILB,
//*PREVIEW EXEC PGM=IEFBR14,
// PARM='&SUBSYS.,&MBR..PREVW'
//SYSPRINT DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR.)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=&SUBSYS..DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=&SUBSYS..DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=&LIST(&MBR.1),DISP=SHR
//TSNEW EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DISP=SHR,DSN=A540769.WK.REXX
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//TSOLD EXEC PGM=IKJEFT01,PARM='%CHECKRT0 &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DISP=SHR,DSN=A540769.WK.REXX
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSOLD(&MBR)
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSOLD(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//IXNEW EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DISP=SHR,DSN=A540769.WK.REXX
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//IXOLD EXEC PGM=IKJEFT01,PARM='%CHECKRT0 &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DISP=SHR,DSN=A540769.WK.REXX
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXOLD(&MBR)
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXOLD(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//COMP EXEC PGM=IKJEFT01,PARM='%CHECKRTC &MBR',
// DYNAMNBR=20
//SYSEXEC DD DISP=SHR,DSN=A540769.WK.REXX
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
// PEND
//P1 EXEC PROC=DOIT,MBR=QR00302
//P2 EXEC PROC=DOIT,MBR=QR00306
//P3 EXEC PROC=DOIT,MBR=QR00308
//P4 EXEC PROC=DOIT,MBR=QR00309
//P5 EXEC PROC=DOIT,MBR=QR00310
//P6 EXEC PROC=DOIT,MBR=QR00316
//
//P7 EXEC PROC=DOIT,MBR=QR35012
//P8 EXEC PROC=DOIT,MBR=QR35013
//P9 EXEC PROC=DOIT,MBR=QR35014
//P10 EXEC PROC=DOIT,MBR=QR35015
//P11 EXEC PROC=DOIT,MBR=QR35016
//P12 EXEC PROC=DOIT,MBR=QR35401
//P13 EXEC PROC=DOIT,MBR=QR35015
}¢--- A540769.WK.JCL(CHECKRPN) cre=2008-03-07 mod=2008-11-24-17.24.35 F540769 ---
//* check RTS Prozedur für checkRTS ix und TS nach neu
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DSN=A540769.WK.REXX,DISP=SHR
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXNEW,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
// PEND
}¢--- A540769.WK.JCL(CHECKRPO) cre=2008-03-07 mod=2008-11-24-17.24.35 F540769 ---
//* check RTS Prozedur für checkRTS ix und TS nach alt
//* und generiertes File in Library kopieren
//* zur Benutzung aus checkRJ3
//DOIT PROC MBR=MBRVERGESSEN,SUBSYS=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
// DYNAMNBR=20
//SYSEXEC DD DISP=SHR,DSN=TSO.RZ1.P0.USER.EXEC
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..TSOLD,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRTSOLD(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSOLD
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSOLD(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
// DYNAMNBR=20
//SYSEXEC DD DISP=SHR,DSN=TSO.RZ1.P0.USER.EXEC
//DDIN1 DD DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2 DD DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1 DD DSN=A540769.CHECKRTX.&MBR..IXOLD,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD DUMMY
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.CHECKRTS.OPRIXOLD(&MBR)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SCOPY EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXOLD
//SYSUT2 DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXOLD(&MBR)
// PEND
}¢--- A540769.WK.JCL(CHECKRTC) cre=2010-05-15 mod=2010-05-15-16.19.02 A540769 ---
//A540769S JOB (CP00,KE50),TIME=99 00010001
//*MAIN CLASS=LOG
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
//* PARM='ISPSTART CMD(%PVSVER)'
//* PARM='ISPSTART CMD(%PVSTEST del test.pvs069)'
//* PARM='ISPSTART CMD(%PVSTEST job ''PVSO.RZ1.P0'' wk.out)'
//* PARM='%runISPF say "wie gehts"; zispfrc=7;rc=0'
// PARM='ISPSTART CMD(%CHECKRTC c2)'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//ISPPLIB DD DSN=TSO.ISPF.ISPPLIB,DISP=SHR
//ISPMLIB DD DSN=TSO.ISPF.ISPMLIB,DISP=SHR
//* TSO.RZ1.P0.INST.MSGS
// DD DSN=ISP.SISPMENU,DISP=SHR
//* TSO.RZ1.P0.PROD.MSGS
//* ORG.RZ1.B0106.KPCO4.MSGS
//* TSO.RZ1.P0.USER.MSGS
//ISPSLIB DD DSN=TSO.ISPF.ISPSLIB,DISP=SHR
//ISPTLIB DD DSN=TSO.ISPF.ISPTLIB,DISP=SHR
//ISPPROF DD DISP=(,PASS),UNIT=VIO,
// SPACE=(CYL,(1,1,30)),RECFM=FB,LRECL=80
//*
//* DSORG=PO
//ISPLOG DD SYSOUT=*,RECFM=VA,LRECL=125
//ISPLIST DD SYSOUT=*,RECFM=FBA,LRECL=121
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD DISP=SHR,DSN=A540769.WK.TEXV(CHECKRTC)
//SYSTSIN DD DUMMY
}¢--- A540769.WK.JCL(CHECKRTD) cre=2010-08-27 mod=2010-08-27-15.28.47 A540769 ---
//A540769E JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=DBTF ,SYSTEM=S12
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD DISP=SHR,DSN=A540769.WK.SQL(CHECKRTD)
}¢--- A540769.WK.JCL(CMN) cre=2008-02-28 mod=2008-11-24-17.24.35 F540769 -------
//A540769S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/20/2006.09.40.21
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOC,'A540769S.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOC.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TCOPYD DSN('&SSID..&DB..&SN..P&PART(3)..&UNIQ.')
DATACLAS (NULL30) MGMTCLAS(COM#A011)
SPACE (10,250) CYL
TEMPLATE TDISCA
DSN('DSN.&SSID..&DB..&SN..D&DATE(3)..T&TIME..DISC')
DATACLAS (NULL30) MGMTCLAS(COM#A031)
SPACE (10,250) CYL
TEMPLATE TPUNCH
DSN('DSN.&SSID..&DB..&SN..D&DATE(3)..T&TIME..PUNC')
DATACLAS (NULL30) MGMTCLAS(COM#A031)
SPACE (1,2) CYL
-- CMNRLSCIM SSXX28QT T DCMNT SCMNTE21
COPY TABLESPACE DCMNT.SCMNTE21 FULL YES
COPYDDN(TCOPYD) SHRLEVEL CHANGE
QUIESCE TABLESPACE DCMNT.SCMNTE21
REORG TABLESPACE DCMNT.SCMNTE21
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.CMNBATCH
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLOAD CONTINUE
WORKDDN(TSYUTD,TSOUTD)
PUNCHDDN TPUNCH
DISCARDDN TDISCA
SORTKEYS
SORTDEVT DISK
SORTNUM 60
STATISTICS
INDEX ALL
REPORT NO
UPDATE ALL
DISCARD FROM TABLE (SSXX28QT.CMNRLSCIM)
WHEN (TXT_RELEASE IN ('Z0608300'))
//
-----------
//* THIS JOB WILL REORGANISE THE DB2 TABLES WHILE AT THE SAME
//* TIME DISCARDING ROWS FOR THE RELEASE BEEING ARCHIVED.
//*
//* SSSS DB2 SUBSYSTEM ID
//* DATABASE DATABASE WHERE THE AUDIT TABLES ARE DEFINED
//* TBLSPACENN (01-11) TABLESPACE NAMES FOR THE AUDIT TABLES
//* CMNX TARGET CHANGEMAN SUBSYSTEM
//* TRELEASE TARGET RELEASE AND
//* AFTER THIS REORG.
//REORG EXEC DSNUPROC,
// UTPROC='',
// UID='EROARCH0RERG',
// SYSTEM='DBOC'
//*
//UTPRINT DD SYSOUT=*
//SORTWK01 DD DSN=&WORK01,DISP=(,DELETE,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(50,1000))
//SORTWK02 DD DSN=&WORK02,DISP=(,DELETE,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(50,1000))
//WORK DD DSN=&WORK,DISP=(,DELETE,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(50,1000))
//SORTOUT DD DSN=&SORTOUT,DISP=(,DELETE,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(50,1000))
//SYSPUNCH DD DSN=&PUNCH,DISP=(,DELETE,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(1,1))
//SYSTEMPL DD DISP=SHR,DSN=DBOC.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
REORG TABLESPACE (DCMN.SCMN0E01)
LOG NO
SHRLEVEL CHANGE
WORKDDN(WORK) COPYDDN(TCOPYD)
DISCARD FROM TABLE (SSXX28Q0.CMNDIRSRC)
WHEN (TXT_RELEASE = 'Z0608300')
}¢--- A540769.WK.JCL(CMNXXLOA) cre=2011-11-04 mod=2011-11-04-08.35.56 A540769 ---
//A540769L JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//S1 EXEC PGM=DSNUTILB,PARM='DBOF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
DECLARE COST CURSOR FOR
SELECT *
FROM CMNBATCH.DSN_DETCOST_TABLE
WHERE EXPLAIN_TIME > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR COST
INTO TABLE CMNXXX.DSN_DETCOST_TABLE
EXEC SQL
DECLARE FILTER CURSOR FOR
SELECT *
FROM CMNBATCH.DSN_FILTER_TABLE
WHERE EXPLAIN_TIME > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR FILTER
INTO TABLE CMNXXX.DSN_FILTER_TABLE
EXEC SQL
DECLARE FUNC CURSOR FOR
SELECT *
FROM CMNBATCH.DSN_FUNCTION_TABLE
WHERE EXPLAIN_TIME > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR FUNC
INTO TABLE CMNXXX.DSN_FUNCTION_TABLE
EXEC SQL
DECLARE PGRA CURSOR FOR
SELECT *
FROM CMNBATCH.DSN_PGRANGE_TABLE
WHERE EXPLAIN_TIME > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR PGRA
INTO TABLE CMNXXX.DSN_PGRANGE_TABLE
EXEC SQL
DECLARE GROU CURSOR FOR
SELECT *
FROM CMNBATCH.DSN_PGROUP_TABLE
WHERE EXPLAIN_TIME > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR GROU
INTO TABLE CMNXXX.DSN_PGROUP_TABLE
EXEC SQL
DECLARE PRED CURSOR FOR
SELECT *
FROM CMNBATCH.DSN_PREDICAT_TABLE
WHERE EXPLAIN_TIME > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR PRED
INTO TABLE CMNXXX.DSN_PREDICAT_TABLE
EXEC SQL
DECLARE TASK CURSOR FOR
SELECT *
FROM CMNBATCH.DSN_PTASK_TABLE
WHERE EXPLAIN_TIME > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR TASK
INTO TABLE CMNXXX.DSN_PTASK_TABLE
EXEC SQL
DECLARE SKEY CURSOR FOR
SELECT *
FROM CMNBATCH.DSN_SORTKEY_TABLE
WHERE EXPLAIN_TIME > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR SKEY
INTO TABLE CMNXXX.DSN_SORTKEY_TABLE
EXEC SQL
DECLARE SORT CURSOR FOR
SELECT *
FROM CMNBATCH.DSN_SORT_TABLE
WHERE EXPLAIN_TIME > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR SORT
INTO TABLE CMNXXX.DSN_SORT_TABLE
EXEC SQL
DECLARE CACH CURSOR FOR
SELECT STMT_ID -- IGNOREFIELDS DOES NOT HELP
, STMT_TOKEN -- FOR INCURSOR AND ROWID|
, COLLID
, PROGRAM_NAME
, INV_DROPALT
, INV_REVOKE
, INV_LRU
, INV_RUNSTATS
, CACHED_TS
, USERS
, COPIES
, LINES
, PRIMAUTH
, CURSQLID
, BIND_QUALIFIER
, BIND_ISO
, BIND_CDATA
, BIND_DYNRL
, BIND_DEGRE
, BIND_SQLRL
, BIND_CHOLD
, STAT_TS
, STAT_EXEC
, STAT_GPAG
, STAT_SYNR
, STAT_WRIT
, STAT_EROW
, STAT_PROW
, STAT_SORT
, STAT_INDX
, STAT_RSCN
, STAT_PGRP
, STAT_ELAP
, STAT_CPU
, STAT_SUS_SYNIO
, STAT_SUS_LOCK
, STAT_SUS_SWIT
, STAT_SUS_GLCK
, STAT_SUS_OTHR
, STAT_SUS_OTHW
, STAT_RIDLIMT
, STAT_RIDSTOR
, EXPLAIN_TS
, SCHEMA
, STMT_TEXT
FROM CMNBATCH.DSN_STATEMENT_CACHE_TABLE
WHERE EXPLAIN_TS > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR CACH
INTO TABLE CMNXXX.DSN_STATEMENT_CACHE_TABLE
EXEC SQL
DECLARE STAT CURSOR FOR
SELECT *
FROM CMNBATCH.DSN_STATEMNT_TABLE
WHERE EXPLAIN_TIME > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR STAT
INTO TABLE CMNXXX.DSN_STATEMNT_TABLE
EXEC SQL
DECLARE STRU CURSOR FOR
SELECT *
FROM CMNBATCH.DSN_STRUCT_TABLE
WHERE EXPLAIN_TIME > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR STRU
INTO TABLE CMNXXX.DSN_STRUCT_TABLE
EXEC SQL
DECLARE PLAN CURSOR FOR
SELECT *
FROM CMNBATCH.PLAN_TABLE
WHERE BIND_TIME > '2011-07-01-00.00.00'
WITH UR
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INCURSOR PLAN
INTO TABLE CMNXXX.PLAN_TABLE
LISTDEF LST INCLUDE TABLESPACE DB2PLAN.CMNXXX*
LISTDEF LSP INCLUDE TABLESPACE DB2PLAN.CMNXXX* PARTLEVEL
COPY LIST LSP COPYDDN(TCOPYD) SHRLEVEL REFERENCE
LISTDEF LSB INCLUDE LIST LST BASE
RUNSTATS TABLESPACE LIST LSB
INDEX(ALL KEYCARD) UPDATE ALL
SHRLEVEL CHANGE
LISTDEF LSL INCLUDE LIST LST LOB
RUNSTATS TABLESPACE LIST LSL
INDEX(ALL ) UPDATE ALL
SHRLEVEL CHANGE
}¢--- A540769.WK.JCL(CMNXXREO) cre=2011-12-02 mod=2011-12-02-16.32.10 A540769 ---
//A540769R JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=DBOF ,SYSTEM=S12
//REO EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOF,'A540769R.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST#REO INCLUDE TABLESPACE DB2PLAN.CMNXX* PARTLEVEL BASE
REORG TABLESPACE LIST LST#REO
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB03
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISCA
SORTKEYS
SORTDEVT DISK
STATISTICS
INDEX ALL KEYCARD
REPORT NO UPDATE ALL
//A540769L JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=DBOF ,SYSTEM=S12
//REO EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOF,'A540769L.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST#REO INCLUDE TABLESPACE DB2PLAN.CMNXX* PARTLEVEL LOB
REORG TABLESPACE LIST LST#REO
SHRLEVEL REFERENCE
COPYDDN(TCOPYD)
UNLOAD CONTINUE
}¢--- A540769.WK.JCL(CMORDER) cre= mod=-. --------------------------------------
//A540769A JOB (CP00,KE50) 00010000
//USEDPROC JCLLIB ORDER=(IOA.U0000.T0.RZ1I.PROCLIB, 00020000
// ID.RZ1.X0.PROC) 00030000
//* - E02 ERSTELLEN SCHEDULE AUFGRUND DER "GENERAL JOB SCHEDULING 00040000
//E02 EXEC PROC=CTMBLT 00050000
//DAINPRM DD DISP=SHR,DSN=A540769.CM.CMDEF(BR14) 00060000
//* - E04 ORDERN MIT DAILY 00070000
//E04 EXEC PROC=CTMDAILY, 00080000
// PROGLST=CTMPROGJ 00090000
//DACHK DD * 00100000
040819 040819040819040819040819040819 00110000
JOB= ,SERIAL_NO= 00120000
//DAJOB DD DISP=SHR,DSN=A540769.CM.CMLIB(BR14) 00130000
//DACAL DD DISP=SHR,DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JKA 00140000
}¢--- A540769.WK.JCL(COMPRESS) cre=2006-10-26 mod=2012-10-12-13.40.51 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=M 00040001
/**********************************************************/
/* C O M P R E S S M I T IEBCOPY AUCH WENN INUSE */
/**********************************************************/
//E01 EXEC PGM=IEBCOPY,PARM='PGM=IEBCOPY,OUT=SYSUT2'
//SYSUT1 DD DISP=SHR,DSN=ORG.U0009.B0106.KIDI.EXEC
//SYSUT2 DD DISP=SHR,DSN=ORG.U0009.B0106.KIDI.EXEC
//SYSIN DD *
COPY OUTDD=SYSUT2,INDD=SYSUT1
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
/*EOF
}¢--- A540769.WK.JCL(COUNT) cre=2006-10-27 mod=2006-10-27-09.57.42 F540769 -----
//A540769D JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=* DISP=SHR,DSN=A540769.WK.TEXT(COUNTVOR)
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
select 'vorher tnz242a1', count(all NZ242001)
from A540769.tnz242a1
}¢--- A540769.WK.JCL(CP) cre= mod=-. -------------------------------------------
//******* COPY PS 00010000
//CP PROC FROM=FROMMISSING,TO=TOMISSING 00020000
//CP EXEC PGM=IEBGENER 00030000
//SYSPRINT DD SYSOUT=* 00040000
//SYSUT1 DD DISP=SHR,DSN=&FROM 00050000
//SYSUT2 DD DISP=(NEW,CATLG,DELETE),DSN=&TO,LIKE=&FROM 00060000
// PEND 00070000
//******* COPY PDS 00080000
//CP EXEC PGM=IEBCOPY 00090000
//SYSIN DD * 00100000
COPY OUTDD=TMPPROF,INDD=SYSPROF 00110000
SELECT MEMBER=(ISPSPROF) 00120000
//SYSPRINT DD SYSOUT=* 00130000
//TMPPROF DD DISP=(NEW,CATLG),LIKE=TSU.RZ1.P0.A540769.PROF, 00140000
----+----1----+----2----+----3----+----4----+----5----+----6- 00150000
// DSNAME=A540769.TTT.PROF 00160000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920) 00170000
}¢--- A540769.WK.JCL(CPLIB) cre=2013-04-02 mod=2013-04-02-08.42.43 A540769 -----
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0 00040000
//CPDELETE EXEC PGM=IEFBR14 00050000
//SYSDE2 DD DISP=(MOD,DELETE),DSN=A540769.TMP.TMPNEW 00060000
//* multiple problemes 00070000
//* cannot move sysal2 to step cpLib 00080000
//* mod does not allow sharing, even if already exists| 00090000
//CPALLOC EXEC PGM=IEFBR14 00100000
//SYSAL2 DD DISP=(MOD,CATLG),DSN=A540769.TMP.TMPNEW, 00110000
// MGMTCLAS=COM#A069,DSNTYPE=LIBRARY, 00120000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO) ,BLKSIZE=27920) 00130000
//CPLIB EXEC PGM=IEBGENER 00140000
//SYSPRINT DD SYSOUT=* 00150000
//SYSUT1 DD DISP=SHR,DSN=A540769.WK.JCL(CPLIB) 00160000
//SYSUTX DD * 00170000
ein zeile 00180000
zwei 00190000
und dri$tens| 00200000
//SYSUT2 DD DISP=SHR,DSN=A540769.TMP.TMPNEW(CPLIBTST) 00210000
// 00220000
//INDD DD DISP=(NEW,CATLG),LIKE=TSU.RZ1.P0.A540769.PROF, 00230000
----+----1----+----2----+----3----+----4----+----5----+----6- 00240000
// DSNAME=A540769.TTT.PROF 00250000
//SYSIN DD * 00260000
COPY OUTDD=OUTDD,INDD=INDD 00270000
SELECT MEMBER=(CPLIBTST) 00280000
}¢--- A540769.WK.JCL(CPSHR) cre=2007-01-09 mod=2007-01-09-16.48.36 F540769 -----
//A540769X JOB (CP00,KE50),REGION=0M,MSGCLASS=T,TIME=1440 00010006
//*MAIN CLASS=LOG 00020001
//******* COPY PS 00030001
//CP PROC FROM=FROMMISSING,TO=TOMISSING 00040001
//CP EXEC PGM=IEBGENER 00050001
//SYSPRINT DD SYSOUT=* 00060001
//SYSUT1 DD DISP=SHR,DSN=&FROM 00070001
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=&TO,LIKE=&FROM, 00080001
// MGMTCLAS=NONSMS,DATACLAS=EYN08P,DSNTYPE=BASIC, 00090003
// VOL=SER=(SHR299,SHR212,SHR242,SHR210,SHR215, 00100005
// SHR216,SHR205,SHR215,SHR204,SHR200), 00110005
// SPACE=(CYL,(1000,1000)) 00120002
// PEND 00130001
//S1 EXEC PROC=CP, 00140001
// FROM=DSN.A540769.UPTB.VP02A1P.A023A.UNL, 00150006
// TO=DSN.A540769.UPTC.VP02A1P.A023A.UNL 00160006
}¢--- A540769.WK.JCL(CSM) cre=2007-11-12 mod=2008-03-31-18.05.09 F540769 -------
//A540769L JOB (CP00,KE50), 00010002
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=A540769 00030002
//*MAIN CLASS=LOG 00040000
//******* COPY PS 00050000
//CP EXEC PGM=IEBGENER 00060000
//SYSPRINT DD SYSOUT=* 00070000
//SYSUT1 DD DISP=SHR,DSN=A540769.WK.JCL(CSM), 00080002
// SUBSYS=(CSM,'SYSTEM=RZ8') 00090001
//SYSUT2 DD SYSOUT=* 00100000
//OUTDD DD SYSOUT=* 00110000
}¢--- A540769.WK.JCL(CSMADRDS) cre=2014-10-08 mod=2014-10-08-14.22.29 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
//**-------------------------------------------------------** 00050000
//** ABSPEICHERN IM AKTUELLEN-RZ ** 00060000
//**-------------------------------------------------------** 00070000
//DUMP EXEC PGM=ADRDSSU 00080000
//SYSPRINT DD SYSOUT=* 00090000
//SYSIN DD * 00100000
DUMP DATASET(INCLUDE( A540769.TSTDUMP.REXX )) - 00110000
ALLD(*) COM - 00120000
CAN DYNAL WAIT(2,2) OUTDD(OUTDUMP) 00130000
//OUTDUMP DD DSN=&&OUTDUMP,SPACE=(CYL,(4000,1000)), 00140000
// DISP=(,PASS) 00150000
//**-------------------------------------------------------** 00160000
//** ZURUECKLADEN IM ZIEL-RZ ** 00170000
//**-------------------------------------------------------** 00180000
//RESTORE EXEC PGM=CSMUTIL,PARM='CSM,ADRDSSU' 00190000
//SYSUT1 DD DSN=&&OUTDUMP,DISP=(OLD,DELETE) 00200000
//RMTUT1 DD DSN=&&DUMP,SPACE=(CYL,(4000,1000)), 00210000
// SUBSYS=(CSM,'SYSTEM=RR2'),BLKSIZE=32760, 00220000
// DISP=(,DELETE),RECFM=U 00230000
//SYSIN DD * 00240000
RESTORE DATASET(INCLUDE(**)) - 00250000
INDDNAME(RMTUT1) CATALOG REPLACE 00260000
}¢--- A540769.WK.JCL(CSMADRD2) cre=2014-10-08 mod=2014-10-08-14.27.07 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
//**-------------------------------------------------------** 00050000
//** ABSPEICHERN IM AKTUELLEN-RZ ** 00060000
//**-------------------------------------------------------** 00070000
//DUMP EXEC PGM=ADRDSSU 00080000
//SYSPRINT DD SYSOUT=* 00090000
//SYSIN DD * 00100000
DUMP DATASET(INCLUDE( A540769.TSTDUMP.REXX )) - 00110000
ALLD(*) COM - 00120000
CAN DYNAL WAIT(2,2) OUTDD(OUTDUMP) 00130000
//OUTDUMP DD DSN=A540769.TSTDUMQ.DUMP, 00140000
// SPACE=(CYL,(4000,1000)), 00141000
// DISP=(,CATLG) 00150000
//**-------------------------------------------------------** 00160000
//** ZURUECKLADEN IM ZIEL-RZ ** 00170000
//**-------------------------------------------------------** 00180000
//RESTORE EXEC PGM=CSMUTIL,PARM='CSM,ADRDSSU' 00190000
//SYSUT1 DD DSN=*.DUMP.OUTDUMP, 00200000
// DISP=OLD 00201000
//RMTUT1 DD DSN=&&DUMP,SPACE=(CYL,(4000,1000)), 00210000
// SUBSYS=(CSM,'SYSTEM=RR2'),BLKSIZE=32760, 00220000
// DISP=(,DELETE),RECFM=U 00230000
//SYSIN DD * 00240000
RESTORE DATASET(INCLUDE(**)) - 00250000
INDDNAME(RMTUT1) CATALOG REPLACE 00260000
}¢--- A540769.WK.JCL(CSMADRD3) cre=2014-10-08 mod=2014-10-08-14.39.57 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
//**-------------------------------------------------------** 00041000
//** ZURUECKLADEN IM ZIEL-RZ ** 00042000
//**-------------------------------------------------------** 00043000
//RESTORE EXEC PGM=CSMUTIL,PARM='CSM,ADRDSSU' 00044000
//SYSUT1 DD DSN=A540769.SN01067.DUMP, 00045000
// SUBSYS=(CSM,'SYSTEM=RQ2'), 00045100
// DISP=OLD 00046000
//RMTUT1 DD DSN=&&DUMP,A540769.SN01067.DUMPRMT, 00047000
// SPACE=(CYL,(4000,1000)), 00047100
// SUBSYS=(CSM,'SYSTEM=RR2'),BLKSIZE=32760, 00048000
// DISP=(NEW,CATLG),RECFM=U 00049000
//SYSIN DD * 00049100
RESTORE DATASET(INCLUDE(**)) - 00049200
INDDNAME(RMTUT1) CATALOG REPLACE 00049300
// 00049400
//**-------------------------------------------------------** 00050000
//** ABSPEICHERN IM AKTUELLEN-RZ ** 00060000
//**-------------------------------------------------------** 00070000
//?UMP EXEC PGM=ADRDSSU 00080000
//SYSPRINT DD SYSOUT=* 00090000
//SYSIN DD * 00100000
DUMP DATASET(INCLUDE( DSN.RDBOF.SN010676.SN01A1P.A202A.AR00000 )) - 00110000
ALLD(*) COM - 00120000
CAN DYNAL WAIT(2,2) OUTDD(OUTDUMP) 00130000
//OUTDUMP DD DSN=A540769.SN01067.DUMP, 00140000
// SPACE=(CYL,(4000,1000)), 00150000
// DISP=(,CATLG),DSNTYPE=LARGE 00160000
// 00170000
}¢--- A540769.WK.JCL(CSMASQL) cre=2012-11-09 mod=2012-11-09-15.13.59 A540769 ---
//A540769R JOB (PD00,KE50,,SP00000000),
// 'FULLCOPY',
// MSGCLASS=T,TIME=1440,LINES=100000
//*MAIN CLASS=LOG0
//P04 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DP4G)
BIND PLAN(CSMASQL) +
MEMBER(CSMASQL) +
LIBRARY('A540769.WK.DBRM') +
ACTION(REPLACE) +
VALID(RUN) +
ISOLATION(CS) +
RELEASE(COMMIT) +
EXPLAIN(NO) +
RETAIN
END
}¢--- A540769.WK.JCL(CSMCOPQ) cre=2014-10-08 mod=2014-10-08-13.28.41 A540769 ---
//A540769D JOB (CP00,KE50),'DB2 CSM COPY',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='WSH3'
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//OUT DD SYSOUT=*
//SYSTSIN DD DUMMY
//WSH DD *
$#@
$*(
DSN.RDBOF.SN010676.SN01A1P.A100A.APUN
DSN.RDBOF.SN010676.SN01A1P.A100A.AR00000
DSN.RDBOF.SN010676.SN01A1P.A100H.APUN
DSN.RDBOF.SN010676.SN01A1P.A100H.AR00000
DSN.RDBOF.SN010676.SN01A1P.A167A.APUN
DSN.RDBOF.SN010676.SN01A1P.A167A.AR00000
DSN.RDBOF.SN010676.SN01A1P.A202A.APUN
DSN.RDBOF.SN010676.SN01A1P.A202A.AR00000
$*)
$<#¢
DSN.RDBOF.SN010676.SN01A1P.A314A.APUN
DSN.RDBOF.SN010676.SN01A1P.A314A.AR00000
DSN.RDBOF.SN010676.SN01A1P.A314H.APUN
DSN.RDBOF.SN010676.SN01A1P.A314H.AR00000
$!
$@for fi $@¢
nm = strip($fi)
nn = overlay('XX', nm, 11)
say nm '==>' nn
call csmCopy 'RQ2/'nm, 'RR2/'nn
$!
$#end
}¢--- A540769.WK.JCL(CSMCOPR) cre=2014-10-08 mod=2014-10-08-14.07.03 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//*--------------- copy vbs -------------------
//COPY EXEC PGM=CSMUTIL,PARM='CSM,COPYREPLACE'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=A540769.TMPOPTHI.RZ4.DP4G.QUERY.UNL,
// DISP=SHR,SUBSYS=(CSM,'SYSTEM=RZ4')
//SYSUT2 DD DSN=A540769.TMPOPTHI.RZ4.DP4G.QUERY.UNLC1,
// DISP=(NEW,CATLG),MGMTCLAS=COM#E005,DATACLAS=NULL30,
// DCB=(RECFM=VBS,DSORG=PS,BLKSIZE=27998,LRECL=X),
// SPACE=(CYL,(1,50)),
// SUBSYS=(CSM,'SYSTEM=RR2')
}¢--- A540769.WK.JCL(CSMCOPUT) cre=2008-06-12 mod=2008-06-12-15.25.13 F540769 ---
//A540769L JOB (CP00,KE50), 00010002
// MSGCLASS=E,TIME=1440, 00020000
// NOTIFY=A540769 00030002
//*MAIN CLASS=LOG 00040000
//******* COPY PS 00050000
//CP EXEC PGM=CSMUTIL,PARM='CSM,COPYREPLACE' 00060001
//SYSPRINT DD SYSOUT=* 00070000
//SYSUT1 DD DISP=SHR,DSN=DBOF.DA540769.A242A.PNOPART.D080605.RCC, 00080002
// SUBSYS=(CSM,'SYSTEM=RZ2') 00090001
//SYSUT2 DD DISP=SHR,DSN=DBOF.DA540769.A242A.PNOPART.D080605.RCC, 00100002
// SUBSYS=(CSM,'SYSTEM=RR2') 00110001
}¢--- A540769.WK.JCL(CSMCOPY) cre=2011-03-30 mod=2016-08-18-09.39.40 A540769 ---
//A540769V JOB (CP00,KE50),'DB2 ADMIN', 00010002
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL, 00020004
// MSGCLASS=T,NOTIFY=&SYSUID 00021002
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='WST'
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//OUT DD SYSOUT=*
//SYSTSIN DD DUMMY
//WSH DD *
$#@
$<=¢ $*(
DVBP.XBFBE002.SFBE013H.P00004.D160817.PUN
DVBP.XBFBE002.SFBE013H.P00004.D160817.REC
DVBP.XBFBE002.SFBE0131.P00004.D160817.PUN
DVBP.XBFBE002.SFBE0131.P00004.D160817.REC
DVBP.XBFBE002.SFBE0132.P00004.D160817.PUN
DVBP.XBFBE002.SFBE0132.P00004.D160817.REC
DVBP.XBFBE002.SFBE0133.P00004.D160817.PUN $*)
DVBP.XBFBE002.SFBE0133.P00004.D160817.REC
DVBP.XBFBE002.SFBE0134.P00004.D160817.PUN
DVBP.XBFBE002.SFBE0134.P00004.D160817.REC
$!
$for fi $@¢
fi = strip($fi)
say fi
call csmCopy 'rz2/'fi, 'rr2/'fi
$!
$*(
$<.filelist('A540769.WK', 'r')
$@for fi $@¢
nm = strip($fi)
cx = pos('.', nm)
rn = left(nm, cx)'MOVEDRZ4'substr(nm,cx)
say nm '->' rn
rl = listDsi("'"nm"' recall")
if rL <> 0 then
say 'listDsi' nm 'rc' rL 'reason' sysReason,
sysMsgLvl1 sysMsgLvl2
say csmCopy 'RZ1/'nm, 'RZ4/'nm
say adrTso "rename '"nm"' '"rn"'"
$!
$*)
$#end
}¢--- A540769.WK.JCL(CSMCOPY2) cre=2008-08-08 mod=2013-01-08-16.10.35 A540769 ---
$#@ 00010006
call csmCopy 'RZ1/DSN.DBX.CAGLBCHG', 'RZ8/A540769.TMP.CAGC' 00020006
$#end 00030006
$<#/dsn/ 00040004
A540769.RECUN.DGDB9998.A600A190.P0000 00050005
A540769.RECUN.DGDB9998.A600A199.P0000 00060005
$/dsn/ $@for v $@¢ 00070004
pre = strip($v) 00080005
say pre 00090005
suf = '.UN2' 00100005
do i=1 to 8 00110005
dsn = pre || i || suf 00120005
call csmCopy 'RZ1/'dsn, 'RR2/'dsn 00130005
end 00140005
$! 00150004
$#out 20130108 16:07:03 00160006
$#out 20130108 15:58:29 00170006
$#out 20130108 15:57:42 00180006
$#out 20130108 15:57:16 00190006
*** run error *** 00200006
adrTso rc 12 for exec 'CSM.RZ1.P0.EXEC(CSRXUTIL)' 'COPY */''DSN.DBX.CAGL00210006
$#out 20091103 16:48:37 00220005
$#out 20091103 16:48:56 00230005
$#out 20091103 16:43:15 00240005
$#out 20091103 16:42:51 00250005
$#out 20091103 16:36:40 00260004
$#out 00270004
$***out 20080808 10:46:01 00280001
$***out 20080808 09:17:18 00290000
$***out 20080808 09:16:54 00300000
$***out 20080808 09:16:07 00310000
$***out 20080808 09:15:36 00320000
$***out 00330000
}¢--- A540769.WK.JCL(CSMCOPY3) cre=2009-11-03 mod=2011-01-28-16.06.35 A540769 ---
$#@
$>.fEdit()
$@do jx=2 to 6 $@=¢
//A54076F$jx JOB (CP00,KE50),TIME=9999
//*MAIN CLASS=LOG
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='WSH'
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//OUT DD SYSOUT=*
//SYSTSIN DD DUMMY
//WSH DD *
$$ $'$#@'
$$ $'$=jx='$jx
$@#¢
say 'jx' $jx
say fileList 'SMF.RZ1.P0.DB2.INTVL.S1'$jx'A.D11025' 'r'
$@$.{fileList('SMF.RZ1.P0.DB2.INTVL.S1'$-$jx'A.D11025' ,'r')}
$| $@for v $@¢
dsn = strip($v)
say dsn
call csmCopy 'RZ1/'dsn, 'RZ0/'dsn
$!
$!
$!
$#out 20110128 15:56:48
$#out 20110128 15:55:06
$#out 20110128 15:53:05
$#out 20110128 15:49:11
$#out 20110128 15:47:55
}¢--- A540769.WK.JCL(CSMCOPY4) cre=2013-01-08 mod=2016-08-19-10.17.34 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 ADMIN', 00001001
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL, 00002001
// MSGCLASS=T,NOTIFY=&SYSUID 00003001
//******* COPY PS 00050000
//CP EXEC PGM=CSMAPPC, 00060000
// PARM='START PGM(CSMAUTIL) PARM(''INDD(I)'')' 00070000
//SYSPRINT DD SYSOUT=* 00080000
//I DD * 00090000
COPY RZ2/DVBP.XBFBE002.SFBE0133.P00004.D160817.REC - 00100001
TO RR2/DVBP.XBFBE002.SFBE0133.P00004.D160817.REC 00110001
}¢--- A540769.WK.JCL(CSMCOPY5) cre=2016-08-19 mod=2016-08-19-10.26.18 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2,CLASS=M1
//CP EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,SUBSYS=(CSM,'SYSTEM=RZ2'),
// DSN=DVBP.XBFBE002.SFBE0133.P00004.D160817.REC
//SYSUT2 DD DISP=SHR,SUBSYS=(CSM,'SYSTEM=RR2'),
// DSN=DVBP.XBFBE002.SFBE0133.P00004.D160817.REC
}¢--- A540769.WK.JCL(CSMCOVBS) cre=2014-08-07 mod=2014-08-07-13.03.16 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//*--------------- copy vbs -------------------
//COPY EXEC PGM=CSMUTIL,PARM='CSM,COPYREPLACE'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=A540769.TMPOPTHI.RZ4.DP4G.QUERY.UNL,
// DISP=SHR,SUBSYS=(CSM,'SYSTEM=RZ4')
//SYSUT2 DD DSN=A540769.TMPOPTHI.RZ4.DP4G.QUERY.UNLC1,
// DISP=(NEW,CATLG),MGMTCLAS=COM#E005,DATACLAS=NULL30,
// DCB=(RECFM=VBS,DSORG=PS,BLKSIZE=27998,LRECL=X),
// SPACE=(CYL,(1,50)),
// SUBSYS=(CSM,'SYSTEM=RR2')
}¢--- A540769.WK.JCL(CSMREPLY) cre=2014-09-01 mod=2014-09-01-14.05.49 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00090000
// MSGCLASS=T,TIME=1440, 00100000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00110000
//S1 EXEC PGM=IEFBR14 00120000
//EINS DD DISP=(MOD,DELETE), 00130000
// DSN=A540769.GIBT.ES.NICHT 00140000
//GLEICH DD DISP=(MOD,DELETE),SUBSYS=(CSM,'SYSTEM=RZ4'), 00150001
// DSN=A540769.GIBT.ES.AUCH.NICHT 00160000
}¢--- A540769.WK.JCL(CSMREXX) cre=2013-05-17 mod=2014-12-03-16.55.38 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//* rexx in anderen RZ ausfuehren
//* oder beliebige tso commands
//* mit eigener exec library
// JCLLIB ORDER=(SM.RZ4.P0.CSM.COMMON.PROC)
//IKJEFT01 EXEC RM@IKJ01,RSYS=RZZ
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//*PRINTOUT DD DISP=(NEW,CATLG),DSN=A540769.TMP.TEXTPRT
//* achtung printOut geht nicht auf Member|
//TSIN DD *
%exargs wie geht es im rzz?
listc
%exargs wie geht es im rzz -
usw. -
zum schluss
//
//* man kann input/output files kopieren
//* die DD Name müssen richtig alloziert
//* sein (lokal bzw. remote)
//DDCPARM DD *
I: DDIN TO: RMTIN
O: RMTOUT TO: DDOUT
}¢--- A540769.WK.JCL(CSMSUB) cre=2011-03-30 mod=2011-03-30-07.32.18 A540769 ----
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG 00040000
//CP EXEC PGM=IEBGENER 00050000
//SYSPRINT DD SYSOUT=* 00060000
//SYSUT2 DD SUBSYS=(CSM,'SYSTEM=RZ2,SYSOUT=(A,INTRDR)') 00070000
//SYSUT1 DD *,DLM='e1' 00080000
//A540769X JOB (CP00,KE50),'DB2 REO', 00090000
// MSGCLASS=T,TIME=1440, 00100000
// NOTIFY=&SYSUID,REGION=0M 00110000
//*MAIN CLASS=LOG 00120000
//S1 EXEC PGM=IEFBR14 00130000
e1 00140000
//* komm schon 00150000
}¢--- A540769.WK.JCL(CSQLOAD) cre=2014-09-07 mod=2014-09-07-12.25.17 A540769 ---
//A540769L JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBOF,A540769L.LOAD' 00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE EWMZ5O4R
DSN('DP2G.CSQDP2G.TSADMIN.P00000.D140907.REC')
DISP(OLD,KEEP,KEEP)
?OAD DATA INDDN EWMZ5O4R LOG NO RESUME YES
EBCDIC CCSID(00500,00000,00000)
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE
"CSQ".
"ADMIN_B_QMGR"
WHEN(00001:00002) = X'0012'
NUMRECS 5
( "QMGRNAME"
POSITION( 00003:00050) CHAR(00048)
, "QSGNAME"
POSITION( 00051:00054) CHAR(00004)
, "QMGRNUM"
POSITION( 00056:00057) SMALLINT
NULLIF(00055)=X'FF'
, "ACTSTATE"
POSITION( 00059:00059) CHAR(00001)
NULLIF(00058)=X'FF'
, "DESCR"
POSITION( 00061:00124) CHAR(00064)
NULLIF(00060)=X'FF'
, "PLATFORM"
POSITION( 00126:00135) CHAR(00010)
NULLIF(00125)=X'FF'
, "IGQAUT"
POSITION( 00137:00146) CHAR(00010)
NULLIF(00136)=X'FF'
, "CPILEVEL"
POSITION( 00148:00151) INTEGER
NULLIF(00147)=X'FF'
, "CMDLEVEL"
POSITION( 00153:00156) INTEGER
NULLIF(00152)=X'FF'
, "CCSID"
POSITION( 00158:00161) INTEGER
NULLIF(00157)=X'FF'
, "MAXPRTY"
POSITION( 00163:00166) INTEGER
NULLIF(00162)=X'FF'
, "MAXMSGL"
POSITION( 00168:00171) INTEGER
NULLIF(00167)=X'FF'
, "SYNCPT"
POSITION( 00173:00182) CHAR(00010)
NULLIF(00172)=X'FF'
, "COMMANDQ"
POSITION( 00184:00231) CHAR(00048)
NULLIF(00183)=X'FF'
, "DEADQ"
POSITION( 00233:00280) CHAR(00048)
NULLIF(00232)=X'FF'
, "TRIGINT"
POSITION( 00282:00285) INTEGER
NULLIF(00281)=X'FF'
, "MAXHANDS"
POSITION( 00287:00290) INTEGER
NULLIF(00286)=X'FF'
, "AUTHOREV"
POSITION( 00292:00301) CHAR(00010)
NULLIF(00291)=X'FF'
, "INHIBTEV"
POSITION( 00303:00312) CHAR(00010)
NULLIF(00302)=X'FF'
, "LOCALEV"
POSITION( 00314:00323) CHAR(00010)
NULLIF(00313)=X'FF'
, "REMOTEEV"
POSITION( 00325:00334) CHAR(00010)
NULLIF(00324)=X'FF'
, "STRSTPEV"
POSITION( 00336:00345) CHAR(00010)
NULLIF(00335)=X'FF'
, "PERFMEV"
POSITION( 00347:00356) CHAR(00010)
NULLIF(00346)=X'FF'
, "CHAD"
POSITION( 00358:00367) CHAR(00010)
NULLIF(00357)=X'FF'
, "CHADEXIT"
POSITION( 00369:00376) CHAR(00008)
NULLIF(00368)=X'FF'
, "CLWLDATA"
POSITION( 00378:00409) CHAR(00032)
NULLIF(00377)=X'FF'
, "CLWLEXIT"
POSITION( 00411:00418) CHAR(00008)
NULLIF(00410)=X'FF'
, "REPOS"
POSITION( 00420:00467) CHAR(00048)
NULLIF(00419)=X'FF'
, "REPOSNL"
POSITION( 00469:00516) CHAR(00048)
NULLIF(00468)=X'FF'
, "QMID"
POSITION( 00518:00565) CHAR(00048)
NULLIF(00517)=X'FF'
, "DEFXMITQ"
POSITION( 00567:00614) CHAR(00048)
NULLIF(00566)=X'FF'
, "VERSIONCOUNT"
POSITION( 00616:00619) INTEGER
NULLIF(00615)=X'FF'
, "MVERSIONL"
POSITION( 00621:00624) INTEGER
NULLIF(00620)=X'FF'
, "MVERSIONH"
POSITION( 00626:00629) INTEGER
NULLIF(00625)=X'FF'
, "QSGCREATE"
POSITION( 00631:00638) CHAR(00008)
NULLIF(00630)=X'FF'
, "UPDT_QMGR"
POSITION( 00640:00687) CHAR(00048)
NULLIF(00639)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 00689:00690) SMALLINT
NULLIF(00688)=X'FF'
, "UPDT_STAMP"
POSITION( 00692:00699) CHAR(00008)
NULLIF(00691)=X'FF'
, "CREATE_QMGR"
POSITION( 00701:00748) CHAR(00048)
NULLIF(00700)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 00750:00751) SMALLINT
NULLIF(00749)=X'FF'
, "CREATE_STAMP"
POSITION( 00753:00760) CHAR(00008)
NULLIF(00752)=X'FF'
, "VSOBJECT"
POSITION( 00762:03323) VARCHAR
NULLIF(00761)=X'FF'
, "BSDS_NAME1"
POSITION( 03325:03368) CHAR(00044)
NULLIF(03324)=X'FF'
, "BSDS_NAME2"
POSITION( 03370:03413) CHAR(00044)
NULLIF(03369)=X'FF'
, "BSDS_STATUS1"
POSITION( 03415:03415) CHAR(00001)
NULLIF(03414)=X'FF'
, "BSDS_STATUS2"
POSITION( 03417:03417) CHAR(00001)
NULLIF(03416)=X'FF'
, "CONFIGEV"
POSITION( 03419:03428) CHAR(00010)
NULLIF(03418)=X'FF'
, "MAXUMSGS"
POSITION( 03430:03433) INTEGER
NULLIF(03429)=X'FF'
, "SSLTASKS"
POSITION( 03435:03438) INTEGER
NULLIF(03434)=X'FF'
, "SSLCRLNL"
POSITION( 03440:03487) CHAR(00048)
NULLIF(03439)=X'FF'
, "SSLKEYR"
POSITION( 03489:03746) VARCHAR
NULLIF(03488)=X'FF'
, "EXPRYINT"
POSITION( 03748:03751) INTEGER
NULLIF(03747)=X'FF'
)
INTO TABLE
"CSQ".
"ADMIN_B_QSG"
WHEN(00001:00002) = X'0013'
NUMRECS 1
( "QSGNAME"
POSITION( 00003:00006) CHAR(00004)
, "ARRAY_QMGR"
POSITION( 00008:00039) CHAR(00032)
NULLIF(00007)=X'FF'
, "ARRAY_STRUC"
POSITION( 00041:00104) CHAR(00064)
NULLIF(00040)=X'FF'
, "PRODLVL"
POSITION( 00105:00107) CHAR(00003)
, "VERSIONCOUNT"
POSITION( 00109:00112) INTEGER
NULLIF(00108)=X'FF'
, "UPDT_QMGR"
POSITION( 00114:00161) CHAR(00048)
NULLIF(00113)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 00163:00164) SMALLINT
NULLIF(00162)=X'FF'
, "UPDT_STAMP"
POSITION( 00166:00173) CHAR(00008)
NULLIF(00165)=X'FF'
, "CREATE_QMGR"
POSITION( 00175:00222) CHAR(00048)
NULLIF(00174)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 00224:00225) SMALLINT
NULLIF(00223)=X'FF'
, "CREATE_STAMP"
POSITION( 00227:00234) CHAR(00008)
NULLIF(00226)=X'FF'
, "RECON_STAMP"
POSITION( 00236:00243) CHAR(00008)
NULLIF(00235)=X'FF'
, "RECON_QMGRNUM"
POSITION( 00245:00246) SMALLINT
NULLIF(00244)=X'FF'
)
INTO TABLE
"CSQ".
"ADMIN_B_STRBACKUP"
WHEN(00001:00002) = X'0016'
NUMRECS 13
( "STRUCNAME"
POSITION( 00003:00014) CHAR(00012)
, "QSGNAME"
POSITION( 00015:00018) CHAR(00004)
, "QMGRNAME"
POSITION( 00020:00067) CHAR(00048)
NULLIF(00019)=X'FF'
, "STRUCNUM"
POSITION( 00069:00070) SMALLINT
NULLIF(00068)=X'FF'
, "FAIL_STAMP"
POSITION( 00072:00079) CHAR(00008)
NULLIF(00071)=X'FF'
, "BSTART_RBA"
POSITION( 00081:00086) CHAR(00006)
NULLIF(00080)=X'FF'
, "BEND_RBA"
POSITION( 00088:00093) CHAR(00006)
NULLIF(00087)=X'FF'
, "BSTART_STAMP"
POSITION( 00095:00102) CHAR(00008)
NULLIF(00094)=X'FF'
, "BEND_STAMP"
POSITION( 00104:00111) CHAR(00008)
NULLIF(00103)=X'FF'
, "VERSIONCOUNT"
POSITION( 00113:00116) INTEGER
NULLIF(00112)=X'FF'
, "MVERSION"
POSITION( 00118:00121) INTEGER
NULLIF(00117)=X'FF'
, "UPDT_QMGR"
POSITION( 00123:00170) CHAR(00048)
NULLIF(00122)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 00172:00173) SMALLINT
NULLIF(00171)=X'FF'
, "UPDT_STAMP"
POSITION( 00175:00182) CHAR(00008)
NULLIF(00174)=X'FF'
, "CREATE_QMGR"
POSITION( 00184:00231) CHAR(00048)
NULLIF(00183)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 00233:00234) SMALLINT
NULLIF(00232)=X'FF'
, "CREATE_STAMP"
POSITION( 00236:00243) CHAR(00008)
NULLIF(00235)=X'FF'
, "STRUC_INTRST"
POSITION( 00245:00502) VARCHAR
NULLIF(00244)=X'FF'
)
INTO TABLE
"CSQ".
"ADMIN_B_STRUCTURE"
WHEN(00001:00002) = X'0017'
NUMRECS 15
( "STRUCNAME"
POSITION( 00003:00014) CHAR(00012)
, "QSGNAME"
POSITION( 00015:00018) CHAR(00004)
, "LH_ARRAY"
POSITION( 00020:00083) CHAR(00064)
NULLIF(00019)=X'FF'
, "STRUC_INTRST"
POSITION( 00085:00116) CHAR(00032)
NULLIF(00084)=X'FF'
, "STRUCNUM"
POSITION( 00118:00119) SMALLINT
NULLIF(00117)=X'FF'
, "PRODLVL"
POSITION( 00120:00122) CHAR(00003)
, "CFSTATUS"
POSITION( 00124:00124) CHAR(00001)
NULLIF(00123)=X'FF'
, "VERSIONCOUNT"
POSITION( 00126:00129) INTEGER
NULLIF(00125)=X'FF'
, "MVERSION"
POSITION( 00131:00134) INTEGER
NULLIF(00130)=X'FF'
, "UPDT_QMGR"
POSITION( 00136:00183) CHAR(00048)
NULLIF(00135)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 00185:00186) SMALLINT
NULLIF(00184)=X'FF'
, "UPDT_STAMP"
POSITION( 00188:00195) CHAR(00008)
NULLIF(00187)=X'FF'
, "CREATE_QMGR"
POSITION( 00197:00244) CHAR(00048)
NULLIF(00196)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 00246:00247) SMALLINT
NULLIF(00245)=X'FF'
, "CREATE_STAMP"
POSITION( 00249:00256) CHAR(00008)
NULLIF(00248)=X'FF'
, "RECOVER"
POSITION( 00258:00258) CHAR(00001)
NULLIF(00257)=X'FF'
, "DESCR"
POSITION( 00260:00323) CHAR(00064)
NULLIF(00259)=X'FF'
, "OFFLOAD"
POSITION( 00325:00325) CHAR(00001)
NULLIF(00324)=X'FF'
, "OFFLDUSE"
POSITION( 00327:00327) CHAR(00001)
NULLIF(00326)=X'FF'
, "OFFLD1TH"
POSITION( 00329:00332) INTEGER
NULLIF(00328)=X'FF'
, "OFFLD1SZ"
POSITION( 00334:00337) INTEGER
NULLIF(00333)=X'FF'
, "OFFLD2TH"
POSITION( 00339:00342) INTEGER
NULLIF(00338)=X'FF'
, "OFFLD2SZ"
POSITION( 00344:00347) INTEGER
NULLIF(00343)=X'FF'
, "OFFLD3TH"
POSITION( 00349:00352) INTEGER
NULLIF(00348)=X'FF'
, "OFFLD3SZ"
POSITION( 00354:00357) INTEGER
NULLIF(00353)=X'FF'
, "DSGROUP"
POSITION( 00359:00402) CHAR(00044)
NULLIF(00358)=X'FF'
, "DSPREFIX_LENGTH"
POSITION( 00404:00405) SMALLINT
NULLIF(00403)=X'FF'
, "DSBLOCK_POWER"
POSITION( 00407:00408) SMALLINT
NULLIF(00406)=X'FF'
, "DEFAULT_DSBUFS"
POSITION( 00410:00413) INTEGER
NULLIF(00409)=X'FF'
, "DEFAULT_DSEXPAND"
POSITION( 00415:00415) CHAR(00001)
NULLIF(00414)=X'FF'
, "DEFAULT_DSACCESS"
POSITION( 00417:00417) CHAR(00001)
NULLIF(00416)=X'FF'
, "QMGR_LIST"
POSITION( 00419:01444) VARCHAR
NULLIF(00418)=X'FF'
, "RECAUTO"
POSITION( 01446:01446) CHAR(00001)
NULLIF(01445)=X'FF'
, "CFCONLOS"
POSITION( 01448:01448) CHAR(00001)
NULLIF(01447)=X'FF'
)
INTO TABLE
"CSQ".
"EXTEND_B_QMGR"
WHEN(00001:00002) = X'0018'
NUMRECS 5
( "QMGRNAME"
POSITION( 00003:00050) CHAR(00048)
, "QSGNAME"
POSITION( 00051:00054) CHAR(00004)
, "ACCTQ"
POSITION( 00056:00065) CHAR(00010)
NULLIF(00055)=X'FF'
, "MONQ"
POSITION( 00067:00076) CHAR(00010)
NULLIF(00066)=X'FF'
, "CHLEV"
POSITION( 00078:00087) CHAR(00010)
NULLIF(00077)=X'FF'
, "BRIDGEEV"
POSITION( 00089:00098) CHAR(00010)
NULLIF(00088)=X'FF'
, "SSLEV"
POSITION( 00100:00109) CHAR(00010)
NULLIF(00099)=X'FF'
, "CMDEV"
POSITION( 00111:00120) CHAR(00010)
NULLIF(00110)=X'FF'
, "IPADDRV"
POSITION( 00122:00131) CHAR(00010)
NULLIF(00121)=X'FF'
, "ACTCHL"
POSITION( 00133:00136) INTEGER
NULLIF(00132)=X'FF'
, "ADOPTCHK"
POSITION( 00138:00147) CHAR(00010)
NULLIF(00137)=X'FF'
, "ADOPTMCA"
POSITION( 00149:00158) CHAR(00010)
NULLIF(00148)=X'FF'
, "CHIADAPS"
POSITION( 00160:00163) INTEGER
NULLIF(00159)=X'FF'
, "CHIDISPS"
POSITION( 00165:00168) INTEGER
NULLIF(00164)=X'FF'
, "CHISERVP"
POSITION( 00170:00201) CHAR(00032)
NULLIF(00169)=X'FF'
, "DNSGROUP"
POSITION( 00203:00220) CHAR(00018)
NULLIF(00202)=X'FF'
, "DNSWLM"
POSITION( 00222:00231) CHAR(00010)
NULLIF(00221)=X'FF'
, "LSTRTMR"
POSITION( 00233:00234) SMALLINT
NULLIF(00232)=X'FF'
, "LUGROUP"
POSITION( 00236:00243) CHAR(00008)
NULLIF(00235)=X'FF'
, "LUNAME"
POSITION( 00245:00252) CHAR(00008)
NULLIF(00244)=X'FF'
, "LU62ARM"
POSITION( 00254:00255) CHAR(00002)
NULLIF(00253)=X'FF'
, "LU62CHL"
POSITION( 00257:00260) INTEGER
NULLIF(00256)=X'FF'
, "MAXCHL"
POSITION( 00262:00265) INTEGER
NULLIF(00261)=X'FF'
, "OPORTMIN"
POSITION( 00267:00270) INTEGER
NULLIF(00266)=X'FF'
, "OPORTMAX"
POSITION( 00272:00275) INTEGER
NULLIF(00271)=X'FF'
, "RCVTIME"
POSITION( 00277:00280) INTEGER
NULLIF(00276)=X'FF'
, "RCVTTYPE"
POSITION( 00282:00291) CHAR(00010)
NULLIF(00281)=X'FF'
, "RCVTMIN"
POSITION( 00293:00296) INTEGER
NULLIF(00292)=X'FF'
, "TCPCHL"
POSITION( 00298:00301) INTEGER
NULLIF(00297)=X'FF'
, "TCPKEEP"
POSITION( 00303:00312) CHAR(00010)
NULLIF(00302)=X'FF'
, "TCPNAME"
POSITION( 00314:00321) CHAR(00008)
NULLIF(00313)=X'FF'
, "TCPSTACK"
POSITION( 00323:00332) CHAR(00010)
NULLIF(00322)=X'FF'
, "TRAXSTR"
POSITION( 00334:00343) CHAR(00010)
NULLIF(00333)=X'FF'
, "TRAXTBL"
POSITION( 00345:00348) INTEGER
NULLIF(00344)=X'FF'
, "SSLRKEYC"
POSITION( 00350:00353) INTEGER
NULLIF(00349)=X'FF'
, "SQQMNAME"
POSITION( 00355:00364) CHAR(00010)
NULLIF(00354)=X'FF'
, "MONACLS"
POSITION( 00366:00375) CHAR(00010)
NULLIF(00365)=X'FF'
, "MONCHL"
POSITION( 00377:00386) CHAR(00010)
NULLIF(00376)=X'FF'
, "CLWLMRUC"
POSITION( 00388:00391) INTEGER
NULLIF(00387)=X'FF'
, "CLWLUSEQ"
POSITION( 00393:00402) CHAR(00010)
NULLIF(00392)=X'FF'
, "ROUTEREC"
POSITION( 00404:00413) CHAR(00010)
NULLIF(00403)=X'FF'
, "ACTIVREC"
POSITION( 00415:00424) CHAR(00010)
NULLIF(00414)=X'FF'
)
INTO TABLE
"CSQ".
"OBJ_B_AUTHINFO"
WHEN(00001:00002) = X'0019'
NUMRECS 0
( "AUTHINFO"
POSITION( 00003:00050) CHAR(00048)
, "QSGNAME"
POSITION( 00051:00054) CHAR(00004)
, "AUTHTYPE"
POSITION( 00055:00064) CHAR(00010)
, "DESCR"
POSITION( 00066:00129) CHAR(00064)
NULLIF(00065)=X'FF'
, "QSGDISP"
POSITION( 00131:00140) CHAR(00010)
NULLIF(00130)=X'FF'
, "MVERSION"
POSITION( 00142:00145) INTEGER
NULLIF(00141)=X'FF'
, "LDAPPWD"
POSITION( 00147:00178) CHAR(00032)
NULLIF(00146)=X'FF'
, "LDAPUSER"
POSITION( 00180:00437) VARCHAR
NULLIF(00179)=X'FF'
, "VERSIONCOUNT"
POSITION( 00439:00442) INTEGER
NULLIF(00438)=X'FF'
, "UPDT_QMGR"
POSITION( 00444:00491) CHAR(00048)
NULLIF(00443)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 00493:00494) SMALLINT
NULLIF(00492)=X'FF'
, "UPDT_STAMP"
POSITION( 00496:00503) CHAR(00008)
NULLIF(00495)=X'FF'
, "CREATE_QMGR"
POSITION( 00505:00552) CHAR(00048)
NULLIF(00504)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 00554:00555) SMALLINT
NULLIF(00553)=X'FF'
, "CREATE_STAMP"
POSITION( 00557:00564) CHAR(00008)
NULLIF(00556)=X'FF'
, "CONNAME"
POSITION( 00566:00831) VARCHAR
NULLIF(00565)=X'FF'
, "VSOBJECT"
POSITION( 00833:03394) VARCHAR
NULLIF(00832)=X'FF'
)
INTO TABLE
"CSQ".
"OBJ_B_PROCESS"
WHEN(00001:00002) = X'001C'
NUMRECS 0
( "PROCNAME"
POSITION( 00003:00050) CHAR(00048)
, "QSGNAME"
POSITION( 00051:00054) CHAR(00004)
, "DESCR"
POSITION( 00055:00118) CHAR(00064)
, "QSGDISP"
POSITION( 00120:00129) CHAR(00010)
NULLIF(00119)=X'FF'
, "APPLTYPE"
POSITION( 00131:00134) CHAR(00004)
NULLIF(00130)=X'FF'
, "APPLICID"
POSITION( 00136:00393) VARCHAR
NULLIF(00135)=X'FF'
, "ENVRDATA"
POSITION( 00395:00522) CHAR(00128)
NULLIF(00394)=X'FF'
, "USERDATA"
POSITION( 00524:00651) CHAR(00128)
NULLIF(00523)=X'FF'
, "VERSIONCOUNT"
POSITION( 00653:00656) INTEGER
NULLIF(00652)=X'FF'
, "UPDT_QMGR"
POSITION( 00658:00705) CHAR(00048)
NULLIF(00657)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 00707:00708) SMALLINT
NULLIF(00706)=X'FF'
, "UPDT_STAMP"
POSITION( 00710:00717) CHAR(00008)
NULLIF(00709)=X'FF'
, "CREATE_QMGR"
POSITION( 00719:00766) CHAR(00048)
NULLIF(00718)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 00768:00769) SMALLINT
NULLIF(00767)=X'FF'
, "CREATE_STAMP"
POSITION( 00771:00778) CHAR(00008)
NULLIF(00770)=X'FF'
, "VSOBJECT"
POSITION( 00780:03341) VARCHAR
NULLIF(00779)=X'FF'
)
INTO TABLE
"CSQ".
"OBJ_B_QUEUE"
WHEN(00001:00002) = X'001D'
NUMRECS 5721
( "QNAME"
POSITION( 00003:00050) CHAR(00048)
, "QSGNAME"
POSITION( 00051:00054) CHAR(00004)
, "QTYPE"
POSITION( 00056:00063) CHAR(00008)
NULLIF(00055)=X'FF'
, "CFCACHE"
POSITION( 00065:00065) CHAR(00001)
NULLIF(00064)=X'FF'
, "DELCOMMIT"
POSITION( 00067:00067) CHAR(00001)
NULLIF(00066)=X'FF'
, "CLUSTER"
POSITION( 00069:00116) CHAR(00048)
NULLIF(00068)=X'FF'
, "CLUSNL"
POSITION( 00118:00165) CHAR(00048)
NULLIF(00117)=X'FF'
, "DEFBIND"
POSITION( 00167:00176) CHAR(00010)
NULLIF(00166)=X'FF'
, "DEFPRTY"
POSITION( 00178:00181) INTEGER
NULLIF(00177)=X'FF'
, "DEFPSIST"
POSITION( 00183:00192) CHAR(00010)
NULLIF(00182)=X'FF'
, "QSGDISP"
POSITION( 00194:00203) CHAR(00010)
NULLIF(00193)=X'FF'
, "DEFTYPE"
POSITION( 00205:00214) CHAR(00010)
NULLIF(00204)=X'FF'
, "DESCR"
POSITION( 00216:00279) CHAR(00064)
NULLIF(00215)=X'FF'
, "PUT"
POSITION( 00281:00290) CHAR(00010)
NULLIF(00280)=X'FF'
, "BOQNAME"
POSITION( 00292:00339) CHAR(00048)
NULLIF(00291)=X'FF'
, "BOTHRESH"
POSITION( 00341:00344) INTEGER
NULLIF(00340)=X'FF'
, "DEFSOPT"
POSITION( 00346:00355) CHAR(00010)
NULLIF(00345)=X'FF'
, "GET"
POSITION( 00357:00366) CHAR(00010)
NULLIF(00356)=X'FF'
, "HARDENBO"
POSITION( 00368:00377) CHAR(00010)
NULLIF(00367)=X'FF'
, "INDXTYPE"
POSITION( 00379:00388) CHAR(00010)
NULLIF(00378)=X'FF'
, "INITQ"
POSITION( 00390:00437) CHAR(00048)
NULLIF(00389)=X'FF'
, "LHNUMBER"
POSITION( 00439:00440) SMALLINT
NULLIF(00438)=X'FF'
, "MAXDEPTH"
POSITION( 00442:00445) INTEGER
NULLIF(00441)=X'FF'
, "MAXMSGL"
POSITION( 00447:00450) INTEGER
NULLIF(00446)=X'FF'
, "MSGDLVSQ"
POSITION( 00452:00461) CHAR(00010)
NULLIF(00451)=X'FF'
, "PROCESS"
POSITION( 00463:00510) CHAR(00048)
NULLIF(00462)=X'FF'
, "QDEPTHHI"
POSITION( 00512:00515) INTEGER
NULLIF(00511)=X'FF'
, "QDEPTHLO"
POSITION( 00517:00520) INTEGER
NULLIF(00516)=X'FF'
, "QDPHIEV"
POSITION( 00522:00531) CHAR(00010)
NULLIF(00521)=X'FF'
, "QDPLOEV"
POSITION( 00533:00542) CHAR(00010)
NULLIF(00532)=X'FF'
, "QDPMAXEV"
POSITION( 00544:00553) CHAR(00010)
NULLIF(00543)=X'FF'
, "QSVCIEV"
POSITION( 00555:00564) CHAR(00010)
NULLIF(00554)=X'FF'
, "QSVCINT"
POSITION( 00566:00569) INTEGER
NULLIF(00565)=X'FF'
, "RETINTVL"
POSITION( 00571:00574) INTEGER
NULLIF(00570)=X'FF'
, "RNAME"
POSITION( 00576:00623) CHAR(00048)
NULLIF(00575)=X'FF'
, "RQMNAME"
POSITION( 00625:00672) CHAR(00048)
NULLIF(00624)=X'FF'
, "SHARE"
POSITION( 00674:00680) CHAR(00007)
NULLIF(00673)=X'FF'
, "STGCLASS"
POSITION( 00682:00689) CHAR(00008)
NULLIF(00681)=X'FF'
, "STRUCNAME"
POSITION( 00691:00702) CHAR(00012)
NULLIF(00690)=X'FF'
, "STRUCNUM"
POSITION( 00704:00705) SMALLINT
NULLIF(00703)=X'FF'
, "TARGQ"
POSITION( 00707:00754) CHAR(00048)
NULLIF(00706)=X'FF'
, "TRIGDATA"
POSITION( 00756:00819) CHAR(00064)
NULLIF(00755)=X'FF'
, "TRIGDPTH"
POSITION( 00821:00824) INTEGER
NULLIF(00820)=X'FF'
, "TRIGGER"
POSITION( 00826:00834) CHAR(00009)
NULLIF(00825)=X'FF'
, "TRIGMPRI"
POSITION( 00836:00839) INTEGER
NULLIF(00835)=X'FF'
, "TRIGTYPE"
POSITION( 00841:00850) CHAR(00010)
NULLIF(00840)=X'FF'
, "USAGE"
POSITION( 00852:00861) CHAR(00010)
NULLIF(00851)=X'FF'
, "XMITQ"
POSITION( 00863:00910) CHAR(00048)
NULLIF(00862)=X'FF'
, "VERSIONCOUNT"
POSITION( 00912:00915) INTEGER
NULLIF(00911)=X'FF'
, "MVERSION"
POSITION( 00917:00920) INTEGER
NULLIF(00916)=X'FF'
, "STRUCSTAMP"
POSITION( 00922:00929) CHAR(00008)
NULLIF(00921)=X'FF'
, "UPDT_QMGR"
POSITION( 00931:00978) CHAR(00048)
NULLIF(00930)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 00980:00981) SMALLINT
NULLIF(00979)=X'FF'
, "UPDT_STAMP"
POSITION( 00983:00990) CHAR(00008)
NULLIF(00982)=X'FF'
, "CREATE_QMGR"
POSITION( 00992:01039) CHAR(00048)
NULLIF(00991)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 01041:01042) SMALLINT
NULLIF(01040)=X'FF'
, "CREATE_STAMP"
POSITION( 01044:01051) CHAR(00008)
NULLIF(01043)=X'FF'
, "VSOBJECT"
POSITION( 01053:03614) VARCHAR
NULLIF(01052)=X'FF'
, "ACCTQ"
POSITION( 03616:03625) CHAR(00010)
NULLIF(03615)=X'FF'
, "MONQ"
POSITION( 03627:03636) CHAR(00010)
NULLIF(03626)=X'FF'
, "CLWLRANK"
POSITION( 03638:03641) INTEGER
NULLIF(03637)=X'FF'
, "CLWLPRTY"
POSITION( 03643:03646) INTEGER
NULLIF(03642)=X'FF'
, "CLWLUSEQ"
POSITION( 03648:03657) CHAR(00010)
NULLIF(03647)=X'FF'
, "NPMCLASS"
POSITION( 03659:03668) CHAR(00010)
NULLIF(03658)=X'FF'
)
INTO TABLE
"CSQ".
"OBJ_B_STGCLASS"
WHEN(00001:00002) = X'001E'
NUMRECS 0
( "STGCNAME"
POSITION( 00003:00050) CHAR(00048)
, "QSGNAME"
POSITION( 00051:00054) CHAR(00004)
, "DESCR"
POSITION( 00055:00118) CHAR(00064)
, "QSGDISP"
POSITION( 00120:00129) CHAR(00010)
NULLIF(00119)=X'FF'
, "PSID"
POSITION( 00131:00134) INTEGER
NULLIF(00130)=X'FF'
, "XCFGNAME"
POSITION( 00136:00143) CHAR(00008)
NULLIF(00135)=X'FF'
, "XCFMNAME"
POSITION( 00145:00160) CHAR(00016)
NULLIF(00144)=X'FF'
, "VERSIONCOUNT"
POSITION( 00162:00165) INTEGER
NULLIF(00161)=X'FF'
, "UPDT_QMGR"
POSITION( 00167:00214) CHAR(00048)
NULLIF(00166)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 00216:00217) SMALLINT
NULLIF(00215)=X'FF'
, "UPDT_STAMP"
POSITION( 00219:00226) CHAR(00008)
NULLIF(00218)=X'FF'
, "CREATE_QMGR"
POSITION( 00228:00275) CHAR(00048)
NULLIF(00227)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 00277:00278) SMALLINT
NULLIF(00276)=X'FF'
, "CREATE_STAMP"
POSITION( 00280:00287) CHAR(00008)
NULLIF(00279)=X'FF'
, "VSOBJECT"
POSITION( 00289:02850) VARCHAR
NULLIF(00288)=X'FF'
, "PASSTKTA"
POSITION( 02852:02859) CHAR(00008)
NULLIF(02851)=X'FF'
)
TEMPLATE EWM0FGE1
DSN('DP2G.CSQDP2G.TSADMNBL.P00000.D140907.REC')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN EWM0FGE1 LOG NO RESUME YES
EBCDIC CCSID(00500,00000,00000)
FORMAT SPANNED YES
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE
"CSQ".
"ADMIN_B_MESSAGES"
WHEN(00001:00002) = X'0011'
NUMRECS 476
IGNOREFIELDS YES
( "LEID"
POSITION( 00003:00014) CHAR(00012)
, "QSGNAME"
POSITION( 00015:00018) CHAR(00004)
, "SEGMENTNUM"
POSITION( 00019:00020) SMALLINT
, "DSN_ROWID"
POSITION( 00021) ROWID
, "DSN_NULL_IND_00005" POSITION( *) CHAR(1)
, "STRUCNUM"
POSITION( *) SMALLINT
NULLIF(DSN_NULL_IND_00005)=X'FF'
, "DSN_NULL_IND_00006" POSITION( *) CHAR(1)
, "LHNUMBER"
POSITION( *) SMALLINT
NULLIF(DSN_NULL_IND_00006)=X'FF'
, "DSN_NULL_IND_00007" POSITION( *) CHAR(1)
, "MVERSION"
POSITION( *) INTEGER
NULLIF(DSN_NULL_IND_00007)=X'FF'
, "DSN_NULL_IND_00008" POSITION( *) CHAR(1)
, "BASEPART"
POSITION( *) CHAR(00002)
NULLIF(DSN_NULL_IND_00008)=X'FF'
, "DSN_NULL_IND_00009" POSITION( *) CHAR(1)
, "DELCOMMIT"
POSITION( *) CHAR(00001)
NULLIF(DSN_NULL_IND_00009)=X'FF'
, "DSN_NULL_IND_00010" POSITION( *) CHAR(1)
, "RECON_STAMP"
POSITION( *) CHAR(00008)
NULLIF(DSN_NULL_IND_00010)=X'FF'
, "DSN_NULL_IND_00011" POSITION( *) CHAR(1)
, "PERSISTENT"
POSITION( *) CHAR(00001)
NULLIF(DSN_NULL_IND_00011)=X'FF'
, "DSN_NULL_IND_00012" POSITION( *) CHAR(1)
, "MSG_STAMP"
POSITION( *) CHAR(00008)
NULLIF(DSN_NULL_IND_00012)=X'FF'
, "DSN_NULL_IND_00013" POSITION( *) CHAR(1)
, "MESSAGE"
POSITION( *) BLOB
NULLIF(DSN_NULL_IND_00013)=X'FF'
)
TEMPLATE EWMZ5PJM
DSN('DP2G.CSQDP2G.TSCHIN.P00000.D140907.REC')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN EWMZ5PJM LOG NO RESUME YES
EBCDIC CCSID(00500,00000,00000)
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE
"CSQ".
"ADMIN_B_SCST"
WHEN(00001:00002) = X'0014'
NUMRECS 977
( "CHLCRESTAMP"
POSITION( 00003:00012) CHAR(00010)
, "CHLUPDSTAMP"
POSITION( 00013:00022) CHAR(00010)
, "XMITQ"
POSITION( 00023:00070) CHAR(00048)
, "CHLNAME"
POSITION( 00071:00090) CHAR(00020)
, "REMOTEQMGR"
POSITION( 00091:00138) CHAR(00048)
, "QSGNAME"
POSITION( 00139:00142) CHAR(00004)
, "OWNINGQMGR"
POSITION( 00143:00146) CHAR(00004)
, "CHLTOKEN"
POSITION( 00147:00166) CHAR(00020)
, "REMOTEMACH"
POSITION( 00168:00187) CHAR(00020)
NULLIF(00167)=X'FF'
, "CHANNELSTATUS"
POSITION( 00189:00189) CHAR(00001)
NULLIF(00188)=X'FF'
, "CHANNELTYPE"
POSITION( 00191:00194) INTEGER
NULLIF(00190)=X'FF'
, "LONGRETRYCOUNT"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "SHORTRETRYCOUNT"
POSITION( 00201:00204) INTEGER
NULLIF(00200)=X'FF'
, "NEXTRETRYTIME"
POSITION( 00206:00209) INTEGER
NULLIF(00205)=X'FF'
, "DATA"
POSITION( 00211:00214) CHAR(00004)
NULLIF(00210)=X'FF'
, "UPDT_QMGR"
POSITION( 00216:00263) CHAR(00048)
NULLIF(00215)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 00265:00266) SMALLINT
NULLIF(00264)=X'FF'
, "UPDT_STAMP"
POSITION( 00268:00275) CHAR(00008)
NULLIF(00267)=X'FF'
, "CREATE_QMGR"
POSITION( 00277:00324) CHAR(00048)
NULLIF(00276)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 00326:00327) SMALLINT
NULLIF(00325)=X'FF'
, "CREATE_STAMP"
POSITION( 00329:00336) CHAR(00008)
NULLIF(00328)=X'FF'
)
INTO TABLE
"CSQ".
"ADMIN_B_SSKT"
WHEN(00001:00002) = X'0015'
NUMRECS 0
( "XMITQ"
POSITION( 00003:00050) CHAR(00048)
, "CHLNAME"
POSITION( 00051:00070) CHAR(00020)
, "REMOTEQMGR"
POSITION( 00071:00118) CHAR(00048)
, "KEY"
POSITION( 00119:00122) INTEGER
, "QSGNAME"
POSITION( 00123:00126) CHAR(00004)
, "UPDT_QMGR"
POSITION( 00128:00175) CHAR(00048)
NULLIF(00127)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 00177:00178) SMALLINT
NULLIF(00176)=X'FF'
, "UPDT_STAMP"
POSITION( 00180:00187) CHAR(00008)
NULLIF(00179)=X'FF'
, "CREATE_QMGR"
POSITION( 00189:00236) CHAR(00048)
NULLIF(00188)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 00238:00239) SMALLINT
NULLIF(00237)=X'FF'
, "CREATE_STAMP"
POSITION( 00241:00248) CHAR(00008)
NULLIF(00240)=X'FF'
)
TEMPLATE EWMZ5PQE
DSN('DP2G.CSQDP2G.TSNL32K.P00000.D140907.REC')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN EWMZ5PQE LOG NO RESUME YES
EBCDIC CCSID(00500,00000,00000)
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE
"CSQ".
"OBJ_B_CHANNEL"
WHEN(00001:00002) = X'001A'
NUMRECS 0
( "CHLNAME"
POSITION( 00003:00050) CHAR(00048)
, "QSGNAME"
POSITION( 00051:00054) CHAR(00004)
, "CHLTYPE"
POSITION( 00055:00064) CHAR(00010)
, "DESCR"
POSITION( 00065:00128) CHAR(00064)
, "QSGDISP"
POSITION( 00130:00139) CHAR(00010)
NULLIF(00129)=X'FF'
, "TRPTYPE"
POSITION( 00141:00148) CHAR(00008)
NULLIF(00140)=X'FF'
, "CLUSTER"
POSITION( 00150:00197) CHAR(00048)
NULLIF(00149)=X'FF'
, "CLUSNL"
POSITION( 00199:00246) CHAR(00048)
NULLIF(00198)=X'FF'
, "XMITQ"
POSITION( 00248:00295) CHAR(00048)
NULLIF(00247)=X'FF'
, "BATCHINT"
POSITION( 00297:00300) INTEGER
NULLIF(00296)=X'FF'
, "BATCHSZ"
POSITION( 00302:00305) INTEGER
NULLIF(00301)=X'FF'
, "CONVERT"
POSITION( 00307:00316) CHAR(00010)
NULLIF(00306)=X'FF'
, "DISCINT"
POSITION( 00318:00321) INTEGER
NULLIF(00317)=X'FF'
, "HBINT"
POSITION( 00323:00326) INTEGER
NULLIF(00322)=X'FF'
, "LONGRTY"
POSITION( 00328:00331) INTEGER
NULLIF(00327)=X'FF'
, "LONGTMR"
POSITION( 00333:00336) INTEGER
NULLIF(00332)=X'FF'
, "MAXMSGL"
POSITION( 00338:00341) INTEGER
NULLIF(00337)=X'FF'
, "MCANAME"
POSITION( 00343:00362) CHAR(00020)
NULLIF(00342)=X'FF'
, "MCAUSER"
POSITION( 00364:00375) CHAR(00012)
NULLIF(00363)=X'FF'
, "MODENAME"
POSITION( 00377:00384) CHAR(00008)
NULLIF(00376)=X'FF'
, "MSGDATA"
POSITION( 00386:00417) CHAR(00032)
NULLIF(00385)=X'FF'
, "MSGEXIT"
POSITION( 00419:00546) CHAR(00128)
NULLIF(00418)=X'FF'
, "NETPRTY"
POSITION( 00548:00551) INTEGER
NULLIF(00547)=X'FF'
, "NPMSPEED"
POSITION( 00553:00562) CHAR(00010)
NULLIF(00552)=X'FF'
, "PASSWORD"
POSITION( 00564:00575) CHAR(00012)
NULLIF(00563)=X'FF'
, "PUTAUT"
POSITION( 00577:00586) CHAR(00010)
NULLIF(00576)=X'FF'
, "QMNAME"
POSITION( 00588:00635) CHAR(00048)
NULLIF(00587)=X'FF'
, "RCVDATA"
POSITION( 00637:00668) CHAR(00032)
NULLIF(00636)=X'FF'
, "RCVEXIT"
POSITION( 00670:00797) CHAR(00128)
NULLIF(00669)=X'FF'
, "SCYDATA"
POSITION( 00799:00830) CHAR(00032)
NULLIF(00798)=X'FF'
, "SCYEXIT"
POSITION( 00832:00959) CHAR(00128)
NULLIF(00831)=X'FF'
, "SENDDATA"
POSITION( 00961:00992) CHAR(00032)
NULLIF(00960)=X'FF'
, "SENDEXIT"
POSITION( 00994:01121) CHAR(00128)
NULLIF(00993)=X'FF'
, "SEQWRAP"
POSITION( 01123:01126) INTEGER
NULLIF(01122)=X'FF'
, "SHORTRTY"
POSITION( 01128:01131) INTEGER
NULLIF(01127)=X'FF'
, "SHORTTMR"
POSITION( 01133:01136) INTEGER
NULLIF(01132)=X'FF'
, "TPNAME"
POSITION( 01138:01201) CHAR(00064)
NULLIF(01137)=X'FF'
, "USERID"
POSITION( 01203:01214) CHAR(00012)
NULLIF(01202)=X'FF'
, "VERSIONCOUNT"
POSITION( 01216:01219) INTEGER
NULLIF(01215)=X'FF'
, "UPDT_QMGR"
POSITION( 01221:01268) CHAR(00048)
NULLIF(01220)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 01270:01271) SMALLINT
NULLIF(01269)=X'FF'
, "UPDT_STAMP"
POSITION( 01273:01280) CHAR(00008)
NULLIF(01272)=X'FF'
, "CREATE_QMGR"
POSITION( 01282:01329) CHAR(00048)
NULLIF(01281)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 01331:01332) SMALLINT
NULLIF(01330)=X'FF'
, "CREATE_STAMP"
POSITION( 01334:01341) CHAR(00008)
NULLIF(01333)=X'FF'
, "CONNAME"
POSITION( 01343:01608) VARCHAR
NULLIF(01342)=X'FF'
, "VSOBJECT"
POSITION( 01610:09801) VARCHAR
NULLIF(01609)=X'FF'
, "BATCHHB"
POSITION( 09803:09806) INTEGER
NULLIF(09802)=X'FF'
, "KAINT"
POSITION( 09808:09811) INTEGER
NULLIF(09807)=X'FF'
, "LOCLADDR"
POSITION( 09813:09860) CHAR(00048)
NULLIF(09812)=X'FF'
, "MSGEXITS"
POSITION( 09862:10887) VARCHAR
NULLIF(09861)=X'FF'
, "MSGDATAS"
POSITION( 10889:11146) VARCHAR
NULLIF(10888)=X'FF'
, "SENDEXITS"
POSITION( 11148:12173) VARCHAR
NULLIF(11147)=X'FF'
, "SENDDATAS"
POSITION( 12175:12432) VARCHAR
NULLIF(12174)=X'FF'
, "RCVEXITS"
POSITION( 12434:13459) VARCHAR
NULLIF(12433)=X'FF'
, "RCVDATAS"
POSITION( 13461:13718) VARCHAR
NULLIF(13460)=X'FF'
, "SSLCAUTH"
POSITION( 13720:13729) CHAR(00010)
NULLIF(13719)=X'FF'
, "SSLCIPH"
POSITION( 13731:13762) CHAR(00032)
NULLIF(13730)=X'FF'
, "SSLPEER"
POSITION( 13764:14021) VARCHAR
NULLIF(13763)=X'FF'
, "MREXIT"
POSITION( 14023:14030) CHAR(00008)
NULLIF(14022)=X'FF'
, "MRDATA"
POSITION( 14032:14063) CHAR(00032)
NULLIF(14031)=X'FF'
, "MRRTY"
POSITION( 14065:14068) INTEGER
NULLIF(14064)=X'FF'
, "MRTMR"
POSITION( 14070:14073) INTEGER
NULLIF(14069)=X'FF'
, "COMPHDR"
POSITION( 14075:14084) CHAR(00010)
NULLIF(14074)=X'FF'
, "COMPMSG"
POSITION( 14086:14095) CHAR(00010)
NULLIF(14085)=X'FF'
, "MONCHL"
POSITION( 14097:14106) CHAR(00010)
NULLIF(14096)=X'FF'
, "CLWLRANK"
POSITION( 14108:14111) INTEGER
NULLIF(14107)=X'FF'
, "CLWLPRTY"
POSITION( 14113:14116) INTEGER
NULLIF(14112)=X'FF'
, "CLWLWGHT"
POSITION( 14118:14121) INTEGER
NULLIF(14117)=X'FF'
)
INTO TABLE
"CSQ".
"OBJ_B_NAMELIST"
WHEN(00001:00002) = X'001B'
NUMRECS 0
( "NLNAME"
POSITION( 00003:00050) CHAR(00048)
, "QSGNAME"
POSITION( 00051:00054) CHAR(00004)
, "DESCR"
POSITION( 00055:00118) CHAR(00064)
, "QSGDISP"
POSITION( 00120:00129) CHAR(00010)
NULLIF(00119)=X'FF'
, "VERSIONCOUNT"
POSITION( 00131:00134) INTEGER
NULLIF(00130)=X'FF'
, "UPDT_QMGR"
POSITION( 00136:00183) CHAR(00048)
NULLIF(00135)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 00185:00186) SMALLINT
NULLIF(00184)=X'FF'
, "UPDT_STAMP"
POSITION( 00188:00195) CHAR(00008)
NULLIF(00187)=X'FF'
, "CREATE_QMGR"
POSITION( 00197:00244) CHAR(00048)
NULLIF(00196)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 00246:00247) SMALLINT
NULLIF(00245)=X'FF'
, "CREATE_STAMP"
POSITION( 00249:00256) CHAR(00008)
NULLIF(00248)=X'FF'
, "VSOBJECT"
POSITION( 00258:02819) VARCHAR
NULLIF(00257)=X'FF'
, "NAMES"
POSITION( 02821:15110) VARCHAR
NULLIF(02820)=X'FF'
, "NLTYPE"
POSITION( 15112:15121) CHAR(00010)
NULLIF(15111)=X'FF'
)
INTO TABLE
"CSQ".
"OBJ_B_TOPIC"
WHEN(00001:00002) = X'001F'
NUMRECS 0
( "TOPIC"
POSITION( 00003:00050) CHAR(00048)
, "QSGNAME"
POSITION( 00051:00054) CHAR(00004)
, "QSGDISP"
POSITION( 00056:00065) CHAR(00010)
NULLIF(00055)=X'FF'
, "VERSIONCOUNT"
POSITION( 00067:00070) INTEGER
NULLIF(00066)=X'FF'
, "UPDT_QMGR"
POSITION( 00072:00119) CHAR(00048)
NULLIF(00071)=X'FF'
, "UPDT_QMGRNUM"
POSITION( 00121:00122) SMALLINT
NULLIF(00120)=X'FF'
, "UPDT_STAMP"
POSITION( 00124:00131) CHAR(00008)
NULLIF(00123)=X'FF'
, "CREATE_QMGR"
POSITION( 00133:00180) CHAR(00048)
NULLIF(00132)=X'FF'
, "CREATE_QMGRNUM"
POSITION( 00182:00183) SMALLINT
NULLIF(00181)=X'FF'
, "CREATE_STAMP"
POSITION( 00185:00192) CHAR(00008)
NULLIF(00184)=X'FF'
, "VSOBJECT"
POSITION( 00194:14531) VARCHAR
NULLIF(00193)=X'FF'
)
LISTDEF TPLIST
INCLUDE TABLESPACE CSQDBOF.* PARTLEVEL
LISTDEF TSLIST
INCLUDE TABLESPACE CSQDBOF.*
---- COPY -----------------------------------------------
COPY LIST TPLIST COPYDDN(TCOPYD)
FULL YES
PARALLEL
SHRLEVEL CHANGE
---- RUNSTATS -------------------------------------------
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX(ALL)
REPORT NO UPDATE ALL
}¢--- A540769.WK.JCL(CSQUNLAL) cre=2014-09-07 mod=2014-09-07-11.37.01 A540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG0
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DP2G,'A540769.UNLOAC'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP2G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF LST INCLUDE TABLESPACE CSQDP2G.*
EXCLUDE TABLESPACE CSQDP2G.TSADMNBL
EXCLUDE TABLESPACE CSQDP2G.TSBLO*
UNLOAD DATA LIST LST
PUNCHDDN TPUNCH UNLDDN TSRECD
SHRLEVEL CHANGE ISOLATION UR
}¢--- A540769.WK.JCL(CSQUNLLO) cre=2014-09-07 mod=2014-09-07-11.42.47 A540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG0
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DP2G,'A540769.UNLOAC'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP2G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
UNLOAD DATA
PUNCHDDN TPUNCH UNLDDN TSRECD SPANNED YES
SHRLEVEL CHANGE
FROM TABLE CSQ.ADMIN_B_MESSAGES
(
LEID CHAR
, QSGNAME CHAR
, SEGMENTNUM SMALLINT
, MROWID ROWID
, STRUCNUM SMALLINT
, LHNUMBER SMALLINT
, MVERSION INTEGER
, BASEPART CHAR
, DELCOMMIT CHAR
, RECON_STAMP CHAR
, PERSISTENT CHAR
, MSG_STAMP CHAR
, MESSAGE BLOB
)
}¢--- A540769.WK.JCL(CZ025RD) cre=2008-02-07 mod=2014-10-20-17.07.26 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030001
//*MAIN CLASS=LOG 00040000
//*
//DISC1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOF,'A540769W'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//DISCA DD DSN=A540769.TMPCZ.CZ025.DISCA,
// DISP=(NEW,CATLG,CATLG),DCB=(RECFM=VB,LRECL=5000),
// SPACE=(TRK,(10,100))
//PUNCH DD DSN=A540769.TMPCZ.CZ025.PUNCH,
// DISP=(NEW,CATLG,CATLG),DCB=(RECFM=FB,LRECL=80),
// SPACE=(TRK,(1,10))
//SYSIN DD *
LISTDEF LST INCLUDE TABLESPACE CZ08A1P.A025A PARTLEVEL
--- save everything before -------------------------------------------
COPY LIST LST COPYDDN TCOPYD
FULL YES PARALLEL
SHRLEVEL CHANGE
--- reorg tcz025A1 and discard old rows ------------------------------
REORG TABLESPACE CZ08A1P.A025A
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB02
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLOAD CONTINUE
WORKDDN(TSYUTD,TSOUTD)
PUNCHDDN PUNCH
SORTKEYS
SORTDEVT DISK
STATISTICS INDEX ALL KEYCARD
REPORT NO UPDATE ALL
DISCARDDN DISCA
UNLDDN TSRECD
DISCARD FROM TABLE OA1P.TCZ025A1
WHEN (CZ025011 <= '01.01.2001')
//*** if ok then load ************************************************
// IF DISC1.RC = 0 OR DISC1.RC = 4 THEN
//LOAD1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOF,'A540769W'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//DISCA DD DSN=*.DISC1.DISCA,DISP=OLD
//SYSIN DD *
LISTDEF LST INCLUDE TABLESPACE CZ08G1P.A025A PARTLEVEL
--- save everything before -------------------------------------------
COPY LIST LST COPYDDN TCOPYD
FULL YES PARALLEL
SHRLEVEL CHANGE
--- load discarded rows into tcz025g1 --------------------------------
LOAD DATA INDDN DISCA LOG YES RESUME YES
EBCDIC CCSID(00500,00000,00000)
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE
"OA1P".
"TCZ025G1"
( "CZ025001"
POSITION(00007:00026) CHAR(020)
, "CZ025002"
POSITION(00027:00032) CHAR(006)
, "CZ025003"
POSITION(00033:00052) CHAR(020)
, "CZ025004"
POSITION(00053:00054) SMALLINT
, "CZ025005"
POSITION(00055:00074) CHAR(020)
, "CZ025006"
POSITION(00075:00094) CHAR(020)
, "CZ025007"
POSITION(00095:00120) TIMESTAMP EXTERNAL(026)
, "CZ025008"
POSITION(00121:00140) CHAR(020)
, "CZ025009"
POSITION(00141:00150) DATE EXTERNAL
, "CZ025010"
POSITION(00151:00176) TIMESTAMP EXTERNAL(026)
, "CZ025011"
POSITION(00177:00186) DATE EXTERNAL
, "CZ025012"
POSITION(00187:00188) CHAR(002)
, "CZ025013"
POSITION(00189:00191) CHAR(003)
, "CZ025014"
POSITION(00192:00251) CHAR(060)
, "CZ025015"
POSITION(00252:00256) CHAR(005)
, "CZ025016"
POSITION(00257:00316) CHAR(060)
, "CZ025017"
POSITION(00317:00317) CHAR(001)
, "CZ025018"
POSITION(00318:00321) INTEGER
, "CZ025019"
POSITION(00322:00325) INTEGER
, "CZ025020"
POSITION(00326:00329) INTEGER
, "CZ025021"
POSITION(00330:00333) INTEGER
, "CZ025022"
POSITION(00334:00335) CHAR(002)
, "CZ025023"
POSITION(00336:00337) CHAR(002)
, "CZ025024"
POSITION(00338:00397) CHAR(060)
, "CZ025025"
POSITION(00398:00398) CHAR(001)
, "CZ025026"
POSITION(00399:00424) TIMESTAMP EXTERNAL(026)
, "CZ025027"
POSITION(00425:00444) CHAR(020)
, "CZ025028"
POSITION(00445:00445) CHAR(001)
)
--- save everything afterwards ---------------------------------------
COPY LIST LST COPYDDN TCOPYD
FULL YES PARALLEL
SHRLEVEL CHANGE
// ENDIF
//*** if everything ok, delete discard and punch dsn *****************
// IF LOAD1.RUN AND (LOAD1.RC = 0 OR LOAD1.RC = 4) THEN
//DELE1 EXEC PGM=IEFBR14
//DISCA DD DSN=*.DISC1.DISCA,DISP=(OLD,DELETE)
//PUNCH DD DSN=*.DISC1.PUNCH,DISP=(OLD,DELETE)
// ENDIF
}¢--- A540769.WK.JCL(C2U) cre=2013-11-19 mod=2013-11-19-15.34.40 A540769 -------
$#@
$=dbSys= DBOF
$= pre = A540769.TMPUNL
call sqlConnect $dbSys
$** $>.fEdit()
$;
$<#¢ select dbName db, tsName ts, partition part
, ( select char(timestamp) || ' ' || dsName
from sysibm.sysCopy c
where c.dbName = p.dbName and c.tsName = p.tsName
and c.dsNum = p.partition and icType ='F'
and timestamp < '2013-11-14-00.00.00'
order by timestamp desc
fetch first row only
) copy
from sysibm.sysTablepart p
where dbName = 'MF01A1P' and tsName = 'A150A'
$! call sqlSel
$| $@=¢
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=($dbSys,'A540769W.UNLOAC'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=$dbSys.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TREC DSN('$pre.&DB..&SN..P&PART..REC
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE TRK MAXPRIME 600
TEMPLATE TREC DSN('$pre.&DB..&SN..P&PART..PUN
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE TRK MAXPRIME 600
$!
$forWith c $@=¢
UNLOAD TABLESPACE $DB.$TS PART $PART
-- $-¢word($COPY, 1)$!
FROMCOPY $-¢word($COPY, 2)$!
SHRLEVEL CHANGE ISOLATION UR
PUNCHDDN TPUN UNLDDN TREC
$!
$#out 20131119 15:34:17
}¢--- A540769.WK.JCL(DBACLONC) cre= mod=-. -------------------------------------
//YDBACLOC JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID, 00000100
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME00000200
// MSGCLASS=T,TIME=1440 00000300
//*MAIN CLASS=LOG 00000400
//*********************** input erstellen ******************************00000500
//INP EXEC PGM=IEBGENER 00000600
//SYSPRINT DD SYSOUT=* 00000700
//** <<<< 00000800
//** <<<< hier source (=src) und target(=cln) worklist namen eingeben 00000900
//** <<<< 00001000
//SYSUT1 DD * 00001100
SRCWSLST = member?Q, 00001200
CLNWSLST = member?C, 00001300
//SYSUT2 DD DISP=(,PASS),RECFM=FB,LRECL=80 00001400
//*********************** alte member löschen, falls gewuenscht ******* 00001500
//** <<<< 00001600
//** <<<< um bestehende Member NICHT zu loeschen: 00001700
//** <<<< IF RC = 7 THEN 00001800
//** <<<< um bestehende Member zu loeschen: 00001900
//** <<<< IF RC = 0 THEN und 00002000
//** <<<< Member mit Target worklist Namen fuellen 00002100
//** <<<< 00002200
//DELMBRIF IF RC = 0 THEN 00002300
//DELMBR EXEC PGM=IDCAMS delete pds or library me 00002400
//SYSPRINT DD SYSOUT=* 00002500
//SYSIN DD * 00002600
DELETE DSN.DBA.DBAF.WSL(member?C) 00002700
DELETE DSN.DBA.DBBA.WSL(member?C) 00002800
DELETE DSN.DBA.DBLF.WSL(member?C) 00002900
DELETE DSN.DBA.DBOC.WSL(member?C) 00003000
DELETE DSN.DBA.DBTF.WSL(member?C) 00003100
DELETE DSN.DBA.DBZF.WSL(member?C) 00003200
DELETE DSN.DBA.DVTB.WSL(member?C) 00003300
IF MAXCC <= 8 THEN SET MAXCC = 0 00003400
// ENDIF 00003500
//************************************************************ADB2SPFB**00003600
//* DB2 ADMIN ISPF BATCH 00003700
//**********************************************************************00003800
//CLONDBAF EXEC PGM=IKJEFT01,DYNAMNBR=100, 00003900
// PARM='ISPSTART CMD(%ADB2W1QB )' 00004000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00004100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00004200
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00004300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00004400
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00004500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00004600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00004700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00004800
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00004900
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00005000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00005100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00005200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00005300
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00005400
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00005500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00005600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00005700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00005800
// DD DISP=SHR,DSN=ISP.SISPMENU 00005900
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00006000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00006100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00006200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00006300
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00006400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00006500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00006600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00006700
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00006800
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00006900
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00007000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00007100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00007200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00007300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00007400
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00007500
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00007600
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00007700
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00007800
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00007900
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00008000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00008100
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00008200
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00008300
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00008400
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00008500
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00008600
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00008700
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00008800
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00008900
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00009000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00009100
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00009200
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00009300
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00009400
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00009500
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00009600
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00009700
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00009800
//SYSTSPRT DD SYSOUT=* 00009900
//SYSTSIN DD DUMMY 00010000
//SYSPRINT DD SYSOUT=* 00010100
//**********************************************************************00010200
//* END OF ISPF BATCH STEP SET UP 00010300
//**********************************************************************00010400
//***********************************************************ADB2WCL*** 00010500
//ADBWLCL DD DISP=SHR, 00010600
// DSN=DSN.DBA.DBAF.WSL 00010700
//ADBWL DD DISP=SHR, 00010800
// DSN=DSN.DBA.CLON.WSL 00010900
//MASKS DD DISP=SHR, 00011000
// DSN=DSN.DBA.MASK.DBAF.DBAF 00011100
//IN DD * 00011200
DB2SYS = DBAF, 00011300
CTLOVRID = Y, 00011400
CTLCHGGR = N, 00011500
CTLPART = N, 00011600
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00011700
// DD * 00011800
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00011900
CLNWSLIB = 'DSN.DBA.DBAF.WSL', 00012000
GETMASKS = Y, 00012100
MSKDSNAM = N, 00012200
GETOVWTS = N, 00012300
//**********************************************************************00012400
//CLONDBBA EXEC PGM=IKJEFT01,DYNAMNBR=100, 00012500
// PARM='ISPSTART CMD(%ADB2W1QB )' 00012600
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00012700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00012800
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00012900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00013000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00013100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00013200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00013300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00013400
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00013500
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00013600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00013700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00013800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00013900
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00014000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00014100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00014200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00014300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00014400
// DD DISP=SHR,DSN=ISP.SISPMENU 00014500
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00014600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00014700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00014800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00014900
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00015000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00015100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00015200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00015300
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00015400
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00015500
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00015600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00015700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00015800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00015900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00016000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00016100
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00016200
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00016300
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00016400
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00016500
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00016600
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00016700
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00016800
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00016900
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00017000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00017100
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00017200
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00017300
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00017400
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00017500
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00017600
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00017700
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00017800
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00017900
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00018000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00018100
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00018200
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00018300
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00018400
//SYSTSPRT DD SYSOUT=* 00018500
//SYSTSIN DD DUMMY 00018600
//SYSPRINT DD SYSOUT=* 00018700
//**********************************************************************00018800
//* END OF ISPF BATCH STEP SET UP 00018900
//**********************************************************************00019000
//***********************************************************ADB2WCL*** 00019100
//ADBWLCL DD DISP=SHR, 00019200
// DSN=DSN.DBA.DBBA.WSL 00019300
//ADBWL DD DISP=SHR, 00019400
// DSN=DSN.DBA.CLON.WSL 00019500
//MASKS DD DISP=SHR, 00019600
// DSN=DSN.DBA.MASK.DBAF.DBBA 00019700
//IN DD * 00019800
DB2SYS = DBBA, 00019900
CTLOVRID = Y, 00020000
CTLCHGGR = N, 00020100
CTLPART = N, 00020200
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00020300
// DD * 00020400
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00020500
CLNWSLIB = 'DSN.DBA.DBBA.WSL', 00020600
GETMASKS = Y, 00020700
MSKDSNAM = N, 00020800
GETOVWTS = N, 00020900
//**********************************************************************00021000
//CLONDBLF EXEC PGM=IKJEFT01,DYNAMNBR=100, 00021100
// PARM='ISPSTART CMD(%ADB2W1QB )' 00021200
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00021300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00021400
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00021500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00021600
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00021700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00021800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00021900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00022000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00022100
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00022200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00022300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00022400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00022500
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00022600
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00022700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00022800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00022900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00023000
// DD DISP=SHR,DSN=ISP.SISPMENU 00023100
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00023200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00023300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00023400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00023500
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00023600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00023700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00023800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00023900
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00024000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00024100
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00024200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00024300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00024400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00024500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00024600
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00024700
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00024800
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00024900
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00025000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00025100
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00025200
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00025300
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00025400
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00025500
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00025600
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00025700
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00025800
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00025900
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00026000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00026100
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00026200
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00026300
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00026400
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00026500
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00026600
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00026700
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00026800
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00026900
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00027000
//SYSTSPRT DD SYSOUT=* 00027100
//SYSTSIN DD DUMMY 00027200
//SYSPRINT DD SYSOUT=* 00027300
//**********************************************************************00027400
//* END OF ISPF BATCH STEP SET UP 00027500
//**********************************************************************00027600
//***********************************************************ADB2WCL*** 00027700
//ADBWLCL DD DISP=SHR, 00027800
// DSN=DSN.DBA.DBLF.WSL 00027900
//ADBWL DD DISP=SHR, 00028000
// DSN=DSN.DBA.CLON.WSL 00028100
//MASKS DD DISP=SHR, 00028200
// DSN=DSN.DBA.MASK.DBAF.DBLF 00028300
//IN DD * 00028400
DB2SYS = DBLF, 00028500
CTLOVRID = Y, 00028600
CTLCHGGR = N, 00028700
CTLPART = N, 00028800
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00028900
// DD * 00029000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00029100
CLNWSLIB = 'DSN.DBA.DBLF.WSL', 00029200
GETMASKS = Y, 00029300
MSKDSNAM = N, 00029400
GETOVWTS = N, 00029500
//**********************************************************************00029600
//CLONDBOC EXEC PGM=IKJEFT01,DYNAMNBR=100, 00029700
// PARM='ISPSTART CMD(%ADB2W1QB )' 00029800
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00029900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00030000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00030100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00030200
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00030300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00030400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00030500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00030600
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00030700
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00030800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00030900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00031000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00031100
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00031200
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00031300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00031400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00031500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00031600
// DD DISP=SHR,DSN=ISP.SISPMENU 00031700
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00031800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00031900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00032000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00032100
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00032200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00032300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00032400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00032500
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00032600
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00032700
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00032800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00032900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00033000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00033100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00033200
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00033300
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00033400
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00033500
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00033600
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00033700
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00033800
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00033900
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00034000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00034100
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00034200
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00034300
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00034400
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00034500
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00034600
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00034700
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00034800
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00034900
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00035000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00035100
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00035200
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00035300
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00035400
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00035500
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00035600
//SYSTSPRT DD SYSOUT=* 00035700
//SYSTSIN DD DUMMY 00035800
//SYSPRINT DD SYSOUT=* 00035900
//**********************************************************************00036000
//* END OF ISPF BATCH STEP SET UP 00036100
//**********************************************************************00036200
//***********************************************************ADB2WCL*** 00036300
//ADBWLCL DD DISP=SHR, 00036400
// DSN=DSN.DBA.DBOC.WSL 00036500
//ADBWL DD DISP=SHR, 00036600
// DSN=DSN.DBA.CLON.WSL 00036700
//MASKS DD DISP=SHR, 00036800
// DSN=DSN.DBA.MASK.DBAF.DBOC 00036900
//IN DD * 00037000
DB2SYS = DBOC, 00037100
CTLOVRID = Y, 00037200
CTLCHGGR = N, 00037300
CTLPART = N, 00037400
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00037500
// DD * 00037600
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00037700
CLNWSLIB = 'DSN.DBA.DBOC.WSL', 00037800
GETMASKS = Y, 00037900
MSKDSNAM = N, 00038000
GETOVWTS = N, 00038100
//**********************************************************************00038200
//CLONDBTF EXEC PGM=IKJEFT01,DYNAMNBR=100, 00038300
// PARM='ISPSTART CMD(%ADB2W1QB )' 00038400
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00038500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00038600
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00038700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00038800
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00038900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00039000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00039100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00039200
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00039300
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00039400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00039500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00039600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00039700
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00039800
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00039900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00040000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00040100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00040200
// DD DISP=SHR,DSN=ISP.SISPMENU 00040300
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00040400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00040500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00040600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00040700
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00040800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00040900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00041000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00041100
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00041200
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00041300
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00041400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00041500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00041600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00041700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00041800
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00041900
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00042000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00042100
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00042200
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00042300
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00042400
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00042500
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00042600
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00042700
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00042800
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00042900
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00043000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00043100
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00043200
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00043300
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00043400
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00043500
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00043600
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00043700
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00043800
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00043900
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00044000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00044100
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00044200
//SYSTSPRT DD SYSOUT=* 00044300
//SYSTSIN DD DUMMY 00044400
//SYSPRINT DD SYSOUT=* 00044500
//**********************************************************************00044600
//* END OF ISPF BATCH STEP SET UP 00044700
//**********************************************************************00044800
//***********************************************************ADB2WCL*** 00044900
//ADBWLCL DD DISP=SHR, 00045000
// DSN=DSN.DBA.DBTF.WSL 00045100
//ADBWL DD DISP=SHR, 00045200
// DSN=DSN.DBA.CLON.WSL 00045300
//MASKS DD DISP=SHR, 00045400
// DSN=DSN.DBA.MASK.DBAF.DBTF 00045500
//IN DD * 00045600
DB2SYS = DBTF, 00045700
CTLOVRID = Y, 00045800
CTLCHGGR = N, 00045900
CTLPART = N, 00046000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00046100
// DD * 00046200
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00046300
CLNWSLIB = 'DSN.DBA.DBTF.WSL', 00046400
GETMASKS = Y, 00046500
MSKDSNAM = N, 00046600
GETOVWTS = N, 00046700
//**********************************************************************00046800
//CLONDBZF EXEC PGM=IKJEFT01,DYNAMNBR=100, 00046900
// PARM='ISPSTART CMD(%ADB2W1QB )' 00047000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00047100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00047200
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00047300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00047400
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00047500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00047600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00047700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00047800
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00047900
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00048000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00048100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00048200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00048300
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00048400
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00048500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00048600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00048700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00048800
// DD DISP=SHR,DSN=ISP.SISPMENU 00048900
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00049000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00049100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00049200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00049300
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00049400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00049500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00049600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00049700
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00049800
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00049900
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00050000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00050100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00050200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00050300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00050400
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00050500
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00050600
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00050700
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00050800
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00050900
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00051000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00051100
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00051200
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00051300
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00051400
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00051500
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00051600
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00051700
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00051800
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00051900
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00052000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00052100
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00052200
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00052300
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00052400
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00052500
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00052600
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00052700
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00052800
//SYSTSPRT DD SYSOUT=* 00052900
//SYSTSIN DD DUMMY 00053000
//SYSPRINT DD SYSOUT=* 00053100
//**********************************************************************00053200
//* END OF ISPF BATCH STEP SET UP 00053300
//**********************************************************************00053400
//***********************************************************ADB2WCL*** 00053500
//ADBWLCL DD DISP=SHR, 00053600
// DSN=DSN.DBA.DBZF.WSL 00053700
//ADBWL DD DISP=SHR, 00053800
// DSN=DSN.DBA.CLON.WSL 00053900
//MASKS DD DISP=SHR, 00054000
// DSN=DSN.DBA.MASK.DBAF.DBZF 00054100
//IN DD * 00054200
DB2SYS = DBZF, 00054300
CTLOVRID = Y, 00054400
CTLCHGGR = N, 00054500
CTLPART = N, 00054600
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00054700
// DD * 00054800
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00054900
CLNWSLIB = 'DSN.DBA.DBZF.WSL', 00055000
GETMASKS = Y, 00055100
MSKDSNAM = N, 00055200
GETOVWTS = N, 00055300
//**********************************************************************00055400
//CLONDVTB EXEC PGM=IKJEFT01,DYNAMNBR=100, 00055500
// PARM='ISPSTART CMD(%ADB2W1QB )' 00055600
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00055700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00055800
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00055900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00056000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00056100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00056200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00056300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00056400
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00056500
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00056600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00056700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00056800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00056900
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00057000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00057100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00057200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00057300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00057400
// DD DISP=SHR,DSN=ISP.SISPMENU 00057500
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00057600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00057700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00057800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00057900
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00058000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00058100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00058200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00058300
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00058400
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00058500
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00058600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00058700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00058800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00058900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00059000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00059100
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00059200
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00059300
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00059400
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00059500
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00059600
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00059700
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00059800
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00059900
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00060000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00060100
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00060200
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00060300
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00060400
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00060500
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00060600
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00060700
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00060800
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00060900
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00061000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00061100
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00061200
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00061300
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00061400
//SYSTSPRT DD SYSOUT=* 00061500
//SYSTSIN DD DUMMY 00061600
//SYSPRINT DD SYSOUT=* 00061700
//**********************************************************************00061800
//* END OF ISPF BATCH STEP SET UP 00061900
//**********************************************************************00062000
//***********************************************************ADB2WCL*** 00062100
//ADBWLCL DD DISP=SHR, 00062200
// DSN=DSN.DBA.DVTB.WSL 00062300
//ADBWL DD DISP=SHR, 00062400
// DSN=DSN.DBA.CLON.WSL 00062500
//MASKS DD DISP=SHR, 00062600
// DSN=DSN.DBA.MASK.DBAF.DVTB 00062700
//IN DD * 00062800
DB2SYS = DVTB, 00062900
CTLOVRID = Y, 00063000
CTLCHGGR = N, 00063100
CTLPART = N, 00063200
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00063300
// DD * 00063400
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00063500
CLNWSLIB = 'DSN.DBA.DVTB.WSL', 00063600
GETMASKS = Y, 00063700
MSKDSNAM = N, 00063800
GETOVWTS = N, 00063900
/* 00064000
}¢--- A540769.WK.JCL(DBACLONW) cre= mod=-. -------------------------------------
//YDBACLOW JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID, 00000100
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME00000200
// MSGCLASS=T,TIME=1440 00000300
//*MAIN CLASS=LOG 00000400
//*********************** input erstellen ******************************00000500
//INP EXEC PGM=IEBGENER 00000600
//SYSPRINT DD SYSOUT=* 00000700
//** <<<< 00000800
//** <<<< hier source (=src) und target(=cln) worklist namen eingeben 00000900
//** <<<< 00001000
//SYSUT1 DD * 00001100
SRCWSLST = member?Q, 00001200
CLNWSLST = member?W, 00001300
//SYSUT2 DD DISP=(,PASS),RECFM=FB,LRECL=80 00001400
//*********************** alte member löschen, falls gewuenscht ******* 00001500
//** <<<< 00001600
//** <<<< um bestehende Member NICHT zu loeschen: 00001700
//** <<<< IF RC = 7 THEN 00001800
//** <<<< um bestehende Member zu loeschen: 00001900
//** <<<< IF RC = 0 THEN und 00002000
//** <<<< Member mit Target worklist Namen fuellen 00002100
//** <<<< 00002200
//DELMBRIF IF RC = 0 THEN 00002300
//DELMBR EXEC PGM=IDCAMS delete pds or library me 00002400
//SYSPRINT DD SYSOUT=* 00002500
//SYSIN DD * 00002600
DELETE DSN.DBA.DBAF.WSL(member?W) 00002700
DELETE DSN.DBA.DBBA.WSL(member?W) 00002800
DELETE DSN.DBA.DBLF.WSL(member?W) 00002900
DELETE DSN.DBA.DBOC.WSL(member?W) 00003000
DELETE DSN.DBA.DBTF.WSL(member?W) 00003100
DELETE DSN.DBA.DBZF.WSL(member?W) 00003200
DELETE DSN.DBA.DVTB.WSL(member?W) 00003300
IF MAXCC <= 8 THEN SET MAXCC = 0 00003400
// ENDIF 00003500
//SYSUT2 DD DISP=(,PASS),RECFM=FB,LRECL=80 00003600
//**********************************************************************00003700
//CLONDBAF EXEC PGM=IKJEFT01,DYNAMNBR=100, 00003800
// PARM='ISPSTART CMD(%ADB2W1QB )' 00003900
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00004000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00004100
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00004200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00004300
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00004400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00004500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00004600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00004700
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00004800
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00004900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00005000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00005100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00005200
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00005300
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00005400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00005500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00005600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00005700
// DD DISP=SHR,DSN=ISP.SISPMENU 00005800
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00005900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00006000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00006100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00006200
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00006300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00006400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00006500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00006600
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00006700
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00006800
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00006900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00007000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00007100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00007200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00007300
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00007400
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00007500
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00007600
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00007700
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00007800
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00007900
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00008000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00008100
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00008200
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00008300
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00008400
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00008500
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00008600
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00008700
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00008800
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00008900
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00009000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00009100
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00009200
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00009300
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00009400
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00009500
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00009600
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00009700
//SYSTSPRT DD SYSOUT=* 00009800
//SYSTSIN DD DUMMY 00009900
//SYSPRINT DD SYSOUT=* 00010000
//**********************************************************************00010100
//* END OF ISPF BATCH STEP SET UP 00010200
//**********************************************************************00010300
//***********************************************************ADB2WCL*** 00010400
//ADBWLCL DD DISP=SHR, 00010500
// DSN=DSN.DBA.DBAF.WSL 00010600
//ADBWL DD DISP=SHR, 00010700
// DSN=DSN.DBA.CLON.WSL 00010800
//MASKS DD DISP=SHR, 00010900
// DSN=DSN.DBA.MASK.DBAF.DBAF 00011000
//OVERWRTS DD DISP=SHR, 00011100
// DSN=DSN.DBA.OVER 00011200
//IN DD * 00011300
DB2SYS = DBAF, 00011400
CTLOVRID = N, 00011500
CTLCHGGR = N, 00011600
CTLPART = N, 00011700
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00011800
// DD * 00011900
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00012000
CLNWSLIB = 'DSN.DBA.DBAF.WSL', 00012100
GETMASKS = Y, 00012200
MSKDSNAM = N, 00012300
GETOVWTS = Y, 00012400
//**********************************************************************00012500
//CLONDBBA EXEC PGM=IKJEFT01,DYNAMNBR=100, 00012600
// PARM='ISPSTART CMD(%ADB2W1QB )' 00012700
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00012800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00012900
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00013000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00013100
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00013200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00013300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00013400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00013500
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00013600
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00013700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00013800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00013900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00014000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00014100
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00014200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00014300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00014400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00014500
// DD DISP=SHR,DSN=ISP.SISPMENU 00014600
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00014700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00014800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00014900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00015000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00015100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00015200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00015300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00015400
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00015500
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00015600
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00015700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00015800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00015900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00016000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00016100
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00016200
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00016300
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00016400
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00016500
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00016600
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00016700
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00016800
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00016900
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00017000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00017100
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00017200
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00017300
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00017400
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00017500
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00017600
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00017700
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00017800
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00017900
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00018000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00018100
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00018200
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00018300
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00018400
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00018500
//SYSTSPRT DD SYSOUT=* 00018600
//SYSTSIN DD DUMMY 00018700
//SYSPRINT DD SYSOUT=* 00018800
//**********************************************************************00018900
//* END OF ISPF BATCH STEP SET UP 00019000
//**********************************************************************00019100
//***********************************************************ADB2WCL*** 00019200
//ADBWLCL DD DISP=SHR, 00019300
// DSN=DSN.DBA.DBBA.WSL 00019400
//ADBWL DD DISP=SHR, 00019500
// DSN=DSN.DBA.CLON.WSL 00019600
//MASKS DD DISP=SHR, 00019700
// DSN=DSN.DBA.MASK.DBAF.DBBA 00019800
//OVERWRTS DD DISP=SHR, 00019900
// DSN=DSN.DBA.OVER 00020000
//IN DD * 00020100
DB2SYS = DBBA, 00020200
CTLOVRID = N, 00020300
CTLCHGGR = N, 00020400
CTLPART = N, 00020500
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00020600
// DD * 00020700
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00020800
CLNWSLIB = 'DSN.DBA.DBBA.WSL', 00020900
GETMASKS = Y, 00021000
MSKDSNAM = N, 00021100
GETOVWTS = Y, 00021200
//**********************************************************************00021300
//CLONDBLF EXEC PGM=IKJEFT01,DYNAMNBR=100, 00021400
// PARM='ISPSTART CMD(%ADB2W1QB )' 00021500
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00021600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00021700
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00021800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00021900
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00022000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00022100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00022200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00022300
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00022400
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00022500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00022600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00022700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00022800
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00022900
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00023000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00023100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00023200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00023300
// DD DISP=SHR,DSN=ISP.SISPMENU 00023400
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00023500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00023600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00023700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00023800
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00023900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00024000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00024100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00024200
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00024300
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00024400
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00024500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00024600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00024700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00024800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00024900
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00025000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00025100
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00025200
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00025300
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00025400
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00025500
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00025600
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00025700
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00025800
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00025900
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00026000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00026100
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00026200
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00026300
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00026400
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00026500
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00026600
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00026700
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00026800
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00026900
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00027000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00027100
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00027200
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00027300
//SYSTSPRT DD SYSOUT=* 00027400
//SYSTSIN DD DUMMY 00027500
//SYSPRINT DD SYSOUT=* 00027600
//**********************************************************************00027700
//* END OF ISPF BATCH STEP SET UP 00027800
//**********************************************************************00027900
//***********************************************************ADB2WCL*** 00028000
//ADBWLCL DD DISP=SHR, 00028100
// DSN=DSN.DBA.DBLF.WSL 00028200
//ADBWL DD DISP=SHR, 00028300
// DSN=DSN.DBA.CLON.WSL 00028400
//MASKS DD DISP=SHR, 00028500
// DSN=DSN.DBA.MASK.DBAF.DBLF 00028600
//OVERWRTS DD DISP=SHR, 00028700
// DSN=DSN.DBA.OVER 00028800
//IN DD * 00028900
DB2SYS = DBLF, 00029000
CTLOVRID = N, 00029100
CTLCHGGR = N, 00029200
CTLPART = N, 00029300
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00029400
// DD * 00029500
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00029600
CLNWSLIB = 'DSN.DBA.DBLF.WSL', 00029700
GETMASKS = Y, 00029800
MSKDSNAM = N, 00029900
GETOVWTS = Y, 00030000
//**********************************************************************00030100
//CLONDBOC EXEC PGM=IKJEFT01,DYNAMNBR=100, 00030200
// PARM='ISPSTART CMD(%ADB2W1QB )' 00030300
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00030400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00030500
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00030600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00030700
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00030800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00030900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00031000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00031100
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00031200
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00031300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00031400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00031500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00031600
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00031700
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00031800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00031900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00032000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00032100
// DD DISP=SHR,DSN=ISP.SISPMENU 00032200
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00032300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00032400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00032500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00032600
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00032700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00032800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00032900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00033000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00033100
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00033200
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00033300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00033400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00033500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00033600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00033700
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00033800
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00033900
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00034000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00034100
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00034200
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00034300
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00034400
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00034500
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00034600
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00034700
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00034800
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00034900
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00035000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00035100
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00035200
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00035300
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00035400
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00035500
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00035600
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00035700
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00035800
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00035900
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00036000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00036100
//SYSTSPRT DD SYSOUT=* 00036200
//SYSTSIN DD DUMMY 00036300
//SYSPRINT DD SYSOUT=* 00036400
//**********************************************************************00036500
//* END OF ISPF BATCH STEP SET UP 00036600
//**********************************************************************00036700
//***********************************************************ADB2WCL*** 00036800
//ADBWLCL DD DISP=SHR, 00036900
// DSN=DSN.DBA.DBOC.WSL 00037000
//ADBWL DD DISP=SHR, 00037100
// DSN=DSN.DBA.CLON.WSL 00037200
//MASKS DD DISP=SHR, 00037300
// DSN=DSN.DBA.MASK.DBAF.DBOC 00037400
//OVERWRTS DD DISP=SHR, 00037500
// DSN=DSN.DBA.OVER 00037600
//IN DD * 00037700
DB2SYS = DBOC, 00037800
CTLOVRID = N, 00037900
CTLCHGGR = N, 00038000
CTLPART = N, 00038100
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00038200
// DD * 00038300
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00038400
CLNWSLIB = 'DSN.DBA.DBOC.WSL', 00038500
GETMASKS = Y, 00038600
MSKDSNAM = N, 00038700
GETOVWTS = Y, 00038800
//**********************************************************************00038900
//CLONDBTF EXEC PGM=IKJEFT01,DYNAMNBR=100, 00039000
// PARM='ISPSTART CMD(%ADB2W1QB )' 00039100
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00039200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00039300
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00039400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00039500
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00039600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00039700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00039800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00039900
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00040000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00040100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00040200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00040300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00040400
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00040500
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00040600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00040700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00040800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00040900
// DD DISP=SHR,DSN=ISP.SISPMENU 00041000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00041100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00041200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00041300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00041400
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00041500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00041600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00041700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00041800
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00041900
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00042000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00042100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00042200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00042300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00042400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00042500
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00042600
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00042700
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00042800
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00042900
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00043000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00043100
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00043200
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00043300
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00043400
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00043500
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00043600
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00043700
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00043800
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00043900
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00044000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00044100
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00044200
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00044300
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00044400
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00044500
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00044600
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00044700
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00044800
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00044900
//SYSTSPRT DD SYSOUT=* 00045000
//SYSTSIN DD DUMMY 00045100
//SYSPRINT DD SYSOUT=* 00045200
//**********************************************************************00045300
//* END OF ISPF BATCH STEP SET UP 00045400
//**********************************************************************00045500
//***********************************************************ADB2WCL*** 00045600
//ADBWLCL DD DISP=SHR, 00045700
// DSN=DSN.DBA.DBTF.WSL 00045800
//ADBWL DD DISP=SHR, 00045900
// DSN=DSN.DBA.CLON.WSL 00046000
//MASKS DD DISP=SHR, 00046100
// DSN=DSN.DBA.MASK.DBAF.DBTF 00046200
//OVERWRTS DD DISP=SHR, 00046300
// DSN=DSN.DBA.OVER 00046400
//IN DD * 00046500
DB2SYS = DBTF, 00046600
CTLOVRID = N, 00046700
CTLCHGGR = N, 00046800
CTLPART = N, 00046900
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00047000
// DD * 00047100
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00047200
CLNWSLIB = 'DSN.DBA.DBTF.WSL', 00047300
GETMASKS = Y, 00047400
MSKDSNAM = N, 00047500
GETOVWTS = Y, 00047600
//**********************************************************************00047700
//CLONDBZF EXEC PGM=IKJEFT01,DYNAMNBR=100, 00047800
// PARM='ISPSTART CMD(%ADB2W1QB )' 00047900
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00048000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00048100
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00048200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00048300
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00048400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00048500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00048600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00048700
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00048800
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00048900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00049000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00049100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00049200
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00049300
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00049400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00049500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00049600
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00049700
// DD DISP=SHR,DSN=ISP.SISPMENU 00049800
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00049900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00050000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00050100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00050200
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00050300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00050400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00050500
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00050600
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00050700
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00050800
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00050900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00051000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00051100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00051200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00051300
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00051400
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00051500
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00051600
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00051700
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00051800
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00051900
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00052000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00052100
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00052200
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00052300
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00052400
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00052500
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00052600
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00052700
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00052800
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00052900
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00053000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00053100
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00053200
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00053300
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00053400
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00053500
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00053600
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00053700
//SYSTSPRT DD SYSOUT=* 00053800
//SYSTSIN DD DUMMY 00053900
//SYSPRINT DD SYSOUT=* 00054000
//**********************************************************************00054100
//* END OF ISPF BATCH STEP SET UP 00054200
//**********************************************************************00054300
//***********************************************************ADB2WCL*** 00054400
//ADBWLCL DD DISP=SHR, 00054500
// DSN=DSN.DBA.DBZF.WSL 00054600
//ADBWL DD DISP=SHR, 00054700
// DSN=DSN.DBA.CLON.WSL 00054800
//MASKS DD DISP=SHR, 00054900
// DSN=DSN.DBA.MASK.DBAF.DBZF 00055000
//OVERWRTS DD DISP=SHR, 00055100
// DSN=DSN.DBA.OVER 00055200
//IN DD * 00055300
DB2SYS = DBZF, 00055400
CTLOVRID = N, 00055500
CTLCHGGR = N, 00055600
CTLPART = N, 00055700
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00055800
// DD * 00055900
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00056000
CLNWSLIB = 'DSN.DBA.DBZF.WSL', 00056100
GETMASKS = Y, 00056200
MSKDSNAM = N, 00056300
GETOVWTS = Y, 00056400
//**********************************************************************00056500
//CLONDVTB EXEC PGM=IKJEFT01,DYNAMNBR=100, 00056600
// PARM='ISPSTART CMD(%ADB2W1QB )' 00056700
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00056800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00056900
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00057000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00057100
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00057200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00057300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00057400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00057500
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00057600
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00057700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00057800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00057900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00058000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00058100
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00058200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00058300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00058400
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00058500
// DD DISP=SHR,DSN=ISP.SISPMENU 00058600
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00058700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00058800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00058900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00059000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00059100
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00059200
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00059300
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00059400
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00059500
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00059600
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00059700
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00059800
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00059900
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00060000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00060100
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00060200
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00060300
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00060400
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00060500
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00060600
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00060700
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00060800
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00060900
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00061000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00061100
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00061200
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00061300
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00061400
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00061500
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00061600
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00061700
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00061800
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00061900
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00062000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00062100
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00062200
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00062300
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00062400
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00062500
//SYSTSPRT DD SYSOUT=* 00062600
//SYSTSIN DD DUMMY 00062700
//SYSPRINT DD SYSOUT=* 00062800
//**********************************************************************00062900
//* END OF ISPF BATCH STEP SET UP 00063000
//**********************************************************************00063100
//***********************************************************ADB2WCL*** 00063200
//ADBWLCL DD DISP=SHR, 00063300
// DSN=DSN.DBA.DVTB.WSL 00063400
//ADBWL DD DISP=SHR, 00063500
// DSN=DSN.DBA.CLON.WSL 00063600
//MASKS DD DISP=SHR, 00063700
// DSN=DSN.DBA.MASK.DBAF.DVTB 00063800
//OVERWRTS DD DISP=SHR, 00063900
// DSN=DSN.DBA.OVER 00064000
//IN DD * 00064100
DB2SYS = DVTB, 00064200
CTLOVRID = N, 00064300
CTLCHGGR = N, 00064400
CTLPART = N, 00064500
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 00064600
// DD * 00064700
SRCWSLIB = 'DSN.DBA.CLON.WSL', 00064800
CLNWSLIB = 'DSN.DBA.DVTB.WSL', 00064900
GETMASKS = Y, 00065000
MSKDSNAM = N, 00065100
GETOVWTS = Y, 00065200
/* 00065300
}¢--- A540769.WK.JCL(DBAMULTC) cre=2008-12-16 mod=2008-12-16-18.05.56 F540769 ---
//YDBACLOC JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID, 00010000
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME00020000
// MSGCLASS=T,TIME=1440 00030000
//*MAIN CLASS=LOG 00040000
//*********************** input erstellen ******************************00050000
//INP EXEC PGM=IEBGENER 00060000
//SYSPRINT DD SYSOUT=* 00070000
//** <<<< 00080000
//** <<<< hier source (=src) und target(=cln) worklist namen eingeben 00090000
//** <<<< 00100000
//SYSUT1 DD * 00110000
SRCWSLST = member?Q, 00120000
CLNWSLST = member?C, 00130000
//SYSUT2 DD DISP=(,PASS),RECFM=FB,LRECL=80 00140000
//*********************** changes **************************************00150000
//* 04.07.08 overrides ausgeschaltet ( ==> CTLOVRID = N, 00160000
//* priQty und secQty NICHT aus DB2 Catalog uberschreiben) 00170000
//*********************** changes **************************************00180000
//*********************** alte member löschen, falls gewuenscht ******* 00190000
//** <<<< 00200000
//** <<<< um bestehende Member NICHT zu loeschen: 00210000
//** <<<< IF RC = 7 THEN 00220000
//** <<<< um bestehende Member zu loeschen: 00230000
//** <<<< IF RC = 0 THEN und 00240000
//** <<<< Member mit Target worklist Namen fuellen 00250000
//** <<<< 00260000
//DELMBRIF IF RC = 0 THEN 00270000
//DELMBR EXEC PGM=IDCAMS delete pds or library me 00280000
//SYSPRINT DD SYSOUT=* 00290000
//SYSIN DD * 00300000
DELETE DSN.DBA.DBAF.WSL(member?C) 00310000
DELETE DSN.DBA.DBBA.WSL(member?C) 00320000
DELETE DSN.DBA.DBLF.WSL(member?C) 00330000
DELETE DSN.DBA.DBOC.WSL(member?C) 00340000
DELETE DSN.DBA.DBTF.WSL(member?C) 00350000
DELETE DSN.DBA.DBZF.WSL(member?C) 00360000
DELETE DSN.DBA.DVTB.WSL(member?C) 00370000
IF MAXCC <= 8 THEN SET MAXCC = 0 00380000
// ENDIF 00390000
//************************************************************ADB2SPFB**00400000
//* DB2 ADMIN ISPF BATCH 00410000
//**********************************************************************00420000
//CLONDBAF EXEC PGM=IKJEFT01,DYNAMNBR=100, 00430000
// PARM='ISPSTART CMD(%ADB2W1QB )' 00440000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00450000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00460000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00470000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00480000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00490000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00500000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00510000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00520000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00530000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00540000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00550000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00560000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00570000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00580000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00590000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00600000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00610000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00620000
// DD DISP=SHR,DSN=ISP.SISPMENU 00630000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00640000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00650000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00660000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00670000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00680000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00690000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00700000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00710000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00720000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00730000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00740000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00750000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00760000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00770000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00780000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00790000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00800000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00810000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00820000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00830000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00840000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00850000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00860000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00870000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00880000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00890000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00900000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00910000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00920000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00930000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00940000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00950000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00960000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00970000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00980000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00990000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 01000000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 01010000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 01020000
//SYSTSPRT DD SYSOUT=* 01030000
//SYSTSIN DD DUMMY 01040000
//SYSPRINT DD SYSOUT=* 01050000
//**********************************************************************01060000
//* END OF ISPF BATCH STEP SET UP 01070000
//**********************************************************************01080000
//***********************************************************ADB2WCL*** 01090000
//ADBWLCL DD DISP=SHR, 01100000
// DSN=DSN.DBA.DBAF.WSL 01110000
//ADBWL DD DISP=SHR, 01120000
// DSN=DSN.DBA.CLON.WSL 01130000
//MASKS DD DISP=SHR, 01140000
// DSN=DSN.DBX.MASK(DBAFDBAF) 01150000
//IN DD * 01160000
DB2SYS = DBAF, 01170000
CTLOVRID = N, 01180000
CTLCHGGR = N, 01190000
CTLPART = N, 01200000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 01210000
// DD * 01220000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 01230000
CLNWSLIB = 'DSN.DBA.DBAF.WSL', 01240000
GETMASKS = Y, 01250000
MSKDSNAM = N, 01260000
GETOVWTS = N, 01270000
//**********************************************************************01280000
//CLONDBBA EXEC PGM=IKJEFT01,DYNAMNBR=100, 01290000
// PARM='ISPSTART CMD(%ADB2W1QB )' 01300000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 01310000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 01320000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 01330000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 01340000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 01350000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 01360000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 01370000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 01380000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 01390000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 01400000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 01410000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 01420000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 01430000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 01440000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 01450000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 01460000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 01470000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 01480000
// DD DISP=SHR,DSN=ISP.SISPMENU 01490000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 01500000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 01510000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 01520000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 01530000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 01540000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 01550000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 01560000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 01570000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 01580000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 01590000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 01600000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 01610000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 01620000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 01630000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 01640000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 01650000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 01660000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 01670000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 01680000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 01690000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 01700000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 01710000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 01720000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 01730000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 01740000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 01750000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 01760000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 01770000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 01780000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 01790000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 01800000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 01810000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 01820000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 01830000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 01840000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 01850000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 01860000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 01870000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 01880000
//SYSTSPRT DD SYSOUT=* 01890000
//SYSTSIN DD DUMMY 01900000
//SYSPRINT DD SYSOUT=* 01910000
//**********************************************************************01920000
//* END OF ISPF BATCH STEP SET UP 01930000
//**********************************************************************01940000
//***********************************************************ADB2WCL*** 01950000
//ADBWLCL DD DISP=SHR, 01960000
// DSN=DSN.DBA.DBBA.WSL 01970000
//ADBWL DD DISP=SHR, 01980000
// DSN=DSN.DBA.CLON.WSL 01990000
//MASKS DD DISP=SHR, 02000000
// DSN=DSN.DBX.MASK(DBAFDBBA) 02010000
//IN DD * 02020000
DB2SYS = DBBA, 02030000
CTLOVRID = N, 02040000
CTLCHGGR = N, 02050000
CTLPART = N, 02060000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 02070000
// DD * 02080000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 02090000
CLNWSLIB = 'DSN.DBA.DBBA.WSL', 02100000
GETMASKS = Y, 02110000
MSKDSNAM = N, 02120000
GETOVWTS = N, 02130000
//**********************************************************************02140000
//CLONDBLF EXEC PGM=IKJEFT01,DYNAMNBR=100, 02150000
// PARM='ISPSTART CMD(%ADB2W1QB )' 02160000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 02170000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 02180000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 02190000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 02200000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 02210000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 02220000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 02230000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 02240000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 02250000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 02260000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 02270000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 02280000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 02290000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 02300000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 02310000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 02320000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 02330000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 02340000
// DD DISP=SHR,DSN=ISP.SISPMENU 02350000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 02360000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 02370000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 02380000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 02390000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 02400000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 02410000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 02420000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 02430000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 02440000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 02450000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 02460000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 02470000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 02480000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 02490000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 02500000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 02510000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 02520000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 02530000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 02540000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 02550000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 02560000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 02570000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 02580000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 02590000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 02600000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 02610000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 02620000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 02630000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 02640000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 02650000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 02660000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 02670000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 02680000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 02690000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 02700000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 02710000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 02720000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 02730000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 02740000
//SYSTSPRT DD SYSOUT=* 02750000
//SYSTSIN DD DUMMY 02760000
//SYSPRINT DD SYSOUT=* 02770000
//**********************************************************************02780000
//* END OF ISPF BATCH STEP SET UP 02790000
//**********************************************************************02800000
//***********************************************************ADB2WCL*** 02810000
//ADBWLCL DD DISP=SHR, 02820000
// DSN=DSN.DBA.DBLF.WSL 02830000
//ADBWL DD DISP=SHR, 02840000
// DSN=DSN.DBA.CLON.WSL 02850000
//MASKS DD DISP=SHR, 02860000
// DSN=DSN.DBX.MASK(DBAFDBLF) 02870000
//IN DD * 02880000
DB2SYS = DBLF, 02890000
CTLOVRID = N, 02900000
CTLCHGGR = N, 02910000
CTLPART = N, 02920000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 02930000
// DD * 02940000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 02950000
CLNWSLIB = 'DSN.DBA.DBLF.WSL', 02960000
GETMASKS = Y, 02970000
MSKDSNAM = N, 02980000
GETOVWTS = N, 02990000
//**********************************************************************03000000
//CLONDBOC EXEC PGM=IKJEFT01,DYNAMNBR=100, 03010000
// PARM='ISPSTART CMD(%ADB2W1QB )' 03020000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 03030000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 03040000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 03050000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 03060000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 03070000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 03080000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 03090000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 03100000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 03110000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 03120000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 03130000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 03140000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 03150000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 03160000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 03170000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 03180000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 03190000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 03200000
// DD DISP=SHR,DSN=ISP.SISPMENU 03210000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 03220000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 03230000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 03240000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 03250000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 03260000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 03270000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 03280000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 03290000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 03300000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 03310000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 03320000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 03330000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 03340000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 03350000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 03360000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 03370000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 03380000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 03390000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 03400000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 03410000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 03420000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 03430000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 03440000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 03450000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 03460000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 03470000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 03480000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 03490000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 03500000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 03510000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 03520000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 03530000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 03540000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 03550000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 03560000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 03570000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 03580000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 03590000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 03600000
//SYSTSPRT DD SYSOUT=* 03610000
//SYSTSIN DD DUMMY 03620000
//SYSPRINT DD SYSOUT=* 03630000
//**********************************************************************03640000
//* END OF ISPF BATCH STEP SET UP 03650000
//**********************************************************************03660000
//***********************************************************ADB2WCL*** 03670000
//ADBWLCL DD DISP=SHR, 03680000
// DSN=DSN.DBA.DBOC.WSL 03690000
//ADBWL DD DISP=SHR, 03700000
// DSN=DSN.DBA.CLON.WSL 03710000
//MASKS DD DISP=SHR, 03720000
// DSN=DSN.DBX.MASK(DBAFDBOC) 03730000
//IN DD * 03740000
DB2SYS = DBOC, 03750000
CTLOVRID = N, 03760000
CTLCHGGR = N, 03770000
CTLPART = N, 03780000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 03790000
// DD * 03800000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 03810000
CLNWSLIB = 'DSN.DBA.DBOC.WSL', 03820000
GETMASKS = Y, 03830000
MSKDSNAM = N, 03840000
GETOVWTS = N, 03850000
//**********************************************************************03860000
//CLONDBTF EXEC PGM=IKJEFT01,DYNAMNBR=100, 03870000
// PARM='ISPSTART CMD(%ADB2W1QB )' 03880000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 03890000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 03900000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 03910000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 03920000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 03930000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 03940000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 03950000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 03960000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 03970000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 03980000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 03990000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 04000000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 04010000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 04020000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 04030000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 04040000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 04050000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 04060000
// DD DISP=SHR,DSN=ISP.SISPMENU 04070000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 04080000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 04090000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 04100000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 04110000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 04120000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 04130000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 04140000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 04150000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 04160000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 04170000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 04180000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 04190000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 04200000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 04210000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 04220000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 04230000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 04240000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 04250000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 04260000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 04270000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 04280000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 04290000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 04300000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 04310000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 04320000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 04330000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 04340000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 04350000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 04360000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 04370000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 04380000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 04390000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 04400000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 04410000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 04420000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 04430000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 04440000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 04450000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 04460000
//SYSTSPRT DD SYSOUT=* 04470000
//SYSTSIN DD DUMMY 04480000
//SYSPRINT DD SYSOUT=* 04490000
//**********************************************************************04500000
//* END OF ISPF BATCH STEP SET UP 04510000
//**********************************************************************04520000
//***********************************************************ADB2WCL*** 04530000
//ADBWLCL DD DISP=SHR, 04540000
// DSN=DSN.DBA.DBTF.WSL 04550000
//ADBWL DD DISP=SHR, 04560000
// DSN=DSN.DBA.CLON.WSL 04570000
//MASKS DD DISP=SHR, 04580000
// DSN=DSN.DBX.MASK(DBAFDBTF) 04590000
//IN DD * 04600000
DB2SYS = DBTF, 04610000
CTLOVRID = N, 04620000
CTLCHGGR = N, 04630000
CTLPART = N, 04640000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 04650000
// DD * 04660000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 04670000
CLNWSLIB = 'DSN.DBA.DBTF.WSL', 04680000
GETMASKS = Y, 04690000
MSKDSNAM = N, 04700000
GETOVWTS = N, 04710000
//**********************************************************************04720000
//CLONDBZF EXEC PGM=IKJEFT01,DYNAMNBR=100, 04730000
// PARM='ISPSTART CMD(%ADB2W1QB )' 04740000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 04750000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 04760000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 04770000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 04780000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 04790000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 04800000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 04810000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 04820000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 04830000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 04840000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 04850000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 04860000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 04870000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 04880000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 04890000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 04900000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 04910000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 04920000
// DD DISP=SHR,DSN=ISP.SISPMENU 04930000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 04940000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 04950000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 04960000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 04970000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 04980000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 04990000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 05000000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 05010000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 05020000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 05030000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 05040000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 05050000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 05060000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 05070000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 05080000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 05090000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 05100000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 05110000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 05120000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 05130000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 05140000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 05150000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 05160000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 05170000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 05180000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 05190000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 05200000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 05210000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 05220000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 05230000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 05240000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 05250000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 05260000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 05270000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 05280000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 05290000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 05300000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 05310000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 05320000
//SYSTSPRT DD SYSOUT=* 05330000
//SYSTSIN DD DUMMY 05340000
//SYSPRINT DD SYSOUT=* 05350000
//**********************************************************************05360000
//* END OF ISPF BATCH STEP SET UP 05370000
//**********************************************************************05380000
//***********************************************************ADB2WCL*** 05390000
//ADBWLCL DD DISP=SHR, 05400000
// DSN=DSN.DBA.DBZF.WSL 05410000
//ADBWL DD DISP=SHR, 05420000
// DSN=DSN.DBA.CLON.WSL 05430000
//MASKS DD DISP=SHR, 05440000
// DSN=DSN.DBX.MASK(DBAFDBZF) 05450000
//IN DD * 05460000
DB2SYS = DBZF, 05470000
CTLOVRID = N, 05480000
CTLCHGGR = N, 05490000
CTLPART = N, 05500000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 05510000
// DD * 05520000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 05530000
CLNWSLIB = 'DSN.DBA.DBZF.WSL', 05540000
GETMASKS = Y, 05550000
MSKDSNAM = N, 05560000
GETOVWTS = N, 05570000
//**********************************************************************05580000
//CLONDVTB EXEC PGM=IKJEFT01,DYNAMNBR=100, 05590000
// PARM='ISPSTART CMD(%ADB2W1QB )' 05600000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 05610000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 05620000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 05630000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 05640000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 05650000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 05660000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 05670000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 05680000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 05690000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 05700000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 05710000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 05720000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 05730000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 05740000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 05750000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 05760000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 05770000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 05780000
// DD DISP=SHR,DSN=ISP.SISPMENU 05790000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 05800000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 05810000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 05820000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 05830000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 05840000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 05850000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 05860000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 05870000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 05880000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 05890000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 05900000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 05910000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 05920000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 05930000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 05940000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 05950000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 05960000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 05970000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 05980000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 05990000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 06000000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 06010000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 06020000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 06030000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 06040000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 06050000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 06060000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 06070000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 06080000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 06090000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 06100000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 06110000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 06120000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 06130000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 06140000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 06150000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 06160000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 06170000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 06180000
//SYSTSPRT DD SYSOUT=* 06190000
//SYSTSIN DD DUMMY 06200000
//SYSPRINT DD SYSOUT=* 06210000
//**********************************************************************06220000
//* END OF ISPF BATCH STEP SET UP 06230000
//**********************************************************************06240000
//***********************************************************ADB2WCL*** 06250000
//ADBWLCL DD DISP=SHR, 06260000
// DSN=DSN.DBA.DVTB.WSL 06270000
//ADBWL DD DISP=SHR, 06280000
// DSN=DSN.DBA.CLON.WSL 06290000
//MASKS DD DISP=SHR, 06300000
// DSN=DSN.DBX.MASK(DBAFDVTB) 06310000
//IN DD * 06320000
DB2SYS = DVTB, 06330000
CTLOVRID = N, 06340000
CTLCHGGR = N, 06350000
CTLPART = N, 06360000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 06370000
// DD * 06380000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 06390000
CLNWSLIB = 'DSN.DBA.DVTB.WSL', 06400000
GETMASKS = Y, 06410000
MSKDSNAM = N, 06420000
GETOVWTS = N, 06430000
/* 06440000
}¢--- A540769.WK.JCL(DBAMULTW) cre=2008-12-16 mod=2008-12-16-18.06.13 F540769 ---
//YDBACLOW JOB (HPK27494,0251,,3604),'ADB',NOTIFY=&SYSUID, 00010000
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME00020000
// MSGCLASS=T,TIME=1440 00030000
//*MAIN CLASS=LOG 00040000
//*********************** input erstellen ******************************00050000
//INP EXEC PGM=IEBGENER 00060000
//SYSPRINT DD SYSOUT=* 00070000
//** <<<< 00080000
//** <<<< hier source (=src) und target(=cln) worklist namen eingeben 00090000
//** <<<< 00100000
//SYSUT1 DD * 00110000
SRCWSLST = member?Q, 00120000
CLNWSLST = member?W, 00130000
//SYSUT2 DD DISP=(,PASS),RECFM=FB,LRECL=80 00140000
//*********************** alte member löschen, falls gewuenscht ******* 00150000
//** <<<< 00160000
//** <<<< um bestehende Member NICHT zu loeschen: 00170000
//** <<<< IF RC = 7 THEN 00180000
//** <<<< um bestehende Member zu loeschen: 00190000
//** <<<< IF RC = 0 THEN und 00200000
//** <<<< Member mit Target worklist Namen fuellen 00210000
//** <<<< 00220000
//DELMBRIF IF RC = 0 THEN 00230000
//DELMBR EXEC PGM=IDCAMS delete pds or library me 00240000
//SYSPRINT DD SYSOUT=* 00250000
//SYSIN DD * 00260000
DELETE DSN.DBA.DBAF.WSL(member?W) 00270000
DELETE DSN.DBA.DBBA.WSL(member?W) 00280000
DELETE DSN.DBA.DBLF.WSL(member?W) 00290000
DELETE DSN.DBA.DBOC.WSL(member?W) 00300000
DELETE DSN.DBA.DBTF.WSL(member?W) 00310000
DELETE DSN.DBA.DBZF.WSL(member?W) 00320000
DELETE DSN.DBA.DVTB.WSL(member?W) 00330000
IF MAXCC <= 8 THEN SET MAXCC = 0 00340000
// ENDIF 00350000
//**********************************************************************00360000
//CLONDBAF EXEC PGM=IKJEFT01,DYNAMNBR=100, 00370000
// PARM='ISPSTART CMD(%ADB2W1QB )' 00380000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 00390000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 00400000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 00410000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 00420000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00430000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00440000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00450000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00460000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00470000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 00480000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 00490000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 00500000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 00510000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 00520000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 00530000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 00540000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 00550000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 00560000
// DD DISP=SHR,DSN=ISP.SISPMENU 00570000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 00580000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 00590000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 00600000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 00610000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 00620000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 00630000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 00640000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 00650000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 00660000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 00670000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00680000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 00690000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 00700000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 00710000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 00720000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 00730000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 00740000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00750000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 00760000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 00770000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 00780000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 00790000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 00800000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00810000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00820000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 00830000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00840000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00850000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 00860000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 00870000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 00880000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 00890000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00900000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00910000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 00920000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 00930000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 00940000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00950000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 00960000
//SYSTSPRT DD SYSOUT=* 00970000
//SYSTSIN DD DUMMY 00980000
//SYSPRINT DD SYSOUT=* 00990000
//**********************************************************************01000000
//* END OF ISPF BATCH STEP SET UP 01010000
//**********************************************************************01020000
//***********************************************************ADB2WCL*** 01030000
//ADBWLCL DD DISP=SHR, 01040000
// DSN=DSN.DBA.DBAF.WSL 01050000
//ADBWL DD DISP=SHR, 01060000
// DSN=DSN.DBA.CLON.WSL 01070000
//MASKS DD DISP=SHR, 01080000
// DSN=DSN.DBX.MASK(DBAFDBAF) 01090000
//OVERWRTS DD DISP=SHR, 01100000
// DSN=DSN.DBA.OVER 01110000
//IN DD * 01120000
DB2SYS = DBAF, 01130000
CTLOVRID = N, 01140000
CTLCHGGR = N, 01150000
CTLPART = N, 01160000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 01170000
// DD * 01180000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 01190000
CLNWSLIB = 'DSN.DBA.DBAF.WSL', 01200000
GETMASKS = Y, 01210000
MSKDSNAM = N, 01220000
GETOVWTS = Y, 01230000
//**********************************************************************01240000
//CLONDBBA EXEC PGM=IKJEFT01,DYNAMNBR=100, 01250000
// PARM='ISPSTART CMD(%ADB2W1QB )' 01260000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 01270000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 01280000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 01290000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 01300000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 01310000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 01320000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 01330000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 01340000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 01350000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 01360000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 01370000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 01380000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 01390000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 01400000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 01410000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 01420000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 01430000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 01440000
// DD DISP=SHR,DSN=ISP.SISPMENU 01450000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 01460000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 01470000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 01480000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 01490000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 01500000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 01510000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 01520000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 01530000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 01540000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 01550000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 01560000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 01570000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 01580000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 01590000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 01600000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 01610000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 01620000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 01630000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 01640000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 01650000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 01660000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 01670000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 01680000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 01690000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 01700000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 01710000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 01720000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 01730000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 01740000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 01750000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 01760000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 01770000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 01780000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 01790000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 01800000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 01810000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 01820000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 01830000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 01840000
//SYSTSPRT DD SYSOUT=* 01850000
//SYSTSIN DD DUMMY 01860000
//SYSPRINT DD SYSOUT=* 01870000
//**********************************************************************01880000
//* END OF ISPF BATCH STEP SET UP 01890000
//**********************************************************************01900000
//***********************************************************ADB2WCL*** 01910000
//ADBWLCL DD DISP=SHR, 01920000
// DSN=DSN.DBA.DBBA.WSL 01930000
//ADBWL DD DISP=SHR, 01940000
// DSN=DSN.DBA.CLON.WSL 01950000
//MASKS DD DISP=SHR, 01960000
// DSN=DSN.DBX.MASK(DBAFDBBA) 01970000
//OVERWRTS DD DISP=SHR, 01980000
// DSN=DSN.DBA.OVER 01990000
//IN DD * 02000000
DB2SYS = DBBA, 02010000
CTLOVRID = N, 02020000
CTLCHGGR = N, 02030000
CTLPART = N, 02040000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 02050000
// DD * 02060000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 02070000
CLNWSLIB = 'DSN.DBA.DBBA.WSL', 02080000
GETMASKS = Y, 02090000
MSKDSNAM = N, 02100000
GETOVWTS = Y, 02110000
//**********************************************************************02120000
//CLONDBLF EXEC PGM=IKJEFT01,DYNAMNBR=100, 02130000
// PARM='ISPSTART CMD(%ADB2W1QB )' 02140000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 02150000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 02160000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 02170000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 02180000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 02190000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 02200000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 02210000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 02220000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 02230000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 02240000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 02250000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 02260000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 02270000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 02280000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 02290000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 02300000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 02310000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 02320000
// DD DISP=SHR,DSN=ISP.SISPMENU 02330000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 02340000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 02350000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 02360000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 02370000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 02380000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 02390000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 02400000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 02410000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 02420000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 02430000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 02440000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 02450000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 02460000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 02470000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 02480000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 02490000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 02500000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 02510000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 02520000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 02530000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 02540000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 02550000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 02560000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 02570000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 02580000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 02590000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 02600000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 02610000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 02620000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 02630000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 02640000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 02650000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 02660000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 02670000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 02680000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 02690000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 02700000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 02710000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 02720000
//SYSTSPRT DD SYSOUT=* 02730000
//SYSTSIN DD DUMMY 02740000
//SYSPRINT DD SYSOUT=* 02750000
//**********************************************************************02760000
//* END OF ISPF BATCH STEP SET UP 02770000
//**********************************************************************02780000
//***********************************************************ADB2WCL*** 02790000
//ADBWLCL DD DISP=SHR, 02800000
// DSN=DSN.DBA.DBLF.WSL 02810000
//ADBWL DD DISP=SHR, 02820000
// DSN=DSN.DBA.CLON.WSL 02830000
//MASKS DD DISP=SHR, 02840000
// DSN=DSN.DBX.MASK(DBAFDBLF) 02850000
//OVERWRTS DD DISP=SHR, 02860000
// DSN=DSN.DBA.OVER 02870000
//IN DD * 02880000
DB2SYS = DBLF, 02890000
CTLOVRID = N, 02900000
CTLCHGGR = N, 02910000
CTLPART = N, 02920000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 02930000
// DD * 02940000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 02950000
CLNWSLIB = 'DSN.DBA.DBLF.WSL', 02960000
GETMASKS = Y, 02970000
MSKDSNAM = N, 02980000
GETOVWTS = Y, 02990000
//**********************************************************************03000000
//CLONDBOC EXEC PGM=IKJEFT01,DYNAMNBR=100, 03010000
// PARM='ISPSTART CMD(%ADB2W1QB )' 03020000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 03030000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 03040000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 03050000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 03060000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 03070000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 03080000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 03090000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 03100000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 03110000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 03120000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 03130000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 03140000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 03150000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 03160000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 03170000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 03180000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 03190000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 03200000
// DD DISP=SHR,DSN=ISP.SISPMENU 03210000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 03220000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 03230000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 03240000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 03250000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 03260000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 03270000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 03280000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 03290000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 03300000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 03310000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 03320000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 03330000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 03340000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 03350000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 03360000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 03370000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 03380000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 03390000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 03400000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 03410000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 03420000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 03430000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 03440000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 03450000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 03460000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 03470000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 03480000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 03490000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 03500000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 03510000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 03520000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 03530000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 03540000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 03550000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 03560000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 03570000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 03580000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 03590000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 03600000
//SYSTSPRT DD SYSOUT=* 03610000
//SYSTSIN DD DUMMY 03620000
//SYSPRINT DD SYSOUT=* 03630000
//**********************************************************************03640000
//* END OF ISPF BATCH STEP SET UP 03650000
//**********************************************************************03660000
//***********************************************************ADB2WCL*** 03670000
//ADBWLCL DD DISP=SHR, 03680000
// DSN=DSN.DBA.DBOC.WSL 03690000
//ADBWL DD DISP=SHR, 03700000
// DSN=DSN.DBA.CLON.WSL 03710000
//MASKS DD DISP=SHR, 03720000
// DSN=DSN.DBX.MASK(DBAFDBOC) 03730000
//OVERWRTS DD DISP=SHR, 03740000
// DSN=DSN.DBA.OVER 03750000
//IN DD * 03760000
DB2SYS = DBOC, 03770000
CTLOVRID = N, 03780000
CTLCHGGR = N, 03790000
CTLPART = N, 03800000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 03810000
// DD * 03820000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 03830000
CLNWSLIB = 'DSN.DBA.DBOC.WSL', 03840000
GETMASKS = Y, 03850000
MSKDSNAM = N, 03860000
GETOVWTS = Y, 03870000
//**********************************************************************03880000
//CLONDBTF EXEC PGM=IKJEFT01,DYNAMNBR=100, 03890000
// PARM='ISPSTART CMD(%ADB2W1QB )' 03900000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 03910000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 03920000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 03930000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 03940000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 03950000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 03960000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 03970000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 03980000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 03990000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 04000000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 04010000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 04020000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 04030000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 04040000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 04050000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 04060000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 04070000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 04080000
// DD DISP=SHR,DSN=ISP.SISPMENU 04090000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 04100000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 04110000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 04120000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 04130000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 04140000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 04150000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 04160000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 04170000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 04180000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 04190000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 04200000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 04210000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 04220000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 04230000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 04240000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 04250000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 04260000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 04270000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 04280000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 04290000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 04300000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 04310000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 04320000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 04330000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 04340000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 04350000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 04360000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 04370000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 04380000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 04390000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 04400000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 04410000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 04420000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 04430000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 04440000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 04450000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 04460000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 04470000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 04480000
//SYSTSPRT DD SYSOUT=* 04490000
//SYSTSIN DD DUMMY 04500000
//SYSPRINT DD SYSOUT=* 04510000
//**********************************************************************04520000
//* END OF ISPF BATCH STEP SET UP 04530000
//**********************************************************************04540000
//***********************************************************ADB2WCL*** 04550000
//ADBWLCL DD DISP=SHR, 04560000
// DSN=DSN.DBA.DBTF.WSL 04570000
//ADBWL DD DISP=SHR, 04580000
// DSN=DSN.DBA.CLON.WSL 04590000
//MASKS DD DISP=SHR, 04600000
// DSN=DSN.DBX.MASK(DBAFDBTF) 04610000
//OVERWRTS DD DISP=SHR, 04620000
// DSN=DSN.DBA.OVER 04630000
//IN DD * 04640000
DB2SYS = DBTF, 04650000
CTLOVRID = N, 04660000
CTLCHGGR = N, 04670000
CTLPART = N, 04680000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 04690000
// DD * 04700000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 04710000
CLNWSLIB = 'DSN.DBA.DBTF.WSL', 04720000
GETMASKS = Y, 04730000
MSKDSNAM = N, 04740000
GETOVWTS = Y, 04750000
//**********************************************************************04760000
//CLONDBZF EXEC PGM=IKJEFT01,DYNAMNBR=100, 04770000
// PARM='ISPSTART CMD(%ADB2W1QB )' 04780000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 04790000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 04800000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 04810000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 04820000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 04830000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 04840000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 04850000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 04860000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 04870000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 04880000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 04890000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 04900000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 04910000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 04920000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 04930000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 04940000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 04950000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 04960000
// DD DISP=SHR,DSN=ISP.SISPMENU 04970000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 04980000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 04990000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 05000000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 05010000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 05020000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 05030000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 05040000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 05050000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 05060000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 05070000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 05080000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 05090000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 05100000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 05110000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 05120000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 05130000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 05140000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 05150000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 05160000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 05170000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 05180000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 05190000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 05200000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 05210000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 05220000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 05230000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 05240000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 05250000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 05260000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 05270000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 05280000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 05290000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 05300000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 05310000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 05320000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 05330000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 05340000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 05350000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 05360000
//SYSTSPRT DD SYSOUT=* 05370000
//SYSTSIN DD DUMMY 05380000
//SYSPRINT DD SYSOUT=* 05390000
//**********************************************************************05400000
//* END OF ISPF BATCH STEP SET UP 05410000
//**********************************************************************05420000
//***********************************************************ADB2WCL*** 05430000
//ADBWLCL DD DISP=SHR, 05440000
// DSN=DSN.DBA.DBZF.WSL 05450000
//ADBWL DD DISP=SHR, 05460000
// DSN=DSN.DBA.CLON.WSL 05470000
//MASKS DD DISP=SHR, 05480000
// DSN=DSN.DBX.MASK(DBAFDBZF) 05490000
//OVERWRTS DD DISP=SHR, 05500000
// DSN=DSN.DBA.OVER 05510000
//IN DD * 05520000
DB2SYS = DBZF, 05530000
CTLOVRID = N, 05540000
CTLCHGGR = N, 05550000
CTLPART = N, 05560000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 05570000
// DD * 05580000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 05590000
CLNWSLIB = 'DSN.DBA.DBZF.WSL', 05600000
GETMASKS = Y, 05610000
MSKDSNAM = N, 05620000
GETOVWTS = Y, 05630000
//**********************************************************************05640000
//CLONDVTB EXEC PGM=IKJEFT01,DYNAMNBR=100, 05650000
// PARM='ISPSTART CMD(%ADB2W1QB )' 05660000
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC 05670000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC 05680000
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST 05690000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST 05700000
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 05710000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 05720000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 05730000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 05740000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 05750000
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB 05760000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB 05770000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCLLIB 05780000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBLLIB 05790000
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD 05800000
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB 05810000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB 05820000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCMLIB 05830000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBMLIB 05840000
// DD DISP=SHR,DSN=ISP.SISPMENU 05850000
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB 05860000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB 05870000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCPLIB 05880000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBPLIB 05890000
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB 05900000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB 05910000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCSLIB 05920000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBSLIB 05930000
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE), 05940000
// DCB=(RECFM=FB,LRECL=80,DSORG=PO), 05950000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 05960000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB 05970000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SADBTLIB 05980000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P1.SGOCTLIB 05990000
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB 06000000
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE 06010000
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE), 06020000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 06030000
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K 06040000
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE), 06050000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO), 06060000
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K 06070000
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE), 06080000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 06090000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 06100000
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE), 06110000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 06120000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 06130000
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE), 06140000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS), 06150000
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K 06160000
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE), 06170000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 06180000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 06190000
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE), 06200000
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS), 06210000
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA 06220000
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 06230000
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA) 06240000
//SYSTSPRT DD SYSOUT=* 06250000
//SYSTSIN DD DUMMY 06260000
//SYSPRINT DD SYSOUT=* 06270000
//**********************************************************************06280000
//* END OF ISPF BATCH STEP SET UP 06290000
//**********************************************************************06300000
//***********************************************************ADB2WCL*** 06310000
//ADBWLCL DD DISP=SHR, 06320000
// DSN=DSN.DBA.DVTB.WSL 06330000
//ADBWL DD DISP=SHR, 06340000
// DSN=DSN.DBA.CLON.WSL 06350000
//MASKS DD DISP=SHR, 06360000
// DSN=DSN.DBX.MASK(DBAFDVTB) 06370000
//OVERWRTS DD DISP=SHR, 06380000
// DSN=DSN.DBA.OVER 06390000
//IN DD * 06400000
DB2SYS = DVTB, 06410000
CTLOVRID = N, 06420000
CTLCHGGR = N, 06430000
CTLPART = N, 06440000
// DD DISP=(SHR,PASS),DSN=*.INP.SYSUT2 06450000
// DD * 06460000
SRCWSLIB = 'DSN.DBA.CLON.WSL', 06470000
CLNWSLIB = 'DSN.DBA.DVTB.WSL', 06480000
GETMASKS = Y, 06490000
MSKDSNAM = N, 06500000
GETOVWTS = Y, 06510000
/* 06520000
}¢--- A540769.WK.JCL(DBQCOMP) cre=2007-11-26 mod=2007-11-26-10.02.11 F540769 ---
//A5407691 JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG,SYSTEM=S12
//*
//**********************************************************************
//*
//* DB2 OBJECT COMPARISON TOOL
//*
//* STEP T02DB2: EXTRACT DB2 CATALOG OBJECTS FOR TARGET
//*
//******************************************************GOCDB2**********
// IF (RC GT 7) THEN
// ELSE
//T02DB2 EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DQ0G)
RUN PROG(ADB2GEN) PLAN(A72) PARM('/WRTCAT,NOGEN,REBIND,')
END
//SYSPRINT DD SYSOUT=*
//SQLOUT DD DUMMY
//CAT DD DSN=DSN.DBA.WKOO010.TRG.VRS,
// DISP=(OLD,CATLG,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,10),RLSE),
// UNIT=DISK
//IN DD *
DB2SYS = 'DBAF',
DB2ALOC = 'CHSKA000DQ0G',
DB2SERV = 'CHSKA000DQ0G',
DB2AUTH = 'A540769',
DB2REL = '815',
GENDB = 'Y',
GENTS = 'Y',
GENTABLE = 'Y',
GENVIEW = 'Y',
GENINDEX = 'Y',
GENSYN = 'Y',
GENALIAS = 'Y',
GENLABEL = 'Y',
GENCOMM = 'Y',
GENRELS = 'D',
GENTRIG = 'Y',
GENSG = 'Y',
GRANTDB = 'Y',
GRANTTS = 'Y',
GRANTTAB = 'Y',
GRANTVW = 'Y',
GENUDT = 'N',
GENUDF = 'N',
GENSTP = 'N',
GENSEQ = 'N',
GRANTSCH = 'N',
GRANTUDT = 'N',
GRANTUDF = 'N',
GRANTSTP = 'N',
GRANTSEQ = 'N',
GRANTSG = 'Y',
NEWDB = '',
NEWTSSG = '',
NEWIXSG = '',
NEWSQLID = '',
NEWSCH = '',
SPCALLOC = 'DEFINED',
DESCRIPT = '',
TGTDB2 = '815';
DB='DGDB0187', TS='', OWN='', TB='';
// ENDIF
/*
//**********************************************************************
//*
//* DB2 OBJECT COMPARISON TOOL
//*
//* STEP T03COMP: COMPARE
//*
//***********************************************************GOCCMP*****
// IF (RC GT 7) THEN
// ELSE
//T03COMP EXEC PGM=GOC2CMP,PARM=('/;KEEPTGT,REORGM',
// 'RUNID(S100447),DACVE,')
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//REPORT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSOUT DD DUMMY
//MASKS DD DISP=SHR,
// DSN=DSN.DBX.MASK(TWALPROT)
//IGNORES DD DISP=SHR,
// DSN=DSN.DBX.MASK(IGNORE)
//SRC DD DISP=SHR,
// DSN=DSN.DBX.DBSRCCAT(OO010010)
//SRCSIN DD DSN=&SRCSIN,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//SRCSOUT DD DSN=&SRCSOUT,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//TGT DD DISP=SHR,
// DSN=DSN.DBA.WKOO010.TRG.VRS
//TGT2IN DD DISP=(SHR,PASS),
// DSN=*.TGT,VOL=REF=*.TGT
//TGTSIN DD DSN=&TGTSIN,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//TGTSOUT DD DSN=&TGTSOUT,DISP=(,DELETE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,20),RLSE),
// UNIT=DISK
//TGT2OUT DD DSN=*.TGTSOUT,VOL=REF=*.TGTSOUT,DISP=(SHR,DELETE)
//SRTBOUT DD DSN=&SRTBOUT,DISP=(,DELETE),
// SPACE=(CYL,(10,20),RLSE),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// UNIT=DISK
//CHANGES DD DSN=&TEMPCHG,
// DISP=(,PASS),
// DCB=(LRECL=16384,RECFM=VB,BLKSIZE=27998),
// SPACE=(CYL,(10,10),RLSE),
// UNIT=DISK
//IFF DD DSN=DSN.DBA.WKOO010Q.IFF,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=2048,RECFM=VB,BLKSIZE=27998,DSORG=PO),
// SPACE=(CYL,(2,2,60),RLSE),
// UNIT=DISK
// ENDIF
}¢--- A540769.WK.JCL(DBX) cre=2009-06-02 mod=2014-10-06-14.59.39 A540769 -------
//A540769W JOB (CP00,KE50),TIME=99
//*MAIN CLASS=LOG
//*
//IMP EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSIN DD DUMMY
//SYSTSIN DD *
%dbx ???? ren dbof
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=ORG.U0009.B0106.KIDI63.EXEC
}¢--- A540769.WK.JCL(DBXCSM) cre=2008-03-31 mod=2008-03-31-17.52.59 F540769 ----
//YDE05001 JOB (CP00,KE50),
// 'DB2',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//* Funktion version Auftrag DE05001C
//*** DB2 Catalog Objekte extrahieren für DBSRC ************************
//EXTDBSRC EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROG(ADB2GEN) PLAN(A72) PARM('/WRTCAT')
END
//ADBPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SQL DD DISP=SHR,DSN=A540769.DBX.DBSRCDDL(DE050010)
//CAT DD DISP=SHR,DSN=A540769.DBX.DBSRCCAT(DE050010)
//IN DD *
DB2SYS = 'DBAF',
DB2ALOC = 'CHSKA000DBAF',
DB2SERV = 'CHSKA000DBAF',
DB2AUTH = 'S100447',
DB2REL = '815',
GENDB = 'Y',
GENTS = 'Y',
GENTABLE = 'Y',
GENVIEW = 'D',
GENINDEX = 'Y',
GENSYN = 'Y',
GENALIAS = 'Y',
GENLABEL = 'Y',
GENCOMM = 'Y',
GENRELS = 'D',
GENTRIG = 'D',
GENSG = 'N',
GRANTDB = 'N',
GRANTTS = 'N',
GRANTTAB = 'N',
GRANTVW = 'N',
GENUDT = 'N',
GENUDF = 'N',
GENSTP = 'N',
GENSEQ = 'N',
GRANTSCH = 'N',
GRANTUDT = 'N',
GRANTUDF = 'N',
GRANTSTP = 'N',
GRANTSEQ = 'N',
GRANTSG = 'N',
NEWDB = '',
NEWTSSG = '',
NEWIXSG = '',
NEWSQLID = '',
NEWSCH = '',
SPCALLOC = 'DEFINED',
DESCRIPT = 'DBSRC DE05001C 0',
TGTDB2 = '815';
TYPE = 'DB', NAME = 'DGDB0260';
}¢--- A540769.WK.JCL(DBXIMP0) cre= mod=-. --------------------------------------
//A5407691 JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG *,SYSTEM=S12
//*
//**********************************************************ADB2CID*****
//* STEP REGISTER A CHANGE
//**********************************************************************
//**********************************************************************
//* STEP S01XMAS EXPORT MASK NOT GENERATED *
//**********************************************************************
//*
//************************************************************ADB2SPFB**
//* DB2 ADMIN ISPF BATCH
//**********************************************************************
//S02IMP EXEC PGM=IKJEFT01,
// REGION=0M,
// DYNAMNBR=100
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//* ISPSTART LOAD LIBRARY IS REQUIRED, EITHER ON STEPLIB OR LINK LIST
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
ISPSTART CMD( +
%ADBRPGM ADB ADB2CID DB2SYS(DBAF) +
PGMPARMS('PMODE=''''B'''',+
EMODE=''''B'''',+
PHASE=''''1'''',+
PCTABLE=''''ADBCIDT2'''',+
CTYPE=''''T'''',+
PCACT=''''SUPERSEDE''''')+
)
/*
//SYSPRINT DD SYSOUT=*
//**********************************************************************
//* END OF ISPF BATCH STEP SET UP
//**********************************************************************
//ADBDIAG DD SYSOUT=*
//XXXG001 DD DISP=SHR,
// DSN=DSN.DBX.CDL(LERZ0120)
//DCHG001 DD DISP=SHR,
// DSN=DSN.DBX.CDL(LERZ0121)
//PRMDDN2 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80)
//SYSIN DD *
INDDN='DCHG',
OUTDDN='PRMDDN2',
IGNOWN='',
IGNNAME='',
CHGOWN='A540769',
CHGNAME='LERZ0121-IMP-WK-1027',
CHGREM='',
VEROWN='A540769',
VERNAME='LERZ0121-IMP-WK-1027';
/*
}¢--- A540769.WK.JCL(DBXIMP1) cre=2008-10-27 mod=2008-10-27-17.52.12 F540769 ---
//YLERZ012 JOB (CP00,KE50),
// 'DB2',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//* Funktion import RZ1 Auftrag LERZ012C
//*********************************************************************
//* db2 Subsys DBAF
//* change LERZ012C.1.003.IMP
//* remark zs 29991114 auf LERZ012C 1 import DBX
//* deltaVers LERZ012C.1.003.DLT
//IMPDBAF EXEC PGM=IKJEFT01,
// REGION=0M,
// DYNAMNBR=100
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//* ISPSTART LOAD LIBRARY IS REQUIRED, EITHER ON STEPLIB OR LINK LIST
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
ISPSTART CMD( +
%ADBRPGM ADB ADB2CID DB2SYS(DBAF) +
PGMPARMS('PMODE=''''B'''',+
EMODE=''''B'''',+
PHASE=''''1'''',+
PCTABLE=''''ADBCIDT2'''',+
CTYPE=''''C'''',+
PCACT=''''SUPERSEDE''''')+
)
/*
//SYSPRINT DD SYSOUT=*
//ADBDIAG DD SYSOUT=*
//SRCDDN2 DD DISP=SHR,DSN=DSN.DBX.CDL(LERZ0121)
//PRMDDN2 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80)
//MSKDDN2 DD DISP=SHR,DSN=DSN.DBA.MASK.PROT.DBAF.PETRA
//SYSIN DD *
INDDN='SRCDDN2',
OUTDDN='PRMDDN2',
MSKDDN='MSKDDN2',
MSKOWN='DUMMY',
MSKNAME='DUMMY',
IGNOWN='DUMMY',
IGNNAME='DUMMY',
CHGOWN='S100447',
CHGNAME='LERZ012C.1.009.IMP-wk',
CHGREM='zs 29991114 auf LERZ012C 1 import DBX',
VEROWN='S100447',
VERNAME='LERZ012C.1.009.DLT-wk';
}¢--- A540769.WK.JCL(DBXIMP2) cre=2008-10-27 mod=2008-10-27-17.33.35 F540769 ---
//YLERZ012 JOB (CP00,KE50),
// 'DB2',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//* Funktion import RZ1 Auftrag LERZ012C
//*********************************************************************
//* db2 Subsys DBAF
//* change LERZ012C.1.003.IMP
//* remark zs 29991114 auf LERZ012C 1 import DBX
//* deltaVers LERZ012C.1.003.DLT
//IMPDBAF EXEC PGM=IKJEFT01,
// REGION=0M,
// DYNAMNBR=100
//SYSEXEC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCEXEC
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBEXEC
//SYSPROC DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCCLST
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBCLST
//ISPLLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=ISP.SISPLOAD ISPF BASE
//* ISPSTART LOAD LIBRARY IS REQUIRED, EITHER ON STEPLIB OR LINK LIST
//ISPMLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCMLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBMLIB
// DD DISP=SHR,DSN=ISP.SISPMENU
//ISPPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCPLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBPLIB
//ISPSLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCSLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBSLIB
//ISPTLIB DD DSN=&ISPTLIB,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCTLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBTLIB
// DD DISP=SHR,DSN=ISP.SISPTENU ISPF BASE
//ISPPROF DD DSN=&ISPPROF,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,5,10)),UNIT=SYSALLDA,AVGREC=K
//ISPFILE DD DSN=&ISPFILE,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PO),
// SPACE=(80,(1,10,10)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL0 DD DSN=&ISPCTL0,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL1 DD DSN=&ISPCTL1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPCTL2 DD DSN=&ISPCTL2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=7920,DSORG=PS),
// SPACE=(80,(0,5)),UNIT=SYSALLDA,AVGREC=K
//ISPWRK1 DD DSN=&ISPWRK1,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPWRK2 DD DSN=&ISPWRK2,DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FB,LRECL=256,BLKSIZE=256,DSORG=PS),
// SPACE=(CYL,(5,10)),UNIT=SYSALLDA
//ISPLOG DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
ISPSTART CMD( +
%ADBRPGM ADB ADB2CID DB2SYS(DBAF) +
PGMPARMS('PMODE=''''B'''',+
EMODE=''''B'''',+
PHASE=''''1'''',+
PCTABLE=''''ADBCIDT2'''',+
CTYPE=''''T'''',+
PCACT=''''SUPERSEDE''''')+
)
/*
//SYSPRINT DD SYSOUT=*
//ADBDIAG DD SYSOUT=*
//DCHG001 DD DISP=SHR,DSN=DSN.DBX.CDL(LERZ0121)
//PRMDDN2 DD DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80)
//MSKDDN2 DD DISP=SHR,DSN=DSN.DBA.MASK.PROT.DBAF.PETRA
//SYSIN DD *
INDDN='DCHG',
OUTDDN='PRMDDN2',
IGNOWN='DUMMY',
IGNNAME='DUMMY',
CHGOWN='S100447',
CHGNAME='LERZ012C.1.004.IMP-wk',
CHGREM='zs 29991114 auf LERZ012C 1 import DBX',
VEROWN='S100447',
VERNAME='LERZ012C.1.004.DLT-wk';
}¢--- A540769.WK.JCL(DBXSRCH) cre=2012-08-23 mod=2012-08-24-11.11.14 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0 00040001
//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,
// 'ANYC')
//NEWDD DD DSN=DSN.DBX.CDL,
// DISP=SHR
//OUTDD DD SYSOUT=(T)
//SYSIN DD *
SRCHFOR 'TIMESTAMP'
SELECT AC040020,AX010010,BV010020,CD010040,CD010041,CD020140
SELECT CD020141,CD020142,CD030200,CD030210,CZMIX020,DGMIX010
SELECT DG010490,DG010500,DG020080,DG020090,DI010010,DI050090
SELECT DP080120,DP080121,DP080122,DW100040,ER010330,ER010340
SELECT ER010341,EU040020,EU040021,EU990010,FI040520,FI040530
SELECT GM010080,KB010040,KC010090,KC010091,MARTIN00,MARTIN01
SELECT MARTIN10,MARTIN20,MF030030,MF030031,MF030032,MI010190
SELECT MI010191,MI010192,MI010193,NITRIG10,NI021740,NI021741
SELECT NI021750,NI021751,NI030030,NI030031,NI040030,NI040031
SELECT NI100340,NI100341,NI100342,NI100343,NI100344,NI100345
SELECT NI100346,NI100347,NI100348,NI100350,NI100351,NI100352
SELECT NI100353,NI100354,NI100360,OS030050,OZ010090,PC010320
SELECT RA01001A,RA01001B,RA01001C,RA010010,RA010011,RA010012
SELECT RA010013,RA010014,RA010015,RA010016,RA010017,RA010018
SELECT RA010019,RENI0010,RENI0011,RV010090,SU100010,SV100160
SELECT SV100161,TG010120,TG010121,TT010020,TT010021,TT010030
SELECT TT010031,TV010010,TV010011,UU020110,VV210050,VV240010
SELECT WA010380,WA010381,WB200030,WF010240,WI020330,WI020340
SELECT WI020350,WK099010,WK099011,WK099012,WK991012,WK991013
SELECT WK995010,WU100100,WU100101,WU100102,WU360010,WU360011
SELECT WU400180,WU400181,WU400182,WU400183,WU400190,WU400191
SELECT WU910010,WY400010,XB030510,XB030520,XR010230,XR010240
SELECT YN010030,YN010031,YN010032
}¢--- A540769.WK.JCL(DBXSRC2) cre=2012-08-27 mod=2012-08-27-17.40.19 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0 00040001
//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,
// 'ANYC')
//NEWDD DD DSN=DSN.DBX.CDL,
// DISP=SHR
//OUTDD DD SYSOUT=(T)
//SYSIN DD *
SRCHFOR 'NUMPARTS'
SELECT AC040020,AX010010,BV010020,CD010040,CD010041,CD020140
SELECT CD020141,CD020142,CD030200,CD030210,CZMIX020,DGMIX010
SELECT DG010490,DG010500,DG020080,DG020090,DI010010,DI050090
SELECT DP080120,DP080121,DP080122,DW100040,ER010330,ER010340
SELECT ER010341,EU040020,EU040021,EU990010,FI040520,FI040530
SELECT GM010080,KB010040,KC010090,KC010091,MARTIN00,MARTIN01
SELECT MARTIN10,MARTIN20,MF030030,MF030031,MF030032,MI010190
SELECT MI010191,MI010192,MI010193,NITRIG10,NI021740,NI021741
SELECT NI021750,NI021751,NI030030,NI030031,NI040030,NI040031
SELECT NI100340,NI100341,NI100342,NI100343,NI100344,NI100345
SELECT NI100346,NI100347,NI100348,NI100350,NI100351,NI100352
SELECT NI100353,NI100354,NI100360,OS030050,OZ010090,PC010320
SELECT RA01001A,RA01001B,RA01001C,RA010010,RA010011,RA010012
SELECT RA010013,RA010014,RA010015,RA010016,RA010017,RA010018
SELECT RA010019,RENI0010,RENI0011,RV010090,SU100010,SV100160
SELECT SV100161,TG010120,TG010121,TT010020,TT010021,TT010030
SELECT TT010031,TV010010,TV010011,UU020110,VV210050,VV240010
SELECT WA010380,WA010381,WB200030,WF010240,WI020330,WI020340
SELECT WI020350,WK099010,WK099011,WK099012,WK991012,WK991013
SELECT WK995010,WU100100,WU100101,WU100102,WU360010,WU360011
SELECT WU400180,WU400181,WU400182,WU400183,WU400190,WU400191
SELECT WU910010,WY400010,XB030510,XB030520,XR010230,XR010240
SELECT YN010030,YN010031,YN010032
}¢--- A540769.WK.JCL(DB2AP021) cre=2007-01-22 mod=2008-11-24-17.24.38 F540769 ---
//A540769Z JOB (CP00,KE50) 00010008
//*ROUTE XEQ RZ2 00020000
//A540769Z NJB (CP00,KE50) 00030008
//*MAIN CLASS=LOG 00040000
// SET DB=WQ01A1T 00050004
// SET SN1=A141A 00060001
// SET SN2=A143A 00070001
// SET DATE=2007022 00080003
//S1 EXEC PGM=IEFBR14 00090002
//U1 DD DSN=SHR21.DIV.P021.&DB..&SN1..D&DATE..UNL, 00100001
// DISP=(MOD,CATLG,DELETE), 00110005
// DATACLAS=NULL12,MGMTCLAS=COM#E008, 00120007
// SPACE=(CYL,(10,250)) 00130002
//U2 DD DSN=SHR21.DIV.P021.&DB..&SN2..D&DATE..UNL, 00140001
// DISP=(MOD,CATLG,DELETE), 00150005
// DATACLAS=NULL12,MGMTCLAS=COM#E008, 00160007
// SPACE=(CYL,(10,250)) 00170002
//P1 DD DSN=SHR21.DIV.P021.&DB..&SN1..D&DATE..UPU, 00180005
// DISP=(MOD,CATLG,DELETE), 00190005
// DATACLAS=NULL12,MGMTCLAS=COM#E008, 00200007
// SPACE=(CYL,(1,1)) 00210002
//P2 DD DSN=SHR21.DIV.P021.&DB..&SN2..D&DATE..UPU, 00220006
// DISP=(MOD,CATLG,DELETE), 00230005
// DATACLAS=NULL12,MGMTCLAS=COM#E008, 00240007
// SPACE=(CYL,(10,250)) 00250005
}¢--- A540769.WK.JCL(DB2BICO) cre=2007-01-08 mod=2016-10-24-13.42.26 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 ADMIN',
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,
// MSGCLASS=T,NOTIFY=&SYSUID
//* LIBRARY(PCL.U0000.P0.RZ4AKT.PERM.@008.DBR) -
//* LIBRARY('CMN.DIV.P0.QMSW.#000010.DBR') -
//* LIBRARY('PCL.U0000.P0.RZ4AKT.PERM.@008.DBR') -
//*
//E01 EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DE0G)
REBIND PACKAGE ( DSNREXX_500.DSNREXX.(V11R1) ) -
ENABLE ( CICS ) CICS(LOESCHEN) -
PLANMGMT(OFF)
//
REBIND PACKAGE ( DSNREXX_500.DSNREXX.(V11R1) ) -
ENABLE ( CICS ) CICS(LOESCHEN) -
PLANMGMT(EXTENDED)
//
REBIND PACKAGE ( DSNREXX_500.DSNREXX.(V11R1) ) -
SWITCH ( PREVIOUS )
//
BIND PACKAGE(DSNREXX_500) -
COPY(DSNREXCS.DSNREXX)-
COPYVER(V11R1) -
OWNER(S100447) -
EXPLAIN(Y) ACTION(ADD)
//
ENABLE ( CICS ) CICS(LOESCHEN,ABER,SUBITO)
ENABLE ( * )
ENABLE ( CICS ) CICS(LOESCHEN, ABER, SUBITO)
ENABLE ( DB2CALL)
ENABLE ( CICS ) CICS(DBADMIN,ISTAM,LOESCHEN)
//
FREE PACKAGE ( DSNREXX_500.DSNREXX.(V11R1) )
//
}¢--- A540769.WK.JCL(DB2CHECI) cre=2010-02-11 mod=2011-06-10-12.23.44 A540769 ---
//A540769C JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/20/2006.09.40.21
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
// PARM=(DBAF,'A540769C.CHECK'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
CHECK INDEX (ALL) TABLESPACE WM01A1A.A005A
SHRLEVEL REFERENCE
WORKDDN(TSYUTD)
SORTDEVT DISK -- SORTNUM 32
}¢--- A540769.WK.JCL(DB2CHECK) cre=2007-04-13 mod=2011-04-28-11.40.09 A540769 ---
//A540769C JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/20/2006.09.40.21
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
// PARM=(DBAF,'A540769C.CHECK'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
CHECK DATA
TABLESPACE CK01A1A.A050A ,
TABLESPACE CK01A1A.A053A ,
TABLESPACE CK01A1A.A054A ,
TABLESPACE CK01A1A.A055A ,
TABLESPACE CK01A1A.A056A ,
TABLESPACE CK01A1A.A057A ,
TABLESPACE CK01A1A.A060A ,
TABLESPACE CK01A1A.A062A ,
TABLESPACE CK01A1A.A063A ,
TABLESPACE CK01A1A.A065A ,
TABLESPACE CK01A1A.A066A ,
TABLESPACE CK01A1A.A071A
SHRLEVEL REFERENCE
SCOPE ALL
WORKDDN(TSYUTD, TSOUTD) ERRDDN TERRD
SORTDEVT DISK -- SORTNUM 32
}¢--- A540769.WK.JCL(DB2COPIX) cre=2008-03-27 mod=2008-03-27-17.10.38 F540769 ---
//A540769F JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S14
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBAF,A540769F.FULCOPY'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TCOPYT DSN('&SSID..&DB..&SN..P&PART(2)..D&DATE(3)..T&TIME.')
UNIT 3490
RETPD 23
STACK YES
LISTDEF C#LIST 00010000
INCLUDE TABLESPACE DA540769A.A011*
INCLUDE INDEX A540769A.IWK011*
COPY LIST C#LIST COPYDDN(TCOPYD) SHRLEVEL CHANGE 00040000
//*
}¢--- A540769.WK.JCL(DB2COPPR) cre=2008-07-04 mod=2008-07-04-09.48.13 F540769 ---
//A540769F JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S14
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBTF,A540769F.FULCOPY,PREVIEW'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=A540769.WK.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
-- OPTIONS PREVIEW
TEMPLATE TCOPYX DSN('&SSID..&DB..&SN..P&PART..&UNIQ.')
DATACLAS(ENN0X) MGMTCLAS(SUB#ADB1) STORCLAS(FAR$N)
SPACE TRK UNCNT 59
LISTDEF C#LIST 00010000
INCLUDE TABLESPACE MF01A1T.A150A
COPY LIST C#LIST COPYDDN(TCOPYX)
PARALLEL(10)
SHRLEVEL CHANGE
//*
}¢--- A540769.WK.JCL(DB2COPY) cre=2006-05-22 mod=2014-04-01-14.42.28 A540769 ---
//A540769L JOB (CP00,KE50),'DB2 COPY',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0 SYSTEM=S14
//P02 EXEC PGM=DSNUTILB,
// PARM='DP4G,A540769F.FULCOPL'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TCOPYX DSN('&SSID..&DB..&SN(1,7)..P&PART..T&TIME.')
DATACLAS(ENN35) MGMTCLAS(COM#A041) STORCLAS(FAR$N)
SPACE (1500,10000) TRK
LISTDEF C#LIST 00010000
INCLUDE TABLESPACE DA540769.* PARTLEVEL 8620
OPTIONS EVENT(ITEMERROR, SKIP)
COPY LIST C#LIST COPYDDN(TCOPYD, TCOPYD)
RECOVERYDDN(TCOPYD, TCOPYD)
PARALLEL
-- CHANGELIMIT (0, 0.5) -- REPORTONLY
SHRLEVEL CHANGE
//*
}¢--- A540769.WK.JCL(DB2COPYT) cre=2008-08-05 mod=2008-11-24-17.24.39 F540769 ---
//A540769F JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S14
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBTF,A540769F.FULCOPY'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=A540769.WK.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TCOPXX DSN('&SSID..&DB..&SN..P&PART(2)..D&DATE(3)..T&TIME.')
MAXPRIME 1000 UNCNT 59 DATACLAS NULL30 -- ENN0X
MGMTCLAS COM#A041 STORCLAS FAR$N
LISTDEF C#LIST 00010000
INCLUDE TABLESPACE DA167274.STAB3 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA234579.A012A PARTLEVEL 1 -- <<null>>
INCLUDE TABLESPACE DA234579.A012A PARTLEVEL 2 -- <<null>>
INCLUDE TABLESPACE DA234579.A012A PARTLEVEL 3 -- <<null>>
INCLUDE TABLESPACE DA234579.A012A PARTLEVEL 4 -- <<null>>
INCLUDE TABLESPACE DA234579.A012A PARTLEVEL 5 -- <<null>>
INCLUDE TABLESPACE DA234579.A012A PARTLEVEL 6 -- <<null>>
INCLUDE TABLESPACE DA234579.A055A PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA234579.A103ALOB PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA234579.DSNLOBTS PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA234579.DSNSUMTS PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA234579.REORG1 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA234579.UTLIST PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA234579.UTLISTE PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA234579.UTTEMPLA PARTLEVEL 0 -- <<null>>
-- || INCLUDE TABLESPACE DA335634.A150A PARTLEVEL ** -- <<null>>
-- || INCLUDE TABLESPACE DA335634.A150B PARTLEVEL ** -- <<null>>
INCLUDE TABLESPACE DA335634.A150D PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA335634.A150E PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA335634.A150F PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA335634.TEST PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA335634.TMF150C1 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA335634.TMF410L1 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA335634.T401C PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 1 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 10 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 100 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 101 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 102 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 103 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 104 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 105 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 106 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 107 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 108 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 109 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 11 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 110 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 111 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 112 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 113 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 114 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 115 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 116 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 117 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 118 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 119 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 12 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 120 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 121 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 122 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 123 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 124 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 125 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 126 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 127 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 128 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 129 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 13 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 130 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 131 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 132 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 133 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 134 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 135 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 136 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 137 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 138 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 139 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 14 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 140 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 141 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 142 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 143 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 144 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 145 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 146 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 147 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 148 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 149 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 15 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 150 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 151 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 152 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 153 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 154 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 155 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 156 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 157 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 158 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 159 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 16 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 160 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 161 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 162 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 163 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 164 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 165 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 166 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 167 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 168 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 169 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 17 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 170 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 171 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 172 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 173 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 174 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 175 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 176 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 177 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 178 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 179 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 18 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 180 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 181 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 182 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 183 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 184 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 185 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 186 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 187 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 188 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 189 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 19 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 190 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 191 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 192 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 193 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 194 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 195 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 196 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 197 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 198 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 199 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 2 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 20 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 200 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 201 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 202 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 203 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 204 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 205 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 206 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 207 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 208 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 209 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 21 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 210 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 211 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 212 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 213 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 214 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 215 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 216 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 217 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 218 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 219 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 22 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 220 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 221 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 222 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 223 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 224 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 225 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 226 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 227 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 228 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 229 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 23 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 230 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 231 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 232 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 233 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 234 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 235 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 236 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 237 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 238 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 239 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 24 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 240 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 241 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 242 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 243 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 244 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 245 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 246 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 247 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 248 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 249 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 25 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 250 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 251 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 252 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 253 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 254 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 26 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 27 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 28 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 29 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 3 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 30 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 31 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 32 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 33 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 34 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 35 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 36 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 37 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 38 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 39 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 4 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 40 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 41 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 42 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 43 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 44 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 45 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 46 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 47 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 48 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 49 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 5 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 50 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 51 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 52 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 53 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 54 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 55 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 56 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 57 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 58 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 59 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 6 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 60 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 61 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 62 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 63 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 64 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 65 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 66 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 67 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 68 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 69 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 7 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 70 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 71 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 72 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 73 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 74 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 75 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 76 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 77 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 78 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 79 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 8 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 80 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 81 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 82 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 83 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 84 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 85 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 86 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 87 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 88 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 89 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 9 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 90 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 91 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 92 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 93 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 94 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 95 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 96 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 97 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 98 -- <<null>>
INCLUDE TABLESPACE DA914227.A020A PARTLEVEL 99 -- <<null>>
INCLUDE TABLESPACE DA914227.A026A PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA979074.ADDLA PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA979074.ATTTA PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA979074.A033A PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA979074.A150T PARTLEVEL 1 -- <<null>>
INCLUDE TABLESPACE DA979074.A150T PARTLEVEL 2 -- <<null>>
INCLUDE TABLESPACE DA979074.A150T PARTLEVEL 3 -- <<null>>
INCLUDE TABLESPACE DA979074.E2 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA979074.S8 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA979074.S9 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA979074.TTIME01 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA979074.U3 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.KEM4000S PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB01 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB02 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB03 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB04 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB05 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB06 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB07 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB08 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB09 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB10 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB11 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB12 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB13 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB14 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB15 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.MAPTAB16 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00202P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00203P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00302P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00303P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00304P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00305P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00306P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00307P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00308P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00309P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00310P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00311P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00312P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00313P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00314P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00315P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00316P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR00901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR01001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR01101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR01201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR01202P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR01203P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR01401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR01501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR01601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR01701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR01702P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR01901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02602P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02603P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02604P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02605P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02606P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02607P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02608P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02609P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR02901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR03002P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR03101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR03401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR03501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR03701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR03801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR03902P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04002P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04003P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04004P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04005P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04402P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04403P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04404P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04405P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04406P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04407P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04408P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04409P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04410P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04411P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04412P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04413P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04414P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04415P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR04901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05502P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05702P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05703P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05704P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05705P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05706P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05707P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05708P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05709P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05802P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05902P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05903P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05904P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR05905P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06802P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06803P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06804P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06805P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06806P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06807P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06808P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR06901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR07101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR07201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR07302P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR07501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR07601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR07701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR07801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR08001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR08301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR08501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR08601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR08701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR08901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR08902P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR08903P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR08904P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR08905P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR08909P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR09201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR09301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR09401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR09501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR09601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR09701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR09901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR10201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR10301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR10401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR10701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR10802P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11002P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11302P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11702P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11703P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11704P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11705P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11706P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11707P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11708P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11709P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11710P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR11801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR12101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR12102P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR12301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR12401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR12501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR12506P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR12507P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR12512P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR12513P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR12518P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR12602P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR13001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR13101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR13201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR13601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR13801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR13802P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR13901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR14801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR14802P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR14803P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR14901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR14902P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR14903P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR14904P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR14905P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR14906P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR14907P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15002P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15003P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15004P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15502P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15503P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15602P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15603P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15702P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15703P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR15901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16002P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16003P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16004P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16102P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16103P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16104P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16105P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16110P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16111P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16121P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16131P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16141P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16151P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16161P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16171P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16181P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16191P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR16401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR17401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR17702P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR17801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR18201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR18701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR18901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR19001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR19002P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR19101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR19401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR19501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR19601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR19901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR20001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR20101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR20401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR20501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR20601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR20602P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR20603P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR20701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR21301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR21401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR21801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR22001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR22501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR22601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR22801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR23302P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR23401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR23402P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR23601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR24801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR24901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR25001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR25101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR25201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR25301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR25501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR25601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR26201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR26801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR26901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR27001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR27301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR27401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR27501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR27601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR27701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR27901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR28401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR28902P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR29101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR29201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR29202P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR29203P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR29204P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR29205P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR29301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR29401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR29501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR29801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR29901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30402P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30403P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30404P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30405P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30602P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30603P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30604P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30605P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30606P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30607P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR30902P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31102P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31103P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31702P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31703P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31704P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31705P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31706P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31707P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31708P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31709P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31710P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31711P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR31901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR32001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR32101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR32201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR32701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR33101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR35002P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR35007P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR35009P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR35011P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR35013P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR35015P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR35016P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR35401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR38001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR383T1P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR38301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR38701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR38702P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR38703P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR38704P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR38705P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR38706P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR39501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR39601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR39701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR39801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR40902P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR41301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR41401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR41501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR41701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR41801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR41901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR41902P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR41903P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR42001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR42002P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR42101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR42201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR42301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR42401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR42501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR42601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR42701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR42901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR43001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR43201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR43301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR43401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR43501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR43601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR43701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR43702P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR43703P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR43704P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR43901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR44201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR44501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR44701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR44801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR44901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR45001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR45301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR45601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR45801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR45901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR46001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR46101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR46201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR46301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR46401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR46701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR47701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR48201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR48301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR48701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR48901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR49201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR494T1P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR49401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR49801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR49802P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR49803P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR49804P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR50101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR50106P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR50301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR50501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51502P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51503P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51504P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51505P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51506P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51507P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51508P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51509P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51510P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51511P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51512P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51513P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51514P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51515P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51516P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51517P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51518P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51519P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51520P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51521P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51522P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51523P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51524P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51525P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51526P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51527P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51529P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51530P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51531P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR51532P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR57101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR57103P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR57104P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR57106P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR575L1P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR575T1P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR581T1P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR582T1P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR583T1P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR584T1P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR585T1P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR586T1P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR587T1P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR588T6P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR61901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR63701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR63801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR63901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR64001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR64201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR64401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR64501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR64701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR65201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR65401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR66201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR66301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR66401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR66601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR66701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR66801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR66901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR67001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR67101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR67501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR67601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR67701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR67801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR68001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR68201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.QR68301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.SNM9000P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.SNM9100P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP.SNM9200P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR00205P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR03201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR03202P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR03203P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR03204P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR03205P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR03206P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR03207P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR03301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR03901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR04702P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR05301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR05402P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR05601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR07001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR07901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR08101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR08201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR08801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR10101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR10901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12502P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12503P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12504P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12505P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12508P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12509P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12510P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12511P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12514P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12515P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12516P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12517P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12520P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12521P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12522P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12523P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12526P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12527P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12528P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12529P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12531P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12532P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12533P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12534P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12536P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12537P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12538P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12539P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12542P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12543P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12544P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12545P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12548P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12549P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12550P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12551P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12554P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12555P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12556P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12557P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12560P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12561P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12562P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12563P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12565P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12566P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12567P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR12568P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR13602P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR13603P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR13604P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR13605P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR13606P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR13607P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR13608P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR13609P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR13610P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR13611P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR13612P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR16401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR17101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR17201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR17301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR18101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR19301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR19502P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20802P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20803P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20804P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20805P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20806P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20807P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20808P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20809P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20810P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20811P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20812P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20813P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20814P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20815P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20816P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20817P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20818P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR20819P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR21201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR27201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR28402P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR29601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR30001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR30701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR30901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR31001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR38201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR38202P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR38203P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR38204P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR38205P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR38206P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR38707P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR38708P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR38709P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR42001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR43801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR44802P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR44803P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR44804P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR44805P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR44806P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR44807P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR45701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR48101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR48901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR49701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR51101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR51801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR51901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR52001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR52101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR53101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR53102P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR53103P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR53201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR53401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR53601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR53701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR54501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR54502P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR54601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR54701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR54702P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR55001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR55201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR55301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR55401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR55501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR55601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR55701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR55801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR55901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR56101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR56201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR56301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR56401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR56701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR56801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR57001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR57201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR57301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR57302P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR57303P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR57401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR57501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR57701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR57801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR57901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR58001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR58101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR58201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR58301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR58401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR58501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR58601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR58701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR588T1P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR58801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR58806P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR58901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59402P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59403P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59404P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59405P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59406P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59407P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR59901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR60001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR60101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR60201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR60301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR60401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR60501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR60601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR60701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR60901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR61001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR61101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR61201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR61301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR61401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR61701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR61801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR62101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR62201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR62301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR62401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR62701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR62801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR62901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR63001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR63101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR63201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR63301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR63401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR63501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP1.QR63601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR02401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR02701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR02702P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR03208P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR03209P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR03210P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR03211P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR03212P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR04101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR04201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05403P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05503P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05504P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05505P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05506P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05507P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05508P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05509P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05510P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05511P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05512P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05513P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05514P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05515P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05803P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05804P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05805P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05806P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05807P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05808P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05809P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05810P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05811P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05812P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05813P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05814P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05815P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05816P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05817P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05818P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05819P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR05820P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR06101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR07401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR07402P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR08401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR09001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR10501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR10601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR11901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR12201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR12569P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR12570P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR12571P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR12572P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR12573P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR12574P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR12575P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR12576P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR12577P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR12601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR12701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR16801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR17701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR25901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR44101P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR47801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR47901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR48001P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR48501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR48601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR48801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR49301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR49901P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR51528P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR51701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR52201P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR52301P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR52401P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR52501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR52601P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR52701P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR52801P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DB2MAPP2.QR53501P PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DF299050.SPL004A1 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DF299050.SPL005A1 PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DA540769.A562A PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSNTESQ.DSNQDBA PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSNTESQ.DSNQDBS PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSNTESQ.DSNQGPA PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSNTESQ.DSNQGRP PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSNTESQ.DSNQOBJ PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSNTESQ.DSNQPKG PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSNTESQ.DSNQPLN PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSNTESQ.DSNQVWS PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSN8DUPL.DSN8DUPL PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSN8D71A.SYSPACKD PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSN8D71A.SYSPACKL PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSN8D71A.SYSPACKS PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSN8D71A.SYSPKSYS PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSN8D71A.SYSPLSYS PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSN8D71A.SYSPROCE PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSN8D81A.DSN8S81R PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSN8D81A.DSN8S81S PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSN8D81P.DSN8S81Q PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSN8D81U.NEWDEPT PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DSN8D81U.NEWPHONE PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DS100447.DSNRVIEW PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DS100447.SCMNBAS PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DS100447.SMODLDT PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DS100447.SPACKAGE PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DS100447.SPKGFREE PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DS100447.SPKGUSED PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE DS100447.SRCVINFO PARTLEVEL 0 -- <<null>>
INCLUDE TABLESPACE VK01A1T.A600A PARTLEVEL 0 -- 2008-07-29-10.35.09.645363
COPY LIST C#LIST COPYDDN(TCOPYD)
PARALLEL(50)
SHRLEVEL CHANGE
//*
}¢--- A540769.WK.JCL(DB2DIS) cre=2012-05-09 mod=2012-05-09-18.02.41 A540769 ----
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0,DEADLINE=(30M,A),HOLD=YES
//P04 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DBOC)
-DIS DB(DCMN050) SPACENAM(*) restrict LIMIT(*)
-DIS DB(DCMN050) SPACENAM(*) LIMIT(*)
END
sub WK.JCL(DB2DIS)
}¢--- A540769.WK.JCL(DB2DROP) cre=2007-06-14 mod=2007-06-15-09.44.31 F540769 ---
//YDROPXX1 JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=???
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//**********************************************************************
//*
//* DB2 ADMIN GENERATED JOB
//*
//**********************************************************************
//*
//***********************************************************ADB2GEN***
//* STEP GENSQL: GENERATE SQL FROM DB2 CATALOG
//**********************************************************************
//SQL EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBLF)
RUN PROG(ADB2GEN) PLAN(ADB2GEN)
END
/*
//SYSPRINT DD SYSOUT=*
//SQL DD DISP=SHR,
// DSN=DSN.DROP.DBLF.JCL(BJAADDL)
//IN DD *
DB2SYS = 'DBLF',
DB2ALOC = '',
DB2SERV = 'CHSKA000DBLF',
DB2AUTH = 'S100447',
DB2REL = '815',
RUNSQLID = 'S100447',
GENSG = 'N',
GENDB = 'Y',
GENTS = 'Y',
GENTABLE = 'Y',
GENVIEW = 'D',
GENINDEX = 'Y',
GENSYN = 'Y',
GENALIAS = 'Y',
GENLABEL = 'Y',
GENCOMM = 'Y',
GENRELS = 'D',
GRANTDB = 'N',
GRANTTS = 'N',
GRANTTAB = 'N',
GRANTVW = 'N',
GRANTSG = 'N',
NEWDB = '',
NEWTSSG = '',
NEWIXSG = '',
NEWSQLID = '',
NEWGRANTOR = '',
SPCALLOC = 'DEFINED',
TGTDB2 = '';
DB='BJA10001';
DB='BJA20001';
DB='BJA30001';
DB='BJA40001';
DB='BJA50001';
DB='BJA60001';
DB='BJA70001';
DB='BJA80001';
/*
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
// IF RC = 0 THEN
//UNLO EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBLF,'A540769.UNLOAD'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBLF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF LL INCLUDE TABLESPACE BJA10001.*
INCLUDE TABLESPACE BJA20001.*
INCLUDE TABLESPACE BJA30001.*
INCLUDE TABLESPACE BJA40001.*
INCLUDE TABLESPACE BJA50001.*
INCLUDE TABLESPACE BJA60001.*
INCLUDE TABLESPACE BJA70001.*
INCLUDE TABLESPACE BJA80001.*
UNLOAD LIST LL
PUNCHDDN TPUNCH UNLDDN TSRECD
SHRLEVEL REFERENCE
QUIESCE LIST LL
MODIFY RECOVERY
LIST LL
DELETE AGE (*)
COPY
LIST LL
COPYDDN(TCOPYD) FULL YES
// IF RC <= 4 THEN
//FREE EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DBLF)
// DD DISP=SHR,DSN=DSN.DROP.DBLF.JCL(BJAAFREE)
// IF RC <= 4 THEN
//DROP EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBLF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*YSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
SET CURRENT SQLID = 'S100447';
// DD *
SET CURRENT SQLID = 'S100447';
// DD DISP=SHR,DSN=DSN.DROP.DBLF.JCL(BJAAALDR)
// DD *
DROP DATABASE BJA10001 ;
COMMIT;
DROP DATABASE BJA20001 ;
COMMIT;
DROP DATABASE BJA30001 ;
COMMIT;
DROP DATABASE BJA40001 ;
COMMIT;
DROP DATABASE BJA50001 ;
COMMIT;
DROP DATABASE BJA60001 ;
COMMIT;
DROP DATABASE BJA70001 ;
COMMIT;
DROP DATABASE BJA80001 ;
COMMIT;
// ENDIF
// ENDIF
// ENDIF
}¢--- A540769.WK.JCL(DB2DSN) cre=2006-06-23 mod=2014-04-22-10.17.14 A540769 ----
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//P04 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//BINDLOG DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//SYSTSIN DD *
DSN SYS(DP4G)
-dis group
end
/* beginRzPgm RZY/DE0G ALAB@01.01.2014 PGM2
/* 1 binds in 1 locations
/* id 183 ABC4567890@2014-04-22-10.14.17.604397
dsn system(DE0G)
bind package(PG) -
member(PGM2) -
qualifier(OA1P) -
OWNER(CMNBATCH) -
ISOLATION(CS) -
DEGREE(1) -
DYNAMICRULES(BIND) -
VALIDATE(BIND) -
EXPLAIN(YES) -
FLAG(I) -
sqlError(noPackage) -
action(replace) -
/* end RZY/DE0G ALAB@01.01.2014 .PG.PGM2
end
/* beginRzPgm RZY/DE0G ALAB@01.01.2014 YAVMUR
/* 31 binds in 1 locations
/* id 182 ABC4567890@2014-04-22-10.14.17.604397
dsn system(DE0G)
bind package(AV01) -
member(YAVMUR) -
qualifier(OA1P01) -
OWNER(CMNBATCH) -
ISOLATION(CS) -
DEGREE(1) -
DYNAMICRULES(BIND) -
VALIDATE(BIND) -
EXPLAIN(YES) -
FLAG(I) -
sqlError(noPackage) -
action(replace) -
/* end RZY/DE0G ALAB@01.01.2014 .AV01.YAVMUR
/* beginRzPgm RZY/DE0G appl@17.04.2014 MF5000
/* 1 binds in 1 locations
/* id 169 A540769@2014-04-17-14.01.35.259963
dsn system(DP4G)
bind package(MF) -
member(MF5000) -
qualifier(OA1P) -
OWNER(CMNBATCH) -
ISOLATION(CS) -
DEGREE(1) -
DYNAMICRULES(BIND) -
VALIDATE(BIND) -
EXPLAIN(YES) -
FLAG(I) -
sqlError(noPackage) -
action(replace) -
/* end RZY/DE0G appl@17.04.2014 .MF.MF5000
end
/* id 170 A540769@2014-04-17-14.01.35.259963
dsn system(DP4G)
rebind package (AU.YAU5070+
.(*)) -
qualifier(OA1P) -
OWNER(CMNBATCH) -
ISOLATION(CS) -
DEGREE(1) -
DYNAMICRULES(BIND) -
VALIDATE(BIND) -
EXPLAIN(YES) -
FLAG(I) -
/* end RZX/DE0G appl@17.04.2014 .AU.YAU5070
end
und weiter
}¢--- A540769.WK.JCL(DB2D1COP) cre=2006-08-31 mod=2016-08-24-11.39.27 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 ADMIN',
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,
// MSGCLASS=T,NOTIFY=&SYSUID
//*
//P02 EXEC PGM=DSN1COPY,
//* PARM='INLCOPY,PAGESIZE(32K),DSSIZE(64G),RESET,OBIDXLAT'
//* PARM='FULLCOPY,PAGESIZE(4K),DSSIZE(32G),NUMPARTS(8)'
// PARM='INLCOPY,PAGESIZE(32K),OBIDXLAT,CHECK'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DE0G.WU20A1P.A291A.P00001.FUA64NZ5
//SYSUT2 DD DISP=OLD,DSN=DE0G.DSNDBC.WU20A1P.A291A.I0001.A001
//SYSXLAT DD *
769,769
29,29
44,46
}¢--- A540769.WK.JCL(DB2D1PRT) cre=2007-09-13 mod=2016-09-02-08.27.50 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 ADMIN', 00010002
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL, 00020004
// MSGCLASS=T,NOTIFY=&SYSUID 00021002
//*
// SET I='8K,FULLCOPY,DSSIZE(16G),NUMPARTS(100)'
// SET I='PAGESIZE(8K)'
// SET I='FULLCOPY,NUMPARTS(8)'
// SET I='NUMPARTS(8)'
// SET I='PAGESIZE(4K),NUMPARTS(418),LARGE'
// SET I='PAGESIZE(32K),NUMPARTS(5),DSSIZE(1G)'
//P02 EXEC PGM=DSN1PRNT,
// PARM='&I,PRINT,FORMAT,EXPAND'
//* RID =00000B0D03
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DP4G.DSNDBD.QZ92A1T.IM2UTSA2.I0001.A004
//
//P03 EXEC PGM=DSN1PRNT,
// PARM='&I,PRINT(9E00000,9E00003),FORMAT,EXPAND'
//* RID =00000B0D03
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DBAF.DSNDBD.FI02A1A.A610A.I0001.A159
//P04 EXEC PGM=DSN1PRNT,
// PARM='&I,PRINT(1A000000,1A000003),FORMAT,EXPAND'
//* RID =00000B0D03
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DBAF.DSNDBD.FI02A1A.A610A.I0001.A417
//P05 EXEC PGM=DSN1PRNT,
// PARM='&I,PRINT(1A100000,1A100003),FORMAT,EXPAND'
//* RID =00000B0D03
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DBAF.DSNDBD.FI02A1A.A610A.I0001.A418
}¢--- A540769.WK.JCL(DB2EXT) cre=2008-02-04 mod=2008-02-04-15.24.17 F540769 ----
$*( create jobs to extract versions and ddl
from all databases
$*)
$=subsys=DBTF
$=toolPref = DSN.TOOLS
$=outPre = A540769.DBEXT.
$=rz £ sysvar(sysnode)
call adrSqlConnect $subsys
$;
$<<¢sql
select count(*) cnt, dbname db
from sysibm.systables
where type = 'T'
and not (dbname like 'BJAA%' or dbname like 'BJBA%'
or dbname like 'DSNDB%' or dbname like 'IDT%'
or translate(substr(dbname, 3), ' ', '01234567890') = '')
group by dbname
order by 2 asc
sql call sql 7
$¨ dx=0
$=jobNo=0
$@for v $@{ dx=dx+1
if dx // 100 = 1 then $@¢
$=jobNo £ $jobNo + 1
//A540769E JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
$!
$@¢
//*** DB2 Catalog Objekte extrahieren für db ${v.DB} with ${v.CNT} TB **
//EXT$(dx$) EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=${toolPref}.${rz}.P0.SGOCLLIB
// DD DISP=SHR,DSN=${toolPref}.${rz}.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.${rz}.P0.DSNLOAD
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM($subsys)
RUN PROG(ADB2GEN) PLAN(A72) PARM('/WRTCAT')
END
//ADBPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SQL DD DISP=SHR,DSN=${outPre}DDL(${v.DB})
//CAT DD DISP=SHR,DSN=${outPre}CAT(${v.DB})
//IN DD *
DB2SYS = '$subsys',
DB2ALOC = 'CHSKA000$subsys',
DB2SERV = 'CHSKA000$subsys',
DB2AUTH = 'S100447',
DB2REL = '815',
GENDB = 'Y',
GENTS = 'Y',
GENTABLE = 'Y',
GENVIEW = 'D',
GENINDEX = 'Y',
GENSYN = 'Y',
GENALIAS = 'Y',
GENLABEL = 'Y',
GENCOMM = 'Y',
GENRELS = 'D',
GENTRIG = 'D',
GENSG = 'N',
GRANTDB = 'N',
GRANTTS = 'N',
GRANTTAB = 'N',
GRANTVW = 'N',
GENUDT = 'N',
GENUDF = 'N',
GENSTP = 'N',
GENSEQ = 'N',
GRANTSCH = 'N',
GRANTUDT = 'N',
GRANTUDF = 'N',
GRANTSTP = 'N',
GRANTSEQ = 'N',
GRANTSG = 'N',
NEWDB = '',
NEWTSSG = '',
NEWIXSG = '',
NEWSQLID = '',
NEWSCH = '',
SPCALLOC = 'DEFINED',
DESCRIPT = 'extract db ${v.DB} from $subsys',
TGTDB2 = '815';
TYPE='DB',NAME='${v.DB}';
$!
$}
$>~tmp.jcl(db2exto)
$;
$£ dx 'dbs'
call adrSqlDisConnect
$***out 20080204 15:22:53
}¢--- A540769.WK.JCL(DB2LIST) cre=2008-02-29 mod=2014-11-26-17.08.18 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//*
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DP4G,'A540769S.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DP4G.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS PREVIEW
LISTDEF OBJ
INCLUDE TABLESPACE QTXDBX.AEW55A PARTLEVEL
LISTDEF WILD
INCLUDE TABLESPACE QTXDBX.AE* PARTLEVEL
}¢--- A540769.WK.JCL(DB2LIST2) cre=2011-12-13 mod=2011-12-13-17.37.39 A540769 ---
//A540769S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG SYSTEM=S01
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'A540769S.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBTF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS PREVIEW
LISTDEF TS#LIST
INCLUDE TABLESPACE MF01A1T.A150A PARTLEVEL
LISTDEF IX#LIST
INCLUDE INDEX OA1T.IMF150* PARTLEVEL
//STEP2 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'A540769S.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBTF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS PREVIEW
LISTDEF TS#LIST
INCLUDE TABLESPACE MF01A1T.A150A PARTLEVEL
LISTDEF IX#LIST
INCLUDE INDEXSPACES LIST TS#LIST
}¢--- A540769.WK.JCL(DB2LOACU) cre=2006-07-03 mod=2015-02-11-11.57.29 A540769 ---
//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
//SYSMAP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
DECLARE CUR1 CURSOR FOR
SELECT *
FROM CMNBATCH.PLAN_TABLE
ENDEXEC
LOAD DATA INCURSOR CUR1 LOG NO RESUME NO REPLACE
COPYDDN TCOPYS STATISTICS INDEX ALL KEYCARD
SORTDEVT DISK
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE A540769.PLAN_TABLE
}¢--- A540769.WK.JCL(DB2LOAD) cre=2006-05-22 mod=2016-10-20-09.56.12 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 ADMIN',
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,
// MSGCLASS=T,NOTIFY=&SYSUID
//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 *
//SYSIN DD *
LOAD INDDN DDI1 LOG NO RESUME YES
INTO TABLE QTXCRX.TEW55A
}¢--- A540769.WK.JCL(DB2LOADI) cre=2011-01-11 mod=2012-02-03-13.00.39 A540769 ---
//A540769L JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG ,SYSTEM=S14
//S1 EXEC PGM=DSNUTILB,PARM='DBTF,A540769L.LOAD' 00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//*YSTEMPL DD DSN=A540769.WK.LISTDEF(TEMPL),DISP=SHR
//INDUMMY DD DUMMY
//SYSIN DD *
COPY TABLESPACE D??1A1T.A121A DSNUM 27 COPYDDN(TCOPYD)
FULL YES SHRLEVEL REFERENCE
LOAD DATA LOG NO
WORKDDN(TSYUTS, TSOUTS)
COPYDICTIONARY 26
INTO TABLE OA1T.TDG121A1 PART 27 INDDN INDUMMY
RESUME NO REPLACE COPYDDN(TCOPYS)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
}¢--- A540769.WK.JCL(DB2LOADP) cre=2010-01-22 mod=2011-03-02-17.22.54 A540769 ---
//A540769U JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,REGION=0M,
// PARM=(DBAF,'A540769U.LOAD'),
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE DDIN
DSN('DBAF.DA540769.APER09.P&PA..D110222.REC')
LOAD DATA LOG NO
STATISTICS INDEX(ALL KEYCARD) REP3RT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
SORTDEVT DISK
-- SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE
"A540769".
"TPER09"
PART 00001 RESUME NO REPLACE COPYDDN(TCOPYD) INDDN DDIN
WHEN(00001:00002) = X'0304'
NUMRECS 351
( "PART"
POSITION( 00003:00006) INTEGER
, "TST"
POSITION( 00007:00032) TIMESTAMP EXTERNAL
, "TEXT"
POSITION( 00033:02034) VARCHAR
)
INTO TABLE
"A540769".
"TPER09"
PART 00002 RESUME NO REPLACE COPYDDN(TCOPYD) INDDN DDIN
WHEN(00001:00002) = X'0304'
NUMRECS 351
( "PART"
POSITION( 00003:00006) INTEGER
, "TST"
POSITION( 00007:00032) TIMESTAMP EXTERNAL
, "TEXT"
POSITION( 00033:02034) VARCHAR
)
}¢--- A540769.WK.JCL(DB2LOADU) cre=2006-09-15 mod=2013-09-23-16.26.14 A540769 ---
//A540769L JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG SYSTEM=S14
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//INDUMMY DD DUMMY
//SYSIN DD *
LISTDEF TLST
INCLUDE TABLE A540769.TWK927A1 PARTLEVEL 2
INCLUDE TABLE A540769.TWK927A1 PARTLEVEL 4
UNLOAD LIST TLST
PUNCHDDN TPUNCH UNLDDN TSRECD
SHRLEVEL REFERENCE
LOAD DATA LOG NO
WORKDDN(TSYUTS, TSOUTS)
STATISTICS INDEX(ALL KEYCARD) REPORT NO UPDATE ALL
IDENTITYOVERRIDE
INTO TABLE A540769.TWK927A1 PART 2
IGNOREFIELDS YES
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN INDUMMY
INTO TABLE A540769.TWK927A1 PART 4
IGNOREFIELDS YES
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN INDUMMY
}¢--- A540769.WK.JCL(DB2LOAD1) cre=2006-05-22 mod=2006-09-26-14.39.37 F540769 ---
//A540769L JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE A3EJ46JC
DSN('DBAF.DGDB9998.A401A01.P00000.D2006269.SYSREC')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A3EJ46JC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 10049464
INTO TABLE A540769."TAV401A1"
WHEN(00001:00002) = X'009B'
( "AV401001"
POSITION( 00003:00018) CHAR(00016)
, "AV401002"
POSITION( 00019:00021) CHAR(00003)
, "AV401003"
POSITION( 00022:00033) CHAR(00012)
, "AV401004"
POSITION( 00034:00038) CHAR(00005)
, "AV401005"
POSITION( 00040:00047) DECIMAL
NULLIF(00039)=X'FF'
, "AV401006"
POSITION( 00049:00056) DECIMAL
NULLIF(00048)=X'FF'
, "AV401007"
POSITION( 00057:00064) DECIMAL
, "AV401008"
POSITION( 00065:00065) CHAR(00001)
, "AV401009"
POSITION( 00066:00069) CHAR(00004)
, "AV401010"
POSITION( 00070:00071) CHAR(00002)
, "AV401011"
POSITION( 00073:00080) DECIMAL
NULLIF(00072)=X'FF'
, "AV401012"
POSITION( 00082:00091) DATE EXTERNAL
NULLIF(00081)=X'FF'
, "AV401013"
POSITION( 00092:00095) CHAR(00004)
, "AV401014"
POSITION( 00096:00099) CHAR(00004)
, "AV401015"
POSITION( 00101:00108) DECIMAL
NULLIF(00100)=X'FF'
, "AV401016"
POSITION( 00109:00116) DECIMAL
, "AV401017"
POSITION( 00117:00119) CHAR(00003)
, "AV401018"
POSITION( 00120:00127) DECIMAL
, "AV401019"
POSITION( 00128:00135) DECIMAL
, "AV401020"
POSITION( 00136:00143) DECIMAL
, "AV401021"
POSITION( 00145:00154) DATE EXTERNAL
NULLIF(00144)=X'FF'
, "AV401022"
POSITION( 00155:00162) DECIMAL
, "AV401023"
POSITION( 00163:00170) DECIMAL
, "AV401024"
POSITION( 00171:00178) DECIMAL
, "AV401025"
POSITION( 00179:00186) DECIMAL
, "AV401026"
POSITION( 00187:00194) DECIMAL
, "AV401027"
POSITION( 00196:00205) DATE EXTERNAL
NULLIF(00195)=X'FF'
, "AV401028"
POSITION( 00207:00214) DECIMAL
NULLIF(00206)=X'FF'
, "AV401029"
POSITION( 00215:00222) DECIMAL
, "AV401030"
POSITION( 00223:00230) DECIMAL
, "AV401031"
POSITION( 00232:00241) DATE EXTERNAL
NULLIF(00231)=X'FF'
, "AV401032"
POSITION( 00242:00249) DECIMAL
, "AV401033"
POSITION( 00250:00257) DECIMAL
, "AV401034"
POSITION( 00258:00265) DECIMAL
, "AV401035"
POSITION( 00267:00276) DATE EXTERNAL
NULLIF(00266)=X'FF'
, "AV401036"
POSITION( 00277:00284) DECIMAL
, "AV401037"
POSITION( 00286:00295) DATE EXTERNAL
NULLIF(00285)=X'FF'
, "AV401038"
POSITION( 00296:00303) DECIMAL
, "AV401039"
POSITION( 00304:00311) DECIMAL
, "AV401040"
POSITION( 00312:00319) DECIMAL
, "AV401041"
POSITION( 00320:00326) CHAR(00007)
, "AV401042"
POSITION( 00327:00327) CHAR(00001)
, "AV401043"
POSITION( 00329:00338) DATE EXTERNAL
NULLIF(00328)=X'FF'
, "AV401044"
POSITION( 00339:00346) DECIMAL
, "AV401045"
POSITION( 00347:00347) CHAR(00001)
, "AV401046"
POSITION( 00348:00351) CHAR(00004)
, "AV401047"
POSITION( 00352:00353) CHAR(00002)
, "AV401048"
POSITION( 00355:00364) DATE EXTERNAL
NULLIF(00354)=X'FF'
, "AV401049"
POSITION( 00365:00372) DECIMAL
, "AV401050"
POSITION( 00373:00380) DECIMAL
, "AV401051"
POSITION( 00381:00383) CHAR(00003)
, "AV401052"
POSITION( 00384:00391) DECIMAL
, "AV401053"
POSITION( 00392:00392) CHAR(00001)
, "AV401054"
POSITION( 00393:00400) DECIMAL
, "AV401055"
POSITION( 00401:00401) CHAR(00001)
, "AV401056"
POSITION( 00402:00409) DECIMAL
, "AV401057"
POSITION( 00410:00410) CHAR(00001)
, "AV401058"
POSITION( 00411:00418) DECIMAL
, "AV401059"
POSITION( 00419:00426) DECIMAL
, "AV401060"
POSITION( 00427:00434) DECIMAL
)
}¢--- A540769.WK.JCL(DB2LOAD2) cre=2006-05-22 mod=2006-05-22-14.09.48 F540769 ---
//A540769L JOB (CAS25071,0000,,0000),'UNLOAD',
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE U3098378
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A007A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U3098378 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG007A1"
WHEN(00001:00002) = X'000D'
( "NG007001"
POSITION( 00003:00018) CHAR(00016)
, "NG007010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG007011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG007012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG007013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG007014"
POSITION( 00123:00130) CHAR(00008)
, "NG007020"
POSITION( 00131:00134) CHAR(00004)
, "NG007021"
POSITION( 00135:00138) CHAR(00004)
, "NG007022"
POSITION( 00139:00139) CHAR(00001)
, "NG007023"
POSITION( 00140:00143) CHAR(00004)
)
TEMPLATE U5597954
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A009A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U5597954 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG009A1"
WHEN(00001:00002) = X'003C'
( "NG009001"
POSITION( 00003:00018) CHAR(00016)
, "NG009010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG009011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG009012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG009013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG009014"
POSITION( 00123:00130) CHAR(00008)
, "NG009020"
POSITION( 00131:00134) CHAR(00004)
, "NG009021"
POSITION( 00135:00150) CHAR(00016)
)
TEMPLATE U2310274
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A010A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U2310274 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG010A1"
WHEN(00001:00002) = X'000F'
( "NG010001"
POSITION( 00003:00018) CHAR(00016)
, "NG010010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG010011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG010012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG010013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG010014"
POSITION( 00123:00130) CHAR(00008)
, "NG010020"
POSITION( 00131:00134) CHAR(00004)
, "NG010021"
POSITION( 00135:00150) CHAR(00016)
)
TEMPLATE U5014602
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A038A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U5014602 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG038A1"
WHEN(00001:00002) = X'003D'
( "NG038001"
POSITION( 00003:00018) CHAR(00016)
, "NG038010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG038011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG038012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG038013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG038014"
POSITION( 00123:00130) CHAR(00008)
, "NG038020"
POSITION( 00131:00134) CHAR(00004)
, "NG038021"
POSITION( 00135:00137) CHAR(00003)
)
}¢--- A540769.WK.JCL(DB2LOAD3) cre=2006-05-22 mod=2006-05-22-13.57.17 F540769 ---
//A540769U JOB (CAS25071,0000,,0000),'UNLOAD',
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE U4139786
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A040A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U4139786 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG040A1"
WHEN(00001:00002) = X'003E'
( "NG040001"
POSITION( 00003:00018) CHAR(00016)
, "NG040010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG040011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG040012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG040013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG040014"
POSITION( 00123:00130) CHAR(00008)
, "NG040020"
POSITION( 00131:00134) CHAR(00004)
, "NG040021"
POSITION( 00135:00138) CHAR(00004)
, "NG040022"
POSITION( 00139:00142) CHAR(00004)
, "NG040023"
POSITION( 00143:00168) CHAR(00026)
, "NG040024"
POSITION( 00169:00194) CHAR(00026)
)
TEMPLATE U5673034
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A046A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U5673034 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG046A1"
WHEN(00001:00002) = X'002E'
( "NG046001"
POSITION( 00003:00018) CHAR(00016)
, "NG046010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG046011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG046012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG046013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG046014"
POSITION( 00123:00130) CHAR(00008)
, "NG046020"
POSITION( 00131:00134) CHAR(00004)
, "NG046021"
POSITION( 00135:00138) CHAR(00004)
, "NG046022"
POSITION( 00139:00140) SMALLINT
, "NG046023"
POSITION( 00141:00142) SMALLINT
, "NG046024"
POSITION( 00143:00262) CHAR(00120)
)
TEMPLATE U4684672
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A047A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U4684672 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG047A1"
WHEN(00001:00002) = X'002F'
( "NG047001"
POSITION( 00003:00018) CHAR(00016)
, "NG047002"
POSITION( 00019:00034) CHAR(00016)
, "NG047010"
POSITION( 00035:00060) TIMESTAMP EXTERNAL
, "NG047011"
POSITION( 00061:00086) TIMESTAMP EXTERNAL
, "NG047012"
POSITION( 00087:00112) TIMESTAMP EXTERNAL
, "NG047013"
POSITION( 00113:00138) TIMESTAMP EXTERNAL
, "NG047014"
POSITION( 00139:00146) CHAR(00008)
, "NG047020"
POSITION( 00147:00150) CHAR(00004)
, "NG047021"
POSITION( 00151:00154) CHAR(00004)
, "NG047022"
POSITION( 00155:00156) SMALLINT
, "NG047023"
POSITION( 00157:00158) SMALLINT
, "NG047024"
POSITION( 00159:00278) CHAR(00120)
)
TEMPLATE U6047874
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A049A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U6047874 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG049A1"
WHEN(00001:00002) = X'003F'
( "NG049001"
POSITION( 00003:00018) CHAR(00016)
, "NG049002"
POSITION( 00019:00022) CHAR(00004)
, "NG049010"
POSITION( 00023:00048) TIMESTAMP EXTERNAL
, "NG049011"
POSITION( 00049:00074) TIMESTAMP EXTERNAL
, "NG049012"
POSITION( 00075:00100) TIMESTAMP EXTERNAL
, "NG049013"
POSITION( 00101:00126) TIMESTAMP EXTERNAL
, "NG049014"
POSITION( 00127:00134) CHAR(00008)
, "NG049020"
POSITION( 00135:00138) CHAR(00004)
, "NG049021"
POSITION( 00139:00142) CHAR(00004)
)
TEMPLATE U1086789
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A207A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U1086789 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG207A1"
WHEN(00001:00002) = X'0020'
( "NG207001"
POSITION( 00003:00018) CHAR(00016)
, "NG207010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG207011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG207012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG207013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG207014"
POSITION( 00123:00130) CHAR(00008)
, "NG207015"
POSITION( 00131:00134) CHAR(00004)
, "NG207016"
POSITION( 00135:00138) CHAR(00004)
, "NG207017"
POSITION( 00139:00139) CHAR(00001)
, "NG207018"
POSITION( 00140:00143) CHAR(00004)
)
TEMPLATE U4625228
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A240A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U4625228 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG240A1"
WHEN(00001:00002) = X'0044'
( "NG240001"
POSITION( 00003:00018) CHAR(00016)
, "NG240010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG240011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG240012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG240013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG240014"
POSITION( 00123:00130) CHAR(00008)
, "NG240015"
POSITION( 00131:00134) CHAR(00004)
, "NG240016"
POSITION( 00135:00138) INTEGER
, "NG240017"
POSITION( 00139:00142) CHAR(00004)
, "NG240018"
POSITION( 00143:00146) CHAR(00004)
, "NG240019"
POSITION( 00147:00172) CHAR(00026)
, "NG240020"
POSITION( 00173:00198) CHAR(00026)
)
TEMPLATE U5527941
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A249A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U5527941 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG249A1"
WHEN(00001:00002) = X'0029'
( "NG249001"
POSITION( 00003:00018) CHAR(00016)
, "NG249010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG249011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG249012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG249013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG249014"
POSITION( 00123:00130) CHAR(00008)
, "NG249015"
POSITION( 00131:00134) CHAR(00004)
, "NG249016"
POSITION( 00135:00138) CHAR(00004)
, "NG249017"
POSITION( 00139:00139) CHAR(00001)
, "NG249018"
POSITION( 00140:00140) CHAR(00001)
)
}¢--- A540769.WK.JCL(DB2LOAD4) cre=2006-05-22 mod=2007-09-28-12.33.53 F540769 ---
//A540769L JOB (CAS25071,0000,,0000),'UNLOAD',
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE BK70ZLRB
DSN('A540769.TMPUL.SRCP5.D2007271.P&PA..UNLO')
DISP(OLD,KEEP,KEEP)
LOAD DATA SHRLEVEL CHANGE RESUME(YES)
-- LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "GDB9998"."TWK077A"
PART 00001 INDDN BK70ZLRB
WHEN(00001:00002) = X'00A5'
( "WK077PART"
POSITION( 00003:00004) SMALLINT
, "WK077KEY"
POSITION( 00005:00008) INTEGER
, "WK077TXT"
POSITION( 00009:00028) CHAR(00020)
)
INTO TABLE "GDB9998"."TWK077A"
PART 00002 INDDN BK70ZLRB
WHEN(00001:00002) = X'00A5'
( "WK077PART"
POSITION( 00003:00004) SMALLINT
, "WK077KEY"
POSITION( 00005:00008) INTEGER
, "WK077TXT"
POSITION( 00009:00028) CHAR(00020)
)
INTO TABLE "GDB9998"."TWK077A"
PART 00003 INDDN BK70ZLRB
WHEN(00001:00002) = X'00A5'
( "WK077PART"
POSITION( 00003:00004) SMALLINT
, "WK077KEY"
POSITION( 00005:00008) INTEGER
, "WK077TXT"
POSITION( 00009:00028) CHAR(00020)
)
}¢--- A540769.WK.JCL(DB2LOAIN) cre=2012-02-06 mod=2012-02-06-10.51.19 A540769 ---
//A540769L JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG ,SYSTEM=S14
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//*YSTEMPL DD DSN=A540769.WK.LISTDEF(TEMPL),DISP=SHR
//INDUMMY DD DUMMY
//SYSIN DD *
TEMPLATE TIN
DSN('DBAF.DA540769.APER16.P00000.D120206.REC')
DISP(OLD,KEEP,KEEP)
LOAD DATA LOG NO INDDN(TIN)
RESUME NO REPLACE COPYDDN(TCOPYS)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
FORMAT INTERNAL
WORKDDN(TSYUTS, TSOUTS)
INTO TABLE A540769.TPER16
}¢--- A540769.WK.JCL(DB2LOAVO) cre=2006-06-13 mod=2006-06-13-14.56.10 F540769 ---
//A540769L JOB (CP00,KE50) 00010001
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE IN7
DSN('WOK.T007.UNLOAD.ALT')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN IN7 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
INTO TABLE "OA1Z"."TNZ007A1"
(MQCATEGORY POSITION (1) SMALLINT ,
MQSUBGROUP POSITION (3) SMALLINT ,
MQNAME POSITION (5) CHAR (48) ,
MQCICS POSITION (53) CHAR (20) ,
FUNCTION POSITION (73) CHAR (5) ,
LUWLIMIT POSITION (78) INTEGER ,
CHECKLIMIT POSITION (82) SMALLINT ,
DESCRIPTION POSITION (84) CHAR (200) ,
COMMENT POSITION (284) CHAR (200) )
TEMPLATE IN8
DSN('WOK.T008.UNLOAD.ALT')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN IN8 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
INTO TABLE "OA1Z"."TNZ008A1"
(FROMTIMERANGE POSITION (1) TIME EXTERNAL (8) ,
TOTIMERANGE POSITION (9) TIME EXTERNAL (8) ,
MQPRIORITY POSITION (17) SMALLINT ,
MQCATEGORY POSITION (19) SMALLINT ,
MQSUBGROUP POSITION (21) SMALLINT ,
PROCESSIBLE POSITION (23) CHAR (1) ,
TRIGGEROPTION POSITION (24) CHAR (1) ,
TRIGGERTYPE POSITION (25) CHAR (20) ,
DESCRIPTION POSITION (45) CHAR (200) ,
COMMENT POSITION (245) CHAR (200) )
}¢--- A540769.WK.JCL(DB2LOA2) cre=2006-06-13 mod=2006-06-13-10.10.54 F540769 ---
//A540769L JOB (CP00,KE50), 00010001
// 'LOAD',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=BS1
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE U6390082
DSN('TSS.SKA.DBOF.FZ01A1P.A021A.P000.UNLOAD.NEU')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U6390082 LOG YES RESUME YES SHRLEVEL CHANGE
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TFZ021A1"
WHEN(00001:00002) = X'0016'
( "FZ02100"
POSITION( 00003:00028) TIMESTAMP EXTERNAL
, "FZ02101"
POSITION( 00029:00044) CHAR(00016)
, "FZ02102"
POSITION( 00045:00060) CHAR(00016)
, "FZ02103"
POSITION( 00061:00064) INTEGER
, "FZ02104"
POSITION( 00065:00067) CHAR(00003)
, "FZ02105"
POSITION( 00068:00077) DATE EXTERNAL
, "FZ02106"
POSITION( 00078:00089) CHAR(00012)
, "FZ02107"
POSITION( 00090:00093) CHAR(00004)
, "FZ02108"
POSITION( 00094:00097) CHAR(00004)
, "FZ02109"
POSITION( 00098:00109) CHAR(00012)
, "FZ02110"
POSITION( 00110:00117) CHAR(00008)
)
TEMPLATE U6716199
DSN('TSS.SKA.DBOF.FZ01A1P.A022A.P000.UNLOAD.NEU')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U6716199 LOG YES RESUME YES SHRLEVEL CHANGE
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TFZ022A1"
WHEN(00001:00002) = X'0018'
( "FZ02200"
POSITION( 00003:00028) TIMESTAMP EXTERNAL
, "FZ02201"
POSITION( 00029:00044) CHAR(00016)
, "FZ02202"
POSITION( 00045:00048) INTEGER
, "FZ02203"
POSITION( 00049:00076) CHAR(00028)
, "FZ02204"
POSITION( 00077:00080) CHAR(00004)
, "FZ02205"
POSITION( 00081:00110) CHAR(00030)
, "FZ02206"
POSITION( 00111:00126) CHAR(00016)
, "FZ02207"
POSITION( 00127:00142) CHAR(00016)
, "FZ02208"
POSITION( 00143:00158) CHAR(00016)
, "FZ02209"
POSITION( 00159:00159) CHAR(00001)
, "FZ02210"
POSITION( 00160:00160) CHAR(00001)
, "FZ02211"
POSITION( 00161:00161) CHAR(00001)
, "FZ02212"
POSITION( 00162:00172) CHAR(00011)
, "FZ02213"
POSITION( 00173:00192) CHAR(00020)
, "FZ02214"
POSITION( 00193:00203) CHAR(00011)
, "FZ02215"
POSITION( 00204:00223) CHAR(00020)
, "FZ02216"
POSITION( 00224:00234) CHAR(00011)
, "FZ02217"
POSITION( 00235:00254) CHAR(00020)
, "FZ02218"
POSITION( 00256:00265) DATE EXTERNAL
NULLIF(00255)=X'FF'
, "FZ02219"
POSITION( 00267:00276) DATE EXTERNAL
NULLIF(00266)=X'FF'
, "FZ02220"
POSITION( 00278:00285) FLOAT(53)
NULLIF(00277)=X'FF'
, "FZ02221"
POSITION( 00286:00289) CHAR(00004)
, "FZ02222"
POSITION( 00291:00306) DECIMAL
NULLIF(00290)=X'FF'
, "FZ02223"
POSITION( 00307:00317) CHAR(00011)
, "FZ02224"
POSITION( 00318:00337) CHAR(00020)
, "FZ02225"
POSITION( 00338:00348) CHAR(00011)
, "FZ02226"
POSITION( 00349:00368) CHAR(00020)
, "FZ02227"
POSITION( 00369:00379) CHAR(00011)
, "FZ02228"
POSITION( 00380:00399) CHAR(00020)
, "FZ02229"
POSITION( 00400:00403) CHAR(00004)
, "FZ02230"
POSITION( 00405:00420) DECIMAL
NULLIF(00404)=X'FF'
, "FZ02231"
POSITION( 00421:00431) CHAR(00011)
, "FZ02232"
POSITION( 00432:00451) CHAR(00020)
, "FZ02233"
POSITION( 00452:00462) CHAR(00011)
, "FZ02234"
POSITION( 00463:00482) CHAR(00020)
, "FZ02235"
POSITION( 00483:00493) CHAR(00011)
, "FZ02236"
POSITION( 00494:00513) CHAR(00020)
, "FZ02237"
POSITION( 00514:00524) CHAR(00011)
, "FZ02238"
POSITION( 00525:00544) CHAR(00020)
, "FZ02239"
POSITION( 00545:00579) CHAR(00035)
, "FZ02240"
POSITION( 00580:00614) CHAR(00035)
, "FZ02241"
POSITION( 00615:00649) CHAR(00035)
, "FZ02242"
POSITION( 00650:00665) CHAR(00016)
, "FZ02243"
POSITION( 00666:00681) CHAR(00016)
, "FZ02244"
POSITION( 00682:00716) CHAR(00035)
, "FZ02245"
POSITION( 00717:00751) CHAR(00035)
, "FZ02246"
POSITION( 00752:00786) CHAR(00035)
, "FZ02247"
POSITION( 00787:00821) CHAR(00035)
, "FZ02248"
POSITION( 00822:00856) CHAR(00035)
, "FZ02249"
POSITION( 00857:00891) CHAR(00035)
, "FZ02250"
POSITION( 00892:00926) CHAR(00035)
, "FZ02251"
POSITION( 00927:00961) CHAR(00035)
, "FZ02252"
POSITION( 00962:00996) CHAR(00035)
, "FZ02253"
POSITION( 00997:01031) CHAR(00035)
, "FZ02254"
POSITION( 01032:01066) CHAR(00035)
, "FZ02255"
POSITION( 01067:01082) CHAR(00016)
, "FZ02256"
POSITION( 01083:01083) CHAR(00001)
, "FZ02257"
POSITION( 01084:01087) CHAR(00004)
, "FZ02258"
POSITION( 01089:01104) DECIMAL
NULLIF(01088)=X'FF'
, "FZ02259"
POSITION( 01105:01105) CHAR(00001)
, "FZ02260"
POSITION( 01106:01109) CHAR(00004)
, "FZ02261"
POSITION( 01111:01126) DECIMAL
NULLIF(01110)=X'FF'
, "FZ02262"
POSITION( 01127:01137) CHAR(00011)
, "FZ02263"
POSITION( 01138:01157) CHAR(00020)
, "FZ02264"
POSITION( 01158:01168) CHAR(00011)
, "FZ02265"
POSITION( 01169:01188) CHAR(00020)
, "FZ02266"
POSITION( 01189:01199) CHAR(00011)
, "FZ02267"
POSITION( 01200:01219) CHAR(00020)
, "FZ02268"
POSITION( 01220:01230) CHAR(00011)
, "FZ02269"
POSITION( 01231:01250) CHAR(00020)
, "FZ02270"
POSITION( 01251:01285) CHAR(00035)
, "FZ02271"
POSITION( 01286:01320) CHAR(00035)
, "FZ02272"
POSITION( 01321:01355) CHAR(00035)
, "FZ02273"
POSITION( 01357:01372) DECIMAL
NULLIF(01356)=X'FF'
)
}¢--- A540769.WK.JCL(DB2LOSCH) cre=2007-10-19 mod=2008-11-24-17.24.41 F540769 ---
//A540769L JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//*********************************************************************
//*
//* load tables twi400a1-twi404a1 mit daten aus access
//* - mit access daten im delimited format (delimiter '}') erstellen
//* - library A540769.tmp.schick allozieren (vb, maxrecl=32756)
//* - files als entsprechende Member in diese Library transferieren
//* - diesen Job starten, er
//* lädt die 5 Tabellen
//* führt ein Check Data auf betroffenen TS durch
//*
//*********************************************************************
//* kiut 23, Walter Keller, 19.10.2007
//*********************************************************************
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSMAP DD DISP=(,PASS),UNIT=SYSDA
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD DISP=(,PASS),UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//IN400 DD DISP=SHR,DSN=A540769.TMP.SCHICK(TWI400A1)
//IN401 DD DISP=SHR,DSN=A540769.TMP.SCHICK(TWI401A1)
//IN402 DD DISP=SHR,DSN=A540769.TMP.SCHICK(TWI402A1)
//IN403 DD DISP=SHR,DSN=A540769.TMP.SCHICK(TWI403A1)
//IN404 DD DISP=SHR,DSN=A540769.TMP.SCHICK(TWI404A1)
//SYSIN DD *
TEMPLATE TCOPYX DSN('&SSID..&DB..&SN..P&PART(2)..D&DATE(3)..T&TIME.')
DATACLAS(NULL12) MGMTCLAS(COM#A011) STORCLAS(FAR$N)
SPACE(100,1000) TRK MAXPRIME 600 UNCNT 59
LOAD DATA INDDN IN400 LOG NO RESUME NO REPLACE COPYDDN(TCOPYX)
ENFORCE NO
STATISTICS INDEX ALL UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTDEVT SYSDA SORTNUM 50
FORMAT DELIMITED COLDEL '{'
INTO TABLE OA1A.TWI400A1
LOAD DATA INDDN IN401 LOG NO RESUME NO REPLACE COPYDDN(TCOPYX)
ENFORCE NO
STATISTICS INDEX ALL UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTDEVT SYSDA SORTNUM 50
FORMAT DELIMITED COLDEL '{'
INTO TABLE OA1A.TWI401A1
LOAD DATA INDDN IN402 LOG NO RESUME NO REPLACE COPYDDN(TCOPYX)
ENFORCE NO
STATISTICS INDEX ALL UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTDEVT SYSDA SORTNUM 50
FORMAT DELIMITED COLDEL '{'
INTO TABLE OA1A.TWI402A1
LOAD DATA INDDN IN403 LOG NO RESUME NO REPLACE COPYDDN(TCOPYX)
ENFORCE NO
STATISTICS INDEX ALL UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTDEVT SYSDA SORTNUM 50
FORMAT DELIMITED COLDEL '{'
INTO TABLE OA1A.TWI403A1
LOAD DATA INDDN IN404 LOG NO RESUME NO REPLACE COPYDDN(TCOPYX)
ENFORCE NO
STATISTICS INDEX ALL UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTDEVT SYSDA SORTNUM 50
FORMAT DELIMITED COLDEL '{'
INTO TABLE OA1A.TWI404A1
CHECK DATA TABLESPACE WI03A1A.A400A
TABLESPACE WI03A1A.A401A
TABLESPACE WI03A1A.A402A
TABLESPACE WI03A1A.A403A
TABLESPACE WI03A1A.A404A
TABLESPACE WI03A1A.A405A
TABLESPACE WI03A1A.A406A
TABLESPACE WI03A1A.A407A
SCOPE ALL
}¢--- A540769.WK.JCL(DB2MODRE) cre=2016-10-20 mod=2016-10-20-09.54.07 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 ADMIN',
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,
// MSGCLASS=T,NOTIFY=&SYSUID
//S1 EXEC PGM=DSNUTILB,PARM='DP4G,A540769L.LOAD' 00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF LST INCLUDE TABLESPACE QZ01A1P.A045A PARTLEVEL 0
MODIFY RECOVERY LIST LST DELETE DATE 20160926
}¢--- A540769.WK.JCL(DB2PRE) cre=2008-02-05 mod=2008-02-05-11.49.36 F540769 ----
//A540769L JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2000,2000)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2000,2000)),
// DATACLAS=NULL30
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
OPTIONS PREVIEW
LISTDEF TS#LIST
INCLUDE TABLESPACE PW01A1A.A350A PARTLEVEL
INCLUDE TABLESPACE PW01A1A.A350A
INCLUDE TABLESPACE PW01A1A.A353A PARTLEVEL
LISTDEF IX#LIST
INCLUDE INDEX OA1A.IPW350A% PARTLEVEL
INCLUDE INDEX OA1A.IPW353A% PARTLEVEL
}¢--- A540769.WK.JCL(DB2PREV) cre=2008-04-14 mod=2008-04-14-11.27.58 F540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S14
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBTF,A540769F.PREVIEW'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*YSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
OPTIONS PREVIEW
LISTDEF C#LIST 00010000
INCLUDE INDEXSPACES TABLESPACE SAMT2.SAM% PARTLEVEL
EXCLUDE INDEXSPACES TABLESPACE SAMT2.SAM0% PARTLEVEL
EXCLUDE INDEXSPACES TABLESPACE SAMT2.SAM16380 PARTLEVEL
EXCLUDE INDEXSPACES TABLESPACE SAMT2.SAM16410 PARTLEVEL
}¢--- A540769.WK.JCL(DB2QUI) cre=2008-01-23 mod=2008-01-23-11.54.50 F540769 ----
//A540769F JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S14
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBAF,A540769F.REPORT'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
QUIESCE TABLESPACE DGDB9998.A802A
}¢--- A540769.WK.JCL(DB2RCEST) cre=2008-01-31 mod=2008-01-31-13.17.52 F540769 ---
//Y4RECTIM JOB (STR48306,0000,,0000),'DB2-REPORT',
// MSGCLASS=T,REGION=0M,NOTIFY=&SYSUID
//*MAIN CLASS=LOG DEADLINE=(2330,A,12/07/2005),HOLD=YES
//*
//REPORT EXEC PGM=DSNUTILB,PARM='DBOF,A234579.REPORT'
//SYSPRINT DD SYSOUT=*
//SYSPRINX DD DSN=&&TEMP,DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(20,20)),
// RECFM=FBA,LRECL=133,BLKSIZE=26600
//SYSIN DD *
REPORT RECOVERY TABLESPACE HB01A1P.A504A
CURRENT LOCALSITE ARCHLOG 1
//
//RCVTIME EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ2.P0.USER.EXEC,DISP=SHR
//*YSEXEC DD DSN=A234579.TSO.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//PRINT DD SYSOUT=*
//REPORT DD DSN=*.REPORT.SYSPRINT,DISP=OLD
//SYSTSIN DD *
%DB2RCEST
//
}¢--- A540769.WK.JCL(DB2REBIN) cre=2009-08-14 mod=2009-09-23-09.20.39 A540769 ---
//A540769P JOB (PD00,KE50,,SP00000000),
// 'FULLCOPY',
// MSGCLASS=T,TIME=1440,LINES=100000
//*MAIN CLASS=LOG
//P04 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSXX DD *
alter tablespace VV29A1T.VDPS436
alter tablespace VV29A1T.VDPS438
alter tablespace VV29A1T.VDPS440
alter tablespace VV29A1T.VDPS424
alter tablespace VV29A1T.VDPS430
alter tablespace VV29A1T.VDPS426
alter tablespace VV29A1T.VDPS434
alter tablespace VV29A1T.VDPS427
alter tablespace VV29A1T.VDPS425
alter tablespace VV29A1T.VDPS428
alter tablespace VV29A1T.VDPS429
alter tablespace VV29A1T.VDPS435
alter tablespace VV29A1T.VDPS431
alter tablespace VV29A1T.VDPS437
alter tablespace VV29A1T.VDPS432
alter tablespace VV29A1T.VDPS433
//SYSTSIN DD *
DSN SYS(DBTF)
REBIND PACKAGE(VV.YVV3260.(VDPS000232));
//OLD DD *
REBIND PACKAGE(VV.VV3900.(VDPS000221));
REBIND PACKAGE(VV.VV3900.(VDPS000232));
REBIND PACKAGE(VV.VVIDS1.(VDPS000221));
REBIND PACKAGE(VV.VVIDS1.(VDPS000232));
REBIND PACKAGE(VV.VVIDS9.(VDPS000232));
REBIND PACKAGE(VV.YVV3000.(VDPS000190));
REBIND PACKAGE(VV.YVV3000.(VDPS000202));
REBIND PACKAGE(VV.YVV3000.(VDPS000216));
REBIND PACKAGE(VV.YVV3000.(VDPS000221));
REBIND PACKAGE(VV.YVV3000.(VDPS000232));
REBIND PACKAGE(VV.YVV300A.(VDPS000190));
REBIND PACKAGE(VV.YVV3240.(VDPS000202));
REBIND PACKAGE(VV.YVV3240.(VDPS000216));
REBIND PACKAGE(VV.YVV3240.(VDPS000221));
REBIND PACKAGE(VV.YVV3240.(VDPS000232));
REBIND PACKAGE(VV.YVV3260.(VDPS000190));
REBIND PACKAGE(VV.YVV3260.(VDPS000202));
REBIND PACKAGE(VV.YVV3260.(VDPS000216));
REBIND PACKAGE(VV.YVV3260.(VDPS000221));
REBIND PACKAGE(VV.YVV326A.(VDPS000190));
REBIND PACKAGE(VV.YVV3270.(VDPS000202));
REBIND PACKAGE(VV.YVV3270.(VDPS000216));
REBIND PACKAGE(VV.YVV3270.(VDPS000221));
REBIND PACKAGE(VV.YVV3270.(VDPS000232));
REBIND PACKAGE(VV.YVV3280.(VDPS000216));
REBIND PACKAGE(VV.YVV3280.(VDPS000221));
REBIND PACKAGE(VV.YVV3280.(VDPS000232));
REBIND PACKAGE(VV.YVV3EIP.(VDPS0001185A68985A));
REBIND PACKAGE(VV.YVV3EIP.(VDPS0001185A68985AMVS));
REBIND PACKAGE(VV.YVV3EIP.(VDPS0001635ACE07CD));
REBIND PACKAGE(VV.YVV3EIP.(VDPS0001635ACE07CDMVS));
REBIND PACKAGE(VV.YVV3EIP.(VDPS0001675A671272MVS));
REBIND PACKAGE(VV.YVV3EIP.(VDPS0001905BB60773));
REBIND PACKAGE(VV.YVV3EIP.(VDPS0001905BB60773MVS));
REBIND PACKAGE(VV.YVV3EIP.(VDPS0002025C35FE17));
REBIND PACKAGE(VV.YVV3EP1.(VDPS0001635A9D7464));
REBIND PACKAGE(VV.YVV3EP1.(VDPS0001635A9D7464MVS));
REBIND PACKAGE(VV.YVV3EP1.(VDPS0002035BB34F16));
REBIND PACKAGE(VV.YVV3EP1.(VDPS0002035BB34F16MVS));
REBIND PACKAGE(VV.YVV3EP2.(VDPS0001635A98345D));
REBIND PACKAGE(VV.YVV3EP2.(VDPS0001635A98345DMVS));
REBIND PACKAGE(VV.YVV3GTX.(TRAI0002485BB0C9C9));
REBIND PACKAGE(VV.YVV3GTX.(TRAI0002485BB0C9C9MVS));
REBIND PACKAGE(VV.YVV3GTX.(TRAI0002485BB0D1DC));
REBIND PACKAGE(VV.YVV3GTX.(TRAI0002485BB0D1DCMVS));
}¢--- A540769.WK.JCL(DB2REBU) cre=2007-09-13 mod=2013-03-20-12.23.11 A540769 ---
//A540769C JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBAF,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*YSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSTEMPL DD DSN=A540769.WK.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
REBUILD INDEX (
(ALL) TABLESPACE WM01A1A.A005A
)
SORTDEVT SYSDA
WORKDDN(TSYUTD)
STATISTICS UPDATE ALL
}¢--- A540769.WK.JCL(DB2REBUE) cre=2011-03-25 mod=2011-03-25-15.23.38 A540769 ---
$<=¢
XB9QJ001
XB9QK005
XB9QK001
XB9QK002
XB9QK003
XB9QK004
XB9QL003
XB9QL004
XB9QL005
XB9QL001
XB9QL002
XB9QQ001
XB9QQ002
XB9QQ003
XB9QQ004
XB9QR001
XB9QR002
XB9QR003
XB433001
XB433002
XB433003
XB433004
XB433005
XB433006
XB433007
XB433008
XB433009
XB433010
XB434001
XB434002
XB434003
XB434004
XB434005
XB434006
XB434007
XB434008
XB434009
XB434010
XB434011
XB434012
XB434013
XB434014
XB434015
XB435009
XB435001
XB435002
XB435003
XB435004
XB435005
XB435006
XB435007
XB435008
$!
$*(
$@for d $@¢
d = strip($d)
call sqlDsn st, dvbp, '-sta db(' d ') acc(rw)'
call sqlDsn st, dvbp, '-sta db(' d ') sp(*) acc(rw)'
$!
$*)
$@=¢
//A540769S JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
$!
$=sx=0
$@for d $@=¢
$=sx=-right($sx+1, 3, 0)
$=d = strip($d)
//S$sx EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE $d.*
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
$!
$#out 20110325 15:23:24
//A540769S JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//S001 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QJ001
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S002 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QK005
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S003 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QK001
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S004 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QK002
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S005 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QK003
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S006 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QK004
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S007 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QL003
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S008 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QL004
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S009 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QL005
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S010 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QL001
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S011 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QL002
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S012 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QQ001
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S013 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QQ002
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S014 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QQ003
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S015 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QQ004
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S016 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QR001
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S017 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QR002
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S018 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB9QR003
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S019 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB433001
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S020 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB433002
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S021 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB433003
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S022 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB433004
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S023 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB433005
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S024 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB433006
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S025 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB433007
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S026 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB433008
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S027 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB433009
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S028 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB433010
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S029 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434001
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S030 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434002
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S031 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434003
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S032 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434004
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S033 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434005
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S034 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434006
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S035 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434007
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S036 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434008
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S037 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434009
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S038 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434010
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S039 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434011
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S040 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434012
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S041 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434013
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S042 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434014
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S043 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB434015
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S044 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB435009
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S045 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB435001
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S046 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB435002
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S047 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB435003
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S048 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB435004
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S049 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB435005
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S050 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB435006
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S051 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB435007
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//S052 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST
INCLUDE INDEXSPACE strip(XB435008
REBUILD INDEX LIST LST
SORTDEVT SYSDA
-- SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
$#out 20110325 15:23:00
}¢--- A540769.WK.JCL(DB2REBUI) cre=2006-09-01 mod=2011-06-10-12.29.17 A540769 ---
//A540769S JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*
//**********************************************************************
//*
//* DB2 ADMIN GENERATED JOB - RUN REBUILD UTILITY (INDEXES)
//*
//***********************************************************ADB2UXB****
//*
//**********************************************************************
//* STEP RBLDIDX: REBUILD INDEXES
//**********************************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769S.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
REBUILD INDEX(
(ALL) TABLESPACE WM01A1A.A005A
)
SORTDEVT SYSDA
WORKDDN(TSYUTD)
}¢--- A540769.WK.JCL(DB2REBUJ) cre=2010-12-12 mod=2010-12-13-11.32.21 A540769 ---
$#@
$@=¢
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL
INCLUDE INDEX BUA.I00054QN_MIG PARTLEVEL
INCLUDE INDEX BUA.I00054QO_MIG PARTLEVEL
INCLUDE INDEX BUA.I00054QP_MIG PARTLEVEL
INCLUDE INDEX BUA.I00054QQ_MIG PARTLEVEL
INCLUDE INDEX BUA.I00054QR_MIG PARTLEVEL
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL
INCLUDE INDEX BUA.I0007X0H_MIG PARTLEVEL
INCLUDE INDEX BUA.I0007X0I_MIG PARTLEVEL
INCLUDE INDEX BUA.I0007X0J_MIG PARTLEVEL
INCLUDE INDEX BUA.I0007X0K_MIG PARTLEVEL
INCLUDE INDEX BUA.I0007X0L_MIG PARTLEVEL
INCLUDE INDEX BUA.I00086SW_MIG PARTLEVEL
$!
$|
$@=¢
select strip(s.dbName) || '.' || strip(s.name) ts, partitions parts,
strip(x.creator) || '.' || strip(x.name) ix
from sysibm.sysindexes x
join sysibm.sysTables t
on x.tbCreator = t.creator and x.tbName = t.name
join sysibm.sysTableSpace s
on t.dbName = s.dbName and t.tsName = s.name
where x.creator = 'BUA' and x.name in
$!
pref = '('
$@for i $@¢
parse value $i with inc c1 cr'.'ix le
$$- ' 'pref "'"ix"'"
pref = ','
$!
$@=¢
)
order by 1, 3
$!
$|
call sqlConnect dvbp
call sqlSel
$|
oldTs = ''
$@forWith i $@¢
if $TS \== oldTs then do
if oldTs \== '' then
$$- li
oldTs = $TS
li = $TS $PARTS
end
li = li $IX
$!
$$- li
$|
$=lx=0
$=jx=0
$@for i $@¢
parse value $i with ts parts .
$@do px=1 to parts $@¢
$=lx=-$lx+1
if $lx // 100 = 1 then $@=¢
$=jx=-$jx+1
$=sx=-$jx//4
$=sx=-if($sx=0,4,$sx)
//A540769$sx JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN SYSTEM=S2$sx
//*
$!
$@=¢
$$- '//******* ts' ts 'part' px 'of' parts',' (words($i)-2) 'index'
//STP$lx EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769$jx.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
$!
$$ LISTDEF LST$lx
$@do wx=3 to words($i) $@=¢
$=ix=-word($i, wx)
INCLUDE INDEX $ix PARTLEVEL $px
$!
$@=¢
REBUILD INDEX LIST LST$lx SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
$!
$!
call sqlDisconnect
$!
$#out 20101212 15:37:19
//A5407691 JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN SYSTEM=S21
//*
//******* ts XBDLH001.SIT02001 part 1 of 2, 1 index
//STP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST1
INCLUDE INDEX BUA.I0007X0J_MIG PARTLEVEL 1
REBUILD INDEX LIST LST1 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDLH001.SIT02001 part 2 of 2, 1 index
//STP2 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST2
INCLUDE INDEX BUA.I0007X0J_MIG PARTLEVEL 2
REBUILD INDEX LIST LST2 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDLH001.SPS01001 part 1 of 2, 2 index
//STP3 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST3
INCLUDE INDEX BUA.I0007X0H_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0007X0I_MIG PARTLEVEL 1
REBUILD INDEX LIST LST3 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDLH001.SPS01001 part 2 of 2, 2 index
//STP4 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST4
INCLUDE INDEX BUA.I0007X0H_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0007X0I_MIG PARTLEVEL 2
REBUILD INDEX LIST LST4 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDLH001.SPS02001 part 1 of 2, 2 index
//STP5 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST5
INCLUDE INDEX BUA.I0007X0K_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0007X0L_MIG PARTLEVEL 1
REBUILD INDEX LIST LST5 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDLH001.SPS02001 part 2 of 2, 2 index
//STP6 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST6
INCLUDE INDEX BUA.I0007X0K_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0007X0L_MIG PARTLEVEL 2
REBUILD INDEX LIST LST6 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 1 of 139, 1 index
//STP7 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST7
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 1
REBUILD INDEX LIST LST7 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 2 of 139, 1 index
//STP8 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST8
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 2
REBUILD INDEX LIST LST8 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 3 of 139, 1 index
//STP9 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST9
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 3
REBUILD INDEX LIST LST9 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 4 of 139, 1 index
//STP10 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST10
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 4
REBUILD INDEX LIST LST10 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 5 of 139, 1 index
//STP11 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST11
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 5
REBUILD INDEX LIST LST11 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 6 of 139, 1 index
//STP12 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST12
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 6
REBUILD INDEX LIST LST12 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 7 of 139, 1 index
//STP13 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST13
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 7
REBUILD INDEX LIST LST13 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 8 of 139, 1 index
//STP14 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST14
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 8
REBUILD INDEX LIST LST14 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 9 of 139, 1 index
//STP15 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST15
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 9
REBUILD INDEX LIST LST15 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 10 of 139, 1 index
//STP16 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST16
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 10
REBUILD INDEX LIST LST16 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 11 of 139, 1 index
//STP17 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST17
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 11
REBUILD INDEX LIST LST17 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 12 of 139, 1 index
//STP18 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST18
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 12
REBUILD INDEX LIST LST18 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 13 of 139, 1 index
//STP19 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST19
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 13
REBUILD INDEX LIST LST19 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 14 of 139, 1 index
//STP20 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST20
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 14
REBUILD INDEX LIST LST20 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 15 of 139, 1 index
//STP21 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST21
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 15
REBUILD INDEX LIST LST21 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 16 of 139, 1 index
//STP22 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST22
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 16
REBUILD INDEX LIST LST22 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 17 of 139, 1 index
//STP23 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST23
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 17
REBUILD INDEX LIST LST23 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 18 of 139, 1 index
//STP24 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST24
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 18
REBUILD INDEX LIST LST24 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 19 of 139, 1 index
//STP25 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST25
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 19
REBUILD INDEX LIST LST25 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 20 of 139, 1 index
//STP26 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST26
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 20
REBUILD INDEX LIST LST26 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 21 of 139, 1 index
//STP27 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST27
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 21
REBUILD INDEX LIST LST27 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 22 of 139, 1 index
//STP28 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST28
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 22
REBUILD INDEX LIST LST28 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 23 of 139, 1 index
//STP29 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST29
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 23
REBUILD INDEX LIST LST29 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 24 of 139, 1 index
//STP30 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST30
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 24
REBUILD INDEX LIST LST30 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 25 of 139, 1 index
//STP31 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST31
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 25
REBUILD INDEX LIST LST31 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 26 of 139, 1 index
//STP32 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST32
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 26
REBUILD INDEX LIST LST32 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 27 of 139, 1 index
//STP33 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST33
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 27
REBUILD INDEX LIST LST33 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 28 of 139, 1 index
//STP34 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST34
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 28
REBUILD INDEX LIST LST34 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 29 of 139, 1 index
//STP35 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST35
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 29
REBUILD INDEX LIST LST35 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 30 of 139, 1 index
//STP36 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST36
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 30
REBUILD INDEX LIST LST36 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 31 of 139, 1 index
//STP37 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST37
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 31
REBUILD INDEX LIST LST37 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 32 of 139, 1 index
//STP38 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST38
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 32
REBUILD INDEX LIST LST38 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 33 of 139, 1 index
//STP39 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST39
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 33
REBUILD INDEX LIST LST39 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 34 of 139, 1 index
//STP40 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST40
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 34
REBUILD INDEX LIST LST40 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 35 of 139, 1 index
//STP41 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST41
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 35
REBUILD INDEX LIST LST41 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 36 of 139, 1 index
//STP42 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST42
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 36
REBUILD INDEX LIST LST42 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 37 of 139, 1 index
//STP43 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST43
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 37
REBUILD INDEX LIST LST43 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 38 of 139, 1 index
//STP44 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST44
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 38
REBUILD INDEX LIST LST44 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 39 of 139, 1 index
//STP45 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST45
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 39
REBUILD INDEX LIST LST45 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 40 of 139, 1 index
//STP46 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST46
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 40
REBUILD INDEX LIST LST46 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 41 of 139, 1 index
//STP47 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST47
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 41
REBUILD INDEX LIST LST47 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 42 of 139, 1 index
//STP48 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST48
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 42
REBUILD INDEX LIST LST48 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 43 of 139, 1 index
//STP49 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST49
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 43
REBUILD INDEX LIST LST49 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 44 of 139, 1 index
//STP50 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST50
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 44
REBUILD INDEX LIST LST50 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 45 of 139, 1 index
//STP51 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST51
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 45
REBUILD INDEX LIST LST51 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 46 of 139, 1 index
//STP52 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST52
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 46
REBUILD INDEX LIST LST52 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 47 of 139, 1 index
//STP53 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST53
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 47
REBUILD INDEX LIST LST53 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 48 of 139, 1 index
//STP54 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST54
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 48
REBUILD INDEX LIST LST54 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 49 of 139, 1 index
//STP55 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST55
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 49
REBUILD INDEX LIST LST55 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 50 of 139, 1 index
//STP56 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST56
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 50
REBUILD INDEX LIST LST56 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 51 of 139, 1 index
//STP57 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST57
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 51
REBUILD INDEX LIST LST57 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 52 of 139, 1 index
//STP58 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST58
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 52
REBUILD INDEX LIST LST58 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 53 of 139, 1 index
//STP59 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST59
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 53
REBUILD INDEX LIST LST59 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 54 of 139, 1 index
//STP60 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST60
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 54
REBUILD INDEX LIST LST60 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 55 of 139, 1 index
//STP61 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST61
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 55
REBUILD INDEX LIST LST61 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 56 of 139, 1 index
//STP62 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST62
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 56
REBUILD INDEX LIST LST62 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 57 of 139, 1 index
//STP63 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST63
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 57
REBUILD INDEX LIST LST63 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 58 of 139, 1 index
//STP64 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST64
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 58
REBUILD INDEX LIST LST64 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 59 of 139, 1 index
//STP65 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST65
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 59
REBUILD INDEX LIST LST65 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 60 of 139, 1 index
//STP66 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST66
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 60
REBUILD INDEX LIST LST66 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 61 of 139, 1 index
//STP67 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST67
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 61
REBUILD INDEX LIST LST67 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 62 of 139, 1 index
//STP68 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST68
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 62
REBUILD INDEX LIST LST68 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 63 of 139, 1 index
//STP69 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST69
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 63
REBUILD INDEX LIST LST69 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 64 of 139, 1 index
//STP70 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST70
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 64
REBUILD INDEX LIST LST70 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 65 of 139, 1 index
//STP71 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST71
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 65
REBUILD INDEX LIST LST71 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 66 of 139, 1 index
//STP72 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST72
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 66
REBUILD INDEX LIST LST72 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 67 of 139, 1 index
//STP73 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST73
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 67
REBUILD INDEX LIST LST73 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 68 of 139, 1 index
//STP74 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST74
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 68
REBUILD INDEX LIST LST74 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 69 of 139, 1 index
//STP75 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST75
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 69
REBUILD INDEX LIST LST75 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 70 of 139, 1 index
//STP76 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST76
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 70
REBUILD INDEX LIST LST76 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 71 of 139, 1 index
//STP77 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST77
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 71
REBUILD INDEX LIST LST77 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 72 of 139, 1 index
//STP78 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST78
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 72
REBUILD INDEX LIST LST78 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 73 of 139, 1 index
//STP79 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST79
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 73
REBUILD INDEX LIST LST79 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 74 of 139, 1 index
//STP80 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST80
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 74
REBUILD INDEX LIST LST80 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 75 of 139, 1 index
//STP81 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST81
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 75
REBUILD INDEX LIST LST81 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 76 of 139, 1 index
//STP82 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST82
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 76
REBUILD INDEX LIST LST82 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 77 of 139, 1 index
//STP83 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST83
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 77
REBUILD INDEX LIST LST83 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 78 of 139, 1 index
//STP84 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST84
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 78
REBUILD INDEX LIST LST84 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 79 of 139, 1 index
//STP85 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST85
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 79
REBUILD INDEX LIST LST85 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 80 of 139, 1 index
//STP86 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST86
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 80
REBUILD INDEX LIST LST86 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 81 of 139, 1 index
//STP87 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST87
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 81
REBUILD INDEX LIST LST87 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 82 of 139, 1 index
//STP88 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST88
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 82
REBUILD INDEX LIST LST88 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 83 of 139, 1 index
//STP89 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST89
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 83
REBUILD INDEX LIST LST89 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 84 of 139, 1 index
//STP90 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST90
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 84
REBUILD INDEX LIST LST90 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 85 of 139, 1 index
//STP91 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST91
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 85
REBUILD INDEX LIST LST91 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 86 of 139, 1 index
//STP92 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST92
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 86
REBUILD INDEX LIST LST92 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 87 of 139, 1 index
//STP93 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST93
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 87
REBUILD INDEX LIST LST93 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 88 of 139, 1 index
//STP94 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST94
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 88
REBUILD INDEX LIST LST94 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 89 of 139, 1 index
//STP95 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST95
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 89
REBUILD INDEX LIST LST95 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 90 of 139, 1 index
//STP96 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST96
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 90
REBUILD INDEX LIST LST96 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 91 of 139, 1 index
//STP97 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST97
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 91
REBUILD INDEX LIST LST97 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 92 of 139, 1 index
//STP98 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST98
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 92
REBUILD INDEX LIST LST98 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 93 of 139, 1 index
//STP99 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST99
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 93
REBUILD INDEX LIST LST99 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 94 of 139, 1 index
//STP100 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407691.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST100
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 94
REBUILD INDEX LIST LST100 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//A5407692 JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN SYSTEM=S22
//*
//******* ts XBDM7001.SIT02001 part 95 of 139, 1 index
//STP101 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST101
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 95
REBUILD INDEX LIST LST101 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 96 of 139, 1 index
//STP102 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST102
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 96
REBUILD INDEX LIST LST102 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 97 of 139, 1 index
//STP103 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST103
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 97
REBUILD INDEX LIST LST103 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 98 of 139, 1 index
//STP104 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST104
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 98
REBUILD INDEX LIST LST104 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 99 of 139, 1 index
//STP105 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST105
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 99
REBUILD INDEX LIST LST105 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 100 of 139, 1 index
//STP106 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST106
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 100
REBUILD INDEX LIST LST106 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 101 of 139, 1 index
//STP107 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST107
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 101
REBUILD INDEX LIST LST107 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 102 of 139, 1 index
//STP108 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST108
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 102
REBUILD INDEX LIST LST108 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 103 of 139, 1 index
//STP109 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST109
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 103
REBUILD INDEX LIST LST109 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 104 of 139, 1 index
//STP110 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST110
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 104
REBUILD INDEX LIST LST110 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 105 of 139, 1 index
//STP111 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST111
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 105
REBUILD INDEX LIST LST111 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 106 of 139, 1 index
//STP112 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST112
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 106
REBUILD INDEX LIST LST112 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 107 of 139, 1 index
//STP113 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST113
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 107
REBUILD INDEX LIST LST113 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 108 of 139, 1 index
//STP114 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST114
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 108
REBUILD INDEX LIST LST114 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 109 of 139, 1 index
//STP115 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST115
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 109
REBUILD INDEX LIST LST115 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 110 of 139, 1 index
//STP116 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST116
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 110
REBUILD INDEX LIST LST116 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 111 of 139, 1 index
//STP117 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST117
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 111
REBUILD INDEX LIST LST117 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 112 of 139, 1 index
//STP118 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST118
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 112
REBUILD INDEX LIST LST118 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 113 of 139, 1 index
//STP119 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST119
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 113
REBUILD INDEX LIST LST119 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 114 of 139, 1 index
//STP120 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST120
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 114
REBUILD INDEX LIST LST120 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 115 of 139, 1 index
//STP121 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST121
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 115
REBUILD INDEX LIST LST121 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 116 of 139, 1 index
//STP122 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST122
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 116
REBUILD INDEX LIST LST122 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 117 of 139, 1 index
//STP123 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST123
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 117
REBUILD INDEX LIST LST123 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 118 of 139, 1 index
//STP124 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST124
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 118
REBUILD INDEX LIST LST124 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 119 of 139, 1 index
//STP125 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST125
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 119
REBUILD INDEX LIST LST125 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 120 of 139, 1 index
//STP126 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST126
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 120
REBUILD INDEX LIST LST126 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 121 of 139, 1 index
//STP127 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST127
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 121
REBUILD INDEX LIST LST127 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 122 of 139, 1 index
//STP128 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST128
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 122
REBUILD INDEX LIST LST128 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 123 of 139, 1 index
//STP129 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST129
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 123
REBUILD INDEX LIST LST129 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 124 of 139, 1 index
//STP130 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST130
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 124
REBUILD INDEX LIST LST130 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 125 of 139, 1 index
//STP131 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST131
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 125
REBUILD INDEX LIST LST131 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 126 of 139, 1 index
//STP132 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST132
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 126
REBUILD INDEX LIST LST132 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 127 of 139, 1 index
//STP133 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST133
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 127
REBUILD INDEX LIST LST133 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 128 of 139, 1 index
//STP134 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST134
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 128
REBUILD INDEX LIST LST134 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 129 of 139, 1 index
//STP135 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST135
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 129
REBUILD INDEX LIST LST135 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 130 of 139, 1 index
//STP136 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST136
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 130
REBUILD INDEX LIST LST136 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 131 of 139, 1 index
//STP137 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST137
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 131
REBUILD INDEX LIST LST137 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 132 of 139, 1 index
//STP138 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST138
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 132
REBUILD INDEX LIST LST138 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 133 of 139, 1 index
//STP139 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST139
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 133
REBUILD INDEX LIST LST139 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 134 of 139, 1 index
//STP140 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST140
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 134
REBUILD INDEX LIST LST140 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 135 of 139, 1 index
//STP141 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST141
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 135
REBUILD INDEX LIST LST141 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 136 of 139, 1 index
//STP142 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST142
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 136
REBUILD INDEX LIST LST142 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 137 of 139, 1 index
//STP143 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST143
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 137
REBUILD INDEX LIST LST143 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 138 of 139, 1 index
//STP144 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST144
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 138
REBUILD INDEX LIST LST144 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SIT02001 part 139 of 139, 1 index
//STP145 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST145
INCLUDE INDEX BUA.I0006XFA_MIG PARTLEVEL 139
REBUILD INDEX LIST LST145 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 1 of 36, 1 index
//STP146 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST146
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 1
REBUILD INDEX LIST LST146 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 2 of 36, 1 index
//STP147 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST147
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 2
REBUILD INDEX LIST LST147 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 3 of 36, 1 index
//STP148 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST148
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 3
REBUILD INDEX LIST LST148 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 4 of 36, 1 index
//STP149 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST149
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 4
REBUILD INDEX LIST LST149 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 5 of 36, 1 index
//STP150 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST150
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 5
REBUILD INDEX LIST LST150 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 6 of 36, 1 index
//STP151 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST151
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 6
REBUILD INDEX LIST LST151 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 7 of 36, 1 index
//STP152 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST152
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 7
REBUILD INDEX LIST LST152 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 8 of 36, 1 index
//STP153 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST153
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 8
REBUILD INDEX LIST LST153 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 9 of 36, 1 index
//STP154 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST154
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 9
REBUILD INDEX LIST LST154 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 10 of 36, 1 index
//STP155 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST155
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 10
REBUILD INDEX LIST LST155 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 11 of 36, 1 index
//STP156 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST156
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 11
REBUILD INDEX LIST LST156 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 12 of 36, 1 index
//STP157 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST157
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 12
REBUILD INDEX LIST LST157 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 13 of 36, 1 index
//STP158 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST158
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 13
REBUILD INDEX LIST LST158 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 14 of 36, 1 index
//STP159 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST159
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 14
REBUILD INDEX LIST LST159 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 15 of 36, 1 index
//STP160 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST160
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 15
REBUILD INDEX LIST LST160 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 16 of 36, 1 index
//STP161 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST161
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 16
REBUILD INDEX LIST LST161 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 17 of 36, 1 index
//STP162 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST162
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 17
REBUILD INDEX LIST LST162 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 18 of 36, 1 index
//STP163 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST163
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 18
REBUILD INDEX LIST LST163 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 19 of 36, 1 index
//STP164 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST164
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 19
REBUILD INDEX LIST LST164 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 20 of 36, 1 index
//STP165 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST165
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 20
REBUILD INDEX LIST LST165 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 21 of 36, 1 index
//STP166 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST166
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 21
REBUILD INDEX LIST LST166 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 22 of 36, 1 index
//STP167 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST167
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 22
REBUILD INDEX LIST LST167 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 23 of 36, 1 index
//STP168 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST168
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 23
REBUILD INDEX LIST LST168 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 24 of 36, 1 index
//STP169 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST169
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 24
REBUILD INDEX LIST LST169 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 25 of 36, 1 index
//STP170 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST170
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 25
REBUILD INDEX LIST LST170 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 26 of 36, 1 index
//STP171 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST171
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 26
REBUILD INDEX LIST LST171 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 27 of 36, 1 index
//STP172 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST172
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 27
REBUILD INDEX LIST LST172 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 28 of 36, 1 index
//STP173 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST173
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 28
REBUILD INDEX LIST LST173 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 29 of 36, 1 index
//STP174 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST174
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 29
REBUILD INDEX LIST LST174 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 30 of 36, 1 index
//STP175 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST175
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 30
REBUILD INDEX LIST LST175 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 31 of 36, 1 index
//STP176 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST176
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 31
REBUILD INDEX LIST LST176 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 32 of 36, 1 index
//STP177 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST177
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 32
REBUILD INDEX LIST LST177 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 33 of 36, 1 index
//STP178 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST178
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 33
REBUILD INDEX LIST LST178 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 34 of 36, 1 index
//STP179 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST179
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 34
REBUILD INDEX LIST LST179 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 35 of 36, 1 index
//STP180 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST180
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 35
REBUILD INDEX LIST LST180 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01002 part 36 of 36, 1 index
//STP181 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST181
INCLUDE INDEX BUA.I0006XF4_MIG PARTLEVEL 36
REBUILD INDEX LIST LST181 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 1 of 87, 2 index
//STP182 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST182
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 1
REBUILD INDEX LIST LST182 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 2 of 87, 2 index
//STP183 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST183
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 2
REBUILD INDEX LIST LST183 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 3 of 87, 2 index
//STP184 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST184
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 3
REBUILD INDEX LIST LST184 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 4 of 87, 2 index
//STP185 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST185
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 4
REBUILD INDEX LIST LST185 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 5 of 87, 2 index
//STP186 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST186
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 5
REBUILD INDEX LIST LST186 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 6 of 87, 2 index
//STP187 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST187
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 6
REBUILD INDEX LIST LST187 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 7 of 87, 2 index
//STP188 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST188
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 7
REBUILD INDEX LIST LST188 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 8 of 87, 2 index
//STP189 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST189
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 8
REBUILD INDEX LIST LST189 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 9 of 87, 2 index
//STP190 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST190
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 9
REBUILD INDEX LIST LST190 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 10 of 87, 2 index
//STP191 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST191
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 10
REBUILD INDEX LIST LST191 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 11 of 87, 2 index
//STP192 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST192
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 11
REBUILD INDEX LIST LST192 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 12 of 87, 2 index
//STP193 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST193
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 12
REBUILD INDEX LIST LST193 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 13 of 87, 2 index
//STP194 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST194
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 13
REBUILD INDEX LIST LST194 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 14 of 87, 2 index
//STP195 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST195
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 14
REBUILD INDEX LIST LST195 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 15 of 87, 2 index
//STP196 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST196
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 15
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 15
REBUILD INDEX LIST LST196 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 16 of 87, 2 index
//STP197 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST197
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 16
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 16
REBUILD INDEX LIST LST197 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 17 of 87, 2 index
//STP198 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST198
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 17
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 17
REBUILD INDEX LIST LST198 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 18 of 87, 2 index
//STP199 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST199
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 18
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 18
REBUILD INDEX LIST LST199 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 19 of 87, 2 index
//STP200 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407692.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST200
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 19
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 19
REBUILD INDEX LIST LST200 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//A5407693 JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN SYSTEM=S23
//*
//******* ts XBDM7001.SPM01003 part 20 of 87, 2 index
//STP201 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST201
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 20
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 20
REBUILD INDEX LIST LST201 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 21 of 87, 2 index
//STP202 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST202
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 21
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 21
REBUILD INDEX LIST LST202 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 22 of 87, 2 index
//STP203 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST203
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 22
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 22
REBUILD INDEX LIST LST203 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 23 of 87, 2 index
//STP204 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST204
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 23
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 23
REBUILD INDEX LIST LST204 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 24 of 87, 2 index
//STP205 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST205
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 24
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 24
REBUILD INDEX LIST LST205 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 25 of 87, 2 index
//STP206 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST206
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 25
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 25
REBUILD INDEX LIST LST206 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 26 of 87, 2 index
//STP207 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST207
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 26
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 26
REBUILD INDEX LIST LST207 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 27 of 87, 2 index
//STP208 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST208
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 27
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 27
REBUILD INDEX LIST LST208 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 28 of 87, 2 index
//STP209 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST209
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 28
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 28
REBUILD INDEX LIST LST209 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 29 of 87, 2 index
//STP210 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST210
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 29
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 29
REBUILD INDEX LIST LST210 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 30 of 87, 2 index
//STP211 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST211
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 30
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 30
REBUILD INDEX LIST LST211 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 31 of 87, 2 index
//STP212 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST212
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 31
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 31
REBUILD INDEX LIST LST212 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 32 of 87, 2 index
//STP213 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST213
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 32
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 32
REBUILD INDEX LIST LST213 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 33 of 87, 2 index
//STP214 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST214
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 33
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 33
REBUILD INDEX LIST LST214 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 34 of 87, 2 index
//STP215 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST215
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 34
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 34
REBUILD INDEX LIST LST215 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 35 of 87, 2 index
//STP216 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST216
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 35
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 35
REBUILD INDEX LIST LST216 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 36 of 87, 2 index
//STP217 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST217
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 36
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 36
REBUILD INDEX LIST LST217 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 37 of 87, 2 index
//STP218 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST218
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 37
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 37
REBUILD INDEX LIST LST218 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 38 of 87, 2 index
//STP219 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST219
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 38
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 38
REBUILD INDEX LIST LST219 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 39 of 87, 2 index
//STP220 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST220
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 39
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 39
REBUILD INDEX LIST LST220 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 40 of 87, 2 index
//STP221 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST221
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 40
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 40
REBUILD INDEX LIST LST221 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 41 of 87, 2 index
//STP222 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST222
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 41
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 41
REBUILD INDEX LIST LST222 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 42 of 87, 2 index
//STP223 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST223
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 42
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 42
REBUILD INDEX LIST LST223 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 43 of 87, 2 index
//STP224 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST224
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 43
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 43
REBUILD INDEX LIST LST224 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 44 of 87, 2 index
//STP225 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST225
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 44
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 44
REBUILD INDEX LIST LST225 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 45 of 87, 2 index
//STP226 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST226
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 45
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 45
REBUILD INDEX LIST LST226 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 46 of 87, 2 index
//STP227 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST227
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 46
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 46
REBUILD INDEX LIST LST227 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 47 of 87, 2 index
//STP228 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST228
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 47
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 47
REBUILD INDEX LIST LST228 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 48 of 87, 2 index
//STP229 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST229
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 48
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 48
REBUILD INDEX LIST LST229 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 49 of 87, 2 index
//STP230 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST230
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 49
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 49
REBUILD INDEX LIST LST230 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 50 of 87, 2 index
//STP231 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST231
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 50
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 50
REBUILD INDEX LIST LST231 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 51 of 87, 2 index
//STP232 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST232
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 51
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 51
REBUILD INDEX LIST LST232 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 52 of 87, 2 index
//STP233 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST233
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 52
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 52
REBUILD INDEX LIST LST233 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 53 of 87, 2 index
//STP234 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST234
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 53
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 53
REBUILD INDEX LIST LST234 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 54 of 87, 2 index
//STP235 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST235
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 54
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 54
REBUILD INDEX LIST LST235 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 55 of 87, 2 index
//STP236 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST236
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 55
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 55
REBUILD INDEX LIST LST236 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 56 of 87, 2 index
//STP237 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST237
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 56
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 56
REBUILD INDEX LIST LST237 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 57 of 87, 2 index
//STP238 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST238
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 57
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 57
REBUILD INDEX LIST LST238 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 58 of 87, 2 index
//STP239 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST239
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 58
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 58
REBUILD INDEX LIST LST239 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 59 of 87, 2 index
//STP240 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST240
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 59
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 59
REBUILD INDEX LIST LST240 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 60 of 87, 2 index
//STP241 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST241
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 60
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 60
REBUILD INDEX LIST LST241 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 61 of 87, 2 index
//STP242 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST242
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 61
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 61
REBUILD INDEX LIST LST242 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 62 of 87, 2 index
//STP243 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST243
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 62
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 62
REBUILD INDEX LIST LST243 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 63 of 87, 2 index
//STP244 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST244
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 63
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 63
REBUILD INDEX LIST LST244 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 64 of 87, 2 index
//STP245 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST245
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 64
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 64
REBUILD INDEX LIST LST245 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 65 of 87, 2 index
//STP246 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST246
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 65
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 65
REBUILD INDEX LIST LST246 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 66 of 87, 2 index
//STP247 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST247
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 66
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 66
REBUILD INDEX LIST LST247 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 67 of 87, 2 index
//STP248 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST248
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 67
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 67
REBUILD INDEX LIST LST248 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 68 of 87, 2 index
//STP249 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST249
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 68
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 68
REBUILD INDEX LIST LST249 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 69 of 87, 2 index
//STP250 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST250
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 69
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 69
REBUILD INDEX LIST LST250 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 70 of 87, 2 index
//STP251 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST251
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 70
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 70
REBUILD INDEX LIST LST251 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 71 of 87, 2 index
//STP252 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST252
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 71
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 71
REBUILD INDEX LIST LST252 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 72 of 87, 2 index
//STP253 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST253
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 72
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 72
REBUILD INDEX LIST LST253 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 73 of 87, 2 index
//STP254 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST254
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 73
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 73
REBUILD INDEX LIST LST254 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 74 of 87, 2 index
//STP255 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST255
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 74
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 74
REBUILD INDEX LIST LST255 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 75 of 87, 2 index
//STP256 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST256
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 75
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 75
REBUILD INDEX LIST LST256 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 76 of 87, 2 index
//STP257 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST257
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 76
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 76
REBUILD INDEX LIST LST257 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 77 of 87, 2 index
//STP258 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST258
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 77
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 77
REBUILD INDEX LIST LST258 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 78 of 87, 2 index
//STP259 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST259
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 78
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 78
REBUILD INDEX LIST LST259 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 79 of 87, 2 index
//STP260 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST260
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 79
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 79
REBUILD INDEX LIST LST260 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 80 of 87, 2 index
//STP261 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST261
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 80
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 80
REBUILD INDEX LIST LST261 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 81 of 87, 2 index
//STP262 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST262
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 81
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 81
REBUILD INDEX LIST LST262 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 82 of 87, 2 index
//STP263 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST263
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 82
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 82
REBUILD INDEX LIST LST263 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 83 of 87, 2 index
//STP264 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST264
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 83
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 83
REBUILD INDEX LIST LST264 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 84 of 87, 2 index
//STP265 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST265
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 84
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 84
REBUILD INDEX LIST LST265 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 85 of 87, 2 index
//STP266 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST266
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 85
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 85
REBUILD INDEX LIST LST266 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 86 of 87, 2 index
//STP267 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST267
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 86
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 86
REBUILD INDEX LIST LST267 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPM01003 part 87 of 87, 2 index
//STP268 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST268
INCLUDE INDEX BUA.I0006XF5_MIG PARTLEVEL 87
INCLUDE INDEX BUA.I0006XF6_MIG PARTLEVEL 87
REBUILD INDEX LIST LST268 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 1 of 71, 3 index
//STP269 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST269
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 1
REBUILD INDEX LIST LST269 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 2 of 71, 3 index
//STP270 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST270
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 2
REBUILD INDEX LIST LST270 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 3 of 71, 3 index
//STP271 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST271
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 3
REBUILD INDEX LIST LST271 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 4 of 71, 3 index
//STP272 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST272
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 4
REBUILD INDEX LIST LST272 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 5 of 71, 3 index
//STP273 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST273
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 5
REBUILD INDEX LIST LST273 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 6 of 71, 3 index
//STP274 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST274
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 6
REBUILD INDEX LIST LST274 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 7 of 71, 3 index
//STP275 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST275
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 7
REBUILD INDEX LIST LST275 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 8 of 71, 3 index
//STP276 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST276
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 8
REBUILD INDEX LIST LST276 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 9 of 71, 3 index
//STP277 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST277
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 9
REBUILD INDEX LIST LST277 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 10 of 71, 3 index
//STP278 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST278
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 10
REBUILD INDEX LIST LST278 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 11 of 71, 3 index
//STP279 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST279
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 11
REBUILD INDEX LIST LST279 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 12 of 71, 3 index
//STP280 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST280
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 12
REBUILD INDEX LIST LST280 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 13 of 71, 3 index
//STP281 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST281
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 13
REBUILD INDEX LIST LST281 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 14 of 71, 3 index
//STP282 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST282
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 14
REBUILD INDEX LIST LST282 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 15 of 71, 3 index
//STP283 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST283
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 15
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 15
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 15
REBUILD INDEX LIST LST283 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 16 of 71, 3 index
//STP284 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST284
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 16
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 16
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 16
REBUILD INDEX LIST LST284 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 17 of 71, 3 index
//STP285 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST285
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 17
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 17
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 17
REBUILD INDEX LIST LST285 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 18 of 71, 3 index
//STP286 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST286
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 18
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 18
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 18
REBUILD INDEX LIST LST286 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 19 of 71, 3 index
//STP287 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST287
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 19
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 19
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 19
REBUILD INDEX LIST LST287 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 20 of 71, 3 index
//STP288 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST288
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 20
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 20
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 20
REBUILD INDEX LIST LST288 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 21 of 71, 3 index
//STP289 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST289
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 21
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 21
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 21
REBUILD INDEX LIST LST289 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 22 of 71, 3 index
//STP290 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST290
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 22
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 22
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 22
REBUILD INDEX LIST LST290 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 23 of 71, 3 index
//STP291 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST291
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 23
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 23
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 23
REBUILD INDEX LIST LST291 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 24 of 71, 3 index
//STP292 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST292
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 24
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 24
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 24
REBUILD INDEX LIST LST292 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 25 of 71, 3 index
//STP293 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST293
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 25
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 25
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 25
REBUILD INDEX LIST LST293 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 26 of 71, 3 index
//STP294 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST294
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 26
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 26
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 26
REBUILD INDEX LIST LST294 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 27 of 71, 3 index
//STP295 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST295
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 27
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 27
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 27
REBUILD INDEX LIST LST295 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 28 of 71, 3 index
//STP296 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST296
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 28
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 28
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 28
REBUILD INDEX LIST LST296 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 29 of 71, 3 index
//STP297 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST297
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 29
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 29
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 29
REBUILD INDEX LIST LST297 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 30 of 71, 3 index
//STP298 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST298
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 30
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 30
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 30
REBUILD INDEX LIST LST298 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 31 of 71, 3 index
//STP299 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST299
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 31
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 31
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 31
REBUILD INDEX LIST LST299 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 32 of 71, 3 index
//STP300 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407693.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST300
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 32
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 32
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 32
REBUILD INDEX LIST LST300 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//A5407694 JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN SYSTEM=S24
//*
//******* ts XBDM7001.SPS01001 part 33 of 71, 3 index
//STP301 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST301
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 33
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 33
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 33
REBUILD INDEX LIST LST301 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 34 of 71, 3 index
//STP302 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST302
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 34
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 34
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 34
REBUILD INDEX LIST LST302 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 35 of 71, 3 index
//STP303 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST303
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 35
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 35
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 35
REBUILD INDEX LIST LST303 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 36 of 71, 3 index
//STP304 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST304
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 36
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 36
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 36
REBUILD INDEX LIST LST304 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 37 of 71, 3 index
//STP305 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST305
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 37
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 37
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 37
REBUILD INDEX LIST LST305 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 38 of 71, 3 index
//STP306 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST306
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 38
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 38
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 38
REBUILD INDEX LIST LST306 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 39 of 71, 3 index
//STP307 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST307
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 39
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 39
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 39
REBUILD INDEX LIST LST307 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 40 of 71, 3 index
//STP308 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST308
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 40
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 40
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 40
REBUILD INDEX LIST LST308 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 41 of 71, 3 index
//STP309 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST309
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 41
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 41
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 41
REBUILD INDEX LIST LST309 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 42 of 71, 3 index
//STP310 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST310
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 42
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 42
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 42
REBUILD INDEX LIST LST310 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 43 of 71, 3 index
//STP311 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST311
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 43
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 43
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 43
REBUILD INDEX LIST LST311 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 44 of 71, 3 index
//STP312 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST312
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 44
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 44
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 44
REBUILD INDEX LIST LST312 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 45 of 71, 3 index
//STP313 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST313
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 45
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 45
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 45
REBUILD INDEX LIST LST313 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 46 of 71, 3 index
//STP314 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST314
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 46
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 46
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 46
REBUILD INDEX LIST LST314 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 47 of 71, 3 index
//STP315 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST315
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 47
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 47
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 47
REBUILD INDEX LIST LST315 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 48 of 71, 3 index
//STP316 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST316
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 48
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 48
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 48
REBUILD INDEX LIST LST316 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 49 of 71, 3 index
//STP317 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST317
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 49
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 49
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 49
REBUILD INDEX LIST LST317 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 50 of 71, 3 index
//STP318 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST318
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 50
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 50
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 50
REBUILD INDEX LIST LST318 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 51 of 71, 3 index
//STP319 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST319
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 51
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 51
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 51
REBUILD INDEX LIST LST319 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 52 of 71, 3 index
//STP320 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST320
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 52
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 52
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 52
REBUILD INDEX LIST LST320 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 53 of 71, 3 index
//STP321 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST321
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 53
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 53
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 53
REBUILD INDEX LIST LST321 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 54 of 71, 3 index
//STP322 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST322
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 54
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 54
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 54
REBUILD INDEX LIST LST322 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 55 of 71, 3 index
//STP323 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST323
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 55
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 55
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 55
REBUILD INDEX LIST LST323 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 56 of 71, 3 index
//STP324 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST324
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 56
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 56
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 56
REBUILD INDEX LIST LST324 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 57 of 71, 3 index
//STP325 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST325
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 57
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 57
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 57
REBUILD INDEX LIST LST325 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 58 of 71, 3 index
//STP326 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST326
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 58
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 58
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 58
REBUILD INDEX LIST LST326 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 59 of 71, 3 index
//STP327 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST327
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 59
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 59
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 59
REBUILD INDEX LIST LST327 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 60 of 71, 3 index
//STP328 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST328
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 60
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 60
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 60
REBUILD INDEX LIST LST328 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 61 of 71, 3 index
//STP329 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST329
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 61
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 61
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 61
REBUILD INDEX LIST LST329 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 62 of 71, 3 index
//STP330 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST330
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 62
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 62
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 62
REBUILD INDEX LIST LST330 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 63 of 71, 3 index
//STP331 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST331
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 63
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 63
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 63
REBUILD INDEX LIST LST331 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 64 of 71, 3 index
//STP332 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST332
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 64
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 64
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 64
REBUILD INDEX LIST LST332 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 65 of 71, 3 index
//STP333 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST333
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 65
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 65
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 65
REBUILD INDEX LIST LST333 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 66 of 71, 3 index
//STP334 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST334
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 66
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 66
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 66
REBUILD INDEX LIST LST334 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 67 of 71, 3 index
//STP335 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST335
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 67
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 67
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 67
REBUILD INDEX LIST LST335 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 68 of 71, 3 index
//STP336 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST336
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 68
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 68
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 68
REBUILD INDEX LIST LST336 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 69 of 71, 3 index
//STP337 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST337
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 69
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 69
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 69
REBUILD INDEX LIST LST337 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 70 of 71, 3 index
//STP338 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST338
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 70
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 70
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 70
REBUILD INDEX LIST LST338 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS01001 part 71 of 71, 3 index
//STP339 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST339
INCLUDE INDEX BUA.I0006XF7_MIG PARTLEVEL 71
INCLUDE INDEX BUA.I0006XF8_MIG PARTLEVEL 71
INCLUDE INDEX BUA.I0006XF9_MIG PARTLEVEL 71
REBUILD INDEX LIST LST339 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 1 of 49, 2 index
//STP340 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST340
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 1
REBUILD INDEX LIST LST340 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 2 of 49, 2 index
//STP341 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST341
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 2
REBUILD INDEX LIST LST341 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 3 of 49, 2 index
//STP342 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST342
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 3
REBUILD INDEX LIST LST342 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 4 of 49, 2 index
//STP343 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST343
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 4
REBUILD INDEX LIST LST343 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 5 of 49, 2 index
//STP344 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST344
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 5
REBUILD INDEX LIST LST344 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 6 of 49, 2 index
//STP345 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST345
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 6
REBUILD INDEX LIST LST345 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 7 of 49, 2 index
//STP346 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST346
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 7
REBUILD INDEX LIST LST346 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 8 of 49, 2 index
//STP347 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST347
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 8
REBUILD INDEX LIST LST347 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 9 of 49, 2 index
//STP348 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST348
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 9
REBUILD INDEX LIST LST348 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 10 of 49, 2 index
//STP349 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST349
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 10
REBUILD INDEX LIST LST349 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 11 of 49, 2 index
//STP350 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST350
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 11
REBUILD INDEX LIST LST350 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 12 of 49, 2 index
//STP351 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST351
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 12
REBUILD INDEX LIST LST351 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 13 of 49, 2 index
//STP352 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST352
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 13
REBUILD INDEX LIST LST352 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 14 of 49, 2 index
//STP353 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST353
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 14
REBUILD INDEX LIST LST353 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 15 of 49, 2 index
//STP354 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST354
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 15
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 15
REBUILD INDEX LIST LST354 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 16 of 49, 2 index
//STP355 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST355
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 16
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 16
REBUILD INDEX LIST LST355 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 17 of 49, 2 index
//STP356 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST356
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 17
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 17
REBUILD INDEX LIST LST356 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 18 of 49, 2 index
//STP357 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST357
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 18
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 18
REBUILD INDEX LIST LST357 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 19 of 49, 2 index
//STP358 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST358
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 19
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 19
REBUILD INDEX LIST LST358 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 20 of 49, 2 index
//STP359 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST359
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 20
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 20
REBUILD INDEX LIST LST359 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 21 of 49, 2 index
//STP360 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST360
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 21
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 21
REBUILD INDEX LIST LST360 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 22 of 49, 2 index
//STP361 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST361
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 22
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 22
REBUILD INDEX LIST LST361 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 23 of 49, 2 index
//STP362 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST362
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 23
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 23
REBUILD INDEX LIST LST362 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 24 of 49, 2 index
//STP363 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST363
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 24
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 24
REBUILD INDEX LIST LST363 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 25 of 49, 2 index
//STP364 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST364
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 25
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 25
REBUILD INDEX LIST LST364 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 26 of 49, 2 index
//STP365 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST365
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 26
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 26
REBUILD INDEX LIST LST365 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 27 of 49, 2 index
//STP366 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST366
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 27
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 27
REBUILD INDEX LIST LST366 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 28 of 49, 2 index
//STP367 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST367
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 28
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 28
REBUILD INDEX LIST LST367 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 29 of 49, 2 index
//STP368 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST368
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 29
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 29
REBUILD INDEX LIST LST368 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 30 of 49, 2 index
//STP369 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST369
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 30
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 30
REBUILD INDEX LIST LST369 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 31 of 49, 2 index
//STP370 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST370
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 31
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 31
REBUILD INDEX LIST LST370 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 32 of 49, 2 index
//STP371 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST371
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 32
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 32
REBUILD INDEX LIST LST371 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 33 of 49, 2 index
//STP372 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST372
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 33
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 33
REBUILD INDEX LIST LST372 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 34 of 49, 2 index
//STP373 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST373
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 34
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 34
REBUILD INDEX LIST LST373 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 35 of 49, 2 index
//STP374 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST374
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 35
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 35
REBUILD INDEX LIST LST374 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 36 of 49, 2 index
//STP375 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST375
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 36
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 36
REBUILD INDEX LIST LST375 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 37 of 49, 2 index
//STP376 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST376
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 37
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 37
REBUILD INDEX LIST LST376 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 38 of 49, 2 index
//STP377 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST377
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 38
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 38
REBUILD INDEX LIST LST377 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 39 of 49, 2 index
//STP378 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST378
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 39
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 39
REBUILD INDEX LIST LST378 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 40 of 49, 2 index
//STP379 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST379
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 40
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 40
REBUILD INDEX LIST LST379 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 41 of 49, 2 index
//STP380 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST380
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 41
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 41
REBUILD INDEX LIST LST380 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 42 of 49, 2 index
//STP381 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST381
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 42
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 42
REBUILD INDEX LIST LST381 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 43 of 49, 2 index
//STP382 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST382
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 43
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 43
REBUILD INDEX LIST LST382 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 44 of 49, 2 index
//STP383 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST383
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 44
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 44
REBUILD INDEX LIST LST383 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 45 of 49, 2 index
//STP384 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST384
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 45
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 45
REBUILD INDEX LIST LST384 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 46 of 49, 2 index
//STP385 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST385
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 46
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 46
REBUILD INDEX LIST LST385 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 47 of 49, 2 index
//STP386 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST386
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 47
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 47
REBUILD INDEX LIST LST386 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 48 of 49, 2 index
//STP387 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST387
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 48
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 48
REBUILD INDEX LIST LST387 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDM7001.SPS02001 part 49 of 49, 2 index
//STP388 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST388
INCLUDE INDEX BUA.I0006XFB_MIG PARTLEVEL 49
INCLUDE INDEX BUA.I0006XFC_MIG PARTLEVEL 49
REBUILD INDEX LIST LST388 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 1 of 46, 1 index
//STP389 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST389
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 1
REBUILD INDEX LIST LST389 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 2 of 46, 1 index
//STP390 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST390
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 2
REBUILD INDEX LIST LST390 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 3 of 46, 1 index
//STP391 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST391
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 3
REBUILD INDEX LIST LST391 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 4 of 46, 1 index
//STP392 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST392
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 4
REBUILD INDEX LIST LST392 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 5 of 46, 1 index
//STP393 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST393
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 5
REBUILD INDEX LIST LST393 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 6 of 46, 1 index
//STP394 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST394
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 6
REBUILD INDEX LIST LST394 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 7 of 46, 1 index
//STP395 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST395
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 7
REBUILD INDEX LIST LST395 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 8 of 46, 1 index
//STP396 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST396
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 8
REBUILD INDEX LIST LST396 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 9 of 46, 1 index
//STP397 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST397
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 9
REBUILD INDEX LIST LST397 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 10 of 46, 1 index
//STP398 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST398
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 10
REBUILD INDEX LIST LST398 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 11 of 46, 1 index
//STP399 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST399
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 11
REBUILD INDEX LIST LST399 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 12 of 46, 1 index
//STP400 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407694.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST400
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 12
REBUILD INDEX LIST LST400 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//A5407691 JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN SYSTEM=S21
//*
//******* ts XBDMI001.SIT02001 part 13 of 46, 1 index
//STP401 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST401
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 13
REBUILD INDEX LIST LST401 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 14 of 46, 1 index
//STP402 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST402
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 14
REBUILD INDEX LIST LST402 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 15 of 46, 1 index
//STP403 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST403
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 15
REBUILD INDEX LIST LST403 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 16 of 46, 1 index
//STP404 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST404
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 16
REBUILD INDEX LIST LST404 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 17 of 46, 1 index
//STP405 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST405
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 17
REBUILD INDEX LIST LST405 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 18 of 46, 1 index
//STP406 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST406
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 18
REBUILD INDEX LIST LST406 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 19 of 46, 1 index
//STP407 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST407
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 19
REBUILD INDEX LIST LST407 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 20 of 46, 1 index
//STP408 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST408
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 20
REBUILD INDEX LIST LST408 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 21 of 46, 1 index
//STP409 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST409
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 21
REBUILD INDEX LIST LST409 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 22 of 46, 1 index
//STP410 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST410
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 22
REBUILD INDEX LIST LST410 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 23 of 46, 1 index
//STP411 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST411
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 23
REBUILD INDEX LIST LST411 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 24 of 46, 1 index
//STP412 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST412
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 24
REBUILD INDEX LIST LST412 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 25 of 46, 1 index
//STP413 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST413
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 25
REBUILD INDEX LIST LST413 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 26 of 46, 1 index
//STP414 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST414
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 26
REBUILD INDEX LIST LST414 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 27 of 46, 1 index
//STP415 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST415
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 27
REBUILD INDEX LIST LST415 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 28 of 46, 1 index
//STP416 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST416
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 28
REBUILD INDEX LIST LST416 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 29 of 46, 1 index
//STP417 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST417
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 29
REBUILD INDEX LIST LST417 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 30 of 46, 1 index
//STP418 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST418
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 30
REBUILD INDEX LIST LST418 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 31 of 46, 1 index
//STP419 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST419
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 31
REBUILD INDEX LIST LST419 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 32 of 46, 1 index
//STP420 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST420
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 32
REBUILD INDEX LIST LST420 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 33 of 46, 1 index
//STP421 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST421
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 33
REBUILD INDEX LIST LST421 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 34 of 46, 1 index
//STP422 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST422
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 34
REBUILD INDEX LIST LST422 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 35 of 46, 1 index
//STP423 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST423
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 35
REBUILD INDEX LIST LST423 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 36 of 46, 1 index
//STP424 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST424
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 36
REBUILD INDEX LIST LST424 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 37 of 46, 1 index
//STP425 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST425
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 37
REBUILD INDEX LIST LST425 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 38 of 46, 1 index
//STP426 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST426
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 38
REBUILD INDEX LIST LST426 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 39 of 46, 1 index
//STP427 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST427
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 39
REBUILD INDEX LIST LST427 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 40 of 46, 1 index
//STP428 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST428
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 40
REBUILD INDEX LIST LST428 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 41 of 46, 1 index
//STP429 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST429
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 41
REBUILD INDEX LIST LST429 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 42 of 46, 1 index
//STP430 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST430
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 42
REBUILD INDEX LIST LST430 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 43 of 46, 1 index
//STP431 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST431
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 43
REBUILD INDEX LIST LST431 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 44 of 46, 1 index
//STP432 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST432
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 44
REBUILD INDEX LIST LST432 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 45 of 46, 1 index
//STP433 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST433
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 45
REBUILD INDEX LIST LST433 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SIT02001 part 46 of 46, 1 index
//STP434 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST434
INCLUDE INDEX BUA.I0004PS1_MIG PARTLEVEL 46
REBUILD INDEX LIST LST434 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 1 of 14, 7 index
//STP435 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST435
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 1
REBUILD INDEX LIST LST435 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 2 of 14, 7 index
//STP436 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST436
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 2
REBUILD INDEX LIST LST436 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 3 of 14, 7 index
//STP437 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST437
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 3
REBUILD INDEX LIST LST437 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 4 of 14, 7 index
//STP438 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST438
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 4
REBUILD INDEX LIST LST438 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 5 of 14, 7 index
//STP439 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST439
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 5
REBUILD INDEX LIST LST439 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 6 of 14, 7 index
//STP440 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST440
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 6
REBUILD INDEX LIST LST440 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 7 of 14, 7 index
//STP441 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST441
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 7
REBUILD INDEX LIST LST441 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 8 of 14, 7 index
//STP442 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST442
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 8
REBUILD INDEX LIST LST442 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 9 of 14, 7 index
//STP443 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST443
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 9
REBUILD INDEX LIST LST443 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 10 of 14, 7 index
//STP444 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST444
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 10
REBUILD INDEX LIST LST444 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 11 of 14, 7 index
//STP445 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST445
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 11
REBUILD INDEX LIST LST445 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 12 of 14, 7 index
//STP446 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST446
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 12
REBUILD INDEX LIST LST446 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 13 of 14, 7 index
//STP447 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST447
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 13
REBUILD INDEX LIST LST447 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS01001 part 14 of 14, 7 index
//STP448 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST448
INCLUDE INDEX BUA.I0004PRU_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0004PRV_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0004PRW_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0004PRX_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0004PRY_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0004PRZ_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0004PS0_MIG PARTLEVEL 14
REBUILD INDEX LIST LST448 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 1 of 26, 4 index
//STP449 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST449
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 1
REBUILD INDEX LIST LST449 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 2 of 26, 4 index
//STP450 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST450
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 2
REBUILD INDEX LIST LST450 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 3 of 26, 4 index
//STP451 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST451
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 3
REBUILD INDEX LIST LST451 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 4 of 26, 4 index
//STP452 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST452
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 4
REBUILD INDEX LIST LST452 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 5 of 26, 4 index
//STP453 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST453
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 5
REBUILD INDEX LIST LST453 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 6 of 26, 4 index
//STP454 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST454
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 6
REBUILD INDEX LIST LST454 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 7 of 26, 4 index
//STP455 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST455
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 7
REBUILD INDEX LIST LST455 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 8 of 26, 4 index
//STP456 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST456
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 8
REBUILD INDEX LIST LST456 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 9 of 26, 4 index
//STP457 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST457
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 9
REBUILD INDEX LIST LST457 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 10 of 26, 4 index
//STP458 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST458
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 10
REBUILD INDEX LIST LST458 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 11 of 26, 4 index
//STP459 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST459
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 11
REBUILD INDEX LIST LST459 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 12 of 26, 4 index
//STP460 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST460
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 12
REBUILD INDEX LIST LST460 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 13 of 26, 4 index
//STP461 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST461
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 13
REBUILD INDEX LIST LST461 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 14 of 26, 4 index
//STP462 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST462
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 14
REBUILD INDEX LIST LST462 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 15 of 26, 4 index
//STP463 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST463
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 15
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 15
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 15
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 15
REBUILD INDEX LIST LST463 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 16 of 26, 4 index
//STP464 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST464
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 16
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 16
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 16
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 16
REBUILD INDEX LIST LST464 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 17 of 26, 4 index
//STP465 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST465
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 17
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 17
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 17
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 17
REBUILD INDEX LIST LST465 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 18 of 26, 4 index
//STP466 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST466
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 18
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 18
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 18
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 18
REBUILD INDEX LIST LST466 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 19 of 26, 4 index
//STP467 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST467
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 19
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 19
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 19
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 19
REBUILD INDEX LIST LST467 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 20 of 26, 4 index
//STP468 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST468
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 20
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 20
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 20
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 20
REBUILD INDEX LIST LST468 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 21 of 26, 4 index
//STP469 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST469
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 21
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 21
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 21
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 21
REBUILD INDEX LIST LST469 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 22 of 26, 4 index
//STP470 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST470
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 22
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 22
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 22
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 22
REBUILD INDEX LIST LST470 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 23 of 26, 4 index
//STP471 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST471
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 23
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 23
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 23
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 23
REBUILD INDEX LIST LST471 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 24 of 26, 4 index
//STP472 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST472
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 24
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 24
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 24
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 24
REBUILD INDEX LIST LST472 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 25 of 26, 4 index
//STP473 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST473
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 25
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 25
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 25
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 25
REBUILD INDEX LIST LST473 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDMI001.SPS02001 part 26 of 26, 4 index
//STP474 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST474
INCLUDE INDEX BUA.I0004PS2_MIG PARTLEVEL 26
INCLUDE INDEX BUA.I0004PS3_MIG PARTLEVEL 26
INCLUDE INDEX BUA.I0004PS4_MIG PARTLEVEL 26
INCLUDE INDEX BUA.I0004PS5_MIG PARTLEVEL 26
REBUILD INDEX LIST LST474 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SIT02001 part 1 of 5, 1 index
//STP475 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST475
INCLUDE INDEX BUA.I00054QP_MIG PARTLEVEL 1
REBUILD INDEX LIST LST475 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SIT02001 part 2 of 5, 1 index
//STP476 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST476
INCLUDE INDEX BUA.I00054QP_MIG PARTLEVEL 2
REBUILD INDEX LIST LST476 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SIT02001 part 3 of 5, 1 index
//STP477 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST477
INCLUDE INDEX BUA.I00054QP_MIG PARTLEVEL 3
REBUILD INDEX LIST LST477 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SIT02001 part 4 of 5, 1 index
//STP478 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST478
INCLUDE INDEX BUA.I00054QP_MIG PARTLEVEL 4
REBUILD INDEX LIST LST478 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SIT02001 part 5 of 5, 1 index
//STP479 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST479
INCLUDE INDEX BUA.I00054QP_MIG PARTLEVEL 5
REBUILD INDEX LIST LST479 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SPS01001 part 1 of 5, 2 index
//STP480 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST480
INCLUDE INDEX BUA.I00054QN_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I00054QO_MIG PARTLEVEL 1
REBUILD INDEX LIST LST480 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SPS01001 part 2 of 5, 2 index
//STP481 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST481
INCLUDE INDEX BUA.I00054QN_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I00054QO_MIG PARTLEVEL 2
REBUILD INDEX LIST LST481 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SPS01001 part 3 of 5, 2 index
//STP482 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST482
INCLUDE INDEX BUA.I00054QN_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I00054QO_MIG PARTLEVEL 3
REBUILD INDEX LIST LST482 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SPS01001 part 4 of 5, 2 index
//STP483 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST483
INCLUDE INDEX BUA.I00054QN_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I00054QO_MIG PARTLEVEL 4
REBUILD INDEX LIST LST483 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SPS01001 part 5 of 5, 2 index
//STP484 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST484
INCLUDE INDEX BUA.I00054QN_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I00054QO_MIG PARTLEVEL 5
REBUILD INDEX LIST LST484 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SPS02001 part 1 of 5, 2 index
//STP485 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST485
INCLUDE INDEX BUA.I00054QQ_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I00054QR_MIG PARTLEVEL 1
REBUILD INDEX LIST LST485 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SPS02001 part 2 of 5, 2 index
//STP486 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST486
INCLUDE INDEX BUA.I00054QQ_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I00054QR_MIG PARTLEVEL 2
REBUILD INDEX LIST LST486 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SPS02001 part 3 of 5, 2 index
//STP487 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST487
INCLUDE INDEX BUA.I00054QQ_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I00054QR_MIG PARTLEVEL 3
REBUILD INDEX LIST LST487 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SPS02001 part 4 of 5, 2 index
//STP488 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST488
INCLUDE INDEX BUA.I00054QQ_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I00054QR_MIG PARTLEVEL 4
REBUILD INDEX LIST LST488 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDNQ001.SPS02001 part 5 of 5, 2 index
//STP489 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST489
INCLUDE INDEX BUA.I00054QQ_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I00054QR_MIG PARTLEVEL 5
REBUILD INDEX LIST LST489 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 1 of 31, 1 index
//STP490 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST490
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 1
REBUILD INDEX LIST LST490 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 2 of 31, 1 index
//STP491 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST491
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 2
REBUILD INDEX LIST LST491 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 3 of 31, 1 index
//STP492 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST492
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 3
REBUILD INDEX LIST LST492 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 4 of 31, 1 index
//STP493 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST493
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 4
REBUILD INDEX LIST LST493 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 5 of 31, 1 index
//STP494 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST494
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 5
REBUILD INDEX LIST LST494 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 6 of 31, 1 index
//STP495 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST495
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 6
REBUILD INDEX LIST LST495 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 7 of 31, 1 index
//STP496 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST496
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 7
REBUILD INDEX LIST LST496 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 8 of 31, 1 index
//STP497 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST497
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 8
REBUILD INDEX LIST LST497 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 9 of 31, 1 index
//STP498 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST498
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 9
REBUILD INDEX LIST LST498 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 10 of 31, 1 index
//STP499 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST499
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 10
REBUILD INDEX LIST LST499 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 11 of 31, 1 index
//STP500 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407695.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST500
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 11
REBUILD INDEX LIST LST500 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//A5407692 JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN SYSTEM=S22
//*
//******* ts XBDO6001.SIT02001 part 12 of 31, 1 index
//STP501 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST501
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 12
REBUILD INDEX LIST LST501 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 13 of 31, 1 index
//STP502 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST502
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 13
REBUILD INDEX LIST LST502 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 14 of 31, 1 index
//STP503 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST503
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 14
REBUILD INDEX LIST LST503 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 15 of 31, 1 index
//STP504 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST504
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 15
REBUILD INDEX LIST LST504 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 16 of 31, 1 index
//STP505 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST505
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 16
REBUILD INDEX LIST LST505 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 17 of 31, 1 index
//STP506 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST506
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 17
REBUILD INDEX LIST LST506 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 18 of 31, 1 index
//STP507 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST507
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 18
REBUILD INDEX LIST LST507 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 19 of 31, 1 index
//STP508 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST508
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 19
REBUILD INDEX LIST LST508 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 20 of 31, 1 index
//STP509 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST509
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 20
REBUILD INDEX LIST LST509 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 21 of 31, 1 index
//STP510 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST510
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 21
REBUILD INDEX LIST LST510 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 22 of 31, 1 index
//STP511 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST511
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 22
REBUILD INDEX LIST LST511 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 23 of 31, 1 index
//STP512 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST512
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 23
REBUILD INDEX LIST LST512 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 24 of 31, 1 index
//STP513 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST513
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 24
REBUILD INDEX LIST LST513 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 25 of 31, 1 index
//STP514 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST514
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 25
REBUILD INDEX LIST LST514 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 26 of 31, 1 index
//STP515 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST515
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 26
REBUILD INDEX LIST LST515 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 27 of 31, 1 index
//STP516 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST516
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 27
REBUILD INDEX LIST LST516 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 28 of 31, 1 index
//STP517 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST517
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 28
REBUILD INDEX LIST LST517 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 29 of 31, 1 index
//STP518 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST518
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 29
REBUILD INDEX LIST LST518 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 30 of 31, 1 index
//STP519 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST519
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 30
REBUILD INDEX LIST LST519 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SIT02001 part 31 of 31, 1 index
//STP520 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST520
INCLUDE INDEX BUA.I0005GJK_MIG PARTLEVEL 31
REBUILD INDEX LIST LST520 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 1 of 24, 2 index
//STP521 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST521
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 1
REBUILD INDEX LIST LST521 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 2 of 24, 2 index
//STP522 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST522
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 2
REBUILD INDEX LIST LST522 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 3 of 24, 2 index
//STP523 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST523
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 3
REBUILD INDEX LIST LST523 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 4 of 24, 2 index
//STP524 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST524
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 4
REBUILD INDEX LIST LST524 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 5 of 24, 2 index
//STP525 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST525
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 5
REBUILD INDEX LIST LST525 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 6 of 24, 2 index
//STP526 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST526
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 6
REBUILD INDEX LIST LST526 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 7 of 24, 2 index
//STP527 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST527
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 7
REBUILD INDEX LIST LST527 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 8 of 24, 2 index
//STP528 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST528
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 8
REBUILD INDEX LIST LST528 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 9 of 24, 2 index
//STP529 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST529
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 9
REBUILD INDEX LIST LST529 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 10 of 24, 2 index
//STP530 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST530
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 10
REBUILD INDEX LIST LST530 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 11 of 24, 2 index
//STP531 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST531
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 11
REBUILD INDEX LIST LST531 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 12 of 24, 2 index
//STP532 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST532
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 12
REBUILD INDEX LIST LST532 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 13 of 24, 2 index
//STP533 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST533
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 13
REBUILD INDEX LIST LST533 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 14 of 24, 2 index
//STP534 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST534
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 14
REBUILD INDEX LIST LST534 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 15 of 24, 2 index
//STP535 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST535
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 15
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 15
REBUILD INDEX LIST LST535 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 16 of 24, 2 index
//STP536 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST536
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 16
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 16
REBUILD INDEX LIST LST536 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 17 of 24, 2 index
//STP537 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST537
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 17
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 17
REBUILD INDEX LIST LST537 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 18 of 24, 2 index
//STP538 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST538
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 18
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 18
REBUILD INDEX LIST LST538 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 19 of 24, 2 index
//STP539 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST539
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 19
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 19
REBUILD INDEX LIST LST539 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 20 of 24, 2 index
//STP540 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST540
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 20
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 20
REBUILD INDEX LIST LST540 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 21 of 24, 2 index
//STP541 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST541
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 21
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 21
REBUILD INDEX LIST LST541 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 22 of 24, 2 index
//STP542 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST542
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 22
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 22
REBUILD INDEX LIST LST542 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 23 of 24, 2 index
//STP543 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST543
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 23
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 23
REBUILD INDEX LIST LST543 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS01001 part 24 of 24, 2 index
//STP544 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST544
INCLUDE INDEX BUA.I0005GJL_MIG PARTLEVEL 24
INCLUDE INDEX BUA.I0005GJM_MIG PARTLEVEL 24
REBUILD INDEX LIST LST544 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 1 of 15, 2 index
//STP545 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST545
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 1
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 1
REBUILD INDEX LIST LST545 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 2 of 15, 2 index
//STP546 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST546
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 2
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 2
REBUILD INDEX LIST LST546 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 3 of 15, 2 index
//STP547 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST547
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 3
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 3
REBUILD INDEX LIST LST547 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 4 of 15, 2 index
//STP548 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST548
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 4
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 4
REBUILD INDEX LIST LST548 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 5 of 15, 2 index
//STP549 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST549
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 5
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 5
REBUILD INDEX LIST LST549 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 6 of 15, 2 index
//STP550 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST550
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 6
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 6
REBUILD INDEX LIST LST550 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 7 of 15, 2 index
//STP551 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST551
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 7
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 7
REBUILD INDEX LIST LST551 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 8 of 15, 2 index
//STP552 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST552
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 8
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 8
REBUILD INDEX LIST LST552 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 9 of 15, 2 index
//STP553 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST553
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 9
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 9
REBUILD INDEX LIST LST553 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 10 of 15, 2 index
//STP554 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST554
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 10
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 10
REBUILD INDEX LIST LST554 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 11 of 15, 2 index
//STP555 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST555
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 11
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 11
REBUILD INDEX LIST LST555 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 12 of 15, 2 index
//STP556 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST556
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 12
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 12
REBUILD INDEX LIST LST556 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 13 of 15, 2 index
//STP557 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST557
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 13
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 13
REBUILD INDEX LIST LST557 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 14 of 15, 2 index
//STP558 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST558
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 14
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 14
REBUILD INDEX LIST LST558 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDO6001.SPS02001 part 15 of 15, 2 index
//STP559 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST559
INCLUDE INDEX BUA.I0005GJI_MIG PARTLEVEL 15
INCLUDE INDEX BUA.I0005GJJ_MIG PARTLEVEL 15
REBUILD INDEX LIST LST559 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDQ0001.SIT02001 part 1 of 4, 1 index
//STP560 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST560
INCLUDE INDEX BUA.I00086SW_MIG PARTLEVEL 1
REBUILD INDEX LIST LST560 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDQ0001.SIT02001 part 2 of 4, 1 index
//STP561 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST561
INCLUDE INDEX BUA.I00086SW_MIG PARTLEVEL 2
REBUILD INDEX LIST LST561 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDQ0001.SIT02001 part 3 of 4, 1 index
//STP562 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST562
INCLUDE INDEX BUA.I00086SW_MIG PARTLEVEL 3
REBUILD INDEX LIST LST562 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
//******* ts XBDQ0001.SIT02001 part 4 of 4, 1 index
//STP563 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A5407696.REBUI'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
OPTIONS EVENT (ITEMERROR, SKIP)
LISTDEF LST563
INCLUDE INDEX BUA.I00086SW_MIG PARTLEVEL 4
REBUILD INDEX LIST LST563 SCOPE PENDING
SORTDEVT SYSDA
SORTNUM 250
WORKDDN(TSYUTD)
STATISTICS KEYCARD UPDATE ALL
$#out 20101212 15:29:40
}¢--- A540769.WK.JCL(DB2RECOV) cre=2008-01-08 mod=2013-02-13-08.23.28 A540769 ---
//A540769R JOB (KEL25071,0240,,3612),'CATALOG',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//**********************************************************************
//P02 EXEC PGM=DSNUTILB,
// PARM='DBOC,A540769R.RECOVER'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBOC.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF LST
INCLUDE TABLESPACE AO04A1P.A100A PARTLEVEL 25
INCLUDE TABLESPACE AO04A1P.A100A PARTLEVEL 26
LISTDEF LIX
INCLUDE TABLESPACES LIST LST
-- OPTIONS EVENT(ITEMERROR, SKIP)
--PY LIST LST COPYDDN(TCOPYD)
-- PARALLEL
-- SHRLEVEL REFERENCE
RECOVER LIST LST PARALLEL
TOLOGPOINT X'CAE90339D534'
-- TOLASTCOPY
REBUILD INDEX LIST LIX
SORTDEVT DISK -- SORTNUM 20
COPY LIST LST COPYDDN(TCOPYD)
PARALLEL
SHRLEVEL REFERENCE
}¢--- A540769.WK.JCL(DB2RECPA) cre=2006-09-18 mod=2007-09-13-13.46.50 F540769 ---
//A540769C JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBAF,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF C#LIST 00010000
INCLUDE TABLESPACE DA540769.A001A PARTLEVEL
RECOVER TABLESPACE VV28A1A.VDPS360
TOCOPY DBAF.VV28A1A.VDPS362.P0000.D07256.T031359
TOVOLUME B1N068
//* RECOVER LIST C#LIST PARALLEL
}¢--- A540769.WK.JCL(DB2RECQU) cre=2007-11-01 mod=2008-01-23-14.41.32 F540769 ---
//A5407694 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/14/2006.16.06.16
//* ENVIRONMENT: ISPF 5.6MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'DSN'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
RECOVER
TABLESPACE DGDB9998.A802A
TOLOGPOINT X'C1D72412C8E6' PARALLEL
REBUILD INDEX
(ALL) TABLESPACE
DGDB9998.A802A
WORKDDN(SYSUT1)
SORTKEYS
SORTDEVT DISK
SORTNUM 54
//*--------------------------------------------------------------------
//* END OF JOBSTEP
//*--------------------------------------------------------------------
//*--------------------------------------------------------------------
//* END OF JOB
//*--------------------------------------------------------------------
}¢--- A540769.WK.JCL(DB2RECTI) cre=2009-12-15 mod=2010-07-06-11.51.03 A540769 ---
//A540769A JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//SRECO EXEC PGM=DSNUTILB,
// PARM='DBTF,A540769R.RECOV'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF RECOLST
INCLUDE TABLESPACE MF01A1P.A110A PARTLEVEL
-- OPTIONS EVENT(ITEMERROR SKIP)
COPY LIST RECOLST COPYDDN(TCOPYD) PARALLEL SHRLEVEL REFERENCE
RECOVER LIST RECOLST TOLOGPOINT X'C625833F92C8'
PARALLEL
LISTDEF IXLST
INCLUDE INDEXSPACES LIST RECOLST
REBUILD INDEX LIST IXLST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
}¢--- A540769.WK.JCL(DB2REO) cre=2008-06-23 mod=2015-10-24-11.30.13 A540769 ----
//A540769A JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440,CLASS=M1, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG0
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOF,'A540769A.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST
INCLUDE TABLESPACE DB2PLAN.CMNBA* PARTLEVEL BASE
-- INCLUDE TABLESPACE NL01A1A.A010A PARTLEVEL
-- REORG TABLESPACE DA540769.A200A03 PART 16 : 20 , 102 :108,111,88:90
REORG TABLESPACE LIST LST
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB05
DRAIN_WAIT 40
RETRY 20
RETRY_DELAY 180
MAXRO 40
DRAIN WRITERS
LONGLOG CONTINUE
DELAY 1200
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
}¢--- A540769.WK.JCL(DB2REODI) cre=2008-02-07 mod=2013-11-11-15.08.57 A540769 ---
//A540769S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/20/2006.09.40.21
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOC,'A540769S.REODIS'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBTF.DBAA.LISTDEF(TEMPL)
//SYSIN DD * -- aus lctl library
LISTDEF LST INCLUDE TABLESPACE NI04A1T.A301A03 PARTLEVEL
COPY LIST LST COPYDDN TCOPYD PARALLEL SHRLEVEL REFERENCE
REORG TABLESPACE NI04A1T.A301A03
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL NONE
UNLOAD CONTINUE
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
STATISTICS
INDEX ALL KEYCARD
REPORT NO
UPDATE ALL
UNLDDN TSRECD
DISCARDDN TDISC
PUNCHDDN TPUNCH
DISCARD FROM TABLE OA1T.TNI301A103A
WHEN ( BOOKFLAG = 'Y' )
}¢--- A540769.WK.JCL(DB2REOIX) cre=2011-03-25 mod=2013-09-17-12.30.02 A540769 ---
//A540769R JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/20/2006.09.40.21
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769R.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST#REO INCLUDE INDEX A540769.IPER24C1
INCLUDE INDEX A540769.IPER24G1
REORG INDEXSPACE LIST LST#REO
SHRLEVEL CHANGE
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
WORKDDN(TSYUTD,TSOUTD)
SORTDEVT DISK
-- SORTNUM 55
STATISTICS
UPDATE ALL
}¢--- A540769.WK.JCL(DB2REOLO) cre=2015-10-24 mod=2015-10-24-11.29.34 A540769 ---
//A540769L JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440,CLASS=M1, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG0
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOF,'A540769L.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST
INCLUDE TABLESPACE DB2PLAN.CMNBA* PARTLEVEL LOB
-- INCLUDE TABLESPACE NL01A1A.A010A PARTLEVEL
-- REORG TABLESPACE DA540769.A200A03 PART 16 : 20 , 102 :108,111,88:90
REORG TABLESPACE LIST LST
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
DRAIN_WAIT 40
RETRY 20
RETRY_DELAY 180
MAXRO 40
DRAIN WRITERS
LONGLOG CONTINUE
DELAY 1200
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
}¢--- A540769.WK.JCL(DB2REOMU) cre=2011-02-22 mod=2011-02-22-13.03.25 A540769 ---
//QRXYZZZP JOB (PD00,KE50,,SP00000000),
// 'DB2',
// MSGCLASS=E,
// TIME=1440
//*MAIN CLASS=DBOF
//*
//* Muster für produktiven Reorg job mit inline Statistics
//* CtrlKarten sind inline ===>>> dbof.dbaa.listdef/lctl
//* JobNamen QRXYZZZ Anpassen
//* Db EL01A1P und Ts Namen Anpassen
//* mapping Table bei kidi63 bestellen
//*
//****** reorg für tablespaces ausführen
//SREO EXEC PGM=DSNUTILB,
// PARM='DBOF,QRXYZZZP.REORG'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD * ===>>> DSN=DBOF.DBAA.LISTDEF(QRXYZZZ1),DISP=SHR
LISTDEF LST
INCLUDE TABLESPACE EL01A1P.A831C4 PARTLEVEL
REORG TABLESPACE LIST LST
LOG NO
SORTDATA NOSYSREC SORTKEYS
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
DRAIN_WAIT 40
RETRY 20
RETRY_DELAY 180
MAPPINGTABLE S100447.QRXYZZZP
MAXRO 40
DRAIN WRITERS
LONGLOG CONTINUE
TIMEOUT TERM
UNLDDN(TSRECD)
WORKDDN(TSYUTD,TSOUTD)
SORTDEVT DISK
-- SORTNUM 24
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL REPORT NO HISTORY NONE FORCEROLLUP NO
// IF ABEND OR RC GT 4 THEN
//****** display DB and term utility
//STERM EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD * ===>>> DSN=DBOF.DBAA.LCTL(QRXYZZZ2),DISP=SHR
DSN S(DBOF)
-DIS DB(EL01A1P) SP(*) LOCKS ONLY LIMIT(*)
-DIS DB(EL01A1P) SP(*) CLAIMERS ONLY LIMIT(*)
-DIS DB(EL01A1P) SP(*) USE ONLY LIMIT(*)
-TERM UTIL(QRXYZZZP.*)
END
// ENDIF
}¢--- A540769.WK.JCL(DB2REONO) cre=2011-11-09 mod=2011-11-09-13.17.04 A540769 ---
//A540749X JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=DBAF
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540749X.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST#REO
INCLUDE TABLESPACE FI04A1A.A027J PARTLEVEL
-- REORG TABLESPACE DA540769.A200A03 PART 16 : 20 , 102 :108,111,88:90
REORG TABLESPACE LIST LST#REO
SCOPE PENDING
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL NONE
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
}¢--- A540769.WK.JCL(DB2REONZ) cre=2012-07-27 mod=2012-07-27-10.17.01 A540769 ---
//A540769N JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'A540749N.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBTF.DBAA.LISTDEF(TEMPL)
//SYXXX DD *
tb OA1T.TNI618A101A ts NI02A1T.A618A *dbtf
tb OA1T.TNI675A101A ts NI02A1T.A675A *dbtf
tb OA1T.TNI676A101A ts NI02A1T.A676A *dbtf
tb OA1T.TNI677A101A ts NI02A1T.A677A *dbtf
tb OA1T.TNI681A101A ts NI02A1T.A681A *dbtf
tb OA1T.TNI681B101A ts NI02A1T.A681B *dbtf
tb OA1T.TNI682A101A ts NI02A1T.A682A *dbtf
tb OA1T.TNI682B101A ts NI02A1T.A682B *dbtf
//SYSIN DD *
LISTDEF LST#REO
INCLUDE TABLESPACE NI02A1T.A618A PARTLEVEL
INCLUDE TABLESPACE NI02A1T.A675A PARTLEVEL
INCLUDE TABLESPACE NI02A1T.A676A PARTLEVEL
INCLUDE TABLESPACE NI02A1T.A677A PARTLEVEL
INCLUDE TABLESPACE NI02A1T.A681A PARTLEVEL
INCLUDE TABLESPACE NI02A1T.A681B PARTLEVEL
INCLUDE TABLESPACE NI02A1T.A682A PARTLEVEL
INCLUDE TABLESPACE NI02A1T.A682B PARTLEVEL
-- REORG TABLESPACE DA540769.A200A03 PART 16 : 20 , 102 :108,111,88:90
REORG TABLESPACE LIST LST#REO
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB05
DRAIN_WAIT 40
RETRY 20
RETRY_DELAY 180
MAXRO 40
DRAIN WRITERS
LONGLOG CONTINUE
DELAY 1200
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
}¢--- A540769.WK.JCL(DB2REOOF) cre=2009-01-12 mod=2008-12-08-16.47.03 F540769 ---
//A540769R JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/20/2006.09.40.21
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769R.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST#REO INCLUDE TABLESPACE CD03A1A.A370A
REORG TABLESPACE DA540769.A453A
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL NONE
-- MAPPINGTABLE S100447.MAPTAB01
-- MAXRO 300
-- DRAIN ALL
-- DELAY 1500
-- TIMEOUT TERM
UNLOAD PAUSE
WORKDDN(TSYUTD,TSOUTD)
UNLDDN TSRECD
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
SORTNUM 160
STATISTICS
INDEX ALL
REPORT NO
UPDATE ALL
}¢--- A540769.WK.JCL(DB2REOQU) cre=2010-04-06 mod=2010-04-08-15.27.37 A540769 ---
//A540769S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* REORG DSN_QUERY_TABLE UND DSN_QUERY_AUX
//* UM DEN RIESIGEN PLATZ WIEDER FREIZUKRIEGEN
//*
//* VORHER LÖSCHEN MIT WK.REXX(QUERYDEL)
//*
//***************************************************
//REOQU EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'A540769S.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBTF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
-- LISTDEF LST#REO INCLUDE TABLESPACE DB2PLAN.S100447S
-- INCLUDE TABLESPACE DB2PLAN.S100447X
-- COPY LIST LST#REO COPYDDN TCOPYD SHRLEVEL REFERENCE
REORG TABLESPACE DB2PLAN.CMNBATCS
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB02
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLOAD CONTINUE
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
STATISTICS
INDEX ALL
REPORT NO
UPDATE ALL
REORG TABLESPACE DB2PLAN.CMNBATCX
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL REFERENCE
UNLOAD CONTINUE
WORKDDN(TSYUTD,TSOUTD)
RUNSTATS TABLESPACE DB2PLAN.CMNBATCX
INDEX ALL
REPORT NO
UPDATE ALL
SHRLEVEL CHANGE
}¢--- A540769.WK.JCL(DB2REORG) cre=2006-06-20 mod=2010-12-15-07.51.15 A540769 ---
//A540769Q JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/20/2006.09.40.21
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'A540769T.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SORTWK00 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//SORTWK01 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//SORTWK02 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//SORTWK03 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//SORTWK04 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//SORTWK05 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//SORTWK06 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//SORTWK07 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//SORTWK08 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//SORTWK09 DD UNIT=DISK,SPACE=(CYL,(200,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//DATAWK00 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//DATAWK01 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//DATAWK02 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//DATAWK03 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//DATAWK04 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//DATAWK05 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//DATAWK06 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//DATAWK07 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//DATAWK08 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//DATAWK09 DD UNIT=DISK,SPACE=(CYL,(500,800)),DISP=(NEW,DELETE),
// DSNTYPE=LARGE
//SYSTEMPL DD DISP=SHR,DSN=DBTF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST#REO INCLUDE TABLESPACE VV28A1T.VDPS360
REORG TABLESPACE LIST LST#REO
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB03
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISCA
SORTKEYS
-- SORTDEVT DISK
-- SORTNUM 255
STATISTICS
INDEX ALL KEYCARD
REPORT NO UPDATE ALL
}¢--- A540769.WK.JCL(DB2REORO) cre=2011-11-09 mod=2011-11-09-12.43.53 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=DBAF
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769W.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST#REO
INCLUDE TABLESPACE FI04A1A.A026A PARTLEVEL
-- REORG TABLESPACE DA540769.A200A03 PART 16 : 20 , 102 :108,111,88:90
REORG TABLESPACE LIST LST#REO
SCOPE PENDING
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL REFERENCE
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
}¢--- A540769.WK.JCL(DB2REOTA) cre=2008-06-23 mod=2008-06-23-15.02.14 F540769 ---
//A540769S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=E,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/20/2006.09.40.21
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769S.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST#REO INCLUDE TABLESPACE DA540769.SYSCOPY
REORG TABLESPACE LIST LST#REO
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB02
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISCA
SORTKEYS
SORTDEVT AC20
SORTNUM 4
STATISTICS
INDEX ALL
REPORT NO
UPDATE ALL
}¢--- A540769.WK.JCL(DB2REP) cre=2008-01-23 mod=2011-04-11-07.18.43 A540769 ----
//A540769F JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S14
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBAF,A540769F.REPORT'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
REPORT RECOVERY TABLESPACE NF01A1A.A026A
}¢--- A540769.WK.JCL(DB2REPAI) cre=2006-08-31 mod=2016-08-24-11.39.10 A540769 ---
//A540769R JOB (CP00,KE50),'DB2 ADMIN',
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,
// MSGCLASS=T,NOTIFY=&SYSUID
//S1 EXEC PGM=DSNUTILB,PARM='DE0G,A540769R.REPA'
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSIN DD *
REPAIR LEVELID TABLESPACE WU20A1P.A291A PART 1
}¢--- A540769.WK.JCL(DB2REPAP) cre=2010-02-11 mod=2010-02-11-10.29.52 A540769 ---
//A540769R JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBTF,A540769R.REPA' 00020001
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSIN DD *
REPAIR LOCATE TABLESPACE PC12A1T.A016A02 PAGE X'00000082' DUMP
}¢--- A540769.WK.JCL(DB2REVLO) cre=2006-04-18 mod=2006-04-18-11.36.18 F540769 ---
//A540769S JOB (CP00,KE50) 00010001
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM=('%REVI GET DBAF from DBAF DBTF')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
}¢--- A540769.WK.JCL(DB2RRDSN) cre=2009-05-07 mod=2009-05-07-17.09.25 F540769 ---
//A540769B JOB (BAN45833,9999,,9904),TSOJOB,
// TIME=1,REGION=4M,MSGCLASS=T
//*MAIN CLASS=LOG
//*
//* LIBRARY(PCL.U0000.P0.RZ4AKT.PERM.@008.DBR) -
//* LIBRARY('CMN.DIV.P0.QMSW.#000010.DBR') -
//* LIBRARY('PCL.U0000.P0.RZ4AKT.PERM.@008.DBR') -
//*
//E01 EXEC PGM=IKJEFT01,DYNAMNBR=30,PARM='ADRDSN DBAF'
//SYSTSPRT DD SYSOUT=*
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//SYSTSIN DD DUMMY
//DREI DD DISP=SHR,DSN=A540769.WK.REXX(DREI)
//SECHS DD DISP=SHR,DSN=A540769.WK.REXX(SECHS)
BIND PACKAGE(TTTT) -
COPY(BJ.BJMDB2) -
COPYVER(V01R60) -
QUALIFIER (OA1T) -
OWNER(S101869) -
EXPLAIN(Y) ACTION(ADD)
END
//SHIT DD
OWNER(S100447) -
LIBRARY('CMN.ER0#.Z0608110.PUBLIC.DBR') -
VALIDATE(BIND) FLAG(I) ISOLATION(CS) -
CURRENTDATA(N) -
DYNAMICRULES(RUN) -
ENABLE(*)
}¢--- A540769.WK.JCL(DB2RUNSA) cre=2013-01-25 mod=2013-01-25-09.50.54 A540769 ---
//A540769Y JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG0 SYSTEM=S12
//RUNST EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769Y.RUNST'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST
INCLUDE TABLESPACE XBCZ1001.SPS01001 PARTLEVEL 25
RUNSTATS TABLESPACE XBCZ1001.SPS01001 PART 25
TABLE(BUA.XBCZ1001PS001001)
COLUMN(EA1ATRN)
TABLESAMPLE SYSTEM 5
SORTDEVT SYSDA
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
}¢--- A540769.WK.JCL(DB2RUNSM) cre=2011-09-23 mod=2011-09-23-11.37.02 A540769 ---
$#@
$=sysPr=S2
$=sysCn=4
$=jx= 0
$=ix= -1
$;
$<tss.ska.f383353.runstats $>.fEdit()
$@forWith r $@¢
$=ix=- $ix+1
if $ix // 100 = 0 then $@¢
if $ix > 0 then
$@runstats()
$=jx =- $jx // $sysCn + 1
$@=¢
//Y4DVBPR$jx JOB (CP00,KE50),'DB2 RUNSTATS',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=DVBP,SYSTEM=$sysPr$jx
//ST$ix EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'Y4DVBPR$jx.RUNSTA'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
LISTDEF LST
$!
$!
$$- ' INCLUDE' subword($r, 2, 2)
$!
$@proc runstats $@=¢
RUNSTATS TABLESPACE LIST LST
SHRLEVEL CHANGE
INDEX (ALL KEYCARD
)
UPDATE ALL REPORT NO
$!
$@runstats()
$#out 20110923 10:45:26
$#out 20110923 10:42:51
$#out 20110923 10:42:02
$#out 20110923 10:40:35
}¢--- A540769.WK.JCL(DB2RUNSQ) cre=2012-06-27 mod=2012-06-27-15.53.17 A540769 ---
//A540769R JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/21/2006.10.10.05
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'A540769R.RUNSTA'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//SYSIN DD *
RUNSTATS TABLESPACE "AU01A1T"."SAM15590"
TABLE("SAMJ"."CAURTSDV") SAMPLE 40
COLUMN("CAURTSD-TYPE")
COLGROUP("CAURTSD-TYPE") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
RUNSTATS TABLESPACE "AU01A1T"."SAM15260"
TABLE("SAMJ"."CAURUG")
COLUMN("CAURUG-ACTSTA")
COLGROUP("CAURUG-ACTSTA") FREQVAL COUNT 15
COLGROUP("CAURUGTS-ACTSTA") FREQVAL COUNT 15
COLGROUP("CAURUG-ACT-INT") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
RUNSTATS TABLESPACE "AU01A1T"."SAM15460"
TABLE("SAMJ"."CAURUMS")
COLUMN("CAURUMS-G-ACTSTA")
COLGROUP("CAURUMS-G-ACTSTA") FREQVAL COUNT 15
COLGROUP("CAURUS-ACTSTA") FREQVAL COUNT 15
COLGROUP("CAURUMS-ACT-INT") FREQVAL COUNT 15
COLGROUP("CAURUMSTS-ACTSTA") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
RUNSTATS TABLESPACE "AU01A1T"."SAM13590"
TABLE("SAMJ"."CLARTSDV")
COLUMN("CLARTSD-TYPE")
COLGROUP("CLARTSD-TYPE") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
RUNSTATS TABLESPACE "AU01A1T"."SAM13260"
TABLE("SAMJ"."CLARUG")
COLUMN("CLARUG-ACTSTA")
COLGROUP("CLARUG-ACTSTA") FREQVAL COUNT 15
COLGROUP("CLARUGTS-ACTSTA") FREQVAL COUNT 15
COLGROUP("CLARUG-ACT-INT") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
RUNSTATS TABLESPACE "AU01A1T"."SAM13460"
TABLE("SAMJ"."CLARUMS")
COLUMN("CLARUMS-G-ACTSTA")
COLGROUP("CLARUMS-G-ACTSTA") FREQVAL COUNT 15
COLGROUP("CLARUS-ACTSTA") FREQVAL COUNT 15
COLGROUP("CLARUMS-ACT-INT") FREQVAL COUNT 15
COLGROUP("CLARUMSTS-ACTSTA") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
RUNSTATS TABLESPACE "AU01A1T"."SAM05300"
TABLE("SAMJ"."BASEUS")
COLUMN("BASEUS-C-C01-003")
COLGROUP("BASEUS-C-C01-003") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
//A540769S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/21/2006.10.10.05
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'A540769S.RUNSTA'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//SYSIN DD *
RUNSTATS TABLESPACE "AU01A1T"."SAM05510"
TABLE("SAMJ"."BASETABS")
COLUMN("BASETABS-C-01-02")
COLGROUP("BASETABS-C-01-02") FREQVAL COUNT 15
COLGROUP("BASETABS-C-32-01") FREQVAL COUNT 1
COLGROUP("BASETAB-ACTSTA") FREQVAL COUNT 15
COLGROUP("BASETABS-TYPE") FREQVAL COUNT 15
COLGROUP("BASETAB-USAGE") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
RUNSTATS TABLESPACE "AU01A1T"."SAM05500"
TABLE("SAMJ"."BASETAB")
COLUMN("BASETAB-SAM-ID3")
COLGROUP("BASETAB-SAM-ID3") FREQVAL COUNT 15
COLGROUP("BASETAB-SAM-ID4") FREQVAL COUNT 15
COLGROUP("BASETAB-ACTSTA") FREQVAL COUNT 15
COLGROUP("BASETAB-KIND") FREQVAL COUNT 15
COLGROUP("BASETAB-USAGE") FREQVAL COUNT 15
COLGROUP("BASETAB-C-01-02") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
RUNSTATS TABLESPACE "AU01A1T"."SAM15400"
TABLE("SAMJ"."CAURUS")
COLUMN("CAURUS-ACTSTA")
COLGROUP("CAURUS-ACTSTA") FREQVAL COUNT 15
COLGROUP("CAURUSTS-ACTSTA") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
RUNSTATS TABLESPACE "AU01A1T"."SAM15610"
TABLE("SAMJ"."CAURTSRG")
COLUMN("CAURTSRG-TYPE")
COLGROUP("CAURTSRG-TYPE") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
RUNSTATS TABLESPACE "AU01A1T"."SAM13400"
TABLE("SAMJ"."CLARUS")
COLUMN("CLARUS-ACTSTA")
COLGROUP("CLARUS-ACTSTA") FREQVAL COUNT 15
COLGROUP("CLARUSTS-ACTSTA") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
RUNSTATS TABLESPACE "AU01A1T"."SAM13610"
TABLE("SAMJ"."CLARTSRG")
COLUMN("CLARTSRG-TYPE")
COLGROUP("CLARTSRG-TYPE") FREQVAL COUNT 15
SORTNUM 4
SHRLEVEL CHANGE REPORT YES UPDATE ALL HISTORY NONE
}¢--- A540769.WK.JCL(DB2RUNST) cre=2011-11-02 mod=2015-01-19-16.10.26 A540769 ---
//A540769R JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/21/2006.10.10.05
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DP4G,'A540769S.RUNSTA'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//SYSIN DD *
LISTDEF LSTA
INCLUDE TABLESPACE DA540769.A403*
-- INCLUDE TABLESPACE DS100447.PLANTABS
-- INCLUDE TABLESPACE VV27A1T.VDPS329
LISTDEF LSTB INCLUDE LIST LSTA BASE
LISTDEF LSTL INCLUDE LIST LSTA LOB
OPTIONS EVENT (ITEMERROR, SKIP)
RUNSTATS TABLESPACE LIST LSTA -- DA540769.A403P2
TABLE USE PROFILE
-- INDEX(ALL KEYCARD) -- FREQVAL NUMCOLS 99 COUNT 10)
REPORT NO UPDATE ALL
SHRLEVEL CHANGE
//SYSIX DD * SET PROFILE --------------------------
RUNSTATS TABLESPACE DA540769.A403P1
TABLE (A540769.TWK403P1)
COLUMN(ID)
INDEX(ALL KEYCARD) -- FREQVAL NUMCOLS 99 COUNT 10)
SET PROFILE -- PROFILE UPDATE
//
}¢--- A540769.WK.JCL(DB2RUNXB) cre=2014-02-18 mod=2014-02-19-08.21.54 A540769 ---
//A540769R JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=DP4G
//*
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DP4G,'A540769R.RUNSTA'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
LISTDEF LTS
INCLUDE TABLESPACE DB2PDB.PBMMAE PARTLEVEL 170
INCLUDE TABLESPACE DB2PDB.PBMMAE PARTLEVEL 171
INCLUDE TABLESPACE DB2PDB.PBMMAE PARTLEVEL 172
INCLUDE TABLESPACE DB2PDB.PBMMAE PARTLEVEL 173
LISTDEF LIX
INCLUDE INDEXSPACES LIST LTS
OPTIONS EVENT (ITEMERROR, SKIP)
RUNSTATS TABLESPACE LIST LTS
SHRLEVEL CHANGE
RUNSTATS INDEX LIST LIX
SHRLEVEL CHANGE
}¢--- A540769.WK.JCL(DB2SHPUL) cre=2006-10-23 mod=2006-12-01-13.11.10 F540769 ---
//A540769U JOB (CAS25071,0000,,0000),'UNLOAD',
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=BS1
//***************************************************
//* UNLOAD TO VOLUMES(SHR2*): RZ2 <--> RR2
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
// PARM=(DBAF,'A540769.UNLOAD'),REGION=0M
//*
//*STEPLIB DD DISP=SHR,
//* DSN=DB2@.RZ2.P0.DSNLOAD
//ABNLIGNR DD DUMMY
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
LISTDEF UNLDLISTE INCLUDE TABLESPACE DA540769.A102A
TEMPLATE UNLD UNIT DISK
-- DSN(DSN.&SSID..&DB..&TS..P&PA..UNL.D&JDATE.)
DSN(DSN.&SSID..&DB..&TS..UNL1.D&JDATE.)
-- DATACLAS (EYN08P) MGMTCLAS(D035N000)
VOLUMES(SHR101)
DISP(NEW,UNCATLG,UNCATLG)
-- MAXPRIME 950
TEMPLATE UNLT UNIT AC20
DSN(DSN.&SSID..&DB..&TS..P&PA..UNL1.D&JDATE.)
STACK YES
TEMPLATE PUNCHD UNIT DISK
-- DSN(DSN.&SSID..&DB..&TS..P&PA..PUN1.D&JDATE.)
DSN(DSN.&SSID..&DB..&TS..PUN1.D&JDATE.)
-- DATACLAS (EYN08P) MGMTCLAS(D035N000)
VOLUMES(SHR101)
DISP(NEW,UNCATLG,UNCATLG)
MAXPRIME 950
UNLOAD LIST UNLDLISTE
SHRLEVEL CHANGE ISOLATION UR
PUNCHDDN PUNCHD
UNLDDN UNLD
/*
}¢--- A540769.WK.JCL(DB2SHRLO) cre=2006-05-10 mod=2006-05-12-12.11.01 F540769 ---
//A540769U JOB (CAS25071,0000,,0000),'UNLOAD',
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=BS1
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
// PARM=(DBOF,'A540769U.UNLOAD'),REGION=0M
//*
//STEPLIB DD DISP=SHR,
// DSN=DB2@.RZ2.P0.DSNLOAD
//ABNLIGNR DD DUMMY
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
LISTDEF UNLDLISTE INCLUDE TABLESPACE NI02A1P.A601A
INCLUDE TABLESPACE NI02A1P.A602A
INCLUDE TABLESPACE NI02A1P.A603A
TEMPLATE UNLD
DSN(DSN.&SSID..&DB..&TS..UNLOAD.S99.D&JDATE.)
VOLUMES(SHR299)
MAXPRIME 950
TEMPLATE PUNCHD UNIT DISK
DSN(DSN.&SSID..&DB..&TS..UPUNCH.S99.D&JDATE.)
VOLUMES(SHR299)
MAXPRIME 950
UNLOAD LIST UNLDLISTE
SHRLEVEL CHANGE ISOLATION UR
-- SHRLEVEL REFERENCE
PUNCHDDN PUNCHD
UNLDDN UNLD
/*
}¢--- A540769.WK.JCL(DB2SHRUL) cre=2006-10-23 mod=2008-11-24-17.24.43 F540769 ---
//A540769U JOB (CAS25071,0000,,0000),'UNLOAD',
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=BS1
//***************************************************
//* UNLOAD RZ2 --> RZ1 MIT SHR21.DIV.P021.*
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
// PARM=(DBOF,'A540769U.UNLOAD'),REGION=0M
//*
//STEPLIB DD DISP=SHR,
// DSN=DB2@.RZ2.P0.DSNLOAD
//ABNLIGNR DD DUMMY
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
TEMPLATE UNLD DSN(SHR21.DIV.P021.A540769.&DB..&TS..UNL)
DATACLAS (NULL30) MGMTCLAS(COM#A015)
SPACE (10,250) CYL
TEMPLATE PUNCHD DSN(SHR21.DIV.P021.A540769.&DB..&TS..PUN)
DATACLAS (NULL30) MGMTCLAS(COM#A015)
SPACE (1,1) CYL
UNLOAD TABLESPACE NZ06A1P.A242A
FROM TABLE OA1P.TNZ242A1 SAMPLE 1.0
PUNCHDDN PUNCHD
UNLDDN UNLD
SHRLEVEL CHANGE
}¢--- A540769.WK.JCL(DB2SHRUN) cre=2006-05-10 mod=2006-07-04-08.46.07 F540769 ---
//A540769U JOB (CAS25071,0000,,0000),'UNLOAD',
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=BS1
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
// PARM=(DBTF,'A540769U.UNLOAD'),REGION=0M
//*
//STEPLIB DD DISP=SHR,
// DSN=DB2@.RZ1.P0.DSNLOAD
//ABNLIGNR DD DUMMY
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
LISTDEF UNLDLISTE INCLUDE TABLESPACE RE01A1T.A599A
TEMPLATE UNLD DSN(A540769.DATA.&DB..&TS..LOAD.D&JDATE.)
TEMPLATE PUNCHD DSN(A540769.DATA.&DB..&TS..LPUN.D&JDATE.)
UNLOAD LIST UNLDLISTE
SHRLEVEL CHANGE ISOLATION CS
-- SHRLEVEL REFERENCE
PUNCHDDN PUNCHD
UNLDDN UNLD
/*
}¢--- A540769.WK.JCL(DB2SQL) cre=2007-03-16 mod=2010-12-24-12.42.18 A540769 ----
//A540769D JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG,SYSTEM=S12
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//*SYSPRINT DD DISP=SHR,DSN=DSN.NAKTST.LIST(COUNTNEU)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//*SYSIN DD DISP=SHR,DSN=DSN.NAKTST.JCL(COUNTNEU)
//*SYSIN DD DISP=SHR,DSN=A540769.WK.SQL(EXPLAIN5)
//SYSIN DD * DISP=SHR,DSN=A540769.WK.SQL(TTT)
set current sqlid = 'A540769';
delete from plan_table;
explain plan set queryno = 2 for
SELECT * FROM oA1A.VVV_IDS_STD842
WHERE INFOCUSTYPE IN (1,2,3)
AND EVENTFUNCTIONTYPE IN (6,7,10,11,15,20,32,33,36,37,38)
;
explain plan set queryno = 3 for
SELECT * FROM oA1A.VVV_IDS_STD843
WHERE INFOCUSTYPE IN (1,2,3)
AND EVENTFUNCTIONTYPE IN (6,7,10,11,15,20,32,33,36,37,38)
;
explain plan set queryno = 33 for
SELECT SYMBOLCSFI,EVENTFUNCTIONTYPE,EFFECTIVEDATE,CFAMOUNTTYPE,
CUMCOUPONNUMBER,
HELDAMOUNT,UNDINSTR_CSFI,SYMBOLCH,SYMBOLISIN,PAYRATE,
PAYAMOUNT,
PAYINSTRUMENT_CSFI,PAYINSTRUMENT_I2,PAYINSTRUMENT_CSCURR,
PAYDIRECTIONTYPE,PRORATAPAYRATE,HELDUNITTYPE,
HASMULTIUNDERLYERS,AMOUNTSTATUSTYPE,DESCRIPTION_E,DESCRIPTION_F,
DESCRIPTION_G,DESCRIPTION_I,DESCRIPTION_N,UNDINSTR_CH
FROM oA1A.VVV_XTREQSCANKEY
INNER JOIN oA1A.VVV_IDS_STD843
ON oA1A.VVV_IDS_STD843.INSTRUMENTID = oA1A.VVV_XTREQSCANKEY.TEMP_DBKEY
AND oA1A.VVV_IDS_STD843.INFOCUSTYPE IN (1,2,3)
AND oA1A.VVV_IDS_STD843.EVENTFUNCTIONTYPE
IN (6,7,10,11,15,20,32, 33,36,37,38)
WHERE OA1A.VVV_XTREQSCANKEY.PARTITION_NUMBER = 2
WITH UR
;
explain plan set queryno = 34 for
SELECT SYMBOLCSFI,EVENTFUNCTIONTYPE,EFFECTIVEDATE,CFAMOUNTTYPE,
CUMCOUPONNUMBER,
HELDAMOUNT,UNDINSTR_CSFI,SYMBOLCH,SYMBOLISIN,PAYRATE,
PAYAMOUNT,
PAYINSTRUMENT_CSFI,PAYINSTRUMENT_I2,PAYINSTRUMENT_CSCURR,
PAYDIRECTIONTYPE,PRORATAPAYRATE,HELDUNITTYPE,
HASMULTIUNDERLYERS,AMOUNTSTATUSTYPE,DESCRIPTION_E,DESCRIPTION_F,
DESCRIPTION_G,DESCRIPTION_I,DESCRIPTION_N,UNDINSTR_CH
FROM oA1A.VVV_XTREQSCANKEY
INNER JOIN oA1A.VVV_IDS_STD843
ON oA1A.VVV_IDS_STD843.INSTRUMENTID = oA1A.VVV_XTREQSCANKEY.TEMP_DBKEY
AND oA1A.VVV_IDS_STD843.INFOCUSTYPE+0 IN (1,2,3)
AND oA1A.VVV_IDS_STD843.EVENTFUNCTIONTYPE
IN (6,7,10,11,15,20,32, 33,36,37,38)
WHERE OA1A.VVV_XTREQSCANKEY.PARTITION_NUMBER = 2
WITH UR
;
explain plan set queryno = 35 for
SELECT count(*), avg(payamount), min(SYMBOLCSFI)
FROM oA1A.VVV_XTREQSCANKEY
INNER JOIN oA1A.VVV_IDS_STD843
ON oA1A.VVV_IDS_STD843.INSTRUMENTID = oA1A.VVV_XTREQSCANKEY.TEMP_DBKEY
AND oA1A.VVV_IDS_STD843.INFOCUSTYPE+0 IN (1,2,3)
AND oA1A.VVV_IDS_STD843.EVENTFUNCTIONTYPE
IN (6,7,10,11,15,20,32, 33,36,37,38)
WHERE OA1A.VVV_XTREQSCANKEY.PARTITION_NUMBER = 2
WITH UR
;
explain plan set queryno = 4 for
SELECT * FROM oA1A.VVV_IDS_STD844
WHERE INFOCUSTYPE IN (1,2,3)
AND EVENTFUNCTIONTYPE IN (6,7,10,11,15,20,32,33,36,37,38)
;
explain plan set queryno = 6 for
SELECT COUNT(*) FROM vdps2.VTINSTRUMENTEVENT
WHERE INFOCUSTYPE IN (1,2,3)
AND EVENTFUNCTIONTYPE IN (6,7,10,11,15,20,32,33,36,37,38)
;
select * from plan_view2
order by applname, progname, queryNo, qblockno, planno
;
ROLLBACK
;
select current timestamp from sysibm.sysdummy1;
SELECT *
FROM oA1A.VVV_XTREQSCANKEY
INNER JOIN oA1A.VVV_IDS_STD843
ON oA1A.VVV_IDS_STD843.INSTRUMENTID = oA1A.VVV_XTREQSCANKEY.TEMP_DBKEY
AND oA1A.VVV_IDS_STD843.INFOCUSTYPE IN (1,2,3)
AND oA1A.VVV_IDS_STD843.EVENTFUNCTIONTYPE
IN (6,7,10,11,15,20,32, 33,36,37,38)
WHERE OA1A.VVV_XTREQSCANKEY.PARTITION_NUMBER = 2
WITH UR
;
select current timestamp from sysibm.sysdummy1;
}¢--- A540769.WK.JCL(DB2SR4UN) cre=2006-07-03 mod=2006-07-03-15.23.51 F540769 ---
//A540769U JOB (CAS25071,0000,,0000),'UNLOAD',
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=BS1
//************************** UNLOAD AUF SHR FÜR RZ4 ******************
//STEP1 EXEC PGM=DSNUTILB,
// PARM=(DVTB,'A540769U.UNLOAD'),REGION=0M
//*
//STEPLIB DD DISP=SHR,
// DSN=DB2@.RZ1.P0.DSNLOAD
//ABNLIGNR DD DUMMY
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
LISTDEF UNLDLISTE INCLUDE TABLESPACE DXB04.SXBD710
TEMPLATE UNLD UNIT DISK
DSN(A540769.DATA.&DB..&TS..LOAD.D&JDATE.)
TEMPLATE PUNCHD UNIT DISK
DSN(A540769.DATA.&DB..&TS..LPUNCH.D&JDATE.)
UNLOAD LIST UNLDLISTE
SHRLEVEL CHANGE ISOLATION UR
PUNCHDDN PUNCHD
UNLDDN UNLD
/*
}¢--- A540769.WK.JCL(DB2TEMPL) cre=2015-08-17 mod=2015-08-17-08.07.12 A540769 ---
//A540769L JOB (CP00,KE50),'DB2 COPY',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0 SYSTEM=S14
//P02 EXEC PGM=DSNUTILB,
// PARM='DP4G,A540769F.FULCOPL'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
OPTIONS (PREVIEW)
TEMPLATE TILOC DSN('&SSID..XXLOC.&UQ..D&DATE..T&TIME.')
DATACLAS(ENN35) MGMTCLAS(COM#A041) STORCLAS(FAR$N)
SPACE (1,1) TRK
TIME LOCAL
TEMPLATE TIUTC DSN('&SSID..XXUTC.&UQ..D&DATE..T&TIME.')
DATACLAS(ENN35) MGMTCLAS(COM#A041) STORCLAS(FAR$N)
SPACE (1,1) TRK
TIME UTC
LISTDEF LST 00010000
INCLUDE TABLESPACE DSNDB06.SYSTSUNI PARTLEVEL 8620
-- OPTIONS EVENT(ITEMERROR, SKIP)
COPY LIST LST COPYDDN (TILOC, TIUTC)
PARALLEL
SHRLEVEL CHANGE
}¢--- A540769.WK.JCL(DB2TIAUL) cre=2006-08-21 mod=2008-11-24-17.24.44 F540769 ---
//A540769T JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//P01 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// TIME=99
//SYSTSIN DD *
DSN SYSTEM(DBBA)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//*YSPUNCH DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSREC00 DD SYSOUT=*,LRECL=5000
//SYSIN DD *
with a as
( select repeat('abcdefghijklmopqrstuvwxyz ', 50) a
from sysibm.sysdummy1
)
SELECT char(length(a)),
substr(a, 1, 250),
substr(a, 251, 250),
substr(a, 501, 250),
substr(a, 751, 250),
substr(a, 1001, 250)
from a ;
//
//P01 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// TIME=99
//SYSTSIN DD *
DSN SYSTEM(DBBA)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//*YSPUNCH DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSREC00 DD DSN=A540769.TMP.U0,
// DISP=(NEW,CATLG,CATLG),
// SPACE=(CYL,(1000,500)),
// DATACLAS=NULL30,MGMTCLAS=COM#A092,
//* RECFM=FB,LRECL=80
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=32760)
//SYSREC01 DD DSN=A540769.TMP.U1,
// DISP=(NEW,CATLG,CATLG),
// SPACE=(CYL,(1000,500)),
// DATACLAS=NULL30,MGMTCLAS=COM#A092,
//* RECFM=FB,LRECL=80
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=32760)
//SYSREC01 DD SYSOUT=*
//SYSIN DD *
SELECT char(
left('totalAnzahl ', 25) || char(COUNT(*)), 79)
FROM BUA.TXBC111
union all
SELECT char(left(EAOF || ' ', 25)
|| char(COUNT(EAOF)), 79)
FROM BUA.TXBC071 A INNER JOIN BUA.TXBC111 B
ON A.ENSTORAR = B.ENSTORAR
GROUP BY EAOF
WITH UR;
}¢--- A540769.WK.JCL(DB2UNCO) cre=2006-06-12 mod=2008-11-24-17.24.44 F540769 ---
//A5407698 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=BS1
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769.UNLOAD'),
// REGION=0M
//SYSEXEC DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.EXEC
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
TEMPLATE TSREC DSN('A540769.&SSID..&DB..&SN..P&PART(3)..UNLOAD')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
SPACE (10,250) CYL
TEMPLATE TSPUN DSN('A540769.&SSID..&DB..&SN..P&PART(3)..UNPUNCH')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
SPACE (10,250) CYL
UNLOAD
TABLESPACE DA540769.A001A
FROMCOPY DBAF.DA540769.A001A.P0.D06163.T152047
UNLDDN TSREC PUNCHDDN TSPUN
FROM TABLE A540769.TWK001A
//*--------------------------------------------------------------------
//* UTILITY UNLOAD DD STATEMENTS
//*--------------------------------------------------------------------
}¢--- A540769.WK.JCL(DB2UND) cre=2010-06-17 mod=2015-12-08-18.54.21 A540769 ----
//A540769W JOB (CP00,KE50),'DB2 ADMIN', 00010002
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL, 00020004
// MSGCLASS=T,NOTIFY=&SYSUID 00021002
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DP4G,'A540769V.UNLOAD'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
UNLOAD DATA
FROM TABLE OA1P.TQZ005TECSVRTSLASTEQ
UNLDDN TSRECO EBCDIC CCSID(0037,0037)
-- PUNCHDDN TPUNO
DELIMITED
SHRLEVEL CHANGE
}¢--- A540769.WK.JCL(DB2UNIQ) cre=2007-10-15 mod=2008-11-24-17.24.44 F540769 ---
//QGS400AP JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S14
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBAF,A540769F.FULCOPY'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TUNI DSN('A540769.UNIQ.D&DATE..T&TIME..&UNIQ.')
MGMTCLAS(COM#A092)
TEMPLATE TDEF DSN('&SSID..&DB..&TS..P&PA..&UNIQ.')
LISTDEF C#LIST 00010000
INCLUDE TABLESPACE DB2DUMMY.* PARTLEVEL
COPY LIST C#LIST COPYDDN(TUNI) 00040000
SHRLEVEL CHANGE 00080004
COPY LIST C#LIST COPYDDN(TDEF) 00040000
SHRLEVEL CHANGE 00080004
COPY LIST C#LIST COPYDDN(TUNI) 00040000
SHRLEVEL CHANGE 00080004
COPY LIST C#LIST COPYDDN(TDEF) 00040000
SHRLEVEL CHANGE 00080004
-- QUIESCE LIST C#LIST 00040000
//*
}¢--- A540769.WK.JCL(DB2UNLO) cre=2011-02-22 mod=2015-07-01-10.51.03 A540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DP4G,'A540769V.UNLOAC'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF LST INCLUDE TABLESPACE DA540769.AEW45 PARTLEVEL
UNLOAD LIST LST
PUNCHDDN TPUNCH UNLDDN TSRECD PARALLEL 1
SHRLEVEL CHANGE
}¢--- A540769.WK.JCL(DB2UNLOA) cre=2010-09-14 mod=2011-09-07-11.34.48 A540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769.UNLOAC'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TSRE2 DSN('A540769.TMPUL.&DB..&TS..UN4')
DATACLAS (NULL30) MGMTCLAS(COM#A092)
SPACE (10,1250) CYL
TEMPLATE TSPU2 DSN('A540769.TMPUL.&DB..&TS..PU4')
DATACLAS (NULL12) MGMTCLAS(COM#A092)
SPACE (10,250) CYL
TEMPLATE TSRET DSN('&SSID..&DB..&SN..D&DATE..UNLOAC')
UNIT 3490
RETPD 23
STACK YES
TEMPLATE TSREC DSN('&SSID..&DB..&SN..D&DATE..UNLOAD')
-- DATACLAS (EYY0X) MGMTCLAS(COM#E005)
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
TEMPLATE TSPUN DSN('&SSID..&DB..&SN..D&DATE..UNLPUN')
DATACLAS (NULL12) MGMTCLAS(COM#E005)
SPACE (10,250) CYL
TEMPLATE TSRES DSN('SHR21.DIV.P021.&DB..&SN..P&PA..UNL')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
-- SPACE (10,250) CYL
DISP(OLD,KEEP,KEEP)
TEMPLATE TSPUS DSN('SHR21.DIV.P021.&DB..&SN..P&PA..UPU')
DATACLAS (NULL12) MGMTCLAS(COM#E008)
-- SPACE (10,250) CYL
DISP(OLD,KEEP,KEEP)
UNLOAD TABLESPACE DA540769.A600A033
PUNCHDDN TPUNCH UNLDDN TSRECD
SHRLEVEL CHANGE
//SYSXX DD *
PUNCHDDN TSPUS UNLDDN TSRES
SHRLEVEL CHANGE
UNLOAD
TABLESPACE CZ10A1A.A720A
FROM TABLE OA1A.TCZ720A1
PUNCHDDN TSPUS UNLDDN TSRES
SHRLEVEL REFERENCE
UNLOAD
TABLESPACE CZ10A1A.A724A
FROM TABLE OA1A.TCZ724A1
PUNCHDDN TSPUS UNLDDN TSRES
SHRLEVEL REFERENCE
//SYSXX DD *
UNLOAD DATA FROM TABLE VDPS2.VTINSTRUMENTEVENT LIMIT 10000000
PUNCHDDN TSPUN UNLDDN TSREC
SHRLEVEL CHANGE
TOCOPY DBAF.DA267167.A031OLD.D06293.T121727 <- RZ 1 DATA
TOCOPY DBAF.DA267167.A031OLD.D06307.T153331 <- RZ 2 DATA |||
TOCOPY DBAF.DA267167.A031OLD.D06331.T092656 <- RZ BLUP
TOCOPY DBAF.DA267167.A031OLD.D07005.T101131 <- RZ2 DATA ORIGINAL
TOCOPY DBAF.DA267167.A031OLD.D06331.T101744 <- EMPTY
TOCOPY DBAF.DA267167.A031OLD.D07037.T125512 <- SAVE 6.2. 1ST RUN
//*--------------------------------------------------------------------
//* UTILITY UNLOAD DD STATEMENTS
//*--------------------------------------------------------------------
UNLOAD
TABLESPACE CZ10A1A.A720A
FROM TABLE OA1A.TCZ720A1
PUNCHDDN TSPUS UNLDDN TSRES
SHRLEVEL REFERENCE
UNLOAD
TABLESPACE CZ10A1A.A724A
FROM TABLE OA1A.TCZ724A1
PUNCHDDN TSPUS UNLDDN TSRES
SHRLEVEL REFERENCE
}¢--- A540769.WK.JCL(DB2UNLOB) cre=2014-02-03 mod=2014-02-03-11.26.53 A540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOF,'A540769V.UNLOAC'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TSREC DSN('DSN.ZGL.FEB.&DB..&TS..UNL')
DATACLAS (NULL30) MGMTCLAS(COM#A092)
SPACE (1000,1250) CYL
TEMPLATE TSPUN DSN('DSN.ZGL.FEB.&DB..&TS..PUN')
DATACLAS (NULL12) MGMTCLAS(COM#A092)
SPACE (10,250) CYL
UNLOAD FROM TABLE QP01BROK.BACLENTRIES
PUNCHDDN TPUNCH UNLDDN TSRECD SPANNED YES
SHRLEVEL CHANGE
}¢--- A540769.WK.JCL(DB2UNLOC) cre=2011-06-01 mod=2011-06-01-10.30.44 A540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY mit Konstante
//* Name muss eigenen Namen haben|
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769V.UNLOAC'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
UNLOAD TABLESPACE DA540769.A953A
FROM TABLE
"A540769"."TWK953A1"
( "CONE"
POSITION( 00003 ) CHAR(00011)
, "CTWO"
POSITION( 00014 ) CHAR(00002)
, "CTHREE"
POSITION( 00016 ) CHAR(00033)
, CONE CONSTANT 'abcDe'
)
PUNCHDDN TPUNCH UNLDDN TSRECD
SHRLEVEL REFERENCE
}¢--- A540769.WK.JCL(DB2UNLOD) cre=2013-02-13 mod=2014-05-14-08.04.07 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DP4G,'A540769V.UNLOAC'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
.3STDEF LST INCLUDE TABLESPACE DA540769.* PARTLEVEL
UNLOAD LIST LST
PUNCHDDN TPUNCH UNLDDN TSRECD
SHRLEVEL CHANGE ISOLATION UR
}¢--- A540769.WK.JCL(DB2UNLOI) cre=2012-02-06 mod=2012-02-06-11.56.28 A540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769.UNLOAC'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TSRECD DSN('&SSID..&DB..&SN..X&PART..D&YE(3).&MO.&DA..REC')
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE TRK MAXPRIME 600
-- TPUNCH: PUNCHDDN FUER REORG UNLOAD
TEMPLATE TPUNCH DSN('&SSID..&DB..&SN..X&PART..D&YE(3).&MO.&DA..PUN')
DATACLAS(NULL8) MGMTCLAS(COM#A032)
SPACE(1,10) TRK
LISTDEF L INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 71
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 61
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 4
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 20
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 9
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 66
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 51
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 56
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 98
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 14
UNLOAD LIST L
PUNCHDDN TPUNCH UNLDDN TSRECD
SHRLEVEL CHANGE ISOLATION UR
//SYSINT DD *
LISTDEF L INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 71
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 61
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 4
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 20
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 9
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 66
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 51
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 56
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 98
INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 14
UNLOAD LIST L
PUNCHDDN TPUNCH UNLDDN TSRECD
FORMAT INTERNAL
SHRLEVEL CHANGE ISOLATION UR
//SYSI3 DD *
UNLOAD TABLESPACE DA540769.APER16
PUNCHDDN TPUNCH UNLDDN TSRECD
FORMAT INTERNAL
SHRLEVEL CHANGE ISOLATION UR
}¢--- A540769.WK.JCL(DB2UNLOL) cre=2016-07-29 mod=2016-07-29-15.35.40 A540769 ---
//A540769U JOB (CP00,KE50),'DB2 ADMIN', 00010002
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL, 00020004
// MSGCLASS=T,NOTIFY=&SYSUID 00021002
//***************************************************
//* UNLOAD
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DP4G,'A54076U.UNLOAD'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TUNL DSN('DSN.SAVE.&DB..&TS..P&PART..UNL')
DATACLAS (NULL30) MGMTCLAS(COM#A014)
-- SPACE (10,1250) CYL
TEMPLATE TPUN DSN('DSN.SAVE.&DB..&TS..P&PART..PUN')
DATACLAS (NULL12) MGMTCLAS(COM#A014)
LISTDEF LST INCLUDE TABLESPACE SU03A1P.* PARTLEVEL
UNLOAD LIST LST
PUNCHDDN TPUN UNLDDN TUNL
SHRLEVEL REFERENCE
}¢--- A540769.WK.JCL(DB2UNLOP) cre=2010-01-21 mod=2010-03-12-17.15.34 A540769 ---
//A540769R JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* unload parallel
//* partition parallelism is activated if
//* unload template contains fulllength &PART
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769.UNLOAC'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
UNLOAD DATA FROM TABLE OA1A.TEL001A1
PUNCHDDN TPUNCH UNLDDN TSRECD
SHRLEVEL CHANGE ISOLATION UR
}¢--- A540769.WK.JCL(DB2UNLOR) cre=2014-05-08 mod=2014-05-08-14.51.06 A540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DE0G,'JOBNAME.UNLOA'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DE0G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
-- TSRECD: UNLDDN FUER UNLOAD
TEMPLATE TSRECD DSN('???.&DB..&SN..P&PART..REC')
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE TRK MAXPRIME 600
-- TPUNCH: PUNCHDDN FUER REORG UNLOAD
TEMPLATE TPUNCH DSN('???.&DB..&SN..P&PART..PUN')
DATACLAS(NULL8) MGMTCLAS(COM#A032)
SPACE(1,10) TRK
UNLOAD FROM TABLE OA1P.TSB????1
PUNCHDDN TPUNCH UNLDDN TSRECD
SHRLEVEL REFERENCE
}¢--- A540769.WK.JCL(DB2UNLOU) cre=2008-06-24 mod=2008-11-24-17.24.45 F540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769.UNLOAC'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSXX DD *
TB OA1P.TWA001A1 ts WA01A1P.A001A
TB OA1P.TWA002A1 ts WA01A1P.A002A
TB OA1P.TWA003A1 ts WA01A1P.A003A
TB OA1P.TWA004A1 ts WA01A1P.A004A
TB OA1P.TWA010A1 ts WA01A1P.A010A
TB OA1P.TWA013A1 ts WA01A1P.A013A
TB OA1P.TWA016A1 ts WA01A1P.A016A
TB OA1P.TWA017A1 ts WA01A1P.A017A
TB OA1P.TWA018A1 ts WA01A1P.A018A
TB OA1P.TWA020A1 ts WA01A1P.A020A
TB OA1P.TWA021A1 ts WA01A1P.A021A
TB OA1P.TWA030A1 ts WA01A1P.A030A
TB OA1P.TWA024A1 ts WA01A1P.A024A
//SYSIN DD *
TEMPLATE TUNL DSN('A540769.TMPUL.&DB..&TS..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A092)
SPACE TRK
TEMPLATE TPUN DSN('A540769.TMPUL.&DB..&TS..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A092)
SPACE TRK
LISTDEF LST INCLUDE TABLESPACE WA01A1P.A001A
TABLESPACE WA01A1P.A002A
TABLESPACE WA01A1P.A003A
TABLESPACE WA01A1P.A004A
TABLESPACE WA01A1P.A010A
TABLESPACE WA01A1P.A013A
TABLESPACE WA01A1P.A016A
TABLESPACE WA01A1P.A017A
TABLESPACE WA01A1P.A018A
TABLESPACE WA01A1P.A020A
TABLESPACE WA01A1P.A021A
TABLESPACE WA01A1P.A030A
TABLESPACE WA01A1P.A024A
UNLOAD LIST LST
PUNCHDDN TPUN UNLDDN TUNL
SHRLEVEL CHANGE ISOLATION UR
}¢--- A540769.WK.JCL(DB2UNLPL) cre=2013-05-25 mod=2013-05-26-15.15.17 A540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769V.UNLOAC'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
-- TSREC: UNLDDN FUER UNLOAD
TEMPLATE TREC DSN 'DSN.TX.PLANRZ1.&SSID..&SN..&UNIQ..UNL'
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE TRK MAXPRIME 600
TEMPLATE TPUN DSN 'DSN.TX.PLANRZ1.&SSID..&SN..&UNIQ..PUN'
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE TRK MAXPRIME 6
UNLOAD FROM TABLE SYSIBM.SYSPLAN
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
UNLOAD FROM TABLE SYSIBM.SYSPLSYSTEM
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
UNLOAD FROM TABLE SYSIBM.SYSPACKLIST
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
}¢--- A540769.WK.JCL(DB2UNLRT) cre=2014-04-30 mod=2014-04-30-16.47.32 A540769 ---
//A540769U JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DP4G,'A540769U.UNLOAC'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TRECTS DSN('A540769.TMP.&SSID..RTSTABLE.REC')
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE TRK MAXPRIME 600
TEMPLATE TPUNTS DSN('A540769.TMP.&SSID..RTSTABLE.PUN')
DATACLAS(NULL8) MGMTCLAS(COM#A032)
SPACE(1,10) TRK
TEMPLATE TRECIX DSN('A540769.TMP.&SSID..RTSINDEX.REC')
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE TRK MAXPRIME 600
TEMPLATE TPUNIX DSN('A540769.TMP.&SSID..RTSINDEX.PUN')
DATACLAS(NULL8) MGMTCLAS(COM#A032)
SPACE(1,10) TRK
UNLOAD DATA
PUNCHDDN TPUNTS UNLDDN TRECTS
SHRLEVEL CHANGE ISOLATION UR
FROM TABLE SYSIBM.SYSTABLESPACESTATS
UNLOAD DATA
PUNCHDDN TPUNIX UNLDDN TRECIX
SHRLEVEL CHANGE ISOLATION UR
FROM TABLE SYSIBM.SYSINDEXSPACESTATS
}¢--- A540769.WK.JCL(DB2UNLST) cre=2007-01-09 mod=2012-01-20-15.03.53 A540769 ---
//A540769U JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//**AIN CLASS=LOG0
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOF,'A540769U.UNLOAD'),
// REGION=0M
//*SYSEXEC DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.EXEC
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
LISTDEF LST INCLUDE TABLESPACE FK01A1P.*
TEMPLATE UNL -- UNIT DISK
DSN(A540769.TMPUL.&DB..&TS..UNL)
DATACLAS (NULL30) MGMTCLAS(COM#A069)
TEMPLATE PUN -- UNIT DISK
DSN(A540769.TMPUL.&DB..&TS..PUN)
DATACLAS (NULL30) MGMTCLAS(COM#A069)
UNLOAD LIST LST
UNLDDN UNL PUNCHDDN PUN
SHRLEVEL CHANGE
}¢--- A540769.WK.JCL(DB2UNLS2) cre=2007-01-09 mod=2008-11-24-17.24.45 F540769 ---
//A540769U JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOF,'A540769.UNLOAD'),
// REGION=0M
//*SYSEXEC DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.EXEC
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//LLLIN DD *
TCZ173A1 OA1P T CZ21A1P A173A OK
TRM003A1 OA1P T RM01A1P A003A OK
TRM021A1 OA1P T RM01A1P A021A OK
TEQ300A1 OA1P T EQ02A1P A300A OK
TCZ109A1 OA1P T CZ01A1P A109A OK
TCZ109H1 OA1P T CZ01A1P A109H OK
VCZ110A1V OA1P V CZ01A1P A110A OK
VCZ110H1V OA1P V CZ01A1P A110H OK
VCZ236A1V OA1P V CZ03A1P A236A OK
VCZ323A1V OA1P V CZ03A1P A323A OK
VCZ323G1V OA1P V CZ03G1P A323A OK
VCZ327A1V OA1P V CZ03A1P A327A OK
VCZ327G1V OA1P V CZ03G1P A327A OK
VCZ421A1V OA1P V CZ03A1P A421A OK
VCZ321A1V OA1P V CZ03A1P A321A OK
VCZ235A1V OA1P V CZ03A1P A235A OK
VCZ236G1V OA1P V CZ03G1P A236A OK
VCZ321G1V OA1P V CZ03G1P A321A OK
VCZ521A1V OA1P V CZ04A1P A521A OK
VCZ421G1V OA1P V CZ03G1P A421A OK
VCZ621A1V OA1P V CZ04A1P A621A OK
VCZ331A1V OA1P V CZ03A1P A331A OK
VCZ331G1V OA1P V CZ03G1P A331A OK
TVP023A1 OA1P T VP02A1P A023A OK
//SYSIN DD *
LISTDEF LL01 INCLUDE TABLESPACE CZ21A1P.A173A
INCLUDE TABLESPACE RM01A1P.A003A
INCLUDE TABLESPACE RM01A1P.A021A
INCLUDE TABLESPACE EQ02A1P.A300A
INCLUDE TABLESPACE CZ01A1P.A109A
INCLUDE TABLESPACE CZ01A1P.A109H
INCLUDE TABLESPACE CZ01A1P.A110A
INCLUDE TABLESPACE CZ01A1P.A110H
INCLUDE TABLESPACE CZ03A1P.A236A
-- ?????? INCLUDE TABLESPACE CZ03A1P.A323A
-- ????? INCLUDE TABLESPACE CZ03G1P.A323A
LISTDEF LL09 INCLUDE TABLESPACE CZ03A1P.A327A
INCLUDE TABLESPACE CZ03G1P.A327A
INCLUDE TABLESPACE CZ03A1P.A421A
INCLUDE TABLESPACE CZ03A1P.A321A
LISTDEF LL18 INCLUDE TABLESPACE CZ03A1P.A235A
INCLUDE TABLESPACE CZ03G1P.A236A
LISTDEF LL19 INCLUDE TABLESPACE CZ03G1P.A321A
INCLUDE TABLESPACE CZ04A1P.A521A
-- ???LISTDEF LL21 INCLUDE TABLESPACE CZ03G1P.A421A
LISTDEF LL22 INCLUDE TABLESPACE CZ04A1P.A621A
INCLUDE TABLESPACE CZ03A1P.A331A
INCLUDE TABLESPACE CZ03G1P.A331A
-- ???? INCLUDE TABLESPACE VP02A1P.A023A
LISTDEF LLXL INCLUDE TABLESPACE CZ03A1P.A323A
INCLUDE TABLESPACE CZ03G1P.A323A
INCLUDE TABLESPACE CZ03G1P.A421A
LISTDEF LLXX INCLUDE TABLESPACE VP02A1P.A023A
TEMPLATE UNL -- UNIT DISK
DSN(DSN.A540769.UPTB.&DB..&TS..P&PA..UNL)
-- DSN(DSN.A540769.UPTB.&DB..&TS..UNL)
DATACLAS (NULL30) MGMTCLAS(COM#E035)
-- VOLUMES(SHR205,SHR210,SHR212,SHR215,SHR216,
-- SHR242,SHR299,SHR200,SHR201,SHR202,SHR203,
-- SHR204,SHR206,SHR207,SHR208,SHR209,SHR211)
-- SPACE (1000, 750) CYL
TEMPLATE PUN -- UNIT DISK
DSN(DSN.A540769.UPTB.&DB..&TS..P&PA..PUN)
DATACLAS (NULL30) MGMTCLAS(COM#E035)
-- VOLUMES(SHR299)
SPACE (1,1) CYL
UNLOAD TABLESPACE VP02A1P.A023A PART 1:10
UNLDDN UNL PUNCHDDN PUN
SHRLEVEL CHANGE
}¢--- A540769.WK.JCL(DB2UT) cre=2008-07-04 mod=2008-10-27-15.40.24 F540769 -----
//A540769B JOB (BAN45833,9999,,9904),TSOJOB,
// TIME=1,REGION=4M,MSGCLASS=T
//*MAIN CLASS=LOG
//*
//* LIBRARY(PCL.U0000.P0.RZ4AKT.PERM.@008.DBR) -
//* LIBRARY('CMN.DIV.P0.QMSW.#000010.DBR') -
//* LIBRARY('PCL.U0000.P0.RZ4AKT.PERM.@008.DBR') -
//*
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBAF)
BIND PACKAGE(DB2ADMIN) -
OWNER(S100447) -
COPY(DSNREXCS.DSNREXX) -
COPYVER(UK35514) -
EXPLAIN(N) ACTION(REP) -
DYNAMICRULES(DEFINERUN)
END
//
//CREA EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
SET CURRENT SQLID='S100447';
DROP PROCEDURE DB2ADMIN.DSNUTILS;
DROP PROCEDURE DB2UTIL.DB2UTIL ;
COMMIT;
CREATE PROCEDURE DB2UTIL.DB2UTIL
(IN CMDTEXT VARCHAR(32704) FOR SBCS DATA CCSID EBCDIC ,
OUT CMDRESULT VARCHAR(32704) FOR SBCS DATA CCSID EBCDIC )
DYNAMIC RESULT SETS 1
EXTERNAL NAME 'DB2UTILP'
LANGUAGE REXX PARAMETER STYLE GENERAL NOT DETERMINISTIC FENCED
CALLED ON NULL INPUT MODIFIES SQL DATA NO DBINFO
WLM ENVIRONMENT DB2DSNR ASUTIME LIMIT 60000
STAY RESIDENT NO PROGRAM TYPE MAIN SECURITY DB2
INHERIT SPECIAL REGISTERS STOP AFTER SYSTEM DEFAULT FAILURES
RUN OPTIONS 'TRAP(ON)' COMMIT ON RETURN NO ;
COMMIT;
CREATE PROCEDURE DB2ADMIN.DSNUTILS
(IN UTILITY_ID VARCHAR(16) FOR SBCS DATA CCSID EBCDIC ,
IN RESTART VARCHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN UTSTMT VARCHAR(32704) FOR SBCS DATA CCSID EBCDIC ,
OUT RETCODE INTEGER ,
IN UTILITY_NAME VARCHAR(20) FOR SBCS DATA CCSID EBCDIC ,
IN RECDSN VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
IN RECDEVT CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN RECSPACE SMALLINT ,
IN DISCDSN VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
IN DISCDEVT CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN DISCSPACE SMALLINT ,
IN PNCHDSN VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
IN PNCHDEVT CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN PNCHSPACE SMALLINT ,
IN COPYDSN1 VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
IN COPYDEVT1 CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN COPYSPACE1 SMALLINT ,
IN COPYDSN2 VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
IN COPYDEVT2 CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN COPYSPACE2 SMALLINT ,
IN RCPYDSN1 VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
IN RCPYDEVT1 CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN RCPYSPACE1 SMALLINT ,
IN RCPYDSN2 VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
IN RCPYDEVT2 CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN RCPYSPACE2 SMALLINT ,
IN WORKDSN1 VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
IN WORKDEVT1 CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN WORKSPACE1 SMALLINT ,
IN WORKDSN2 VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
IN WORKDEVT2 CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN WORKSPACE2 SMALLINT ,
IN MAPDSN VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
IN MAPDEVT CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN MAPSPACE SMALLINT ,
IN ERRDSN VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
IN ERRDEVT CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN ERRSPACE SMALLINT ,
IN FILTRDSN VARCHAR(54) FOR SBCS DATA CCSID EBCDIC ,
IN FILTRDEVT CHAR(8) FOR SBCS DATA CCSID EBCDIC ,
IN FILTRSPACE SMALLINT )
DYNAMIC RESULT SETS 1
EXTERNAL NAME 'DSNUTILS'
LANGUAGE ASSEMBLE PARAMETER CCSID EBCDIC PARAMETER STYLE GENERAL
NOT DETERMINISTIC FENCED CALLED ON NULL INPUT MODIFIES SQL DATA
NO DBINFO COLLID DSNUTILS WLM ENVIRONMENT DB2DSNU
ASUTIME NO LIMIT STAY RESIDENT NO PROGRAM TYPE MAIN
SECURITY DEFINER INHERIT SPECIAL REGISTERS
STOP AFTER SYSTEM DEFAULT FAILURES RUN OPTIONS 'TRAP(OFF)'
COMMIT ON RETURN NO ;
COMMIT;
}¢--- A540769.WK.JCL(DB2UTPDR) cre=2006-05-12 mod=2008-05-20-14.31.26 F540769 ---
//A540769D JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 05/12/2006.13.25.38
//* ENVIRONMENT: ISPF 5.6MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVTB,'A540769D'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVTB.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF C#LIST
INCLUDE TABLESPACE DB2RTS.A010A
INCLUDE TABLESPACE DB2RTS.A011A
QUIESCE LIST C#LIST
MODIFY RECOVERY
LIST C#LIST
DELETE AGE (*)
COPY
LIST C#LIST
COPYDDN(TCOPYD) FULL YES
PARALLEL(6)
}¢--- A540769.WK.JCL(DB21COMP) cre=2010-11-03 mod=2010-11-03-10.37.57 A540769 ---
//A540769R JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=A540769
//*MAIN CLASS=LOG SYSTEM=S21
//COMP0 EXEC PGM=DSN1COMP
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DBTF.DSNDBD.NI02A1T.A250A.I0001.A027
//SYSIN DD *
DSN1COMP 32K DSSIZE(32G) NUMPARTS(256)
//
//COMP1 EXEC PGM=DSN1COMP
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DBTF.DSNDBC.NI02A1T.INI250A1.I0001.A027
//SYSIN DD *
DSN1COMP 32K DSSIZE(32G) NUMPARTS(256)
//COMP2 EXEC PGM=DSN1COMP
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DBTF.DSNDBC.NI02A1T.INI250A2.I0001.A027
//SYSIN DD *
DSN1COMP 32K DSSIZE(32G) NUMPARTS(256)
//COMP3 EXEC PGM=DSN1COMP
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DBTF.DSNDBC.NI02A1T.INI250A3.I0001.A027
//SYSIN DD *
DSN1COMP 32K DSSIZE(32G) NUMPARTS(256)
//COMP4 EXEC PGM=DSN1COMP
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DBTF.DSNDBC.NI02A1T.INI250A4.I0001.A027
//SYSIN DD *
DSN1COMP 32K DSSIZE(32G) NUMPARTS(256)
//COMP5 EXEC PGM=DSN1COMP
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DBTF.DSNDBC.NI02A1T.INI250A5.I0001.A027
//SYSIN DD *
DSN1COMP 32K DSSIZE(32G) NUMPARTS(256)
//COMP6 EXEC PGM=DSN1COMP
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DBTF.DSNDBC.NI02A1T.INI250A6.J0001.A027
//SYSIN DD *
DSN1COMP 32K DSSIZE(32G) NUMPARTS(256)
}¢--- A540769.WK.JCL(DB21DMP) cre=2010-01-22 mod=2011-10-21-10.02.45 A540769 ---
//A540769S JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=A540769
//*MAIN CLASS=LOG,SYSTEM=S13
//**********************************************************************
//* --> stop trace mittels: -sto trace(perfm)
//*
//* --> kein output: eventuell bufsize reduzieren
//* (beim stop trace wird der aktuelle buffer nicht mehr
//* geschrieben|)
//*
//**********************************************************************
//IFCSD EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SDMPPRNT DD SYSOUT=*
//SDMPTRAC DD DISP=(NEW,CATLG,CATLG),DSN=A540769.DB2TRACE.DATA.#DT#,
// UNIT=SYSDA,SPACE=(CYL,(500,500),RLSE),MGMTCLAS=COM#A045,
//*DMPTRAC DD SYSOUT=*,
// DCB=(DSORG=PS,LRECL=8188,RECFM=VB,BLKSIZE=8192)
//SDMPIN DD *
START TRACE(PERFM)
CLASS (30) RMID (*) DEST (OPX) BUFSIZE(256)
CORRID(A540769)
IFCID(3,6,7,8,9,11,12,13,15,16,17,18,22,28,45,53,55,58,59,60,
61,62,63,64,65,66,68,69,70,71,72,73,74,75,84,85,86,87,
88,89,92,95,96,97,105,106,107,108,109,125,157,159,160,
162,163,174,175,177,183,188,214,215,216,221,222,226,227,
231,233,237,242,247,248,272,273,305,324,325)
FOR(32767)
//SDMPIN91 DD *
START TRACE(PERFM)
CLASS (30) RMID (*) DEST (OPX)
PKGCOL(SV) PKGPROG(SV0020)
IFCID(3,6,7,8,9,11,12,13,15,16,17,18,22,28,45,53,55,58,59,60,
61,62,63,64,65,66,68,69,70,71,72,73,74,75,84,85,86,87,
88,89,92,95,96,97,105,106,107,108,109,125,157,159,160,
162,163,174,175,177,183,188,214,215,216,221,222,226,227,
231,233,237,242,247,248,272,273,305,324,325) BUFSIZE(512)
FOR(299)
//SDMPIN92 DD *
START TRACE(PERFM) CLASS(3) DEST(OPX) CORRID(A54076*)
BUFSIZE(1024)
FOR (99)
//SDMPIX93 DD *
CLASS(6) DEST(OPX) PLAN(DSNUTIL) AUTHID(A540769)
CORRID(A540769L)
//**********************************************************************
//* START TRACE(PERFM) CLASS(*) DEST(OPX) PLAN(DISTSERV) BUFSIZE(32)
//* START TRACE(PERFM) CLASS(30) DEST(OPX) PLAN(WI0380) BUFSIZE(1024)
//*
//* SUSPENSION TRACE:
//* CLASS(6) DEST(OPX) PLAN(PW5200,PW5230) BUFSIZE(1024)
//*
//* SQL TRACE:
//* START TRACE(PERFM) CLASS(3) DEST(OPX) PLAN(A167274) BUFSIZE(32)
//*
//* SQL TRACE (LONG SQL-STMT):
//* START TRACE(PERFM) CLASS(3) DEST(OPX) PLAN(A167274) BUFSIZE(32)
//*
//* DS OPEN/CLOSE
//* START TRACE(PERFM) CLASS(1) IFCID(107) DEST(OPX) BUFSIZE(1024)
//*
//* INSERT SDMPIN DD HERE. IT MUST BEGIN WITH A VALID
//* START TRACE COMMAND (WITHOUT THE SUBSYSTEM RECOGNITION CHAR)
//*
//**********************************************************************
/*
//**********************************************************************
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROG(DSN1SDMP) PLAN(DSNTEP2)
END
//********** ANALYSIS
//PMV710 EXEC PGM=DB2PM
//STEPLIB DD DSN=OMEG.PLEXA.P420.PE.RKANMOD,DISP=SHR
//*
//* INPUT stat files suffice for locking
//*INPUTDD DD DISP=SHR,DSN=SMF.RZ2.P0.DB2.INTVL.S24B.D11286.T235930
//INPUTDD DD DISP=SHR,DSN=*.IFCSD.SDMPTRAC
//*
//*
//SORTWK01 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK02 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK03 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK04 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK05 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK06 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK07 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK08 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK09 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK10 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK11 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK12 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK13 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK14 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK15 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK16 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK17 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK18 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK19 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK21 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK22 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK23 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK24 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK25 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK26 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK27 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK28 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK29 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK30 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK31 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK32 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK33 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK34 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK35 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK36 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK37 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK38 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK39 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK40 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK41 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK42 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK43 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK44 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK45 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK46 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK47 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK48 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK49 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK50 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK51 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK52 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK53 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK54 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK55 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//*
//ACWORK DD UNIT=DISK,DISP=(NEW,CATLG,DELETE),
// DSN=&&ACWORK,
// SPACE=(CYL,(600,300),RLSE),DCB=(BUFNO=20),
// RECFM=VBS,LRECL=32756,BLKSIZE=6233,
// DATACLAS=NULL12,MGMTCLAS=COM#A032
//*
//* ** DATASET WIRD FÜR ACCOUNTING TRACES VERWENDET
//ACMEM01 DD UNIT=DISK,DISP=(NEW,CATLG,DELETE),
// DSN=&&ACME01,
// SPACE=(CYL,(800,400),RLSE),DCB=(BUFNO=20),
// RECFM=VBS,LRECL=32756,BLKSIZE=6233,
// DATACLAS=NULL8,MGMTCLAS=COM#E000
//ACMEM02 DD UNIT=DISK,DISP=(NEW,CATLG,DELETE),
// DSN=&&ACME01,
// SPACE=(CYL,(800,400),RLSE),DCB=(BUFNO=20),
// RECFM=VBS,LRECL=32756,BLKSIZE=6233,
// DATACLAS=NULL8,MGMTCLAS=COM#E000
//ACMEM03 DD UNIT=DISK,DISP=(NEW,CATLG,DELETE),
// DSN=&&ACME01,
// SPACE=(CYL,(800,400),RLSE),DCB=(BUFNO=20),
// RECFM=VBS,LRECL=32756,BLKSIZE=6233,
// DATACLAS=NULL8,MGMTCLAS=COM#E000
//DPMPARMS DD DSN=DSN.RZ1.P0.DPMPARMS,DISP=SHR ,DI
//ACTRCDD1 DD SYSOUT=*
//ACRPTDD DD SYSOUT=*
//DPMLOG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*
//JOBSUMDD DD SYSOUT=* <--- JOB SUMMARY REPORT
//*
//DEAD#TRC DD SYSOUT=*
//*DEAD#TRC DD DISP=(NEW,CATLG,DELETE), DEADLOCK REPORT
//* SPACE=(CYL,(1,1),RLSE),MGMTCLAS=A035N004,
//* DSN=TSS.SKA.DATA.BE2.DEADLOC2.#DT#
//*LOCK#TRC DD DISP=(NEW,CATLG,DELETE), DEADLOCK REPORT
//* SPACE=(CYL,(1,1),RLSE),MGMTCLAS=A035N004,
//* DSN=TSS.SKA.DATA.BE2.DEADLOCK.#DT#
//LORPTDD DD SYSOUT=* locking report
//LOTRCDD1 DD SYSOUT=* locking trace
//LOTRCDD2 DD SYSOUT=*
//LOTRCDD3 DD SYSOUT=*
//LOTRCDD4 DD SYSOUT=*
//*
//ACRPTDD DD SYSOUT=* accounting report
//ACTRCDD1 DD SYSOUT=* accounting trace
//ACTRCDD2 DD SYSOUT=*
//*
//SYSPARMS DD SYSOUT=* sysParms REPORT
//*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
GLOBAL
/* PAGESIZE(55) */
/* INPUTDD(SMFIN) */
PRESORTED(NO)
TIMEZONE(ZH)
SQLACTIVITY
TRACE
WORKLOAD(ALL)
/* WORKLOAD(HILITE) */
/* WORKLOAD(ACCT) */
LIMIT(99999)
REPORT
/* SUMMARIZEBY(ALL) */
/* SUMMARIZEBY(STMTTYPE) */
SUMMARIZEBY(STMTNO)
/* SUMMARIZEBY(CURSOR) */
WORKLOAD(ALL)
/* WORKLOAD(HILITE) */
/* WORKLOAD(NONE) */
ORDER(PLANNAME)
EXEC
}¢--- A540769.WK.JCL(DB21DMPA) cre=2011-10-20 mod=2011-10-21-09.26.50 A540769 ---
//A540769X JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(9999,WARNING),
// REGION=0M,NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//*
//* DB2PM Accounting
//*
//*
//PMV710 EXEC PGM=DB2PM
//STEPLIB DD DSN=OMEG.PLEXA.P420.PE.RKANMOD,DISP=SHR
//*
//* INPUT stat files suffice for locking
//*INPUTDD DD DISP=SHR,DSN=SMF.RZ2.P0.DB2.INTVL.S24B.D11286.T235930
//INPUTDD DD DISP=SHR,DSN=A540769.DB2TRACE.DATA.D11293.T173100
//*
//*
//SORTWK01 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK02 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK03 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK04 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK05 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK06 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK07 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK08 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK09 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK10 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK11 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK12 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK13 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK14 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK15 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK16 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK17 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK18 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK19 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK21 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK22 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK23 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK24 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK25 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK26 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK27 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK28 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK29 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK30 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK31 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK32 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK33 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK34 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK35 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK36 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK37 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK38 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK39 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK40 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK41 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK42 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK43 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK44 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK45 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK46 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK47 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK48 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK49 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK50 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK51 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK52 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK53 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK54 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//SORTWK55 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(600,600))
//*
//ACWORK DD UNIT=DISK,DISP=(NEW,CATLG,DELETE),
// DSN=&&ACWORK,
// SPACE=(CYL,(600,300),RLSE),DCB=(BUFNO=20),
// RECFM=VBS,LRECL=32756,BLKSIZE=6233,
// DATACLAS=NULL12,MGMTCLAS=COM#A032
//*
//* ** DATASET WIRD FÜR ACCOUNTING TRACES VERWENDET
//ACMEM01 DD UNIT=DISK,DISP=(NEW,CATLG,DELETE),
// DSN=&&ACME01,
// SPACE=(CYL,(800,400),RLSE),DCB=(BUFNO=20),
// RECFM=VBS,LRECL=32756,BLKSIZE=6233,
// DATACLAS=NULL8,MGMTCLAS=COM#E000
//ACMEM02 DD UNIT=DISK,DISP=(NEW,CATLG,DELETE),
// DSN=&&ACME01,
// SPACE=(CYL,(800,400),RLSE),DCB=(BUFNO=20),
// RECFM=VBS,LRECL=32756,BLKSIZE=6233,
// DATACLAS=NULL8,MGMTCLAS=COM#E000
//ACMEM03 DD UNIT=DISK,DISP=(NEW,CATLG,DELETE),
// DSN=&&ACME01,
// SPACE=(CYL,(800,400),RLSE),DCB=(BUFNO=20),
// RECFM=VBS,LRECL=32756,BLKSIZE=6233,
// DATACLAS=NULL8,MGMTCLAS=COM#E000
//DPMPARMS DD DSN=DSN.RZ1.P0.DPMPARMS,DISP=SHR ,DI
//ACTRCDD1 DD SYSOUT=*
//ACRPTDD DD SYSOUT=*
//DPMLOG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*
//JOBSUMDD DD SYSOUT=* <--- JOB SUMMARY REPORT
//*
//DEAD#TRC DD SYSOUT=*
//*DEAD#TRC DD DISP=(NEW,CATLG,DELETE), DEADLOCK REPORT
//* SPACE=(CYL,(1,1),RLSE),MGMTCLAS=A035N004,
//* DSN=TSS.SKA.DATA.BE2.DEADLOC2.#DT#
//*LOCK#TRC DD DISP=(NEW,CATLG,DELETE), DEADLOCK REPORT
//* SPACE=(CYL,(1,1),RLSE),MGMTCLAS=A035N004,
//* DSN=TSS.SKA.DATA.BE2.DEADLOCK.#DT#
//LORPTDD DD SYSOUT=* locking report
//LOTRCDD1 DD SYSOUT=* locking trace
//LOTRCDD2 DD SYSOUT=*
//LOTRCDD3 DD SYSOUT=*
//LOTRCDD4 DD SYSOUT=*
//*
//ACRPTDD DD SYSOUT=* accounting report
//ACTRCDD1 DD SYSOUT=* accounting trace
//ACTRCDD2 DD SYSOUT=*
//*
//SYSPARMS DD SYSOUT=* sysParms REPORT
//*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
GLOBAL
/* PAGESIZE(55) */
/* INPUTDD(SMFIN) */
PRESORTED(NO)
TIMEZONE(ZH)
SQLACTIVITY
TRACE
WORKLOAD(ALL)
/* WORKLOAD(HILITE) */
/* WORKLOAD(ACCT) */
LIMIT(99999)
REPORT
/* SUMMARIZEBY(ALL) */
/* SUMMARIZEBY(STMTTYPE) */
SUMMARIZEBY(STMTNO)
/* SUMMARIZEBY(CURSOR) */
WORKLOAD(ALL)
/* WORKLOAD(HILITE) */
/* WORKLOAD(NONE) */
ORDER(PLANNAME)
EXEC
}¢--- A540769.WK.JCL(DB21LOG) cre=2010-07-15 mod=2010-07-19-14.18.23 A540769 ---
//A540769Q JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=A540769
//*MAIN CLASS=LOG SYSTEM=S21
//LOGP EXEC PGM=DSN1LOGP
//SYSPRINT DD SYSOUT=*
//SYSSUMRY DD SYSOUT=*
//BSDS DD DISP=SHR,DSN=DBAF.DAF2.BSDS01
//SYSIN DD *
LRSNSTART(C645C47BF0E0)
LRSNEND(C647065966E0)
DBID(7890) SUMMARY(ONLY)
}¢--- A540769.WK.JCL(DB21U004) cre=2011-01-17 mod=2011-01-17-14.11.03 A540769 ---
//A540769R JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=A540769
//*MAIN CLASS=LOG SYSTEM=S21
//COMP0 EXEC PGM=DSN1COMP
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DBTF.DSNDBD.NI02A1T.A250A.I0001.A027
//SYSIN DD *
MEMBER *
}¢--- A540769.WK.JCL(DDLCHECK) cre=2015-07-13 mod=2015-07-13-20.42.49 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//STEPLI EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='%ddlCheck checkA2O t oa1p tQZ*GBGR%'
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//*YSPROC DD DISP=SHR,DSN=DSN.DB2.EXEC
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//SYSTSIN DD DUMMY
//CHECKOUT DD SYSOUT=*,RECFM=FB,LRECL=60
}¢--- A540769.WK.JCL(DEL) cre=2016-08-15 mod=2016-08-15-13.05.35 A540769 -------
//A540769D JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M,
// SCHENV=DB2,CLASS=M1
//*
//WSH EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='%WST'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//*OUT DD DSN=A540769.WK.TEXW(EINS),DISP=SHR
//WSH DD *
$#@
$@. fileList('tss.ska.db2.wshLog')
$| $for i $@¢
call readDsn $i, i.
say $i 'count' i.0
say adrTso "delete '"strip($i)"'"
$!
}¢--- A540769.WK.JCL(DIFF) cre=2015-08-24 mod=2015-08-24-07.56.21 A540769 ------
//A540769X JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030001
//*MAIN CLASS=LOG 00040000
//TSO EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='%diff DBOF.XC01A1P.A517A.P00159.D150824.REC
// XC.XC01A1P.A517A.P00159.SYSREC.FA4NDIUW'
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
}¢--- A540769.WK.JCL(DOD) cre= mod=-. ------------------------------------------
//A540769X JOB (WAK47392,0000,,3653),'TAG-PARSER ',MSGCLASS=T
//*
//*MAIN CLASS=CMNA
//*
//JOBLIB DD DSN=CMN.DIV.P0.A18Q.#002267.LLB,DISP=SHR
//* DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLB,DISP=SHR
//* DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLG,DISP=SHR
//*
//*-------------------------------------------------------------------
//* delete datasets
//*-------------------------------------------------------------------
//E00 EXEC PGM=IEFBR14
//P0 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODPVS.TSTVERS.LLINR000.DDATUMMM.R
//S0 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODSMH.TSTVERS.LLINR000.DDATUMMM.R
//P1 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODPVS.L1230001.TST001
//S1 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODSECM.L1230001.TST001
//P2 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODPVS.L1230002.TST001
//S2 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODSECM.L1230002.TST001
//*-------------------------------------------------------------------
//* DOD TEST
//*-------------------------------------------------------------------
// SET DB2SYS=DBTF
// SET DODPARM=DOD.RZ1.X0.PARM
//P01 EXEC PGM=DO7010,
// PARM='/&DB2SYS,NOTRACE,,5'
//DDPARM DD DSN=&DODPARM(DODCHAP0),DISP=SHR
//DOD000 DD DSN=DOD.GP.POVTV11.LTL11000.D2004300.T1212000.R1,
// DISP=SHR
//DD7000 DD DSN=&&DD7000,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(80,(100,100)),AVGREC=U,
// DCB=(RECFM=FB,LRECL=80)
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDMSG DD SYSOUT=*
//DDUUID DD SYSOUT=*
//DDTRACE DD SYSOUT=*
//
//
//E01 EXEC PGM=DO7010,PARM='TRAP(ON)/,Trace,4,'
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDMSG DD SYSOUT=*
//DDUUID DD SYSOUT=*
//DDTRACE DD SYSOUT=*
//DD7000 DD SYSOUT=*,
// DCB=(RECFM=FBA,LRECL=80)
//DDPARM DD DISP=SHR,DSN=A540769.PAR.PAR(DOD)
//DOD000 DD DISP=SHR,DSN=A540769.PAR.PAR(DOD1F00)
//
//JCLNCC DD DISP=(NEW,CATLG,CATLG),DSN=A540769.TST.JCLNCC
//JCLNCD DD DISP=(NEW,CATLG,DELETE),DSN=A540769.TST.JCLNCD
//JCLNDC DD DISP=(NEW,DELETE,CATLG),DSN=A540769.TST.JCLNDC
//JCLNDD DD DISP=(NEW,DELETE,DELETE),DSN=A540769.TST.JCLNDD
//JCLOCC DD DISP=(OLD,CATLG,CATLG),DSN=A540769.TST.JCLOCC
//JCLOCD DD DISP=(OLD,CATLG,DELETE),DSN=A540769.TST.JCLOCD
//JCLODC DD DISP=(OLD,DELETE,CATLG),DSN=A540769.TST.JCLODC
//JCLODD DD DISP=(OLD,DELETE,DELETE),DSN=A540769.TST.JCLODD
//
//DDMSG DD SYSOUT=*
//DDSRC DD DISP=SHR,DSN=PVST.RZ1.T0.XML.INPUT(&MBR)
//OUTPUT DD DISP=SHR,DSN=PVST.RZ1.T0.XML.OUTPUT(&MBR)
//
//OUTPUT DD DSN=PVT.FT.TST.XMLTEST,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,01),RLSE),
// DCB=(RECFM=VBA,LRECL=32756),
// UNIT=DISK
//
// SET MBR=W2
//E00 EXEC PGM=IEFBR14
//DYNNCC DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.DYNNCC
//DYNNCD DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.DYNNCD
//DYNNDC DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.DYNNDC
//DYNNDD DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.DYNNDD
//JCLNCC DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.JCLNCC
//JCLNCD DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.JCLNCD
//JCLNDC DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.JCLNDC
//JCLNDD DD DISP=(MOD,DELETE,DELETE),DSN=A540769.TST.JCLNDD
//JCLOCC DD DISP=(MOD,CATLG),DSN=A540769.TST.JCLOCC
//JCLOCD DD DISP=(MOD,CATLG),DSN=A540769.TST.JCLOCD
//JCLODC DD DISP=(MOD,CATLG),DSN=A540769.TST.JCLODC
//JCLODD DD DISP=(MOD,CATLG),DSN=A540769.TST.JCLODD
}¢--- A540769.WK.JCL(DODCM) cre= mod=-. ----------------------------------------
//A540769T JOB (WAK47392,0000,,3653),'TAG-PARSER ',MSGCLASS=T
//*
//*MAIN CLASS=PVS
//*
//JOBLIB DD DSN=CMN.DIV.P0.A18Q.#002267.LLB,DISP=SHR
//* DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLB,DISP=SHR
//* DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLG,DISP=SHR
// DD DISP=SHR,DSN=CMN.DIV.P0.A18Q.#002314.LLB 00090001
// DD DISP=SHR,DSN=PCL.U0000.E0.RZ1AKT.PROM.@008.LLB 00100001
// DD DISP=SHR,DSN=PCL.U0000.E0.RZ1AKT.PROM.@008.LLG 00110000
// DD DISP=SHR,DSN=PCL.U0000.S0.RZ1AKT.PROM.@008.LLB 00120000
// DD DISP=SHR,DSN=PCL.U0000.S0.RZ1AKT.PROM.@008.LLG 00130000
// DD DISP=SHR,DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLB 00140000
// DD DISP=SHR,DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLG 00150000
//USEDPROC JCLLIB ORDER=(IOA.U0000.T0.RZ1I.PROCLIB, 00160000
// ID.RZ1.X0.PROC) 00170000
//*
//*-------------------------------------------------------------------
//* delete datasets
//*-------------------------------------------------------------------
//E00 EXEC PGM=IEFBR14
//P0 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODPVS.AA0000.FUENF.SECHS
//S0 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODSECM.AA0000.FUENF.SECHS
//P1 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODPVS.L1230001.TST001
//S1 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODSECM.L1230001.TST001
//P2 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODPVS.L1230002.TST001
//S2 DD DISP=(MOD,DELETE,DELETE),
// DSN=A540769.DODSECM.L1230002.TST001
//*-------------------------------------------------------------------
//* DOD TEST
//*-------------------------------------------------------------------
//S01 EXEC PGM=DO7010,PARM=',trace,'
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDMSG DD SYSOUT=*
//DDLOG DD SYSOUT=*
//DDTRACE DD SYSOUT=*
//*DD7000 DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=80)
//DD7000 DD DSN=&&DD7000,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=(RECFM=FB,LRECL=80),
// SPACE=(80,(100,100)),AVGREC=U
//DDPARM DD DISP=SHR,DSN=A540769.PAR.PAR(DOD)
//DDIN00 DD DISP=SHR,DSN=A540769.PAR.PAR(DOD1F00)
//* 00230000
//S02 EXEC PROC=IDS0011X, 00250011
// KENNUNG='d<', 00260011
// DSNAME=A540769.PAR.PAR 00270011
//E01.DDINST DD DISP=OLD,DSN=&&DD7000 00280011
//E01.DDIN01 DD DISP=SHR,DSN=A540769.PAR.PAR 00280011
//*------------------------------------- 00500000
//*- KONTROLLE - 00510000
//*------------------------------------- 00520000
// IF (S02.PROC#OK.RUN=TRUE) THEN 00530000
//ALLES#IO EXEC PGM=IEFBR14 00540000
// ELSE 00550000
//FAILED EXEC PGM=IEFBR14 00560000
// ENDIF 00570000
//* 00580000
}¢--- A540769.WK.JCL(DODTST) cre= mod=-. ---------------------------------------
//A540769G JOB (CP00,KE50) 00010000
//RM PROC FILE=FILEMISSING 00020000
//RM EXEC PGM=IEFBR14 00030000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=&FILE 00040000
// PEND 00050000
//CP PROC FROM=FROMMISSING,TO=TOMISSING 00060000
//CP EXEC PGM=IEBGENER 00070000
//SYSPRINT DD SYSOUT=* 00080000
//SYSUT1 DD DISP=SHR,DSN=&FROM 00090000
//SYSUT2 DD DISP=(NEW,CATLG,DELETE),DSN=&TO,LIKE=&FROM, 00100000
// MGMTCLAS=S002N000 00110000
// PEND 00120000
//DP PROC FROM=FROMMISSING,TO=TOMISSING 00130000
//*DP1 EXEC PROC=RM,FILE=&TO 00140000
//DP2 EXEC PROC=CP,FROM=&FROM,TO=&TO 00150000
// PEND 00160000
//DO PROC T=TT,F=FFF 00170000
//DO1 EXEC PROC=DP, 00180000
// FROM=DOD.RZ1.T0.TEST.T&T..POVTV&T..LTL&T&F, 00190000
// TO=DOD.GP.POVTV&T..LTL&T&F..D2004300.T1212000.R1 00200000
//* DOD.GP.POVTV01.LTL01000.D2004299.T1257011.R1 00210000
//* FROM=DOD.RZ1.T0.TEST&T..DOD.GP.POVNABC.LLL0&F..DTX 00220000
//* TO=A540769.ZZZ.TEST&T..FILE&F..SUF 00230000
//* FROM=DOD.RZ1.T0.TEST.T&T..POVTV&T..LTL&T&F, 00240000
//* TO=A540769.ZZZ.TEST&T..FILE&F..SUF 00250000
// PEND 00260000
//*T1F0 EXEC PROC=DO,T=01,F=000 00270000
//*T1F1 EXEC PROC=DO,T=01,F=001 00280000
//*T2F0 EXEC PROC=DO,T=02,F=000 00290000
//*T2F1 EXEC PROC=DO,T=02,F=001 00300000
//T3F0 EXEC PROC=DO,T=03,F=000 00310000
//T3F1 EXEC PROC=DO,T=03,F=001 00320000
//T4F0 EXEC PROC=DO,T=04,F=000 00330000
//T4F1 EXEC PROC=DO,T=04,F=001 00340000
//T5F0 EXEC PROC=DO,T=05,F=000 00350000
//T5F1 EXEC PROC=DO,T=05,F=001 00360000
//T6F0 EXEC PROC=DO,T=06,F=000 00370000
//T6F1 EXEC PROC=DO,T=06,F=001 00380000
//T7F0 EXEC PROC=DO,T=07,F=000 00390000
//T7F1 EXEC PROC=DO,T=07,F=001 00400000
//T8F0 EXEC PROC=DO,T=08,F=000 00410000
//T8F1 EXEC PROC=DO,T=08,F=001 00420000
//T9F0 EXEC PROC=DO,T=09,F=000 00430000
//T9F1 EXEC PROC=DO,T=09,F=001 00440000
}¢--- A540769.WK.JCL(DOMBRPT2) cre=2014-10-14 mod=2015-04-08-13.40.04 A540769 ---
//A540769D JOB (CP00,KE50),'DB2 REO', 00001008
// MSGCLASS=T,TIME=1440, 00002001
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00003001
//*MAIN CLASS=LOG 00004001
//* ********************************************************************00040000
//* 00050000
//* Issue: ISS04363061 00060000
//* =========== 00070000
//* 00080000
//* Descr.: --> LOCKEXCL bringt 44 statt 2 00090000
//* 00100000
//* Created: 140923 gma 00110000
//* 00120000
//* ********************************************************************00130000
//VAR1 SET HLQ=MVIEW.PLEXD.P0 00140000
//* 00150000
//*Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z00160000
//* 00170000
//* DOMBRPT1 -- GENERATE BATCH REPORTS 00180000
//* 00190000
//* DOMBRPT1 PRODUCES BATCH REPORTS FROM SMF, GTF, OR THE SYSTEM AND 00200000
//* SQL PERFORMANCE PRODUCT TRACE DATA. 00210000
//* 00220000
//* THE SYNTAX OF THE REPORT CONTROL STATEMENTS AND THE USE OF 00230000
//* OPTIONAL DD STATEMENTS ARE DOCUMENTED IN THE PRODUCT REFERENCE 00240000
//* MANUAL. IN ADDITION, AN OVERVIEW OF THE SYNTAX OF THE REPORT 00250000
//* CONTROL STATEMENTS FOLLOWS THE SYSIN DD STATEMENT, ALTHOUGH SOME 00260000
//* ARE NOT VALID FOR ALL SYSTEM AND SQL PERFORMANCE PRODUCT(S). PLEASE00270000
//* CONSULT THE APPROPRIATE PRODUCT REFERENCE MANUAL/USER GUIDE. 00280000
//* 00290000
//* ***NOTE - THE DATE EXAMPLES ARE IN USA FORMAT. MODIFY MM/DD/YY 00300000
//* TO MATCH THE FORMAT SPECIFIED IN THE GLOBAL OPTIONS PANEL 00310000
//* INSTALLATION. 00320000
//* 00330000
//* THIS JOB CAN OPTIONALLY PRODUCE DB2 LOAD-FORMAT DATA FROM TRACE 00340000
//* DATA. 00350000
//* 00360000
//*----> CHANGE: ?TRACEDSN? = INPUT NGL Archive DSN o/p 00370000
//* 00380000
//* 00390000
//* NOTE: THE ?HILVL? VARIABLE IS FOR NON-VSAM DATA SETS 00400000
//* THE ?HILV2? VARIABLE IS FOR VSAM DATA SETS 00410000
//* 00420000
//* NOTE: IF THE RTE OPTION WAS CHOSEN, THEN CHANGE THE HLQ TO THE 00430000
//* RUNTIME VSAM HLQ FOR THE FOLLOWING DATA SETS: 00440000
//* PROFILE,SECURITY,HELP,COPYDIR. 00450000
//* 00460000
//*Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z00470000
//* 00480000
//REPORTS EXEC PGM=DOMBRPT1,REGION=2048K 00490000
//* 00500000
//STEPLIB DD DISP=SHR,DSN=&HLQ..BMCLINK 00510000
// DD DISP=SHR,DSN=&HLQ..BMCPSWD 00520000
//* 00530000
//SYSPRINT DD SYSOUT=* ** MESSAGES ** 00540000
//DOMCUST DD DISP=SHR,DSN=&HLQ..BMCCSTM 00550002
//DOMPROF DD DISP=SHR,DSN=&HLQ..PROFILE 00560000
//DOMAUTH DD DISP=SHR,DSN=&HLQ..SECURITY 00570000
//DOMBARC DD DISP=SHR,DSN=&HLQ..COPYDIR 00580000
//DOMHELP DD DISP=SHR,DSN=&HLQ..HELP 00590000
//REPORT DD SYSOUT=* ** REPORT OUTPUT ** 00600000
//* 00610000
//* IF DATASOURCE (COLLECTOR (...)) IS SPECIFIED 00620000
//* THEN THE TRACEIN DD STATEMENT IS NOT REQUIRED 00630000
//* IF DATASOURCE (ARCHIVE_DD (DDDDDDDD)) IS SPECIFIED 00640000
//* AND DDDDDDDD IS NOT TRACEIN, A DD STATEMENT 00650000
//* FOR DDDDDDDD MUST BE PRESENT 00660000
//* 00670000
//TRACEIN DD DISP=SHR,DSN=SMF.RR2.P0.DB2.INTVL.R21R.D15093.T210437 00671008
// DD DISP=SHR,DSN=SMF.RR2.P0.DB2.INTVL.R21R.D15093.T220100 00672008
//*SACEIN DD DISP=SHR,DSN=SMF.RR2.P0.DB2.INTVL.R21R.D15092.T040105 00690108
//* 00691007
//* TO IMPROVE EXECUTION TIME, TRACEWRK MAY BE DD DUMMY IF THE DATA 00700000
//* IN TRACEIN IS PRE-SORTED. PLEASE REFER THE BATCH REPORTING 00710000
//* CHAPTER IN THE PRODUCT REFERENCE MANUAL/USER GUIDE FOR MORE 00720000
//* DETAILS 00730000
//* 00740000
//TRACEWRK DD DISP=(NEW,PASS), ** STAGED SORT OUTPUT. IF ** 00750000
// UNIT=SYSDA, ** DD DUMMY, IT IS ASSUMED ** 00760000
// SPACE=(CYL,(250,1500),RLSE), ** THAT INPUT DATA IS PRE- **00770008
// DCB=(RECFM=VBS,LRECL=32760,BLKSIZE=8192) ** SORTED ** 00780000
//* 00790000
//* SORT WORK FILES - ADJUST SIZE RELATIVE TO THE AMOUNT OF INPUT DATA 00800000
//* 00810000
//SORTWK01 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00820000
//SORTWK02 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00830000
//SORTWK03 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00840000
//SORTWK04 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00850000
//SORTWK05 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00860000
//SORTWK06 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00870000
//SORTWK07 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00880000
//SORTWK08 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00890000
//SORTWK09 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00900000
//SORTWK10 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00910000
//SORTWK11 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00920000
//SORTWK12 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00930000
//SORTWK13 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00940000
//SORTWK14 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00950000
//SORTWK15 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00960000
//* 00970000
//SYSOUT DD SYSOUT=* ** SORT MESSAGES ** 00980000
//* 00990000
//* OPTIONAL DDNAME SRCTRACE TO GET DIAGNOSTIC INFORMATION ABOUT 01000000
//* INPUT DATA 01010000
//* 01020000
//*SRCTRACE DD SYSOUT=* 01030000
//* 01040000
//* OPTIONAL DDNAMES FOR VIRTUAL FILES TO OVERRIDE INSTALLATION 01050000
//* AND USER OPTIONS. ADJUST R0001VFL (SELECT FILE) BASED ON 01060000
//* NUMBER OF INPUT RECORDS, R0001VFG (GROUP FILE) BASED ON 01070000
//* NUMBER OF INPUT RECORDS AND DEGREE OF RECORD REDUCTION. 01080000
//* 01090000
//R0001VFL DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 01100000
//R0001VFG DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 01110000
//* 01120000
//SYSIN DD * 01130000
DATASOURCE (ARCHIVE_DD(TRACEIN) ) 01140000
QUALIFIER ( - -- PACKAGE(YVV3240) - 01140108
DB2(DOF1) - 01140208
PLAN (FI5070) ) 01140308
REPORT (NAME (BACCPKSR REPORT_DD(BACCPKSR), - * Acc Pkg sum 01141002
BACCTDR REPORT_DD(BACCTDR) , - * Acc Sum long 01142008
BACCTLT REPORT_DD(BACCTLT) , - * Acc Det Trc long 01143002
BACCTSR REPORT_DD(BACCTSR) , - * Acc Sum shrt 01144008
BACCTST REPORT_DD(BACCTST) , - * Acc Det Trc shrt 01145008
BTHACDTL REPORT_DD(BTHACDTL), - * Thd Acc long 01146008
BACCPKSR REPORT_DD(BACCPKSR), - * Acc Pkg Sum 01147008
BTHDASUM REPORT_DD(BTHDASUM), - * Thd Sum/Int 01148008
BTHDADTL REPORT_DD(BTHDADTL) - * Thd Det/Auth 01149008
) ) 01149102
// 01149302
QUALIFIER (DB2 (DOF7) ) 01149406
QUALIFIER (PLAN (MF7800) ) 01149506
--INTERVAL (START (01/24/14,17:30:00) - 01150000
-- END (01/24/14,17:31:00) ) 01160000
--QUALIFIER (CORRID (Y4PRDIVE) ) 01170000
--QUALIFIER (PLAN (WB0870) ) 01180005
--QUALIFIER (AUTH (S100447) ) 01190000
REPORT (NAME (BLKSUMSU REPORT_DD(BLKSUMSU), - 01200000
BLKSUMLO REPORT_DD(BLKSUMLO), - 01210000
BLKSUMDT REPORT_DD(BLKSUMDT), - 01220000
BLKTRCSU REPORT_DD(BLKTRCSU), - 01230000
BLKTRCDT REPORT_DD(BLKTRCDT) - 01240000
) - 01250000
) 01260000
// 01270000
REPORT (NAME (BIOSUM REPORT_DD(BIOSUM) , - 01390000
BIOSUMBP REPORT_DD(BIOSUMBP), - 01400000
BIOSUMED REPORT_DD(BIOSUMED), - 01410000
BIOSUMLG REPORT_DD(BIOSUMLG), - 01420000
BIOSUMAR REPORT_DD(BIOSUMAR), - 01430000
BIOSUMBS REPORT_DD(BIOSUMBS), - 01440000
BIOSUMXI REPORT_DD(BIOSUMXI) - 01450000
) - 01460000
) 01470000
// 01480000
REPORT (NAME (BSQSUMP REPORT_DD(BSQSUMP) , - 01490000
BSQSUMPW REPORT_DD(BSQSUMPW) , - 01500000
BSQTRCP REPORT_DD(BSQTRCP) , - 01510000
BSQTRCPW REPORT_DD(BSQTRCPW) , - 01520000
BSQTRCS REPORT_DD(BSQTRCS) , - 01530000
BSQTRCSW REPORT_DD(BSQTRCSW) , - 01540000
BSQTRCT REPORT_DD(BSQTRCT) , - 01550000
BSQTRCTW REPORT_DD(BSQTRCTW) - 01560000
) - 01570000
) 01580000
// 01590000
/* 01600000
// 01610000
//*-------------------------------------------------------------------* 01620000
//* THE FOLLOWING DESCRIBES KEYWORDS THAT MAY APPEAR IN SYSIN 01630000
//* ALTHOUGH SOME KEYWORDS ONLY APPLY TO CERTAIN SYSTEM AND SQL 01640000
//* PERFORMANCE PRODUCT(S). PLEASE CONSULT THE PRODUCT MANUAL FOR A 01650000
//* MORE COMPLETE DISCUSSION OF THEIR USE AND SYNTAX. 01660000
//*-------------------------------------------------------------------* 01670000
//* DATASOURCE ( ARCHIVE_DD(DDDDDDDD) DDNAME OF THE ARCHIVE TRACE 01680000
//* ) DATASET(S) TO RETRIEVE DATA FROM 01690000
//* THE DEFAULT DD IS TRACEIN. 01700000
//* - OR - 01710000
//* DATASOURCE ( COLLECTOR (CCCC) - DATA COLLECTOR TO RETRIEVE DATA 01720000
//* FROM. SPECIFY COLLECTOR() TO 01730000
//* HAVE A DATA COLLECTOR SELECTED 01740000
//* FOR YOU. 01750000
//* MAX_WAIT (MMMM) - NUMBER OF MINUTES TO WAIT FOR 01760000
//* AN AVAILABLE BATCH CONNECTION 01770000
//* TO THE SPECIFIED DATA COLLECTOR 01780000
//* WHEN ALL AVAILABLE BATCH 01790000
//* CONNECTIONS TO THE DATA 01800000
//* COLLECTOR ARE IN USE. THE 01810000
//* DEFAULT IS MAX_WAIT(0). 01820000
//* ) 01830000
//*-------------------------------------------------------------------* 01840000
//* REPORT_DD (DDDDDDDD) - GLOBAL (DEFAULT) REPORT DDNAME 01850000
//*-------------------------------------------------------------------* 01860000
//* INTERVAL( - GLOBAL (DEFAULT) INTERVAL 01870000
//* START(MM/DD/YY,HH:MM:SS) - INTERVAL STARTING DATE/TIME 01880000
//* END(MM/DD/YY,HH:MM:SS) - INTERVAL ENDING DATE/TIME 01890000
//* FOR(DDD,HH:MM:SS) - INTERVAL DURATION (IF END NOT 01900000
//* SPECIFIED 01910000
//* BY(DDD,HH:MM:SS) - SUB-INTERVAL (PERIOD) DURATIONS 01920000
//* ) - END OF INTERVAL KEYWORDS 01930000
//*-------------------------------------------------------------------* 01940000
//* QUALIFIER( - GLOBAL (DEFAULT) QUALIFIERS FOR RESTRICTING 01950000
//* DB2(XXXX) - " BY DB2 SSID NAMED XXXX 01960000
//* ,AUTH( ) - " BY AUTHORIZATION ID 01970000
//* ,PLAN( ) - " BY PLAN 01980000
//* ,DBRM( ) - " BY DBRM/PACKAGE ID 01990000
//* ,CONN( ) - " BY CONNECT-IDS 02000000
//* ,OPER( ) - " BY OPER ID 02010000
//* ,CORR( ) - " BY CORRELATION ID 02020000
//* ,LLOC( ) - " BY LOCAL LOCATION 02030000
//* ,RLOC( ) - " BY REQUESTING LOCATION 02040000
//* ,BP( ) - " BY BUFFER POOL ID 02050000
//* ,DBOB( ) - " BY DATABASE/PAGESET NAME 02060000
//* ,LOCK( ) - " BY LOCKTYPE 02070000
//* ,COLL( ) - " BY COLLECTION ID 02080000
//* ) - END OF QUALIFIER KEYWORDS 02090000
//*-------------------------------------------------------------------* 02100000
//* REPORT( - BATCH REPORTS FROM TRACE RECORDS 02110000
//* NAME(OOOOOOOO.XXXXXXXX - ANY REPORT 02120000
//* WHERE OOOOOOOO IS THE OWNER OF 02130000
//* THE REPORT. THE OWNER IS 02140000
//* OPTIONAL. WHEN OOOOOOO IS NOT 02150000
//* SPECIFIED THE SEARCH ORDER FOR THE 02160000
//* REPORT IS <USERID>.REPORT, 02170000
//* SYSTEM.REPORT, BMCSftwr.REPORT. 02180000
//* REPORT_DD (YYYYYYYY) - DDNAME TO ROUTE REPORT TO 02190000
//* - REPORT_DD IS OPTIONAL, THE 02200000
//* - DD REPORT IS THE DEFAULT DDNAME 02210000
//* ,XXXXXXX - ANY REPORT 02220000
//* REPORT_DD (YYYYYYYY) - DDNAME TO ROUTE REPORT TO 02230000
//* - REPORT_DD IS OPTIONAL, THE 02240000
//* - DD REPORT IS THE DEFAULT DDNAME 02250000
//* ) - END OF REPORT NAMES 02260000
//* SORT( ,A)- SORT BY QUALIFIER/MEASURE/FORMULA 02270000
//* A IS A FOR ASCENDING(DFLT) OR D FOR DESCENDING 02280000
//* M##### - SORT BY MEASURE 02290000
//* F##### - " " FORMULA 02300000
//* DB2 - " " DB2 SSID 02310000
//* AUTH - " " AUTHORIZATION ID 02320000
//* PLAN - " " PLAN 02330000
//* DBRM - " " DBRM/PACKAGE ID 02340000
//* CONN - " " CONNECT-IDS 02350000
//* OPER - " " OPER ID 02360000
//* CORR - " " CORRELATION ID 02370000
//* LLOC - " " LOCAL LOCATION 02380000
//* RLOC - " " REQUESTING LOCATION 02390000
//* BP - " " BUFFER POOL ID 02400000
//* DBOB - " " DATABASE/PAGESET NAME 02410000
//* LOCK - " " LOCKTYPE 02420000
//* COLL - " " COLLECTION ID 02430000
//* EVENT - " " EVENT START TIME 02440000
//* EVENTEND - " " EVENT END TIME 02450000
//* INTV - " " INTERVAL 02460000
//* LUWID - " " LOGICAL UNIT OF WORK ID 02470000
//* OLOC - " " OTHER LOCATION 02480000
//* OAUTH - " " OTHER AUTHID 02490000
//* OCORR - " " OTHER CORRELATION ID 02500000
//* OCONN - " " OTHER CONNECTION ID 02510000
//* OPLAN - " " OTHER PLAN 02520000
//* STMT - " " SQL STATEMENT # 02530000
//* SPCL - " " SPECIAL QUALIFIER 02540000
//* TIME - " " TIME OF RECORD 02550000
//* DB2R - " " DB2 RELEASE 02560000
//* SQLID - " " SQL ID 02570000
//* ACE - " " 02580000
//* XUNIT - " " EXECUTION UNIT 02590000
//* TOKN - " " TOKEN 02600000
//* QUALIFIER( - RESTRICT DATA BY QUALIFIER 02610000
//* DB2(XXXX) - " BY DB2 SSID NAMED XXXX 02620000
//* ,AUTH( ) - " BY AUTHORIZATION ID 02630000
//* ,PLAN( ) - " BY PLAN 02640000
//* ,DBRM( ) - " BY DBRM/PACKAGE ID 02650000
//* ,CONN( ) - " BY CONNECT-IDS 02660000
//* ,OPER( ) - " BY OPER ID 02670000
//* ,CORR( ) - " BY CORRELATION ID 02680000
//* ,LLOC( ) - " BY LOCAL LOCATION 02690000
//* ,RLOC( ) - " BY REQUESTING LOCATION 02700000
//* ,BP( ) - " BY BUFFER POOL ID 02710000
//* ,DBOB( ) - " BY DATABASE/PAGESET NAME 02720000
//* ,LOCK( ) - " BY LOCKTYPE 02730000
//* ,COLL( ) - " BY COLLECTION ID 02740000
//* ) - END OF QUALIFIER KEYWORDS 02750000
//* INTERVAL( - LOCAL INTERVAL DEFINITION 02760000
//* START(MM/DD/YY,HH:MM:SS) - INTERVAL STARTING DATE/TIME 02770000
//* END(MM/DD/YY,HH:MM:SS) - INTERVAL ENDING DATE/TIME 02780000
//* FOR(DDD,HH:MM:SS) - INTERVAL DURATION IF END NOT 02790000
//* SPECIFIED 02800000
//* BY(DDD,HH:MM:SS) - SUB-INTERVAL (PERIOD) DURATIONS 02810000
//* ) - END OF LOCAL INTERVAL KEYWORDS 02820000
//* SORT2... - FOR SECONDARY SORT KEY; SAME SYNTAX AS SORT 02830000
//* DB2LOAD - TO GENERATE LOADABLE DATA TO DD DB2LOAD 02840000
//* EXPAND - TO EXPAND AND PRINT ALL GROUPS IN THE REPORT 02850000
//* RECTRACE - TO TRACE ALL FIELDS IN ALL RECORDS FOR RPT 02860000
//* LINESPP(N) - TO SPECIFY THE NUMBER OF LINES TO PRINT 02870000
//* ON EACH REPORT PAGE 02880000
//* OUTLIM(N) - TO LIMIT THE NUMBER OF GROUP REPETITIONS 02890000
//* DISPLAYED ON THE REPORT 02900000
//* ) END OF REPORT KEYWORDS 02910000
//*-------------------------------------------------------------------* 02920000
//*================================================================== 02930000
//* EXAMPLES 02940000
//*================================================================== 02950000
//* 1. TO SET A GLOBAL DEFAULT INTERVAL FOR ALL REPORTS WHICH WILL 02960000
//* PROCESS DATA GENERATED ON 12/14/90 BETWEEN 6:00 AND 12:00, USE: 02970000
//* 02980000
//* INTERVAL(START(02/14/90,6:00:00) FOR(6:00:00)) 02990000
//*-------------------------------------------------------------------* 03000000
//* 2. TO SET A GLOBAL DEFAULT QUALIFIER FOR ALL REPORTS WHICH HAVE 03010000
//* DB2 CORRELATION INFORMATION GENERATED FROM TSO CONNECTIONS BY 03020000
//* USERS WHOSE TSO USER ID IS "TSR", USE: 03030000
//* 03040000
//* QUALIFIER(CONN(TSO*) AUTH(TSR)) 03050000
//*-------------------------------------------------------------------* 03060000
//* 3. TO GENERATE A REPORT OF SQL SUMMARY AND DETAILS FOR 03070000
//* ACCOUNTING RECORDS TO BE SUB-TOTALED AND SORTED BY PLAN, USE: 03080000
//* 03090000
//* REPORT(NAME(XXXX,XXXX) SORT(PLAN)) 03100000
//*-------------------------------------------------------------------* 03110000
//* 4. TO GENERATE A REPORT OF SQL SUMMARY AND DETAILS FOR 03120000
//* ACCOUNTING RECORDS PRODUCED STARTING 2/14/90 AT 6:00 AND ENDING 03130000
//* 2/15/90 WITH REPORTS EVERY 12 HOURS TO BE SUB-TOTALED AND SORTED 03140000
//* BY CONNECTION ID, USE: 03150000
//* 03160000
//* REPORT(NAME(XXXX,XXXX) - 03170000
//* SORT(CONN) - 03180000
//* INTERVAL(START(02/14/90,6:00:00) - 03190000
//* FOR(1,12:00:00) BY(12:00:00))) 03200000
//*-------------------------------------------------------------------* 03210000
//* 5. TO GENERATE DB2 LOAD-FORMAT DATA FROM STATISTICS AND ACCOUNTING 03220000
//* TRACE RECORDS GENERATED TODAY, WITH ADDITIONAL SUMMARY DATA 03230000
//* GENERATED FOR ACCOUNTING RECORDS SORTED CORRELATION ID, BUT 03240000
//* EXCLUDING ACCOUNTING RECORDS WHICH RAN WITH PLAN NAMES STARTING 03250000
//* WITH "DSN", USE: 03260000
//* 03270000
//* REPORT(NAME(XXXX,XXXX) - 03280000
//* INTERVAL(START(00:00:00) - 03290000
//* END(23:59:59)) - 03300000
//* SORT(CORR) - 03310000
//* QUALIFIER(EXCLUDE PLAN(DSN*)) - 03320000
//* DB2LOAD) 03330000
//* 03340000
//*-------------------------------------------------------------------* 03350000
//* 6. TO GENERATE TWO REPORTS, ROUTING REPORT1 TO THE DDNAME 03360000
//* MYREPORT AND REPORT2 TO THE DDNAME URREPORT, USE: 03370000
//* 03380000
//* REPORT(NAME(REPORT1 REPORT_DD(MYREPORT), - 03390000
//* REPORT2 REPORT_DD(URREPORT))) 03400000
//*-------------------------------------------------------------------* 03410000
//* 7. TO GENERATE FIVE REPORTS 03420000
//* ROUTING REPORT1 TO THE DDNAME DIRT 03430000
//* ROUTING REPORT2 TO THE DDNAME MUD 03440000
//* ROUTING REPORT3 TO THE DDNAME MUD 03450000
//* ROUTING REPORT4 TO THE DDNAME CLAY 03460000
//* ROUTING REPORT5 TO THE DDNAME SAND 03470000
//* USE: 03480000
//* 03490000
//* REPORT_DD(DIRT) 03500000
//* REPORT(NAME(REPORT1)) 03510000
//* REPORT_DD(MUD) 03520000
//* REPORT(NAME(REPORT2)) 03530000
//* REPORT(NAME(REPORT3)) 03540000
//* REPORT_DD(CLAY) 03550000
//* REPORT(NAME(REPORT4, REPORT5 REPORT_DD(SAND))) 03560000
//*-------------------------------------------------------------------* 03570000
//* 8. TO GENERATE A REPORT FROM THE ARCHIVE TRACE DATASET ALLOCATED 03580000
//* TO THE DD ARCHDD USE: 03590000
//* 03600000
//* DATASOURCE (ARCHIVE_DD(ARCHDD)) 03610000
//* REPORT(NAME(REPORT1)) 03620000
//*-------------------------------------------------------------------* 03630000
//* 9. TO GENERATE A REPORT FROM DATA COLLECTOR DOM1'S ACTIVE TRACE 03640000
//* DATA SETS USE: 03650000
//* 03660000
//* DATASOURCE (COLLECTOR(DOM1)) 03670000
//* REPORT(NAME(REPORT1)) 03680000
//*-------------------------------------------------------------------* 03690000
//* 10. GENERATE THE REPORT DBA.SYSMON USE: 03700000
//* 03710000
//* REPORT(NAME(DBA.SYSMON)) 03720000
//*------------------------- END OF: #DOMRPRT ----------------------- 03730000
}¢--- A540769.WK.JCL(DOMBRPT3) cre=2014-11-18 mod=2015-03-11-11.48.22 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00001000
// MSGCLASS=T,TIME=1440, 00002000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00003000
//*MAIN CLASS=LOG 00004000
//* ********************************************************************00005000
//* 00006000
//* Issue: ISS04363061 00007000
//* =========== 00008000
//* 00009000
//* Descr.: --> LOCKEXCL bringt 44 statt 2 00010000
//* 00020000
//* Created: 140923 gma 00030000
//* 00040000
//* ********************************************************************00050000
//VAR1 SET HLQ=MVIEW.PLEXD.P0 00060000
//* 00070000
//*Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z00080000
//* 00090000
//* DOMBRPT1 -- GENERATE BATCH REPORTS 00100000
//* 00110000
//* DOMBRPT1 PRODUCES BATCH REPORTS FROM SMF, GTF, OR THE SYSTEM AND 00120000
//* SQL PERFORMANCE PRODUCT TRACE DATA. 00130000
//* 00140000
//* THE SYNTAX OF THE REPORT CONTROL STATEMENTS AND THE USE OF 00150000
//* OPTIONAL DD STATEMENTS ARE DOCUMENTED IN THE PRODUCT REFERENCE 00160000
//* MANUAL. IN ADDITION, AN OVERVIEW OF THE SYNTAX OF THE REPORT 00170000
//* CONTROL STATEMENTS FOLLOWS THE SYSIN DD STATEMENT, ALTHOUGH SOME 00180000
//* ARE NOT VALID FOR ALL SYSTEM AND SQL PERFORMANCE PRODUCT(S). PLEASE00190000
//* CONSULT THE APPROPRIATE PRODUCT REFERENCE MANUAL/USER GUIDE. 00200000
//* 00210000
//* ***NOTE - THE DATE EXAMPLES ARE IN USA FORMAT. MODIFY MM/DD/YY 00220000
//* TO MATCH THE FORMAT SPECIFIED IN THE GLOBAL OPTIONS PANEL 00230000
//* INSTALLATION. 00240000
//* 00250000
//* THIS JOB CAN OPTIONALLY PRODUCE DB2 LOAD-FORMAT DATA FROM TRACE 00260000
//* DATA. 00270000
//* 00280000
//*----> CHANGE: ?TRACEDSN? = INPUT NGL Archive DSN o/p 00290000
//* 00300000
//* 00310000
//* NOTE: THE ?HILVL? VARIABLE IS FOR NON-VSAM DATA SETS 00320000
//* THE ?HILV2? VARIABLE IS FOR VSAM DATA SETS 00330000
//* 00340000
//* NOTE: IF THE RTE OPTION WAS CHOSEN, THEN CHANGE THE HLQ TO THE 00350000
//* RUNTIME VSAM HLQ FOR THE FOLLOWING DATA SETS: 00360000
//* PROFILE,SECURITY,HELP,COPYDIR. 00370000
//* 00380000
//*Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z/Z00390000
//* 00400000
//REPORTS EXEC PGM=DOMBRPT1,REGION=2048K 00410000
//* 00420000
//STEPLIB DD DISP=SHR,DSN=&HLQ..BMCLINK 00430000
// DD DISP=SHR,DSN=&HLQ..BMCPSWD 00440000
//* 00450000
//SYSPRINT DD SYSOUT=* ** MESSAGES ** 00460000
//DOMCUST DD DISP=SHR,DSN=&HLQ..BMCCSTM 00470000
//DOMPROF DD DISP=SHR,DSN=&HLQ..PROFILE 00480000
//DOMAUTH DD DISP=SHR,DSN=&HLQ..SECURITY 00490000
//DOMBARC DD DISP=SHR,DSN=&HLQ..COPYDIR 00500000
//DOMHELP DD DISP=SHR,DSN=&HLQ..HELP 00510000
//REPORT DD SYSOUT=* ** REPORT OUTPUT ** 00520000
//* 00530000
//* IF DATASOURCE (COLLECTOR (...)) IS SPECIFIED 00540000
//* THEN THE TRACEIN DD STATEMENT IS NOT REQUIRED 00550000
//* IF DATASOURCE (ARCHIVE_DD (DDDDDDDD)) IS SPECIFIED 00560000
//* AND DDDDDDDD IS NOT TRACEIN, A DD STATEMENT 00570000
//* FOR DDDDDDDD MUST BE PRESENT 00580000
//* 00590000
//TRACEIN DD DISP=SHR,DSN=SMF.RZ2.P0.DB2.INTVL.S28B.D15067.T160100 00612704
//* 00630000
//* TO IMPROVE EXECUTION TIME, TRACEWRK MAY BE DD DUMMY IF THE DATA 00640000
//* IN TRACEIN IS PRE-SORTED. PLEASE REFER THE BATCH REPORTING 00650000
//* CHAPTER IN THE PRODUCT REFERENCE MANUAL/USER GUIDE FOR MORE 00660000
//* DETAILS 00670000
//* 00680000
//TRACEWRK DD DISP=(NEW,PASS), ** STAGED SORT OUTPUT. IF ** 00690000
// UNIT=SYSDA, ** DD DUMMY, IT IS ASSUMED ** 00700000
// SPACE=(CYL,(25,50),RLSE), ** THAT INPUT DATA IS PRE- ** 00710000
// DCB=(RECFM=VBS,LRECL=32760,BLKSIZE=8192) ** SORTED ** 00720000
//* 00730000
//* SORT WORK FILES - ADJUST SIZE RELATIVE TO THE AMOUNT OF INPUT DATA 00740000
//* 00750000
//SORTWK01 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00760000
//SORTWK02 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00770000
//SORTWK03 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00780000
//SORTWK04 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00790000
//SORTWK05 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00800000
//SORTWK06 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00810000
//SORTWK07 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00820000
//SORTWK08 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00830000
//SORTWK09 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00840000
//SORTWK10 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00850000
//SORTWK11 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00860000
//SORTWK12 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00870000
//SORTWK13 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00880000
//SORTWK14 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00890000
//SORTWK15 DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 00900000
//* 00910000
//SYSOUT DD SYSOUT=* ** SORT MESSAGES ** 00920000
//* 00930000
//* OPTIONAL DDNAME SRCTRACE TO GET DIAGNOSTIC INFORMATION ABOUT 00940000
//* INPUT DATA 00950000
//* 00960000
//*SRCTRACE DD SYSOUT=* 00970000
//* 00980000
//* OPTIONAL DDNAMES FOR VIRTUAL FILES TO OVERRIDE INSTALLATION 00990000
//* AND USER OPTIONS. ADJUST R0001VFL (SELECT FILE) BASED ON 01000000
//* NUMBER OF INPUT RECORDS, R0001VFG (GROUP FILE) BASED ON 01010000
//* NUMBER OF INPUT RECORDS AND DEGREE OF RECORD REDUCTION. 01020000
//* 01030000
//R0001VFL DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 01040000
//R0001VFG DD DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(CYL,(25,500),RLSE) 01050000
//* 01060000
//SYSIN DD * 01070000
DATASOURCE (ARCHIVE_DD(TRACEIN) ) 01080000
QUALIFIER (PLAN (MF7800)) 01081002
REPORT (NAME (BACCPKSR REPORT_DD(BACCPKSR), - * Acc Pkg sum 01090000
BACCTDR REPORT_DD(BACCTDR) , - * Acc Sum long 01100000
BACCTLT REPORT_DD(BACCTLT) , - * Acc Det Trc long 01110000
BACCTSR REPORT_DD(BACCTSR) , - * Acc Sum shrt 01120000
BACCTST REPORT_DD(BACCTST) , - * Acc Det Trc shrt 01130000
BTHACDTL REPORT_DD(BTHACDTL), - * Thd Acc long 01140000
BACCPKSR REPORT_DD(BACCPKSR), - * Acc Pkg Sum 01141000
BTHDASUM REPORT_DD(BTHDASUM), - * Thd Sum/Int 01142000
BTHDADTL REPORT_DD(BTHDADTL), - * Thd Det/Auth 01143000
) ) 01144000
// 01146000
QUALIFIER (PLAN (MF) ) 01147000
--INTERVAL (START (01/24/14,17:30:00) - 01148000
-- END (01/24/14,17:31:00) ) 01149000
--QUALIFIER (CORRID (Y4PRDIVE) ) 01150000
QUALIFIER (PLAN (WB0870) ) 01160000
--QUALIFIER (AUTH (S100447) ) 01170000
REPORT (NAME (BLKSUMSU REPORT_DD(BLKSUMSU), - 01180000
BLKSUMLO REPORT_DD(BLKSUMLO), - 01190000
BLKSUMDT REPORT_DD(BLKSUMDT), - 01200000
BLKTRCSU REPORT_DD(BLKTRCSU), - 01210000
BLKTRCDT REPORT_DD(BLKTRCDT) - 01220000
) - 01230000
) 01240000
// 01250000
REPORT (NAME (BIOSUM REPORT_DD(BIOSUM) , - 01260000
BIOSUMBP REPORT_DD(BIOSUMBP), - 01270000
BIOSUMED REPORT_DD(BIOSUMED), - 01280000
BIOSUMLG REPORT_DD(BIOSUMLG), - 01290000
BIOSUMAR REPORT_DD(BIOSUMAR), - 01300000
BIOSUMBS REPORT_DD(BIOSUMBS), - 01310000
BIOSUMXI REPORT_DD(BIOSUMXI) - 01320000
) - 01330000
) 01340000
// 01350000
REPORT (NAME (BSQSUMP REPORT_DD(BSQSUMP) , - 01360000
BSQSUMPW REPORT_DD(BSQSUMPW) , - 01370000
BSQTRCP REPORT_DD(BSQTRCP) , - 01380000
BSQTRCPW REPORT_DD(BSQTRCPW) , - 01390000
BSQTRCS REPORT_DD(BSQTRCS) , - 01400000
BSQTRCSW REPORT_DD(BSQTRCSW) , - 01410000
BSQTRCT REPORT_DD(BSQTRCT) , - 01420000
BSQTRCTW REPORT_DD(BSQTRCTW) - 01430000
) - 01440000
) 01450000
// 01460000
/* 01470000
// 01480000
//*-------------------------------------------------------------------* 01490000
//* THE FOLLOWING DESCRIBES KEYWORDS THAT MAY APPEAR IN SYSIN 01500000
//* ALTHOUGH SOME KEYWORDS ONLY APPLY TO CERTAIN SYSTEM AND SQL 01510000
//* PERFORMANCE PRODUCT(S). PLEASE CONSULT THE PRODUCT MANUAL FOR A 01520000
//* MORE COMPLETE DISCUSSION OF THEIR USE AND SYNTAX. 01530000
//*-------------------------------------------------------------------* 01540000
//* DATASOURCE ( ARCHIVE_DD(DDDDDDDD) DDNAME OF THE ARCHIVE TRACE 01550000
//* ) DATASET(S) TO RETRIEVE DATA FROM 01560000
//* THE DEFAULT DD IS TRACEIN. 01570000
//* - OR - 01580000
//* DATASOURCE ( COLLECTOR (CCCC) - DATA COLLECTOR TO RETRIEVE DATA 01590000
//* FROM. SPECIFY COLLECTOR() TO 01600000
//* HAVE A DATA COLLECTOR SELECTED 01610000
//* FOR YOU. 01620000
//* MAX_WAIT (MMMM) - NUMBER OF MINUTES TO WAIT FOR 01630000
//* AN AVAILABLE BATCH CONNECTION 01640000
//* TO THE SPECIFIED DATA COLLECTOR 01650000
//* WHEN ALL AVAILABLE BATCH 01660000
//* CONNECTIONS TO THE DATA 01670000
//* COLLECTOR ARE IN USE. THE 01680000
//* DEFAULT IS MAX_WAIT(0). 01690000
//* ) 01700000
//*-------------------------------------------------------------------* 01710000
//* REPORT_DD (DDDDDDDD) - GLOBAL (DEFAULT) REPORT DDNAME 01720000
//*-------------------------------------------------------------------* 01730000
//* INTERVAL( - GLOBAL (DEFAULT) INTERVAL 01740000
//* START(MM/DD/YY,HH:MM:SS) - INTERVAL STARTING DATE/TIME 01750000
//* END(MM/DD/YY,HH:MM:SS) - INTERVAL ENDING DATE/TIME 01760000
//* FOR(DDD,HH:MM:SS) - INTERVAL DURATION (IF END NOT 01770000
//* SPECIFIED 01780000
//* BY(DDD,HH:MM:SS) - SUB-INTERVAL (PERIOD) DURATIONS 01790000
//* ) - END OF INTERVAL KEYWORDS 01800000
//*-------------------------------------------------------------------* 01810000
//* QUALIFIER( - GLOBAL (DEFAULT) QUALIFIERS FOR RESTRICTING 01820000
//* DB2(XXXX) - " BY DB2 SSID NAMED XXXX 01830000
//* ,AUTH( ) - " BY AUTHORIZATION ID 01840000
//* ,PLAN( ) - " BY PLAN 01850000
//* ,DBRM( ) - " BY DBRM/PACKAGE ID 01860000
//* ,CONN( ) - " BY CONNECT-IDS 01870000
//* ,OPER( ) - " BY OPER ID 01880000
//* ,CORR( ) - " BY CORRELATION ID 01890000
//* ,LLOC( ) - " BY LOCAL LOCATION 01900000
//* ,RLOC( ) - " BY REQUESTING LOCATION 01910000
//* ,BP( ) - " BY BUFFER POOL ID 01920000
//* ,DBOB( ) - " BY DATABASE/PAGESET NAME 01930000
//* ,LOCK( ) - " BY LOCKTYPE 01940000
//* ,COLL( ) - " BY COLLECTION ID 01950000
//* ) - END OF QUALIFIER KEYWORDS 01960000
//*-------------------------------------------------------------------* 01970000
//* REPORT( - BATCH REPORTS FROM TRACE RECORDS 01980000
//* NAME(OOOOOOOO.XXXXXXXX - ANY REPORT 01990000
//* WHERE OOOOOOOO IS THE OWNER OF 02000000
//* THE REPORT. THE OWNER IS 02010000
//* OPTIONAL. WHEN OOOOOOO IS NOT 02020000
//* SPECIFIED THE SEARCH ORDER FOR THE 02030000
//* REPORT IS <USERID>.REPORT, 02040000
//* SYSTEM.REPORT, BMCSftwr.REPORT. 02050000
//* REPORT_DD (YYYYYYYY) - DDNAME TO ROUTE REPORT TO 02060000
//* - REPORT_DD IS OPTIONAL, THE 02070000
//* - DD REPORT IS THE DEFAULT DDNAME 02080000
//* ,XXXXXXX - ANY REPORT 02090000
//* REPORT_DD (YYYYYYYY) - DDNAME TO ROUTE REPORT TO 02100000
//* - REPORT_DD IS OPTIONAL, THE 02110000
//* - DD REPORT IS THE DEFAULT DDNAME 02120000
//* ) - END OF REPORT NAMES 02130000
//* SORT( ,A)- SORT BY QUALIFIER/MEASURE/FORMULA 02140000
//* A IS A FOR ASCENDING(DFLT) OR D FOR DESCENDING 02150000
//* M##### - SORT BY MEASURE 02160000
//* F##### - " " FORMULA 02170000
//* DB2 - " " DB2 SSID 02180000
//* AUTH - " " AUTHORIZATION ID 02190000
//* PLAN - " " PLAN 02200000
//* DBRM - " " DBRM/PACKAGE ID 02210000
//* CONN - " " CONNECT-IDS 02220000
//* OPER - " " OPER ID 02230000
//* CORR - " " CORRELATION ID 02240000
//* LLOC - " " LOCAL LOCATION 02250000
//* RLOC - " " REQUESTING LOCATION 02260000
//* BP - " " BUFFER POOL ID 02270000
//* DBOB - " " DATABASE/PAGESET NAME 02280000
//* LOCK - " " LOCKTYPE 02290000
//* COLL - " " COLLECTION ID 02300000
//* EVENT - " " EVENT START TIME 02310000
//* EVENTEND - " " EVENT END TIME 02320000
//* INTV - " " INTERVAL 02330000
//* LUWID - " " LOGICAL UNIT OF WORK ID 02340000
//* OLOC - " " OTHER LOCATION 02350000
//* OAUTH - " " OTHER AUTHID 02360000
//* OCORR - " " OTHER CORRELATION ID 02370000
//* OCONN - " " OTHER CONNECTION ID 02380000
//* OPLAN - " " OTHER PLAN 02390000
//* STMT - " " SQL STATEMENT # 02400000
//* SPCL - " " SPECIAL QUALIFIER 02410000
//* TIME - " " TIME OF RECORD 02420000
//* DB2R - " " DB2 RELEASE 02430000
//* SQLID - " " SQL ID 02440000
//* ACE - " " 02450000
//* XUNIT - " " EXECUTION UNIT 02460000
//* TOKN - " " TOKEN 02470000
//* QUALIFIER( - RESTRICT DATA BY QUALIFIER 02480000
//* DB2(XXXX) - " BY DB2 SSID NAMED XXXX 02490000
//* ,AUTH( ) - " BY AUTHORIZATION ID 02500000
//* ,PLAN( ) - " BY PLAN 02510000
//* ,DBRM( ) - " BY DBRM/PACKAGE ID 02520000
//* ,CONN( ) - " BY CONNECT-IDS 02530000
//* ,OPER( ) - " BY OPER ID 02540000
//* ,CORR( ) - " BY CORRELATION ID 02550000
//* ,LLOC( ) - " BY LOCAL LOCATION 02560000
//* ,RLOC( ) - " BY REQUESTING LOCATION 02570000
//* ,BP( ) - " BY BUFFER POOL ID 02580000
//* ,DBOB( ) - " BY DATABASE/PAGESET NAME 02590000
//* ,LOCK( ) - " BY LOCKTYPE 02600000
//* ,COLL( ) - " BY COLLECTION ID 02610000
//* ) - END OF QUALIFIER KEYWORDS 02620000
//* INTERVAL( - LOCAL INTERVAL DEFINITION 02630000
//* START(MM/DD/YY,HH:MM:SS) - INTERVAL STARTING DATE/TIME 02640000
//* END(MM/DD/YY,HH:MM:SS) - INTERVAL ENDING DATE/TIME 02650000
//* FOR(DDD,HH:MM:SS) - INTERVAL DURATION IF END NOT 02660000
//* SPECIFIED 02670000
//* BY(DDD,HH:MM:SS) - SUB-INTERVAL (PERIOD) DURATIONS 02680000
//* ) - END OF LOCAL INTERVAL KEYWORDS 02690000
//* SORT2... - FOR SECONDARY SORT KEY; SAME SYNTAX AS SORT 02700000
//* DB2LOAD - TO GENERATE LOADABLE DATA TO DD DB2LOAD 02710000
//* EXPAND - TO EXPAND AND PRINT ALL GROUPS IN THE REPORT 02720000
//* RECTRACE - TO TRACE ALL FIELDS IN ALL RECORDS FOR RPT 02730000
//* LINESPP(N) - TO SPECIFY THE NUMBER OF LINES TO PRINT 02740000
//* ON EACH REPORT PAGE 02750000
//* OUTLIM(N) - TO LIMIT THE NUMBER OF GROUP REPETITIONS 02760000
//* DISPLAYED ON THE REPORT 02770000
//* ) END OF REPORT KEYWORDS 02780000
//*-------------------------------------------------------------------* 02790000
//*================================================================== 02800000
//* EXAMPLES 02810000
//*================================================================== 02820000
//* 1. TO SET A GLOBAL DEFAULT INTERVAL FOR ALL REPORTS WHICH WILL 02830000
//* PROCESS DATA GENERATED ON 12/14/90 BETWEEN 6:00 AND 12:00, USE: 02840000
//* 02850000
//* INTERVAL(START(02/14/90,6:00:00) FOR(6:00:00)) 02860000
//*-------------------------------------------------------------------* 02870000
//* 2. TO SET A GLOBAL DEFAULT QUALIFIER FOR ALL REPORTS WHICH HAVE 02880000
//* DB2 CORRELATION INFORMATION GENERATED FROM TSO CONNECTIONS BY 02890000
//* USERS WHOSE TSO USER ID IS "TSR", USE: 02900000
//* 02910000
//* QUALIFIER(CONN(TSO*) AUTH(TSR)) 02920000
//*-------------------------------------------------------------------* 02930000
//* 3. TO GENERATE A REPORT OF SQL SUMMARY AND DETAILS FOR 02940000
//* ACCOUNTING RECORDS TO BE SUB-TOTALED AND SORTED BY PLAN, USE: 02950000
//* 02960000
//* REPORT(NAME(XXXX,XXXX) SORT(PLAN)) 02970000
//*-------------------------------------------------------------------* 02980000
//* 4. TO GENERATE A REPORT OF SQL SUMMARY AND DETAILS FOR 02990000
//* ACCOUNTING RECORDS PRODUCED STARTING 2/14/90 AT 6:00 AND ENDING 03000000
//* 2/15/90 WITH REPORTS EVERY 12 HOURS TO BE SUB-TOTALED AND SORTED 03010000
//* BY CONNECTION ID, USE: 03020000
//* 03030000
//* REPORT(NAME(XXXX,XXXX) - 03040000
//* SORT(CONN) - 03050000
//* INTERVAL(START(02/14/90,6:00:00) - 03060000
//* FOR(1,12:00:00) BY(12:00:00))) 03070000
//*-------------------------------------------------------------------* 03080000
//* 5. TO GENERATE DB2 LOAD-FORMAT DATA FROM STATISTICS AND ACCOUNTING 03090000
//* TRACE RECORDS GENERATED TODAY, WITH ADDITIONAL SUMMARY DATA 03100000
//* GENERATED FOR ACCOUNTING RECORDS SORTED CORRELATION ID, BUT 03110000
//* EXCLUDING ACCOUNTING RECORDS WHICH RAN WITH PLAN NAMES STARTING 03120000
//* WITH "DSN", USE: 03130000
//* 03140000
//* REPORT(NAME(XXXX,XXXX) - 03150000
//* INTERVAL(START(00:00:00) - 03160000
//* END(23:59:59)) - 03170000
//* SORT(CORR) - 03180000
//* QUALIFIER(EXCLUDE PLAN(DSN*)) - 03190000
//* DB2LOAD) 03200000
//* 03210000
//*-------------------------------------------------------------------* 03220000
//* 6. TO GENERATE TWO REPORTS, ROUTING REPORT1 TO THE DDNAME 03230000
//* MYREPORT AND REPORT2 TO THE DDNAME URREPORT, USE: 03240000
//* 03250000
//* REPORT(NAME(REPORT1 REPORT_DD(MYREPORT), - 03260000
//* REPORT2 REPORT_DD(URREPORT))) 03270000
//*-------------------------------------------------------------------* 03280000
//* 7. TO GENERATE FIVE REPORTS 03290000
//* ROUTING REPORT1 TO THE DDNAME DIRT 03300000
//* ROUTING REPORT2 TO THE DDNAME MUD 03310000
//* ROUTING REPORT3 TO THE DDNAME MUD 03320000
//* ROUTING REPORT4 TO THE DDNAME CLAY 03330000
//* ROUTING REPORT5 TO THE DDNAME SAND 03340000
//* USE: 03350000
//* 03360000
//* REPORT_DD(DIRT) 03370000
//* REPORT(NAME(REPORT1)) 03380000
//* REPORT_DD(MUD) 03390000
//* REPORT(NAME(REPORT2)) 03400000
//* REPORT(NAME(REPORT3)) 03410000
//* REPORT_DD(CLAY) 03420000
//* REPORT(NAME(REPORT4, REPORT5 REPORT_DD(SAND))) 03430000
//*-------------------------------------------------------------------* 03440000
//* 8. TO GENERATE A REPORT FROM THE ARCHIVE TRACE DATASET ALLOCATED 03450000
//* TO THE DD ARCHDD USE: 03460000
//* 03470000
//* DATASOURCE (ARCHIVE_DD(ARCHDD)) 03480000
//* REPORT(NAME(REPORT1)) 03490000
//*-------------------------------------------------------------------* 03500000
//* 9. TO GENERATE A REPORT FROM DATA COLLECTOR DOM1'S ACTIVE TRACE 03510000
//* DATA SETS USE: 03520000
//* 03530000
//* DATASOURCE (COLLECTOR(DOM1)) 03540000
//* REPORT(NAME(REPORT1)) 03550000
//*-------------------------------------------------------------------* 03560000
//* 10. GENERATE THE REPORT DBA.SYSMON USE: 03570000
//* 03580000
//* REPORT(NAME(DBA.SYSMON)) 03590000
//*------------------------- END OF: #DOMRPRT ----------------------- 03600000
}¢--- A540769.WK.JCL(DRDARB) cre=2010-02-15 mod=2010-02-15-18.07.05 A540769 ----
//A540769P JOB (PD00,KE50,,SP00000000),
// 'FULLCOPY',
// MSGCLASS=T,TIME=1440,LINES=100000
//*MAIN CLASS=LOG
//P04 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DBOF)
}¢--- A540769.WK.JCL(DSNCMDS) cre=2006-04-07 mod=2014-04-16-09.03.34 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//STEP1 EXEC PGM=IKJEFT01,TIME=1440
//SYSTERM DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DP4G)
rebind package (CHROI00YDEVG.AU.YAUCORC+
.(*)) -
qualifier(OA1P) -
OWNER(CMNBATCH) -
ISOLATION(CS) -
DEGREE(1) -
DYNAMICRULES(BIND) -
VALIDATE(BIND) -
EXPLAIN(YES) -
FLAG(I) -
/* end RZY/DE0G AURA@16.04.2014 CHROI00YDEVG.AU.YAUCORC
rebind package (AU.YAUCORC+
.(*)) -
qualifier(OA1T) -
OWNER(CMNBATCH) -
ISOLATION(CS) -
DEGREE(1) -
DYNAMICRULES(BIND) -
VALIDATE(BIND) -
EXPLAIN(YES) -
FLAG(I) -
/*end RZ1/DBTF AURA@16.04.2014 .AU.YAUCORC
rebind package (CHSKA000DVTB.AU.YAUCORC+
.(*)) -
qualifier(OA1T) -
OWNER(CMNBATCH) -
ISOLATION(CS) -
DEGREE(1) -
DYNAMICRULES(BIND) -
VALIDATE(BIND) -
EXPLAIN(YES) -
FLAG(I) -
/*end RZ1/DBTF AURA@16.04.2014 CHSKA000DVTB.AU.YAUCORC */
}¢--- A540769.WK.JCL(DSNTIAUL) cre=2006-03-07 mod=2014-06-19-10.33.10 A540769 ---
//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
//SYSREC00 DD DISP=(MOD,DELETE),DSN=A540769.TMP.DSNTIAU0
//SYSREC01 DD DISP=(MOD,DELETE),DSN=A540769.TMP.DSNTIAU1
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN DD *
DSN SYSTEM(DP4G)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*,RECFM=FB,LRECL=80
//SYSREC00 DD DISP=(NEW,CATLG),DSN=*.DEL.SYSREC00,
//* dcb=(lrecl=2048,recfm=fb), kein reclen angeben,
//* dann macht dsntiaul es richtig
// SPACE=(CYL,(2,1000)),MGMTCLAS=COM#A069
//SYSREC01 DD DISP=(NEW,CATLG),DSN=*.DEL.SYSREC01,
// SPACE=(CYL,(2,1000)),MGMTCLAS=COM#A069
//DDCARD DD SYSOUT=*,RECFM=FB,LRECL=80
//SYSIN DD * -- nur jedes 100te query
set current path = oa1p;
with x as
( select * from sysibm.sysDummy1
)
select * from x
;
with x as -- mit kommentar
( select * from sysibm.sysDummy1
)
select * from x
;
with x as
( select float(max(1, round(sqlCount/100, 0))) sn, p.*
from pbxx.TACCT_PROGRAM_20131015 p
where sqlCount > 0
/* fetch first 1000000 rows only */
)
, y as
( select smallint(floor(log10(max(1e-30,
real(BPGETPAGE)/sn)) * 3)) g, x.*
from x
)
select char(
right(' ' || strip(char(count(*))), 12) || ' '
|| substr(fosFmte7(min(real(BPGETPAGE)/sn)), 1, 7) || ' '
|| substr(fosFmte7(max(real(BPGETPAGE)/sn)), 1, 7) || ' '
|| substr(fosFmte7(avg(real(BPGETPAGE)/sn)), 1, 7) || ' '
|| substr(fosFmte7(avg(real(ELAPSEPKG)/sn)), 1, 7) || ' '
|| substr(fosFmte7(avg(real(CPUTCBPKG)/sn)), 1, 7) || ' sum '
|| substr(fosFmte7(sum(real(occurrences))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(sqlCount))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(sn))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(bpGetPage))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(elapsePkg))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(cpuTcbPkg))), 1, 7) || ' '
|| char(min(dateTime)) || ' '
|| char(max(dateTime)) || ' '
|| min(subsystem) || max(subsystem)
|| min(planName) || max(planName)
|| min(programName) || max(programName)
, 255)
from y
group by g
order by g desc
;
//SYSI1 DD * -- average
set current path = oa1p;
with x as
( select smallint(floor(log10(max(1e-30,
real(BPGETPAGE)/sqlCount)) * 3)) g, p.*
from pbxx.TACCT_PROGRAM_20131015 p
where sqlCount > 0
fetch first 100000 rows only
)
select char(
right(' ' || strip(char(count(*))), 12) || ' '
|| substr(fosFmte7(min(real(BPGETPAGE)/sqlCount)), 1, 7) || ' '
|| substr(fosFmte7(max(real(BPGETPAGE)/sqlCount)), 1, 7) || ' '
|| substr(fosFmte7(avg(real(BPGETPAGE)/sqlCount)), 1, 7) || ' '
|| substr(fosFmte7(avg(real(ELAPSEPKG)/sqlCount)), 1, 7) || ' '
|| substr(fosFmte7(avg(real(CPUTCBPKG)/sqlCount)), 1, 7) || ' sum '
|| substr(fosFmte7(sum(real(occurrences))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(sqlCount))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(bpGetPage))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(elapsePkg))), 1, 7) || ' '
|| substr(fosFmte7(sum(real(cpuTcbPkg))), 1, 7) || ' '
|| char(min(dateTime)) || ' '
|| char(max(dateTime)) || ' '
|| min(subsystem) || max(subsystem)
|| min(planName) || max(planName)
|| min(programName) || max(programName)
, 255)
from x
group by g
order by g desc
;
}¢--- A540769.WK.JCL(DSSREST) cre= mod=-. --------------------------------------
//PVSR1029 JOB (GOS42523,3010,,1088),NOTIFY=&SYSUID,MSGCLASS=T
//*
//RESTORE EXEC PGM=ADRDSSU ,PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,DSN=PVSO.RZ2.P0.SAV.CH1029
//SYSIN DD *
RESTORE INDD(INDD) -
DATASET( -
INCLUDE(**) -
) -
CATALOG -
WRITECHECK -
CANCELERROR
/*
//MORE DD *
RENUNC(*.*.P0.**, -
*.*.X0.**) -
/*
}¢--- A540769.WK.JCL(EE) cre=2006-09-15 mod=2006-09-15-16.45.47 F540769 --------
//A540769E JOB (SK01,KE10,A540769,S),'EEE',
// NOTIFY=&SYSUID,MSGCLASS=T,TIME=1440,
// REGION=4000K
//*MAIN CLASS=LOG,SYSTEM=S12
//*
//* EEE EASY EXPLAIN
//*
//*
//EEERUN EXEC PGM=IKJEFT01
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SANLLOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//SYSTSPRT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=133
//REPORT DD SYSOUT=*,DCB=BLKSIZE=133
//NEWDB2 DD SYSOUT=*,DCB=BLKSIZE=133
//*SQLPA* DD DSN=AUTHID.EEE.SQLPA,DISP=OLD
//PLIDUMP DD SYSOUT=*,DCB=BLKSIZE=133
//DSNTRACE DD SYSOUT=*,DCB=BLKSIZE=133
//SYSTSIN DD *
DSN S(DBAF)
RUN PROGRAM(ANLEEE) PLAN(ANLEEE)
END
//INPUT DD *
SET CURRENT SQLID = 'S100447'
PKG=BE.YBE27T0.(-0);LEVEL=SQL,QUALIFIER
}¢--- A540769.WK.JCL(ELARADPA) cre=2010-04-29 mod=2010-04-30-09.12.42 A540769 ---
//Y540769E JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// RESTART=REORG,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//SQL EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD * DISP=SHR,DSN=A540769.WK.SQL(TNI250G)
set current sqlid = 'S100447';
alter table BUA.XBEHL001IT002001
add partition ending at (7) ;
commit;
// IF RC <= 4 THEN
//REORG EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DVBP,'A540769T.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST#REO
INCLUDE TABLESPACE XBEHL001.SIT002 PARTLEVEL(7)
REORG TABLESPACE LIST LST#REO
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB03
MAXRO 1000
DRAIN ALL
DELAY 300
TIMEOUT TERM
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISCA
NOSYSREC
SORTKEYS
SORTDEVT DISK
SORTNUM 160
STATISTICS
INDEX ALL
REPORT NO
UPDATE ALL
// ENDIF
}¢--- A540769.WK.JCL(ELARDRRN) cre=2013-06-18 mod=2013-06-18-16.12.38 A540769 ---
//A540769I JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=A540769
//*MAIN CLASS=LOG
//SCRATCH1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER DBAF.DSNDBC.DA540769.A403P1.I0001.A001 -
MANAGEMENTCLASS(COM#A014) -
NEWNAME(DBAF.MIH.DSNDBC.DA540769.A403P1.I0001.A001)
ALTER DBAF.DSNDBD.DA540769.A403P1.I0001.A001 -
NEWNAME(DBAF.MIH.DSNDBD.DA540769.A403P1.I0001.A001)
//
ALTER DBAF.MIG.DSNDBD.DA540769.A403P1.I0001.A001 -
NEWNAME(DBAF.DSNDBD.DA540769.A403P1.I0001.A001)
ALTER DBAF.DSNDBD.DA540769.A403P1.I0001.A001 -
NEWNAME(DBAF.MIG.DSNDBD.DA540769.A403P1.I0001.A001)
ALTER DBAF.DSNDBD.DA540769.A403P1.I0001.A001 -
}¢--- A540769.WK.JCL(ELARDR1C) cre=2013-06-18 mod=2013-06-18-16.39.51 A540769 ---
//A540769C JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//P02 EXEC PGM=DSN1COPY,
// PARM='PAGESIZE(4K),OBIDXLAT,RESET,SEGMENT'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=DBAF.MIH.DSNDBC.DA540769.A403P1.I0001.A001
//SYSUT2 DD DISP=OLD,DSN=DBAF.DSNDBC.DGDB9998.A403P1.I0001.A001
//SYSXLAT DD * 00010000
900,689
970,140
972,796
//
DBID1,DBID2
PSID1,PSID2 FROM TS
OBID1,OBID2 FROM TB
280,280
41,46
42,47
3348,3348
92,96
91,95
33,199
//
1834,6493
92,,49 00040000
210,50 00040000
}¢--- A540769.WK.JCL(ELARIX) cre=2010-06-01 mod=2010-06-01-17.24.15 A540769 ----
$*( fehlende Elar Indexe erstellen
jeder Index in einem Job, 10 Jobs parallel (jobChar)
Liste der Tables mit wk.sql(elarIx) erstellen
$*)
$>.jclSub()
$<=/tbs/
BUA.XBCGZ049PS001001 2010-02-03-03.25.33.029229
BUA.XBCGZ050PS001001 2010-02-10-03.47.05.151260
BUA.XBCGZ051PS001001 2010-02-19-04.35.26.186846
BUA.XBCGZ052PS001001 2010-02-24-08.47.32.828137
BUA.XBCGZ053PS001001 2010-02-25-07.47.21.377868
BUA.XBCGZ054PS001001 2010-02-25-21.42.32.085903
BUA.XBCGZ055PS001001 2010-03-28-20.49.19.878456
BUA.XBCGZ056PS001001 2010-03-30-12.33.25.864953
BUA.XBCGZ057PS001001 2010-04-06-03.49.31.752004
BUA.XBCGZ058PS001001 2010-04-07-20.52.28.335322
BUA.XBCGZ059PS001001 2010-04-27-12.36.00.361651
BUA.XBCGZ060PS001001 2010-04-29-22.01.01.704449
BUA.XBCGZ061PS001001 2010-05-03-04.39.28.436486
BUA.XBCGZ062PS001001 2010-05-10-04.34.59.478457
BUA.XBCGZ063PS001001 2010-05-28-05.06.16.105152
BUA.XBCH5001PS001001 2010-03-13-02.10.29.336446
BUA.XBCHL003PS001001 2010-02-08-17.50.29.358491
BUA.XBCHL004PS001001 2010-04-20-18.36.52.275836
BUA.XBCHR001PS001001 2010-03-15-07.51.49.997196
BUA.XBCI7088PS001001 2010-02-17-19.41.31.458526
BUA.XBCI7089PS001001 2010-03-02-03.46.38.640724
BUA.XBCI7090PS001001 2010-03-05-04.35.53.182012
BUA.XBCI7091PS001001 2010-03-11-14.57.34.553790
BUA.XBCI7092PS001001 2010-03-17-12.06.25.707219
BUA.XBCI7093PS001001 2010-03-24-02.14.34.725585
BUA.XBCI7094PS001001 2010-03-27-12.21.42.987417
BUA.XBCI7095PS001001 2010-03-29-19.57.21.952555
BUA.XBCI7096PS001001 2010-04-13-10.34.51.681592
BUA.XBCI7097PS001001 2010-04-19-17.18.44.030819
BUA.XBCI7098PS001001 2010-04-23-19.46.40.037969
BUA.XBCI7099PS001001 2010-04-27-22.51.47.098092
BUA.XBCI7100PS001001 2010-04-29-22.01.28.280798
BUA.XBCI7101PS001001 2010-04-30-15.50.22.469271
BUA.XBCI7102PS001001 2010-05-03-05.11.26.745725
BUA.XBCI7103PS001001 2010-05-05-20.57.36.226878
BUA.XBCI7104PS001001 2010-05-28-08.53.31.538513
BUA.XBCI7105PS001001 2010-05-31-01.44.29.812702
BUA.XBCID001PS001001 2010-03-13-04.00.36.044543
BUA.XBCIT012PS001001 2010-02-18-03.41.47.789505
BUA.XBCIT013PS001001 2010-03-22-10.45.31.261867
BUA.XBCIT014PS001001 2010-04-22-07.45.12.070156
BUA.XBCIT015PS001001 2010-05-21-15.33.21.622103
BUA.XBCJF026PS001001 2010-02-05-17.16.45.436566
BUA.XBCJF027PS001001 2010-02-15-00.08.24.972111
BUA.XBCJF028PS001001 2010-02-23-17.53.55.085754
BUA.XBCJF029PS001001 2010-03-31-21.06.28.217174
BUA.XBCJF030PS001001 2010-05-07-03.03.45.732180
BUA.XBCJL001PS001001 2010-03-13-02.10.53.021226
BUA.XBCUX001PS001001 2010-02-13-15.26.39.979907
BUA.XBCUY377PS001001 2010-02-04-09.21.18.460303
BUA.XBCUY378PS001001 2010-02-08-20.14.28.984674
BUA.XBCUY379PS001001 2010-02-18-18.24.30.950709
BUA.XBCUY380PS001001 2010-03-02-08.09.28.088271
BUA.XBCUY381PS001001 2010-03-04-20.44.40.646873
BUA.XBCUY382PS001001 2010-03-17-13.14.28.976576
BUA.XBCUY383PS001001 2010-03-20-05.06.39.735309
BUA.XBCUY384PS001001 2010-03-29-06.29.33.133961
BUA.XBCUY385PS001001 2010-03-31-21.11.37.678918
BUA.XBCUY386PS001001 2010-04-08-20.44.45.632507
BUA.XBCUY387PS001001 2010-04-17-02.44.42.392849
BUA.XBCUY388PS001001 2010-04-22-07.51.56.451889
BUA.XBCUY389PS001001 2010-04-24-16.50.33.003842
BUA.XBCUY390PS001001 2010-04-28-12.35.55.978449
BUA.XBCUY391PS001001 2010-05-01-07.40.36.820349
BUA.XBCUY392PS001001 2010-05-05-07.38.48.786858
BUA.XBCUY393PS001001 2010-05-07-09.42.11.900925
BUA.XBCUY394PS001001 2010-05-11-07.18.28.284666
BUA.XBCUY395PS001001 2010-05-13-04.22.43.798217
BUA.XBCUY396PS001001 2010-05-24-13.49.19.432205
BUA.XBCUY397PS001001 2010-05-26-21.06.22.153491
BUA.XBCV4001PS001001 2010-02-13-12.44.47.191703
BUA.XBCVJ001PS001001 2010-02-15-04.32.28.546676
BUA.XBCVK263PS001001 2010-02-01-19.54.26.445031
BUA.XBCVK264PS001001 2010-02-19-17.19.35.910146
BUA.XBCVK265PS001001 2010-02-26-04.59.33.520017
BUA.XBCVK266PS001001 2010-03-04-11.06.38.122732
BUA.XBCVK267PS001001 2010-03-10-21.23.25.681888
BUA.XBCVK268PS001001 2010-04-01-18.41.29.637674
BUA.XBCVK269PS001001 2010-04-21-04.59.44.776923
BUA.XBCVK270PS001001 2010-04-27-08.36.43.526568
BUA.XBCVK271PS001001 2010-05-01-12.18.41.384371
BUA.XBCVK272PS001001 2010-05-07-04.12.43.918899
BUA.XBCVK273PS001001 2010-05-24-06.57.24.799518
BUA.XBCVK274PS001001 2010-05-28-08.58.24.487829
BUA.XBCVQ001PS001001 2010-02-13-15.10.19.173690
BUA.XBCVQ002PS001001 2010-05-28-05.24.37.459111
$/tbs/
$=jn=0
$@for line $@¢
parse value $line with tb tst .
$=tb=-tb
$=jn=-($jn+1)//10
say $jn 'tb' $tb 'tst' tst'.'
$@=¢
//Y540769$jn JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX ${tb}_HBD
ON ${tb}
(EN1TRANSACTNO ASC,
ET1LOGPROD ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP20
CLOSE YES
COPY NO
DEFER NO
DEFINE YES
PIECESIZE 2 G;
COMMIT;
$!
$!
$#out 20100601 17:23:39
}¢--- A540769.WK.JCL(ELARJW) cre=2010-07-27 mod=2010-07-30-16.43.33 A540769 ----
$*( Elar Indexe erstellen
ddl ist in elarJX
pro table 2 JoSteps: ddl und runstats rebuild runstats
defer yes und ; einfuegen
Kommentare überlesen
falls Tabel eine Partition > 5GB hat,
Bufferpool auf BP16K2 ändern
$*)
$** $>.jclSub()
$<A540769.WK.JCL(ELARJX)
$=tb=-''
$=jn=0
$=ssid=DVBP
m.big = 0
call sqlConnect $ssid
$@for li $@¢
w1 = translate(word($li, 1))
if w1 == 'CREATE' then do
parse value $li with wc wi ix wo tb re
if wi = 'UNIQUE' then
parse value $li with wc wu wi ix wo tb re
say 'ix' ix 'tb' tb'|'
if wi <> 'INDEX' | wo \= 'ON' | re \= '' then
call err 'bad create' strip($li)
if $tb \= '' then
$$ DEFER YES ;
if tb \= $tb then do
if $tb \= '' then
$@tbEnd()
m.ixl.0 = 0
$=tb=-tb
$@tbBeg()
end
call mAdd ixl, ix
end
if w1 = 'BUFFERPOOL' & m.big then
$$ BUFFERPOOL BP16K2
else if pos(left(w1, 1), ' ?;') < 1 then
$$ $li
$!
if $tb \= '' then do
$$ DEFER YES ;
$@tbEnd()
end
call sqlDisConnect
$@proc tbBeg $@¢
parse value $tb with cr'.'tb
call sqlPreAllCl 1, "select max(s.dbName), max(s.name), ",
"real(max(r.space)) * 1024" ,
"from sysibm.systables t, sysibm.sysTableSpace s,",
"sysibm.systableSpaceStats r" ,
"where t.creator = '"cr"' and t.name ='"tb"'" ,
"and t.dbName = s.dbName and t.tsName = s.name",
"and r.dbId = s.dbId and r.psId = s.psId",
, s, ":qDb, :qTs, :qSz"
m.big = qSz > 5e9
say cr'.'tb m.s.0 '=>' qDb'.'qTs '=' qSz 'big' m.big
if $jn = 0 then $@=¢
//Y540769C JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
$!
$=jn=-right($jn+1, 3, 0)
$@=¢
// IF RC=0 OR RC=4 THEN create $tb
//CRE$jn EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM($ssid)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
$!
$!
$@proc tbEnd $@¢
$@=¢
// ENDIF create $tb
// IF RC=0 OR RC=4 THEN rebuild $tb
//REB$jn EXEC PGM=DSNUTILB,
// PARM='$ssid,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=$ssid.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE $tb
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
$!
do ix=1 to m.ixl.0
$$- ' INCLUDE INDEX' m.ixl.ix 'PARTLEVEL'
end
$@=¢
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild $tb
$!
$!
$#out 20100728 15:47:12
//Y540769C JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001002
//CRE001 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1P8_MIG ON BUA.XBDKP001PM001002
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001002
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001002
//REB001 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001002
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1P8_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001002
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001003
//CRE002 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1P9_MIG ON BUA.XBDKP001PM001003
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001003
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001003
//REB002 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001003
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1P9_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001003
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001004
//CRE003 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PA_MIG ON BUA.XBDKP001PM001004
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001004
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001004
//REB003 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001004
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PA_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001004
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001005
//CRE004 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PB_MIG ON BUA.XBDKP001PM001005
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001005
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001005
//REB004 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001005
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PB_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001005
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001006
//CRE005 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PC_MIG ON BUA.XBDKP001PM001006
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001006
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001006
//REB005 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001006
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PC_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001006
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001007
//CRE006 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PD_MIG ON BUA.XBDKP001PM001007
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001007
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001007
//REB006 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001007
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PD_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001007
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001008
//CRE007 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PF_MIG ON BUA.XBDKP001PM001008
( EN1SLWRFNEU ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001008
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001008
//REB007 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001008
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PF_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001008
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001009
//CRE008 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PG_MIG ON BUA.XBDKP001PM001009
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001009
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001009
//REB008 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001009
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PG_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001009
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001010
//CRE009 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PH_MIG ON BUA.XBDKP001PM001010
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001010
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001010
//REB009 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001010
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PH_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001010
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001011
//CRE010 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PI_MIG ON BUA.XBDKP001PM001011
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001011
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001011
//REB010 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001011
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PI_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001011
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001012
//CRE011 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PJ_MIG ON BUA.XBDKP001PM001012
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001012
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001012
//REB011 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001012
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PJ_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001012
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001013
//CRE012 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PK_MIG ON BUA.XBDKP001PM001013
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B1PL_MIG ON BUA.XBDKP001PM001013
( EN1KONTO ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001013
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001013
//REB012 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001013
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PK_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B1PL_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001013
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001014
//CRE013 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PM_MIG ON BUA.XBDKP001PM001014
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B1PN_MIG ON BUA.XBDKP001PM001014
( EN1VALORNEU ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B1PO_MIG ON BUA.XBDKP001PM001014
( EN1ISIN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001014
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001014
//REB013 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001014
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PM_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B1PN_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B1PO_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001014
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001015
//CRE014 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PP_MIG ON BUA.XBDKP001PM001015
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001015
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001015
//REB014 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001015
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PP_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001015
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001IT002001
//CRE015 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000AMH7_MIG ON BUA.XBDKP001IT002001
( EA1STRN ASC
, EN1STK1 ASC
, EN1STK2 ASC
, EN1ENTERTAG ASC
-- , EN1PART ASC -- Unique Index nicht möglich (Duplikate)
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001IT002001
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001IT002001
//REB015 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001IT002001
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000AMH7_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001IT002001
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PS001001
//CRE016 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE UNIQUE INDEX BUA.I000B2RG_MIG ON BUA.XBDKP001PS001001
( EA1ATRN ASC
, EN1ENTERTAG ASC
, ET1LOGPROD ASC
, EN1PART ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE UNIQUE INDEX BUA.I000B2RH_MIG ON BUA.XBDKP001PS001001
(
EN1PART ASC
, EN1ABRWSN ASC
, EC1ABRWSHIST ASC
, EN1ABRWS ASC
, ES1ABRWS ASC
, EC1BA ASC
, EC1GA ASC
, EC1PHASE ASC
, ET1LOGPROD ASC
,
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RI_MIG ON BUA.XBDKP001PS001001
( EN1ABRWS ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RJ_MIG ON BUA.XBDKP001PS001001
( EN1CIFINH ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RK_MIG ON BUA.XBDKP001PS001001
( EN1DEPOT ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RL_MIG ON BUA.XBDKP001PS001001
( EN1SWIFTREF ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RM_MIG ON BUA.XBDKP001PS001001
( EN1SICABS ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RN_MIG ON BUA.XBDKP001PS001001
( EN1VALORNEU ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RO_MIG ON BUA.XBDKP001PS001001
( EN1ISIN ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PS001001
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PS001001
//REB016 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PS001001
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B2RG_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RH_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RI_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RJ_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RK_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RL_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RM_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RN_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RO_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PS001001
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PS002001
//CRE017 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE UNIQUE INDEX BUA.I000B2RQ_MIG ON BUA.XBDKP001PS002001
( EA1STRN ASC
, EN1ENTERTAG ASC
, EN1PART ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RR_MIG ON BUA.XBDKP001PS002001
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PS002001
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PS002001
//REB017 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PS002001
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
UPDATE ALL
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B2RQ_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RR_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD
UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PS002001
$#out 20100728 14:50:15
//Y540769C JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001002
//CRE001 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1P8_MIG ON BUA.XBDKP001PM001002
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001002
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001002
//REB001 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001002
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1P8_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001002
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001003
//CRE002 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1P9_MIG ON BUA.XBDKP001PM001003
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001003
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001003
//REB002 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001003
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1P9_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001003
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001004
//CRE003 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PA_MIG ON BUA.XBDKP001PM001004
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001004
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001004
//REB003 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001004
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PA_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001004
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001005
//CRE004 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PB_MIG ON BUA.XBDKP001PM001005
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001005
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001005
//REB004 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001005
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PB_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001005
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001006
//CRE005 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PC_MIG ON BUA.XBDKP001PM001006
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001006
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001006
//REB005 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001006
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PC_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001006
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001007
//CRE006 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PD_MIG ON BUA.XBDKP001PM001007
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001007
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001007
//REB006 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001007
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PD_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001007
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001008
//CRE007 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PF_MIG ON BUA.XBDKP001PM001008
( EN1SLWRFNEU ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001008
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001008
//REB007 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001008
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PF_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001008
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001009
//CRE008 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PG_MIG ON BUA.XBDKP001PM001009
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001009
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001009
//REB008 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001009
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PG_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001009
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001010
//CRE009 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PH_MIG ON BUA.XBDKP001PM001010
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001010
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001010
//REB009 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001010
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PH_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001010
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001011
//CRE010 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PI_MIG ON BUA.XBDKP001PM001011
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001011
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001011
//REB010 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001011
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PI_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001011
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001012
//CRE011 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PJ_MIG ON BUA.XBDKP001PM001012
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001012
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001012
//REB011 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001012
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PJ_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001012
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001013
//CRE012 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PK_MIG ON BUA.XBDKP001PM001013
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B1PL_MIG ON BUA.XBDKP001PM001013
( EN1KONTO ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001013
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001013
//REB012 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001013
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PK_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B1PL_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001013
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001014
//CRE013 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PM_MIG ON BUA.XBDKP001PM001014
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B1PN_MIG ON BUA.XBDKP001PM001014
( EN1VALORNEU ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B1PO_MIG ON BUA.XBDKP001PM001014
( EN1ISIN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001014
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001014
//REB013 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001014
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PM_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B1PN_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B1PO_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001014
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PM001015
//CRE014 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000B1PP_MIG ON BUA.XBDKP001PM001015
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PM001015
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PM001015
//REB014 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PM001015
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B1PP_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PM001015
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001IT002001
//CRE015 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE INDEX BUA.I000AMH7_MIG ON BUA.XBDKP001IT002001
( EA1STRN ASC
, EN1STK1 ASC
, EN1STK2 ASC
, EN1ENTERTAG ASC
-- , EN1PART ASC -- Unique Index nicht möglich (Duplikate)
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001IT002001
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001IT002001
//REB015 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001IT002001
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000AMH7_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001IT002001
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PS001001
//CRE016 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE UNIQUE INDEX BUA.I000B2RG_MIG ON BUA.XBDKP001PS001001
( EA1ATRN ASC
, EN1ENTERTAG ASC
, ET1LOGPROD ASC
, EN1PART ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE UNIQUE INDEX BUA.I000B2RH_MIG ON BUA.XBDKP001PS001001
(
EN1PART ASC
, EN1ABRWSN ASC
, EC1ABRWSHIST ASC
, EN1ABRWS ASC
, ES1ABRWS ASC
, EC1BA ASC
, EC1GA ASC
, EC1PHASE ASC
, ET1LOGPROD ASC
,
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RI_MIG ON BUA.XBDKP001PS001001
( EN1ABRWS ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RJ_MIG ON BUA.XBDKP001PS001001
( EN1CIFINH ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RK_MIG ON BUA.XBDKP001PS001001
( EN1DEPOT ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RL_MIG ON BUA.XBDKP001PS001001
( EN1SWIFTREF ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RM_MIG ON BUA.XBDKP001PS001001
( EN1SICABS ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RN_MIG ON BUA.XBDKP001PS001001
( EN1VALORNEU ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RO_MIG ON BUA.XBDKP001PS001001
( EN1ISIN ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PS001001
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PS001001
//REB016 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PS001001
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B2RG_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RH_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RI_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RJ_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RK_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RL_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RM_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RN_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RO_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PS001001
// IF RC=0 OR RC=4 THEN create BUA.XBDKP001PS002001
//CRE017 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 'S100447';
CREATE UNIQUE INDEX BUA.I000B2RQ_MIG ON BUA.XBDKP001PS002001
( EA1STRN ASC
, EN1ENTERTAG ASC
, EN1PART ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
CREATE INDEX BUA.I000B2RR_MIG ON BUA.XBDKP001PS002001
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP16K2
CLOSE NO
DEFER YES ;
// ENDIF create BUA.XBDKP001PS002001
// IF RC=0 OR RC=4 THEN rebuild BUA.XBDKP001PS002001
//REB017 EXEC PGM=DSNUTILB,
// PARM='DVBP,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF TSLIST INCLUDE TABLESPACES TABLE BUA.XBDKP001PS002001
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
LISTDEF IXLIST
INCLUDE INDEX BUA.I000B2RQ_MIG PARTLEVEL
INCLUDE INDEX BUA.I000B2RR_MIG PARTLEVEL
REBUILD INDEX LIST IXLIST
SORTDEVT SYSDA
SORTNUM 100
WORKDDN(TSYUTD)
SHRLEVEL CHANGE
RUNSTATS TABLESPACE LIST TSLIST
SHRLEVEL CHANGE
INDEX ALL KEYCARD UPDATE ALL
// ENDIF rebuild BUA.XBDKP001PS002001
$#out 20100728 14:40:08
}¢--- A540769.WK.JCL(ELARJX) cre=2010-07-27 mod=2010-07-27-16.25.20 A540769 ----
??? pm
??? Indizes für Tabelle XBDKP001PM001002:
CREATE INDEX BUA.I000B1P8_MIG ON BUA.XBDKP001PM001002
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001003;
CREATE INDEX BUA.I000B1P9_MIG ON BUA.XBDKP001PM001003
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001004;
CREATE INDEX BUA.I000B1PA_MIG ON BUA.XBDKP001PM001004
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001005;
CREATE INDEX BUA.I000B1PB_MIG ON BUA.XBDKP001PM001005
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001006;
CREATE INDEX BUA.I000B1PC_MIG ON BUA.XBDKP001PM001006
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001007;
CREATE INDEX BUA.I000B1PD_MIG ON BUA.XBDKP001PM001007
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B1PF_MIG ON BUA.XBDKP001PM001008
( EN1SLWRFNEU ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001009:
CREATE INDEX BUA.I000B1PG_MIG ON BUA.XBDKP001PM001009
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001010:
CREATE INDEX BUA.I000B1PH_MIG ON BUA.XBDKP001PM001010
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001011:
CREATE INDEX BUA.I000B1PI_MIG ON BUA.XBDKP001PM001011
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001012:
CREATE INDEX BUA.I000B1PJ_MIG ON BUA.XBDKP001PM001012
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001013:
CREATE INDEX BUA.I000B1PK_MIG ON BUA.XBDKP001PM001013
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B1PL_MIG ON BUA.XBDKP001PM001013
( EN1KONTO ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001014:
CREATE INDEX BUA.I000B1PM_MIG ON BUA.XBDKP001PM001014
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B1PN_MIG ON BUA.XBDKP001PM001014
( EN1VALORNEU ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B1PO_MIG ON BUA.XBDKP001PM001014
( EN1ISIN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001015:
CREATE INDEX BUA.I000B1PP_MIG ON BUA.XBDKP001PM001015
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? bdy
??? Indizes für Tabelle XBDKP001IT002001:
CREATE INDEX BUA.I000AMH7_MIG ON BUA.XBDKP001IT002001
( EA1STRN ASC
, EN1STK1 ASC
, EN1STK2 ASC
, EN1ENTERTAG ASC
-- , EN1PART ASC -- Unique Index nicht möglich (Duplikate)
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? aop
??? Indizes für Tabelle XBDKP001PS001001:
CREATE UNIQUE INDEX BUA.I000B2RG_MIG ON BUA.XBDKP001PS001001
( EA1ATRN ASC
, EN1ENTERTAG ASC
, ET1LOGPROD ASC
, EN1PART ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE UNIQUE INDEX BUA.I000B2RH_MIG ON BUA.XBDKP001PS001001
(
EN1PART ASC
, EN1ABRWSN ASC
, EC1ABRWSHIST ASC
, EN1ABRWS ASC
, ES1ABRWS ASC
, EC1BA ASC
, EC1GA ASC
, EC1PHASE ASC
, ET1LOGPROD ASC
,
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RI_MIG ON BUA.XBDKP001PS001001
( EN1ABRWS ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RJ_MIG ON BUA.XBDKP001PS001001
( EN1CIFINH ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RK_MIG ON BUA.XBDKP001PS001001
( EN1DEPOT ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RL_MIG ON BUA.XBDKP001PS001001
( EN1SWIFTREF ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RM_MIG ON BUA.XBDKP001PS001001
( EN1SICABS ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RN_MIG ON BUA.XBDKP001PS001001
( EN1VALORNEU ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RO_MIG ON BUA.XBDKP001PS001001
( EN1ISIN ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? sep
??? Indizes für Tabelle XBDKP001PS002001 Unique Index:
CREATE UNIQUE INDEX BUA.I000B2RQ_MIG ON BUA.XBDKP001PS002001
( EA1STRN ASC
, EN1ENTERTAG ASC
, EN1PART ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RR_MIG ON BUA.XBDKP001PS002001
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
}¢--- A540769.WK.JCL(ELARJX0) cre=2010-07-27 mod=2010-07-27-15.44.50 A540769 ---
??? pm
??? Indizes für Tabelle XBDKP001PM001002:
CREATE INDEX BUA.I000B1P8_MIG ON BUA.XBDKP001PM001002
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001003;
CREATE INDEX BUA.I000B1P9_MIG ON BUA.XBDKP001PM001003
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001004;
CREATE INDEX BUA.I000B1PA_MIG ON BUA.XBDKP001PM001004
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001005;
CREATE INDEX BUA.I000B1PB_MIG ON BUA.XBDKP001PM001005
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001006;
CREATE INDEX BUA.I000B1PC_MIG ON BUA.XBDKP001PM001006
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001007;
CREATE INDEX BUA.I000B1PD_MIG ON BUA.XBDKP001PM001007
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B1PF_MIG ON BUA.XBDKP001PM001008
( EN1SLWRFNEU ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001009:
CREATE INDEX BUA.I000B1PG_MIG ON BUA.XBDKP001PM001009
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001010:
CREATE INDEX BUA.I000B1PH_MIG ON BUA.XBDKP001PM001010
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001011:
CREATE INDEX BUA.I000B1PI_MIG ON BUA.XBDKP001PM001011
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001012:
CREATE INDEX BUA.I000B1PJ_MIG ON BUA.XBDKP001PM001012
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001013:
CREATE INDEX BUA.I000B1PK_MIG ON BUA.XBDKP001PM001013
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B1PL_MIG ON BUA.XBDKP001PM001013
( EN1KONTO ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001014:
CREATE INDEX BUA.I000B1PM_MIG ON BUA.XBDKP001PM001014
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B1PN_MIG ON BUA.XBDKP001PM001014
( EN1VALORNEU ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B1PO_MIG ON BUA.XBDKP001PM001014
( EN1ISIN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? Indizes für Tabelle XBDKP001PM001015:
CREATE INDEX BUA.I000B1PP_MIG ON BUA.XBDKP001PM001015
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? bdy
??? Indizes für Tabelle XBDKP001IT002001:
CREATE INDEX BUA.I000AMH7_MIG ON BUA.XBDKP001IT002001
( EA1STRN ASC
, EN1STK1 ASC
, EN1STK2 ASC
, EN1ENTERTAG ASC
-- , EN1PART ASC -- Unique Index nicht möglich (Duplikate)
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS3
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? aop
??? Indizes für Tabelle XBDKP001PS001001:
CREATE UNIQUE INDEX BUA.I000B2RG_MIG ON BUA.XBDKP001PS001001
( EA1ATRN ASC
, EN1ENTERTAG ASC
, ET1LOGPROD ASC
, EN1PART ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 3
PCTFREE 40
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE UNIQUE INDEX BUA.I000B2RH_MIG ON BUA.XBDKP001PS001001
(
EN1PART ASC
, EN1ABRWSN ASC
, EC1ABRWSHIST ASC
, EN1ABRWS ASC
, ES1ABRWS ASC
, EC1BA ASC
, EC1GA ASC
, EC1PHASE ASC
, ET1LOGPROD ASC
,
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 3
PCTFREE 30
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RI_MIG ON BUA.XBDKP001PS001001
( EN1ABRWS ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RJ_MIG ON BUA.XBDKP001PS001001
( EN1CIFINH ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RK_MIG ON BUA.XBDKP001PS001001
( EN1DEPOT ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RL_MIG ON BUA.XBDKP001PS001001
( EN1SWIFTREF ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RM_MIG ON BUA.XBDKP001PS001001
( EN1SICABS ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RN_MIG ON BUA.XBDKP001PS001001
( EN1VALORNEU ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RO_MIG ON BUA.XBDKP001PS001001
( EN1ISIN ASC
, ET1LOGPROD ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
??? sep
??? Indizes für Tabelle XBDKP001PS002001 Unique Index:
CREATE UNIQUE INDEX BUA.I000B2RQ_MIG ON BUA.XBDKP001PS002001
( EA1STRN ASC
, EN1ENTERTAG ASC
, EN1PART ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 2
PCTFREE 50
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
CREATE INDEX BUA.I000B2RR_MIG ON BUA.XBDKP001PS002001
( EA1ATRN ASC
, EN1ENTERTAG ASC
)
NOT CLUSTER
PARTITIONED
DEFINE YES
FREEPAGE 5
PCTFREE 20
GBPCACHE CHANGED
USING STOGROUP GSMS1
ERASE NO
PRIQTY -1
SECQTY -1
BUFFERPOOL BP20
CLOSE NO
}¢--- A540769.WK.JCL(ELCOMALO) cre=2010-11-19 mod=2010-11-19-13.08.36 A540769 ---
$#=
//A540769L JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*** generated from A540769.WK.JCL(ELCOMALO) ==> changes there
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
$#@
$@=¢
831
832
833
835
836
837
838
839
840
841
843
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
$! $| $@for line $@=¢
$=nr=- word($line, 1)
EXEC SQL
DECLARE CUR$nr CURSOR FOR
SELECT *
FROM OA1A.TKS${nr}A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR$nr LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS${nr}C4
$!
$#OUT 20101119 13:08:32
//A540769L JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*** generated from A540769.WK.JCL(ELCOMALO) ==> changes there
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
DECLARE CUR831 CURSOR FOR
SELECT *
FROM OA1A.TKS831A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR831 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS831C4
EXEC SQL
DECLARE CUR832 CURSOR FOR
SELECT *
FROM OA1A.TKS832A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR832 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS832C4
EXEC SQL
DECLARE CUR833 CURSOR FOR
SELECT *
FROM OA1A.TKS833A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR833 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS833C4
EXEC SQL
DECLARE CUR835 CURSOR FOR
SELECT *
FROM OA1A.TKS835A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR835 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS835C4
EXEC SQL
DECLARE CUR836 CURSOR FOR
SELECT *
FROM OA1A.TKS836A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR836 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS836C4
EXEC SQL
DECLARE CUR837 CURSOR FOR
SELECT *
FROM OA1A.TKS837A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR837 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS837C4
EXEC SQL
DECLARE CUR838 CURSOR FOR
SELECT *
FROM OA1A.TKS838A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR838 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS838C4
EXEC SQL
DECLARE CUR839 CURSOR FOR
SELECT *
FROM OA1A.TKS839A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR839 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS839C4
EXEC SQL
DECLARE CUR840 CURSOR FOR
SELECT *
FROM OA1A.TKS840A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR840 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS840C4
EXEC SQL
DECLARE CUR841 CURSOR FOR
SELECT *
FROM OA1A.TKS841A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR841 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS841C4
EXEC SQL
DECLARE CUR843 CURSOR FOR
SELECT *
FROM OA1A.TKS843A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR843 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS843C4
EXEC SQL
DECLARE CUR845 CURSOR FOR
SELECT *
FROM OA1A.TKS845A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR845 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS845C4
EXEC SQL
DECLARE CUR846 CURSOR FOR
SELECT *
FROM OA1A.TKS846A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR846 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS846C4
EXEC SQL
DECLARE CUR847 CURSOR FOR
SELECT *
FROM OA1A.TKS847A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR847 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS847C4
EXEC SQL
DECLARE CUR848 CURSOR FOR
SELECT *
FROM OA1A.TKS848A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR848 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS848C4
EXEC SQL
DECLARE CUR849 CURSOR FOR
SELECT *
FROM OA1A.TKS849A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR849 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS849C4
EXEC SQL
DECLARE CUR850 CURSOR FOR
SELECT *
FROM OA1A.TKS850A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR850 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS850C4
EXEC SQL
DECLARE CUR851 CURSOR FOR
SELECT *
FROM OA1A.TKS851A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR851 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS851C4
EXEC SQL
DECLARE CUR852 CURSOR FOR
SELECT *
FROM OA1A.TKS852A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR852 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS852C4
EXEC SQL
DECLARE CUR853 CURSOR FOR
SELECT *
FROM OA1A.TKS853A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR853 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS853C4
EXEC SQL
DECLARE CUR854 CURSOR FOR
SELECT *
FROM OA1A.TKS854A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR854 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS854C4
EXEC SQL
DECLARE CUR855 CURSOR FOR
SELECT *
FROM OA1A.TKS855A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR855 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS855C4
EXEC SQL
DECLARE CUR856 CURSOR FOR
SELECT *
FROM OA1A.TKS856A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR856 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS856C4
EXEC SQL
DECLARE CUR857 CURSOR FOR
SELECT *
FROM OA1A.TKS857A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR857 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS857C4
EXEC SQL
DECLARE CUR858 CURSOR FOR
SELECT *
FROM OA1A.TKS858A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR858 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS858C4
EXEC SQL
DECLARE CUR859 CURSOR FOR
SELECT *
FROM OA1A.TKS859A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR859 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS859C4
EXEC SQL
DECLARE CUR860 CURSOR FOR
SELECT *
FROM OA1A.TKS860A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR860 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS860C4
EXEC SQL
DECLARE CUR861 CURSOR FOR
SELECT *
FROM OA1A.TKS861A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR861 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS861C4
EXEC SQL
DECLARE CUR862 CURSOR FOR
SELECT *
FROM OA1A.TKS862A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR862 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS862C4
EXEC SQL
DECLARE CUR863 CURSOR FOR
SELECT *
FROM OA1A.TKS863A1
WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR863 LOG NO RESUME NO
REPLACE COPYDDN(TCOPYD) STATISTICS INDEX(ALL) KEYCARD
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1A.TELKS863C4
$#OUT 20101119 12:35:29
}¢--- A540769.WK.JCL(ELSELOA) cre=2010-03-12 mod=2010-03-12-17.58.02 A540769 ---
//A540769B JOB (CP00,KE50) 00010001
//*MAIN CLASS=LOG
//* dieser Job liest aus der Tabelle oa1a.tel002a1
//* welche Partition der Tabelle oa1a.tel001a1 geladen werden soll
//*
//*
//* part-file löschen
//DEL EXEC PGM=IEFBR14 00020001
//PART DD DISP=(MOD,DELETE,DELETE),DSN=A540769.ELSELOA.PART
//*
//*
//* Partition selektieren aus Tabelle oa1a.tel002a1
//* und in eine 80-char Zeile schreiben
//SELPART EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
//SYSIN DD *
SELECT CHAR(CASE when EL002001 = 'BE' then '1'
when EL002001 = 'LU' then '2'
when EL002001 = 'ZH' then '3'
else 'partition unbekannt el002001=' || EL002001
end , 80 )
from oa1a.tel002a1
where el002003 = 'I'
;
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPUNCH DD DUMMY
//SYSREC00 DD DISP=(NEW,CATLG),DSN=*.DEL.PART,
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=800),
// SPACE=(TRK,(1,1))
//*
//*
//* Zuerst eine Kopie erstellen (falls wir backup bräuchten...)
//* und dann die Partition mit den Daten aus DD RECIN ersetzen
//*
//* Achtung: el001001 muss der richtige PartitionsKey
//* für die gefundene Partition sein|||
//LOAD EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769B.LOAD'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//RECIN DD DISP=SHR,DSN=DBAF.EL02A1A.A001A.P00002.D100312.REC
//SYSIN DD *
COPY TABLESPACE EL02A1A.A001A DSNUM ALL
COPYDDN(TCOPYD) SHRLEVEL REFERENCE
LOAD DATA
LOG NO
SORTDEVT DISK
SORTKEYS
WORKDDN(TSYUTD,TSOUTD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE OA1A.TEL001A1 PART
// DD DISP=SHR,DSN=*.DEL.PART
// DD *
RESUME NO REPLACE COPYDDN(TCOPYD)
-- STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
INDDN(RECIN)
( "EL001001"
POSITION( 00003:00004) CHAR(00002)
, "EL001002"
POSITION( 00005:00012) CHAR(00008)
, "EL001003"
POSITION( 00013:00016) CHAR(00004)
, "EL001004"
POSITION( 00017:00020) CHAR(00004)
, "EL001005"
POSITION( 00021:00040) CHAR(00020)
, "EL001006"
POSITION( 00041:00044) CHAR(00004)
, "EL001007"
POSITION( 00045:00056) CHAR(00012)
, "EL001008"
POSITION( 00057:00068) CHAR(00012)
, "EL001009"
POSITION( 00069:00088) CHAR(00020)
, "EL001010"
POSITION( 00089:00098) DATE EXTERNAL
, "EL001011"
POSITION( 00099:00122) CHAR(00024)
, "EL001012"
POSITION( 00123:00148) TIMESTAMP EXTERNAL
, "EL001013"
POSITION( 00149:00174) TIMESTAMP EXTERNAL
, "EL001014"
POSITION( 00175:00184) CHAR(00010)
)
}¢--- A540769.WK.JCL(EL013) cre=2011-07-28 mod=2011-07-28-14.58.35 A540769 -----
//A540769L JOB (CP00,KE50),'DB2 COPY',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG SYSTEM=S14
//*
//* archivierungsJob:
//* copy beide
//* reorg discard in source tel013a1
//* load resume in history tel013h1
//* copy/runstats tel013h1
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBTF,A540769F.HISTO'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//* || mit ctrl-m timestamp
//* || damit es nicht ueberschrieben
//* || aber beim Restart muss dass bereits
//* || entladene File wieder genommen werden|
//DISC DD DSN=A540769.TST.TEL013.DISC,
// DISP=(MOD,CATLG,CATLG),UNIT=DISK,
// SPACE=(CYL,(100,100)),MGMTCLAS=BAT#NW
//PUNCH DD DSN=A540769.TST.TEL013.PUNCH,
// DISP=(MOD,CATLG,CATLG),UNIT=DISK,
// SPACE=(TRK,(10,10)),MGMTCLAS=BAT#NW
//SYSIN DD *
LISTDEF C#LIST 00010000
INCLUDE TABLESPACE EL02A1T.A013* PARTLEVEL 8620
COPY LIST C#LIST
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
REORG TABLESPACE EL02A1T.A013A
LOG NO
SORTDATA
SHRLEVEL CHANGE
-- || mappingTable mit Jobnamen bei Kidi 63 bestellen
MAPPINGTABLE S100447.MAPTAB02
MAXRO 30
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLOAD CONTINUE
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
SORTDEVT DISK
COPYDDN(TCOPYD)
WORKDDN(TSYUTD,TSOUTD)
PUNCHDDN(PUNCH) DISCARDDN(DISC)
DISCARD FROM TABLE OA1T.TEL013A1
WHEN(EL013CTS < CURRENT DATE - 47 DAYS)
LOAD DATA INDDN DISC
LOG NO RESUME YES SHRLEVEL NONE
EBCDIC CCSID(00500,00000,00000)
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
INTO TABLE OA1T.TEL013H1
( "EL013RID"
POSITION(00007:00014) BIGINT
, "EL013CTS"
POSITION(00015:00040) TIMESTAMP EXTERNAL
, "EL013PART"
POSITION(00041:00042) CHAR(002)
, "EL013CPID"
POSITION(00043:00050) CHAR(008)
, "EL013SERV"
POSITION(00051:00054) CHAR(004)
, "EL013ARQ"
POSITION(00055:00084) CHAR(030)
, "EL013AGR"
POSITION(00085:00104) CHAR(020)
, "EL013AGRT"
POSITION(00105:00108) CHAR(004)
, "EL013OWN"
POSITION(00109:00120) CHAR(012)
, "EL013RETC"
POSITION(00121:00124) CHAR(004)
, "EL013REAS"
POSITION(00125:00128) CHAR(004)
, "EL013IMS"
POSITION(00129:00136) CHAR(008)
, "EL013REG"
POSITION(00137:00140) CHAR(004)
, "EL013ART"
POSITION(00141:00148) CHAR(008)
, "EL013JOB" -- gekuerzt ||||||||
POSITION(00149:00154) CHAR(006)
, "EL013PGM"
POSITION(00157:00164) CHAR(008)
, "EL013MTS"
POSITION(00165:00190) TIMESTAMP EXTERNAL
, "EL013MID"
POSITION(00191:00200) CHAR(010)
)
COPY TABLESPACE EL02A1T.A013H
COPYDDN(TCOPYD)
SHRLEVEL REFERENCE
RUNSTATS TABLESPACE EL02A1T.A013H
SHRLEVEL CHANGE
INDEX(ALL KEYCARD)
REPORT NO UPDATE ALL
}¢--- A540769.WK.JCL(EMPTY) cre=2012-12-12 mod=2012-12-12-10.48.06 A540769 -----
}¢--- A540769.WK.JCL(ERRORDOC) cre=2011-06-09 mod=2011-11-17-16.30.18 A540769 ---
//YERRODOC JOB (PEK27456,0240,,9904),TSOJOB,MSGCLASS=T, 00010099
// NOTIFY=&SYSUID.,TIME=1440 00020099
//*MAIN CLASS=LOG 00030099
//* cat files blocksize --> like ??? 00040099
//* 00050099
//**********************************************************************00060099
//* VARIABLENDEFINITION: FEHLERNUMMER UND DATUM ANPASSEN|| 00070099
//**********************************************************************00080099
//SETVAR SET ID=259 DBA FEHLERNR 00090099
//SETVAR SET DAT=D110920 DATUM 00100099
//SETVAR SET CHANGE=C0008501 00110099
//SETVAR SET CHATIM=AN094236 00120099
//SETVAR SET DBXPRE=DSN.DBQ PRÄFIX DBX 00130099
//SETVAR SET DBXPRE=DSN.DBX PRÄFIX DBX 00140099
//SETVAR SET DBXMBR=WK999040 ddl/cdl/etc mbr 00150099
//SETVAR SET DBXMB2=NI021390VERGESSEN ddl/cdl/etc mbr 00160099
//SETVAR SET MASK=DSN.TX.CASE MASK LIBRARY 00170099
//SETVAR SET MASK=DSN.DBX.MASK MASK LIBRARY 00180099
//SETVAR SET WORK=DSN.DBA.DBTF prefix work 00190099
//SETVAR SET RUNJ=DSN.DBA.DBTF.RUN.JCL pds for runJcl 00200099
//**********************************************************************00210099
//* VARIABLENDEFINITION FUER OUTPUT 00220099
//* OUTPUT MUSS ZUERST AUS DEM EJ EXPORTIERT WERDEN|| 00230099
//**********************************************************************00240099
//SETVAR SET OCOM=&SYSUID..IBM.ER&ID..COM OUTPUT COMPARE 00250099
//SETVAR SET OIMP=&SYSUID..IBM.ER&ID..IMP OUTPUT IMPORT 00260099
//SETVAR SET OANA=&SYSUID..IBM.ER&ID..ANA OUTPUT ANALYZE 00270099
//SETVAR SET ORUN=&SYSUID..IBM.ER&ID..RUN OUTPUT RUN 00280099
//SETVAR SET OLOA=&SYSUID..IBM.ER&ID..LOA OUTPUT RUN 00290099
//**********************************************************************00300099
//* VARIABLENDEFINITION 00310099
//**********************************************************************00320099
//SETVAR SET MASKC=&MASK(WK974MSK) MASK COMPARE 00330099
//SETVAR SET MASKC=&MASK(DBTWAL4) mask 00340099
//SETVAR SET MASKC=&MASK(PROTDBTF) MASK COMPARE 00350099
//SETVAR SET IGNOR=&MASK(DBAEMPTY) ignore 00360099
//SETVAR SET IGNOR=&MASK(IGNORE) ignore 00370099
//SETVAR SET MASKI=&MASK(TWALDQ0G) MASK IMPORT 00380099
//SETVAR SET MASKI=&MASK(WK974MSI) MASK COMPARE 00390099
//SETVAR SET MASKI=&MASK(DBAEMPTY) MASK IMPORT 00400099
//SETVAR SET MASKI=&MASK(DBTFDBTF) MASK IMPORT 00410099
//SETVAR SET CDL=&DBXPRE..CDL(&DBXMBR) CDL MEMBER 00420099
//SETVAR SET CD2=&DBXPRE..CDL(PC010260) CDL MEMBER 00430099
//SETVAR SET SDDL=&DBXPRE..SRCDDL(&DBXMBR) SOURCE DDL 00440099
//SETVAR SET SVRS=&DBXPRE..SRCCAT(&DBXMBR) SOURCE DDL 00450099
//SETVAR SET TDDL=&DBXPRE..TRGDDL(&DBXMBR) TARGET DDL 00460099
//SETVAR SET TVRS=&DBXPRE..TRGCAT(&DBXMBR) TARGET DDL 00470099
//*SETVAR SET OVER=&MASK(OVERRIDE) OVERRIDE 00480099
//SETVAR SET SHRV=&WORK..&CHANGE..&CHATIM..SHV 00490099
//SETVAR SET CHAN=&WORK..&CHANGE..&CHATIM..CHG 00500099
//SETVAR SET WSL=&WORK..ANA.WSL 00510099
//SETVAR SET IFF=&WORK..&CHANGE..&CHATIM..IFF 00520099
//* 00530099
//**********************************************************************00540099
//* copy Prozeduren: löschen, allozieren und kopieren 00550099
//**********************************************************************00560099
//* vb seqential 00570099
//COPYVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00580099
// IF RC <= 4 THEN 00590099
//DEL EXEC PGM=IEFBR14 00600099
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00610099
// ENDIF 00620099
// IF RC <= 4 THEN 00630099
//COPY EXEC PGM=IEBGENER 00640099
//SYSPRINT DD SYSOUT=* 00650099
//SYSIN DD DUMMY 00660099
//SYSUT1 DD DISP=SHR,DSN=DSN.DBA.ALLOC.TEXTVB 00670099
// DD DISP=MOD,DSN=&I 00680099
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00690099
// MGMTCLAS=COM#A092, 00700099
// SPACE=(CYL,(5,2),RLSE), 00710099
// DCB=(DSORG=PS,RECFM=VB,LRECL=16384,BLKSIZE=32000) 00720099
// ENDIF 00730099
//COPYVB PEND 00740099
//* fb sequential 00750099
//COPYFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00760099
// IF RC <= 4 THEN 00770099
//DEL EXEC PGM=IEFBR14 00780099
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00790099
// ENDIF 00800099
// IF RC <= 4 THEN 00810099
//COPY EXEC PGM=IEBGENER 00820099
//SYSPRINT DD SYSOUT=* 00830099
//SYSIN DD DUMMY 00840099
//SYSUT1 DD DISP=OLD,DSN=DSN.DBA.ALLOC.TEXTFB 00850099
// DD DISP=MOD,DSN=&I 00860099
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00870099
// MGMTCLAS=COM#A092, 00880099
// SPACE=(CYL,(5,2),RLSE), 00890099
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=27920) 00900099
// ENDIF 00910099
//COPYFB PEND 00920099
//* vb PDS 00930099
//COPYPOVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00940099
// IF RC <= 4 THEN 00950099
//DEL EXEC PGM=IEFBR14 00960099
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00970099
// ENDIF 00980099
// IF RC <= 4 THEN 00990099
//COPY EXEC PGM=IEBCOPY 01000099
//SYSPRINT DD SYSOUT=* 01010099
//I1 DD DISP=MOD,DSN=&I 01020099
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 01030099
// MGMTCLAS=COM#A092, 01040099
// SPACE=(CYL,(5,2,50),RLSE), 01050099
// DCB=(DSORG=PO,RECFM=VB,LRECL=2048) 01060099
// ENDIF 01070099
//COPYPOVB PEND 01080099
//* fb PDS 01090099
//COPYPOFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 01100099
// IF RC <= 4 THEN 01110099
//DEL EXEC PGM=IEFBR14 01120099
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 01130099
// ENDIF 01140099
// IF RC <= 4 THEN 01150099
//COPY EXEC PGM=IEBCOPY 01160099
//SYSPRINT DD SYSOUT=* 01170099
//I1 DD DISP=MOD,DSN=&I 01180099
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 01190099
// MGMTCLAS=COM#A092, 01200099
// SPACE=(CYL,(5,2,50),RLSE), 01210099
// DCB=(DSORG=PO,RECFM=FB,LRECL=80) 01220099
// ENDIF 01230099
//COPYPOFB PEND 01240099
//**********************************************************************01250099
//* kopieren 01260099
//**********************************************************************01270099
//* compare job datasets kopieren 01280099
//CMPJES EXEC PROC=COPYVB,I=&OCOM,O=OUTPUT.COMPARE 01290099
//CMPMASK EXEC PROC=COPYFB,I=&MASKC,O=MASK.COMPARE 01300099
//CMPIGNO EXEC PROC=COPYFB,I=&IGNOR,O=IGNORE 01310099
//*CMPOVER EXEC PROC=COPYFB,I=&OVER,O=OVERRIDE 01320099
//SRCDDL EXEC PROC=COPYFB,I=&SDDL,O=SOURCE.DDL 01330099
//SRCVRS EXEC PROC=COPYVB,I=&SVRS,O=SOURCE.VERSION 01340099
//TRGDDL EXEC PROC=COPYFB,I=&TDDL,O=TARGET.DDL 01350099
//TRGVRS EXEC PROC=COPYVB,I=&TVRS,O=TARGET.VERSION 01360099
//CDL EXEC PROC=COPYVB,I=&CDL,O=CDL 01370099
//CD2 EXEC PROC=COPYVB,I=&CD2,O=CD2 01380099
//* import job datasets kopieren 01390099
//IMPJES EXEC PROC=COPYVB,I=&OIMP,O=OUTPUT.IMPORT 01400099
//IMPMASK EXEC PROC=COPYFB,I=&MASKI,O=MASK.IMPORT 01410099
//* analyze job datasets kopieren 01420099
//*NA2 EXEC PROC=COPYVB,I=A540769.IBM.ER259.ANA.EXDLTA.VEROUT, 01430099
//* O=ANA.EXDLTA.VEROUT 01440099
//*NA3 EXEC PROC=COPYVB,I=A540769.IBM.ER259.ANA.GNSQL2.CAT, 01450099
//* O=ANA.GNSQL2.CAT 01460099
//ANAJES EXEC PROC=COPYVB,I=&OANA,O=OUTPUT.ANALYZE 01470099
//** ANAJESNO EXEC PROC=COPYVB,I=&OANA.NOVA,O=OUTPUT.ANANOVA 01480099
//CHANGES EXEC PROC=COPYVB,I=&CHAN,O=CHANGES 01490099
//IFF EXEC PROC=COPYPOVB,I=&IFF,O=IFF 01500099
//COPY.SYSIN DD * 01510099
COPY O=O1,I=((I1,R)) 01520099
//SHRVARS EXEC PROC=COPYPOFB,I=&SHRV,O=SHRVARS 01530099
//COPY.SYSIN DD * 01540099
COPY O=O1,I=((I1,R)) 01550099
//RUNJCL EXEC PROC=COPYPOFB,I=&RUNJ,O=RUNJCL 01560099
//COPY.SYSIN DD * 01570099
COPY O=O1,I=((I1,R)) 01580099
SELECT M=E0008501 01590099
//WSL EXEC PROC=COPYPOFB,I=&WSL,O=WSL 01600099
//COPY.SYSIN DD * 01610099
COPY O=O1,I=((I1,R)) 01620099
SELECT M=C0008501 01630099
//RUNJES EXEC PROC=COPYVB,I=&ORUN,O=OUTPUT.RUN 01640099
//*RUNJES1 EXEC PROC=COPYVB,I=&ORUN.1,O=OUTPUT.RUN1 01650099
//*UNJES2 EXEC PROC=COPYVB,I=&ORUN.2,O=OUTPUT.RUN2 01660099
//*RUNLOA EXEC PROC=COPYVB,I=&OLOA,O=OUTPUT.LOA 01670099
}¢--- A540769.WK.JCL(ERRORDOD) cre=2009-09-08 mod=2009-09-08-13.48.25 A540769 ---
//YERRODOC JOB (PEK27456,0240,,9904),TSOJOB,MSGCLASS=T, 00010000
// NOTIFY=&SYSUID.,TIME=1440 00020000
//*MAIN CLASS=LOG 00030000
//* errordoc for object Compare 00040000
//* cat files blocksize --> like ??? 00050000
//* 00060000
//**********************************************************************00070000
//* VARIABLENDEFINITION: FEHLERNUMMER UND DATUM ANPASSEN|| 00080000
//**********************************************************************00090000
//SETVAR SET ID=187 DBA FEHLERNR 00100002
//SETVAR SET DAT=D090908 DATUM 00110000
//SETVAR SET DBXPRE=DSN.DBX ddl/cdl/etc mbr 00120000
//SETVAR SET CATMBR=WK92301A ddl/cdl/etc mbr 00130001
//SETVAR SET MASK=A540769.TX.CASE MASK LIBRARY 00140000
//**********************************************************************00150000
//* VARIABLENDEFINITION FUER OUTPUT 00160000
//* OUTPUT MUSS ZUERST AUS DEM EJ EXPORTIERT WERDEN|| 00170000
//**********************************************************************00180000
//SETVAR SET OCOM=&SYSUID..IBM.ER&ID..COM OUTPUT COMPARE 00190000
//SETVAR SET OCLO=&SYSUID..IBM.ER&ID..CLO OUTPUT IMPORT 00200000
//**********************************************************************00210000
//* VARIABLENDEFINITION 00220000
//**********************************************************************00230000
//SETVAR SET MASKC=&MASK(WK923MAS) MASK COMPARE 00240000
//SETVAR SET IGNOR=&MASK(DBAEMPTY) ignore 00250000
//SETVAR SET MASCL=&MASK(DBAEMPTY) MASK IMPORT 00260000
//SETVAR SET SVRS=&DBXPRE..SRCCAT(&CATMBR) SOURCE DDL 00270000
//SETVAR SET TVRS=&DBXPRE..TRGCAT(&CATMBR) TARGET DDL 00280000
//SETVAR SET WSL=DSN.DBA.CLON.WSL 00290000
//SETVAR SET WS2=DSN.DBA.DBAF.WSL 00300000
//* 00310000
//**********************************************************************00320000
//* copy Prozeduren: löschen, allozieren und kopieren 00330000
//**********************************************************************00340000
//* vb seqential 00350000
//COPYVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00360000
// IF RC <= 4 THEN 00370000
//DEL EXEC PGM=IEFBR14 00380000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00390000
// ENDIF 00400000
// IF RC <= 4 THEN 00410000
//COPY EXEC PGM=IEBGENER 00420000
//SYSPRINT DD SYSOUT=* 00430000
//SYSIN DD DUMMY 00440000
//SYSUT1 DD DISP=SHR,DSN=DSN.DBA.ALLOC.TEXTVB 00450000
// DD DISP=MOD,DSN=&I 00460000
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00470000
// MGMTCLAS=COM#A092, 00480000
// SPACE=(CYL,(5,2),RLSE), 00490000
// DCB=(DSORG=PS,RECFM=VB,LRECL=16384,BLKSIZE=32000) 00500000
// ENDIF 00510000
//COPYVB PEND 00520000
//* fb sequential 00530000
//COPYFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00540000
// IF RC <= 4 THEN 00550000
//DEL EXEC PGM=IEFBR14 00560000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00570000
// ENDIF 00580000
// IF RC <= 4 THEN 00590000
//COPY EXEC PGM=IEBGENER 00600000
//SYSPRINT DD SYSOUT=* 00610000
//SYSIN DD DUMMY 00620000
//SYSUT1 DD DISP=OLD,DSN=DSN.DBA.ALLOC.TEXTFB 00630000
// DD DISP=MOD,DSN=&I 00640000
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00650000
// MGMTCLAS=COM#A092, 00660000
// SPACE=(CYL,(5,2),RLSE), 00670000
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=27920) 00680000
// ENDIF 00690000
//COPYFB PEND 00700000
//* vb PDS 00710000
//COPYPOVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00720000
// IF RC <= 4 THEN 00730000
//DEL EXEC PGM=IEFBR14 00740000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00750000
// ENDIF 00760000
// IF RC <= 4 THEN 00770000
//COPY EXEC PGM=IEBCOPY 00780000
//SYSPRINT DD SYSOUT=* 00790000
//I1 DD DISP=MOD,DSN=&I 00800000
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00810000
// MGMTCLAS=COM#A092, 00820000
// SPACE=(CYL,(5,2,50),RLSE), 00830000
// DCB=(DSORG=PO,RECFM=VB,LRECL=2048) 00840000
// ENDIF 00850000
//COPYPOVB PEND 00860000
//* fb PDS 00870000
//COPYPOFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00880000
// IF RC <= 4 THEN 00890000
//DEL EXEC PGM=IEFBR14 00900000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00910000
// ENDIF 00920000
// IF RC <= 4 THEN 00930000
//COPY EXEC PGM=IEBCOPY 00940000
//SYSPRINT DD SYSOUT=* 00950000
//I1 DD DISP=MOD,DSN=&I 00960000
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00970000
// MGMTCLAS=COM#A092, 00980000
// SPACE=(CYL,(5,2,50),RLSE), 00990000
// DCB=(DSORG=PO,RECFM=FB,LRECL=80) 01000000
// ENDIF 01010000
//COPYPOFB PEND 01020000
//**********************************************************************01030000
//* kopieren 01040000
//**********************************************************************01050000
//* compare job datasets kopieren 01060000
//CMPJES EXEC PROC=COPYVB,I=&OCOM,O=OUTPUT.COMPARE 01070000
//CMPMASK EXEC PROC=COPYFB,I=&MASKC,O=MASK.COMPARE 01080000
//CMPIGNO EXEC PROC=COPYFB,I=&IGNOR,O=IGNORE 01090000
//SRCVRS EXEC PROC=COPYVB,I=&SVRS,O=SOURCE.VERSION 01100000
//TRGVRS EXEC PROC=COPYVB,I=&TVRS,O=TARGET.VERSION 01110000
//WSL EXEC PROC=COPYPOFB,I=&WSL,O=WSL 01120000
//COPY.SYSIN DD * 01130000
COPY O=O1,I=((I1,R)) 01140000
SELECT M=C0005967 01150000
//*DL EXEC PROC=COPYVB,I=&CDL,O=CDL 01160000
//*CD2 EXEC PROC=COPYVB,I=&CD2,O=CD2 01170000
//* import job datasets kopieren 01180000
//CLOJES EXEC PROC=COPYVB,I=&OCLO,O=OUTPUT.CLONE 01190000
//CLOMASK EXEC PROC=COPYFB,I=&MASCL,O=MASK.CLONE 01200000
//WSL EXEC PROC=COPYPOFB,I=&WSL,O=WSL 01210000
//COPY.SYSIN DD * 01220000
COPY O=O1,I=((I1,R)) 01230000
SELECT M=WK92301Q 01240000
//WS2 EXEC PROC=COPYPOFB,I=&WS2,O=WSLTO 01250000
//COPY.SYSIN DD * 01260000
COPY O=O1,I=((I1,R)) 01270000
SELECT M=WK92301C 01280000
//* run job datasets kopieren 01290000
}¢--- A540769.WK.JCL(ERRORDOE) cre=2009-11-12 mod=2009-11-12-13.08.27 A540769 ---
//YERRODOC JOB (PEK27456,0240,,9904),TSOJOB,MSGCLASS=T, 00010000
// NOTIFY=&SYSUID.,TIME=1440 00020000
//*MAIN CLASS=LOG 00030000
//* cat files blocksize --> like ??? 00040000
//* 00050000
//****** ohne vorkonkatinierte texte *********************************00060000
//* VARIABLENDEFINITION: FEHLERNUMMER UND DATUM ANPASSEN|| 00070000
//**********************************************************************00080000
//SETVAR SET ID=197 DBA FEHLERNR 00090000
//SETVAR SET DAT=D091112 DATUM 00100000
//SETVAR SET CHANGE=C0006306 00110000
//SETVAR SET CHATIM=AN175812 00120000
//SETVAR SET DBXPRE=DSN.DBX PRÄFIX DBX 00130000
//SETVAR SET DBQPRE=DSN.DBQ PRÄFIX DBX 00140000
//SETVAR SET DBXMBR=PC220011 ddl/cdl/etc mbr 00150000
//SETVAR SET DBXMB2=WK910011VERGESSEN ddl/cdl/etc mbr 00160000
//SETVAR SET MASK=A540769.TX.CASE MASK LIBRARY 00170000
//SETVAR SET MASK=DSN.DBX.MASK MASK LIBRARY 00180000
//SETVAR SET WORK=DSN.DBA.DBAF prefix work 00190000
//SETVAR SET RUNJ=DSN.DBA.DBAF.RUN.JCL pds for runJcl 00200000
//**********************************************************************00210000
//* VARIABLENDEFINITION FUER OUTPUT 00220000
//* OUTPUT MUSS ZUERST AUS DEM EJ EXPORTIERT WERDEN|| 00230000
//**********************************************************************00240000
//SETVAR SET OCOM=&SYSUID..IBM.ER&ID..COM OUTPUT COMPARE 00250000
//SETVAR SET OIMP=&SYSUID..IBM.ER&ID..IMP OUTPUT IMPORT 00260000
//SETVAR SET OANA=&SYSUID..IBM.ER&ID..ANA OUTPUT ANALYZE 00270000
//SETVAR SET ORUN=&SYSUID..IBM.ER&ID..RUN OUTPUT RUN 00280000
//**********************************************************************00290000
//* VARIABLENDEFINITION 00300000
//**********************************************************************00310000
//SETVAR SET MASKC=&MASK(DBTWAL) MASK COMPARE 00320000
//SETVAR SET MASKC=&MASK(PROTDBA2) MASK COMPARE 00330000
//SETVAR SET IGNOR=&MASK(DBAEMPTY) ignore 00340000
//SETVAR SET IGNOR=&MASK(IGNORE) ignore 00350000
//SETVAR SET MASKI=&MASK(DBAEMPTY) MASK IMPORT 00360000
//SETVAR SET MASKI=&MASK(DBAFDBAF) MASK IMPORT 00370000
//SETVAR SET CDL=&DBXPRE..CDL(&DBXMBR) CDL MEMBER 00380000
//*ETVAR SET CD2=&DBXPRE..CDL(&DBXMB2) CDL MEMBER 00390000
//SETVAR SET SDDL=&DBXPRE..SRCDDL(&DBXMBR) SOURCE DDL 00400000
//SETVAR SET SVRS=&DBXPRE..SRCCAT(&DBXMBR) SOURCE DDL 00410000
//SETVAR SET TDDL=&DBXPRE..TRGDDL(&DBXMBR) TARGET DDL 00420000
//SETVAR SET TVRS=&DBXPRE..TRGCAT(&DBXMBR) TARGET DDL 00430000
//*SETVAR SET OVER=&MASK(OVERRIDE) OVERRIDE 00440000
//SETVAR SET SHRV=&WORK..&CHANGE..&CHATIM..SHV 00450000
//SETVAR SET CHAN=&WORK..&CHANGE..&CHATIM..CHG 00460000
//SETVAR SET WSL=DSN.DBQ.DQ0G.ANA.WSL 00470000
//SETVAR SET WSL=&WORK..ANA.WSL 00480000
//SETVAR SET IFF=&WORK..&CHANGE..&CHATIM..IFF 00490000
//* 00500000
//**********************************************************************00510000
//* copy Prozeduren: löschen, allozieren und kopieren 00520000
//**********************************************************************00530000
//* vb seqential 00540000
//COPYVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00550000
// IF RC <= 4 THEN 00560000
//DEL EXEC PGM=IEFBR14 00570000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00580000
// ENDIF 00590000
// IF RC <= 4 THEN 00600000
//COPY EXEC PGM=IEBGENER 00610000
//SYSPRINT DD SYSOUT=* 00620000
//SYSIN DD DUMMY 00630000
//*YSUT1 DD DISP=SHR,DSN=DSN.DBA.ALLOC.TEXTVB 00640000
//SYSUT1 DD DISP=MOD,DSN=&I 00650000
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00660000
// MGMTCLAS=COM#A092, 00670000
// SPACE=(CYL,(5,2),RLSE), 00680000
// DCB=(DSORG=PS,RECFM=VB,LRECL=16384,BLKSIZE=32000) 00690000
// ENDIF 00700000
//COPYVB PEND 00710000
//* fb sequential 00720000
//COPYFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00730000
// IF RC <= 4 THEN 00740000
//DEL EXEC PGM=IEFBR14 00750000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00760000
// ENDIF 00770000
// IF RC <= 4 THEN 00780000
//COPY EXEC PGM=IEBGENER 00790000
//SYSPRINT DD SYSOUT=* 00800000
//SYSIN DD DUMMY 00810000
//*YSUT1 DD DISP=OLD,DSN=DSN.DBA.ALLOC.TEXTFB 00820000
//SYSUT1 DD DISP=MOD,DSN=&I 00830000
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00840000
// MGMTCLAS=COM#A092, 00850000
// SPACE=(CYL,(5,2),RLSE), 00860000
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=27920) 00870000
// ENDIF 00880000
//COPYFB PEND 00890000
//* vb PDS 00900000
//COPYPOVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00910000
// IF RC <= 4 THEN 00920000
//DEL EXEC PGM=IEFBR14 00930000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00940000
// ENDIF 00950000
// IF RC <= 4 THEN 00960000
//COPY EXEC PGM=IEBCOPY 00970000
//SYSPRINT DD SYSOUT=* 00980000
//I1 DD DISP=MOD,DSN=&I 00990000
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 01000000
// MGMTCLAS=COM#A092, 01010000
// SPACE=(CYL,(5,2,50),RLSE), 01020000
// DCB=(DSORG=PO,RECFM=VB,LRECL=2048) 01030000
// ENDIF 01040000
//COPYPOVB PEND 01050000
//* fb PDS 01060000
//COPYPOFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 01070000
// IF RC <= 4 THEN 01080000
//DEL EXEC PGM=IEFBR14 01090000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 01100000
// ENDIF 01110000
// IF RC <= 4 THEN 01120000
//COPY EXEC PGM=IEBCOPY 01130000
//SYSPRINT DD SYSOUT=* 01140000
//I1 DD DISP=MOD,DSN=&I 01150000
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 01160000
// MGMTCLAS=COM#A092, 01170000
// SPACE=(CYL,(5,2,50),RLSE), 01180000
// DCB=(DSORG=PO,RECFM=FB,LRECL=80) 01190000
// ENDIF 01200000
//COPYPOFB PEND 01210000
//**********************************************************************01220000
//* kopieren 01230000
//**********************************************************************01240000
//* compare job datasets kopieren 01250000
//CMPJES EXEC PROC=COPYVB,I=&OCOM,O=OUTPUT.COMPARE 01260000
//CMPMASK EXEC PROC=COPYFB,I=&MASKC,O=MASK.COMPARE 01270000
//CMPIGNO EXEC PROC=COPYFB,I=&IGNOR,O=IGNORE 01280000
//*CMPOVER EXEC PROC=COPYFB,I=&OVER,O=OVERRIDE 01290000
//SRCDDL EXEC PROC=COPYFB,I=&SDDL,O=SOURCE.DDL 01300000
//SRCVRS EXEC PROC=COPYVB,I=&SVRS,O=SOURCE.VERSION 01310000
//TRGDDL EXEC PROC=COPYFB,I=&TDDL,O=TARGET.DDL 01320000
//TRGVRS EXEC PROC=COPYVB,I=&TVRS,O=TARGET.VERSION 01330000
//CDL EXEC PROC=COPYVB,I=&CDL,O=CDL 01340000
//*CD2 EXEC PROC=COPYVB,I=&CD2,O=CD2 01350000
//* import job datasets kopieren 01360000
//IMPJES EXEC PROC=COPYVB,I=&OIMP,O=OUTPUT.IMPORT 01370000
//IMPMASK EXEC PROC=COPYFB,I=&MASKI,O=MASK.IMPORT 01380000
//* analyze job datasets kopieren 01390000
//ANAJES EXEC PROC=COPYVB,I=&OANA,O=OUTPUT.ANALYZE 01400000
//** ANAJESNO EXEC PROC=COPYVB,I=&OANA.NOVA,O=OUTPUT.ANANOVA 01410000
//CHANGES EXEC PROC=COPYVB,I=&CHAN,O=CHANGES 01420000
//IFF EXEC PROC=COPYPOVB,I=&IFF,O=IFF 01430000
//COPY.SYSIN DD * 01440000
COPY O=O1,I=((I1,R)) 01450000
//SHRVARS EXEC PROC=COPYPOFB,I=&SHRV,O=SHRVARS 01460000
//COPY.SYSIN DD * 01470000
COPY O=O1,I=((I1,R)) 01480000
//RUNJCL EXEC PROC=COPYPOFB,I=&RUNJ,O=RUNJCL 01490000
//COPY.SYSIN DD * 01500000
COPY O=O1,I=((I1,R)) 01510000
SELECT M=E0006306 01520000
//WSL EXEC PROC=COPYPOFB,I=&WSL,O=WSL 01530000
//COPY.SYSIN DD * 01540000
COPY O=O1,I=((I1,R)) 01550000
SELECT M=C0006306 01560000
//* run job datasets kopieren 01570000
//RUNJES EXEC PROC=COPYVB,I=&ORUN,O=OUTPUT.RUN 01580000
}¢--- A540769.WK.JCL(ERRORDOW) cre=2010-10-06 mod=2011-06-09-16.49.51 A540769 ---
//YERRODOC JOB (PEK27456,0240,,9904),TSOJOB,MSGCLASS=T, 00010008
// NOTIFY=&SYSUID.,TIME=1440 00020008
//*MAIN CLASS=LOG 00030008
//* cat files blocksize --> like ??? 00040008
//* 00050008
//**********************************************************************00060008
//* VARIABLENDEFINITION: FEHLERNUMMER UND DATUM ANPASSEN|| 00070008
//**********************************************************************00080008
//SETVAR SET ID=251 DBA FEHLERNR 00090008
//SETVAR SET DAT=D110609 DATUM 00100008
//SETVAR SET WSL=WK98401Q DATUM 00110008
//SETVAR SET WSLL=DSN.DBA.CLON.WSL(&WSL) DATUM 00120008
//SETVAR SET CHANGE=C00113XX 00130008
//SETVAR SET CHATIM=AN1424XX 00140008
//SETVAR SET DBXPRE=DSN.DBQ PRÄFIX DBX 00150008
//SETVAR SET DBXPRE=DSN.DBX PRÄFIX DBX 00160008
//SETVAR SET DBXMBR=WK984010 ddl/cdl/etc mbr 00170008
//SETVAR SET DBXMB2=NI021390VERGESSEN ddl/cdl/etc mbr 00180008
//SETVAR SET MASK=DSN.DBX.MASK MASK LIBRARY 00190008
//SETVAR SET MASK=A540769.TX.CASE MASK LIBRARY 00200008
//SETVAR SET PRE=DSN.DBA prefix work 00210008
//SETVAR SET WORK=&PRE..DBAF prefix work 00220008
//SETVAR SET RUNJ=DSN.DBA.DBAF.RUN.JCL pds for runJcl 00230008
//**********************************************************************00240008
//* VARIABLENDEFINITION FUER OUTPUT 00250008
//* OUTPUT MUSS ZUERST AUS DEM EJ EXPORTIERT WERDEN|| 00260008
//**********************************************************************00270008
//SETVAR SET OCOM=&SYSUID..IBM.ER&ID..COM OUTPUT COMPARE 00280008
//SETVAR SET OIMP=&SYSUID..IBM.ER&ID..IMP OUTPUT IMPORT 00290008
//SETVAR SET OANA=&SYSUID..IBM.ER&ID..ANA OUTPUT ANALYZE 00300008
//SETVAR SET ORUN=&SYSUID..IBM.ER&ID..RUN OUTPUT RUN 00310008
//SETVAR SET OLOA=&SYSUID..IBM.ER&ID..LOA OUTPUT RUN 00320008
//**********************************************************************00330008
//* VARIABLENDEFINITION 00340008
//**********************************************************************00350008
//SETVAR SET MASKC=&MASK(PROTDBAF) MASK COMPARE 00360008
//SETVAR SET MASKC=&MASK(WK974MSK) MASK COMPARE 00370008
//SETVAR SET MASKC=&MASK(DBTWAL4) mask 00380008
//SETVAR SET IGNOR=&MASK(IGNORE) ignore 00390008
//SETVAR SET IGNOR=&MASK(WK983IGN) ignore 00400008
//SETVAR SET IGNOR=&MASK(DBAEMPTY) ignore 00410008
//SETVAR SET MASKI=&MASK(TWALDQ0G) MASK IMPORT 00420008
//SETVAR SET MASKI=&MASK(DBAFDBTF) MASK IMPORT 00430008
//SETVAR SET MASKI=&MASK(WK974MSI) MASK COMPARE 00440008
//SETVAR SET MASKI=&MASK(DBAEMPTY) MASK IMPORT 00450008
//SETVAR SET CDL=&DBXPRE..CDL(&DBXMBR) CDL MEMBER 00460008
//*ETVAR SET CD2=&DBXPRE..CDL(&DBXMB2) CDL MEMBER 00470008
//SETVAR SET SDDL=&DBXPRE..SRCDDL(&DBXMBR) SOURCE DDL 00480008
//SETVAR SET SVRS=&DBXPRE..SRCCAT(&DBXMBR) SOURCE DDL 00490008
//SETVAR SET TDDL=&DBXPRE..TRGDDL(&DBXMBR) TARGET DDL 00500008
//SETVAR SET TVRS=&DBXPRE..TRGCAT(&DBXMBR) TARGET DDL 00510008
//*SETVAR SET OVER=&MASK(OVERRIDE) OVERRIDE 00520008
//SETVAR SET SHRV=&PRE..&WSL..SHV 00530008
//SETVAR SET CHAN=&PRE..&WSL..CHG 00540008
//SETVAR SET IFF=&PRE..&WSL..IFF 00550008
//* 00560008
//**********************************************************************00570008
//* copy Prozeduren: löschen, allozieren und kopieren 00580008
//**********************************************************************00590008
//* vb seqential 00600008
//COPYVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00610008
// IF RC <= 4 THEN 00620008
//DEL EXEC PGM=IEFBR14 00630008
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00640008
// ENDIF 00650008
// IF RC <= 4 THEN 00660008
//COPY EXEC PGM=IEBGENER 00670008
//SYSPRINT DD SYSOUT=* 00680008
//SYSIN DD DUMMY 00690008
//SYSUT1 DD DISP=SHR,DSN=DSN.DBA.ALLOC.TEXTVB 00700008
// DD DISP=MOD,DSN=&I 00710008
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00720008
// MGMTCLAS=COM#A092, 00730008
// SPACE=(CYL,(5,2),RLSE), 00740008
// DCB=(DSORG=PS,RECFM=VB,LRECL=16384,BLKSIZE=32000) 00750008
// ENDIF 00760008
//COPYVB PEND 00770008
//* fb sequential 00780008
//COPYFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00790008
// IF RC <= 4 THEN 00800008
//DEL EXEC PGM=IEFBR14 00810008
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 00820008
// ENDIF 00830008
// IF RC <= 4 THEN 00840008
//COPY EXEC PGM=IEBGENER 00850008
//SYSPRINT DD SYSOUT=* 00860008
//SYSIN DD DUMMY 00870008
//SYSUT1 DD DISP=OLD,DSN=DSN.DBA.ALLOC.TEXTFB 00880008
// DD DISP=MOD,DSN=&I 00890008
//SYSUT2 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 00900008
// MGMTCLAS=COM#A092, 00910008
// SPACE=(CYL,(5,2),RLSE), 00920008
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=27920) 00930008
// ENDIF 00940008
//COPYFB PEND 00950008
//* vb PDS 00960008
//COPYPOVB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 00970008
// IF RC <= 4 THEN 00980008
//DEL EXEC PGM=IEFBR14 00990008
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 01000008
// ENDIF 01010008
// IF RC <= 4 THEN 01020008
//COPY EXEC PGM=IEBCOPY 01030008
//SYSPRINT DD SYSOUT=* 01040008
//I1 DD DISP=MOD,DSN=&I 01050008
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 01060008
// MGMTCLAS=COM#A092, 01070008
// SPACE=(CYL,(5,2,50),RLSE), 01080008
// DCB=(DSORG=PO,RECFM=VB,LRECL=2048) 01090008
// ENDIF 01100008
//COPYPOVB PEND 01110008
//* fb PDS 01120008
//COPYPOFB PROC I=INPUTVERGESSEN,O=OUTPUTVERGESSEN 01130008
// IF RC <= 4 THEN 01140008
//DEL EXEC PGM=IEFBR14 01150008
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=DSN.IBM.ER&ID..&DAT..&O 01160008
// ENDIF 01170008
// IF RC <= 4 THEN 01180008
//COPY EXEC PGM=IEBCOPY 01190008
//SYSPRINT DD SYSOUT=* 01200008
//I1 DD DISP=MOD,DSN=&I 01210008
//O1 DD DISP=(NEW,CATLG,CATLG),DSN=DSN.IBM.ER&ID..&DAT..&O, 01220008
// MGMTCLAS=COM#A092, 01230008
// SPACE=(CYL,(5,2,50),RLSE), 01240008
// DCB=(DSORG=PO,RECFM=FB,LRECL=80) 01250008
// ENDIF 01260008
//COPYPOFB PEND 01270008
//**********************************************************************01280008
//* kopieren 01290008
//**********************************************************************01300008
//* compare job datasets kopieren 01310008
//CMPJES EXEC PROC=COPYVB,I=&OCOM,O=OUTPUT.COMPARE 01320008
//CMPMASK EXEC PROC=COPYFB,I=&MASKC,O=MASK.COMPARE 01330008
//CMPIGNO EXEC PROC=COPYFB,I=&IGNOR,O=IGNORE 01340008
//*CMPOVER EXEC PROC=COPYFB,I=&OVER,O=OVERRIDE 01350008
//SRCDDL EXEC PROC=COPYFB,I=&SDDL,O=SOURCE.DDL 01360008
//SRCVRS EXEC PROC=COPYVB,I=&SVRS,O=SOURCE.VERSION 01370008
//TRGDDL EXEC PROC=COPYFB,I=&TDDL,O=TARGET.DDL 01380008
//TRGVRS EXEC PROC=COPYVB,I=&TVRS,O=TARGET.VERSION 01390008
//*CDL EXEC PROC=COPYVB,I=&CDL,O=CDL 01400008
//*D2 EXEC PROC=COPYVB,I=&CD2,O=CD2 01410008
//* import job datasets kopieren 01420008
//*IMPJES EXEC PROC=COPYVB,I=&OIMP,O=OUTPUT.IMPORT 01430008
//*IMPMASK EXEC PROC=COPYFB,I=&MASKI,O=MASK.IMPORT 01440008
//* analyze job datasets kopieren 01450008
//*ANAJES EXEC PROC=COPYVB,I=&OANA,O=OUTPUT.ANALYZE 01460008
//** ANAJESNO EXEC PROC=COPYVB,I=&OANA.NOVA,O=OUTPUT.ANANOVA 01470008
//CHANGES EXEC PROC=COPYVB,I=&CHAN,O=CHANGES 01480008
//*IFF EXEC PROC=COPYPOVB,I=&IFF,O=IFF 01490008
//*COPY.SYSIN DD * 01500008
//* COPY O=O1,I=((I1,R)) 01510008
//SHRVARS EXEC PROC=COPYPOFB,I=&SHRV,O=SHRVARS 01520008
//COPY.SYSIN DD * 01530008
COPY O=O1,I=((I1,R)) 01540008
//WSL EXEC PROC=COPYPOFB,I=&WSLL,O=WSL 01550008
//COPY.SYSIN DD * 01560008
COPY O=O1,I=((I1,R)) 01570008
SELECT M=WK98401Q 01580008
//RUNJES EXEC PROC=COPYVB,I=&ORUN,O=OUTPUT.RUN 01590008
//*RUNJES1 EXEC PROC=COPYVB,I=&ORUN.1,O=OUTPUT.RUN1 01600008
//*UNJES2 EXEC PROC=COPYVB,I=&ORUN.2,O=OUTPUT.RUN2 01610008
//*RUNLOA EXEC PROC=COPYVB,I=&OLOA,O=OUTPUT.LOA 01620008
}¢--- A540769.WK.JCL(EXABEND) cre=2006-05-05 mod=2006-05-05-17.58.39 F540769 ---
//A540769Z JOB (CP00,KE50) 00010001
//*MAIN CLASS=CMNA 00020000
//S0 EXEC PGM=IEFBR14 00030000
//S1 EXEC PGM=GIBTESNI 00040000
//NOIF EXEC PGM=IEFBR14 00050000
// IF RC > 0 THEN 00060000
//IFGT0 EXEC PGM=IEFBR14 00070000
// ENDIF 00080000
// IF ABEND THEN 00090000
//ABEND EXEC PGM=IEFBR14 00100000
// ENDIF 00110000
//EVEN EXEC PGM=IEFBR14,COND=EVEN 00120000
}¢--- A540769.WK.JCL(EXALLOC) cre=2013-08-07 mod=2014-08-07-12.48.19 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//*--- alloc tmp library --------------------------------------------
//DEL EXEC PGM=IEFBR14
//LIB DD DISP=(MOD,DELETE),DSN=A540769.TST.EXALLOC.LIB
//VBS DD DISP=(MOD,DELETE),DSN=A540769.TST.EXALLOC.VBS
//VBSTSO DD DISP=(MOD,DELETE),DSN=A540769.TST.EXALLOC.VBSTSO
//ALLOC EXEC PGM=IEFBR14
//* ------------------------- alloc a new temporary library -----------
//LIB DD DISP=(MOD,CATLG,CATLG),DSN=*.DEL.LIB,
// DATACLAS=UN0000E0,MGMTCLAS=BAT#AT,DSNTYPE=LIBRARY,
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),SPACE=(CYL,(1,10))
//* ------------------------- alloc a spanned vbs dataset -------------
//* like utility unload spanned yes
//VBS DD DISP=(NEW,CATLG),DSN=*.DEL.VBS,
// MGMTCLAS=COM#E005,DATACLAS=NULL30,
// DCB=(RECFM=VBS,DSORG=PS,BLKSIZE=27998,LRECL=X),
// SPACE=(CYL,(1,50))
//* ispf shows the following which is illegal
//* DCB=(LRECL=32768,BLKSIZE=27998,RECFM=VBS,DSORG=PS),
//VBSWSH DD *
$#@
$** alloc with tso also works with x
call dsnalloc 'A540769.TST.EXALLOC.VBSTSO' ,
': recfm(v b s) lrecl(x) BLKSIZE(27998)'
}¢--- A540769.WK.JCL(EXARGS) cre=2013-06-01 mod=2013-06-01-10.32.47 A540769 ----
//A540769C JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//SYSTSIN DD *
exargs eins a b c b so lala
exargs zwei e f ghij k01 c - b-
und folgen zeile 02 d- c -
und folgen zeile 03 e - d-
und folgen zeile 04 ff - e -
und folgen zeile 05 g- f -
und folgen zeile 06 - g-
und folgen zeile 07 - -
und folgen zeile 08 - -
und folgen zeile 09 - -
und folgen zeile 10 b- -
und folgen zeile 11 c - b-
und folgen zeile 12 d- c -
und folgen zeile 13 e - d-
und folgen zeile 14 ff - e -
und folgen zeile 15 g- f -
und folgen zeile 16 - g-
und folgen zeile 17 - -
und folgen zeile 18 - -
und folgen zeile 19 - -
und folgen zeile 20 b- -
und folgen zeile 21 c - b-
8nd folgen zeile 22 DD c -
und folgen zeile 23 D -
und folgen zeile 24 d- d-
und folgen zeile 25 e - e -
und folgen zeile 26 f - f -
und folgen zeile 27 g- g-
und folgen zeile 28 - -
und folgen zeile 29 - -
und folgen zeile 30 - -
und folgen zeile 31 - -
und folgen zeile 32 b- b-
und folgen zeile 33 c - c -
und folgen zeile 34 d- d-
und folgen zeile 35 e - e -
und folgen zeile 36 f - f -
und folgen zeile 37 g- g-
und folgen zeile 38 - -
und folgen zeile 39 - -
und bis hier 40 | |
exargs drei schluss 43 |
}¢--- A540769.WK.JCL(EXDB2LOG) cre=2014-09-29 mod=2014-10-03-16.05.10 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
// SET RZ=RZ2 00041018
// SET ZZ=RZ2 00041118
// SET DBSYS=DBOF 00041218
// SET PRE=DSN.ABLF.LOGE2.&RZ. 00041317
// SET PRP=&DBSYS..DBAA.ABLF.LOGE2 00041418
//* SET PRP=&PRE. rz4, dp4g ist verboten 00041517
//************************************* delete and allocate 00042007
//DEL EXEC PGM=IEFBR14 00050000
//PARMNEW DD DSN=&PRP..PARMNEW, 00060016
// DISP=(MOD,DELETE,DELETE) 00070000
//PARMOLD DD DSN=&PRP..PARMOLD, 00071016
// DISP=(MOD,CATLG,CATLG), 00071100
// MGMTCLAS=COM#A091,SPACE=(TRK,(1,10),RLSE), 00072000
// DCB=(RECFM=FB,LRECL=80) 00074000
//EJESEXT DD DSN=&PRE..EJESEXT, 00080000
// DISP=(MOD,DELETE,DELETE) 00090000
//BETAREPA DD DSN=&PRE..BETAREPA, 00091007
// DISP=(MOD,DELETE,DELETE) 00092002
//BETAFIPA DD DSN=&PRE..BETAFIPA, 00092113
// DISP=(MOD,DELETE,DELETE) 00092213
//BETAEXPA DD DSN=&PRE..BETAEXPA, 00092307
// DISP=(MOD,DELETE,DELETE) 00092407
//BETAREP DD DSN=&PRE..BETAREP, 00093005
// DISP=(MOD,DELETE,DELETE) 00094005
//BETAEXT DD DSN=&PRE..BETAEXT, 00100000
// DISP=(MOD,DELETE,DELETE) 00110000
//************************************* tso exDb2Log fun1 00111007
//FUN1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00120000
// PARM='%exDB2Log 1' 00130015
//SYSIN DD DUMMY 00150015
//SYSTSIN DD DUMMY 00160015
//SYSTSPRT DD SYSOUT=* 00170015
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00210015
//PARMOLD DD DSN=*.DEL.PARMOLD,DISP=SHR 00211003
//PARMNEW DD DSN=*.DEL.PARMNEW, 00211102
// DISP=(NEW,CATLG,CATLG), 00212000
// MGMTCLAS=COM#A091,SPACE=(TRK,(1,10),RLSE), 00213000
// DCB=(RECFM=FB,LRECL=80) 00214000
//BETAREPA DD DSN=*.DEL.BETAREPA, 00214107
// DISP=(NEW,CATLG,CATLG), 00214202
// MGMTCLAS=COM#A091,SPACE=(TRK,(1,10),RLSE), 00214302
// DCB=(RECFM=FB,LRECL=80) 00214402
//EJESEXT DD DSN=*.DEL.EJESEXT, 00215001
// DISP=(MOD,CATLG,CATLG), 00216001
// MGMTCLAS=COM#A091,SPACE=(CYL,(10,100),RLSE), 00217001
// DCB=(RECFM=VB,LRECL=133) 00218010
//BETAEXT DD DSN=*.DEL.BETAEXT, 00218119
// DISP=(MOD,CATLG,CATLG), 00218219
// MGMTCLAS=COM#A091,SPACE=(CYL,(10,100),RLSE), 00218319
// DCB=(RECFM=VB,LRECL=133) 00218419
//************************************* beta: report D***MSTR 00218507
//BETAREP EXEC PGM=BST01RFF,REGION=0M, 00219005
// PARM=('S=92,B01LST=00,B92LST=00', 00220005
// 'PGM=B92BFJBR') 00230005
//STEPLIB DD DISP=SHR, 00250007
// DSN=BSA.U0000.P0.&ZZ.I.LOAD 00260017
// DD DISP=SHR, 00270007
// DSN=B92.U0000.P0.&ZZ.I.LOAD 00280017
//B92DEF DD DUMMY 00300007
//SFFPARM DD DISP=SHR, 00320007
// DSN=BSA.U0000.P0.&ZZ.I.PARM 00330017
//SFFFDUMP DD SYSOUT=* 00350007
//SYSUDUMP DD SYSOUT=* 00360007
//OMSPRINT DD DSN=*.DEL.BETAREP, 00371005
// DISP=(NEW,CATLG,CATLG), 00372005
// MGMTCLAS=COM#A091,SPACE=(CYL,(1,10),RLSE), 00373005
// DCB=(RECFM=VB,LRECL=133) 00374010
//SYSIN DD DISP=SHR,DSN=*.DEL.BETAREPA 00380007
//************************************* tso exDb2Log fun1 00390007
//FUN2 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00400007
// PARM='%exDB2Log 2 &PRE..BETAEXT' 00410015
//SYSIN DD DUMMY 00430015
//SYSTSIN DD DUMMY 00440015
//SYSTSPRT DD SYSOUT=* 00450015
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00480015
//PARMNEW DD DSN=*.DEL.PARMNEW, 00500007
// DISP=SHR 00510007
//BETAREP DD DSN=*.DEL.BETAREP, 00520008
// DISP=SHR 00521008
//BETAEXPA DD DSN=*.DEL.BETAEXPA, 00522009
// DISP=(NEW,CATLG,CATLG), 00523009
// MGMTCLAS=COM#A091,SPACE=(TRK,(1,10),RLSE), 00524009
// DCB=(RECFM=FB,LRECL=80) 00525009
//BETAFIPA DD DSN=*.DEL.BETAFIPA, 00526013
// DISP=(NEW,CATLG,CATLG), 00527013
// MGMTCLAS=COM#A091,SPACE=(TRK,(1,10),RLSE), 00528013
// DCB=(RECFM=FB,LRECL=80) 00529013
//************************************* beta finad and restore 00610213
// IF FUN2.RUN AND FUN2.RC = 0 THEN 00610315
//BETAFIND EXEC PGM=BST01RFF,REGION=0M, 00610413
// PARM=('S=92,B01LST=00,B92LST=00', 00610513
// 'PGM=B92FFIND') 00610613
//STEPLIB DD DISP=SHR, 00610713
// DSN=BSA.U0000.P0.&ZZ.I.LOAD 00610817
// DD DISP=SHR, 00610913
// DSN=B92.U0000.P0.&ZZ.I.LOAD 00611017
//B92DEF DD DUMMY 00611113
//SFFPARM DD DISP=SHR, 00611213
// DSN=BSA.U0000.P0.&ZZ.I.PARM 00611317
//SFFFDUMP DD SYSOUT=* 00611413
//SYSUDUMP DD SYSOUT=* 00611513
//OMSPRINT DD SYSOUT=* 00611613
//B92LOG DD SYSOUT=* 00611713
//SYSIN DD DSN=*.DEL.BETAFIPA, 00611814
// DISP=SHR 00611913
//************************************* beta extract 00612013
//BETAEXT EXEC PGM=BST01RFF,REGION=0M, 00620007
// PARM=('S=92,B01LST=00,B92LST=00', 00630007
// 'PGM=B92PRINT') 00640007
//STEPLIB DD DISP=SHR, 00660007
// DSN=BSA.U0000.P0.&ZZ.I.LOAD 00670017
// DD DISP=SHR, 00680007
// DSN=B92.U0000.P0.&ZZ.I.LOAD 00690017
//B92DEF DD DUMMY 00710007
//SFFPARM DD DISP=SHR, 00730007
// DSN=BSA.U0000.P0.&ZZ.I.PARM 00740017
//SFFFDUMP DD SYSOUT=* 00760007
//SYSUDUMP DD SYSOUT=* 00770007
//OMSPRINT DD SYSOUT=* 00780007
//B92LOG DD SYSOUT=* 00790007
//SYSIN DD DSN=*.DEL.BETAEXPA, 00810007
// DISP=SHR 00820007
// ENDIF 00821015
//FUN3 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00830011
// PARM='%exDB2Log 3' 00840016
//SYSIN DD DUMMY 00850011
//SYSTSIN DD DUMMY 00860011
//SYSTSPRT DD SYSOUT=* 00870011
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00900011
//PARMNEW DD DISP=SHR,DSN=*.DEL.PARMNEW 00910016
//DDIN1 DD DISP=SHR,DSN=*.DEL.EJESEXT 00930012
// DD DISP=SHR,DSN=*.DEL.BETAEXT 00931012
}¢--- A540769.WK.JCL(EXDEADLI) cre=2007-07-10 mod=2014-01-30-16.41.41 A540769 ---
//A540769Q JOB (CP00,KE50),'DB2 REO', 00011009
// MSGCLASS=T,TIME=1440, 00012009
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00013009
//*MAIN CLASS=LOG,DEADLINE=(60M,A),HOLD=YES 00020009
//CP EXEC PGM=IEBGENER start job again in a loop 00030009
//*P EXEC PGM=IEFBR14 do nothing 00040009
//SYSPRINT DD SYSOUT=* 00050001
//SYSUT1 DD DISP=SHR,DSN=A540769.WK.JCL(EXDEADLI) 00060008
//SYSUT2 DD SYSOUT=(A,INTRDR) 00070001
//ABC DD * 00080000
JOBCARD: 00090000
//*MAIN CLASS=LOG,DEADLINE=(0930,A),HOLD=YES 00100005
//*MAIN CLASS=VTAM,DEADLINE=(15M,A),HOLD=YES -> LÄUFT IN 15MIN 00110000
//*MAIN CLASS=VTAM,DEADLINE=(0630,A,1,WEEKLY),HOLD=YES 00120000
//*MAIN CLASS=VTAM,DEADLINE=(2000,A),HOLD=YES 00130000
//*MAIN CLASS=VTAM,DEADLINE=(2100,A,07/31/2003),HOLD=YES 00140000
00150000
1=SONNTAG 00160000
00170000
DEADLINE=(<TIME>, <TYPE>, <DATE> ),HOLD=YES 00180000
<TIME> IM FORMAT HHMM, 24-STUNDEN MODUS 00190000
<TYPE> IST 'A' 00200000
<DATE> IM FORMAT MM/DD/YYYY, NACH 2000 OBLIGATORIS00210000
}¢--- A540769.WK.JCL(EXDLM) cre=2011-03-30 mod=2011-05-27-17.05.00 A540769 -----
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG 00040000
//CP EXEC PGM=IEBGENER 00050000
//SYSPRINT DD SYSOUT=* 00060000
//SYSUT2 DD SYSOUT=(,INTRDR) 00070000
//* achtung, dlm höchstens 2 Zeichen lang 00080001
//SYSUT1 DD *,DLM='e1' 00090000
//A540769X JOB (CP00,KE50),'DB2 REO', 00100000
// MSGCLASS=T,TIME=1440, 00110000
// NOTIFY=&SYSUID,REGION=0M 00120000
//*MAIN CLASS=LOG 00130000
//S1 EXEC PGM=IEFBR14 00140000
e1 00150000
//* komm schon 00160000
}¢--- A540769.WK.JCL(EXDT) cre=2012-11-27 mod=2012-11-27-13.08.00 A540769 ------
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0 00040000
//A EXEC PGM=IEFBR14 00050000
//C DD DISP=(NEW,CATLG),DSN=A540769.TMP.EXDB.C.#DT# 00060000
//D DD DISP=(NEW,CATLG),DSN=A540769.TMP.EXDB.D.#DT# 00070000
//E EXEC PGM=IEFBR14 00080000
//F DD DISP=(NEW,CATLG),DSN=A540769.TMP.EXDB.F.#DT# 00090000
//G DD DISP=(NEW,CATLG),DSN=A540769.TMP.EXDB.G.#DT# 00100000
}¢--- A540769.WK.JCL(EXEJES) cre=2014-09-23 mod=2014-09-29-12.03.06 A540769 ----
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
//P004 EXEC PGM=IKJEFT01,REGION=24M,DYNAMNBR=24 00050000
//EJESEXT DD UNIT=3390,DISP=(NEW,CATLG,DELETE), 00060000
// DSN=A540769.TST.EJESEXT, 00070000
// SPACE=(CYL,(100,1000)),DCB=(BUFNO=20),MGMTCLAS=COM#E012 00080000
//SYSABEND DD SYSOUT=* 00090000
//SYSTSPRT DD SYSOUT=* 00100000
//SYSTSIN DD * 00110000
EJES SRESET 00120000
J=A540769;U= 00130000
ECHO 00131001
STATUS 00140000
SELECT * E 00160001
END 00210000
//SYSTSI2 DD * 00220001
EJES SRESET 00230001
J=A540769;U= 00240001
STATUS 00250001
F DBP1MSTR FIRST 00260001
:S 00270001
F JESMSGLG FIRST 00280001
:E 00290001
ECHO 00300001
ECHO OFF 00310001
END 00320001
}¢--- A540769.WK.JCL(EXIEBCOP) cre=2013-01-18 mod=2016-08-23-12.35.19 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//COPY EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//IN1 DD DISP=SHR,DSN=A540769.WK.JCL
//OU1 DD DISP=SHR,DSN=A540769.TMP.TEXT333
COPY O=OU1,I=((IN1,R))
SELECT M=(CSM,JC)
}¢--- A540769.WK.JCL(EXIEBGEN) cre=2015-04-17 mod=2016-08-23-15.12.34 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 ADMIN', 00010001
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL, 00020001
// MSGCLASS=T,NOTIFY=&SYSUID 00030001
//*S1 EXEC PGM=IEBGENER 00050001
//S1 EXEC PGM=ICEGENER 00051001
//SYSPRINT DD SYSOUT=* 00060000
//SYSIN DD DUMMY 00070001
//SYSUT1 DD DISP=SHR,DSN=A540769.TMP.TEXT(JC) 00090002
//SYSUT2 DD DISP=SHR,DSN=A540769.TMP.TEXV(JCICEGEN) 00091002
}¢--- A540769.WK.JCL(EXIF) cre=2012-11-06 mod=2012-11-06-16.45.27 A540769 ------
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0 00040000
//P0 EXEC PGM=IEFBR14 00050000
// IF RC = 0 THEN 00060000
//P1 EXEC PGM=IEFBR14 00070000
// ENDIF 00080000
// IF RC NE 0 THEN 00090000
//P2 EXEC PGM=IEFBR14 00100000
// ENDIF 00110000
// IF P2.RUN THEN 00120000
//P3 EXEC PGM=IEFBR14 00130000
// ENDIF 00140000
// IF ABEND OR RC NE 0 THEN 00150000
//P99 EXEC PGM=IDCAMS 00160000
//SYSPRINT DD SYSOUT=* 00170000
//SYSIN DD * 00180000
SET MAXCC = 12 00190000
// ENDIF 00200000
}¢--- A540769.WK.JCL(EXMAIL) cre=2015-06-02 mod=2016-09-26-11.20.20 A540769 ----
//A540769M JOB (CP00,KE50),'DB2 ADMIN', 00010002
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL, 00020004
// MSGCLASS=T,NOTIFY=&SYSUID 00021002
//JOBLIB DD DISP=SHR,DSN=PCL.U0000.P0.RZ4AKT.PERM.@008.LLB
/*
//P01A EXEC PGM=OS3560
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//MAILIN DD *
sender=walter.keller@credit-suisse.com
type=TEXT/HTML
to=walter.keller@credit-suisse.com
subject=mail in html
cc=walter.keller@credit-suisse.com
TEXT=<HTML>
TEXT=<HEAD>
ATT=DD¢ATT2!FILE¢rexx.war!
TESTINFO=Y
text=<title>mail title</title>
TEXT=</HEAD>
TEXT=<BODY>
TEXT=<TABLE STYLE="BORDER:SOLID;BORDER-WIDTH: THIN">
TEXT=<TR>
TEXT=<TD STYLE="BACKGROUND-COLOR: #8A9DA8">ABLAUF</TD>
TEXT=<TD STYLE="BACKGROUND-COLOR: #8A9DA8">ART </TD>
TEXT=<TD STYLE="BACKGROUND-COLOR: #8A9DA8">STATUS</TD>
TEXT=<TD STYLE="BACKGROUND-COLOR: #8A9DA8">LETZTER LAUF</TD>
TEXT=<TD STYLE="BACKGROUND-COLOR: #8A9DA8">LINK </TD>
TEXT=</TR>
TEXT=<TR>
TEXT=<TD STYLE="FONT-SIZE:12PX">RZ2/DBOF</TD>
TEXT=<TD STYLE="FONT-SIZE:12PX">GBGR</TD>
TEXT=<TD ALIGN="CENTER" STYLE="FONT-SIZE:12PX">OK </TD>
TEXT=<TD STYLE="FONT-SIZE:12PX">2015-03-19-06.15.16</TD>
TEXT=<TD STYLE="FONT-SIZE:12PX">
TEXT=HTTP://CHW20025641/HOST/ZUEGELSCHUB/INDEX_ZUEGELSCHUB.HTM</TD>
TEXT=</TR>
TEXT=</TABLE>
TEXT=<p></p>
TEXT=</ul><li> %%JOBNAME%%(%%JOBID%%) %%STEPNAME%% %%MAINPGM%% %%STEP%%
TEXT=</li><li> %%PLEX%% %%JESNODE%% %%JESGLBL%% %%PLEX%%
TEXT=</li><li> von dd att1
textDD=ATT1
TEXT=</li><li> ende liste
TEXT=</li></ul>
INFO=Y
TEXT=</BODY>
TEXT=</HTML>
SEND=Y
//ATT2 DD DISP=SHR,DSN=A540769.TST.WAR(QJ26L1KX)
//ATT1 DD *
attacheement 1
<h1>header eins</h1>
und weiter
jajaj
}¢--- A540769.WK.JCL(EXSYMBOL) cre=2011-09-24 mod=2016-06-09-08.35.54 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 ADMIN', 00010001
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL, 00020001
// MSGCLASS=T,NOTIFY=&SYSUID 00021001
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00030002
// PARM='%exArgs sysUid=&SYSUID.,JOBNAME=&JOBNAME.,sysName=&SYSNAME.' 00041002
//SYSTSPRT DD SYSOUT=* 00046002
//SYSPRINT DD SYSOUT=* 00047002
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00048002
//SYSTERM DD DUMMY 00049002
//SYSTSIN DD DUMMY 00049102
//S2 EXEC PGM=IEBGENER 00050002
//SYSPRINT DD SYSOUT=* 00060002
//SYSIN DD DUMMY 00070002
//SYSUT1 DD *,SYMBOLS=EXECSYS 00080002
JOBNAME=&JOBNAME 00090002
SYSUID=&SYSUID 00100002
SYSNAME=&SYSNAME 00101002
//SYSUT2 DD SYSOUT=* 00110002
}¢--- A540769.WK.JCL(FANK) cre=2006-08-21 mod=2006-08-21-16.01.40 F540769 ------
//A540769A JOB (CP00,KE50),TIME=60 00010001
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DBOF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSIN DD *
-- Created by A540769 on 2006/08/21 at 14:51 by cloning of
-- source work stmt list MF01003Q from library 'DSN.DBA.CLON.WSL'
-- EDITED BY A540769 ON 2006/08/21 AT 14:50
-- Generated by Compare Apply by A540769 on 2006/08/21 at 14:46
SET CURRENT SQLID = 'S100447';
DROP INDEX OA1P.IMF150A4;
COMMIT;
CREATE INDEX OA1P.IMF150A4
ON OA1P.TMF150A1
(MF150067 ASC,
MF150013 DESC,
MF150019 DESC,
MF150066 DESC)
USING STOGROUP GSMS
PRIQTY 72000 SECQTY 180000
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED NOT
CLUSTER
BUFFERPOOL BP1
CLOSE YES
COPY NO DEFINE YES
DEFER YES
PIECESIZE 4 G;
COMMIT;
// IF RC<=4 THEN
//P02 EXEC PGM=DSNUTILB,
// PARM='DBOF,A540769C.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
LISTDEF C#LIST
INCLUDE INDEX OA1P.IMF150A4
REBUILD INDEX LIST C#LIST
SORTDEVT SYSDA
SORTNUM 4
WORKDDN(TSYUTD)
STATISTICS UPDATE ALL
// ENDIF
}¢--- A540769.WK.JCL(FRANZLOA) cre=2006-10-23 mod=2006-10-24-13.01.27 F540769 ---
//A5407691 JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOA1' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE U2837966
DSN('SHR21.DIV.P021.A540769.NZ06A1P.A242A.UNLM')
DISP(SHR,KEEP,KEEP)
LOAD DATA LOG NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE A540769."TNZ242A1" PART 1
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN U2837966
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
//A5407692 JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOA2' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE U2837966
DSN('SHR21.DIV.P021.A540769.NZ06A1P.A242A.UNLM')
DISP(SHR,KEEP,KEEP)
LOAD DATA LOG NO -- RESUME YES
EBCDIC CCSID(00500,00000,00000)
INTO TABLE A540769."TNZ242A1" PART 2
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN U2837966
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
//A5407693 JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOA3' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE U2837966
DSN('SHR21.DIV.P021.A540769.NZ06A1P.A242A.UNLM')
DISP(SHR,KEEP,KEEP)
LOAD DATA LOG NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE A540769."TNZ242A1" PART 3
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN U2837966
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
//A5407694 JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOA4' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE U2837966
DSN('SHR21.DIV.P021.A540769.NZ06A1P.A242A.UNLM')
DISP(SHR,KEEP,KEEP)
LOAD DATA LOG NO -- RESUME YES
EBCDIC CCSID(00500,00000,00000)
INTO TABLE A540769."TNZ242A1" PART 4
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN U2837966
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
}¢--- A540769.WK.JCL(FRANZLO0) cre=2006-10-26 mod=2006-10-26-09.54.59 F540769 ---
//A5407691 JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOA1' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000))
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000))
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='SHR21.DIV.P021.A540769.NZ242.P'
// SET OLDSUF='.UNLC'
//REC1 DD DISP=SHR,DSN=&OLDPREF.00001&OLDSUF
//REC2 DD DISP=SHR,DSN=&OLDPREF.00002&OLDSUF
//REC3 DD DISP=SHR,DSN=&OLDPREF.00003&OLDSUF
//REC4 DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
//REC5 DD DISP=SHR,DSN=&OLDPREF.00005&OLDSUF
//REC6 DD DISP=SHR,DSN=&OLDPREF.00006&OLDSUF
//REC7 DD DISP=SHR,DSN=&OLDPREF.00007&OLDSUF
//REC8 DD DISP=SHR,DSN=&OLDPREF.00008&OLDSUF
//REC9 DD DISP=SHR,DSN=&OLDPREF.00009&OLDSUF
//REC10 DD DISP=SHR,DSN=&OLDPREF.00010&OLDSUF
//REC11 DD DISP=SHR,DSN=&OLDPREF.00011&OLDSUF
//REC12 DD DISP=SHR,DSN=&OLDPREF.00012&OLDSUF
//REC13 DD DISP=SHR,DSN=&OLDPREF.00013&OLDSUF
//REC14 DD DISP=SHR,DSN=&OLDPREF.00014&OLDSUF
//REC15 DD DISP=SHR,DSN=&OLDPREF.00015&OLDSUF
//REC16 DD DISP=SHR,DSN=&OLDPREF.00016&OLDSUF
//REC17 DD DISP=SHR,DSN=&OLDPREF.00017&OLDSUF
//REC18 DD DISP=SHR,DSN=&OLDPREF.00018&OLDSUF
//REC19 DD DISP=SHR,DSN=&OLDPREF.00019&OLDSUF
//REC20 DD DISP=SHR,DSN=&OLDPREF.00020&OLDSUF
//REC21 DD DISP=SHR,DSN=&OLDPREF.00021&OLDSUF
//REC22 DD DISP=SHR,DSN=&OLDPREF.00022&OLDSUF
//REC23 DD DISP=SHR,DSN=&OLDPREF.00023&OLDSUF
//REC24 DD DISP=SHR,DSN=&OLDPREF.00024&OLDSUF
//REC25 DD DISP=SHR,DSN=&OLDPREF.00025&OLDSUF
//REC26 DD DISP=SHR,DSN=&OLDPREF.00026&OLDSUF
//REC27 DD DISP=SHR,DSN=&OLDPREF.00027&OLDSUF
//REC28 DD DISP=SHR,DSN=&OLDPREF.00028&OLDSUF
//REC29 DD DISP=SHR,DSN=&OLDPREF.00029&OLDSUF
//REC30 DD DISP=SHR,DSN=&OLDPREF.00030&OLDSUF
//REC31 DD DISP=SHR,DSN=&OLDPREF.00031&OLDSUF
//REC32 DD DISP=SHR,DSN=&OLDPREF.00032&OLDSUF
//REC33 DD DISP=SHR,DSN=&OLDPREF.00033&OLDSUF
//REC34 DD DISP=SHR,DSN=&OLDPREF.00034&OLDSUF
//REC35 DD DISP=SHR,DSN=&OLDPREF.00035&OLDSUF
//REC36 DD DISP=SHR,DSN=&OLDPREF.00036&OLDSUF
//REC37 DD DISP=SHR,DSN=&OLDPREF.00037&OLDSUF
//REC38 DD DISP=SHR,DSN=&OLDPREF.00038&OLDSUF
//REC39 DD DISP=SHR,DSN=&OLDPREF.00039&OLDSUF
//REC40 DD DISP=SHR,DSN=&OLDPREF.00040&OLDSUF
//REC41 DD DISP=SHR,DSN=&OLDPREF.00041&OLDSUF
//REC42 DD DISP=SHR,DSN=&OLDPREF.00042&OLDSUF
//REC43 DD DISP=SHR,DSN=&OLDPREF.00043&OLDSUF
//REC44 DD DISP=SHR,DSN=&OLDPREF.00044&OLDSUF
//REC45 DD DISP=SHR,DSN=&OLDPREF.00045&OLDSUF
//REC46 DD DISP=SHR,DSN=&OLDPREF.00046&OLDSUF
//REC47 DD DISP=SHR,DSN=&OLDPREF.00047&OLDSUF
//REC48 DD DISP=SHR,DSN=&OLDPREF.00048&OLDSUF
//REC49 DD DISP=SHR,DSN=&OLDPREF.00049&OLDSUF
//REC50 DD DISP=SHR,DSN=&OLDPREF.00050&OLDSUF
//REC51 DD DISP=SHR,DSN=&OLDPREF.00051&OLDSUF
//REC52 DD DISP=SHR,DSN=&OLDPREF.00052&OLDSUF
//REC53 DD DISP=SHR,DSN=&OLDPREF.00053&OLDSUF
//REC54 DD DISP=SHR,DSN=&OLDPREF.00054&OLDSUF
//REC55 DD DISP=SHR,DSN=&OLDPREF.00055&OLDSUF
//REC56 DD DISP=SHR,DSN=&OLDPREF.00056&OLDSUF
//REC57 DD DISP=SHR,DSN=&OLDPREF.00057&OLDSUF
//REC58 DD DISP=SHR,DSN=&OLDPREF.00058&OLDSUF
//REC59 DD DISP=SHR,DSN=&OLDPREF.00059&OLDSUF
//REC60 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE U2837966
DSN('SHR21.DIV.P021.A540769.NZ06A1P.A242A.UNLP')
DISP(SHR,KEEP,KEEP)
LOAD DATA LOG NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE A540769."TNZ242A1" PART 1
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC1
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 2
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC2
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 3
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC3
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 4
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC4
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 5
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC5
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 6
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC6
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 7
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC7
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 8
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC8
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 9
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC9
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 10
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC10
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 11
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC11
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 12
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC12
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 13
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC13
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 14
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC14
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 15
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC15
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 16
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC16
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 17
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC17
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 18
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC18
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 19
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC19
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 20
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC20
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 21
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC21
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 22
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC22
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 23
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC23
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 24
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC24
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 25
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC25
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 26
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC26
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 27
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC27
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 28
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC28
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 29
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC29
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 30
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC30
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 31
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC31
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 32
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC32
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 33
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC33
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 34
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC34
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 35
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC35
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 36
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC36
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 37
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC37
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 38
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC38
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 39
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC39
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 40
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC40
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 41
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC41
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 42
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC42
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 43
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC43
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 44
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC44
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 45
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC45
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 46
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC46
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 47
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC47
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 48
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC48
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 49
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC49
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 50
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC50
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 51
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC51
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 52
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC52
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 53
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC53
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 54
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC54
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 55
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC55
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 56
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC56
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 57
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC57
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 58
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC58
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 59
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC59
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 60
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC60
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
}¢--- A540769.WK.JCL(FRANZLO1) cre=2006-10-24 mod=2006-10-26-11.26.14 F540769 ---
//A5407691 JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOA1' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='SHR21.DIV.P021.A540769.NZ242.P'
// SET OLDSUF='.UNLD'
//REC1 DD DISP=SHR,DSN=&OLDPREF.00001&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00002&OLDSUF
//REC2 DD DISP=SHR,DSN=&OLDPREF.00002&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00003&OLDSUF
//REC3 DD DISP=SHR,DSN=&OLDPREF.00003&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
//REC4 DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
//REC5 DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00005&OLDSUF
//REC6 DD DISP=SHR,DSN=&OLDPREF.00005&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00006&OLDSUF
//REC7 DD DISP=SHR,DSN=&OLDPREF.00006&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00007&OLDSUF
//REC8 DD DISP=SHR,DSN=&OLDPREF.00007&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00008&OLDSUF
//REC9 DD DISP=SHR,DSN=&OLDPREF.00008&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00009&OLDSUF
//REC10 DD DISP=SHR,DSN=&OLDPREF.00009&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00010&OLDSUF
//REC11 DD DISP=SHR,DSN=&OLDPREF.00010&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00011&OLDSUF
//REC12 DD DISP=SHR,DSN=&OLDPREF.00011&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00012&OLDSUF
//REC13 DD DISP=SHR,DSN=&OLDPREF.00012&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00013&OLDSUF
//REC14 DD DISP=SHR,DSN=&OLDPREF.00013&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00014&OLDSUF
//REC15 DD DISP=SHR,DSN=&OLDPREF.00014&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00015&OLDSUF
//REC16 DD DISP=SHR,DSN=&OLDPREF.00015&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00016&OLDSUF
//REC17 DD DISP=SHR,DSN=&OLDPREF.00016&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00017&OLDSUF
//REC18 DD DISP=SHR,DSN=&OLDPREF.00017&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00018&OLDSUF
//REC19 DD DISP=SHR,DSN=&OLDPREF.00018&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00019&OLDSUF
//REC20 DD DISP=SHR,DSN=&OLDPREF.00019&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00020&OLDSUF
//REC21 DD DISP=SHR,DSN=&OLDPREF.00020&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00021&OLDSUF
//REC22 DD DISP=SHR,DSN=&OLDPREF.00021&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00022&OLDSUF
//REC23 DD DISP=SHR,DSN=&OLDPREF.00022&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00023&OLDSUF
//REC24 DD DISP=SHR,DSN=&OLDPREF.00023&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00024&OLDSUF
//REC25 DD DISP=SHR,DSN=&OLDPREF.00024&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00025&OLDSUF
//REC26 DD DISP=SHR,DSN=&OLDPREF.00025&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00026&OLDSUF
//REC27 DD DISP=SHR,DSN=&OLDPREF.00026&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00027&OLDSUF
//REC28 DD DISP=SHR,DSN=&OLDPREF.00027&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00028&OLDSUF
//REC29 DD DISP=SHR,DSN=&OLDPREF.00028&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00029&OLDSUF
//REC30 DD DISP=SHR,DSN=&OLDPREF.00029&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00030&OLDSUF
//REC31 DD DISP=SHR,DSN=&OLDPREF.00030&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00031&OLDSUF
//REC32 DD DISP=SHR,DSN=&OLDPREF.00031&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00032&OLDSUF
//REC33 DD DISP=SHR,DSN=&OLDPREF.00032&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00033&OLDSUF
//REC34 DD DISP=SHR,DSN=&OLDPREF.00033&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00034&OLDSUF
//REC35 DD DISP=SHR,DSN=&OLDPREF.00034&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00035&OLDSUF
//REC36 DD DISP=SHR,DSN=&OLDPREF.00035&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00036&OLDSUF
//REC37 DD DISP=SHR,DSN=&OLDPREF.00036&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00037&OLDSUF
//REC38 DD DISP=SHR,DSN=&OLDPREF.00037&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00038&OLDSUF
//REC39 DD DISP=SHR,DSN=&OLDPREF.00038&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00039&OLDSUF
//REC40 DD DISP=SHR,DSN=&OLDPREF.00039&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00040&OLDSUF
//REC41 DD DISP=SHR,DSN=&OLDPREF.00040&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00041&OLDSUF
//REC42 DD DISP=SHR,DSN=&OLDPREF.00041&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00042&OLDSUF
//REC43 DD DISP=SHR,DSN=&OLDPREF.00042&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00043&OLDSUF
//REC44 DD DISP=SHR,DSN=&OLDPREF.00043&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00044&OLDSUF
//REC45 DD DISP=SHR,DSN=&OLDPREF.00044&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00045&OLDSUF
//REC46 DD DISP=SHR,DSN=&OLDPREF.00045&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00046&OLDSUF
//REC47 DD DISP=SHR,DSN=&OLDPREF.00046&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00047&OLDSUF
//REC48 DD DISP=SHR,DSN=&OLDPREF.00047&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00048&OLDSUF
//REC49 DD DISP=SHR,DSN=&OLDPREF.00048&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00049&OLDSUF
//REC50 DD DISP=SHR,DSN=&OLDPREF.00049&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00050&OLDSUF
//REC51 DD DISP=SHR,DSN=&OLDPREF.00050&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00051&OLDSUF
//REC52 DD DISP=SHR,DSN=&OLDPREF.00051&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00052&OLDSUF
//REC53 DD DISP=SHR,DSN=&OLDPREF.00052&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00053&OLDSUF
//REC54 DD DISP=SHR,DSN=&OLDPREF.00053&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00054&OLDSUF
//REC55 DD DISP=SHR,DSN=&OLDPREF.00054&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00055&OLDSUF
//REC56 DD DISP=SHR,DSN=&OLDPREF.00055&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00056&OLDSUF
//REC57 DD DISP=SHR,DSN=&OLDPREF.00056&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00057&OLDSUF
//REC58 DD DISP=SHR,DSN=&OLDPREF.00057&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00058&OLDSUF
//REC59 DD DISP=SHR,DSN=&OLDPREF.00058&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00059&OLDSUF
//REC60 DD DISP=SHR,DSN=&OLDPREF.00059&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC61 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC62 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC63 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC64 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC65 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE U2837966
DSN('SHR21.DIV.P021.A540769.NZ06A1P.A242A.UNLM')
DISP(SHR,KEEP,KEEP)
LOAD DATA LOG NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE A540769."TNZ242A1" PART 1
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC1
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 2
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC2
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 3
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC3
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 4
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC4
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 5
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC5
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 6
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC6
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 7
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC7
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 8
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC8
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 9
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC9
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 10
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC10
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 11
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC11
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 12
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC12
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 13
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC13
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 14
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC14
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 15
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC15
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 16
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC16
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 17
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC17
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 18
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC18
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 19
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC19
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 20
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC20
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 21
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC21
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 22
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC22
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 23
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC23
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 24
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC24
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 25
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC25
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 26
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC26
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 27
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC27
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 28
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC28
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 29
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC29
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 30
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC30
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 31
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC31
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 32
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC32
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 33
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC33
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 34
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC34
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 35
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC35
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 36
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC36
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 37
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC37
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 38
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC38
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 39
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC39
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 40
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC40
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 41
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC41
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 42
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC42
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 43
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC43
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 44
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC44
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 45
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC45
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 46
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC46
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 47
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC47
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 48
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC48
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 49
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC49
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 50
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC50
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 51
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC51
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 52
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC52
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 53
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC53
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 54
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC54
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 55
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC55
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 56
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC56
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 57
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC57
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 58
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC58
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 59
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC59
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 60
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC60
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 61
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC61
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 62
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC62
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 63
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC63
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 64
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC64
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 65
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC65
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
}¢--- A540769.WK.JCL(FRANZLO2) cre=2006-10-26 mod=2006-10-26-12.52.22 F540769 ---
//A5407691 JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOA13' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='SHR21.DIV.P021.A540769.NZ242.P'
// SET OLDSUF='.UNLD'
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC1 DD DISP=SHR,DSN=&OLDPREF.00001&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00002&OLDSUF
//REC2 DD DISP=SHR,DSN=&OLDPREF.00002&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00003&OLDSUF
//REC3 DD DISP=SHR,DSN=&OLDPREF.00003&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE A540769."TNZ242A1" PART 1
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC1
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 2
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC2
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 3
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC3
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
//A5407694 JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOA46' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='SHR21.DIV.P021.A540769.NZ242.P'
// SET OLDSUF='.UNLD'
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC4 DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
//REC5 DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00005&OLDSUF
//REC6 DD DISP=SHR,DSN=&OLDPREF.00005&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00006&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE A540769."TNZ242A1" PART 4
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC4
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 5
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC5
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 6
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC6
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
//A5407697 JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOA79' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='SHR21.DIV.P021.A540769.NZ242.P'
// SET OLDSUF='.UNLD'
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC7 DD DISP=SHR,DSN=&OLDPREF.00006&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00007&OLDSUF
//REC8 DD DISP=SHR,DSN=&OLDPREF.00007&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00008&OLDSUF
//REC9 DD DISP=SHR,DSN=&OLDPREF.00008&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00009&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO
EBCDIC CCSID(00500,00000,00000)
INTO TABLE A540769."TNZ242A1" PART 7
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC7
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 8
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC8
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 9
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC9
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
//
//REC10 DD DISP=SHR,DSN=&OLDPREF.00009&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00010&OLDSUF
//REC11 DD DISP=SHR,DSN=&OLDPREF.00010&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00011&OLDSUF
//REC12 DD DISP=SHR,DSN=&OLDPREF.00011&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00012&OLDSUF
//REC13 DD DISP=SHR,DSN=&OLDPREF.00012&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00013&OLDSUF
//REC14 DD DISP=SHR,DSN=&OLDPREF.00013&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00014&OLDSUF
//REC15 DD DISP=SHR,DSN=&OLDPREF.00014&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00015&OLDSUF
//REC16 DD DISP=SHR,DSN=&OLDPREF.00015&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00016&OLDSUF
//REC17 DD DISP=SHR,DSN=&OLDPREF.00016&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00017&OLDSUF
//REC18 DD DISP=SHR,DSN=&OLDPREF.00017&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00018&OLDSUF
//REC19 DD DISP=SHR,DSN=&OLDPREF.00018&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00019&OLDSUF
//REC20 DD DISP=SHR,DSN=&OLDPREF.00019&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00020&OLDSUF
//REC21 DD DISP=SHR,DSN=&OLDPREF.00020&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00021&OLDSUF
//REC22 DD DISP=SHR,DSN=&OLDPREF.00021&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00022&OLDSUF
//REC23 DD DISP=SHR,DSN=&OLDPREF.00022&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00023&OLDSUF
//REC24 DD DISP=SHR,DSN=&OLDPREF.00023&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00024&OLDSUF
//REC25 DD DISP=SHR,DSN=&OLDPREF.00024&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00025&OLDSUF
//REC26 DD DISP=SHR,DSN=&OLDPREF.00025&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00026&OLDSUF
//REC27 DD DISP=SHR,DSN=&OLDPREF.00026&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00027&OLDSUF
//REC28 DD DISP=SHR,DSN=&OLDPREF.00027&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00028&OLDSUF
//REC29 DD DISP=SHR,DSN=&OLDPREF.00028&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00029&OLDSUF
//REC30 DD DISP=SHR,DSN=&OLDPREF.00029&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00030&OLDSUF
//REC31 DD DISP=SHR,DSN=&OLDPREF.00030&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00031&OLDSUF
//REC32 DD DISP=SHR,DSN=&OLDPREF.00031&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00032&OLDSUF
//REC33 DD DISP=SHR,DSN=&OLDPREF.00032&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00033&OLDSUF
//REC34 DD DISP=SHR,DSN=&OLDPREF.00033&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00034&OLDSUF
//REC35 DD DISP=SHR,DSN=&OLDPREF.00034&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00035&OLDSUF
//REC36 DD DISP=SHR,DSN=&OLDPREF.00035&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00036&OLDSUF
//REC37 DD DISP=SHR,DSN=&OLDPREF.00036&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00037&OLDSUF
//REC38 DD DISP=SHR,DSN=&OLDPREF.00037&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00038&OLDSUF
//REC39 DD DISP=SHR,DSN=&OLDPREF.00038&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00039&OLDSUF
//REC40 DD DISP=SHR,DSN=&OLDPREF.00039&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00040&OLDSUF
//REC41 DD DISP=SHR,DSN=&OLDPREF.00040&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00041&OLDSUF
//REC42 DD DISP=SHR,DSN=&OLDPREF.00041&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00042&OLDSUF
//REC43 DD DISP=SHR,DSN=&OLDPREF.00042&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00043&OLDSUF
//REC44 DD DISP=SHR,DSN=&OLDPREF.00043&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00044&OLDSUF
//REC45 DD DISP=SHR,DSN=&OLDPREF.00044&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00045&OLDSUF
//REC46 DD DISP=SHR,DSN=&OLDPREF.00045&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00046&OLDSUF
//REC47 DD DISP=SHR,DSN=&OLDPREF.00046&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00047&OLDSUF
//REC48 DD DISP=SHR,DSN=&OLDPREF.00047&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00048&OLDSUF
//REC49 DD DISP=SHR,DSN=&OLDPREF.00048&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00049&OLDSUF
//REC50 DD DISP=SHR,DSN=&OLDPREF.00049&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00050&OLDSUF
//REC51 DD DISP=SHR,DSN=&OLDPREF.00050&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00051&OLDSUF
//REC52 DD DISP=SHR,DSN=&OLDPREF.00051&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00052&OLDSUF
//REC53 DD DISP=SHR,DSN=&OLDPREF.00052&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00053&OLDSUF
//REC54 DD DISP=SHR,DSN=&OLDPREF.00053&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00054&OLDSUF
//REC55 DD DISP=SHR,DSN=&OLDPREF.00054&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00055&OLDSUF
//REC56 DD DISP=SHR,DSN=&OLDPREF.00055&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00056&OLDSUF
//REC57 DD DISP=SHR,DSN=&OLDPREF.00056&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00057&OLDSUF
//REC58 DD DISP=SHR,DSN=&OLDPREF.00057&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00058&OLDSUF
//REC59 DD DISP=SHR,DSN=&OLDPREF.00058&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00059&OLDSUF
//REC60 DD DISP=SHR,DSN=&OLDPREF.00059&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC61 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC62 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC63 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC64 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC65 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE U2837966
DSN('SHR21.DIV.P021.A540769.NZ06A1P.A242A.UNLM')
DISP(SHR,KEEP,KEEP)
INTO TABLE A540769."TNZ242A1" PART 10
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC10
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 11
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC11
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 12
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC12
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 13
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC13
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 14
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC14
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 15
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC15
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 16
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC16
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 17
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC17
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 18
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC18
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 19
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC19
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 20
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC20
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 21
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC21
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 22
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC22
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 23
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC23
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 24
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC24
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 25
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC25
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 26
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC26
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 27
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC27
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 28
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC28
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 29
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC29
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 30
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC30
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 31
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC31
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 32
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC32
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 33
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC33
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 34
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC34
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 35
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC35
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 36
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC36
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 37
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC37
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 38
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC38
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 39
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC39
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 40
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC40
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 41
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC41
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 42
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC42
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 43
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC43
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 44
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC44
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 45
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC45
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 46
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC46
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 47
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC47
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 48
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC48
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 49
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC49
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 50
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC50
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 51
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC51
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 52
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC52
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 53
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC53
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 54
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC54
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 55
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC55
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 56
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC56
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 57
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC57
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 58
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC58
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 59
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC59
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 60
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC60
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 61
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC61
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 62
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC62
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 63
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC63
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 64
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC64
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE A540769."TNZ242A1" PART 65
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC65
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
}¢--- A540769.WK.JCL(FRANZLO9) cre=2006-10-27 mod=2006-10-27-08.40.19 F540769 ---
//YFR24201 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=BS1
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YFR24201.LOAD'
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='SHR21.DIV.P021.A540769.NZ242.P'
// SET OLDSUF='.UNL1'
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC1 DD DISP=SHR,DSN=&OLDPREF.00001&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00002&OLDSUF
//REC2 DD DISP=SHR,DSN=&OLDPREF.00002&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00003&OLDSUF
//REC3 DD DISP=SHR,DSN=&OLDPREF.00003&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
INTO TABLE "A540769"."TNZ242A1" PART 1
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC1
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE "A540769"."TNZ242A1" PART 2
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC2
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE "A540769"."TNZ242A1" PART 3
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC3
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
//YFR24204 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=BS1
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YFR24204.LOAD'
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='SHR21.DIV.P021.A540769.NZ242.P'
// SET OLDSUF='.UNL1'
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC4 DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
//REC5 DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00005&OLDSUF
//REC6 DD DISP=SHR,DSN=&OLDPREF.00005&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00006&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
INTO TABLE "A540769"."TNZ242A1" PART 4
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC4
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE "A540769"."TNZ242A1" PART 5
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC5
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE "A540769"."TNZ242A1" PART 6
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC6
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
//YFR24207 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=BS1
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YFR24207.LOAD'
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='SHR21.DIV.P021.A540769.NZ242.P'
// SET OLDSUF='.UNL1'
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC7 DD DISP=SHR,DSN=&OLDPREF.00006&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00007&OLDSUF
//REC8 DD DISP=SHR,DSN=&OLDPREF.00007&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00008&OLDSUF
//REC9 DD DISP=SHR,DSN=&OLDPREF.00008&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00009&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
INTO TABLE "A540769"."TNZ242A1" PART 7
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC7
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE "A540769"."TNZ242A1" PART 8
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC8
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
INTO TABLE "A540769"."TNZ242A1" PART 9
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC9
WHEN(00001:00002) = X'0034'
( "NZ242001"
POSITION( 00003:00022) CHAR(00020)
, "NZ242002"
POSITION( 00023:00042) CHAR(00020)
, "NZ242003"
POSITION( 00043:00092) CHAR(00050)
, "NZ242004"
POSITION( 00093:00102) CHAR(00010)
, "NZ242005"
POSITION( 00103:00122) CHAR(00020)
, "NZ242006"
POSITION( 00123:00142) CHAR(00020)
, "NZ242007"
POSITION( 00143:00152) CHAR(00010)
, "NZ242008"
POSITION( 00153:00172) CHAR(00020)
, "NZ242009"
POSITION( 00173:00222) CHAR(00050)
, "NZ242010"
POSITION( 00223:00242) CHAR(00020)
, "NZ242011"
POSITION( 00243:00292) CHAR(00050)
, "NZ242012"
POSITION( 00293:00312) CHAR(00020)
, "NZ242013"
POSITION( 00313:00362) CHAR(00050)
, "NZ242014"
POSITION( 00363:00382) CHAR(00020)
, "NZ242015"
POSITION( 00383:00432) CHAR(00050)
, "NZ242016"
POSITION( 00433:00452) CHAR(00020)
, "NZ242017"
POSITION( 00453:00502) CHAR(00050)
, "NZ242018"
POSITION( 00503:00522) CHAR(00020)
, "NZ242019"
POSITION( 00523:00572) CHAR(00050)
, "NZ242020"
POSITION( 00573:00592) CHAR(00020)
, "NZ242021"
POSITION( 00593:00642) CHAR(00050)
, "NZ242022"
POSITION( 00643:00662) CHAR(00020)
, "NZ242023"
POSITION( 00663:00712) CHAR(00050)
, "NZ242024"
POSITION( 00713:00732) CHAR(00020)
, "NZ242025"
POSITION( 00733:00782) CHAR(00050)
, "NZ242026"
POSITION( 00783:00802) CHAR(00020)
, "NZ242027"
POSITION( 00803:00852) CHAR(00050)
, "NZ242028"
POSITION( 00853:00872) CHAR(00020)
, "NZ242029"
POSITION( 00873:00882) CHAR(00010)
, "NZ242030"
POSITION( 00883:00908) CHAR(00026)
, "NZ242031"
POSITION( 00909:00928) CHAR(00020)
, "NZ242032"
POSITION( 00929:00929) CHAR(00001)
, "NZ242033"
POSITION( 00930:04031) VARCHAR
)
}¢--- A540769.WK.JCL(FRANZLS2) cre=2006-10-26 mod=2006-10-26-13.21.34 F540769 ---
//F54076$j JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD$j' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='SHR21.DIV.P021.A540769.NZ242.P'
// SET OLDSUF='.UNL5'
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
$r
//SYSIN DD *
$l
}¢--- A540769.WK.JCL(FRANZREO) cre=2006-10-24 mod=2008-11-24-17.24.48 F540769 ---
//A540769Q JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=BS1
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/20/2006.09.40.21
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769S.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSREC DD UNIT=DISK,SPACE=(CYL,(2000,4000)),DISP=(NEW,DELETE),
// DATACLAS=NULL30
//SYSTEMPL DD DISP=SHR,DSN=DBTF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TDISCA
DSN('DSN.&SSID..&DB..&SN..D&DATE(3)..T&TIME..DISC')
DATACLAS (NULL30) MGMTCLAS(COM#A031)
SPACE (10,250) CYL
TEMPLATE TPUNCH
DSN('DSN.&SSID..&DB..&SN..D&DATE(3)..T&TIME..PUNC')
DATACLAS (NULL30) MGMTCLAS(COM#A031)
SPACE (1,2) CYL
LISTDEF LST#REO INCLUDE TABLESPACE DA540769.A242A PARTLEVEL(1)
INCLUDE TABLESPACE DA540769.A242A PARTLEVEL(2)
REORG TABLESPACE DA540769.A242A -- PART 1:2
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL NONE
-- MAPPINGTABLE S100447.MAPTAB02
-- MAXRO 300
-- DRAIN ALL
-- DELAY 1500
-- TIMEOUT TERM
UNLOAD CONTINUE
WORKDDN(SYSUT1,SORTOUT)
PUNCHDDN TPUNCH
DISCARDDN TDISCA
SORTKEYS
SORTDEVT DISK
SORTNUM 24
STATISTICS
INDEX ALL
REPORT NO
UPDATE ALL
//SORTWK01 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK02 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK03 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK04 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK05 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK06 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK07 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK08 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK09 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK10 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK11 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK12 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK13 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK14 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK15 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK16 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK17 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK18 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK19 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK20 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK21 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK22 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK23 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//SORTWK24 DD UNIT=DISK,SPACE=(CYL,(200,500)),DISP=(NEW,DELETE)
//DATAWK01 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK02 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK03 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK04 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK05 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK06 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK07 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK08 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK09 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK10 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK11 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK12 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK13 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK14 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK15 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK16 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK17 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK18 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK19 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK20 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK21 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK22 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK23 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
//DATAWK24 DD UNIT=DISK,SPACE=(CYL,(500,500)),DISP=(NEW,DELETE)
}¢--- A540769.WK.JCL(FRANZRST) cre=2006-10-24 mod=2006-10-24-13.15.30 F540769 ---
//A540769S JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/21/2006.10.10.05
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769.RUNSTATS'),
// REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
LISTDEF LST#STA INCLUDE TABLESPACE DA540769.A242A
RUNSTATS TABLESPACE LIST LST#STA
SHRLEVEL CHANGE
INDEX ALL
REPORT NO
UPDATE ALL
}¢--- A540769.WK.JCL(FRANZUNL) cre=2006-10-26 mod=2008-11-24-17.24.48 F540769 ---
//A540769V JOB (CAS25071,0000,,0000),'UNLOAD',
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=BS1
//***************************************************
//* UNLOAD RZ2 --> RZ1 MIT SHR21.DIV.P021.*
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,
// PARM=(DBOF,'A540769V.UNLOAD'),REGION=0M
//*
//STEPLIB DD DISP=SHR,
// DSN=DB2@.RZ2.P0.DSNLOAD
//ABNLIGNR DD DUMMY
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
TEMPLATE UNLD DSN(SHR21.DIV.P021.A540769.NZ242.P&PART..UNL5)
DATACLAS (EYN08P) MGMTCLAS(COM#A015)
STORCLAS(ANN)
SPACE (10,250) CYL
TEMPLATE PUNCHD DSN(SHR21.DIV.P021.A540769.NZ242.PUN5)
MGMTCLAS(COM#A015)
SPACE (1,1) CYL
UNLOAD TABLESPACE NZ06A1P.A242A PART 1:60
FROM TABLE OA1P.TNZ242A1 SAMPLE 20.0
PUNCHDDN PUNCHD
UNLDDN UNLD
SHRLEVEL CHANGE
}¢--- A540769.WK.JCL(GBGRCLEA) cre=2014-06-26 mod=2014-06-26-15.51.52 A540769 ---
delete
from oa1p.tqz008gbgrschwelle r
where db like 'DEFAULT%' or db = 'index'
;
delete
from oa1p.tqz008gbgrschwelle r
where (rz <> '%' or dbSys <> '%')
and exists ( select 1 from oa1p.tqz008gbgrschwelle a
where a.rz = '%' and a.dbSys = '%'
and a.db = r.db and a.ts = r.ts and a.part = r.part
and a.tsty = r.tsTy
and a.schwelle = r.schwelle
)
;
select *
from oa1p.tqz008gbgrschwelle r
where db like 'DEFAULT%' or db = 'index'
;
select *
from oa1p.tqz008gbgrschwelle r
where (rz <> '%' or dbSys <> '%')
and exists ( select 1 from oa1p.tqz008gbgrschwelle a
where a.rz = '%' and a.dbSys = '%'
and a.db = r.db and a.ts = r.ts and a.part = r.part
and a.tsty = r.tsTy)
}¢--- A540769.WK.JCL(GBGRMIDA) cre=2014-07-24 mod=2014-07-26-13.40.41 A540769 ---
$#@
$*( migrate gbGr Daten
1) unload from tadm09a1
2) load into tmpTable p1
3) group and sum into tmpTable p2
4) remove duplicates and add deletest into tmpTable p3
5) only one per week into tmpTable p4
6) delete last migration from tqz006GbGrTsStats
7) insert migration into tqz006GbGrTsStats
8) remove duplicates from tqz006GbGrTsStats
$*)
$=rz=RZY
$=dbSys=DEVG
$=fun = u
$;
$@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
//SD DD DISP=(MOD,DELETE),
// DSN=A540769.TMPGBGR.$rz.$dbSys.A009A.UNL
//SP DD DISP=(MOD,DELETE),
// DSN=A540769.TMPGBGR.$rz.$dbSys.A009A.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.TADM09A1
(
, DB_NAME
, TS_NAME
, PARTITIONS_TOTAL
, PARTITIONS_NR
, DS_SIZE
, LARGE
, HI_U_RBA
, DATUM
)
$/unload/
$@proc $@=/load/
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAINCLASS=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.A009A.UNL
//SYSIN DD *
LOAD DATA LOG NO
SORTKEYS
SORTDEVT DISK
WORKDDN(TSYUTS,TSOUTS)
MAPDDN TMAPD ERRDDN TERRD
EBCDIC CCSID(00500,00000,00000)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
INTO TABLE OA1P.TQZ006TMP PART 1
RESUME NO REPLACE COPYDDN(TCOPYD)
INDDN SU
(
DB POSITION( 00003:00012) CHAR(00010) STRIP TRAILING
, TS POSITION( 00013:00022) CHAR(00010) STRIP TRAILING
, PARTS POSITION( 00023:00026) INTEGER
, PARTITION POSITION( 00027:00030) INTEGER
, DSSIZE POSITION( 00031:00034) FLOAT(21)
, LARGE POSITION( 00035:00035) CHAR(00001)
, HIUSE POSITION( 00036:00039) FLOAT(21)
, DATUM POSITION( 00040:00049) DATE EXTERNAL
)
EXEC SQL
DECLARE CUR1 CURSOR FOR
SELECT 2 p, DB, TS, value(MAX(PARTS), -99) parts, partition
, value(max(dsSize), -99) dsSize
, value(max(large), '?') large
, value(sum(hiUse) / 1024, -99) hiUse
, datum
FROM OA1P.TQZ006TMP
where p=1 and datum < '22.07.2014'
GROUP BY db, ts, partition, datum
ENDEXEC
LOAD DATA LOG NO
SORTKEYS
SORTDEVT DISK
WORKDDN(TSYUTS,TSOUTS)
MAPDDN TMAPD ERRDDN TERRD
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
INTO TABLE OA1P.TQZ006TMP PART 2
RESUME NO REPLACE COPYDDN(TCOPYD)
INCURSOR CUR1
EXEC SQL
DECLARE CUR2 CURSOR FOR
with m as
(
SELECT DB, TS, partition, max(datum) datum
FROM OA1P.TQZ006TMP
where p=2
group by DB, TS, partition
) -- remove duplicates
SELECT 3 p, DB, TS, parts, partition, dsSize, large, hiUse, datum
FROM OA1P.TQZ006TMP i
where p=2
and i.hiUse <> (select hiUse FROM OA1P.TQZ006TMP o
where p=2 and o.db = i.db and o.ts = i.ts
and o.partition = i.partition and o.datum < i.datum
order by o.datum desc
fetch first 1 row only
)
union all ( -- add deleted
select 3 p, db, ts, -77 parts, partition
, -77 dsSize, '-' large, 0 hiUse
, value(datum + 1 day, '11.11.1111') datum
from m
where not exists (select 1 from oa1p.tqz006GbGrTsStats s
where s.rz = '$rz' and s.dbSys = '$dbSys'
and loadTs >= timestamp('22.07.2014')
and s.dbName = m.db and s.name = m.ts
and s.partition = m.partition
) )
ENDEXEC
LOAD DATA LOG NO
SORTKEYS
SORTDEVT DISK
WORKDDN(TSYUTS,TSOUTS)
MAPDDN TMAPD ERRDDN TERRD
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
INTO TABLE OA1P.TQZ006TMP PART 3
RESUME NO REPLACE COPYDDN(TCOPYD)
INCURSOR CUR2
EXEC SQL
DECLARE CUR3 CURSOR FOR -- find last entry per week ending friday
select 4 p, db, ts, parts, partition
, dsSize, large, hiUse
, datum
from oa1p.tqz006tmp w
where p=3 and datum <= '20.07.2012'
and not exists (select 1 from oa1p.tqz006tmp n
where n.p = 3 and w.db = n.db and w.ts = n.ts
and w.partition = n.partition
and w.datum < n.datum
and n.datum <= date(trunc_timestamp(
timestamp(w.datum) + 9 days, 'iw')
-3 days) -- next friday
)
ENDEXEC
LOAD DATA LOG NO
SORTKEYS
SORTDEVT DISK
WORKDDN(TSYUTS,TSOUTS)
MAPDDN TMAPD ERRDDN TERRD
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
INTO TABLE OA1P.TQZ006TMP PART 4
RESUME NO REPLACE COPYDDN(TCOPYD)
INCURSOR CUR3
EXEC SQL
delete
from OA1P.TQZ006GBGRTSSTATS
where rz = '$rz' and dbSys = '$dbSys'
and loadTS < timestamp('22.07.2014')
ENDEXEC
EXEC SQL
DECLARE CUR4 CURSOR FOR -- load into tsStats
with u as
(
select *
from oa1p.tqz006tmp
where p = 3 and datum > '20.07.2012'
union all select *
from oa1p.tqz006tmp
where p = 4 and datum <= '20.07.2012' and datum >= '01.07.2009'
union all select *
from oa1p.tqz006tmp m
where p = 4 and datum < '01.07.2009'
and not exists (select 1 from oa1p.tqz006tmp n
where p = 4 and m.db = n.db and m.ts = n.ts
and m.partition = n.partition
and n.datum > m.datum
and n.datum < date(trunc_timestamp(
timestamp(m.datum + 1 month)
, 'mon'))
)
)
select case when large = '-' then 'd' else 'a' end state
, timestamp(datum) loadTS
, '$rz' rz
, '$dbSys' dbSys
, db dbName
, ts name
, partition
, 1 instance
, large tsType
, ' ' tsTy
, 1 pgSize
, 0 segSize
, parts
, 0 maxParts
, dsSize
, 0 dsGb
, 0 limGb
, 0 limPart
, 0 obid
, '?' clone
, 1 tsInst
, '' tbCr
, '' tb
, '' tbTy
, 0 tbObId
, 0 dbid
, 0 psid
, ' ' ibmReqD
, timestamp(datum) updateStatsTime
, int(case when large <> '-' then hiUse else null end)
nActive
from u
ENDEXEC
LOAD DATA LOG NO RESUME YES
SORTKEYS
SORTDEVT DISK
WORKDDN(TSYUTS,TSOUTS)
MAPDDN TMAPD ERRDDN TERRD
INCURSOR CUR4
INTO TABLE OA1P.TQZ006GBGRTSSTATS
LISTDEF C#LIST 00010000
INCLUDE TABLESPACE QZ01A1P.A006A PARTLEVEL 8620
COPY LIST C#LIST
SCOPE PENDING
FULL YES
COPYDDN TCOPYD
PARALLEL
SHRLEVEL CHANGE
EXEC SQL
delete
from OA1P.TQZ006GBGRTSSTATS a
where rz = '$rz' and dbSys = '$dbSys'
and loadTS < timestamp('20.07.2012')
and a.nActive = (select nActive FROM OA1P.TQZ006GBGRTSSTATS o
where a.rz = o.rz and a.dbSys = o.dbSys
and a.dbName = o.dbName and a.name = o.name
and a.instance = o.instance
and a.partition = o.partition and a.loadTs > o.loadTs
order by o.loadTs desc
fetch first 1 row only
)
ENDEXEC
//*
$/load/
}¢--- A540769.WK.JCL(GBGRMISW) cre=2014-06-24 mod=2014-07-24-12.55.41 A540769 ---
$#@
$*( 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/
}¢--- A540769.WK.JCL(GDGCOPY) cre= mod=-. --------------------------------------
//A540769A JOB (CP00,KE50) 00010001
//S1 EXEC PGM=IEFBR14 00020001
//****************************************************************** 00040001
//*
//S001 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DSN=PO.WM.POVSMM.G0235V00,DISP=SHR
//SYSUT2 DD DSN=A540769.POVDOKU.MM235,DISP=(NEW,CATLG),
// SPACE=(CYL,(500,100)),UNIT=3390,
// DCB=(RECFM=VB,LRECL=6229,BLKSIZE=31145)
//*
}¢--- A540769.WK.JCL(GDGDEF) cre= mod=-. ---------------------------------------
//A540769Y JOB (CP00,KE50) 00010001
//*
//*MAIN CLASS=PVS
//*
//***************************************************************
//* DEFINE OF A GDG
//***************************************************************
//*
//E01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD *
DEFINE GENERATIONDATAGROUP -
(NAME(WGR.U0034.P0.VERR.LST.DWS.DATA) -
LIMIT(33) -
NOEMPTY -
SCRATCH)
//XYSIN DD *
DELETE WGR.U0034.P0.LST.DWS.DATA -
GENERATIONDATAGROUP -
PURGE
}¢--- A540769.WK.JCL(GENDBDDL) cre=2012-03-08 mod=2012-03-08-16.58.07 A540769 ---
$#@
$>.fEdit()
$<dsn
$@=¢
//A540769L JOB (CP00,KE50),'DBA TOOL',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S13
//*
//*********************************************************************
//*
//* DB2 ADMIN GENERATED JOB
//*
//*********************************************************************
//*
//***********************************************************ADB2GEN2**
//* STEP GENSQL: GENERATE SQL FROM DB2 CATALOG
//*********************************************************************
$!
$@for li $@=¢
$=db=-word($li, 1)
//******************** db $db
//$db EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROG(ADB2GEN) PLAN(ADB)
END
/*
//SYSPRINT DD SYSOUT=*
//SQL DD DISP=OLD,
// DSN=A540769.TMP.SQL($db)
//IN DD *
DB2SYS = 'DBTF',
DB2ALOC = '',
DB2SERV = 'CHSKA000DBTF',
DB2AUTH = 'S100447',
DB2REL = '1012',
RUNSQLID = 'S100447',
GENSG = 'N',
GENDB = 'Y',
GENTS = 'Y',
GENTABLE = 'Y',
GENVIEW = 'Y',
GENINDEX = 'Y',
GENSYN = 'Y',
GENALIAS = 'Y',
GENLABEL = 'Y',
GENCOMM = 'Y',
GENRELS = 'Y',
GENTRIG = 'Y',
ACTVCNTL = '',
GRANTDB = 'N',
GRANTTS = 'N',
GRANTTAB = 'N',
GRANTVW = 'N',
GRANTSG = 'N',
IMPLDB = '',
IMPLTS = '',
NEWDB = '',
NEWTSSG = '',
NEWIXSG = '',
NEWSQLID = '',
NEWGRANTOR = '',
SPCALLOC = 'DEFINED',
COMMITFR = 'A',
DEFAULTS = 'K',
ROLEWARN = 'Y',
TGTDB2 = '';
DB='$db', TS='';
$!
$#out 20120308 16:55:38
$#out 20120308 16:54:13
//A540769L JOB (CP00,KE50),'DBA TOOL',
//* RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG,SYSTEM=S13
//*
//*********************************************************************
//*
//* DB2 ADMIN GENERATED JOB
//*
//*********************************************************************
//*
//***********************************************************ADB2GEN2**
//* STEP GENSQL: GENERATE SQL FROM DB2 CATALOG
//*********************************************************************
//******************** db MF01A1T
//MF01A1T EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROG(ADB2GEN) PLAN(ADB)
END
/*
//SYSPRINT DD SYSOUT=*
//SQL DD DISP=OLD,
// DSN=A540769.TMP.SQL(MF01A1T)
//IN DD *
DB2SYS = 'DBTF',
DB2ALOC = '',
DB2SERV = 'CHSKA000DBTF',
DB2AUTH = 'S100447',
DB2REL = '1012',
RUNSQLID = 'S100447',
GENSG = 'N',
GENDB = 'Y',
GENTS = 'Y',
GENTABLE = 'Y',
GENVIEW = 'Y',
GENINDEX = 'Y',
GENSYN = 'Y',
GENALIAS = 'Y',
GENLABEL = 'Y',
GENCOMM = 'Y',
GENRELS = 'Y',
GENTRIG = 'Y',
ACTVCNTL = '',
GRANTDB = 'N',
GRANTTS = 'N',
GRANTTAB = 'N',
GRANTVW = 'N',
GRANTSG = 'N',
IMPLDB = '',
IMPLTS = '',
NEWDB = '',
NEWTSSG = '',
NEWIXSG = '',
NEWSQLID = '',
NEWGRANTOR = '',
SPCALLOC = 'DEFINED',
COMMITFR = 'A',
DEFAULTS = 'K',
ROLEWARN = 'Y',
TGTDB2 = '';
DB='MF01A1T', TS='';
//******************** db MF02A1T
//MF02A1T EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROG(ADB2GEN) PLAN(ADB)
END
/*
//SYSPRINT DD SYSOUT=*
//SQL DD DISP=OLD,
// DSN=A540769.TMP.SQL(MF02A1T)
//IN DD *
DB2SYS = 'DBTF',
DB2ALOC = '',
DB2SERV = 'CHSKA000DBTF',
DB2AUTH = 'S100447',
DB2REL = '1012',
RUNSQLID = 'S100447',
GENSG = 'N',
GENDB = 'Y',
GENTS = 'Y',
GENTABLE = 'Y',
GENVIEW = 'Y',
GENINDEX = 'Y',
GENSYN = 'Y',
GENALIAS = 'Y',
GENLABEL = 'Y',
GENCOMM = 'Y',
GENRELS = 'Y',
GENTRIG = 'Y',
ACTVCNTL = '',
GRANTDB = 'N',
GRANTTS = 'N',
GRANTTAB = 'N',
GRANTVW = 'N',
GRANTSG = 'N',
IMPLDB = '',
IMPLTS = '',
NEWDB = '',
NEWTSSG = '',
NEWIXSG = '',
NEWSQLID = '',
NEWGRANTOR = '',
SPCALLOC = 'DEFINED',
COMMITFR = 'A',
DEFAULTS = 'K',
ROLEWARN = 'Y',
TGTDB2 = '';
DB='MF02A1T', TS='';
//******************** db MF03A1T
//MF03A1T EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN.TOOLS.RZ1.C0.SADBLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SGOCLLIB
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
// DD DISP=SHR,DSN=DSN.TOOLS.RZ1.P0.SADBLLIB
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROG(ADB2GEN) PLAN(ADB)
END
/*
//SYSPRINT DD SYSOUT=*
//SQL DD DISP=OLD,
// DSN=A540769.TMP.SQL(MF03A1T)
//IN DD *
DB2SYS = 'DBTF',
DB2ALOC = '',
DB2SERV = 'CHSKA000DBTF',
DB2AUTH = 'S100447',
DB2REL = '1012',
RUNSQLID = 'S100447',
GENSG = 'N',
GENDB = 'Y',
GENTS = 'Y',
GENTABLE = 'Y',
GENVIEW = 'Y',
GENINDEX = 'Y',
GENSYN = 'Y',
GENALIAS = 'Y',
GENLABEL = 'Y',
GENCOMM = 'Y',
GENRELS = 'Y',
GENTRIG = 'Y',
ACTVCNTL = '',
GRANTDB = 'N',
GRANTTS = 'N',
GRANTTAB = 'N',
GRANTVW = 'N',
GRANTSG = 'N',
IMPLDB = '',
IMPLTS = '',
NEWDB = '',
NEWTSSG = '',
NEWIXSG = '',
NEWSQLID = '',
NEWGRANTOR = '',
SPCALLOC = 'DEFINED',
COMMITFR = 'A',
DEFAULTS = 'K',
ROLEWARN = 'Y',
TGTDB2 = '';
DB='MF03A1T', TS='';
$#out
}¢--- A540769.WK.JCL(GUBLERLO) cre=2006-09-19 mod=2006-09-19-18.46.28 F540769 ---
//A540769L JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769L.LOAD'),
// REGION=0M
//SYSEXEC DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.EXEC
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE A22F6CZ6
DSN('DSN.VDPS2.DBAF.VV21A1A.VDPS042.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22F6CZ6 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 15824
INTO TABLE "VDPS2"."VTCFREINVESTLIST"
WHEN(00001:00002) = X'008E'
( "INSTRUMENTID"
POSITION( 00003:00006) INTEGER
, "CASHFLOWNO"
POSITION( 00007:00010) INTEGER
, "CFREINVESTLISTNO"
POSITION( 00011:00014) INTEGER
--, "HASPROVIDEDSERVICE"
-- POSITION( 00016:00019) INTEGER
-- NULLIF(00015)=X'FF'
, "PROVIDER1ID"
POSITION( 00021:00050) CHAR(00030)
NULLIF(00020)=X'FF'
, "PROVIDER2ID"
POSITION( 00052:00081) CHAR(00030)
NULLIF(00051)=X'FF'
, "PROVIDER3ID"
POSITION( 00083:00112) CHAR(00030)
NULLIF(00082)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00114:00145) VARCHAR
NULLIF(00113)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00147:00178) VARCHAR
NULLIF(00146)=X'FF'
, "REINVINSTRID"
POSITION( 00180:00183) INTEGER
NULLIF(00179)=X'FF'
-- "PSINSTRSERVICEID"
-- POSITION( 00185:00188) INTEGER
-- NULLIF(00184)=X'FF'
, "TRADINGPLACE"
POSITION( 00190:00193) INTEGER
NULLIF(00189)=X'FF'
, "DISCOUNTCURRENCY"
POSITION( 00195:00198) INTEGER
NULLIF(00194)=X'FF'
, "REINVESTCURRENCY"
POSITION( 00200:00203) INTEGER
NULLIF(00199)=X'FF'
, "DISCOUNTAMOUNT"
POSITION( 00205:00212) FLOAT(53)
NULLIF(00204)=X'FF'
, "ISSUEPRICEAMOUNT"
POSITION( 00214:00221) FLOAT(53)
NULLIF(00213)=X'FF'
-- "BEGINDATE"
-- POSITION( 00223:00254) VARCHAR
-- NULLIF(00222)=X'FF'
-- "ENDDATE"
-- POSITION( 00256:00287) VARCHAR
-- NULLIF(00255)=X'FF'
, "DCNTAMTQTETYPE"
POSITION( 00289:00290) SMALLINT
NULLIF(00288)=X'FF'
, "DCNTAMTQTETYPEV"
POSITION( 00292:00547) VARCHAR
NULLIF(00291)=X'FF'
)
TEMPLATE A22F646J
DSN('DSN.VDPS2.DBAF.VV22A1A.VDPS079.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22F646J LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3487484
INTO TABLE "VDPS2"."VTEXDATE"
WHEN(00001:00002) = X'0081'
( "INSTRUMENTID"
POSITION( 00003:00006) INTEGER
, "CASHFLOWNO"
POSITION( 00007:00010) INTEGER
, "EXDATENO"
POSITION( 00011:00014) INTEGER
, "PROVIDER1ID"
POSITION( 00016:00045) CHAR(00030)
NULLIF(00015)=X'FF'
, "PROVIDER2ID"
POSITION( 00047:00076) CHAR(00030)
NULLIF(00046)=X'FF'
, "PROVIDER3ID"
POSITION( 00078:00107) CHAR(00030)
NULLIF(00077)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00109:00140) VARCHAR
NULLIF(00108)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00142:00173) VARCHAR
NULLIF(00141)=X'FF'
-- , "HASPROVIDEDSERVICE"
-- POSITION( 00175:00176) SMALLINT
-- NULLIF(00174)=X'FF'
-- "PSINSTRSERVICEID"
-- POSITION( 00178:00181) INTEGER
-- NULLIF(00177)=X'FF'
, "TRADINGPLACE"
POSITION( 00183:00186) INTEGER
NULLIF(00182)=X'FF'
, "CURRENCY"
POSITION( 00188:00191) INTEGER
NULLIF(00187)=X'FF'
, "ADJUSTMENT"
POSITION( 00193:00200) FLOAT(53)
NULLIF(00192)=X'FF'
, "ADJUSTMENTAMOUNT"
POSITION( 00202:00209) FLOAT(53)
NULLIF(00201)=X'FF'
, "SPECIFICPAYDATE"
POSITION( 00211:00242) VARCHAR
NULLIF(00210)=X'FF'
, "EXDATE"
POSITION( 00244:00275) VARCHAR
NULLIF(00243)=X'FF'
, "SEPARATIONDATE"
POSITION( 00277:00308) VARCHAR
NULLIF(00276)=X'FF'
-- "BEGINDATE"
-- POSITION( 00310:00341) VARCHAR
-- NULLIF(00309)=X'FF'
-- "ENDDATE"
-- POSITION( 00343:00374) VARCHAR
-- NULLIF(00342)=X'FF'
, "EXDATESTATUSTYPE"
POSITION( 00376:00377) SMALLINT
NULLIF(00375)=X'FF'
, "EXDATESTATUSTYPEV"
POSITION( 00379:00634) VARCHAR
NULLIF(00378)=X'FF'
)
TEMPLATE A22F74UD
DSN('DSN.VDPS2.DBAF.VV22A1A.VDPS089.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22F74UD LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 220002
INTO TABLE "VDPS2"."VTFUTUNDERFXSTRUCT"
WHEN(00001:00002) = X'008B'
( "INSTRUMENTID"
POSITION( 00003:00006) INTEGER
, "FUTUNDERFXSTRUCTNO"
POSITION( 00007:00010) INTEGER
, "FIXINGTIMESIZE"
POSITION( 00012:00015) INTEGER
NULLIF(00011)=X'FF'
, "PROVIDER1ID"
POSITION( 00017:00046) CHAR(00030)
NULLIF(00016)=X'FF'
, "PROVIDER2ID"
POSITION( 00048:00077) CHAR(00030)
NULLIF(00047)=X'FF'
, "PROVIDER3ID"
POSITION( 00079:00108) CHAR(00030)
NULLIF(00078)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00110:00141) VARCHAR
NULLIF(00109)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00143:00174) VARCHAR
NULLIF(00142)=X'FF'
, "UNDERPOSITION"
POSITION( 00176:00177) SMALLINT
NULLIF(00175)=X'FF'
--, "HASPROVIDEDSERVICE"
-- POSITION( 00179:00180) SMALLINT
-- NULLIF(00178)=X'FF'
, "ISPATHDEPENDENT"
POSITION( 00182:00183) SMALLINT
NULLIF(00181)=X'FF'
, "ISPARTDVDENELGBLE"
POSITION( 00185:00186) SMALLINT
NULLIF(00184)=X'FF'
, "UNDERINSTRID"
POSITION( 00188:00191) INTEGER
NULLIF(00187)=X'FF'
-- "PSINSTRSERVICEID"
-- POSITION( 00193:00196) INTEGER
-- NULLIF(00192)=X'FF'
, "TRADINGPLACE"
POSITION( 00198:00201) INTEGER
NULLIF(00197)=X'FF'
, "TRADINGCURR"
POSITION( 00203:00206) INTEGER
NULLIF(00202)=X'FF'
, "UNDERAMOUNT"
POSITION( 00208:00215) FLOAT(53)
NULLIF(00207)=X'FF'
, "FIXINGBEGINDATE"
POSITION( 00217:00248) VARCHAR
NULLIF(00216)=X'FF'
, "FIXINGENDDATE"
POSITION( 00250:00281) VARCHAR
NULLIF(00249)=X'FF'
-- "BEGINDATE"
-- POSITION( 00283:00314) VARCHAR
-- NULLIF(00282)=X'FF'
-- "ENDDATE"
-- POSITION( 00316:00347) VARCHAR
-- NULLIF(00315)=X'FF'
, "UNDERDIRTYPE"
POSITION( 00349:00350) SMALLINT
NULLIF(00348)=X'FF'
, "UNDERUNITTYPE"
POSITION( 00352:00353) SMALLINT
NULLIF(00351)=X'FF'
, "FIXINGTYPE"
POSITION( 00355:00356) SMALLINT
NULLIF(00354)=X'FF'
, "FIXTIMEUNITTYPE"
POSITION( 00358:00359) SMALLINT
NULLIF(00357)=X'FF'
, "PATHFUNCTIONTYPE"
POSITION( 00361:00362) SMALLINT
NULLIF(00360)=X'FF'
, "QUOTETYPE"
POSITION( 00364:00365) SMALLINT
NULLIF(00363)=X'FF'
, "DAYTYPE"
POSITION( 00367:00368) SMALLINT
NULLIF(00366)=X'FF'
, "FIXBFORAFTERTYPE"
POSITION( 00370:00371) SMALLINT
NULLIF(00369)=X'FF'
, "UNDERDIRTYPEV"
POSITION( 00373:00628) VARCHAR
NULLIF(00372)=X'FF'
, "UNDERUNITTYPEV"
POSITION( 00630:00885) VARCHAR
NULLIF(00629)=X'FF'
, "FIXINGTYPEV"
POSITION( 00887:01142) VARCHAR
NULLIF(00886)=X'FF'
, "FIXTIMEUNITTYPEV"
POSITION( 01144:01399) VARCHAR
NULLIF(01143)=X'FF'
, "PATHFUNCTIONTYPEV"
POSITION( 01401:01656) VARCHAR
NULLIF(01400)=X'FF'
, "QUOTETYPEV"
POSITION( 01658:01913) VARCHAR
NULLIF(01657)=X'FF'
, "DAYTYPEV"
POSITION( 01915:02170) VARCHAR
NULLIF(01914)=X'FF'
, "FIXBFORAFTERTYPEV"
POSITION( 02172:02427) VARCHAR
NULLIF(02171)=X'FF'
, "FIXINGDESCR_G"
POSITION( 02429:03430) VARCHAR
NULLIF(02428)=X'FF'
, "DESCRIPTION_G"
POSITION( 03432:04433) VARCHAR
NULLIF(03431)=X'FF'
, "FIXINGDESCR_E"
POSITION( 04435:05436) VARCHAR
NULLIF(04434)=X'FF'
, "DESCRIPTION_E"
POSITION( 05438:06439) VARCHAR
NULLIF(05437)=X'FF'
, "FIXINGDESCR_F"
POSITION( 06441:07442) VARCHAR
NULLIF(06440)=X'FF'
, "DESCRIPTION_F"
POSITION( 07444:08445) VARCHAR
NULLIF(07443)=X'FF'
, "FIXINGDESCR_I"
POSITION( 08447:09448) VARCHAR
NULLIF(08446)=X'FF'
, "DESCRIPTION_I"
POSITION( 09450:10451) VARCHAR
NULLIF(09449)=X'FF'
, "FIXINGDESCR_N"
POSITION( 10453:11454) VARCHAR
NULLIF(10452)=X'FF'
, "DESCRIPTION_N"
POSITION( 11456:12457) VARCHAR
NULLIF(11455)=X'FF'
, "UNDERQUOTETYPE"
POSITION( 12459:12460) SMALLINT
NULLIF(12458)=X'FF'
, "UNDERQUOTETYPEV"
POSITION( 12462:12717) VARCHAR
NULLIF(12461)=X'FF'
)
TEMPLATE A22HGLR8
DSN('DSN.VDPS2.DBAF.VV24A1A.VDPS157.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22HGLR8 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 201744
INTO TABLE "VDPS2"."VTINSTRRESTRICTION_OLD"
WHEN(00001:00002) = X'006B'
( "INSTRUMENTID"
POSITION( 00003:00006) INTEGER
, "INSTRRESTRICTIONNO"
POSITION( 00007:00010) INTEGER
, "PROVIDER1ID"
POSITION( 00012:00041) CHAR(00030)
NULLIF(00011)=X'FF'
, "PROVIDER2ID"
POSITION( 00043:00072) CHAR(00030)
NULLIF(00042)=X'FF'
, "PROVIDER3ID"
POSITION( 00074:00103) CHAR(00030)
NULLIF(00073)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00105:00136) VARCHAR
NULLIF(00104)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00138:00169) VARCHAR
NULLIF(00137)=X'FF'
, "MAXAMOUNT"
POSITION( 00171:00178) FLOAT(53)
NULLIF(00170)=X'FF'
, "MAXQUOTE"
POSITION( 00180:00187) FLOAT(53)
NULLIF(00179)=X'FF'
, "RESTRTYPEIDSYMBOL"
POSITION( 00189:00218) CHAR(00030)
NULLIF(00188)=X'FF'
, "PERIODBEGINDATE"
POSITION( 00220:00251) VARCHAR
NULLIF(00219)=X'FF'
, "PERIODENDDATE"
POSITION( 00253:00284) VARCHAR
NULLIF(00252)=X'FF'
, "RESTRMARKETTYPE"
POSITION( 00286:00287) SMALLINT
NULLIF(00285)=X'FF'
, "RESTRMARKETTYPEV"
POSITION( 00289:00544) VARCHAR
NULLIF(00288)=X'FF'
)
TEMPLATE A22GEKKP
DSN('DSN.VDPS2.DBAF.VV24A1A.VDPS182.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22GEKKP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1154358
INTO TABLE "VDPS2"."VTLINUNDERFXSTRUCT"
WHEN(00001:00002) = X'0084'
( "INSTRUMENTID"
POSITION( 00003:00006) INTEGER
, "CASHFLOWNO"
POSITION( 00007:00010) INTEGER
, "PAYMENTNO"
POSITION( 00011:00014) INTEGER
, "LINUNDERFXSTRUCTNO"
POSITION( 00015:00018) INTEGER
, "FIXINGTIMESIZE"
POSITION( 00020:00023) INTEGER
NULLIF(00019)=X'FF'
, "PROVIDER1ID"
POSITION( 00025:00054) CHAR(00030)
NULLIF(00024)=X'FF'
, "PROVIDER2ID"
POSITION( 00056:00085) CHAR(00030)
NULLIF(00055)=X'FF'
, "PROVIDER3ID"
POSITION( 00087:00116) CHAR(00030)
NULLIF(00086)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00118:00149) VARCHAR
NULLIF(00117)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00151:00182) VARCHAR
NULLIF(00150)=X'FF'
, "UNDERPOSITION"
POSITION( 00184:00185) SMALLINT
NULLIF(00183)=X'FF'
-- "HASPROVIDEDSERVICE"
-- POSITION( 00187:00188) SMALLINT
-- NULLIF(00186)=X'FF'
, "ISPATHDEPENDENT"
POSITION( 00190:00191) SMALLINT
NULLIF(00189)=X'FF'
, "ISPARTDVDENELGBLE"
POSITION( 00193:00194) SMALLINT
NULLIF(00192)=X'FF'
, "UNDERINSTRID"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
-- "PSINSTRSERVICEID"
-- POSITION( 00201:00204) INTEGER
-- NULLIF(00200)=X'FF'
, "TRADINGPLACE"
POSITION( 00206:00209) INTEGER
NULLIF(00205)=X'FF'
, "TRADINGCURR"
POSITION( 00211:00214) INTEGER
NULLIF(00210)=X'FF'
, "UNDERAMOUNT"
POSITION( 00216:00223) FLOAT(53)
NULLIF(00215)=X'FF'
, "FIXINGBEGINDATE"
POSITION( 00225:00256) VARCHAR
NULLIF(00224)=X'FF'
, "FIXINGENDDATE"
POSITION( 00258:00289) VARCHAR
NULLIF(00257)=X'FF'
-- "BEGINDATE"
-- POSITION( 00291:00322) VARCHAR
-- NULLIF(00290)=X'FF'
-- "ENDDATE"
-- POSITION( 00324:00355) VARCHAR
-- NULLIF(00323)=X'FF'
, "UNDERDIRTYPE"
POSITION( 00357:00358) SMALLINT
NULLIF(00356)=X'FF'
, "UNDERUNITTYPE"
POSITION( 00360:00361) SMALLINT
NULLIF(00359)=X'FF'
, "FIXINGTYPE"
POSITION( 00363:00364) SMALLINT
NULLIF(00362)=X'FF'
, "FIXTIMEUNITTYPE"
POSITION( 00366:00367) SMALLINT
NULLIF(00365)=X'FF'
, "PATHFUNCTIONTYPE"
POSITION( 00369:00370) SMALLINT
NULLIF(00368)=X'FF'
, "QUOTETYPE"
POSITION( 00372:00373) SMALLINT
NULLIF(00371)=X'FF'
, "DAYTYPE"
POSITION( 00375:00376) SMALLINT
NULLIF(00374)=X'FF'
, "FIXBFORAFTERTYPE"
POSITION( 00378:00379) SMALLINT
NULLIF(00377)=X'FF'
, "UNDERDIRTYPEV"
POSITION( 00381:00636) VARCHAR
NULLIF(00380)=X'FF'
, "UNDERUNITTYPEV"
POSITION( 00638:00893) VARCHAR
NULLIF(00637)=X'FF'
, "FIXINGTYPEV"
POSITION( 00895:01150) VARCHAR
NULLIF(00894)=X'FF'
, "FIXTIMEUNITTYPEV"
POSITION( 01152:01407) VARCHAR
NULLIF(01151)=X'FF'
, "PATHFUNCTIONTYPEV"
POSITION( 01409:01664) VARCHAR
NULLIF(01408)=X'FF'
, "QUOTETYPEV"
POSITION( 01666:01921) VARCHAR
NULLIF(01665)=X'FF'
, "DAYTYPEV"
POSITION( 01923:02178) VARCHAR
NULLIF(01922)=X'FF'
, "FIXBFORAFTERTYPEV"
POSITION( 02180:02435) VARCHAR
NULLIF(02179)=X'FF'
, "FIXINGDESCR_G"
POSITION( 02437:03438) VARCHAR
NULLIF(02436)=X'FF'
, "DESCRIPTION_G"
POSITION( 03440:04441) VARCHAR
NULLIF(03439)=X'FF'
, "FIXINGDESCR_E"
POSITION( 04443:05444) VARCHAR
NULLIF(04442)=X'FF'
, "DESCRIPTION_E"
POSITION( 05446:06447) VARCHAR
NULLIF(05445)=X'FF'
, "FIXINGDESCR_F"
POSITION( 06449:07450) VARCHAR
NULLIF(06448)=X'FF'
, "DESCRIPTION_F"
POSITION( 07452:08453) VARCHAR
NULLIF(07451)=X'FF'
, "FIXINGDESCR_I"
POSITION( 08455:09456) VARCHAR
NULLIF(08454)=X'FF'
, "DESCRIPTION_I"
POSITION( 09458:10459) VARCHAR
NULLIF(09457)=X'FF'
, "FIXINGDESCR_N"
POSITION( 10461:11462) VARCHAR
NULLIF(10460)=X'FF'
, "DESCRIPTION_N"
POSITION( 11464:12465) VARCHAR
NULLIF(11463)=X'FF'
, "UNDERQUOTETYPE"
POSITION( 12467:12468) SMALLINT
NULLIF(12466)=X'FF'
, "UNDERQUOTETYPEV"
POSITION( 12470:12725) VARCHAR
NULLIF(12469)=X'FF'
)
TEMPLATE A22GEKPU
DSN('DSN.VDPS2.DBAF.VV24A1A.VDPS184.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22GEKPU LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 5
INTO TABLE "VDPS2"."VTLISTGROUPSCHEME"
WHEN(00001:00002) = X'0086'
( "LISTINGGRPSCHEMEID"
POSITION( 00003:00006) INTEGER
, "HISTORYID"
POSITION( 00008:00011) INTEGER
NULLIF(00007)=X'FF'
, "ROWSTATUS"
POSITION( 00013:00014) SMALLINT
NULLIF(00012)=X'FF'
, "VSTQUALITY"
POSITION( 00016:00017) SMALLINT
NULLIF(00015)=X'FF'
, "REVISIONNO"
POSITION( 00019:00020) SMALLINT
NULLIF(00018)=X'FF'
, "VSTREQUIREDQUALITY"
POSITION( 00022:00023) SMALLINT
NULLIF(00021)=X'FF'
, "VSTMAXIMUMQUALITY"
POSITION( 00025:00026) SMALLINT
NULLIF(00024)=X'FF'
-- "HASPROVIDEDSERVICE"
-- POSITION( 00028:00029) SMALLINT
-- NULLIF(00027)=X'FF'
, "HASPENDINGACTVTY"
POSITION( 00031:00032) SMALLINT
NULLIF(00030)=X'FF'
, "ISRELEVANT"
POSITION( 00034:00035) SMALLINT
NULLIF(00033)=X'FF'
, "HASFUTUREMESSAGES"
POSITION( 00037:00038) SMALLINT
NULLIF(00036)=X'FF'
, "FOTWIZISDISABLED"
POSITION( 00040:00041) SMALLINT
NULLIF(00039)=X'FF'
, "ISONDB"
POSITION( 00043:00044) SMALLINT
NULLIF(00042)=X'FF'
-- "PSINSTRSERVICEID"
-- POSITION( 00046:00049) INTEGER
-- NULLIF(00045)=X'FF'
, "TRADINGPLACE"
POSITION( 00051:00054) INTEGER
NULLIF(00050)=X'FF'
, "SCHEMESYMBOL"
POSITION( 00056:00085) CHAR(00030)
NULLIF(00055)=X'FF'
, "OWNERIDSYMBOL"
POSITION( 00087:00116) CHAR(00030)
NULLIF(00086)=X'FF'
, "VSTNAME"
POSITION( 00118:00147) CHAR(00030)
NULLIF(00117)=X'FF'
, "VSTVERSION"
POSITION( 00149:00178) CHAR(00030)
NULLIF(00148)=X'FF'
, "CREATEUSERID"
POSITION( 00180:00209) CHAR(00030)
NULLIF(00179)=X'FF'
, "UPDATEUSERID"
POSITION( 00211:00240) CHAR(00030)
NULLIF(00210)=X'FF'
, "PROVIDER1SYMBOL"
POSITION( 00242:00271) CHAR(00030)
NULLIF(00241)=X'FF'
, "PROVIDER2SYMBOL"
POSITION( 00273:00302) CHAR(00030)
NULLIF(00272)=X'FF'
, "PROVIDER3SYMBOL"
POSITION( 00304:00333) CHAR(00030)
NULLIF(00303)=X'FF'
, "VALIDUNTILDATE"
POSITION( 00335:00366) VARCHAR
NULLIF(00334)=X'FF'
, "VALIDFROMDATE"
POSITION( 00368:00399) VARCHAR
NULLIF(00367)=X'FF'
-- "BEGINDATE"
-- POSITION( 00401:00432) VARCHAR
-- NULLIF(00400)=X'FF'
-- "ENDDATE"
-- POSITION( 00434:00465) VARCHAR
-- NULLIF(00433)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00467:00498) VARCHAR
NULLIF(00466)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00500:00531) VARCHAR
NULLIF(00499)=X'FF'
, "USAGETYPE"
POSITION( 00533:00534) SMALLINT
NULLIF(00532)=X'FF'
, "FOTYPE"
POSITION( 00536:00537) SMALLINT
NULLIF(00535)=X'FF'
, "DATASTATUSTYPE"
POSITION( 00539:00540) SMALLINT
NULLIF(00538)=X'FF'
, "BLOCKINGCODETYPE"
POSITION( 00542:00543) SMALLINT
NULLIF(00541)=X'FF'
, "LOGICDELETIONTYPE"
POSITION( 00545:00546) SMALLINT
NULLIF(00544)=X'FF'
, "USAGETYPEV"
POSITION( 00548:00803) VARCHAR
NULLIF(00547)=X'FF'
, "FOTYPEV"
POSITION( 00805:01060) VARCHAR
NULLIF(00804)=X'FF'
, "DATASTATUSTYPEV"
POSITION( 01062:01317) VARCHAR
NULLIF(01061)=X'FF'
, "BLOCKINGCODETYPEV"
POSITION( 01319:01574) VARCHAR
NULLIF(01318)=X'FF'
, "LOGICDELETIONTYPEV"
POSITION( 01576:01831) VARCHAR
NULLIF(01575)=X'FF'
, "NAME_G"
POSITION( 01833:02088) VARCHAR
NULLIF(01832)=X'FF'
, "NAME_E"
POSITION( 02090:02345) VARCHAR
NULLIF(02089)=X'FF'
, "NAME_F"
POSITION( 02347:02602) VARCHAR
NULLIF(02346)=X'FF'
, "NAME_I"
POSITION( 02604:02859) VARCHAR
NULLIF(02603)=X'FF'
, "NAME_N"
POSITION( 02861:03116) VARCHAR
NULLIF(02860)=X'FF'
, "MODIFICATIONREASON"
POSITION( 03118:05119) VARCHAR
NULLIF(03117)=X'FF'
, "REMARKS"
POSITION( 05121:07122) VARCHAR
NULLIF(05120)=X'FF'
, "DESCRIPTION_G"
POSITION( 07124:08125) VARCHAR
NULLIF(07123)=X'FF'
, "DESCRIPTION_E"
POSITION( 08127:09128) VARCHAR
NULLIF(08126)=X'FF'
, "DESCRIPTION_F"
POSITION( 09130:10131) VARCHAR
NULLIF(09129)=X'FF'
, "DESCRIPTION_I"
POSITION( 10133:11134) VARCHAR
NULLIF(10132)=X'FF'
, "DESCRIPTION_N"
POSITION( 11136:12137) VARCHAR
NULLIF(11135)=X'FF'
)
TEMPLATE A22GEKYX
DSN('DSN.VDPS2.DBAF.VV24A1A.VDPS187.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22GEKYX LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1060
INTO TABLE "VDPS2"."VTLISTINGGROUP"
WHEN(00001:00002) = X'0089'
( "LISTINGGROUPID"
POSITION( 00003:00006) INTEGER
, "HISTORYID"
POSITION( 00008:00011) INTEGER
NULLIF(00007)=X'FF'
, "LISTINGGROUPTYPE"
POSITION( 00013:00014) SMALLINT
NULLIF(00012)=X'FF'
, "ROWSTATUS"
POSITION( 00016:00017) SMALLINT
NULLIF(00015)=X'FF'
, "VSTQUALITY"
POSITION( 00019:00020) SMALLINT
NULLIF(00018)=X'FF'
, "REVISIONNO"
POSITION( 00022:00023) SMALLINT
NULLIF(00021)=X'FF'
, "VSTREQUIREDQUALITY"
POSITION( 00025:00026) SMALLINT
NULLIF(00024)=X'FF'
, "VSTMAXIMUMQUALITY"
POSITION( 00028:00029) SMALLINT
NULLIF(00027)=X'FF'
, "HASFIXEDEXCHRATE"
POSITION( 00031:00032) SMALLINT
NULLIF(00030)=X'FF'
, "HASMUSTNAMEENTRY"
POSITION( 00034:00035) SMALLINT
NULLIF(00033)=X'FF'
-- "HASPROVIDEDSERVICE"
-- POSITION( 00037:00038) SMALLINT
-- NULLIF(00036)=X'FF'
, "HASPENDINGACTVTY"
POSITION( 00040:00041) SMALLINT
NULLIF(00039)=X'FF'
, "ISRELEVANT"
POSITION( 00043:00044) SMALLINT
NULLIF(00042)=X'FF'
, "HASFUTUREMESSAGES"
POSITION( 00046:00047) SMALLINT
NULLIF(00045)=X'FF'
, "FOTWIZISDISABLED"
POSITION( 00049:00050) SMALLINT
NULLIF(00048)=X'FF'
, "ISONDB"
POSITION( 00052:00053) SMALLINT
NULLIF(00051)=X'FF'
-- "PSINSTRSERVICEID"
-- POSITION( 00055:00058) INTEGER
-- NULLIF(00054)=X'FF'
, "TRADINGPLACE"
POSITION( 00060:00063) INTEGER
NULLIF(00059)=X'FF'
, "FIXEDEXCHRATECURR"
POSITION( 00065:00068) INTEGER
NULLIF(00064)=X'FF'
, "SCHEMESYMBOL"
POSITION( 00070:00099) CHAR(00030)
NULLIF(00069)=X'FF'
, "IDSYMBOL"
POSITION( 00101:00130) CHAR(00030)
NULLIF(00100)=X'FF'
, "VSTNAME"
POSITION( 00132:00161) CHAR(00030)
NULLIF(00131)=X'FF'
, "VSTVERSION"
POSITION( 00163:00192) CHAR(00030)
NULLIF(00162)=X'FF'
, "CREATEUSERID"
POSITION( 00194:00223) CHAR(00030)
NULLIF(00193)=X'FF'
, "UPDATEUSERID"
POSITION( 00225:00254) CHAR(00030)
NULLIF(00224)=X'FF'
, "PROVIDER1SYMBOL"
POSITION( 00256:00285) CHAR(00030)
NULLIF(00255)=X'FF'
, "PROVIDER2SYMBOL"
POSITION( 00287:00316) CHAR(00030)
NULLIF(00286)=X'FF'
, "PROVIDER3SYMBOL"
POSITION( 00318:00347) CHAR(00030)
NULLIF(00317)=X'FF'
, "VALIDUNTILDATE"
POSITION( 00349:00380) VARCHAR
NULLIF(00348)=X'FF'
, "VALIDFROMDATE"
POSITION( 00382:00413) VARCHAR
NULLIF(00381)=X'FF'
-- "BEGINDATE"
-- POSITION( 00415:00446) VARCHAR
-- NULLIF(00414)=X'FF'
-- "ENDDATE"
-- POSITION( 00448:00479) VARCHAR
-- NULLIF(00447)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00481:00512) VARCHAR
NULLIF(00480)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00514:00545) VARCHAR
NULLIF(00513)=X'FF'
, "LEVIEDDUTYTYPE"
POSITION( 00547:00548) SMALLINT
NULLIF(00546)=X'FF'
, "FOTYPE"
POSITION( 00550:00551) SMALLINT
NULLIF(00549)=X'FF'
, "DATASTATUSTYPE"
POSITION( 00553:00554) SMALLINT
NULLIF(00552)=X'FF'
, "BLOCKINGCODETYPE"
POSITION( 00556:00557) SMALLINT
NULLIF(00555)=X'FF'
, "LOGICDELETIONTYPE"
POSITION( 00559:00560) SMALLINT
NULLIF(00558)=X'FF'
, "LEVIEDDUTYTYPEV"
POSITION( 00562:00817) VARCHAR
NULLIF(00561)=X'FF'
, "FOTYPEV"
POSITION( 00819:01074) VARCHAR
NULLIF(00818)=X'FF'
, "DATASTATUSTYPEV"
POSITION( 01076:01331) VARCHAR
NULLIF(01075)=X'FF'
, "BLOCKINGCODETYPEV"
POSITION( 01333:01588) VARCHAR
NULLIF(01332)=X'FF'
, "LOGICDELETIONTYPEV"
POSITION( 01590:01845) VARCHAR
NULLIF(01589)=X'FF'
, "NAME_G"
POSITION( 01847:02102) VARCHAR
NULLIF(01846)=X'FF'
, "NAME_E"
POSITION( 02104:02359) VARCHAR
NULLIF(02103)=X'FF'
, "NAME_F"
POSITION( 02361:02616) VARCHAR
NULLIF(02360)=X'FF'
, "NAME_I"
POSITION( 02618:02873) VARCHAR
NULLIF(02617)=X'FF'
, "NAME_N"
POSITION( 02875:03130) VARCHAR
NULLIF(02874)=X'FF'
, "MODIFICATIONREASON"
POSITION( 03132:05133) VARCHAR
NULLIF(03131)=X'FF'
, "REMARKS"
POSITION( 05135:07136) VARCHAR
NULLIF(05134)=X'FF'
, "DESCRIPTION_G"
POSITION( 07138:08139) VARCHAR
NULLIF(07137)=X'FF'
, "DESCRIPTION_E"
POSITION( 08141:09142) VARCHAR
NULLIF(08140)=X'FF'
, "DESCRIPTION_F"
POSITION( 09144:10145) VARCHAR
NULLIF(09143)=X'FF'
, "DESCRIPTION_I"
POSITION( 10147:11148) VARCHAR
NULLIF(10146)=X'FF'
, "DESCRIPTION_N"
POSITION( 11150:12151) VARCHAR
NULLIF(11149)=X'FF'
)
TEMPLATE A22HLVPB
DSN('DSN.VDPS2.DBAF.VV24A1A.VDPS190.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22HLVPB LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 42327834
INTO TABLE "VDPS2"."VTLISTINGIDENT_OLD"
WHEN(00001:00002) = X'008C'
( "INSTRUMENTID"
POSITION( 00003:00006) INTEGER
, "LISTINGNO"
POSITION( 00007:00010) INTEGER
, "IDSYMBOL"
POSITION( 00011:00040) CHAR(00030)
, "SCHEMESYMBOL"
POSITION( 00041:00070) CHAR(00030)
, "ROWSTATUS"
POSITION( 00072:00073) SMALLINT
NULLIF(00071)=X'FF'
, "ROWSTATUSPAS"
POSITION( 00075:00076) SMALLINT
NULLIF(00074)=X'FF'
, "ROWSTATUSFUT"
POSITION( 00078:00079) SMALLINT
NULLIF(00077)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00081:00112) VARCHAR
NULLIF(00080)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00114:00145) VARCHAR
NULLIF(00113)=X'FF'
, "VALIDFROMDATE"
POSITION( 00147:00178) VARCHAR
NULLIF(00146)=X'FF'
, "VALIDUNTILDATE"
POSITION( 00180:00211) VARCHAR
NULLIF(00179)=X'FF'
)
TEMPLATE A22HE41R
DSN('DSN.VDPS2.DBAF.VV25A1A.VDPS214.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22HE41R LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 8164494
INTO TABLE "VDPS2"."VTOPTUNDERFXSTRUCT"
WHEN(00001:00002) = X'0072'
( "INSTRUMENTID"
POSITION( 00003:00006) INTEGER
, "CASHFLOWNO"
POSITION( 00007:00010) INTEGER
, "PAYMENTNO"
POSITION( 00011:00014) INTEGER
, "PAYUNDERFXSTRUCTNO"
POSITION( 00015:00018) INTEGER
, "FIXINGTIMESIZE"
POSITION( 00020:00023) INTEGER
NULLIF(00019)=X'FF'
, "PROVIDER1ID"
POSITION( 00025:00054) CHAR(00030)
NULLIF(00024)=X'FF'
, "PROVIDER2ID"
POSITION( 00056:00085) CHAR(00030)
NULLIF(00055)=X'FF'
, "PROVIDER3ID"
POSITION( 00087:00116) CHAR(00030)
NULLIF(00086)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00118:00149) VARCHAR
NULLIF(00117)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00151:00182) VARCHAR
NULLIF(00150)=X'FF'
, "UNDERPOSITION"
POSITION( 00184:00185) SMALLINT
NULLIF(00183)=X'FF'
-- "HASPROVIDEDSERVICE"
-- POSITION( 00187:00188) SMALLINT
-- NULLIF(00186)=X'FF'
, "ISPATHDEPENDENT"
POSITION( 00190:00191) SMALLINT
NULLIF(00189)=X'FF'
, "ISPARTDVDENELGBLE"
POSITION( 00193:00194) SMALLINT
NULLIF(00192)=X'FF'
, "UNDERINSTRID"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
-- "PSINSTRSERVICEID"
-- POSITION( 00201:00204) INTEGER
-- NULLIF(00200)=X'FF'
, "TRADINGPLACE"
POSITION( 00206:00209) INTEGER
NULLIF(00205)=X'FF'
, "TRADINGCURR"
POSITION( 00211:00214) INTEGER
NULLIF(00210)=X'FF'
, "UNDERAMOUNT"
POSITION( 00216:00223) FLOAT(53)
NULLIF(00215)=X'FF'
, "FIXINGBEGINDATE"
POSITION( 00225:00256) VARCHAR
NULLIF(00224)=X'FF'
, "FIXINGENDDATE"
POSITION( 00258:00289) VARCHAR
NULLIF(00257)=X'FF'
-- "BEGINDATE"
-- POSITION( 00291:00322) VARCHAR
-- NULLIF(00290)=X'FF'
-- "ENDDATE"
-- POSITION( 00324:00355) VARCHAR
-- NULLIF(00323)=X'FF'
, "UNDERDIRTYPE"
POSITION( 00357:00358) SMALLINT
NULLIF(00356)=X'FF'
, "UNDERUNITTYPE"
POSITION( 00360:00361) SMALLINT
NULLIF(00359)=X'FF'
, "FIXINGTYPE"
POSITION( 00363:00364) SMALLINT
NULLIF(00362)=X'FF'
, "FIXTIMEUNITTYPE"
POSITION( 00366:00367) SMALLINT
NULLIF(00365)=X'FF'
, "PATHFUNCTIONTYPE"
POSITION( 00369:00370) SMALLINT
NULLIF(00368)=X'FF'
, "QUOTETYPE"
POSITION( 00372:00373) SMALLINT
NULLIF(00371)=X'FF'
, "DAYTYPE"
POSITION( 00375:00376) SMALLINT
NULLIF(00374)=X'FF'
, "FIXBFORAFTERTYPE"
POSITION( 00378:00379) SMALLINT
NULLIF(00377)=X'FF'
, "UNDERDIRTYPEV"
POSITION( 00381:00636) VARCHAR
NULLIF(00380)=X'FF'
, "UNDERUNITTYPEV"
POSITION( 00638:00893) VARCHAR
NULLIF(00637)=X'FF'
, "FIXINGTYPEV"
POSITION( 00895:01150) VARCHAR
NULLIF(00894)=X'FF'
, "FIXTIMEUNITTYPEV"
POSITION( 01152:01407) VARCHAR
NULLIF(01151)=X'FF'
, "PATHFUNCTIONTYPEV"
POSITION( 01409:01664) VARCHAR
NULLIF(01408)=X'FF'
, "QUOTETYPEV"
POSITION( 01666:01921) VARCHAR
NULLIF(01665)=X'FF'
, "DAYTYPEV"
POSITION( 01923:02178) VARCHAR
NULLIF(01922)=X'FF'
, "FIXBFORAFTERTYPEV"
POSITION( 02180:02435) VARCHAR
NULLIF(02179)=X'FF'
, "FIXINGDESCR_G"
POSITION( 02437:03438) VARCHAR
NULLIF(02436)=X'FF'
, "DESCRIPTION_G"
POSITION( 03440:04441) VARCHAR
NULLIF(03439)=X'FF'
, "FIXINGDESCR_E"
POSITION( 04443:05444) VARCHAR
NULLIF(04442)=X'FF'
, "DESCRIPTION_E"
POSITION( 05446:06447) VARCHAR
NULLIF(05445)=X'FF'
, "FIXINGDESCR_F"
POSITION( 06449:07450) VARCHAR
NULLIF(06448)=X'FF'
, "DESCRIPTION_F"
POSITION( 07452:08453) VARCHAR
NULLIF(07451)=X'FF'
, "FIXINGDESCR_I"
POSITION( 08455:09456) VARCHAR
NULLIF(08454)=X'FF'
, "DESCRIPTION_I"
POSITION( 09458:10459) VARCHAR
NULLIF(09457)=X'FF'
, "FIXINGDESCR_N"
POSITION( 10461:11462) VARCHAR
NULLIF(10460)=X'FF'
, "DESCRIPTION_N"
POSITION( 11464:12465) VARCHAR
NULLIF(11463)=X'FF'
, "UNDERQUOTETYPE"
POSITION( 12467:12468) SMALLINT
NULLIF(12466)=X'FF'
, "UNDERQUOTETYPEV"
POSITION( 12470:12725) VARCHAR
NULLIF(12469)=X'FF'
)
TEMPLATE A22HFRHK
DSN('DSN.VDPS2.DBAF.VV27A1A.VDPS330.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22HFRHK LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 380486
INTO TABLE "VDPS2"."DTUNDERFIXCOMP"
WHEN(00001:00002) = X'0082'
( "INSTRUMENTID"
POSITION( 00003:00006) INTEGER
, "CASHFLOWNO"
POSITION( 00007:00010) INTEGER
, "PAYMENTNO"
POSITION( 00011:00014) INTEGER
, "UNDERFIXCOMPNO"
POSITION( 00015:00018) INTEGER
, "FIXINGTIMESIZE"
POSITION( 00020:00023) INTEGER
NULLIF(00019)=X'FF'
, "PROVIDER1ID"
POSITION( 00025:00054) CHAR(00030)
NULLIF(00024)=X'FF'
, "PROVIDER2ID"
POSITION( 00056:00085) CHAR(00030)
NULLIF(00055)=X'FF'
, "PROVIDER3ID"
POSITION( 00087:00116) CHAR(00030)
NULLIF(00086)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00118:00149) VARCHAR
NULLIF(00117)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00151:00182) VARCHAR
NULLIF(00150)=X'FF'
, "UNDERPOSITION"
POSITION( 00184:00185) SMALLINT
NULLIF(00183)=X'FF'
, "ISPATHDEPENDENT"
POSITION( 00187:00188) SMALLINT
NULLIF(00186)=X'FF'
, "ISPARTDVDENELGBLE"
POSITION( 00190:00191) SMALLINT
NULLIF(00189)=X'FF'
, "UNDERINSTRID"
POSITION( 00193:00196) INTEGER
NULLIF(00192)=X'FF'
, "TRADINGCURR"
POSITION( 00198:00201) INTEGER
NULLIF(00197)=X'FF'
, "UNDERAMOUNT"
POSITION( 00203:00210) FLOAT(53)
NULLIF(00202)=X'FF'
, "FIXINGBEGINDATE"
POSITION( 00212:00243) VARCHAR
NULLIF(00211)=X'FF'
, "FIXINGENDDATE"
POSITION( 00245:00276) VARCHAR
NULLIF(00244)=X'FF'
, "UNDERQUOTETYPE"
POSITION( 00278:00279) SMALLINT
NULLIF(00277)=X'FF'
, "UNDERDIRTYPE"
POSITION( 00281:00282) SMALLINT
NULLIF(00280)=X'FF'
, "UNDERUNITTYPE"
POSITION( 00284:00285) SMALLINT
NULLIF(00283)=X'FF'
, "FIXINGTYPE"
POSITION( 00287:00288) SMALLINT
NULLIF(00286)=X'FF'
, "FIXTIMEUNITTYPE"
POSITION( 00290:00291) SMALLINT
NULLIF(00289)=X'FF'
, "PATHFUNCTIONTYPE"
POSITION( 00293:00294) SMALLINT
NULLIF(00292)=X'FF'
, "QUOTETYPE"
POSITION( 00296:00297) SMALLINT
NULLIF(00295)=X'FF'
, "DAYTYPE"
POSITION( 00299:00300) SMALLINT
NULLIF(00298)=X'FF'
, "FIXBFORAFTERTYPE"
POSITION( 00302:00303) SMALLINT
NULLIF(00301)=X'FF'
, "UNDERQUOTETYPEV"
POSITION( 00305:00560) VARCHAR
NULLIF(00304)=X'FF'
, "UNDERDIRTYPEV"
POSITION( 00562:00817) VARCHAR
NULLIF(00561)=X'FF'
, "UNDERUNITTYPEV"
POSITION( 00819:01074) VARCHAR
NULLIF(00818)=X'FF'
, "FIXINGTYPEV"
POSITION( 01076:01331) VARCHAR
NULLIF(01075)=X'FF'
, "FIXTIMEUNITTYPEV"
POSITION( 01333:01588) VARCHAR
NULLIF(01332)=X'FF'
, "PATHFUNCTIONTYPEV"
POSITION( 01590:01845) VARCHAR
NULLIF(01589)=X'FF'
, "QUOTETYPEV"
POSITION( 01847:02102) VARCHAR
NULLIF(01846)=X'FF'
, "DAYTYPEV"
POSITION( 02104:02359) VARCHAR
NULLIF(02103)=X'FF'
, "FIXBFORAFTERTYPEV"
POSITION( 02361:02616) VARCHAR
NULLIF(02360)=X'FF'
, "FIXINGDESCR_G"
POSITION( 02618:03619) VARCHAR
NULLIF(02617)=X'FF'
, "DESCRIPTION_G"
POSITION( 03621:04622) VARCHAR
NULLIF(03620)=X'FF'
, "FIXINGDESCR_E"
POSITION( 04624:05625) VARCHAR
NULLIF(04623)=X'FF'
, "DESCRIPTION_E"
POSITION( 05627:06628) VARCHAR
NULLIF(05626)=X'FF'
, "FIXINGDESCR_F"
POSITION( 06630:07631) VARCHAR
NULLIF(06629)=X'FF'
, "DESCRIPTION_F"
POSITION( 07633:08634) VARCHAR
NULLIF(07632)=X'FF'
, "FIXINGDESCR_I"
POSITION( 08636:09637) VARCHAR
NULLIF(08635)=X'FF'
, "DESCRIPTION_I"
POSITION( 09639:10640) VARCHAR
NULLIF(09638)=X'FF'
, "FIXINGDESCR_N"
POSITION( 10642:11643) VARCHAR
NULLIF(10641)=X'FF'
, "DESCRIPTION_N"
POSITION( 11645:12646) VARCHAR
NULLIF(11644)=X'FF'
-- "HASPROVIDEDSERVICE"
-- POSITION( 12648:12651) INTEGER
-- NULLIF(12647)=X'FF'
-- "PSINSTRSERVICEID"
-- POSITION( 12653:12656) INTEGER
-- NULLIF(12652)=X'FF'
, "TRADINGPLACE"
POSITION( 12658:12661) INTEGER
NULLIF(12657)=X'FF'
-- "BEGINDATE"
-- POSITION( 12663:12694) VARCHAR
-- NULLIF(12662)=X'FF'
-- "ENDDATE"
-- POSITION( 12696:12727) VARCHAR
-- NULLIF(12695)=X'FF'
)
TEMPLATE A22HGJBL
DSN('DSN.VDPS2.DBAF.VV28A1A.VDPS364.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22HGJBL LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 172605
INTO TABLE "VDPS2"."VTUNDERFXCOMPONENT"
WHEN(00001:00002) = X'0080'
( "INSTRUMENTID"
POSITION( 00003:00006) INTEGER
, "UNDERFIXINGNO"
POSITION( 00007:00010) INTEGER
, "UNDERFXCOMPONENTNO"
POSITION( 00011:00014) INTEGER
, "FIXINGTIMESIZE"
POSITION( 00016:00019) INTEGER
NULLIF(00015)=X'FF'
, "PROVIDER1ID"
POSITION( 00021:00050) CHAR(00030)
NULLIF(00020)=X'FF'
, "PROVIDER2ID"
POSITION( 00052:00081) CHAR(00030)
NULLIF(00051)=X'FF'
, "PROVIDER3ID"
POSITION( 00083:00112) CHAR(00030)
NULLIF(00082)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00114:00145) VARCHAR
NULLIF(00113)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00147:00178) VARCHAR
NULLIF(00146)=X'FF'
, "UNDERPOSITION"
POSITION( 00180:00181) SMALLINT
NULLIF(00179)=X'FF'
, "ISPATHDEPENDENT"
POSITION( 00183:00184) SMALLINT
NULLIF(00182)=X'FF'
, "ISPARTDVDENELGBLE"
POSITION( 00186:00187) SMALLINT
NULLIF(00185)=X'FF'
-- "HASPROVIDEDSERVICE"
-- POSITION( 00189:00190) SMALLINT
-- NULLIF(00188)=X'FF'
, "UNDERINSTRID"
POSITION( 00192:00195) INTEGER
NULLIF(00191)=X'FF'
-- "PSINSTRSERVICEID"
-- POSITION( 00197:00200) INTEGER
-- NULLIF(00196)=X'FF'
, "TRADINGPLACE"
POSITION( 00202:00205) INTEGER
NULLIF(00201)=X'FF'
, "TRADINGCURR"
POSITION( 00207:00210) INTEGER
NULLIF(00206)=X'FF'
, "UNDERAMOUNT"
POSITION( 00212:00219) FLOAT(53)
NULLIF(00211)=X'FF'
, "FIXINGBEGINDATE"
POSITION( 00221:00252) VARCHAR
NULLIF(00220)=X'FF'
, "FIXINGENDDATE"
POSITION( 00254:00285) VARCHAR
NULLIF(00253)=X'FF'
-- "BEGINDATE"
-- POSITION( 00287:00318) VARCHAR
-- NULLIF(00286)=X'FF'
-- "ENDDATE"
-- POSITION( 00320:00351) VARCHAR
-- NULLIF(00319)=X'FF'
, "UNDERDIRTYPE"
POSITION( 00353:00354) SMALLINT
NULLIF(00352)=X'FF'
, "UNDERUNITTYPE"
POSITION( 00356:00357) SMALLINT
NULLIF(00355)=X'FF'
, "FIXINGTYPE"
POSITION( 00359:00360) SMALLINT
NULLIF(00358)=X'FF'
, "FIXTIMEUNITTYPE"
POSITION( 00362:00363) SMALLINT
NULLIF(00361)=X'FF'
, "PATHFUNCTIONTYPE"
POSITION( 00365:00366) SMALLINT
NULLIF(00364)=X'FF'
, "QUOTETYPE"
POSITION( 00368:00369) SMALLINT
NULLIF(00367)=X'FF'
, "DAYTYPE"
POSITION( 00371:00372) SMALLINT
NULLIF(00370)=X'FF'
, "FIXBFORAFTERTYPE"
POSITION( 00374:00375) SMALLINT
NULLIF(00373)=X'FF'
, "UNDERQUOTETYPE"
POSITION( 00377:00378) SMALLINT
NULLIF(00376)=X'FF'
, "UNDERDIRTYPEV"
POSITION( 00380:00635) VARCHAR
NULLIF(00379)=X'FF'
, "UNDERUNITTYPEV"
POSITION( 00637:00892) VARCHAR
NULLIF(00636)=X'FF'
, "FIXINGTYPEV"
POSITION( 00894:01149) VARCHAR
NULLIF(00893)=X'FF'
, "FIXTIMEUNITTYPEV"
POSITION( 01151:01406) VARCHAR
NULLIF(01150)=X'FF'
, "PATHFUNCTIONTYPEV"
POSITION( 01408:01663) VARCHAR
NULLIF(01407)=X'FF'
, "QUOTETYPEV"
POSITION( 01665:01920) VARCHAR
NULLIF(01664)=X'FF'
, "DAYTYPEV"
POSITION( 01922:02177) VARCHAR
NULLIF(01921)=X'FF'
, "FIXBFORAFTERTYPEV"
POSITION( 02179:02434) VARCHAR
NULLIF(02178)=X'FF'
, "UNDERQUOTETYPEV"
POSITION( 02436:02691) VARCHAR
NULLIF(02435)=X'FF'
, "FIXINGDESCR_G"
POSITION( 02693:03694) VARCHAR
NULLIF(02692)=X'FF'
, "DESCRIPTION_G"
POSITION( 03696:04697) VARCHAR
NULLIF(03695)=X'FF'
, "FIXINGDESCR_E"
POSITION( 04699:05700) VARCHAR
NULLIF(04698)=X'FF'
, "DESCRIPTION_E"
POSITION( 05702:06703) VARCHAR
NULLIF(05701)=X'FF'
, "FIXINGDESCR_F"
POSITION( 06705:07706) VARCHAR
NULLIF(06704)=X'FF'
, "DESCRIPTION_F"
POSITION( 07708:08709) VARCHAR
NULLIF(07707)=X'FF'
, "FIXINGDESCR_I"
POSITION( 08711:09712) VARCHAR
NULLIF(08710)=X'FF'
, "DESCRIPTION_I"
POSITION( 09714:10715) VARCHAR
NULLIF(09713)=X'FF'
, "FIXINGDESCR_N"
POSITION( 10717:11718) VARCHAR
NULLIF(10716)=X'FF'
, "DESCRIPTION_N"
POSITION( 11720:12721) VARCHAR
NULLIF(11719)=X'FF'
)
}¢--- A540769.WK.JCL(GUBLERL2) cre=2006-09-19 mod=2006-09-19-18.13.15 F540769 ---
//A540769M JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A5407692.LOAD'),
// REGION=0M
//SYSEXEC DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.EXEC
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE A22JH10B
DSN('DSN.VDPS2.DBAF.VV24A1A.VDPS185.UNLOAD')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A22JH10B LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) UPDATE(ALL)
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 14055115
INTO TABLE "VDPS2"."VTLISTING"
WHEN(00001:00002) = X'0087'
( "INSTRUMENTID"
POSITION( 00003:00006) INTEGER
, "LISTINGNO"
POSITION( 00007:00010) INTEGER
, "PROVIDER1ID"
POSITION( 00012:00041) CHAR(00030)
NULLIF(00011)=X'FF'
, "PROVIDER2ID"
POSITION( 00043:00072) CHAR(00030)
NULLIF(00042)=X'FF'
, "PROVIDER3ID"
POSITION( 00074:00103) CHAR(00030)
NULLIF(00073)=X'FF'
, "CREATETIMESTAMP"
POSITION( 00105:00136) VARCHAR
NULLIF(00104)=X'FF'
, "UPDATETIMESTAMP"
POSITION( 00138:00169) VARCHAR
NULLIF(00137)=X'FF'
, "ISMAINTRADINGPLACE"
POSITION( 00171:00172) SMALLINT
NULLIF(00170)=X'FF'
, "ISHOMETRADINGPLACE"
POSITION( 00174:00175) SMALLINT
NULLIF(00173)=X'FF'
, "ISONLIMITEDHALT"
POSITION( 00177:00178) SMALLINT
NULLIF(00176)=X'FF'
, "HASNOMCURRSETTLE"
POSITION( 00180:00181) SMALLINT
NULLIF(00179)=X'FF'
--, "HASPROVIDEDSERVICE"
-- POSITION( 00183:00184) SMALLINT
-- NULLIF(00182)=X'FF'
-- , "PSINSTRSERVICEID"
-- POSITION( 00186:00189) INTEGER
-- NULLIF(00185)=X'FF'
, "TRADINGPLACE"
POSITION( 00191:00194) INTEGER
NULLIF(00190)=X'FF'
, "CURRENCY"
POSITION( 00196:00199) INTEGER
NULLIF(00195)=X'FF'
, "MARKTPRACTIDSYMBOL"
POSITION( 00201:00230) CHAR(00030)
NULLIF(00200)=X'FF'
, "FIRSTTRADINGDATE"
POSITION( 00232:00263) VARCHAR
NULLIF(00231)=X'FF'
, "LASTTRADINGDATE"
POSITION( 00265:00296) VARCHAR
NULLIF(00264)=X'FF'
-- , "BEGINDATE"
-- POSITION( 00298:00329) VARCHAR
-- NULLIF(00297)=X'FF'
--, "ENDDATE"
-- POSITION( 00331:00362) VARCHAR
-- NULLIF(00330)=X'FF'
, "HALTFROMDATE"
POSITION( 00364:00395) VARCHAR
NULLIF(00363)=X'FF'
, "HALTUNTILDATE"
POSITION( 00397:00428) VARCHAR
NULLIF(00396)=X'FF'
, "FIRSTTRDDTAFHALT"
POSITION( 00430:00461) VARCHAR
NULLIF(00429)=X'FF'
, "TRADINGSTATUSTYPE"
POSITION( 00463:00464) SMALLINT
NULLIF(00462)=X'FF'
, "LISTINGSTATUSTYPE"
POSITION( 00466:00467) SMALLINT
NULLIF(00465)=X'FF'
, "EXCHANGERATETYPE"
POSITION( 00469:00470) SMALLINT
NULLIF(00468)=X'FF'
, "LISTPURPOSETYPE"
POSITION( 00472:00473) SMALLINT
NULLIF(00471)=X'FF'
, "TRADINGSTATUSTYPEV"
POSITION( 00475:00730) VARCHAR
NULLIF(00474)=X'FF'
, "LISTINGSTATUSTYPEV"
POSITION( 00732:00987) VARCHAR
NULLIF(00731)=X'FF'
, "EXCHANGERATETYPEV"
POSITION( 00989:01244) VARCHAR
NULLIF(00988)=X'FF'
, "LISTPURPOSETYPEV"
POSITION( 01246:01501) VARCHAR
NULLIF(01245)=X'FF'
, "SHORTNAME_G"
POSITION( 01503:01758) VARCHAR
NULLIF(01502)=X'FF'
, "SHORTNAME_E"
POSITION( 01760:02015) VARCHAR
NULLIF(01759)=X'FF'
, "SHORTNAME_F"
POSITION( 02017:02272) VARCHAR
NULLIF(02016)=X'FF'
, "SHORTNAME_I"
POSITION( 02274:02529) VARCHAR
NULLIF(02273)=X'FF'
, "SHORTNAME_N"
POSITION( 02531:02786) VARCHAR
NULLIF(02530)=X'FF'
, "DESCRIPTION_G"
POSITION( 02788:03789) VARCHAR
NULLIF(02787)=X'FF'
, "DESCRIPTION_E"
POSITION( 03791:04792) VARCHAR
NULLIF(03790)=X'FF'
, "DESCRIPTION_F"
POSITION( 04794:05795) VARCHAR
NULLIF(04793)=X'FF'
, "DESCRIPTION_I"
POSITION( 05797:06798) VARCHAR
NULLIF(05796)=X'FF'
, "DESCRIPTION_N"
POSITION( 06800:07801) VARCHAR
NULLIF(06799)=X'FF'
, "CSLISTINGCODETYPE"
POSITION( 07803:07804) SMALLINT
NULLIF(07802)=X'FF'
, "CSLISTINGCODETYPEV"
POSITION( 07806:08061) VARCHAR
NULLIF(07805)=X'FF'
, "HASINDMARPRACTICE"
POSITION( 08063:08064) SMALLINT
NULLIF(08062)=X'FF'
, "PRICINGUNITNO"
POSITION( 08066:08073) FLOAT(53)
NULLIF(08065)=X'FF'
, "PRICINGCORRFACTOR"
POSITION( 08075:08082) FLOAT(53)
NULLIF(08074)=X'FF'
, "NONVERSEAMOUNT"
POSITION( 08084:08091) FLOAT(53)
NULLIF(08083)=X'FF'
, "VOLUMEAMOUNT"
POSITION( 08093:08100) FLOAT(53)
NULLIF(08092)=X'FF'
, "TRADINGUNITNO"
POSITION( 08102:08109) FLOAT(53)
NULLIF(08101)=X'FF'
, "PRICINGUNITTYPE"
POSITION( 08111:08112) SMALLINT
NULLIF(08110)=X'FF'
, "QUOTATIONTYPE"
POSITION( 08114:08115) SMALLINT
NULLIF(08113)=X'FF'
, "VOLUMEUNITTYPE"
POSITION( 08117:08118) SMALLINT
NULLIF(08116)=X'FF'
, "ACCRUEDINTCALCTP"
POSITION( 08120:08121) SMALLINT
NULLIF(08119)=X'FF'
, "FLATREASONTYPE"
POSITION( 08123:08124) SMALLINT
NULLIF(08122)=X'FF'
, "TRADINGUNITTYPE"
POSITION( 08126:08127) SMALLINT
NULLIF(08125)=X'FF'
, "TRADINGRULETYPE"
POSITION( 08129:08130) SMALLINT
NULLIF(08128)=X'FF'
, "PRICINGUNITTYPEV"
POSITION( 08132:08387) VARCHAR
NULLIF(08131)=X'FF'
, "QUOTATIONTYPEV"
POSITION( 08389:08644) VARCHAR
NULLIF(08388)=X'FF'
, "VOLUMEUNITTYPEV"
POSITION( 08646:08901) VARCHAR
NULLIF(08645)=X'FF'
, "ACCRUEDINTCALCTPV"
POSITION( 08903:09158) VARCHAR
NULLIF(08902)=X'FF'
, "FLATREASONTYPEV"
POSITION( 09160:09415) VARCHAR
NULLIF(09159)=X'FF'
, "TRADINGUNITTYPEV"
POSITION( 09417:09672) VARCHAR
NULLIF(09416)=X'FF'
, "TRADINGRULETYPEV"
POSITION( 09674:09929) VARCHAR
NULLIF(09673)=X'FF'
, "VALUEPRICETYPE"
POSITION( 09931:09932) SMALLINT
NULLIF(09930)=X'FF'
, "VALUEPRICETYPEV"
POSITION( 09934:10189) VARCHAR
NULLIF(09933)=X'FF'
)
}¢--- A540769.WK.JCL(GUBLERUL) cre=2006-09-19 mod=2008-11-24-17.24.49 F540769 ---
//A540769V JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769V.UNLOAD'),
// REGION=0M
//SYSEXEC DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.EXEC
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TSREC DSN('DSN.VDPS2.&SSID..&DB..&SN..UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (100,2500) CYL
TEMPLATE TSPUN DSN('DSN.VDPS2.&SSID..&DB..&SN..UNLPUN')
DATACLAS (NULL12) MGMTCLAS(COM#E005)
SPACE (1,10) CYL
LISTDEF U#LIST INCLUDE TABLESPACE VV21A1A.VDPS042
INCLUDE TABLESPACE VV22A1A.VDPS079
INCLUDE TABLESPACE VV22A1A.VDPS089
INCLUDE TABLESPACE VV24A1A.VDPS182
INCLUDE TABLESPACE VV24A1A.VDPS184
INCLUDE TABLESPACE VV24A1A.VDPS187
INCLUDE TABLESPACE VV25A1A.VDPS214
INCLUDE TABLESPACE VV27A1A.VDPS330
INCLUDE TABLESPACE VV28A1A.VDPS364
INCLUDE TABLESPACE VV24A1A.VDPS157
INCLUDE TABLESPACE VV24A1A.VDPS190
UNLOAD LIST U#LIST
PUNCHDDN TSPUN UNLDDN TSREC
SHRLEVEL CHANGE ISOLATION UR
//*--------------------------------------------------------------------
//* UTILITY UNLOAD DD STATEMENTS
//*--------------------------------------------------------------------
}¢--- A540769.WK.JCL(GUBLERU2) cre=2006-09-19 mod=2008-11-24-17.24.49 F540769 ---
//A540769U JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769.UNLOAD'),
// REGION=0M
//SYSEXEC DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.EXEC
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TSREC DSN('DSN.VDPS2.&SSID..&DB..&SN..UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
UNIT(AC10)
TEMPLATE TSPUN DSN('DSN.VDPS2.&SSID..&DB..&SN..UNLPUN')
DATACLAS (NULL12) MGMTCLAS(COM#E005)
SPACE (1,10) CYL
LISTDEF U#LIST INCLUDE TABLESPACE VV24A1A.VDPS185
UNLOAD LIST U#LIST
PUNCHDDN TSPUN UNLDDN TSREC
SHRLEVEL CHANGE ISOLATION UR
//*--------------------------------------------------------------------
//* UTILITY UNLOAD DD STATEMENTS
//*--------------------------------------------------------------------
}¢--- A540769.WK.JCL(HAUEPT) cre=2006-06-20 mod=2006-06-20-15.29.13 F540769 ----
//A540769C JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=DBAF
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 06/20/2006.15.29.11
//* ENVIRONMENT: ISPF 5.7MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//*-----------------------------------------------------------------
//* CATALOG MANAGER BATCH TSO
//*-----------------------------------------------------------------
//STEP1 EXEC PGM=IKJEFT01,TIME=1440
//STEPLIB DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.LOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//ABNLIGNR DD DUMMY
//SYSTERM DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBAF)
REBIND PACKAGE (FI.FI0520.(BKUR000008))
REBIND PACKAGE (YY.YYFALK4.(BKUR000008))
REBIND PACKAGE (FI.FI1900.(VKUR000117))
REBIND PACKAGE (YY.YYFILOD.(BKUR000015574AFE89))
REBIND PACKAGE (YY.YYFILOD.(BKUR0000155762B55F))
REBIND PACKAGE (YY.YYFILOD.(BKUR00001557602AB6))
REBIND PACKAGE (YY.YYFILOD.(BKUR000015574C6A0C))
REBIND PACKAGE (YY.YYFALK4.(TRAI000106))
REBIND PACKAGE (YY.YYFILOD.(BKUR00001557613DE2))
REBIND PACKAGE (YY.YYFILOD.(BKUR000008574DA586))
REBIND PACKAGE (YY.YYFILOD.(BKUR00001557599696))
REBIND PACKAGE (FI.FI5270.(BKUR000018))
REBIND PACKAGE (YY.YYFILOD.(BKUR00001557615E36))
REBIND PACKAGE (FI.FI0520.(BKUR000018))
REBIND PACKAGE (YY.YYFALK4.(TEST000189))
REBIND PACKAGE (FI.FI2100.(BKUR000008))
REBIND PACKAGE (FI.FI1900.(BKUR000008))
REBIND PACKAGE (FI.FI0520.(VKUR000073))
REBIND PACKAGE (FI.FI3400.(VKUR000117))
REBIND PACKAGE (FI.FI3400.(VKUR000177))
REBIND PACKAGE (FI.FI3400.(BKUR000008))
REBIND PACKAGE (FI.FI5066.(BKUR000020))
REBIND PACKAGE (FI.FI5066.(BKUR000008))
REBIND PACKAGE (FI.FI5200.(BKUR000024))
REBIND PACKAGE (FI.FI5200.(VKUR000177))
REBIND PACKAGE (FI.FI5210.(VKUR000177))
REBIND PACKAGE (FI.FI5210.(BKUR000008))
REBIND PACKAGE (FI.FI5250.(BKUR000008))
REBIND PACKAGE (FI.FI5250.(VKUR000073))
REBIND PACKAGE (FI.FI5210.(BKUR000018))
REBIND PACKAGE (FI.FI5260.(BKUR000018))
REBIND PACKAGE (FI.FI5260.(BKUR000008))
REBIND PACKAGE (FI.FI5260.(VKUR000177))
REBIND PACKAGE (FI.FI5250.(BKUR000018))
REBIND PACKAGE (FI.FI5270.(BKUR000008))
REBIND PACKAGE (FI.FI5270.(VKUR000073))
REBIND PACKAGE (FI.FI5280.(BKUR000018))
REBIND PACKAGE (FI.FI5280.(VKUR000177))
REBIND PACKAGE (FI.FI5280.(BKUR000008))
REBIND PACKAGE (FI.FI8160.(VKUR000027))
REBIND PACKAGE (FI.FI8160.(VKUR000177))
REBIND PACKAGE (FI.FI8200.(VKUR000150))
REBIND PACKAGE (FI.FI8200.(VKUR000027))
REBIND PACKAGE (FI.FI8200.(VKUR000177))
REBIND PACKAGE (FI.YFIKA42.(VKUR000143))
REBIND PACKAGE (FI.YFIKA42.(VKUR000150))
REBIND PACKAGE (FI.YFIKA42.(VKUR000159))
REBIND PACKAGE (FI.YFIKK42.(VKUR000027))
REBIND PACKAGE (FI.YFIKA42.(VKUR000027))
REBIND PACKAGE (YY.YYFALK1.(VKUR000150))
REBIND PACKAGE (YY.YYFALK1.(VKUR000159))
REBIND PACKAGE (YY.YYFALK1.(VKUR000177))
REBIND PACKAGE (YY.YYFALK2.(BKUR000008))
REBIND PACKAGE (YY.YYFALK1.(BKUR000015))
REBIND PACKAGE (YY.YYFALK2.(VKUR000150))
REBIND PACKAGE (YY.YYFALK1.(BKUR000008))
REBIND PACKAGE (YY.YYFALK1.(VKUR000124))
REBIND PACKAGE (YY.YYFALK2.(VKUR000159))
REBIND PACKAGE (YY.YYFALK2.(VKUR000177))
REBIND PACKAGE (YY.YYFALK4.(VKUR000150))
REBIND PACKAGE (YY.YYFALK4.(VKUR000159))
REBIND PACKAGE (YY.YYFALK4.(BKUR000020))
REBIND PACKAGE (YY.YYFILOD.(VKUR00014856923EF8))
REBIND PACKAGE (YY.YYFILOD.(VKUR00015056A8C703))
REBIND PACKAGE (YY.YYFILOD.(VKUR00015956B75292))
REBIND PACKAGE (YY.YYFILOD.(VKUR000177571F6D5B))
REBIND PACKAGE (YY.YYFILOD.(BKUR0000155727509E))
REBIND PACKAGE (YY.YYFILOD.(BKUR00001557432362))
REBIND PACKAGE (YY.YYKA42.(VKUR000159))
REBIND PACKAGE (YY.YYKA42.(VKUR000117))
REBIND PACKAGE (YY.YYKA42.(VKUR000027))
REBIND PACKAGE (YY.YYKA42.(VKUR000177))
REBIND PACKAGE (YY.YYKA42.(BKUR000008))
REBIND PACKAGE (ZC.ZCVALKN.(VKUR000150))
REBIND PACKAGE (FI.FI5067.(BKUR000020))
REBIND PACKAGE (FI.FI2100.(VKUR000177))
REBIND PACKAGE (FI.FI5066.(BKUR000019))
REBIND PACKAGE (FI.FI5067.(BKUR000008))
REBIND PACKAGE (VV.VV8251.(BKUR000019))
REBIND PACKAGE (YY.YYHIKUN.(VKUR00015056A47F9B))
REBIND PACKAGE (FI.FI5400.(BKUR000020))
REBIND PACKAGE (FI.FI5067.(BKUR000019))
REBIND PACKAGE (FI.FI8103.(VKUR000150))
REBIND PACKAGE (FI.FI8103.(VKUR000159))
REBIND PACKAGE (FI.FI8103.(VKUR000117))
REBIND PACKAGE (FI.YFIADJU.(VKUR00002856A508F9))
REBIND PACKAGE (FI.YFIADJU.(VKUR00002856A50AEB))
REBIND PACKAGE (FI.YFIADJU.(VKUR00002856A510EB))
REBIND PACKAGE (FI.YFIADJU.(VKUR00015056A51205))
REBIND PACKAGE (FI.YFIADJU.(VKUR00002856A512A9))
//*--------------------------------------------------------------------
//* END OF JOBSTEP
//*--------------------------------------------------------------------
//*--------------------------------------------------------------------
//* END OF JOB
//*--------------------------------------------------------------------
}¢--- A540769.WK.JCL(ICETLOCC) cre= mod=-. -------------------------------------
//A540769O JOB (CP00,KE50) 00010001
//*MAIN CLASS=CMNA
//E02 EXEC PGM=ICETOOL,PARM='SIZE(MAX)'
//DDIN DD DISP=SHR,DSN=OMS.DIV.P0.STAT.RZ1.Y04M12
//DDOUT DD SYSOUT=*
//SORTWK01 DD UNIT=DISK,SPACE=(9076,(9000,9000),,,ROUND)
//SORTWK02 DD UNIT=DISK,SPACE=(9076,(9000,9000),,,ROUND)
//SORTWK03 DD UNIT=DISK,SPACE=(9076,(9000,9000),,,ROUND)
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//* SORT 124 126 D 5 123 A 1 4 A 127 800 A +4 FüR VB|
//TOOLIN DD *
OCCURS FROM(DDIN) -
ON(128,3,CH) ON(VALCNT) -
LIST(DDOUT)
}¢--- A540769.WK.JCL(ICETSOSP) cre=2010-04-30 mod=2010-05-12-20.28.08 A540769 ---
//A540769O JOB (CP00,KE50) 00010001
//*MAIN CLASS=LOG
//*
//* use iceTool to split a file
//* depending on field values
//* into several output files
//* and sort the outputfiles
//*
//E02 EXEC PGM=ICETOOL,PARM='SIZE(MAX)'
//IN DD *
null xØ
eins xa
zwei xb
drei xc
vier xd
fuenf xe
sechs xf
sieben xg
acht xh
neun xi
zehn x«
elf x»
zwölf xð
dreizehn xý
vierzehn xþ
fuenfzehn x±
sechszehn x°
siebzehn xj
achtzehn xk
neunzehn xl
zwanzig xm
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//OUT3 DD SYSOUT=*
//*ORTWK01 DD UNIT=DISK,SPACE=(9076,(9000,9000),,,ROUND)
//*ORTWK02 DD UNIT=DISK,SPACE=(9076,(9000,9000),,,ROUND)
//*ORTWK03 DD UNIT=DISK,SPACE=(9076,(9000,9000),,,ROUND)
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//TOOLIN DD *
SORT FROM(IN) USING(INTX)
//CHARCNTL DD *
SORT FIELDS=(1,1,CH,A,2,5,CH,D)
OUTFIL FNAMES=OUT1,INCLUDE=(1,1,CH,LE,C'f')
OUTFIL FNAMES=OUT2,INCLUDE=(1,1,CH,GT,C'f',
AND,1,1,CH,LE,C'n')
OUTFIL FNAMES=OUT3,INCLUDE=(1,1,CH,GT,C'n')
//INTXCNTL DD *
SORT FIELDS=(3,1,CH,D,1,2,CH,A)
OUTFIL FNAMES=OUT1,INCLUDE=(18,1,BI,LE,136)
OUTFIL FNAMES=OUT2,INCLUDE=(18,1,BI,GT,136,AND,18,1,BI,LE,144)
OUTFIL FNAMES=OUT3,INCLUDE=(18,1,BI,GT,144)
}¢--- A540769.WK.JCL(ICETSPLI) cre=2010-04-14 mod=2010-04-14-14.30.00 A540769 ---
//A540769O JOB (CP00,KE50) 00010001
//*MAIN CLASS=LOG
//*
//* use iceTool to split a file
//* depending on field values
//* into several output files
//*
//E02 EXEC PGM=ICETOOL,PARM='SIZE(MAX)'
//IN DD *
null xØ
eins xa
zwei xb
drei xc
vier xd
fuenf xe
sechs xf
sieben xg
acht xh
neun xi
zehn x«
elf x»
zwölf xð
dreizehn xý
vierzehn xþ
fuenfzehn x±
sechszehn x°
siebzehn xj
achtzehn xk
neunzehn xl
zwanzig xm
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//OUT3 DD SYSOUT=*
//SORTWK01 DD UNIT=DISK,SPACE=(9076,(9000,9000),,,ROUND)
//SORTWK02 DD UNIT=DISK,SPACE=(9076,(9000,9000),,,ROUND)
//SORTWK03 DD UNIT=DISK,SPACE=(9076,(9000,9000),,,ROUND)
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN) USING(INTX)
//CHARCNTL DD *
OUTFIL FNAMES=OUT1,INCLUDE=(1,1,CH,LE,C'f')
OUTFIL FNAMES=OUT2,INCLUDE=(1,1,CH,GT,C'f',AND,1,1,CH,LE,C'n')
OUTFIL FNAMES=OUT3,INCLUDE=(1,1,CH,GT,C'n')
//INTXCNTL DD *
OUTFIL FNAMES=OUT1,INCLUDE=(18,1,BI,LE,136)
OUTFIL FNAMES=OUT2,INCLUDE=(18,1,BI,GT,136,AND,18,1,BI,LE,144)
OUTFIL FNAMES=OUT3,INCLUDE=(18,1,BI,GT,144)
}¢--- A540769.WK.JCL(IDCAMS) cre=2009-09-14 mod=2016-09-06-10.15.04 A540769 ----
//A540769W JOB (CP00,KE50),'DB2 ADMIN',
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,
// MSGCLASS=T,NOTIFY=&SYSUID
//IDCAMS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD *
DELETE DSN.ABUB.XDOC.RZ2.DVBP.G.D16.XSTATS
DEFINE ALIAS (NAME(DSN.ABUB.XDOC.RZ2.DVBP.G.D16.XSTATS ) -
REL (DSN.ABUB.XDOC.RZ2.DVBP.D16.XSTATS ) )
//SYSINA DD *
DEFINE CLUSTER ( NAME(DBZF.DGDB9998.A600A028.P00006.VSAM) -
VOL(B1N145))
//SYSINB DD *
DEFINE NONVSAM ( NAME(DBZF.DGDB9998.A600A028.P00006.CDZUPS6K) -
DEVT(3390) VOL(B1N145))
DEFINE NONVSAM ( NAME(DBZF.DGDB9998.A600A028.P00006.NONVSA3 ) -
DEVT(3390) VOL(B1N145))
//SYSINC DD *
DELETE ( -
DBZF.DGDB9998.A600A028.P00006.CDZUPS6K -
DBZF.DGDB9998.A600A028.P00006.NONVSA3 -
) NOSCRATCH
IF MAXCC > 8 THEN SET MAXCC = 99
//SYSIND DD *
DELETE ( -
DBZF.DGDB9998.A600A028.P00006.VSAM.DATA
)
//SYSINE DD *
DELETE ( -
DSN.TMP.A540769.TRACE3) CLUSTER
DEFINE CLUSTER( -
SAME(DSN.TMP.A540769.TRACE3) -
MB(050) SHR(2,3) LINEAR)
//*
}¢--- A540769.WK.JCL(IDCAMSCM) cre= mod=-. -------------------------------------
}¢--- A540769.WK.JCL(IDCAMSDE) cre=2008-05-06 mod=2008-05-06-13.59.37 F540769 ---
//A540769P JOB (PD00,KE50,,SP00000000),
// 'FULLCOPY',
// MSGCLASS=T,TIME=1440,LINES=100000
//*MAIN CLASS=BS1
//BR EXEC PGM=IEFBR14 delete pds or library members
//DELMBRIF IF RC = 00 THEN
//DELMBR EXEC PGM=IDCAMS delete pds or library members
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE A540769.TMP.TST.LIB(A1)
DELETE A540769.TMP.TST.LIB(A2)
DELETE A540769.TMP.TST.LIB(B2)
IF MAXCC <= 8 THEN SET MAXCC = 0
// ENDIF
}¢--- A540769.WK.JCL(IDCAMSTS) cre=2008-03-13 mod=2008-03-13-14.04.51 F540769 ---
$<~wk.jcl(idcamscm)
$@{
$@for v $@{
if word($v, 1) = 'ALTER' then do
c = word($v, 1) "'"word($v, 2)"'" subword($v, 3)
say c
call adrTso c, '*'
end
$}
$}
}¢--- A540769.WK.JCL(IEBGENER) cre=2015-11-16 mod=2015-11-16-22.12.18 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2,CLASS=M1
//CP EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
EINS
ZWEI
drei
vier
//SYSUT2 DD DISP=SHR,DSN=A540769.TMP.TEXT(IEBGENER)
}¢--- A540769.WK.JCL(IEFBR14) cre=2014-06-24 mod=2015-06-16-15.33.24 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440,CLASS=LOG, 00020002
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//OK EXEC PGM=IEFBR14 00060000
}¢--- A540769.WK.JCL(IEGBENER) cre= mod=-. -------------------------------------
//A540769G JOB (CP00,KE50) 00010000
//RM PROC FROM=FROMMISSING 00020000
//RM EXEC PGM=IEFBR14 00030000
//DEL DD DISP=(MOD,DELETE,DELETE),DSN=&FROM 00040000
// PEND 00050000
//CP PROC FROM=FROMMISSING,TO=TOMISSING 00060000
//CP EXEC PGM=IEBGENER 00070000
//SYSPRINT DD SYSOUT=* 00080000
//SYSUT1 DD DISP=SHR,DSN=&FROM 00090000
//SYSUT2 DD DISP=(NEW,CATLG,DELETE),DSN=&TO,LIKE=&FROM 00100000
// PEND 00110000
//DO PROC T=TT,F=FFF 00120000
//DO0 EXEC PROC=RM, 00130000
// FROM=A540769.ZZZ.TEST&T..FILE&F..SUF 00140000
//DO1 EXEC PROC=CP, 00150000
// FROM=DOD.RZ1.T0.TEST.T&T..POVTV&T..LTL&T&F, 00160000
// TO=A540769.ZZZ.TEST&T..FILE&F..SUF 00170000
// PEND 00180000
//T1F0 EXEC PROC=DO,T=01,F=000 00190000
//T1F1 EXEC PROC=DO,T=01,F=001 00200000
//T2F0 EXEC PROC=DO,T=02,F=000 00210000
//T2F1 EXEC PROC=DO,T=02,F=001 00220000
}¢--- A540769.WK.JCL(IF) cre=2008-09-05 mod=2012-05-16-17.18.02 A540769 --------
//A540769Z JOB (CP00,KE50) 00010001
//*MAIN CLASS=LOG 00020000
//******* COPY PS 00030000
//S1 EXEC PGM=IEFBR14 00040000
//S2 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00050001
//SYSPRINT DD SYSOUT=* 00060000
//UTPRINT DD SYSOUT=* 00070000
//SYSIN DD DUMMY 00080000
// IF S1.RC = 7 THEN 00090002
//S3 EXEC PGM=GIBTESNI 00100002
// ENDIF 00110002
// IF NOT ABEND AND RC >= 0 AND RC <= 3 THEN 00120002
//ALLOK EXEC PGM=IEFBR14 00130000
// ELSE 00140002
//ABEND EXEC PGM=IEFBR14 00150000
// ENDIF 00160002
// IF S3.RUN OR S3.ABEND THEN 00170002
//RUNABE EXEC PGM=IEFBR14 00180002
// ELSE 00190002
//NOTRUN EXEC PGM=IEFBR14 00200002
// ENDIF 00210002
}¢--- A540769.WK.JCL(ISPF) cre=2007-06-14 mod=2012-11-12-20.15.56 A540769 ------
//A540769S JOB (CP00,KE50),TIME=99 00010001
//*MAIN CLASS=LOG
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
//* PARM='ISPSTART CMD(%PVSVER)'
//* PARM='ISPSTART CMD(%PVSTEST del test.pvs069)'
//* PARM='ISPSTART CMD(%PVSTEST job ''PVSO.RZ1.P0'' wk.out)'
//* PARM='%runISPF say "wie gehts"; zispfrc=7;rc=0'
// PARM='ISPSTART CMD(%exArgs eins zwei drei)'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//ISPPLIB DD DSN=TSO.ISPF.ISPPLIB,DISP=SHR
//ISPMLIB DD DSN=TSO.ISPF.ISPMLIB,DISP=SHR
//* TSO.RZ1.P0.INST.MSGS
// DD DSN=ISP.SISPMENU,DISP=SHR
//* TSO.RZ1.P0.PROD.MSGS
//* ORG.RZ1.B0106.KPCO4.MSGS
//* TSO.RZ1.P0.USER.MSGS
//ISPSLIB DD DSN=TSO.ISPF.ISPSLIB,DISP=SHR
//ISPTLIB DD DSN=TSO.ISPF.ISPTLIB,DISP=SHR
//ISPPROF DD DISP=(,PASS),UNIT=VIO,
// SPACE=(CYL,(1,1,30)),RECFM=FB,LRECL=80
//*
//* DSORG=PO
//ISPLOG DD SYSOUT=*,RECFM=VA,LRECL=125
//ISPLIST DD SYSOUT=*,RECFM=FBA,LRECL=121
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//XYSTSIN DD *
ispstart cmd(exArgs eins zwei)
}¢--- A540769.WK.JCL(JC) cre=2010-09-06 mod=2016-09-06-09.24.50 A540769 --------
//A540769W JOB (CP00,KE50),'DB2 ADMIN',
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,
// MSGCLASS=T,NOTIFY=&SYSUID
}¢--- A540769.WK.JCL(JCCOP) cre= mod=-. ----------------------------------------
//A540769W JOB (CP00,KE50),'DB2 ADMIN', 00010002
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL, 00020004
// MSGCLASS=T,NOTIFY=&SYSUID 00021002
}¢--- A540769.WK.JCL(JCREPRO) cre= mod=-. --------------------------------------
//A540769W JOB (CP00,KE50),'DB2 ADMIN', 00010002
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL, 00020004
// MSGCLASS=T,NOTIFY=&SYSUID 00021002
}¢--- A540769.WK.JCL(JV) cre=2008-11-24 mod=2008-11-24-17.24.51 F540769 --------
//A540769C JOB (CP00,KE50) 00010001
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM=('%pvsRwgrV RZ1 RZ2')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//*YSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//SYSPROC DD DISP=SHR,DSN=PVSP.U0000.P0.CLIST
//LOGRZ1 DD DISP=OLD,DSN=WGR.RZ1.P0.AKT.LST.LOG
//LOGRZ2 DD DISP=OLD,DSN=WGR.U0034.P0.VERR.LST.RZ2.LOG
//VERRLOG DD DISP=(MOD,CATLG,KEEP),DSN=WGR.U0034.P0.VERR.LST.DAY.LOG,
// MGMTCLAS=COM#A092,
// SPACE=(TRK,(1,10)),
// RECFM=VB,LRECL=1023
//VERR DD DSN=WGR.U0034.P0.VERR.LST.DWS.DATA(+1),
// DISP=(,CATLG,DELETE),
// MGMTCLAS=COM#A092,
// SPACE=(TRK,(1,1),RLSE),
// RECFM=VBA,LRECL=9072
}¢--- A540769.WK.JCL(JVP) cre=2008-11-24 mod=2008-11-24-17.24.52 F540769 -------
//A540769C JOB (CP00,KE50) 00010001
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM=('%jv RZ1 RZ2')
//* PARM=('%pvsRwgrV RZ1 RZ2')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//*YSPROC DD DISP=SHR,DSN=PVSP.U0000.P0.CLIST
//LOGRZ1 DD DSN=WGR.RZ1.P0.AKT.LST.LOG,DISP=OLD
//LOGRZ2 DD DSN=WGR.U0034.P0.VERR.LST.RZ2.LOG,DISP=OLD
//VERRLOG DD DSN=WGR.U0034.P0.VERR.LST.DAY.LOG,
// DISP=(MOD,CATLG,KEEP),
// MGMTCLAS=COM#A092,
// SPACE=(TRK,(1,10)),
// RECFM=VB,LRECL=1023
//VERR DD DSN=WGR.U0034.P0.VERR.LST.DWS.DATA(+1),
// DISP=(,CATLG,DELETE),
// MGMTCLAS=COM#A092,
// SPACE=(TRK,(1,1),RLSE),
// RECFM=VBA,LRECL=9072
}¢--- A540769.WK.JCL(KDCHECK) cre=2014-06-11 mod=2014-06-11-16.49.15 A540769 ---
//A540769C JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//STEP1 EXEC PGM=DSNUTILB,
// PARM=(DP2G,'A540769C.CHECK'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DP2G.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
CHECK DATA TABLESPACE KD03$$$.A301A
TABLESPACE KD03$$$.A302A
TABLESPACE KD03$$$.A303A
TABLESPACE KD03$$$.A304A
TABLESPACE KD03$$$.A305A
TABLESPACE KD03$$$.A311A
TABLESPACE KD03$$$.A312A
TABLESPACE KD03$$$.A313A
TABLESPACE KD03$$$.A314A
TABLESPACE KD03$$$.A315A
TABLESPACE KD03$$$.A331A
TABLESPACE KD03$$$.A332A
TABLESPACE KD03$$$.A333A
TABLESPACE KD03$$$.A334A
TABLESPACE KD03$$$.A335A
TABLESPACE KD03$$$.A336A
TABLESPACE KD03$$$.A337A
TABLESPACE KD03$$$.A339A
SCOPE (ALL)
SHRLEVEL REFERENCE
SORTDEVT DISK
ERRDDN TERRD
WORKDDN TSYUTS, TSOUTD
}¢--- A540769.WK.JCL(KDDDL) cre=2014-06-11 mod=2014-06-11-15.49.02 A540769 -----
SET CURRENT SQLID = 'S100447';
CREATE DATABASE kd03$$$
BUFFERPOOL BP2
INDEXBP BP1
STOGROUP "GSMS "
CCSID EBCDIC;
CREATE TABLESPACE A301A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD301A1
(ID INTEGER
NOT NULL
GENERATED ALWAYS AS IDENTITY ( START WITH 1
, INCREMENT BY 1
, MINVALUE 1
, MAXVALUE 2147483647
, CACHE 20
, NOCYCLE
, NOORDER )
,"NAME" VARCHAR(256) FOR SBCS DATA
NOT NULL
,MAJOR_VERSION INTEGER
NOT NULL
,MINOR_VERSION INTEGER
NOT NULL
,CREATION_DATE DECIMAL(19, 0)
NOT NULL
,DISPLAY_NAME VARCHAR(256) FOR SBCS DATA
WITH DEFAULT NULL
,DESCRIPTION VARCHAR(256) FOR SBCS DATA
WITH DEFAULT NULL
,CONSTRAINT CKD301A0 PRIMARY KEY
(ID
)
,CONSTRAINT CKD301A1 UNIQUE
("NAME"
,MAJOR_VERSION
,MINOR_VERSION
)
)
IN kd03$$$.A301A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD301A0
ON oa1$$$.TKD301A1
(ID ASC
)
NOT CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE UNIQUE INDEX oa1$$$.IKD301A1
ON oa1$$$.TKD301A1
("NAME" ASC
,MAJOR_VERSION ASC
,MINOR_VERSION ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A302A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD302A1
(ID INTEGER
NOT NULL
GENERATED ALWAYS AS IDENTITY ( START WITH 1
, INCREMENT BY 1
, MINVALUE 1
, MAXVALUE 2147483647
, CACHE 20
, NOCYCLE
, NOORDER )
,"NAME" VARCHAR(256) FOR SBCS DATA
NOT NULL
,MAJOR_VERSION INTEGER
NOT NULL
,MINOR_VERSION INTEGER
NOT NULL
,CREATION_DATE DECIMAL(19, 0)
NOT NULL
,DISPLAY_NAME VARCHAR(256) FOR SBCS DATA
WITH DEFAULT NULL
,DESCRIPTION VARCHAR(256) FOR SBCS DATA
WITH DEFAULT NULL
,RULEAPP_ID INTEGER
NOT NULL
,CONSTRAINT CKD302A0 PRIMARY KEY
(ID
)
,CONSTRAINT CKD302A2 UNIQUE
(RULEAPP_ID
,"NAME"
,MAJOR_VERSION
,MINOR_VERSION
)
)
IN kd03$$$.A302A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD302A0
ON oa1$$$.TKD302A1
(ID ASC
)
NOT CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE UNIQUE INDEX oa1$$$.IKD302A1
ON oa1$$$.TKD302A1
(RULEAPP_ID ASC
,"NAME" ASC
,MAJOR_VERSION ASC
,MINOR_VERSION ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A304A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD304A1
(ID INTEGER
NOT NULL
GENERATED ALWAYS AS IDENTITY ( START WITH 1
, INCREMENT BY 1
, MINVALUE 1
, MAXVALUE 2147483647
, CACHE 20
, NOCYCLE
, NOORDER )
,RULESET_ID INTEGER
NOT NULL
,"NAME" VARCHAR(256) FOR SBCS DATA
NOT NULL
,"VALUE" VARCHAR(2000) FOR SBCS DATA
NOT NULL
,CONSTRAINT CKD304A0 PRIMARY KEY
(ID
)
,CONSTRAINT CKD304A2 UNIQUE
(RULESET_ID
,"NAME"
)
)
IN kd03$$$.A304A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD304A0
ON oa1$$$.TKD304A1
(ID ASC
)
NOT CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE UNIQUE INDEX oa1$$$.IKD304A1
ON oa1$$$.TKD304A1
(RULESET_ID ASC
,"NAME" ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A303A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD303A1
(ID INTEGER
NOT NULL
GENERATED ALWAYS AS IDENTITY ( START WITH 1
, INCREMENT BY 1
, MINVALUE 1
, MAXVALUE 2147483647
, CACHE 20
, NOCYCLE
, NOORDER )
,RULEAPP_ID INTEGER
NOT NULL
,"NAME" VARCHAR(256) FOR SBCS DATA
NOT NULL
,"VALUE" VARCHAR(2000) FOR SBCS DATA
NOT NULL
,CONSTRAINT CKD303A0 PRIMARY KEY
(ID
)
,CONSTRAINT CKD303A2 UNIQUE
(RULEAPP_ID
,"NAME"
)
)
IN kd03$$$.A303A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD303A0
ON oa1$$$.TKD303A1
(ID ASC
)
NOT CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE UNIQUE INDEX oa1$$$.IKD303A1
ON oa1$$$.TKD303A1
(RULEAPP_ID ASC
,"NAME" ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A305A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD305A1
(ID INTEGER
NOT NULL
GENERATED ALWAYS AS IDENTITY ( START WITH 1
, INCREMENT BY 1
, MINVALUE 1
, MAXVALUE 2147483647
, CACHE 20
, NOCYCLE
, NOORDER )
,RULESET_ID INTEGER
NOT NULL
,ARCHIVE BLOB(1G)
NOT NULL
,CONSTRAINT CKD305A0 PRIMARY KEY
(ID
)
)
IN kd03$$$.A305A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD305A0
ON oa1$$$.TKD305A1
(ID ASC
)
NOT CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE LOB TABLESPACE A306A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP8
DSSIZE 16G
CLOSE YES
LOCKMAX SYSTEM
GBPCACHE CHANGED
DEFINE YES
LOGGED
LOCKSIZE ANY;
CREATE AUXILIARY TABLE oa1$$$.TKD306A1
IN kd03$$$.A306A
STORES oa1$$$.TKD305A1
APPEND NO
COLUMN ARCHIVE;
CREATE UNIQUE INDEX oa1$$$.IKD306A0
ON oa1$$$.TKD306A1
PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 4194304K;
CREATE TABLESPACE A311A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD311A1
(ID INTEGER
NOT NULL
GENERATED ALWAYS AS IDENTITY ( START WITH 1
, INCREMENT BY 1
, MINVALUE 1
, MAXVALUE 2147483647
, CACHE 20
, NOCYCLE
, NOORDER )
,"NAME" VARCHAR(256) FOR SBCS DATA
NOT NULL
,MAJOR_VERSION INTEGER
NOT NULL
,MINOR_VERSION INTEGER
NOT NULL
,CREATION_DATE DECIMAL(19, 0)
NOT NULL
,DISPLAY_NAME VARCHAR(256) FOR SBCS DATA
WITH DEFAULT NULL
,DESCRIPTION VARCHAR(256) FOR SBCS DATA
WITH DEFAULT NULL
,CONSTRAINT CKD311A0 PRIMARY KEY
(ID
)
,CONSTRAINT CKD311A1 UNIQUE
("NAME"
,MAJOR_VERSION
,MINOR_VERSION
)
)
IN kd03$$$.A311A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD311A0
ON oa1$$$.TKD311A1
(ID ASC
)
NOT CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE UNIQUE INDEX oa1$$$.IKD311A1
ON oa1$$$.TKD311A1
("NAME" ASC
,MAJOR_VERSION ASC
,MINOR_VERSION ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A312A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD312A1
(ID INTEGER
NOT NULL
GENERATED ALWAYS AS IDENTITY ( START WITH 1
, INCREMENT BY 1
, MINVALUE 1
, MAXVALUE 2147483647
, CACHE 20
, NOCYCLE
, NOORDER )
,"NAME" VARCHAR(256) FOR SBCS DATA
NOT NULL
,MAJOR_VERSION INTEGER
NOT NULL
,MINOR_VERSION INTEGER
NOT NULL
,CREATION_DATE DECIMAL(19, 0)
NOT NULL
,DISPLAY_NAME VARCHAR(256) FOR SBCS DATA
WITH DEFAULT NULL
,DESCRIPTION VARCHAR(256) FOR SBCS DATA
WITH DEFAULT NULL
,RULEAPP_ID INTEGER
NOT NULL
,CONSTRAINT CKD312A0 PRIMARY KEY
(ID
)
,CONSTRAINT CKD312A2 UNIQUE
(RULEAPP_ID
,"NAME"
,MAJOR_VERSION
,MINOR_VERSION
)
)
IN kd03$$$.A312A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD312A0
ON oa1$$$.TKD312A1
(ID ASC
)
NOT CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE UNIQUE INDEX oa1$$$.IKD312A1
ON oa1$$$.TKD312A1
(RULEAPP_ID ASC
,"NAME" ASC
,MAJOR_VERSION ASC
,MINOR_VERSION ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A314A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD314A1
(ID INTEGER
NOT NULL
GENERATED ALWAYS AS IDENTITY ( START WITH 1
, INCREMENT BY 1
, MINVALUE 1
, MAXVALUE 2147483647
, CACHE 20
, NOCYCLE
, NOORDER )
,RULESET_ID INTEGER
NOT NULL
,"NAME" VARCHAR(256) FOR SBCS DATA
NOT NULL
,"VALUE" VARCHAR(2000) FOR SBCS DATA
NOT NULL
,CONSTRAINT CKD314A0 PRIMARY KEY
(ID
)
,CONSTRAINT CKD314A2 UNIQUE
(RULESET_ID
,"NAME"
)
)
IN kd03$$$.A314A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD314A0
ON oa1$$$.TKD314A1
(ID ASC
)
NOT CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE UNIQUE INDEX oa1$$$.IKD314A1
ON oa1$$$.TKD314A1
(RULESET_ID ASC
,"NAME" ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A313A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD313A1
(ID INTEGER
NOT NULL
GENERATED ALWAYS AS IDENTITY ( START WITH 1
, INCREMENT BY 1
, MINVALUE 1
, MAXVALUE 2147483647
, CACHE 20
, NOCYCLE
, NOORDER )
,RULEAPP_ID INTEGER
NOT NULL
,"NAME" VARCHAR(256) FOR SBCS DATA
NOT NULL
,"VALUE" VARCHAR(2000) FOR SBCS DATA
NOT NULL
,CONSTRAINT CKD313A0 PRIMARY KEY
(ID
)
,CONSTRAINT CKD313A2 UNIQUE
(RULEAPP_ID
,"NAME"
)
)
IN kd03$$$.A313A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD313A0
ON oa1$$$.TKD313A1
(ID ASC
)
NOT CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE UNIQUE INDEX oa1$$$.IKD313A1
ON oa1$$$.TKD313A1
(RULEAPP_ID ASC
,"NAME" ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A315A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD315A1
(ID INTEGER
NOT NULL
GENERATED ALWAYS AS IDENTITY ( START WITH 1
, INCREMENT BY 1
, MINVALUE 1
, MAXVALUE 2147483647
, CACHE 20
, NOCYCLE
, NOORDER )
,RULESET_ID INTEGER
NOT NULL
,ARCHIVE BLOB(1G)
NOT NULL
,CONSTRAINT CKD315A0 PRIMARY KEY
(ID
)
)
IN kd03$$$.A315A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD315A0
ON oa1$$$.TKD315A1
(ID ASC
)
NOT CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE LOB TABLESPACE A316A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP8
DSSIZE 16G
CLOSE YES
LOCKMAX SYSTEM
GBPCACHE CHANGED
DEFINE YES
LOGGED
LOCKSIZE ANY;
CREATE AUXILIARY TABLE oa1$$$.TKD316A1
IN kd03$$$.A316A
STORES oa1$$$.TKD315A1
APPEND NO
COLUMN ARCHIVE;
CREATE UNIQUE INDEX oa1$$$.IKD316A0
ON oa1$$$.TKD316A1
PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 4194304K;
CREATE TABLESPACE A331A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD331A1
(UUID VARCHAR(40) FOR SBCS DATA
NOT NULL
,TCN DECIMAL(19, 0)
NOT NULL
,MODIFICATION_TIME TIMESTAMP (6) WITHOUT TIME ZONE
NOT NULL
,PID VARCHAR(7) FOR SBCS DATA
NOT NULL
,PROPERTY VARCHAR(100) FOR SBCS DATA
NOT NULL
,"VALUE" VARCHAR(250) FOR SBCS DATA
NOT NULL
,CONSTRAINT CKD331A0 PRIMARY KEY
(UUID
)
,CONSTRAINT CKD331A1 UNIQUE
(PROPERTY
)
)
IN kd03$$$.A331A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD331A0
ON oa1$$$.TKD331A1
(UUID ASC
)
NOT PADDED
CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE UNIQUE INDEX oa1$$$.IKD331A1
ON oa1$$$.TKD331A1
(PROPERTY ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A332A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD332A1
(UUID VARCHAR(40) FOR SBCS DATA
NOT NULL
,TCN DECIMAL(19, 0)
NOT NULL
,MODIFICATION_TIME TIMESTAMP (6) WITHOUT TIME ZONE
NOT NULL
,PID VARCHAR(7) FOR SBCS DATA
NOT NULL
,RULE_CONTEXT VARCHAR(100) FOR SBCS DATA
NOT NULL
,CHANGED_ENTITY_UUID VARCHAR(40) FOR SBCS DATA
NOT NULL
,CHANGED_ENTITY_NAME VARCHAR(100) FOR SBCS DATA
NOT NULL
,ACTIVITY VARCHAR(50) FOR SBCS DATA
NOT NULL
,DETAILS VARCHAR(250) FOR SBCS DATA
WITH DEFAULT NULL
,CONSTRAINT CKD332A0 PRIMARY KEY
(UUID
)
)
IN kd03$$$.A332A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD332A0
ON oa1$$$.TKD332A1
(UUID ASC
)
NOT PADDED
CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A333A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD333A1
(UUID VARCHAR(40) FOR SBCS DATA
NOT NULL
,TCN DECIMAL(19, 0)
NOT NULL
,MODIFICATION_TIME TIMESTAMP (6) WITHOUT TIME ZONE
NOT NULL
,PID VARCHAR(7) FOR SBCS DATA
WITH DEFAULT NULL
,"NAME" VARCHAR(80) FOR SBCS DATA
NOT NULL
,"VALUE" VARCHAR(250) FOR SBCS DATA
NOT NULL
,CONSTRAINT CKD333A0 PRIMARY KEY
(UUID
)
)
IN kd03$$$.A333A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD333A0
ON oa1$$$.TKD333A1
(UUID ASC
)
NOT PADDED
CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A334A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD334A1
(ACTIVITY_LOG VARCHAR(40) FOR SBCS DATA
NOT NULL
,ACTIVITY_LOG_DETAIL VARCHAR(40) FOR SBCS DATA
NOT NULL
)
IN kd03$$$.A334A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE INDEX oa1$$$.IKD334A1
ON oa1$$$.TKD334A1
(ACTIVITY_LOG ASC
)
NOT PADDED
CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE INDEX oa1$$$.IKD334A2
ON oa1$$$.TKD334A1
(ACTIVITY_LOG_DETAIL ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A335A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD335A1
(UUID VARCHAR(40) FOR SBCS DATA
NOT NULL
,TCN DECIMAL(19, 0)
NOT NULL
,MODIFICATION_TIME TIMESTAMP (6) WITHOUT TIME ZONE
NOT NULL
,PID VARCHAR(7) FOR SBCS DATA
NOT NULL
,RULE_CONTEXT VARCHAR(50) FOR SBCS DATA
NOT NULL
,RULEAPP_NAME VARCHAR(250) FOR SBCS DATA
NOT NULL
,RULEAPP_VERSION_MAJOR DECIMAL(19, 0)
NOT NULL
,RULEAPP_VERSION_MINOR DECIMAL(19, 0)
NOT NULL
,BASELINE VARCHAR(100) FOR SBCS DATA
NOT NULL
,VALID_FROM TIMESTAMP (6) WITHOUT TIME ZONE
WITH DEFAULT NULL
,VALID_TO TIMESTAMP (6) WITHOUT TIME ZONE
WITH DEFAULT NULL
,JRULES_VERSION VARCHAR(10) FOR SBCS DATA
NOT NULL
,TARGET VARCHAR(10) FOR SBCS DATA
NOT NULL
,TRACE_ENABLED CHARACTER(1) FOR SBCS DATA
NOT NULL
,KPI_ENABLED CHARACTER(1) FOR SBCS DATA
NOT NULL
,STATUS VARCHAR(50) FOR SBCS DATA
NOT NULL
,ACCESS_LOCK VARCHAR(30) FOR SBCS DATA
WITH DEFAULT NULL
,CONSTRAINT CKD335A0 PRIMARY KEY
(UUID
)
,CONSTRAINT CKD335A1 UNIQUE
(RULE_CONTEXT
,RULEAPP_NAME
,RULEAPP_VERSION_MAJOR
,RULEAPP_VERSION_MINOR
,BASELINE
,TARGET
)
,CONSTRAINT CKD335A2 CHECK
(TARGET IN ( 'Production' , 'Test' )
)
,CONSTRAINT CKD335A3 CHECK
(KPI_ENABLED IN ( 'Y' , 'N' )
)
,CONSTRAINT CKD335A4 CHECK
(TRACE_ENABLED IN ( 'Y' , 'N' )
)
)
IN kd03$$$.A335A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD335A0
ON oa1$$$.TKD335A1
(UUID ASC
)
NOT PADDED
CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE UNIQUE INDEX oa1$$$.IKD335A1
ON oa1$$$.TKD335A1
(RULE_CONTEXT ASC
,RULEAPP_NAME ASC
,RULEAPP_VERSION_MAJOR ASC
,RULEAPP_VERSION_MINOR ASC
,BASELINE ASC
,TARGET ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A336A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD336A1
(UUID VARCHAR(40) FOR SBCS DATA
NOT NULL
,TCN DECIMAL(19, 0)
NOT NULL
,MODIFICATION_TIME TIMESTAMP (6) WITHOUT TIME ZONE
NOT NULL
,PID VARCHAR(7) FOR SBCS DATA
NOT NULL
,USER_PID VARCHAR(7) FOR SBCS DATA
NOT NULL
,RULE_CONTEXT VARCHAR(50) FOR SBCS DATA
NOT NULL
,BRINFRA_ROLE VARCHAR(50) FOR SBCS DATA
NOT NULL
,CONSTRAINT CKD336A0 PRIMARY KEY
(UUID
)
,CONSTRAINT CKD336A1 UNIQUE
(USER_PID
,RULE_CONTEXT
,BRINFRA_ROLE
)
)
IN kd03$$$.A336A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD336A0
ON oa1$$$.TKD336A1
(UUID ASC
)
NOT PADDED
CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE UNIQUE INDEX oa1$$$.IKD336A1
ON oa1$$$.TKD336A1
(USER_PID ASC
,RULE_CONTEXT ASC
,BRINFRA_ROLE ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE TABLESPACE A337A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD337A1
(ID INTEGER
NOT NULL
GENERATED ALWAYS AS IDENTITY ( START WITH 1
, INCREMENT BY 1
, MINVALUE 1
, MAXVALUE 2147483647
, CACHE 20
, NOCYCLE
, NOORDER )
,COMMAND_TYPE VARCHAR(20) FOR SBCS DATA
,SENDER_ID VARCHAR(250) FOR SBCS DATA
,CLIENT_ID VARCHAR(250) FOR SBCS DATA
,TARGET VARCHAR(8) FOR SBCS DATA
,PAYLOAD CLOB(1G) FOR SBCS DATA
NOT NULL
,CONSTRAINT CKD337A0 PRIMARY KEY
(ID
)
)
IN kd03$$$.A337A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE UNIQUE INDEX oa1$$$.IKD337A0
ON oa1$$$.TKD337A1
(ID ASC
)
CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE LOB TABLESPACE A338A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
DSSIZE 16G
CLOSE YES
LOCKMAX SYSTEM
GBPCACHE CHANGED
DEFINE YES
LOGGED
LOCKSIZE ANY;
CREATE AUXILIARY TABLE oa1$$$.TKD338A1
IN kd03$$$.A338A
STORES oa1$$$.TKD337A1
APPEND NO
COLUMN PAYLOAD;
CREATE UNIQUE INDEX oa1$$$.IKD338A0
ON oa1$$$.TKD338A1
PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 4194304K;
CREATE TABLESPACE A339A
IN kd03$$$
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
BUFFERPOOL BP2
CLOSE YES
LOCKMAX SYSTEM
SEGSIZE 64
FREEPAGE 0
PCTFREE 5
GBPCACHE CHANGED
DEFINE YES
LOGGED
TRACKMOD YES
COMPRESS YES
LOCKSIZE ANY
MAXROWS 255
CCSID EBCDIC;
CREATE TABLE oa1$$$.TKD339A1
(UUID VARCHAR(40) FOR SBCS DATA
NOT NULL
,TCN DECIMAL(19, 0)
NOT NULL
,MODIFICATION_TIME TIMESTAMP (6) WITHOUT TIME ZONE
NOT NULL
,PID VARCHAR(7) FOR SBCS DATA
NOT NULL
,SERVER_NAME VARCHAR(50) FOR SBCS DATA
NOT NULL
,CLIENT_NAME VARCHAR(50) FOR SBCS DATA
NOT NULL
,COMPONENT_ID VARCHAR(250) FOR SBCS DATA
NOT NULL
,COMPONENT_PLATFORM VARCHAR(10) FOR SBCS DATA
NOT NULL
,COMPONENT_STAGE VARCHAR(10) FOR SBCS DATA
NOT NULL
,COMPONENT_TYPE VARCHAR(10) FOR SBCS DATA
NOT NULL
,RULE_CONTEXT VARCHAR(50) FOR SBCS DATA
NOT NULL
,RES_EXECUTION_MODE VARCHAR(10) FOR SBCS DATA
NOT NULL
,RES_PERSISTENCE_TYPE VARCHAR(10) FOR SBCS DATA
NOT NULL
,RES_DATASOURCE VARCHAR(250) FOR SBCS DATA
WITH DEFAULT NULL
,RES_EXECUTION_ENV VARCHAR(10) FOR SBCS DATA
NOT NULL
,COMPATIBLE_RULEAPPS VARCHAR(250) FOR SBCS DATA
WITH DEFAULT NULL
,PRELOAD_RULEAPPS VARCHAR(250) FOR SBCS DATA
WITH DEFAULT NULL
,CLIENT_STARTED_AT TIMESTAMP (6) WITHOUT TIME ZONE
NOT NULL
,LAST_QUERY_TIMESTAMP TIMESTAMP (6) WITHOUT TIME ZONE
NOT NULL
,DEAD_COUNT DECIMAL(6, 0)
NOT NULL
,CONSTRAINT CKD339A0 PRIMARY KEY
(UUID
)
,CONSTRAINT CKD339A1 CHECK
(RES_EXECUTION_MODE IN ( 'JEE' , 'JSE' )
)
,CONSTRAINT CKD339A2 CHECK
(RES_PERSISTENCE_TYPE IN ( 'DS' , 'FILE' )
)
,CONSTRAINT CKD339A3 CHECK
(RES_EXECUTION_ENV IN ( 'Production' , 'Simulation' )
)
)
IN kd03$$$.A339A
APPEND NO
WITH RESTRICT ON DROP
NOT VOLATILE CARDINALITY
DATA CAPTURE CHANGES
AUDIT NONE
CCSID EBCDIC;
CREATE INDEX oa1$$$.IKD339A1
ON oa1$$$.TKD339A1
(RULE_CONTEXT ASC
)
NOT CLUSTER
NOT PADDED
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
CREATE UNIQUE INDEX oa1$$$.IKD339A0
ON oa1$$$.TKD339A1
(UUID ASC
)
NOT PADDED
CLUSTER
DEFINE YES
COMPRESS NO
BUFFERPOOL BP1
CLOSE YES
DEFER NO
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 0
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
ALTER TABLE oa1$$$.TKD302A1
ADD
CONSTRAINT CKD302A1
FOREIGN KEY
(RULEAPP_ID
)
REFERENCES oa1$$$.TKD301A1 ON DELETE CASCADE
ENFORCED;
ALTER TABLE oa1$$$.TKD304A1
ADD
CONSTRAINT CKD304A1
FOREIGN KEY
(RULESET_ID
)
REFERENCES oa1$$$.TKD302A1 ON DELETE CASCADE
ENFORCED;
ALTER TABLE oa1$$$.TKD303A1
ADD
CONSTRAINT CKD303A1
FOREIGN KEY
(RULEAPP_ID
)
REFERENCES oa1$$$.TKD301A1 ON DELETE CASCADE
ENFORCED;
ALTER TABLE oa1$$$.TKD305A1
ADD
CONSTRAINT CKD305A1
FOREIGN KEY
(RULESET_ID
)
REFERENCES oa1$$$.TKD302A1 ON DELETE CASCADE
ENFORCED;
ALTER TABLE oa1$$$.TKD312A1
ADD
CONSTRAINT CKD312A1
FOREIGN KEY
(RULEAPP_ID
)
REFERENCES oa1$$$.TKD311A1 ON DELETE CASCADE
ENFORCED;
ALTER TABLE oa1$$$.TKD314A1
ADD
CONSTRAINT CKD314A1
FOREIGN KEY
(RULESET_ID
)
REFERENCES oa1$$$.TKD312A1 ON DELETE CASCADE
ENFORCED;
ALTER TABLE oa1$$$.TKD313A1
ADD
CONSTRAINT CKD313A1
FOREIGN KEY
(RULEAPP_ID
)
REFERENCES oa1$$$.TKD311A1 ON DELETE CASCADE
ENFORCED;
ALTER TABLE oa1$$$.TKD315A1
ADD
CONSTRAINT CKD315A1
FOREIGN KEY
(RULESET_ID
)
REFERENCES oa1$$$.TKD312A1 ON DELETE CASCADE
ENFORCED;
ALTER TABLE oa1$$$.TKD334A1
ADD
CONSTRAINT CKD334A1
FOREIGN KEY
(ACTIVITY_LOG
)
REFERENCES oa1$$$.TKD332A1 ON DELETE CASCADE
ENFORCED;
ALTER TABLE oa1$$$.TKD334A1
ADD
CONSTRAINT CKD334A2
FOREIGN KEY
(ACTIVITY_LOG_DETAIL
)
REFERENCES oa1$$$.TKD333A1 ON DELETE CASCADE
ENFORCED;
}¢--- A540769.WK.JCL(KDLOAD) cre=2014-06-11 mod=2014-06-12-16.59.25 A540769 ----
//A540769L JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,A540769L.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DP2G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE INP
DSN('TSS.SKA.KD03A1P.&SN..P00000.REC')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD301A1"
WHEN(00001:00002) = X'0021'
( ID
POSITION( 00003:00006) INTEGER
, "NAME"
POSITION( 00007:00264) VARCHAR
, "MAJOR_VERSION"
POSITION( 00265:00268) INTEGER
, "MINOR_VERSION"
POSITION( 00269:00272) INTEGER
, "CREATION_DATE"
POSITION( 00273:00282) DECIMAL
, "DISPLAY_NAME"
POSITION( 00284:00541) VARCHAR
NULLIF(00283)=X'FF'
, "DESCRIPTION"
POSITION( 00543:00800) VARCHAR
NULLIF(00542)=X'FF'
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD302A1"
WHEN(00001:00002) = X'0022'
( ID
POSITION( 00003:00006) INTEGER
, "NAME"
POSITION( 00007:00264) VARCHAR
, "MAJOR_VERSION"
POSITION( 00265:00268) INTEGER
, "MINOR_VERSION"
POSITION( 00269:00272) INTEGER
, "CREATION_DATE"
POSITION( 00273:00282) DECIMAL
, "DISPLAY_NAME"
POSITION( 00284:00541) VARCHAR
NULLIF(00283)=X'FF'
, "DESCRIPTION"
POSITION( 00543:00800) VARCHAR
NULLIF(00542)=X'FF'
, "RULEAPP_ID"
POSITION( 00801:00804) INTEGER
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD303A1"
WHEN(00001:00002) = X'0023'
( ID
POSITION( 00003:00006) INTEGER
, "RULEAPP_ID"
POSITION( 00007:00010) INTEGER
, "NAME"
POSITION( 00011:00268) VARCHAR
, "VALUE"
POSITION( 00269:02270) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD304A1"
WHEN(00001:00002) = X'0024'
( ID
POSITION( 00003:00006) INTEGER
, "RULESET_ID"
POSITION( 00007:00010) INTEGER
, "NAME"
POSITION( 00011:00268) VARCHAR
, "VALUE"
POSITION( 00269:02270) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD311A1"
WHEN(00001:00002) = X'002A'
( ID
POSITION( 00003:00006) INTEGER
, "NAME"
POSITION( 00007:00264) VARCHAR
, "MAJOR_VERSION"
POSITION( 00265:00268) INTEGER
, "MINOR_VERSION"
POSITION( 00269:00272) INTEGER
, "CREATION_DATE"
POSITION( 00273:00282) DECIMAL
, "DISPLAY_NAME"
POSITION( 00284:00541) VARCHAR
NULLIF(00283)=X'FF'
, "DESCRIPTION"
POSITION( 00543:00800) VARCHAR
NULLIF(00542)=X'FF'
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD312A1"
WHEN(00001:00002) = X'002B'
( ID
POSITION( 00003:00006) INTEGER
, "NAME"
POSITION( 00007:00264) VARCHAR
, "MAJOR_VERSION"
POSITION( 00265:00268) INTEGER
, "MINOR_VERSION"
POSITION( 00269:00272) INTEGER
, "CREATION_DATE"
POSITION( 00273:00282) DECIMAL
, "DISPLAY_NAME"
POSITION( 00284:00541) VARCHAR
NULLIF(00283)=X'FF'
, "DESCRIPTION"
POSITION( 00543:00800) VARCHAR
NULLIF(00542)=X'FF'
, "RULEAPP_ID"
POSITION( 00801:00804) INTEGER
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD313A1"
WHEN(00001:00002) = X'002C'
( ID
POSITION( 00003:00006) INTEGER
, "RULEAPP_ID"
POSITION( 00007:00010) INTEGER
, "NAME"
POSITION( 00011:00268) VARCHAR
, "VALUE"
POSITION( 00269:02270) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD314A1"
WHEN(00001:00002) = X'002D'
( ID
POSITION( 00003:00006) INTEGER
, "RULESET_ID"
POSITION( 00007:00010) INTEGER
, "NAME"
POSITION( 00011:00268) VARCHAR
, "VALUE"
POSITION( 00269:02270) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD331A1"
WHEN(00001:00002) = X'0033'
( "UUID"
POSITION( 00003:00044) VARCHAR
, "TCN"
POSITION( 00045:00054) DECIMAL
, "MODIFICATION_TIME"
POSITION( 00055:00080) TIMESTAMP EXTERNAL(026)
, "PID"
POSITION( 00081:00089) VARCHAR
, "PROPERTY"
POSITION( 00090:00191) VARCHAR
, "VALUE"
POSITION( 00192:00443) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD332A1"
WHEN(00001:00002) = X'0034'
( "UUID"
POSITION( 00003:00044) VARCHAR
, "TCN"
POSITION( 00045:00054) DECIMAL
, "MODIFICATION_TIME"
POSITION( 00055:00080) TIMESTAMP EXTERNAL(026)
, "PID"
POSITION( 00081:00089) VARCHAR
, "RULE_CONTEXT"
POSITION( 00090:00191) VARCHAR
, "CHANGED_ENTITY_UUID"
POSITION( 00192:00233) VARCHAR
, "CHANGED_ENTITY_NAME"
POSITION( 00234:00335) VARCHAR
, "ACTIVITY"
POSITION( 00336:00387) VARCHAR
, "DETAILS"
POSITION( 00389:00640) VARCHAR
NULLIF(00388)=X'FF'
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD333A1"
WHEN(00001:00002) = X'0035'
( "UUID"
POSITION( 00003:00044) VARCHAR
, "TCN"
POSITION( 00045:00054) DECIMAL
, "MODIFICATION_TIME"
POSITION( 00055:00080) TIMESTAMP EXTERNAL(026)
, "PID"
POSITION( 00082:00090) VARCHAR
NULLIF(00081)=X'FF'
, "NAME"
POSITION( 00091:00172) VARCHAR
, "VALUE"
POSITION( 00173:00424) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD334A1"
WHEN(00001:00002) = X'0036'
( "ACTIVITY_LOG"
POSITION( 00003:00044) VARCHAR
, "ACTIVITY_LOG_DETAIL"
POSITION( 00045:00086) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD335A1"
WHEN(00001:00002) = X'0037'
( "UUID"
POSITION( 00003:00044) VARCHAR
, "TCN"
POSITION( 00045:00054) DECIMAL
, "MODIFICATION_TIME"
POSITION( 00055:00080) TIMESTAMP EXTERNAL(026)
, "PID"
POSITION( 00081:00089) VARCHAR
, "RULE_CONTEXT"
POSITION( 00090:00141) VARCHAR
, "RULEAPP_NAME"
POSITION( 00142:00393) VARCHAR
, "RULEAPP_VERSION_MAJOR"
POSITION( 00394:00403) DECIMAL
, "RULEAPP_VERSION_MINOR"
POSITION( 00404:00413) DECIMAL
, "BASELINE"
POSITION( 00414:00515) VARCHAR
, "VALID_FROM"
POSITION( 00517:00542) TIMESTAMP EXTERNAL(026)
NULLIF(00516)=X'FF'
, "VALID_TO"
POSITION( 00544:00569) TIMESTAMP EXTERNAL(026)
NULLIF(00543)=X'FF'
, "JRULES_VERSION"
POSITION( 00570:00581) VARCHAR
, "TARGET"
POSITION( 00582:00593) VARCHAR
, "TRACE_ENABLED"
POSITION( 00594:00594) CHAR(00001)
, "KPI_ENABLED"
POSITION( 00595:00595) CHAR(00001)
, "STATUS"
POSITION( 00596:00647) VARCHAR
, "ACCESS_LOCK"
POSITION( 00649:00680) VARCHAR
NULLIF(00648)=X'FF'
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD336A1"
WHEN(00001:00002) = X'003B'
( "UUID"
POSITION( 00003:00044) VARCHAR
, "TCN"
POSITION( 00045:00054) DECIMAL
, "MODIFICATION_TIME"
POSITION( 00055:00080) TIMESTAMP EXTERNAL(026)
, "PID"
POSITION( 00081:00089) VARCHAR
, "USER_PID"
POSITION( 00090:00098) VARCHAR
, "RULE_CONTEXT"
POSITION( 00099:00150) VARCHAR
, "BRINFRA_ROLE"
POSITION( 00151:00202) VARCHAR
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
INTO TABLE
"OA1$$$".
"TKD339A1"
WHEN(00001:00002) = X'0089'
( "UUID"
POSITION( 00003:00044) VARCHAR
, "TCN"
POSITION( 00045:00054) DECIMAL
, "MODIFICATION_TIME"
POSITION( 00055:00080) TIMESTAMP EXTERNAL(026)
, "PID"
POSITION( 00081:00089) VARCHAR
, "SERVER_NAME"
POSITION( 00090:00141) VARCHAR
, "CLIENT_NAME"
POSITION( 00142:00193) VARCHAR
, "COMPONENT_ID"
POSITION( 00194:00445) VARCHAR
, "COMPONENT_PLATFORM"
POSITION( 00446:00457) VARCHAR
, "COMPONENT_STAGE"
POSITION( 00458:00469) VARCHAR
, "COMPONENT_TYPE"
POSITION( 00470:00481) VARCHAR
, "RULE_CONTEXT"
POSITION( 00482:00533) VARCHAR
, "RES_EXECUTION_MODE"
POSITION( 00534:00545) VARCHAR
, "RES_PERSISTENCE_TYPE"
POSITION( 00546:00557) VARCHAR
, "RES_DATASOURCE"
POSITION( 00559:00810) VARCHAR
NULLIF(00558)=X'FF'
, "RES_EXECUTION_ENV"
POSITION( 00811:00822) VARCHAR
, "COMPATIBLE_RULEAPPS"
POSITION( 00824:01075) VARCHAR
NULLIF(00823)=X'FF'
, "PRELOAD_RULEAPPS"
POSITION( 01077:01328) VARCHAR
NULLIF(01076)=X'FF'
, "CLIENT_STARTED_AT"
POSITION( 01329:01354) TIMESTAMP EXTERNAL(026)
, "LAST_QUERY_TIMESTAMP"
POSITION( 01355:01380) TIMESTAMP EXTERNAL(026)
, "DEAD_COUNT"
POSITION( 01381:01384) DECIMAL
)
}¢--- A540769.WK.JCL(KDLOADBL) cre=2014-06-11 mod=2014-06-12-17.09.30 A540769 ---
//A540769L JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DP2G,A540769L.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DP2G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE INP
DSN('TSS.SKA.KD03A1P.&SN..P00000.REC')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
FORMAT SPANNED YES
INTO TABLE
"OA1$$$".
"TKD305A1"
WHEN(00001:00002) = X'0027'
( ID
POSITION( 00003:00006) INTEGER
, "RULESET_ID"
POSITION( 00007:00010) INTEGER
, "ARCHIVE"
POSITION( *) BLOB
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
FORMAT SPANNED YES
INTO TABLE
OA1$$$.
"TKD315A1"
WHEN(00001:00002) = X'0030'
( ID
POSITION( 00003:00006) INTEGER
, "RULESET_ID"
POSITION( 00007:00010) INTEGER
, "ARCHIVE"
POSITION( *) BLOB
)
---
LOAD DATA INDDN INP LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
MAPDDN TMAPD ERRDDN TERRD
IDENTITYOVERRIDE
FORMAT SPANNED YES
INTO TABLE
"OA1$$$".
"TKD337A1"
WHEN(00001:00002) = X'0088'
( ID
POSITION( 00003:00006) INTEGER
, "COMMAND_TYPE"
POSITION( 00008) VARCHAR
NULLIF(00007)=X'FF'
, "DSN_NULL_IND_00003" POSITION( *) CHAR(1)
, "SENDER_ID"
POSITION( *) VARCHAR
NULLIF(DSN_NULL_IND_00003)=X'FF'
, "DSN_NULL_IND_00004" POSITION( *) CHAR(1)
, "CLIENT_ID"
POSITION( *) VARCHAR
NULLIF(DSN_NULL_IND_00004)=X'FF'
, "DSN_NULL_IND_00005" POSITION( *) CHAR(1)
, "TARGET"
POSITION( *) VARCHAR
NULLIF(DSN_NULL_IND_00005)=X'FF'
, "PAYLOAD"
POSITION( *) CLOB
)
--
LISTDEF LST INCLUDE TABLESPACE KD03$$$.* PARTLEVEL
COPY LIST LST COPYDDN TCOPYD SCOPE PENDING
PARALLEL SHRLEVEL CHANGE FULL YES
}¢--- A540769.WK.JCL(KDSEL) cre=2014-06-11 mod=2014-06-11-16.13.50 A540769 -----
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG 00040000
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200 00020001
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSREC00 DD DISP=(NEW,CATLG),DSN=A540769.TMP.DP2G.UNL,
// DATACLAS=ENN35,DSNTYPE=LARGE,
// SPACE=(CYL,(1000,5000)),MGMTCLAS=COM#A069
//SYSTSIN DD *
DSN SYSTEM(DP2G)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
//SYSIN DD *
SELECT ID
, RULESET_ID
, LENGTH(ARCHIVE)
, SUBSTR(ARCHIVE, 1, 200)
FROM OA1$$$.TKD305A1
ORDER BY ID, RULESET_ID
;
}¢--- A540769.WK.JCL(KDUNLOA) cre=2014-06-11 mod=2014-06-11-15.28.37 A540769 ---
//A540769U JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOF,'A540769U.UNLOAC'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE SREC DSN('TSS.SKA.&DB..&SN..P&PART..REC')
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE TRK MAXPRIME 600
TEMPLATE PUNCH DSN('TSS.SKA.&DB..&SN..P&PART..PUN')
DATACLAS(NULL8) MGMTCLAS(COM#A032)
SPACE(1,10) TRK
LISTDEF LST INCLUDE TABLESPACE KD03A1P.A301A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A302A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A303A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A304A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A311A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A312A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A313A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A314A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A331A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A332A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A333A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A334A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A335A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A336A PARTLEVEL
INCLUDE TABLESPACE KD03A1P.A339A PARTLEVEL
UNLOAD LIST LST
PUNCHDDN PUNCH UNLDDN SREC
SHRLEVEL CHANGE ISOLATION UR
}¢--- A540769.WK.JCL(KDUNLOB) cre=2014-06-11 mod=2014-06-11-16.22.33 A540769 ---
//A540769U JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOF,'A540769U.UNLOAC'),
// REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE SREC DSN('TSS.SKA.&DB..&SN..P&PART..REC')
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE TRK MAXPRIME 600
TEMPLATE PUNCH DSN('TSS.SKA.&DB..&SN..P&PART..PUN')
DATACLAS(NULL8) MGMTCLAS(COM#A032)
SPACE(1,10) TRK
UNLOAD FROM TABLE OA1P.TKD305A1
( ID
, RULESET_ID
, ARCHIVE BLOB
)
PUNCHDDN PUNCH UNLDDN SREC SPANNED YES
SHRLEVEL CHANGE ISOLATION UR
UNLOAD FROM TABLE OA1P.TKD315A1
( ID
, RULESET_ID
, ARCHIVE BLOB
)
PUNCHDDN PUNCH UNLDDN SREC SPANNED YES
SHRLEVEL CHANGE ISOLATION UR
UNLOAD FROM TABLE OA1P.TKD337A1
( ID
, COMMAND_TYPE
, SENDER_ID
, CLIENT_ID
, TARGET
, PAYLOAD CLOB
)
PUNCHDDN PUNCH UNLDDN SREC SPANNED YES
SHRLEVEL CHANGE ISOLATION UR
}¢--- A540769.WK.JCL(KEM4000P) cre=2006-08-09 mod=2006-08-08-17.20.00 F540769 ---
//KEM4000P JOB (PD00,KE50,,SP00000000),'DB2',
// MSGCLASS=E,TIME=1440
//*MAIN CLASS=SUBP2
//*
//* REORG DISCARD FÜR TABLESPACE AUSFÜHREN
//*
//P05 EXEC PGM=DSNUTILB,
// PARM='DBOF,KEM4000P.REORG'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//ARCHPUN DD DSN=TSS.SKA.PF22.KEM4000P.UNLOA.P.#DT#,
// DISP=(NEW,CATLG,CATLG),
// SPACE=(TRK,(1,1),RLSE),
// MGMTCLAS=BAT#ZJ,DATACLAS=EYN0XP
//ARCHIVE DD DSN=TSS.SKA.PF22.KEM4000P.UNLOA.W.#DT#,
// DISP=(NEW,CATLG,CATLG),
// MGMTCLAS=BAT#ZJ,DATACLAS=EYN0XP,
// SPACE=(CYL,(2000,2000),RLSE)
//* DCB=(BLKSIZE=8192),
//SYSIN DD *
COPY TABLESPACE KS09A1P.A841H
COPYDDN(TCOPYD)
SHRLEVEL REFERENCE
REORG TABLESPACE KS09A1P.A841H
LOG NO
SORTDATA NOSYSREC SORTKEYS
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
DRAIN_WAIT 0
RETRY 0
RETRY_DELAY 300
MAPPINGTABLE S100447.KEM4000P
MAXRO 300
DRAIN WRITERS
LONGLOG CONTINUE
DELAY 1200
TIMEOUT TERM
UNLDDN(TSRECD)
WORKDDN(TSYUTD,TSOUTD)
STATISTICS
INDEX ALL
KEYCARD
REPORT NO
UPDATE ALL
HISTORY NONE
FORCEROLLUP NO
PUNCHDDN ARCHPUN
DISCARDDN ARCHIVE
DISCARD NOPAD FROM TABLE OA1P.TKS841H1 WHEN
(KS841001 < CURRENT DATE - 3 MONTHS)
//*
// IF ((ABEND) OR (P05.RC GT 4) ) THEN
//*
//* TERM UTIL
//*
//P08 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBOF)
-TERM UTIL(KEM4000P.*)
END
//*
//* DISPLAY DATABASE
//*
//P09 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBOF)
-DIS DB(KS09A1P) SP(A841H) LOCKS LIMIT(*)
-DIS DB(KS09A1P) SP(A841H) CLAIMERS LIMIT(*)
-DIS DB(KS09A1P) SP(A841H) USE LIMIT(*)
END
// ENDIF
}¢--- A540769.WK.JCL(KEM4000Q) cre=2006-08-08 mod=2006-08-08-15.43.12 F540769 ---
//KEM4000P JOB (PD00,KE50,,SP00000000),'DB2',
// MSGCLASS=E,TIME=1440
//*MAIN CLASS=SUBP2
//*
//* REORG DISCARD FÜR TABLESPACE AUSFÜHREN
//*
//P05 EXEC PGM=DSNUTILB,
// PARM='DBOF,KEM4000P.REORG'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE ARCHIVE DSN('TSS.SKA.PF22.KEM4000P.UNLOAD.W&DATE.')
DATACLAS (EYN0XP) MGMTCLAS(BAT#ZJ)
SPACE (4000,4000) CYL
TEMPLATE ARCHPUN DSN('TSS.SKA.PF22.KEM4000P.UNLOAD.P&DATE.')
DATACLAS (EYN0XP) MGMTCLAS(BAT#ZJ)
SPACE (1,10) CYL
COPY TABLESPACE KS09A1P.A841H
COPYDDN(TCOPYD)
SHRLEVEL REFERENCE
REORG TABLESPACE KS09A1P.A841H
LOG NO
SORTDATA NOSYSREC SORTKEYS
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
DRAIN_WAIT 0
RETRY 0
RETRY_DELAY 300
MAPPINGTABLE S100447.KEM4000P
MAXRO 300
DRAIN WRITERS
LONGLOG CONTINUE
DELAY 1200
TIMEOUT TERM
UNLDDN(TSRECD)
WORKDDN(TSYUTD,TSOUTD)
STATISTICS
INDEX ALL
KEYCARD
REPORT NO
UPDATE ALL
HISTORY NONE
FORCEROLLUP NO
PUNCHDDN ARCHPUN
DISCARDDN ARCHIVE
DISCARD NOPAD FROM TABLE OA1P.TKS841H1 WHEN
(KS841001 < '2006-04-01-00.00.00.000000')
//SORTWK01 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK02 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK03 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK04 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK05 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK06 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK07 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK08 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK09 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK10 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK11 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK12 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK13 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK14 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK15 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK16 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK17 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK18 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK19 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK20 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK21 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK22 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK23 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//SORTWK24 DD UNIT=DISK,SPACE=(CYL,(200,2000)),DISP=(NEW,DELETE)
//DATAWK01 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK02 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK03 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK04 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK05 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK06 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK07 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK08 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK09 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK10 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK11 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK12 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK13 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK14 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK15 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK16 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK17 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK18 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK19 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK20 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK21 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK22 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK23 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK24 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK25 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK26 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK27 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK28 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK29 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK30 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK31 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK32 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK33 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK34 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK35 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK36 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK37 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK38 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK39 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK40 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK41 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK42 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK43 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK44 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK45 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK46 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK47 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK48 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK49 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK50 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK51 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK52 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK53 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK54 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK55 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK56 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK57 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK58 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK59 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//DATAWK60 DD UNIT=DISK,SPACE=(CYL,(4000,4000)),
// DISP=(NEW,DELETE),DATACLAS=NULL30
//*
// IF ((ABEND) OR (P05.RC GT 4) ) THEN
//*
//* TERM UTIL
//*
//P08 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBOF)
-TERM UTIL(KEM4000P.*)
END
//*
//* DISPLAY DATABASE
//*
//P09 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBOF)
-DIS DB(KS09A1P) SP(A841H) LOCKS LIMIT(*)
-DIS DB(KS09A1P) SP(A841H) CLAIMERS LIMIT(*)
-DIS DB(KS09A1P) SP(A841H) USE LIMIT(*)
END
// ENDIF
}¢--- A540769.WK.JCL(KEM4000R) cre=2006-08-08 mod=2006-08-08-17.18.28 F540769 ---
//KEM4000P JOB (PD00,KE50,,SP00000000),'DB2',
// MSGCLASS=E,TIME=1440
//*MAIN CLASS=SUBP2
//*
//* REORG DISCARD FÜR TABLESPACE AUSFÜHREN
//*
//P05 EXEC PGM=DSNUTILB,
// PARM='DBOF,KEM4000P.REORG'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//ARCHPUN DD DSN=TSS.SKA.PF22.KEM4000P.UNLOAD.P200607
// SPACE=(TRK,(1,1),RLSE),
// MGMTCLAS=BAT#ZJ,DATACLAS=EYN0XP
// DISP=(MOD,CATLG)
//ARCHIVE DD DSN=TSS.SKA.PF22.KEM4000P.UNLOAD.W200607
// DISP=(MOD,CATLG)
// SPACE=(CYL,(2000,2000),RLSE),
//* DCB=(BLKSIZE=8192),
//SYSIN DD *
COPY TABLESPACE KS09A1P.A841H
COPYDDN(TCOPYD)
SHRLEVEL REFERENCE
REORG TABLESPACE KS09A1P.A841H
LOG NO
SORTDATA NOSYSREC SORTKEYS
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
DRAIN_WAIT 0
RETRY 0
RETRY_DELAY 300
MAPPINGTABLE S100447.KEM4000P
MAXRO 300
DRAIN WRITERS
LONGLOG CONTINUE
DELAY 1200
TIMEOUT TERM
UNLDDN(TSRECD)
WORKDDN(TSYUTD,TSOUTD)
STATISTICS
INDEX ALL
KEYCARD
REPORT NO
UPDATE ALL
HISTORY NONE
FORCEROLLUP NO
PUNCHDDN ARCHPUN
DISCARDDN ARCHIVE
DISCARD NOPAD FROM TABLE OA1P.TKS841H1 WHEN
(KS841001 < CURRENT DATE - 1 MONTH)
//*
// IF ((ABEND) OR (P05.RC GT 4) ) THEN
//*
//* TERM UTIL
//*
//P08 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBOF)
-TERM UTIL(KEM4000P.*)
END
//*
//* DISPLAY DATABASE
//*
//P09 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBOF)
-DIS DB(KS09A1P) SP(A841H) LOCKS LIMIT(*)
-DIS DB(KS09A1P) SP(A841H) CLAIMERS LIMIT(*)
-DIS DB(KS09A1P) SP(A841H) USE LIMIT(*)
END
// ENDIF
}¢--- A540769.WK.JCL(LOAD2) cre=2006-05-10 mod=2008-11-24-17.24.52 F540769 -----
//A5407694 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=BS1
//*
//***************************************************
//* CREATED BY : A540769
//* TIMESTAMP : 05/10/2006.18.00.27
//* ENVIRONMENT: ISPF 5.6MVS TSO
//* RELEASE : V7.4.02 08/31/2004
//* DB2 VERSION: 810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769.LOAD'),
// REGION=0M
//STEPLIB DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.LOAD
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//SYSEXEC DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.EXEC
//ABNLIGNR DD DUMMY
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DISP=OLD,DSN=DSN.DBOF.DRE01.A525A.LPUNCH.S88.D2006158,
// VOL=SER=SHR109,UNIT=DISK
//*--------------------------------------------------------------------
//* UTILITY WORK DD STATEMENTS
//*--------------------------------------------------------------------
//SYSUT1 DD DSN=DSN.A540769.DBAF.RE01A1A.A525A.SYSUT1,
// DISP=(NEW,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// DATACLAS=NULL12,
// SPACE=(CYL,(10,250)),
// UNIT=DISK
//*--------------------------------------------------------------------
//* UTILITY SORTOUT WORK DD STATEMENTS
//*--------------------------------------------------------------------
//SORTOUT DD DSN=DSN.A540769.DBAF.RE01A1A.A525A.SORTOUT,
// DISP=(NEW,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// DATACLAS=NULL12,
// SPACE=(CYL,(10,250)),
// UNIT=DISK
//*--------------------------------------------------------------------
//* MAPDDN OUTPUT DD STATEMENTS
//*--------------------------------------------------------------------
//MAP0001 DD DSN=DSN.A540769.DBAF.RE01A1A.A525A.MAP0001,
// DISP=(NEW,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// DATACLAS=NULL12,
// SPACE=(CYL,(10,250)),
// UNIT=DISK
//*--------------------------------------------------------------------
//* ERRDDN OUTPUT DD STATEMENTS
//*--------------------------------------------------------------------
//ERR0001 DD DSN=DSN.A540769.DBAF.RE01A1A.A525A.ERR0001,
// DISP=(NEW,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// DATACLAS=NULL12,
// SPACE=(CYL,(10,250),RLSE),
// UNIT=DISK
//*--------------------------------------------------------------------
//* UTILITY COPY DD STATEMENTS
//*--------------------------------------------------------------------
//C0001 DD DSN=DBAF.RE01A1A.A525A.P0.#DT#,
// DISP=(NEW,CATLG,CATLG),
// MGMTCLAS=COM#A011,
// DATACLAS=NULL30,
// SPACE=(CYL,(10,250),RLSE),
// UNIT=DISK
//*--------------------------------------------------------------------
//* END OF JOBSTEP
//*--------------------------------------------------------------------
//*--------------------------------------------------------------------
//* DATASET CLEANUP STEP WILL EXECUTE IF PREVIOUS CONDITION CODE
//* IS 4 OR LESS.
//*--------------------------------------------------------------------
//CLEANUP EXEC PGM=IEFBR14,
// COND=(4,LT),TIME=1440
//SYSUT1 DD DSN=DSN.A540769.DBAF.RE01A1A.A525A.SYSUT1,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,(1,1)),
// UNIT=DISK
//*--------------------------------------------------------------------
//* UTILITY SORTOUT WORK DD STATEMENTS
//*--------------------------------------------------------------------
//SORTOUT DD DSN=DSN.A540769.DBAF.RE01A1A.A525A.SORTOUT,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,(1,1)),
// UNIT=DISK
//*--------------------------------------------------------------------
//* MAPDDN OUTPUT DD STATEMENTS
//*--------------------------------------------------------------------
//MAP0001 DD DSN=DSN.A540769.DBAF.RE01A1A.A525A.MAP0001,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,(1,1)),
// UNIT=DISK
//*--------------------------------------------------------------------
//* ERRDDN OUTPUT DD STATEMENTS
//*--------------------------------------------------------------------
//ERR0001 DD DSN=DSN.A540769.DBAF.RE01A1A.A525A.ERR0001,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,(1,1)),
// UNIT=DISK
//*--------------------------------------------------------------------
//* END OF DATASET CLEANUP STEP
//*--------------------------------------------------------------------
//*--------------------------------------------------------------------
//* END OF JOB
//*--------------------------------------------------------------------
}¢--- A540769.WK.JCL(LOCKTB) cre=2014-06-12 mod=2014-06-12-15.59.44 A540769 ----
//A540769X JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG 00040000
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM='%WSH'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//WSH DD *
call sqlConnect dp4g
say time() 'connected'
call sqlUpdate 1, 'lock table A540769.plan_table in exclusive mode'
say time() 'locked'
call sleep 3000
}¢--- A540769.WK.JCL(LOD#DMMY) cre=2006-02-27 mod=2006-02-27-15.04.01 F540769 ---
//Y390880S JOB (STE23997,0000,,0000),'SAVE ',
// MSGCLASS=T,NOTIFY=&SYSUID,TIME=1440
//*
//*MAIN CLASS=VTAM
//*
//* LOAD/REPLACE TABLE WITH EMPTY
//*
//*
//LOADDATA EXEC DSNUPROC,SYSTEM=DVBP,UID=A390880.LOAD
//*--------------------------------------------------------------------
//SORTOUT DD DSN=&&SORTOUT,
// DISP=(,PASS),SPACE=(CYL,(400,200)),AVGREC=K
//*
//SYSUT1 DD DSN=&&SYSUT1,
// DISP=(,PASS),AVGREC=K,
// SPACE=(CYL,(1,1),RLSE)
//SYSDISC DD DSN=&&SYSDISC,
// DISP=(,PASS),AVGREC=K,
// SPACE=(CYL,(1,1),RLSE)
//SYSERR DD DSN=&&SYSERR,
// DISP=(,PASS),AVGREC=K,
// SPACE=(CYL,(1,1),RLSE)
//SYSMAP DD DSN=&&SYSMAP,
// DISP=(,PASS),AVGREC=K,
// SPACE=(CYL,(200,100),RLSE)
//*
//*---------------!!!!!-------------------!!!!!!!!-------------------*
//SYSIN DD *
LOAD DATA LOG YES REPLACE INDDN SYSREC00 INTO TABLE
BUA.TXBE011
//*
//SYSREC00 DD DUMMY
}¢--- A540769.WK.JCL(LOGEXACT) cre=2015-10-07 mod=2015-10-07-11.26.53 A540769 ---
//A540769A JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0 00040000
//JOBLIB DD DISP=SHR,DSN=PCL.U0000.P0.RZ4AKT.PERM.@008.LLB
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM='EXDB2LOG 3'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//DDIN1 DD DISP=SHR,DSN=DSN.ABLF.LOGEX.RZ4.EJESEXT
// DD DISP=SHR,DSN=DSN.ABLF.LOGEX.RZ4.BETAEXT
//PARMNEW DD DISP=SHR,DSN=A540769.LOGEX.PARMNEW
//*ARMNEW DD DISP=SHR,DSN=DE0G.DBAA.ABLF.LOGEX.PARMNEW
}¢--- A540769.WK.JCL(LOGEXV0U) cre=2015-10-07 mod=2015-10-07-07.01.48 A540769 ---
//A540769U JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0 00040000
//JOBLIB DD DISP=SHR,DSN=PCL.U0000.P0.RZ4AKT.PERM.@008.LLB
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM='EXDB2LO0 3'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//DDIN1 DD DISP=SHR,DSN=A540769.LOGEX.RZ2.EJESEXT
//PARMNEW DD DISP=SHR,DSN=A540769.LOGEX.PARMNEW
}¢--- A540769.WK.JCL(LOGEXV2W) cre=2015-10-07 mod=2015-10-08-10.54.26 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0 00040000
//JOBLIB DD DISP=SHR,DSN=PCL.U0000.P0.RZ4AKT.PERM.@008.LLB
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM='EXDB2LOG 3'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//DDIN1 DD DISP=SHR,DSN=A540769.LOGEX.RR2.BETAEXT
//PARMNEW DD DISP=SHR,DSN=A540769.LOGEX.PARMNEW
}¢--- A540769.WK.JCL(LOGEXV3V) cre=2015-10-07 mod=2015-10-07-09.24.07 A540769 ---
//A540769V JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG0 00040000
//JOBLIB DD DISP=SHR,DSN=PCL.U0000.P0.RZ4AKT.PERM.@008.LLB
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM='EXDB2LOG 3'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//DDIN1 DD DISP=SHR,DSN=A540769.LOGEX.RZ2.EJESEXT
//PARMNEW DD DISP=SHR,DSN=A540769.LOGEX.PARMNEW
}¢--- A540769.WK.JCL(LOGG) cre=2009-07-22 mod=2009-07-22-18.14.05 A540769 ------
//A540769A JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769A'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769B JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769B'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769C JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769C'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769D JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769D'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769E JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769E'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769F JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769F'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769G JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769G'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769H JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769H'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769I JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769I'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769J JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769J'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769K JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769K'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769L JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769L'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769M JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769M'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769N JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769N'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769O JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769O'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769P JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769P'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769Q JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769Q'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769R JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769R'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769S JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769S'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769T JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769T'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769U JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769U'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769V JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769V'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769W JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769W'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769X JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769X'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769Y JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769Y'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A540769Z JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A540769Z'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A5407690 JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A5407690'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A5407691 JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A5407691'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A5407692 JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A5407692'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A5407693 JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A5407693'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A5407694 JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A5407694'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//A5407695 JOB (CP00,KE50),TIME=60 00010001
//*MAIN=LOG
//S EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='LOGG job A5407695'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//*AIT DD DISP=MOD,SPACE=(CYL,(1,1)),DSN=A540769.TMP.LOGG
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
}¢--- A540769.WK.JCL(LOGG1) cre=2009-09-10 mod=2009-09-11-10.52.07 A540769 -----
//A540769W JOB (CP00,KE50),TIME=99 00010001
//*MAIN CLASS=CMNA
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
//* PARM='%runISPF wsh s'
// PARM='%WSH s'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//ISPPLIB DD DSN=TSO.ISPF.ISPPLIB,DISP=SHR
//ISPMLIB DD DSN=TSO.ISPF.ISPMLIB,DISP=SHR
//* TSO.RZ1.P0.INST.MSGS
// DD DSN=ISP.SISPMENU,DISP=SHR
//* TSO.RZ1.P0.PROD.MSGS
//* ORG.RZ1.B0106.KPCO4.MSGS
//* TSO.RZ1.P0.USER.MSGS
//ISPSLIB DD DSN=TSO.ISPF.ISPSLIB,DISP=SHR
//ISPTLIB DD DSN=TSO.ISPF.ISPTLIB,DISP=SHR
//ISPPROF DD DISP=(,PASS),UNIT=VIO,
// SPACE=(CYL,(1,1,30)),RECFM=FB,LRECL=80
//*
//* DSORG=PO
//ISPLOG DD SYSOUT=*,RECFM=VA,LRECL=125
//ISPLIST DD SYSOUT=*,RECFM=FBA,LRECL=121
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//OUT DD SYSOUT=*
//SYSTSIN DD DUMMY
//WAID DD DISP=OLD,DSN=DSN.MAREC.DBZF.D090702.T175332.JOB265
//WSH DD *
$$ wie gehts $-{3*4}
call sleep 14
}¢--- A540769.WK.JCL(MAIL) cre=2014-01-14 mod=2014-01-14-14.56.55 A540769 ------
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//JOBLIB DD DISP=SHR,DSN=MQM.QP00 A L T Z <--- DE
//* DD DISP=SHR,DSN=PCL.U0000.P0.RZ4AKT.PERM.@008.LLB
//OS3550 EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
*---+----1----+----2----+----3----+----4 ===> Kommentar Re
SUBJECT 1 test-M 44 laVier cc=ye m 31 it sen 41 VS-1 m 51 ..f..
RECPLIST OAS
SENDERID A540769
SENDERIDCC Y
DOCTEXT
SSW:
*
to smtp = walter.keller@credit-suisse.com
*
*
to smtp = walter.keller@credit-suisse.com
*
*
SSW:
nach leerZeile .............xt Mail-Text Mail-Text Mail-Text
Das Mail kann an 1 bis n Empfänger gesendet werden, für jeden Empfän
muss ein "to smtp = INTERNET ADRESSE " Record eingefügt werden.
Es dürfen KEINE Zeilenmummern hinter der Adresse vorhanden sein.
und eine LeerZeile
und 2 LeerZeilen
und ein Link
<HTTP://RHINO.CSINTRA.NET/MVSDS/'DOD.RZ1.X0.t1.html'>
und fertig
DOCTEXTEND
}¢--- A540769.WK.JCL(MAIL2) cre=2010-12-17 mod=2010-12-17-09.49.40 A540769 -----
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG 00040000
//JOBLIB DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLB,DISP=SHR
// DD DSN=MQM.QP00,DISP=SHR
//P07 EXEC PGM=OS3550
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD DSN=DSN.QM416A7P.MAIL2,DISP=SHR
//
*---+----1----+----2----+----3----+----4----+----
SUBJECT Gigabyte Grenze DBAF: OK
RECPLIST A540769
DOCTEXT
Gigabyte Grenze DBAF, RZ1, JobName QM416A7P
Alles im grünen Bereich ||| (07:33:54, 17 Dec 2010, RZ1, QM416A7P)
+-----------------------------------------------------------------------+
| timestamp | member | server | version |
+-----------------------------------------------------------------------+
| 2010-12-17-07.33.52.820438 | DAF3 | CHSKA000DBAF | 23.10.07 a |
+-----------------------------------------------------------------------+
DOCTEXTEND
//
//
// IF (ABEND OR RC GT 07) THEN
//P09 EXEC PGM=OS3550
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT DBAF: DB2 JOB %%JOBNAME NICHT OK
AUTHOR JOB %%JOBNAME
RECPLIST GGDB2
DOCTEXT
RZ1: JOB '%%JOBNAME' KONSULTIEREN
DOCTEXTEND
// ENDIF
//*
// IF P07.RC > 0 | P09.RC > 0 THEN
//P10 EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT UNGUELTIGER EMAIL EMPFAENGER ODER FILE ZU GROSS %%JOBNAME
RECPLIST A397559
// DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(PUOS355P),DISP=SHR
// ENDIF
}¢--- A540769.WK.JCL(MAIL24) cre=2014-01-14 mod=2014-01-14-14.49.36 A540769 ----
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030003
//*MAIN CLASS=LOG 00040003
//JOBLIB DD DISP=SHR,DSN=MQM.QP00 A L T Z <--- DE
// DD DISP=SHR,DSN=PCL.U0000.P0.RZ4AKT.PERM.@008.LLB
//OS3524 EXEC PGM=OS3524
//IEMLOG DD SYSOUT=*
//PARAM DD *
*---+----1----+----2----+----3----+----4 ===> Kommentar Re
SUBJECT 1 test-M 44 laVier cc=ye m 31 it sen 41 VS-1 m 51 ..f..
RECPLIST OAS
SENDERID A540769
SENDERIDCC Y
DOCTEXT
SSW:
*
to smtp = walter.keller@credit-suisse.com
*
*
to smtp = walter.keller@credit-suisse.com
*
*
SSW:
nach leerZeile .............xt Mail-Text Mail-Text Mail-Text
Das Mail kann an 1 bis n Empfänger gesendet werden, für jeden Empfän
muss ein "to smtp = INTERNET ADRESSE " Record eingefügt werden.
Es dürfen KEINE Zeilenmummern hinter der Adresse vorhanden sein.
und eine LeerZeile
und 2 LeerZeilen
und ein Link
<HTTP://RHINO.CSINTRA.NET/MVSDS/'DOD.RZ1.X0.t1.html'>
und fertig
DOCTEXTEND
//MAILIN DD *
und ein
bischen
attachement
}¢--- A540769.WK.JCL(MARTIN) cre=2007-04-10 mod=2007-04-25-17.01.08 F540769 ----
//A540769Z JOB (CP00,KE50) 00010003
//*MAIN CLASS=CMNA 00020000
//S003A10 EXEC PGM=ADRDSSU 00030000
//SYSPRINT DD SYSOUT=* 00040000
//SAVE DD DISP=(NEW,CATLG,CATLG),DSN=A540769.MARTIN 00050003
//SYSIN DD * 00060000
DUMP - 00070000
DATASET(INCLUDE( - 00080000
DSN.A390880.TSO.** - 00090002
)) - 00100000
OUTDDNAME(SAVE) - 00110000
ALLDATA(*) - 00120000
CANCELERROR 00130001
//SDF DD * 00140001
COMPRESS - 00150000
OPTIMIZE(4) 00160000
}¢--- A540769.WK.JCL(MA0APVS) cre=2008-11-24 mod=2008-11-24-17.24.53 F540769 ---
//MA0APVS PROC
//********************************************************************
//*
//* PVS MONITOR AS STARTED TASK
//*
//* BEI PROBLEMEN BITTE PVS-TEAM BENACHRICHTIGEN <<<<<<<<<<<<
//*
//* THIS SOURCE SUPPORTS THE 3 FOLLOWING CONFIGURATIONS
//* WITH DIFFERENT PROC NAMES:
//*
//* RZ2 PROD ==> MP0APVS IN JOBP.SYSA.PROC(MP0APVS)
//* RZ1 PROD ==> MP0APVS IN JOBP.SYSA.PROC(MP0APVS)
//* RZ1 TEST ==> MA0APVS IN JOBP.SYSA.PROC(MA0APVS)
//*
//* VERSIONS
//* V01 17.06.05 W. KELLER STARTED TASK, MERGE OF THE 3 CONFIGS
//*
//********************************************************************
//* VARIABLES FOR EACH CONFIGURATION
//* ==> REMOVE ASTERIKS BEFORE ACTIVE CONFIGURATION
//* ==> INSERT ASTERIKS BEFORE ALL OTHER CONFIGURATIONS
//********************************************************************
//*--------------------------------------------- RZ1 TEST
// SET RZ=RZ1
// SET ENV=T
// SET OUTI=T SYSOUT CLASS FOR STEPS INTVT*
// SET OUTT=T SYSOUT CLASS FOR PVS TRACE
// SET LOAD=PVS.PVSLODV2 PVS LOAD LIBRARY
// SET COL=PVS.PVT DSN PREFIX FOR COLLECTORS ETC.
//*--------------------------------------------- RZ1 PROD
//* SET RZ=RZ1
//* SET ENV=P
//* SET OUTI=* SYSOUT CLASS FOR STEPS INTVT*
//* SET OUTT=N SYSOUT CLASS FOR PVS TRACE
//* SET LOAD=PVS.PVSLODV1 PVS LOAD LIBRARY
//* SET COL=PVS.PVS DSN PREFIX FOR COLLECTORS ETC.
//*--------------------------------------------- RZ2 PROD
//* SET RZ=RZ2
//* SET ENV=P
//* SET OUTI=* SYSOUT CLASS FOR STEPS INTVT*
//* SET OUTT=* SYSOUT CLASS FOR PVS TRACE
//* SET LOAD=PVS.PVSLODV1 PVS LOAD LIBRARY
//* SET COL=PVS.PVS DSN PREFIX FOR COLLECTORS ETC.
//*--------------------------------------------- DERIVED VARIABLES
// SET POSY=POSY.&RZ..&ENV.0.AKT
// SET PVSP=PVSP.U0000.&ENV.0
//* <V01 ==> INCLUDE PVSRHWTB
//********************************************************************
//* REBUILD HW-TAB:
//* GENERATE CONCATENATED HWTAB PVST400C FROM PVST4TST, -PRX AND -PRD
//********************************************************************
//PVSHWTB EXEC PGM=IRXJCL,
// PARM='PVSRHWTB'
//* ^ ^
//* ¦ ¦
//* ¦ +--- PARAMETERS
//* +-------- NAME OF REXX
//SYSEXEC DD DISP=SHR,DSN=&PVSP..CLIST
//SYSTSPRT DD SYSOUT=* PRIMARY-OUTPUT
//SYSTSIN DD DUMMY PRIMARY-INPUT
//TABIN DD DISP=SHR,DSN=&PVSP..TAB(PVST4TST)
// DD DISP=SHR,DSN=&PVSP..TAB(PVST4PRX)
// DD DISP=SHR,DSN=&PVSP..TAB(PVST4PRD)
//TABOUT DD DISP=SHR,DSN=&PVSP..TAB(PVST400C)
//*
//********************************************************************
//* REBUILD NV-TAB:
//* GENERATE CONCATENATED NVTAB NVTAB FROM NVTABTST, -PRX AND -PRD
//********************************************************************
//*
//PVSNVTB EXEC PGM=IRXJCL,
// PARM='PVSRHWTB'
//* ^ ^
//* ¦ ¦
//* ¦ +--- PARAMETERS
//* +-------- NAME OF REXX
//SYSEXEC DD DISP=SHR,DSN=&PVSP..CLIST
//SYSTSPRT DD SYSOUT=* PRIMARY-OUTPUT
//SYSTSIN DD DUMMY PRIMARY-INPUT
//TABIN DD DISP=SHR,DSN=&POSY..TAB(NVTABTST)
// DD DISP=SHR,DSN=&POSY..TAB(NVTABPRX)
// DD DISP=SHR,DSN=&POSY..TAB(NVTABPRD)
//TABOUT DD DISP=SHR,DSN=&POSY..TAB(NVTAB)
//*
//********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE
//********************************************************************
//*
//INTVT01 EXEC PGM=PVSINTVT,PARM='PVS&ENV,LIST'
//STEPLIB DD DSN=&LOAD,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTI
//SYSABEND DD SYSOUT=&OUTI
//SYSUDUMP DD SYSOUT=&OUTI
//PVSSNAP DD SYSOUT=&OUTI
//*
//*********************************************************************
//* VERIFICATION VSAM-DS
//*********************************************************************
//*
//VER01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PVSCKPT DD DSN=&COL.CKPT,DISP=SHR
//PVSKONTO DD DSN=&COL.KONTO,DISP=SHR
//PVSLOG DD DSN=&COL.LOG,DISP=SHR
//PECOLL01 DD DSN=&COL.CPE01,DISP=SHR
//PECOLL02 DD DSN=&COL.CPE02,DISP=SHR
//PECOLL03 DD DSN=&COL.CPE03,DISP=SHR
//PECOLL04 DD DSN=&COL.CPE04,DISP=SHR
//PECOLL05 DD DSN=&COL.CPE05,DISP=SHR
//PECOLL06 DD DSN=&COL.CPE06,DISP=SHR
//PECOLL07 DD DSN=&COL.CPE07,DISP=SHR
//PECOLL08 DD DSN=&COL.CPE08,DISP=SHR
//PECOLL09 DD DSN=&COL.CPE09,DISP=SHR
//PECOLL10 DD DSN=&COL.CPE10,DISP=SHR
//SYSIN DD DSN=&PVSP..JCL(PVVERIFY),DISP=SHR
//*
//*********************************************************************
//* MONITOR
//*
//* PARM='PARM1, = SUBSYSTEM P - PRODUKTION T - TEST
//* PARM2' = WORKER START A - AUTOMATISCH M - MANUELL
//*********************************************************************
//*
// IF RC = 0 THEN
//MON01 EXEC PGM=PVSINIT,PARM='&ENV,A'
//STEPLIB DD DSN=&LOAD,DISP=SHR
//*--------------------------------------------- OUTPUT MESSAGES
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DDCOUT DD SYSOUT=*
//COUTSC01 DD SYSOUT=*
//COUTSC02 DD SYSOUT=*
//COUTSC03 DD SYSOUT=*
//COUTSC04 DD SYSOUT=*
//COUTSC05 DD SYSOUT=*
//SYSPRC01 DD SYSOUT=*
//SYSPRC02 DD SYSOUT=*
//STDIN DD SYSOUT=*
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//*--------------------------------------------- RDSN-SUBTASKS-SYSOUT'S
//SYSPRD01 DD SYSOUT=*
//SYSPRD02 DD SYSOUT=*
//SYSPRD03 DD SYSOUT=*
//*--------------------------------------------- PRINT-SUBTASKS-SYSOUT'S
//SYSPPR01 DD SYSOUT=*
//SYSPPR02 DD SYSOUT=*
//SOUTPR01 DD SYSOUT=*
//SOUTPR02 DD SYSOUT=*
//SIMUPR01 DD SYSOUT=*
//SIMUPR02 DD SYSOUT=*
//*--------------------------------------------- TRACE
//PVSTRACE DD SYSOUT=&OUTT
//*DSNTRACE DD SYSOUT=* DB2 TRACE
//*--------------------------------------------- SNAP
//SNAPSNAP DD SYSOUT=*
//SNAP DD SYSOUT=*
//DDSNAP DD SYSOUT=*
//CMDPSNAP DD SYSOUT=*
//PVSSNAP DD SYSOUT=*
//*--------------------------------------------- DUMP
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//PVSDUMP DD DSN=&PVSP..PVXDUMP.#DT#,DISP=(,CATLG,CATLG),
// SPACE=(CYL,(25,25),RLSE), <V01 ==> ,RLSE,CONTIG)
// RECFM=F,LRECL=4104, <V01 ==> RECFM=FB
// MGMTCLAS=COM#E005
//*SYSMDUMP DD DSN=&PVSP..DUMP.#DT#,DISP=(,CATLG,CATLG),
//* SPACE=(CYL,(25,25),RLSE),
//* RECFM=FB,LRECL=4160,
//* MGMTCLAS=D005Y000
//*--------------------------------------------- LOG
//LOGTAB01 DD DSN=&PVSP..SC01.LOGTAB,DISP=SHR
//LOGTAB02 DD DSN=&PVSP..SC02.LOGTAB,DISP=SHR
//LOGTAB03 DD DSN=&PVSP..SC03.LOGTAB,DISP=SHR
//LOGTAB04 DD DSN=&PVSP..SC04.LOGTAB,DISP=SHR
//LOGTAB05 DD DSN=&PVSP..SC05.LOGTAB,DISP=SHR
//*-------------------------------------------- CONFIG, PARMS
//DDPVSCFG DD DSN=&PVSP..PARM(CONFIG01),DISP=SHR
//GLOBVARS DD DSN=&PVSP..PARM(GLOBVARS),DISP=SHR
//PVSPARM DD DSN=&PVSP..PARM,DISP=SHR
//PVSTAB DD DSN=&PVSP..TAB,DISP=SHR
//PVSBEIL DD DSN=&PVSP..BEILAGEN.PREFIX,DISP=SHR
//PVSMSG DD DSN=&PVSP..MSG,DISP=SHR
//PVSCKPT DD DSN=&COL.CKPT,DISP=SHR
//PVSLOG DD DSN=&COL.LOG,DISP=SHR
//PVSKONTO DD DSN=&COL.KONTO,DISP=SHR
//*-------------------------------------------- SPERR
//SPERR01 DD DSN=&PVSP..SPERR.DATA,DISP=OLD
//*-------------------------------------------- KEYS
//* <V01 RZ1.TEST ==> DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC01 DD DSN=&COL.SC01.KEYS,DISP=MOD
//SYSPSC02 DD DSN=&COL.SC02.KEYS,DISP=MOD
//SYSPSC03 DD DSN=&COL.SC03.KEYS,DISP=MOD
//SYSPSC04 DD DSN=&COL.SC04.KEYS,DISP=MOD
//SYSPSC05 DD DSN=&COL.SC05.KEYS,DISP=MOD
//*-------------------------------------------- POSY
//POSYTEMP DD DISP=SHR,DSN=&POSY..TEMPLATE
//POSYTAB DD DISP=SHR,DSN=&POSY..TAB
//*-------------------------------------------- COLLECTOREN: AU
//COLLAU00 DD DSN=&COL.CAU00,DISP=SHR
//COLLAU01 DD DSN=&COL.CAU01,DISP=SHR
//COLLAU02 DD DSN=&COL.CAU02,DISP=SHR
//COLLAU03 DD DSN=&COL.CAU03,DISP=SHR
//COLLAU04 DD DSN=&COL.CAU04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: BD
//COLLBD00 DD DSN=&COL.CBD00,DISP=SHR
//COLLBD01 DD DSN=&COL.CBD01,DISP=SHR
//COLLBD02 DD DSN=&COL.CBD02,DISP=SHR
//COLLBD03 DD DSN=&COL.CBD03,DISP=SHR
//COLLBD04 DD DSN=&COL.CBD04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: CH
//COLLCH00 DD DSN=&COL.CCH00,DISP=SHR
//COLLCH01 DD DSN=&COL.CCH01,DISP=SHR
//COLLCH02 DD DSN=&COL.CCH02,DISP=SHR
//COLLCH03 DD DSN=&COL.CCH03,DISP=SHR
//COLLCH04 DD DSN=&COL.CCH04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: ER
//COLLER00 DD DSN=&COL.CER00,DISP=SHR
//COLLER01 DD DSN=&COL.CER01,DISP=SHR
//COLLER02 DD DSN=&COL.CER02,DISP=SHR
//COLLER03 DD DSN=&COL.CER03,DISP=SHR
//COLLER04 DD DSN=&COL.CER04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: ES
//COLLES00 DD DSN=&COL.CES00,DISP=SHR
//COLLES01 DD DSN=&COL.CES01,DISP=SHR
//COLLES02 DD DSN=&COL.CES02,DISP=SHR
//COLLES03 DD DSN=&COL.CES03,DISP=SHR
//COLLES04 DD DSN=&COL.CES04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: FA
//COLLFA00 DD DSN=&COL.CFA00,DISP=SHR
//COLLFA01 DD DSN=&COL.CFA01,DISP=SHR
//COLLFA02 DD DSN=&COL.CFA02,DISP=SHR
//COLLFA03 DD DSN=&COL.CFA03,DISP=SHR
//COLLFA04 DD DSN=&COL.CFA04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: FG
//COLLFG00 DD DSN=&COL.CFG00,DISP=SHR
//COLLFG01 DD DSN=&COL.CFG01,DISP=SHR
//COLLFG02 DD DSN=&COL.CFG02,DISP=SHR
//COLLFG03 DD DSN=&COL.CFG03,DISP=SHR
//COLLFG04 DD DSN=&COL.CFG04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: GB
//COLLGB00 DD DSN=&COL.CGB00,DISP=SHR
//COLLGB01 DD DSN=&COL.CGB01,DISP=SHR
//*-------------------------------------------- COLLECTOREN: W0
//COLLLW00 DD DSN=&COL.CLW00,DISP=SHR
//COLLLW01 DD DSN=&COL.CLW01,DISP=SHR
//COLLLW02 DD DSN=&COL.CLW02,DISP=SHR
//COLLLW03 DD DSN=&COL.CLW03,DISP=SHR
//COLLLW04 DD DSN=&COL.CLW04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: PI
//COLLPI00 DD DSN=&COL.CPI00,DISP=SHR
//COLLPI01 DD DSN=&COL.CPI01,DISP=SHR
//COLLPI02 DD DSN=&COL.CPI02,DISP=SHR
//COLLPI03 DD DSN=&COL.CPI03,DISP=SHR
//COLLPI04 DD DSN=&COL.CPI04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: SP
//COLLSP00 DD DSN=&COL.CSP00,DISP=SHR
//COLLSP01 DD DSN=&COL.CSP01,DISP=SHR
//COLLSP02 DD DSN=&COL.CSP02,DISP=SHR
//COLLSP03 DD DSN=&COL.CSP03,DISP=SHR
//COLLSP04 DD DSN=&COL.CSP04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: TS
//COLLTS00 DD DSN=&COL.CTS00,DISP=SHR
//COLLTS01 DD DSN=&COL.CTS01,DISP=SHR
//COLLTS02 DD DSN=&COL.CTS02,DISP=SHR
//COLLTS03 DD DSN=&COL.CTS03,DISP=SHR
//COLLTS04 DD DSN=&COL.CTS04,DISP=SHR
//COLLTS05 DD DSN=&COL.CTS05,DISP=SHR
//COLLTS06 DD DSN=&COL.CTS06,DISP=SHR
//COLLTS07 DD DSN=&COL.CTS07,DISP=SHR
//COLLTS08 DD DSN=&COL.CTS08,DISP=SHR
//COLLTS09 DD DSN=&COL.CTS09,DISP=SHR
//*-------------------------------------------- COLLECTOREN: VI
//COLLVI00 DD DSN=&COL.CVI00,DISP=SHR
//COLLVI01 DD DSN=&COL.CVI01,DISP=SHR
//COLLVI02 DD DSN=&COL.CVI02,DISP=SHR
//COLLVI03 DD DSN=&COL.CVI03,DISP=SHR
//COLLVI04 DD DSN=&COL.CVI04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: XP
//COLLXP00 DD DSN=&COL.CXP00,DISP=SHR
//COLLXP01 DD DSN=&COL.CXP01,DISP=SHR
//COLLXP02 DD DSN=&COL.CXP02,DISP=SHR
//COLLXP03 DD DSN=&COL.CXP03,DISP=SHR
//COLLXP04 DD DSN=&COL.CXP04,DISP=SHR
//*-------------------------------------------- COLLECTOREN: PE
//PECOLL01 DD DSN=&COL.CPE01,DISP=SHR,AMP='BUFNI=8'
//PECOLL02 DD DSN=&COL.CPE02,DISP=SHR,AMP='BUFNI=8'
//PECOLL03 DD DSN=&COL.CPE03,DISP=SHR,AMP='BUFNI=8'
//PECOLL04 DD DSN=&COL.CPE04,DISP=SHR,AMP='BUFNI=8'
//PECOLL05 DD DSN=&COL.CPE05,DISP=SHR,AMP='BUFNI=8'
//PECOLL06 DD DSN=&COL.CPE06,DISP=SHR,AMP='BUFNI=8'
//PECOLL07 DD DSN=&COL.CPE07,DISP=SHR,AMP='BUFNI=8'
//PECOLL08 DD DSN=&COL.CPE08,DISP=SHR,AMP='BUFNI=8'
//PECOLL09 DD DSN=&COL.CPE09,DISP=SHR,AMP='BUFNI=8'
//PECOLL10 DD DSN=&COL.CPE10,DISP=SHR,AMP='BUFNI=8'
//*
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE
//*********************************************************************
//*
//INTVT02 EXEC PGM=PVSINTVT,PARM='PVS&ENV,LIST'
//STEPLIB DD DSN=&LOAD,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTI
//SYSABEND DD SYSOUT=&OUTI
//SYSUDUMP DD SYSOUT=&OUTI
//PVSSNAP DD SYSOUT=&OUTI
//*
//*********************************************************************
//* LEEREN DUMPSPACE LÖSCHEN
//*********************************************************************
//*
//RLS01 EXEC PGM=IKJEFT01,DYNAMNBR=20,
// PARM=('%PVSRRMEM PVSDUMP')
//SYSPROC DD DSN=&PVSP..CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//PVSDUMP DD DSN=*.MON01.PVSDUMP,
// DISP=MOD,
// SPACE=(TRK,(1,1),RLSE)
//*
//*********************************************************************
//* KEYS AUF SYSOUT KOPIEREN
//*********************************************************************
//*
// IF (VER01.RC = 0 | ABEND) THEN
//MON02 EXEC PGM=ICETOOL <V01 ==> ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDO01 DD SYSOUT=*
//DDI01 DD DSN=&COL.SC01.KEYS,DISP=SHR
// DD DSN=&COL.SC02.KEYS,DISP=SHR
// DD DSN=&COL.SC03.KEYS,DISP=SHR
// DD DSN=&COL.SC04.KEYS,DISP=SHR
// DD DSN=&COL.SC05.KEYS,DISP=SHR
//TOOLIN DD DSN=PCL.U0000.P0.&RZ.AKT.PERM.@005.JNA(COPY01),DISP=SHR
//*
//*********************************************************************
//* KEYS AUF SAVE DATASET KOPIEREN
//*********************************************************************
//*
//MON03 EXEC PGM=PV7001,PARM='SCANLP LPCKSC'
//STEPLIB DD DSN=&LOAD,DISP=SHR
//DDPVSCFG DD DSN=&PVSP..PARM(CONFIG01),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
// ENDIF
// ENDIF
//MA0APVS PEND
}¢--- A540769.WK.JCL(MA0APVST) cre= mod=-. -------------------------------------
//A540769Y JOB (CP00,KE50)
//MA0APVS PROC
//*
//* pvs monitor started task
//* verantwortlich KPCO 4
//* jobp.sysa.proc(ma0apvs)
//*
//*
//*MAIN CLASS=PVS
//*MAIN FAILURE=CANCEL
//*
//********************************************************************
//* REBUILD HW-/NV-TAB
//********************************************************************
//*
//*===================================================================*
//* copy of INCLUDE-MEMBER "PVSRHWTB" - START *
//*===================================================================*
//*-------------------------------------------------------------------*
//* GENERATE CONCATENATED HWTAB PVST400C FROM PVST4TST, -PRX AND -PRD *
//*-------------------------------------------------------------------*
//PVSHWTB EXEC PGM=IRXJCL,
// COND=(0,NE),
// PARM='PVSRHWTB'
//* ^ ^
//* ¦ ¦
//* ¦ +--- PARAMETERS
//* +-------- NAME OF REXX
//SYSEXEC DD DISP=SHR,DSN=PVSP.U0000.T0.CLIST
//SYSTSPRT DD SYSOUT=* PRIMARY-OUTPUT
//SYSTSIN DD DUMMY PRIMARY-INPUT
//TABIN DD DISP=SHR,DSN=PVSP.U0000.T0.TAB(PVST4TST)
// DD DISP=SHR,DSN=PVSP.U0000.T0.TAB(PVST4PRX)
// DD DISP=SHR,DSN=PVSP.U0000.T0.TAB(PVST4PRD)
//TABOUT DD DISP=SHR,DSN=PVSP.U0000.T0.TAB(PVST400C)
//*-------------------------------------------------------------------*
//* GENERATE CONCATENATED NVTAB NVTAB FROM NVTABTST, -PRX AND -PRD *
//*-------------------------------------------------------------------*
//PVSNVTB EXEC PGM=IRXJCL,
// COND=(0,NE),
// PARM='PVSRHWTB'
//* ^ ^
//* ¦ ¦
//* ¦ +--- PARAMETERS
//* +-------- NAME OF REXX
//SYSEXEC DD DISP=SHR,DSN=PVSP.U0000.T0.CLIST
//SYSTSPRT DD SYSOUT=* PRIMARY-OUTPUT
//SYSTSIN DD DUMMY PRIMARY-INPUT
//TABIN DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TAB(NVTABTST)
// DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TAB(NVTABPRX)
// DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TAB(NVTABPRD)
//TABOUT DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TAB(NVTAB)
//*===================================================================*
//* END - copy of INCLUDE-MEMBER "PVSRHWTB" - END *
//*===================================================================*
//*
//********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE (ONLY FOR TEST)
//********************************************************************
//*
// IF (RC EQ 0) THEN
//INTVT01 EXEC PGM=PVSINTVT,PARM='PVST,LIST'
//STEPLIB DD DSN=PVS.PVSLODV2,DISP=SHR
//SYSPRINT DD SYSOUT=T
//SYSABEND DD SYSOUT=T
//SYSUDUMP DD SYSOUT=T
//PVSSNAP DD SYSOUT=T
//*
//*********************************************************************
//* VERIFICATION VSAM-DS
//*********************************************************************
//*
//VER01## EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PVSCKPT DD DSN=PVS.PVTCKPT,DISP=SHR
//PVSKONTO DD DSN=PVS.PVTKONTO,DISP=SHR
//PVSLOG DD DSN=PVS.PVTLOG,DISP=SHR
//PECOLL01 DD DSN=PVS.PVTCPE01,DISP=SHR
//PECOLL02 DD DSN=PVS.PVTCPE02,DISP=SHR
//PECOLL03 DD DSN=PVS.PVTCPE03,DISP=SHR
//PECOLL04 DD DSN=PVS.PVTCPE04,DISP=SHR
//PECOLL05 DD DSN=PVS.PVTCPE05,DISP=SHR
//PECOLL06 DD DSN=PVS.PVTCPE06,DISP=SHR
//PECOLL07 DD DSN=PVS.PVTCPE07,DISP=SHR
//PECOLL08 DD DSN=PVS.PVTCPE08,DISP=SHR
//PECOLL09 DD DSN=PVS.PVTCPE09,DISP=SHR
//PECOLL10 DD DSN=PVS.PVTCPE10,DISP=SHR
//SYSIN DD DSN=PVSP.U0000.T0.JCL(PVX01T01),DISP=SHR
//*
//*********************************************************************
//* MONITOR
//*
//* PARM='PARM1, = SUBSYSTEM P - PRODUKTION T - TEST
//* PARM2' = WORKER START A - AUTOMATISCH M - MANUELL
//*********************************************************************
//*
//PVSMON1 EXEC PGM=PVSINIT,PARM='T,A',COND=(0,NE,VER01##)
//STEPLIB DD DSN=PVS.PVSLODV2,DISP=SHR
//STDIN DD SYSOUT=*
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*SNTRACE DD SYSOUT=*
//SIMPRINT DD SYSOUT=*
//DDCOUT DD SYSOUT=*
//COUTSC01 DD SYSOUT=*
//COUTSC02 DD SYSOUT=*
//COUTSC03 DD SYSOUT=*
//COUTSC04 DD SYSOUT=*
//COUTSC05 DD SYSOUT=*
//SPERR01 DD DSN=PVSP.U0000.T0.SPERR.DATA,DISP=OLD
//SYSTERM DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SNAP00 DD SYSOUT=*
//SNAPSNAP DD SYSOUT=*
//SNAP DD SYSOUT=*
//DDSNAP DD SYSOUT=*
//CMDPSNAP DD SYSOUT=*
//PVSTRACE DD SYSOUT=*
//PVSSNAP DD SYSOUT=*
//*X37TRACE DD SYSOUT=*
//LOGTAB01 DD DSN=PVSP.U0000.T0.SC01.LOGTAB,DISP=SHR
//LOGTAB02 DD DSN=PVSP.U0000.T0.SC02.LOGTAB,DISP=SHR
//LOGTAB03 DD DSN=PVSP.U0000.T0.SC03.LOGTAB,DISP=SHR
//LOGTAB04 DD DSN=PVSP.U0000.T0.SC04.LOGTAB,DISP=SHR
//LOGTAB05 DD DSN=PVSP.U0000.T0.SC05.LOGTAB,DISP=SHR
//DDPVSCFG DD DSN=PVSP.U0000.T0.PARM(CONFIG01),DISP=SHR
//GLOBVARS DD DSN=PVSP.U0000.T0.PARM(GLOBVARS),DISP=SHR
//SYSPRC01 DD SYSOUT=*
//SYSPRC02 DD SYSOUT=*
//SYSPSC01 DD DSN=PVS.PVTSC01.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC02 DD DSN=PVS.PVTSC02.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC03 DD DSN=PVS.PVTSC03.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC04 DD DSN=PVS.PVTSC04.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC05 DD DSN=PVS.PVTSC05.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//PVSPARM DD DSN=PVSP.U0000.T0.PARM,DISP=SHR
//PVSTAB DD DSN=PVSP.U0000.T0.TAB,DISP=SHR
//PVSBEIL DD DSN=PVSP.U0000.T0.BEILAGEN.PREFIX,DISP=SHR
//PVSMSG DD DSN=PVSP.U0000.T0.MSG,DISP=SHR
//PVSCKPT DD DSN=PVS.PVTCKPT,DISP=SHR
//PVSLOG DD DSN=PVS.PVTLOG,DISP=SHR
//PVSKONTO DD DSN=PVS.PVTKONTO,DISP=SHR
//*********************************************************************
//PVSDUMP DD DSN=PVSP.U0000.T0.PVXDUMP.#DT#,DISP=(,CATLG,CATLG),
// SPACE=(CYL,(25,25),RLSE),
// RECFM=FB,LRECL=4104,
// MGMTCLAS=D005N000
//*SYSMDUMP DD DSN=PVSP.U0000.T0.DUMP.#DT#,DISP=(,CATLG,CATLG),
//* SPACE=(CYL,(25,25),RLSE),
//* RECFM=FB,LRECL=4160,
//* MGMTCLAS=D005N000
//*********************************************************************
//* RDSN-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPRD01 DD SYSOUT=*
//SYSPRD02 DD SYSOUT=*
//SYSPRD03 DD SYSOUT=*
//*********************************************************************
//* PRINT-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPPR01 DD SYSOUT=*
//SYSPPR02 DD SYSOUT=*
//SOUTPR01 DD SYSOUT=*
//SOUTPR02 DD SYSOUT=*
//SIMUPR01 DD SYSOUT=*
//SIMUPR02 DD SYSOUT=*
//*********************************************************************
//* POSY
//*********************************************************************
//POSYTEMP DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TEMPLATE
//POSYTAB DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TAB
//*********************************************************************
//* COLLECTOREN: AU,BD,CH,ER,ES,FA,FG,GB,LW,PI,SP,TS,VI,XP
//*********************************************************************
//COLLAU00 DD DSN=PVS.PVTCAU00,DISP=SHR
//COLLAU01 DD DSN=PVS.PVTCAU01,DISP=SHR
//COLLAU02 DD DSN=PVS.PVTCAU02,DISP=SHR
//COLLAU03 DD DSN=PVS.PVTCAU03,DISP=SHR
//COLLAU04 DD DSN=PVS.PVTCAU04,DISP=SHR
//COLLBD00 DD DSN=PVS.PVTCBD00,DISP=SHR
//COLLBD01 DD DSN=PVS.PVTCBD01,DISP=SHR
//COLLBD02 DD DSN=PVS.PVTCBD02,DISP=SHR
//COLLBD03 DD DSN=PVS.PVTCBD03,DISP=SHR
//COLLBD04 DD DSN=PVS.PVTCBD04,DISP=SHR
//COLLCH00 DD DSN=PVS.PVTCCH00,DISP=SHR
//COLLCH01 DD DSN=PVS.PVTCCH01,DISP=SHR
//COLLCH02 DD DSN=PVS.PVTCCH02,DISP=SHR
//COLLCH03 DD DSN=PVS.PVTCCH03,DISP=SHR
//COLLCH04 DD DSN=PVS.PVTCCH04,DISP=SHR
//COLLER00 DD DSN=PVS.PVTCER00,DISP=SHR
//COLLER01 DD DSN=PVS.PVTCER01,DISP=SHR
//COLLER02 DD DSN=PVS.PVTCER02,DISP=SHR
//COLLER03 DD DSN=PVS.PVTCER03,DISP=SHR
//COLLER04 DD DSN=PVS.PVTCER04,DISP=SHR
//COLLES00 DD DSN=PVS.PVTCES00,DISP=SHR
//COLLES01 DD DSN=PVS.PVTCES01,DISP=SHR
//COLLES02 DD DSN=PVS.PVTCES02,DISP=SHR
//COLLES03 DD DSN=PVS.PVTCES03,DISP=SHR
//COLLES04 DD DSN=PVS.PVTCES04,DISP=SHR
//COLLFA00 DD DSN=PVS.PVTCFA00,DISP=SHR
//COLLFA01 DD DSN=PVS.PVTCFA01,DISP=SHR
//COLLFA02 DD DSN=PVS.PVTCFA02,DISP=SHR
//COLLFA03 DD DSN=PVS.PVTCFA03,DISP=SHR
//COLLFA04 DD DSN=PVS.PVTCFA04,DISP=SHR
//COLLFG00 DD DSN=PVS.PVTCFG00,DISP=SHR
//COLLFG01 DD DSN=PVS.PVTCFG01,DISP=SHR
//COLLFG02 DD DSN=PVS.PVTCFG02,DISP=SHR
//COLLFG03 DD DSN=PVS.PVTCFG03,DISP=SHR
//COLLFG04 DD DSN=PVS.PVTCFG04,DISP=SHR
//COLLGB00 DD DSN=PVS.PVTCGB00,DISP=SHR
//COLLGB01 DD DSN=PVS.PVTCGB01,DISP=SHR
//COLLLW00 DD DSN=PVS.PVTCLW00,DISP=SHR
//COLLLW01 DD DSN=PVS.PVTCLW01,DISP=SHR
//COLLLW02 DD DSN=PVS.PVTCLW02,DISP=SHR
//COLLLW03 DD DSN=PVS.PVTCLW03,DISP=SHR
//COLLLW04 DD DSN=PVS.PVTCLW04,DISP=SHR
//COLLPI00 DD DSN=PVS.PVTCPI00,DISP=SHR
//COLLPI01 DD DSN=PVS.PVTCPI01,DISP=SHR
//COLLPI02 DD DSN=PVS.PVTCPI02,DISP=SHR
//COLLPI03 DD DSN=PVS.PVTCPI03,DISP=SHR
//COLLPI04 DD DSN=PVS.PVTCPI04,DISP=SHR
//COLLSP00 DD DSN=PVS.PVTCSP00,DISP=SHR
//COLLSP01 DD DSN=PVS.PVTCSP01,DISP=SHR
//COLLSP02 DD DSN=PVS.PVTCSP02,DISP=SHR
//COLLSP03 DD DSN=PVS.PVTCSP03,DISP=SHR
//COLLSP04 DD DSN=PVS.PVTCSP04,DISP=SHR
//COLLTS00 DD DSN=PVS.PVTCTS00,DISP=SHR
//COLLTS01 DD DSN=PVS.PVTCTS01,DISP=SHR
//COLLTS02 DD DSN=PVS.PVTCTS02,DISP=SHR
//COLLTS03 DD DSN=PVS.PVTCTS03,DISP=SHR
//COLLTS04 DD DSN=PVS.PVTCTS04,DISP=SHR
//COLLVI00 DD DSN=PVS.PVTCVI00,DISP=SHR
//COLLVI01 DD DSN=PVS.PVTCVI01,DISP=SHR
//COLLVI02 DD DSN=PVS.PVTCVI02,DISP=SHR
//COLLVI03 DD DSN=PVS.PVTCVI03,DISP=SHR
//COLLVI04 DD DSN=PVS.PVTCVI04,DISP=SHR
//COLLXP00 DD DSN=PVS.PVTCXP00,DISP=SHR
//COLLXP01 DD DSN=PVS.PVTCXP01,DISP=SHR
//COLLXP02 DD DSN=PVS.PVTCXP02,DISP=SHR
//COLLXP03 DD DSN=PVS.PVTCXP03,DISP=SHR
//COLLXP04 DD DSN=PVS.PVTCXP04,DISP=SHR
//PECOLL01 DD DSN=PVS.PVTCPE01,DISP=SHR,AMP='BUFNI=5'
//PECOLL02 DD DSN=PVS.PVTCPE02,DISP=SHR,AMP='BUFNI=5'
//PECOLL03 DD DSN=PVS.PVTCPE03,DISP=SHR,AMP='BUFNI=5'
//PECOLL04 DD DSN=PVS.PVTCPE04,DISP=SHR,AMP='BUFNI=5'
//PECOLL05 DD DSN=PVS.PVTCPE05,DISP=SHR,AMP='BUFNI=5'
//PECOLL06 DD DSN=PVS.PVTCPE06,DISP=SHR,AMP='BUFNI=5'
//PECOLL07 DD DSN=PVS.PVTCPE07,DISP=SHR,AMP='BUFNI=5'
//PECOLL08 DD DSN=PVS.PVTCPE08,DISP=SHR,AMP='BUFNI=5'
//PECOLL09 DD DSN=PVS.PVTCPE09,DISP=SHR,AMP='BUFNI=5'
//PECOLL10 DD DSN=PVS.PVTCPE10,DISP=SHR,AMP='BUFNI=5'
//*
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE (ONLY FOR TEST)
//*********************************************************************
//*
//INTVT02 EXEC PGM=PVSINTVT,PARM='PVST,LIST'
//STEPLIB DD DSN=PVS.PVSLODV2,DISP=SHR
//SYSPRINT DD SYSOUT=T
//SYSABEND DD SYSOUT=T
//SYSUDUMP DD SYSOUT=T
//PVSSNAP DD SYSOUT=T
//*
//*********************************************************************
//* Leeren DUMPSPACE löschen
//*********************************************************************
//*
//RLS01## EXEC PGM=IKJEFT01,DYNAMNBR=20,
// PARM=('%pvsrRmEm pvsDump')
//SYSPROC DD DSN=PVSP.U0000.T0.CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//PVSDUMP DD DSN=*.PVSMON1.PVSDUMP,
// DISP=MOD,
// SPACE=(TRK,(1,1),RLSE)
//*
//*********************************************************************
//* KEYS AUF SYSOUT KOPIEREN
//*********************************************************************
//*
//PVSMON2 EXEC PGM=ICEGENER,COND=((0,NE,VER01##),EVEN)
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUT2 DD SYSOUT=*
//SYSUT1 DD DSN=PVS.PVTSC01.KEYS,DISP=SHR
// DD DSN=PVS.PVTSC02.KEYS,DISP=SHR
// DD DSN=PVS.PVTSC03.KEYS,DISP=SHR
// DD DSN=PVS.PVTSC04.KEYS,DISP=SHR
// DD DSN=PVS.PVTSC05.KEYS,DISP=SHR
//SYSIN DD DUMMY
//*
//*********************************************************************
//* KEYS AUF SAVE DATASET KOPIEREN
//*********************************************************************
//*
//PVSMON3 EXEC PGM=PV7001,COND=((0,NE,VER01##),EVEN),
// PARM='SCANLP LPCKSC'
//STEPLIB DD DSN=PVS.PVSLODV2,DISP=SHR
//DDPVSCFG DD DSN=PVSP.U0000.T0.PARM(CONFIG01),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
// ENDIF
//*********************************************************************
//* MESSAGE TO THE OPERATOR IF MON03 NOT OK
//*********************************************************************
//*
//*VSMON4 EXEC PGM=SY7060,COND=((0,NE,VER01##),(0,EQ,PVSMON3)),
//* PARM='BITTE PVS-PIKETT BENACHRICHTIGEN, DANKE'
//* PARM='BITTE STÖME AN PVS-PIKETT, DANKE'
//* PARM='TEST REPLY, HANDLED BY PVS-PIKETT'
//*STEPLIB DD DISP=SHR,DSN=PCL.U0000.P0.RZ1AKB.PERM.@008.LLB
//*
// PEND
//S1 EXEC PROC=MA0APVS
}¢--- A540769.WK.JCL(MA1APVS) cre= mod=-. --------------------------------------
//MA1APVS PROC
//********************************************************************
//*
//* POSY TCP/IP-SERVER AS STARTED TASK
//*
//* BEI PROBLEMEN BITTE PVS-TEAM BENACHRICHTIGEN <<<<<<<<<<<<
//*
//* THIS SOURCE SUPPORTS THE 4 FOLLOWING CONFIGURATIONS
//* WITH DIFFERENT PROC NAMES:
//*
//* RZ2 PROD ==> MP1APVS IN JOBP.SYSA.PROC(MP1APVS)
//* RZ2 PTA ==> MP1APVS IN JOBP.SYSA.PROC(MP1APVS)
//* RZ1 PROD ==> MP1APVS IN JOBP.SYSA.PROC(MP1APVS)
//* RZ1 TEST ==> MA1APVS IN JOBP.SYSA.PROC(MA1APVS)
//*
//* VERSIONS
//* V01 17.06.05 W. KELLER STARTED TASK, MERGE OF THE 4 CONFIGS
//*
//********************************************************************
//* VARIABLES FOR EACH CONFIGURATION
//* ==> REMOVE ASTERIKS BEFORE ACTIVE CONFIGURATION
//* ==> INSERT ASTERIKS BEFORE ALL OTHER CONFIGURATIONS
//********************************************************************
//*--------------------------------------------- RZ1 TEST
//* RZ1.T0 ==> RZID=1, ENV=T STATUS=0
//* IPADDR=169.62.110.97 = PVXT-RZ1.CSINTRA.NET
//* IPSTACK=TXX51Q0
// SET POSYLOAD=POSY.RZ1.T0.AKT.LOADLIB
// SET PORTNO=03120
// SET SYSTCPD=TCS.DIV.P0.TCPIP.OMVS.PARMS(TCPDATA)
// SET EZASOKET=TCPIP.SEZATCP
//*--------------------------------------------- RZ1 PROD
//* RZ1.P0 ==> RZID=1, ENV=P STATUS=0
//* IPADDR=169.62.110.98 = PVXP-RZ1.CSINTRA.NET
//* IPSTACK=TXX51Q0
//* SET POSYLOAD=POSY.RZ1.P0.AKT.LOADLIB
//* SET PORTNO=03121
//* SET SYSTCPD=TCS.DIV.P0.TCPIP.OMVS.PARMS(TCPDATA)
//* SET EZASOKET=TCPIP.SEZATCP
//*--------------------------------------------- RZ2 PROD
//* RZ2.P0 ==> RZID=2, ENV=P STATUS=0
//* IPADDR=169.62.60.39 = PVXP-RZ2.CSINTRA.NET
//* IPSTACK=TXX51Q0
//* SET POSYLOAD=POSY.RZ2.P0.AKT.LOADLIB
//* SET PORTNO=03122
//* SET SYSTCPD=TCS.DIV.P0.TCPIP.OMVS.PARMS(TCPDATA)
//* SET EZASOKET=TCPIP.SEZATCP
//*--------------------------------------------- RZ2 PTA
//* RZ2.R0 ==> RZID=2, ENV=R STATUS=0
//* IPADDR=169.62.60.219 = PVXP-RR2.CSINTRA.NET
//* IPSTACK=TXX51Q0
//* SET POSYLOAD=POSY.RZ2.P0.AKT.LOADLIB
//* SET PORTNO=03123
//* SET SYSTCPD=TCS.DIV.P0.TCPIP.OMVS.PARMS(TCPDATA)
//* SET EZASOKET=TCPIP.SEZATCP
//*--------------------------------------------- CONSTANTS
// SET SUBMIT=(A,INTRDR)
//* SET SUBMIT=*
//*
//*********************************************************************
//* START POSY TCP/IP-SERVER
//*********************************************************************
//POSYSRV EXEC PGM=A1PO009,
// COND=(4,LT),
// PARM='&PORTNO,START'
//STEPLIB DD DISP=SHR,DSN=&POSYLOAD
// DD DISP=SHR,DSN=&EZASOKET
//SYSTCPD DD DISP=SHR,DSN=&SYSTCPD 00410100
//JCLDAT DD SYSOUT=&SUBMIT
//SYSOUT DD SYSOUT=* 00410100
//SYSPRINT DD SYSOUT=* 00292000
//SYSUDUMP DD SYSOUT=* 00310000
//SYSABOUT DD SYSOUT=* 00320000
//ASCDUMP DD SYSOUT=* 00330000
//SYSABEND DD SYSOUT=* 00340000
//CEEDUMP DD SYSOUT=* 00340000
//*********************************************************************
//MA1APVS PEND
}¢--- A540769.WK.JCL(MFDEL) cre=2012-07-12 mod=2012-07-12-14.24.46 A540769 -----
//A540769E JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG0 SYSTEM=S12
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
delete
from oa1t.tmf202a1
where buid = '0000'
and ( selcd = 'MF8320 CID-RIGHTS'
or selcd = 'MF8320 SF-RIGHTS' )
and letzteMut = (
select timestamp(TEV_TIMESTAMP)
from oa1t.vmf202a1
)
;
rollback;
}¢--- A540769.WK.JCL(MF02L1) cre=2006-08-24 mod=2006-08-24-09.09.15 F540769 ----
//A540769L JOB (CP00,KE50) 00010001
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE A1SKC01N
DSN('DSN.DBA.DBAF.MF02001Q.ULD.T0001.P00000')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A1SKC01N LOG NO RESUME NO REPLACE
COPYDDN(TCOPYD) STATISTICS INDEX ALL UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 268
INTO TABLE "OA1A"."TMF703A1"
( "BUID"
POSITION( 00003:00006) CHAR(00004)
, "CODE"
POSITION( 00007:00009) CHAR(00003)
, "SPRACHCODE"
POSITION( 00010:00011) SMALLINT
, "DATUM_AB"
POSITION( 00012:00021) DATE EXTERNAL
, "DATUM_BIS"
POSITION( 00022:00031) DATE EXTERNAL
, "LETZTE_MUT_PID"
POSITION( 00032:00039) CHAR(00008)
, "LETZTE_MUT_TS"
POSITION( 00040:00065) TIMESTAMP EXTERNAL
, "STATUS"
POSITION( 00066:00066) CHAR(00001)
, "KURZTEXT"
POSITION( 00067:00069) CHAR(00003)
, "LANGTEXT"
POSITION( 00070:00102) CHAR(00033)
)
TEMPLATE A1SKC3O0
DSN('DSN.DBA.DBAF.MF02001Q.ULD.T0002.P00000')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A1SKC3O0 LOG NO RESUME NO REPLACE
COPYDDN(TCOPYD) STATISTICS INDEX ALL UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 3052
INTO TABLE "OA1A"."TMF710A1"
( "BUID"
POSITION( 00003:00006) CHAR(00004)
, "CODE"
POSITION( 00007:00009) CHAR(00003)
, "SPRACHCODE"
POSITION( 00010:00011) SMALLINT
, "DATUM_AB"
POSITION( 00012:00021) DATE EXTERNAL
, "DATUM_BIS"
POSITION( 00022:00031) DATE EXTERNAL
, "LETZTE_MUT_PID"
POSITION( 00032:00039) CHAR(00008)
, "LETZTE_MUT_TS"
POSITION( 00040:00065) TIMESTAMP EXTERNAL
, "STATUS"
POSITION( 00066:00066) CHAR(00001)
, "RELEVANZ1"
POSITION( 00067:00067) CHAR(00001)
, "RELEVANZ2"
POSITION( 00068:00068) CHAR(00001)
, "RELEVANZ3"
POSITION( 00069:00069) CHAR(00001)
, "RELEVANZ4"
POSITION( 00070:00070) CHAR(00001)
, "KURZTEXT"
POSITION( 00071:00073) CHAR(00003)
, "TEXT"
POSITION( 00074:00106) CHAR(00033)
)
TEMPLATE A1SKC6FC
DSN('DSN.DBA.DBAF.MF02001Q.ULD.T0003.P00000')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A1SKC6FC LOG NO RESUME NO REPLACE
COPYDDN(TCOPYD) STATISTICS INDEX ALL UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TMF799A1"
( "TABN"
POSITION( 00003:00010) CHAR(00008)
, "BUID"
POSITION( 00011:00014) CHAR(00004)
, "SPRACHCODE"
POSITION( 00015:00016) SMALLINT
, "SMI1"
POSITION( 00017:00018) SMALLINT
, "DATUM_AB"
POSITION( 00019:00028) DATE EXTERNAL
, "DATUM_BIS"
POSITION( 00029:00038) DATE EXTERNAL
, "LETZTE_MUT_PID"
POSITION( 00039:00046) CHAR(00008)
, "LETZTE_MUT_TS"
POSITION( 00047:00072) TIMESTAMP EXTERNAL
, "STATUS"
POSITION( 00073:00073) CHAR(00001)
, "TEXT0101"
POSITION( 00074:00074) CHAR(00001)
, "TEXT0102"
POSITION( 00075:00075) CHAR(00001)
, "TEXT0103"
POSITION( 00076:00076) CHAR(00001)
, "TEXT0104"
POSITION( 00077:00077) CHAR(00001)
, "TEXT0105"
POSITION( 00078:00078) CHAR(00001)
, "TEXT0106"
POSITION( 00079:00079) CHAR(00001)
, "TEXT0107"
POSITION( 00080:00080) CHAR(00001)
, "TEXT0108"
POSITION( 00081:00081) CHAR(00001)
, "TEXT0109"
POSITION( 00082:00082) CHAR(00001)
, "TEXT0201"
POSITION( 00083:00084) CHAR(00002)
, "TEXT0202"
POSITION( 00085:00086) CHAR(00002)
, "TEXT0301"
POSITION( 00087:00089) CHAR(00003)
, "TEXT0302"
POSITION( 00090:00092) CHAR(00003)
, "TEXT0401"
POSITION( 00093:00096) CHAR(00004)
, "TEXT0402"
POSITION( 00097:00100) CHAR(00004)
, "TEXT1501"
POSITION( 00101:00115) CHAR(00015)
, "TEXT1801"
POSITION( 00116:00133) CHAR(00018)
, "TEXT2001"
POSITION( 00134:00153) CHAR(00020)
, "TEXT2201"
POSITION( 00154:00175) CHAR(00022)
, "TEXT2401"
POSITION( 00176:00199) CHAR(00024)
, "TEXT2501"
POSITION( 00200:00224) CHAR(00025)
, "TEXT3001"
POSITION( 00225:00254) CHAR(00030)
, "TEXT3301"
POSITION( 00255:00287) CHAR(00033)
, "TEXT3601"
POSITION( 00288:00323) CHAR(00036)
, "TEXT3602"
POSITION( 00324:00359) CHAR(00036)
, "TEXT3603"
POSITION( 00360:00395) CHAR(00036)
, "TEXT4001"
POSITION( 00396:00435) CHAR(00040)
, "TEXT5501"
POSITION( 00436:00490) CHAR(00055)
, "TEXT6001"
POSITION( 00491:00550) CHAR(00060)
, "TEXT7001"
POSITION( 00551:00620) CHAR(00070)
, "TEXTV254"
POSITION( 00621:00876) VARCHAR
)
}¢--- A540769.WK.JCL(MF15) cre=2008-11-24 mod=2008-12-09-17.25.18 F540769 ------
/* option member for REPA repartitionierung */
/* use REPA ? for help */
M.NEW.SUB = 'DBOF' /* db2 subsystem for new table */
M.NEW.TB = 'OA1P.TMF150A1' /* new creator.table */
M.NEW.TS = 'MF01A1P.A150A' /* new db.tablespace */
M.OLD.SUB = M.NEW.SUB /* db2 subsystem for old table */
M.OLD.TB = M.NEW.TB /* old creator.table */
M.OLD.TS = M.NEW.TS /* old db.tablespace */
M.NEW.DDL = 'A540769.WK.JCL(MF15DNEW)'/* ddl for new partition keys */
M.OLD.DDL = 'A540769.WK.JCL(MF15DOLD)'/* ddl for old partition keys */
M.PARTMAP = 'A540769.WK.JCL(MF15MAP)' /* map old partitions to new */
M.ULI0JOB = 'A540769.WK.JCL(MF15ULI0)'/* jobName unload limit 0 old */
M.UNLOJOB = 'A540769.WK.JCL(MF15UNLO)'/* jobName unloads old */
M.BACKJOB = 'A540769.WK.JCL(MF15BACK)'/* jobName backup unloads old */
M.LOADJOB = 'A540769.WK.JCL(MF15LOAD)'/* jobName loads new */
M.RERUJOB = 'A540769.WK.JCL(MF15ReRu)'/* jobName rebuild runStats */
M.REBIJOB = 'A540769.WK.JCL(MF15Rebi)'/* jobName rebind packages */
M.JOBPREF = 'YRPA' /* jobprefix, max 4 characters */
M.JOBS = 32 /* number of jobs */
}¢--- A540769.WK.JCL(MF15BACK) cre= mod=-. -------------------------------------
//YRPAB001 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB001.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 001:008
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB002 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB002.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 009:016
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB003 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB003.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 017:024
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB004 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB004.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 025:032
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB005 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB005.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 033:040
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB006 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB006.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 041:048
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB007 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB007.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 049:056
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB008 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB008.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 057:064
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB009 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB009.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 065:071
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB010 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB010.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 072:079
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB011 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB011.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 080:087
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB012 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB012.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 088:095
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB013 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB013.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 096:103
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB014 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB014.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 104:111
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB015 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB015.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 112:119
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB016 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB016.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 120:127
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB017 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB017.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 128:135
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB018 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB018.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 136:143
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB019 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB019.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 144:151
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB020 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB020.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 152:159
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB021 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB021.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 160:167
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB022 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB022.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 168:175
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB023 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB023.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 176:183
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB024 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB024.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 184:191
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB025 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB025.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 192:198
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB026 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB026.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 199:206
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB027 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB027.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 207:214
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB028 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB028.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 215:222
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB029 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB029.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 223:230
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB030 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB030.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 231:238
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB031 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB031.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 239:246
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAB032 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAB032.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DBZF.REPABACK.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DBZF.REPABACK.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 247:254
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
}¢--- A540769.WK.JCL(MF15CNT) cre= mod=-. --------------------------------------
//YRPACNT JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN DD *
DSN SYSTEM(DBZF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
SELECT COUNT(*)
FROM OA1Z.TMF150A1
WITH UR
}¢--- A540769.WK.JCL(MF15DNEW) cre=2008-11-25 mod=2008-12-09-17.22.35 F540769 ---
SET CURRENT SQLID = 'S100447' ;
XROP TABLESPACE MF01A1P.A150A ;
COMMIT ;
CREATE TABLESPACE A150A
IN MF01A1P
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 30 PCTFREE 10
GBPCACHE CHANGED
TRACKMOD YES
DSSIZE 32 G
NUMPARTS 254
BUFFERPOOL BP2
LOCKSIZE ANY
LOCKMAX 30000
CLOSE NO
COMPRESS YES
CCSID EBCDIC
LOCKPART YES
DEFINE YES
MAXROWS 255;
COMMIT ;
CREATE TABLE OA1P.TMF150A1
(MF150001 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150002 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150003 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150004 CHAR(25) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150005 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150006 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150007 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150008 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150009 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150010 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150011 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150012 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150013 DATE NOT NULL WITH DEFAULT,
MF150014 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150015 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150016 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150017 CHAR(12) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150018 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF150019 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF150020 CHAR(8) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150021 TIMESTAMP NOT NULL WITH DEFAULT,
MF150022 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150023 CHAR(12) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150024 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150025 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150026 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150027 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150028 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150029 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150030 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150031 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150032 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150033 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150034 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150035 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150036 CHAR(18) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150037 DECIMAL(15, 0) NOT NULL WITH DEFAULT,
MF150038 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150039 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150040 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150041 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150042 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150043 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF150044 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150045 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150046 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150047 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150051 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150052 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150053 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF150054 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150055 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150056 CHAR(8) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150059 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150060 TIMESTAMP NOT NULL WITH DEFAULT,
MF150062 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150063 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150064 DATE NOT NULL WITH DEFAULT,
MF150065 DATE NOT NULL WITH DEFAULT,
MF150066 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150067 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150068 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150069 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150070 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150071 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150072 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150073 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150074 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150075 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150076 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150077 CHAR(6) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150078 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150079 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150080 DATE NOT NULL WITH DEFAULT,
MF150081 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150082 CHAR(26) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150083 SMALLINT NOT NULL WITH DEFAULT,
MF150084 SMALLINT NOT NULL WITH DEFAULT,
MF150085 SMALLINT NOT NULL WITH DEFAULT,
MF150086 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150087 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150088 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150089 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150090 SMALLINT NOT NULL WITH DEFAULT,
MF150091 SMALLINT NOT NULL WITH DEFAULT,
MF150092 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT
-- , CONSTRAINT MF150001
-- PRIMARY KEY (MF150001)
)
IN MF01A1P.A150A
PARTITION BY (MF150013 ASC)
(PART 1 VALUES('31.12.1999'),
PART 2 VALUES('31.12.2000'),
PART 3 VALUES('31.12.2001'),
PART 4 VALUES('31.12.2002'),
PART 5 VALUES('31.12.2003'),
PART 6 VALUES('31.12.2004'),
PART 7 VALUES('31.12.2005'),
PART 8 VALUES('31.12.2006'),
PART 9 VALUES('31.12.2007'),
PART 10 VALUES('03.01.2008'),
PART 11 VALUES('06.01.2008'),
PART 12 VALUES('09.01.2008'),
PART 13 VALUES('12.01.2008'),
PART 14 VALUES('15.01.2008'),
PART 15 VALUES('18.01.2008'),
PART 16 VALUES('21.01.2008'),
PART 17 VALUES('24.01.2008'),
PART 18 VALUES('27.01.2008'),
PART 19 VALUES('31.01.2008'),
PART 20 VALUES('03.02.2008'),
PART 21 VALUES('06.02.2008'),
PART 22 VALUES('09.02.2008'),
PART 23 VALUES('12.02.2008'),
PART 24 VALUES('15.02.2008'),
PART 25 VALUES('18.02.2008'),
PART 26 VALUES('21.02.2008'),
PART 27 VALUES('24.02.2008'),
PART 28 VALUES('27.02.2008'),
PART 29 VALUES('29.02.2008'),
PART 30 VALUES('03.03.2008'),
PART 31 VALUES('06.03.2008'),
PART 32 VALUES('09.03.2008'),
PART 33 VALUES('12.03.2008'),
PART 34 VALUES('15.03.2008'),
PART 35 VALUES('18.03.2008'),
PART 36 VALUES('21.03.2008'),
PART 37 VALUES('24.03.2008'),
PART 38 VALUES('27.03.2008'),
PART 39 VALUES('31.03.2008'),
PART 40 VALUES('03.04.2008'),
PART 41 VALUES('06.04.2008'),
PART 42 VALUES('09.04.2008'),
PART 43 VALUES('12.04.2008'),
PART 44 VALUES('15.04.2008'),
PART 45 VALUES('18.04.2008'),
PART 46 VALUES('21.04.2008'),
PART 47 VALUES('24.04.2008'),
PART 48 VALUES('27.04.2008'),
PART 49 VALUES('30.04.2008'),
PART 50 VALUES('03.05.2008'),
PART 51 VALUES('06.05.2008'),
PART 52 VALUES('09.05.2008'),
PART 53 VALUES('12.05.2008'),
PART 54 VALUES('15.05.2008'),
PART 55 VALUES('18.05.2008'),
PART 56 VALUES('21.05.2008'),
PART 57 VALUES('24.05.2008'),
PART 58 VALUES('27.05.2008'),
PART 59 VALUES('31.05.2008'),
PART 60 VALUES('03.06.2008'),
PART 61 VALUES('06.06.2008'),
PART 62 VALUES('09.06.2008'),
PART 63 VALUES('12.06.2008'),
PART 64 VALUES('15.06.2008'),
PART 65 VALUES('18.06.2008'),
PART 66 VALUES('21.06.2008'),
PART 67 VALUES('24.06.2008'),
PART 68 VALUES('27.06.2008'),
PART 69 VALUES('30.06.2008'),
PART 70 VALUES('03.07.2008'),
PART 71 VALUES('06.07.2008'),
PART 72 VALUES('09.07.2008'),
PART 73 VALUES('12.07.2008'),
PART 74 VALUES('15.07.2008'),
PART 75 VALUES('18.07.2008'),
PART 76 VALUES('21.07.2008'),
PART 77 VALUES('24.07.2008'),
PART 78 VALUES('27.07.2008'),
PART 79 VALUES('31.07.2008'),
PART 80 VALUES('03.08.2008'),
PART 81 VALUES('06.08.2008'),
PART 82 VALUES('09.08.2008'),
PART 83 VALUES('12.08.2008'),
PART 84 VALUES('15.08.2008'),
PART 85 VALUES('18.08.2008'),
PART 86 VALUES('21.08.2008'),
PART 87 VALUES('24.08.2008'),
PART 88 VALUES('27.08.2008'),
PART 89 VALUES('31.08.2008'),
PART 90 VALUES('03.09.2008'),
PART 91 VALUES('06.09.2008'),
PART 92 VALUES('09.09.2008'),
PART 93 VALUES('12.09.2008'),
PART 94 VALUES('15.09.2008'),
PART 95 VALUES('18.09.2008'),
PART 96 VALUES('21.09.2008'),
PART 97 VALUES('24.09.2008'),
PART 98 VALUES('27.09.2008'),
PART 99 VALUES('30.09.2008'),
PART 100 VALUES('03.10.2008'),
PART 101 VALUES('06.10.2008'),
PART 102 VALUES('09.10.2008'),
PART 103 VALUES('12.10.2008'),
PART 104 VALUES('15.10.2008'),
PART 105 VALUES('18.10.2008'),
PART 106 VALUES('21.10.2008'),
PART 107 VALUES('24.10.2008'),
PART 108 VALUES('27.10.2008'),
PART 109 VALUES('31.10.2008'),
PART 110 VALUES('03.11.2008'),
PART 111 VALUES('06.11.2008'),
PART 112 VALUES('09.11.2008'),
PART 113 VALUES('12.11.2008'),
PART 114 VALUES('15.11.2008'),
PART 115 VALUES('18.11.2008'),
PART 116 VALUES('21.11.2008'),
PART 117 VALUES('24.11.2008'),
PART 118 VALUES('27.11.2008'),
PART 119 VALUES('30.11.2008'),
PART 120 VALUES('03.12.2008'),
PART 121 VALUES('06.12.2008'),
PART 122 VALUES('09.12.2008'),
PART 123 VALUES('12.12.2008'),
PART 124 VALUES('15.12.2008'),
PART 125 VALUES('18.12.2008'),
PART 126 VALUES('21.12.2008'),
PART 127 VALUES('24.12.2008'),
PART 128 VALUES('27.12.2008'),
PART 129 VALUES('31.12.2008'),
PART 130 VALUES('03.01.2009'),
PART 131 VALUES('06.01.2009'),
PART 132 VALUES('09.01.2009'),
PART 133 VALUES('12.01.2009'),
PART 134 VALUES('15.01.2009'),
PART 135 VALUES('18.01.2009'),
PART 136 VALUES('21.01.2009'),
PART 137 VALUES('24.01.2009'),
PART 138 VALUES('27.01.2009'),
PART 139 VALUES('31.01.2009'),
PART 140 VALUES('03.02.2009'),
PART 141 VALUES('06.02.2009'),
PART 142 VALUES('09.02.2009'),
PART 143 VALUES('12.02.2009'),
PART 144 VALUES('15.02.2009'),
PART 145 VALUES('18.02.2009'),
PART 146 VALUES('21.02.2009'),
PART 147 VALUES('24.02.2009'),
PART 148 VALUES('27.02.2009'),
PART 149 VALUES('28.02.2009'),
PART 150 VALUES('03.03.2009'),
PART 151 VALUES('06.03.2009'),
PART 152 VALUES('09.03.2009'),
PART 153 VALUES('12.03.2009'),
PART 154 VALUES('15.03.2009'),
PART 155 VALUES('18.03.2009'),
PART 156 VALUES('21.03.2009'),
PART 157 VALUES('24.03.2009'),
PART 158 VALUES('27.03.2009'),
PART 159 VALUES('31.03.2009'),
PART 160 VALUES('03.04.2009'),
PART 161 VALUES('06.04.2009'),
PART 162 VALUES('09.04.2009'),
PART 163 VALUES('12.04.2009'),
PART 164 VALUES('15.04.2009'),
PART 165 VALUES('18.04.2009'),
PART 166 VALUES('21.04.2009'),
PART 167 VALUES('24.04.2009'),
PART 168 VALUES('27.04.2009'),
PART 169 VALUES('30.04.2009'),
PART 170 VALUES('03.05.2009'),
PART 171 VALUES('06.05.2009'),
PART 172 VALUES('09.05.2009'),
PART 173 VALUES('12.05.2009'),
PART 174 VALUES('15.05.2009'),
PART 175 VALUES('18.05.2009'),
PART 176 VALUES('21.05.2009'),
PART 177 VALUES('24.05.2009'),
PART 178 VALUES('27.05.2009'),
PART 179 VALUES('31.05.2009'),
PART 180 VALUES('03.06.2009'),
PART 181 VALUES('06.06.2009'),
PART 182 VALUES('09.06.2009'),
PART 183 VALUES('12.06.2009'),
PART 184 VALUES('15.06.2009'),
PART 185 VALUES('18.06.2009'),
PART 186 VALUES('21.06.2009'),
PART 187 VALUES('24.06.2009'),
PART 188 VALUES('27.06.2009'),
PART 189 VALUES('30.06.2009'),
PART 190 VALUES('03.07.2009'),
PART 191 VALUES('06.07.2009'),
PART 192 VALUES('09.07.2009'),
PART 193 VALUES('12.07.2009'),
PART 194 VALUES('15.07.2009'),
PART 195 VALUES('18.07.2009'),
PART 196 VALUES('21.07.2009'),
PART 197 VALUES('24.07.2009'),
PART 198 VALUES('27.07.2009'),
PART 199 VALUES('31.07.2009'),
PART 200 VALUES('03.08.2009'),
PART 201 VALUES('06.08.2009'),
PART 202 VALUES('09.08.2009'),
PART 203 VALUES('12.08.2009'),
PART 204 VALUES('15.08.2009'),
PART 205 VALUES('18.08.2009'),
PART 206 VALUES('21.08.2009'),
PART 207 VALUES('24.08.2009'),
PART 208 VALUES('27.08.2009'),
PART 209 VALUES('31.08.2009'),
PART 210 VALUES('03.09.2009'),
PART 211 VALUES('06.09.2009'),
PART 212 VALUES('09.09.2009'),
PART 213 VALUES('12.09.2009'),
PART 214 VALUES('15.09.2009'),
PART 215 VALUES('18.09.2009'),
PART 216 VALUES('21.09.2009'),
PART 217 VALUES('24.09.2009'),
PART 218 VALUES('27.09.2009'),
PART 219 VALUES('30.09.2009'),
PART 220 VALUES('03.10.2009'),
PART 221 VALUES('06.10.2009'),
PART 222 VALUES('09.10.2009'),
PART 223 VALUES('12.10.2009'),
PART 224 VALUES('15.10.2009'),
PART 225 VALUES('18.10.2009'),
PART 226 VALUES('21.10.2009'),
PART 227 VALUES('24.10.2009'),
PART 228 VALUES('27.10.2009'),
PART 229 VALUES('31.10.2009'),
PART 230 VALUES('03.11.2009'),
PART 231 VALUES('06.11.2009'),
PART 232 VALUES('09.11.2009'),
PART 233 VALUES('12.11.2009'),
PART 234 VALUES('15.11.2009'),
PART 235 VALUES('18.11.2009'),
PART 236 VALUES('21.11.2009'),
PART 237 VALUES('24.11.2009'),
PART 238 VALUES('27.11.2009'),
PART 239 VALUES('30.11.2009'),
PART 240 VALUES('03.12.2009'),
PART 241 VALUES('06.12.2009'),
PART 242 VALUES('09.12.2009'),
PART 243 VALUES('12.12.2009'),
PART 244 VALUES('15.12.2009'),
PART 245 VALUES('18.12.2009'),
PART 246 VALUES('21.12.2009'),
PART 247 VALUES('24.12.2009'),
PART 248 VALUES('27.12.2009'),
PART 249 VALUES('31.12.2009'),
PART 250 VALUES('03.01.2010'),
PART 251 VALUES('06.01.2010'),
PART 252 VALUES('09.01.2010'),
PART 253 VALUES('12.01.2010'),
PART 254 VALUES('31.12.2099'))
AUDIT NONE
DATA CAPTURE NONE
CCSID EBCDIC
NOT VOLATILE;
LABEL ON TABLE OA1P.TMF150A1 IS 'Mittelflussrechnung';
LABEL ON OA1P.TMF150A1
(MF150091 IS 'Limiten-Hierarchie',
MF150090 IS 'Limiten-Typ',
MF150089 IS 'Ort Begünstigter',
MF150088 IS 'Name Begünstigter',
MF150087 IS 'Ort Auftraggeber',
MF150086 IS 'Name Auftraggeber',
MF150085 IS 'Life-Cycle-Status',
MF150084 IS 'Relevant-Group',
MF150083 IS 'Transaction-Typ',
MF150082 IS 'Lade_Timestamp_ID',
MF150081 IS 'Preiskomponente',
MF150080 IS 'mutierbar bis',
MF150079 IS 'Depot_Uebertrag',
MF150078 IS 'Vorheriger GP-Typ',
MF150077 IS 'Bankenclearing-Nr',
MF150076 IS 'Kommentar_Status',
MF150075 IS 'Edit-Status Gesamt',
MF150074 IS 'EDIT-STATUS URHEBER',
MF150073 IS 'EDIT-STATUS GRUND',
MF150072 IS 'Edit-Status Gegenpartei',
MF150071 IS 'Prüfziffer Kundencif',
MF150070 IS 'Stammnummer Kundencif',
MF150069 IS 'Bankstelle Kundencif',
MF150068 IS 'int. Form OE Kundenbüro GP',
MF150067 IS 'int. Form OE Kundenbüro',
MF150066 IS 'int. Form OE-ID KV',
MF150065 IS 'Cif-Saldierungsdatum',
MF150064 IS 'Cif-Eröffnungsdatum',
MF150063 IS 'Mittelfluss-Identifikation',
MF150062 IS 'Coupon-Mantel',
MF150060 IS 'Erstellungstimestamp',
MF150059 IS 'Auftragslaufnummer',
MF150056 IS 'Endverfall Obligationen',
MF150055 IS 'Richtung des Mittelflusses',
MF150054 IS 'Leitweg',
MF150053 IS 'Volumen in Nominal/Stück',
MF150052 IS 'Bearbeitungscode',
MF150051 IS 'Domizil Gegenpartei',
MF150047 IS 'Buchungsart',
MF150046 IS 'eff.Depotstelle/Umbuchungskto',
MF150045 IS 'Depotstelle bzw. GFM_Laufnr.',
MF150044 IS 'Sequenz-Nummer zu Valor',
MF150043 IS 'Betrag zu Bestandeswährung',
MF150042 IS 'Bestandeswährung',
MF150041 IS 'Untergruppe Gegenpartei',
MF150040 IS 'Hauptgruppe Gegenpartei',
MF150039 IS 'Gegenpartei-Geldmarktzusatz',
MF150038 IS 'Gegenpartei-Beziehungsnummer',
MF150037 IS 'CSID Gegenpartei',
MF150036 IS 'Gegenpartei',
MF150035 IS 'Gegenpartei-Typ',
MF150034 IS 'BUID Gegenpartei',
MF150033 IS 'KundenverantwortlicheR',
MF150032 IS 'Kundenbüro Kunde',
MF150031 IS 'Kunden-Geldmarktzusatz',
MF150030 IS 'Kunden-Beziehungsnummer',
MF150029 IS 'Depotartenschlüssel',
MF150028 IS 'Kontoartenschlüssel',
MF150027 IS 'Kundendomizil',
MF150026 IS 'Kundensegment',
MF150025 IS 'Kundenart',
MF150024 IS 'PVV-Kunde',
MF150023 IS 'Cifnummer Kunde',
MF150022 IS 'BUID Kunde',
MF150021 IS 'Mutationsdatum',
MF150020 IS 'MutationsPID',
MF150019 IS 'Betrag in CHF',
MF150018 IS 'Betrag in FWhrg',
MF150017 IS 'Valor',
MF150016 IS 'Währung',
MF150015 IS 'Urheber',
MF150014 IS 'Grund',
MF150013 IS 'Buchungsdatum',
MF150012 IS 'Bewegungsverdichtung',
MF150011 IS 'Produkteklassifizierung',
MF150010 IS 'MF-Produkt',
MF150009 IS 'Produktenr.Prok/Textcode Hypo',
MF150008 IS 'Bewegungsart Depot/Edelmetall',
MF150007 IS 'zu bewerten',
MF150006 IS 'nachzuerfassen',
MF150005 IS 'Storno',
MF150004 IS 'Auftragsnummer',
MF150003 IS 'Lieferantentyp',
MF150002 IS 'RZ-Herkunft',
MF150001 IS 'ID Mittelfluss (UUID)');
COMMIT ;
}¢--- A540769.WK.JCL(MF15DNE2) cre=2008-11-25 mod=2008-11-25-11.32.25 F540769 ---
SET CURRENT SQLID = 'S100447' ;
alter TABLE OA1A.TMF150A1
drop primary key ;
COMMIT ;
x
CREATE TABLE OA1A.TMF150A1
(MF150001 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150002 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150003 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150004 CHAR(25) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150005 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150006 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150007 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150008 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150009 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150010 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150011 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150012 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150013 DATE NOT NULL WITH DEFAULT,
MF150014 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150015 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150016 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150017 CHAR(12) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150018 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF150019 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF150020 CHAR(8) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150021 TIMESTAMP NOT NULL WITH DEFAULT,
MF150022 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150023 CHAR(12) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150024 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150025 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150026 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150027 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150028 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150029 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150030 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150031 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150032 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150033 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150034 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150035 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150036 CHAR(18) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150037 DECIMAL(15, 0) NOT NULL WITH DEFAULT,
MF150038 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150039 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150040 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150041 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150042 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150043 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF150044 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150045 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150046 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150047 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150051 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150052 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150053 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF150054 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150055 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150056 CHAR(8) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150059 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150060 TIMESTAMP NOT NULL WITH DEFAULT,
MF150062 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150063 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150064 DATE NOT NULL WITH DEFAULT,
MF150065 DATE NOT NULL WITH DEFAULT,
MF150066 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150067 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150068 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150069 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150070 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150071 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150072 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150073 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150074 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150075 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150076 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150077 CHAR(6) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150078 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150079 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150080 DATE NOT NULL WITH DEFAULT,
MF150081 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150082 CHAR(26) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150083 SMALLINT NOT NULL WITH DEFAULT,
MF150084 SMALLINT NOT NULL WITH DEFAULT,
MF150085 SMALLINT NOT NULL WITH DEFAULT,
MF150086 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150087 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150088 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150089 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150090 SMALLINT NOT NULL WITH DEFAULT,
MF150091 SMALLINT NOT NULL WITH DEFAULT,
MF150092 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
CONSTRAINT MF150001
PRIMARY KEY (MF150001))
IN MF01A1A.A150A
PARTITION BY (MF150013 ASC)
(PART 1 VALUES('31.12.1999'),
PART 2 VALUES('31.12.2000'),
PART 3 VALUES('31.12.2001'),
PART 4 VALUES('31.12.2002'),
PART 5 VALUES('31.12.2003'),
PART 6 VALUES('31.12.2004'),
PART 7 VALUES('31.12.2005'),
PART 8 VALUES('31.12.2006'),
PART 9 VALUES('31.12.2007'),
PART 10 VALUES('03.01.2008'),
PART 11 VALUES('06.01.2008'),
PART 12 VALUES('09.01.2008'),
PART 13 VALUES('12.01.2008'),
PART 14 VALUES('15.01.2008'),
PART 15 VALUES('18.01.2008'),
PART 16 VALUES('21.01.2008'),
PART 17 VALUES('24.01.2008'),
PART 18 VALUES('27.01.2008'),
PART 19 VALUES('31.01.2008'),
PART 20 VALUES('03.02.2008'),
PART 21 VALUES('06.02.2008'),
PART 22 VALUES('09.02.2008'),
PART 23 VALUES('12.02.2008'),
PART 24 VALUES('15.02.2008'),
PART 25 VALUES('18.02.2008'),
PART 26 VALUES('21.02.2008'),
PART 27 VALUES('24.02.2008'),
PART 28 VALUES('27.02.2008'),
PART 29 VALUES('29.02.2008'),
PART 30 VALUES('03.03.2008'),
PART 31 VALUES('06.03.2008'),
PART 32 VALUES('09.03.2008'),
PART 33 VALUES('12.03.2008'),
PART 34 VALUES('15.03.2008'),
PART 35 VALUES('18.03.2008'),
PART 36 VALUES('21.03.2008'),
PART 37 VALUES('24.03.2008'),
PART 38 VALUES('27.03.2008'),
PART 39 VALUES('31.03.2008'),
PART 40 VALUES('03.04.2008'),
PART 41 VALUES('06.04.2008'),
PART 42 VALUES('09.04.2008'),
PART 43 VALUES('12.04.2008'),
PART 44 VALUES('15.04.2008'),
PART 45 VALUES('18.04.2008'),
PART 46 VALUES('21.04.2008'),
PART 47 VALUES('24.04.2008'),
PART 48 VALUES('27.04.2008'),
PART 49 VALUES('30.04.2008'),
PART 50 VALUES('03.05.2008'),
PART 51 VALUES('06.05.2008'),
PART 52 VALUES('09.05.2008'),
PART 53 VALUES('12.05.2008'),
PART 54 VALUES('15.05.2008'),
PART 55 VALUES('18.05.2008'),
PART 56 VALUES('21.05.2008'),
PART 57 VALUES('24.05.2008'),
PART 58 VALUES('27.05.2008'),
PART 59 VALUES('31.05.2008'),
PART 60 VALUES('03.06.2008'),
PART 61 VALUES('06.06.2008'),
PART 62 VALUES('09.06.2008'),
PART 63 VALUES('12.06.2008'),
PART 64 VALUES('15.06.2008'),
PART 65 VALUES('18.06.2008'),
PART 66 VALUES('21.06.2008'),
PART 67 VALUES('24.06.2008'),
PART 68 VALUES('27.06.2008'),
PART 69 VALUES('30.06.2008'),
PART 70 VALUES('03.07.2008'),
PART 71 VALUES('06.07.2008'),
PART 72 VALUES('09.07.2008'),
PART 73 VALUES('12.07.2008'),
PART 74 VALUES('15.07.2008'),
PART 75 VALUES('18.07.2008'),
PART 76 VALUES('21.07.2008'),
PART 77 VALUES('24.07.2008'),
PART 78 VALUES('27.07.2008'),
PART 79 VALUES('31.07.2008'),
PART 80 VALUES('03.08.2008'),
PART 81 VALUES('06.08.2008'),
PART 82 VALUES('09.08.2008'),
PART 83 VALUES('12.08.2008'),
PART 84 VALUES('15.08.2008'),
PART 85 VALUES('18.08.2008'),
PART 86 VALUES('21.08.2008'),
PART 87 VALUES('24.08.2008'),
PART 88 VALUES('27.08.2008'),
PART 89 VALUES('31.08.2008'),
PART 90 VALUES('03.09.2008'),
PART 91 VALUES('06.09.2008'),
PART 92 VALUES('09.09.2008'),
PART 93 VALUES('12.09.2008'),
PART 94 VALUES('15.09.2008'),
PART 95 VALUES('18.09.2008'),
PART 96 VALUES('21.09.2008'),
PART 97 VALUES('24.09.2008'),
PART 98 VALUES('27.09.2008'),
PART 99 VALUES('30.09.2008'),
PART 100 VALUES('03.10.2008'),
PART 101 VALUES('06.10.2008'),
PART 102 VALUES('09.10.2008'),
PART 103 VALUES('12.10.2008'),
PART 104 VALUES('15.10.2008'),
PART 105 VALUES('18.10.2008'),
PART 106 VALUES('21.10.2008'),
PART 107 VALUES('24.10.2008'),
PART 108 VALUES('27.10.2008'),
PART 109 VALUES('31.10.2008'),
PART 110 VALUES('03.11.2008'),
PART 111 VALUES('06.11.2008'),
PART 112 VALUES('09.11.2008'),
PART 113 VALUES('12.11.2008'),
PART 114 VALUES('15.11.2008'),
PART 115 VALUES('18.11.2008'),
PART 116 VALUES('21.11.2008'),
PART 117 VALUES('24.11.2008'),
PART 118 VALUES('27.11.2008'),
PART 119 VALUES('30.11.2008'),
PART 120 VALUES('03.12.2008'),
PART 121 VALUES('06.12.2008'),
PART 122 VALUES('09.12.2008'),
PART 123 VALUES('12.12.2008'),
PART 124 VALUES('15.12.2008'),
PART 125 VALUES('18.12.2008'),
PART 126 VALUES('21.12.2008'),
PART 127 VALUES('24.12.2008'),
PART 128 VALUES('27.12.2008'),
PART 129 VALUES('31.12.2008'),
PART 130 VALUES('03.01.2009'),
PART 131 VALUES('06.01.2009'),
PART 132 VALUES('09.01.2009'),
PART 133 VALUES('12.01.2009'),
PART 134 VALUES('15.01.2009'),
PART 135 VALUES('18.01.2009'),
PART 136 VALUES('21.01.2009'),
PART 137 VALUES('24.01.2009'),
PART 138 VALUES('27.01.2009'),
PART 139 VALUES('31.01.2009'),
PART 140 VALUES('03.02.2009'),
PART 141 VALUES('06.02.2009'),
PART 142 VALUES('09.02.2009'),
PART 143 VALUES('12.02.2009'),
PART 144 VALUES('15.02.2009'),
PART 145 VALUES('18.02.2009'),
PART 146 VALUES('21.02.2009'),
PART 147 VALUES('24.02.2009'),
PART 148 VALUES('27.02.2009'),
PART 149 VALUES('28.02.2009'),
PART 150 VALUES('03.03.2009'),
PART 151 VALUES('06.03.2009'),
PART 152 VALUES('09.03.2009'),
PART 153 VALUES('12.03.2009'),
PART 154 VALUES('15.03.2009'),
PART 155 VALUES('18.03.2009'),
PART 156 VALUES('21.03.2009'),
PART 157 VALUES('24.03.2009'),
PART 158 VALUES('27.03.2009'),
PART 159 VALUES('31.03.2009'),
PART 160 VALUES('03.04.2009'),
PART 161 VALUES('06.04.2009'),
PART 162 VALUES('09.04.2009'),
PART 163 VALUES('12.04.2009'),
PART 164 VALUES('15.04.2009'),
PART 165 VALUES('18.04.2009'),
PART 166 VALUES('21.04.2009'),
PART 167 VALUES('24.04.2009'),
PART 168 VALUES('27.04.2009'),
PART 169 VALUES('30.04.2009'),
PART 170 VALUES('03.05.2009'),
PART 171 VALUES('06.05.2009'),
PART 172 VALUES('09.05.2009'),
PART 173 VALUES('12.05.2009'),
PART 174 VALUES('15.05.2009'),
PART 175 VALUES('18.05.2009'),
PART 176 VALUES('21.05.2009'),
PART 177 VALUES('24.05.2009'),
PART 178 VALUES('27.05.2009'),
PART 179 VALUES('31.05.2009'),
PART 180 VALUES('03.06.2009'),
PART 181 VALUES('06.06.2009'),
PART 182 VALUES('09.06.2009'),
PART 183 VALUES('12.06.2009'),
PART 184 VALUES('15.06.2009'),
PART 185 VALUES('18.06.2009'),
PART 186 VALUES('21.06.2009'),
PART 187 VALUES('24.06.2009'),
PART 188 VALUES('27.06.2009'),
PART 189 VALUES('30.06.2009'),
PART 190 VALUES('03.07.2009'),
PART 191 VALUES('06.07.2009'),
PART 192 VALUES('09.07.2009'),
PART 193 VALUES('12.07.2009'),
PART 194 VALUES('15.07.2009'),
PART 195 VALUES('18.07.2009'),
PART 196 VALUES('21.07.2009'),
PART 197 VALUES('24.07.2009'),
PART 198 VALUES('27.07.2009'),
PART 199 VALUES('31.07.2009'),
PART 200 VALUES('03.08.2009'),
PART 201 VALUES('06.08.2009'),
PART 202 VALUES('09.08.2009'),
PART 203 VALUES('12.08.2009'),
PART 204 VALUES('15.08.2009'),
PART 205 VALUES('18.08.2009'),
PART 206 VALUES('21.08.2009'),
PART 207 VALUES('24.08.2009'),
PART 208 VALUES('27.08.2009'),
PART 209 VALUES('31.08.2009'),
PART 210 VALUES('03.09.2009'),
PART 211 VALUES('06.09.2009'),
PART 212 VALUES('09.09.2009'),
PART 213 VALUES('12.09.2009'),
PART 214 VALUES('15.09.2009'),
PART 215 VALUES('18.09.2009'),
PART 216 VALUES('21.09.2009'),
PART 217 VALUES('24.09.2009'),
PART 218 VALUES('27.09.2009'),
PART 219 VALUES('30.09.2009'),
PART 220 VALUES('03.10.2009'),
PART 221 VALUES('06.10.2009'),
PART 222 VALUES('09.10.2009'),
PART 223 VALUES('12.10.2009'),
PART 224 VALUES('15.10.2009'),
PART 225 VALUES('18.10.2009'),
PART 226 VALUES('21.10.2009'),
PART 227 VALUES('24.10.2009'),
PART 228 VALUES('27.10.2009'),
PART 229 VALUES('31.10.2009'),
PART 230 VALUES('03.11.2009'),
PART 231 VALUES('06.11.2009'),
PART 232 VALUES('09.11.2009'),
PART 233 VALUES('12.11.2009'),
PART 234 VALUES('15.11.2009'),
PART 235 VALUES('18.11.2009'),
PART 236 VALUES('21.11.2009'),
PART 237 VALUES('24.11.2009'),
PART 238 VALUES('27.11.2009'),
PART 239 VALUES('30.11.2009'),
PART 240 VALUES('03.12.2009'),
PART 241 VALUES('06.12.2009'),
PART 242 VALUES('09.12.2009'),
PART 243 VALUES('12.12.2009'),
PART 244 VALUES('15.12.2009'),
PART 245 VALUES('18.12.2009'),
PART 246 VALUES('21.12.2009'),
PART 247 VALUES('24.12.2009'),
PART 248 VALUES('27.12.2009'),
PART 249 VALUES('31.12.2009'),
PART 250 VALUES('03.01.2010'),
PART 251 VALUES('06.01.2010'),
PART 252 VALUES('09.01.2010'),
PART 253 VALUES('12.01.2010'),
PART 254 VALUES('31.12.2099'))
AUDIT NONE
DATA CAPTURE NONE
CCSID EBCDIC
NOT VOLATILE;
LABEL ON TABLE OA1A.TMF150A1 IS 'Mittelflussrechnung';
LABEL ON OA1A.TMF150A1
(MF150091 IS 'Limiten-Hierarchie',
MF150090 IS 'Limiten-Typ',
MF150089 IS 'Ort Begünstigter',
MF150088 IS 'Name Begünstigter',
MF150087 IS 'Ort Auftraggeber',
MF150086 IS 'Name Auftraggeber',
MF150085 IS 'Life-Cycle-Status',
MF150084 IS 'Relevant-Group',
MF150083 IS 'Transaction-Typ',
MF150082 IS 'Lade_Timestamp_ID',
MF150081 IS 'Preiskomponente',
MF150080 IS 'mutierbar bis',
MF150079 IS 'Depot_Uebertrag',
MF150078 IS 'Vorheriger GP-Typ',
MF150077 IS 'Bankenclearing-Nr',
MF150076 IS 'Kommentar_Status',
MF150075 IS 'Edit-Status Gesamt',
MF150074 IS 'EDIT-STATUS URHEBER',
MF150073 IS 'EDIT-STATUS GRUND',
MF150072 IS 'Edit-Status Gegenpartei',
MF150071 IS 'Prüfziffer Kundencif',
MF150070 IS 'Stammnummer Kundencif',
MF150069 IS 'Bankstelle Kundencif',
MF150068 IS 'int. Form OE Kundenbüro GP',
MF150067 IS 'int. Form OE Kundenbüro',
MF150066 IS 'int. Form OE-ID KV',
MF150065 IS 'Cif-Saldierungsdatum',
MF150064 IS 'Cif-Eröffnungsdatum',
MF150063 IS 'Mittelfluss-Identifikation',
MF150062 IS 'Coupon-Mantel',
MF150060 IS 'Erstellungstimestamp',
MF150059 IS 'Auftragslaufnummer',
MF150056 IS 'Endverfall Obligationen',
MF150055 IS 'Richtung des Mittelflusses',
MF150054 IS 'Leitweg',
MF150053 IS 'Volumen in Nominal/Stück',
MF150052 IS 'Bearbeitungscode',
MF150051 IS 'Domizil Gegenpartei',
MF150047 IS 'Buchungsart',
MF150046 IS 'eff.Depotstelle/Umbuchungskto',
MF150045 IS 'Depotstelle bzw. GFM_Laufnr.',
MF150044 IS 'Sequenz-Nummer zu Valor',
MF150043 IS 'Betrag zu Bestandeswährung',
MF150042 IS 'Bestandeswährung',
MF150041 IS 'Untergruppe Gegenpartei',
MF150040 IS 'Hauptgruppe Gegenpartei',
MF150039 IS 'Gegenpartei-Geldmarktzusatz',
MF150038 IS 'Gegenpartei-Beziehungsnummer',
MF150037 IS 'CSID Gegenpartei',
MF150036 IS 'Gegenpartei',
MF150035 IS 'Gegenpartei-Typ',
MF150034 IS 'BUID Gegenpartei',
MF150033 IS 'KundenverantwortlicheR',
MF150032 IS 'Kundenbüro Kunde',
MF150031 IS 'Kunden-Geldmarktzusatz',
MF150030 IS 'Kunden-Beziehungsnummer',
MF150029 IS 'Depotartenschlüssel',
MF150028 IS 'Kontoartenschlüssel',
MF150027 IS 'Kundendomizil',
MF150026 IS 'Kundensegment',
MF150025 IS 'Kundenart',
MF150024 IS 'PVV-Kunde',
MF150023 IS 'Cifnummer Kunde',
MF150022 IS 'BUID Kunde',
MF150021 IS 'Mutationsdatum',
MF150020 IS 'MutationsPID',
MF150019 IS 'Betrag in CHF',
MF150018 IS 'Betrag in FWhrg',
MF150017 IS 'Valor',
MF150016 IS 'Währung',
MF150015 IS 'Urheber',
MF150014 IS 'Grund',
MF150013 IS 'Buchungsdatum',
MF150012 IS 'Bewegungsverdichtung',
MF150011 IS 'Produkteklassifizierung',
MF150010 IS 'MF-Produkt',
MF150009 IS 'Produktenr.Prok/Textcode Hypo',
MF150008 IS 'Bewegungsart Depot/Edelmetall',
MF150007 IS 'zu bewerten',
MF150006 IS 'nachzuerfassen',
MF150005 IS 'Storno',
MF150004 IS 'Auftragsnummer',
MF150003 IS 'Lieferantentyp',
MF150002 IS 'RZ-Herkunft',
MF150001 IS 'ID Mittelfluss (UUID)');
COMMIT ;
}¢--- A540769.WK.JCL(MF15DNIX) cre=2008-11-25 mod=2008-12-09-17.23.03 F540769 ---
set current sqlid = 'S100447';
CREATE INDEX OA1P.IMF150A2
ON OA1P.TMF150A1
(MF150023 ASC,
MF150013 DESC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
define yes defer yes
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1P
-- Index=OA1P.IMF150A3 On OA1P.TMF150A1
------------------------------------------------------------------------
--
CREATE INDEX OA1P.IMF150A3
ON OA1P.TMF150A1
(MF150066 ASC,
MF150013 DESC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
define yes defer yes
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1P
-- Index=OA1P.IMF150A4 On OA1P.TMF150A1
------------------------------------------------------------------------
--
CREATE INDEX OA1P.IMF150A4
ON OA1P.TMF150A1
(MF150067 ASC,
MF150013 DESC,
MF150019 DESC,
MF150066 DESC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
define yes defer yes
PIECESIZE 4 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1P
-- Index=OA1P.IMF150A5 On OA1P.TMF150A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1P.IMF150A5
ON OA1P.TMF150A1
(MF150004 ASC,
MF150059 ASC,
MF150005 ASC,
MF150013 ASC,
MF150023 ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
define yes defer yes
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1P
-- Index=OA1P.IMF150A6 On OA1P.TMF150A1
------------------------------------------------------------------------
--
CREATE INDEX OA1P.IMF150A6
ON OA1P.TMF150A1
(MF150085 ASC,
MF150084 ASC,
MF150060 ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
define yes defer yes
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1P
-- Index=OA1P.IMF150A7 On OA1P.TMF150A1
------------------------------------------------------------------------
--
CREATE INDEX OA1P.IMF150A7
ON OA1P.TMF150A1
(MF150084 ASC,
MF150085 ASC,
MF150022 ASC,
MF150023 ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
define yes defer yes
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1P
-- Index=OA1P.IMF150A8 On OA1P.TMF150A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1P.IMF150A8
ON OA1P.TMF150A1
(MF150023 ASC,
MF150013 ASC,
MF150001 ASC,
MF150019 ASC,
MF150083 ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
define yes defer yes
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1P
-- Index=OA1P.IMF150A0 On OA1P.TMF150A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1P.IMF150A0
ON OA1P.TMF150A1
(MF150001 ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
define yes defer yes
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1P
-- Index=OA1P.IMF150A1 On OA1P.TMF150A1
------------------------------------------------------------------------
--
CREATE INDEX OA1P.IMF150A1
ON OA1P.TMF150A1
(MF150013 ASC,
MF150067 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
define yes defer yes;
--
COMMIT;
alter TABLE OA1P.TMF150A1
add CONSTRAINT MF150001
PRIMARY KEY (MF150001)
;
COMMIT;
SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC","OA1P" ;
CREATE VIEW OA1P.VMF150A1V(ID_MITTELFLUSS, RZ_HERKUNFT,
LIEFERANTENTYP, AUFTRAGSNUMMER, STORNO, NACHZUERFASSEN,
ZU_BEWERTEN, BEWEGUNGSART_DEPOT, PRODUKTENR_PROK, MF_PRODUKT,
PRODUKTEKLASSE, BEWEGUNGSVERDICHT, BUCHUNGSDATUM, GRUND,
URHEBER, WAEHRUNG, VALOR, BETRAG_FWHRG, BETRAG_CHF,
MUTATIONSPID, MUTATIONSDATUM, BUID_KUNDE, CIFNUMMER_KUNDE,
PVV_KUNDE, KUNDENART, KUNDENSEGMENT, KUNDENDOMIZIL,
KONTOARTENSCHLUESS, DEPOTARTENSCHLUESS, KUNDEN_BEZIEHUNGNR,
KUNDEN_GMZUSATZ, KUNDENBUERO_KUNDE, KUNDENVERANTWORTL,
BUID_GEGENPARTEI, GEGENPARTEI_TYP, GEGENPARTEI,
CSID_GEGENPARTEI, GP_BEZIEHUNGSNR, GP_GELDMARKTZUSATZ,
HAUPTGRUPPE_GP, UNTERGRUPPE_GP, BESTANDESWAEHRUNG,
BETR_BESTANDESWHRG, VALOREN_SEQUENZNR, GFM_LAUFNUMMER,
DEPOTSTELLE, BUCHUNGSART, DOMIZIL_GP, BEARBEITUNGSCODE,
VOLUMEN_NOM_STCK, LEITWEG, ZU_ABFLUSS, POLICENNUMMER,
AUFTRAGSLAUFNUMMER, ERSTELLUNGSTIMSTMP, COUPON_MANTEL,
MITTELFLUSS_IDENTI, EROEFFNUNGSDATUM, SALDIERUNGSDATUM,
INT_OE_FORM_PID_KV, INT_OE_KUNDENBUERO, INT_OE_KBUERO_GP,
BKST_KUNDENCIF, STAMM_KUNDENCIF, PRUEF_KUNDENCIF,
EDIT_STATUS_GP, EDIT_STATUS_GRUND, EDIT_STATUS_URHEB,
EDIT_STATUS_GESAMT, EDIT_STATUS_KOMMNT, BANKENCLEARING_NR,
VORHERIGER_GP_TYP, DEPOTUEBERTRAG, MUTIERBAR_BIS,
PREISKOMPONENTE, LADE_TIMESTAMP_ID, TRANSACTION_TYP,
RELEVANT_GROUP, LIFE_CYCLE_STATUS, NAME_AUFTRAGGEBER,
ORT_AUFTRAGGEBER, NAME_BEGUENSTIGTER, ORT_BEGUENSTIGTER,
LIMITEN_TYP, LIMITEN_HIERARCHIE, RM_INTERNATIONAL) AS
SELECT ALL OA1P.TMF150A1.MF150001, OA1P.TMF150A1.MF150002,
OA1P.TMF150A1.MF150003, OA1P.TMF150A1.MF150004,
OA1P.TMF150A1.MF150005, OA1P.TMF150A1.MF150006,
OA1P.TMF150A1.MF150007, OA1P.TMF150A1.MF150008,
OA1P.TMF150A1.MF150009, OA1P.TMF150A1.MF150010,
OA1P.TMF150A1.MF150011, OA1P.TMF150A1.MF150012,
OA1P.TMF150A1.MF150013, OA1P.TMF150A1.MF150014,
OA1P.TMF150A1.MF150015, OA1P.TMF150A1.MF150016,
OA1P.TMF150A1.MF150017, OA1P.TMF150A1.MF150018,
OA1P.TMF150A1.MF150019, OA1P.TMF150A1.MF150020,
OA1P.TMF150A1.MF150021, OA1P.TMF150A1.MF150022,
OA1P.TMF150A1.MF150023, OA1P.TMF150A1.MF150024,
OA1P.TMF150A1.MF150025, OA1P.TMF150A1.MF150026,
OA1P.TMF150A1.MF150027, OA1P.TMF150A1.MF150028,
OA1P.TMF150A1.MF150029, OA1P.TMF150A1.MF150030,
OA1P.TMF150A1.MF150031, OA1P.TMF150A1.MF150032,
OA1P.TMF150A1.MF150033, OA1P.TMF150A1.MF150034,
OA1P.TMF150A1.MF150035, OA1P.TMF150A1.MF150036,
OA1P.TMF150A1.MF150037, OA1P.TMF150A1.MF150038,
OA1P.TMF150A1.MF150039, OA1P.TMF150A1.MF150040,
OA1P.TMF150A1.MF150041, OA1P.TMF150A1.MF150042,
OA1P.TMF150A1.MF150043, OA1P.TMF150A1.MF150044,
OA1P.TMF150A1.MF150045, OA1P.TMF150A1.MF150046,
OA1P.TMF150A1.MF150047, OA1P.TMF150A1.MF150051,
OA1P.TMF150A1.MF150052, OA1P.TMF150A1.MF150053,
OA1P.TMF150A1.MF150054, OA1P.TMF150A1.MF150055,
OA1P.TMF150A1.MF150056, OA1P.TMF150A1.MF150059,
OA1P.TMF150A1.MF150060, OA1P.TMF150A1.MF150062,
OA1P.TMF150A1.MF150063, OA1P.TMF150A1.MF150064,
OA1P.TMF150A1.MF150065, OA1P.TMF150A1.MF150066,
OA1P.TMF150A1.MF150067, OA1P.TMF150A1.MF150068,
OA1P.TMF150A1.MF150069, OA1P.TMF150A1.MF150070,
OA1P.TMF150A1.MF150071, OA1P.TMF150A1.MF150072,
OA1P.TMF150A1.MF150073, OA1P.TMF150A1.MF150074,
OA1P.TMF150A1.MF150075, OA1P.TMF150A1.MF150076,
OA1P.TMF150A1.MF150077, OA1P.TMF150A1.MF150078,
OA1P.TMF150A1.MF150079, OA1P.TMF150A1.MF150080,
OA1P.TMF150A1.MF150081, OA1P.TMF150A1.MF150082,
OA1P.TMF150A1.MF150083, OA1P.TMF150A1.MF150084,
OA1P.TMF150A1.MF150085, OA1P.TMF150A1.MF150086,
OA1P.TMF150A1.MF150087, OA1P.TMF150A1.MF150088,
OA1P.TMF150A1.MF150089, OA1P.TMF150A1.MF150090,
OA1P.TMF150A1.MF150091, OA1P.TMF150A1.MF150092
FROM OA1P.TMF150A1 ;
}¢--- A540769.WK.JCL(MF15DNI2) cre=2008-11-25 mod=2008-11-25-12.00.53 F540769 ---
set current sqlid = 'S100447';
alter TABLE OA1A.TMF150A1
add CONSTRAINT MF150001
PRIMARY KEY (MF150001)
;
COMMIT;
SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC","OA1A" ;
CREATE VIEW OA1A.VMF150A1V(ID_MITTELFLUSS, RZ_HERKUNFT,
LIEFERANTENTYP, AUFTRAGSNUMMER, STORNO, NACHZUERFASSEN,
ZU_BEWERTEN, BEWEGUNGSART_DEPOT, PRODUKTENR_PROK, MF_PRODUKT,
PRODUKTEKLASSE, BEWEGUNGSVERDICHT, BUCHUNGSDATUM, GRUND,
URHEBER, WAEHRUNG, VALOR, BETRAG_FWHRG, BETRAG_CHF,
MUTATIONSPID, MUTATIONSDATUM, BUID_KUNDE, CIFNUMMER_KUNDE,
PVV_KUNDE, KUNDENART, KUNDENSEGMENT, KUNDENDOMIZIL,
KONTOARTENSCHLUESS, DEPOTARTENSCHLUESS, KUNDEN_BEZIEHUNGNR,
KUNDEN_GMZUSATZ, KUNDENBUERO_KUNDE, KUNDENVERANTWORTL,
BUID_GEGENPARTEI, GEGENPARTEI_TYP, GEGENPARTEI,
CSID_GEGENPARTEI, GP_BEZIEHUNGSNR, GP_GELDMARKTZUSATZ,
HAUPTGRUPPE_GP, UNTERGRUPPE_GP, BESTANDESWAEHRUNG,
BETR_BESTANDESWHRG, VALOREN_SEQUENZNR, GFM_LAUFNUMMER,
DEPOTSTELLE, BUCHUNGSART, DOMIZIL_GP, BEARBEITUNGSCODE,
VOLUMEN_NOM_STCK, LEITWEG, ZU_ABFLUSS, POLICENNUMMER,
AUFTRAGSLAUFNUMMER, ERSTELLUNGSTIMSTMP, COUPON_MANTEL,
MITTELFLUSS_IDENTI, EROEFFNUNGSDATUM, SALDIERUNGSDATUM,
INT_OE_FORM_PID_KV, INT_OE_KUNDENBUERO, INT_OE_KBUERO_GP,
BKST_KUNDENCIF, STAMM_KUNDENCIF, PRUEF_KUNDENCIF,
EDIT_STATUS_GP, EDIT_STATUS_GRUND, EDIT_STATUS_URHEB,
EDIT_STATUS_GESAMT, EDIT_STATUS_KOMMNT, BANKENCLEARING_NR,
VORHERIGER_GP_TYP, DEPOTUEBERTRAG, MUTIERBAR_BIS,
PREISKOMPONENTE, LADE_TIMESTAMP_ID, TRANSACTION_TYP,
RELEVANT_GROUP, LIFE_CYCLE_STATUS, NAME_AUFTRAGGEBER,
ORT_AUFTRAGGEBER, NAME_BEGUENSTIGTER, ORT_BEGUENSTIGTER,
LIMITEN_TYP, LIMITEN_HIERARCHIE, RM_INTERNATIONAL) AS
SELECT ALL OA1A.TMF150A1.MF150001, OA1A.TMF150A1.MF150002,
OA1A.TMF150A1.MF150003, OA1A.TMF150A1.MF150004,
OA1A.TMF150A1.MF150005, OA1A.TMF150A1.MF150006,
OA1A.TMF150A1.MF150007, OA1A.TMF150A1.MF150008,
OA1A.TMF150A1.MF150009, OA1A.TMF150A1.MF150010,
OA1A.TMF150A1.MF150011, OA1A.TMF150A1.MF150012,
OA1A.TMF150A1.MF150013, OA1A.TMF150A1.MF150014,
OA1A.TMF150A1.MF150015, OA1A.TMF150A1.MF150016,
OA1A.TMF150A1.MF150017, OA1A.TMF150A1.MF150018,
OA1A.TMF150A1.MF150019, OA1A.TMF150A1.MF150020,
OA1A.TMF150A1.MF150021, OA1A.TMF150A1.MF150022,
OA1A.TMF150A1.MF150023, OA1A.TMF150A1.MF150024,
OA1A.TMF150A1.MF150025, OA1A.TMF150A1.MF150026,
OA1A.TMF150A1.MF150027, OA1A.TMF150A1.MF150028,
OA1A.TMF150A1.MF150029, OA1A.TMF150A1.MF150030,
OA1A.TMF150A1.MF150031, OA1A.TMF150A1.MF150032,
OA1A.TMF150A1.MF150033, OA1A.TMF150A1.MF150034,
OA1A.TMF150A1.MF150035, OA1A.TMF150A1.MF150036,
OA1A.TMF150A1.MF150037, OA1A.TMF150A1.MF150038,
OA1A.TMF150A1.MF150039, OA1A.TMF150A1.MF150040,
OA1A.TMF150A1.MF150041, OA1A.TMF150A1.MF150042,
OA1A.TMF150A1.MF150043, OA1A.TMF150A1.MF150044,
OA1A.TMF150A1.MF150045, OA1A.TMF150A1.MF150046,
OA1A.TMF150A1.MF150047, OA1A.TMF150A1.MF150051,
OA1A.TMF150A1.MF150052, OA1A.TMF150A1.MF150053,
OA1A.TMF150A1.MF150054, OA1A.TMF150A1.MF150055,
OA1A.TMF150A1.MF150056, OA1A.TMF150A1.MF150059,
OA1A.TMF150A1.MF150060, OA1A.TMF150A1.MF150062,
OA1A.TMF150A1.MF150063, OA1A.TMF150A1.MF150064,
OA1A.TMF150A1.MF150065, OA1A.TMF150A1.MF150066,
OA1A.TMF150A1.MF150067, OA1A.TMF150A1.MF150068,
OA1A.TMF150A1.MF150069, OA1A.TMF150A1.MF150070,
OA1A.TMF150A1.MF150071, OA1A.TMF150A1.MF150072,
OA1A.TMF150A1.MF150073, OA1A.TMF150A1.MF150074,
OA1A.TMF150A1.MF150075, OA1A.TMF150A1.MF150076,
OA1A.TMF150A1.MF150077, OA1A.TMF150A1.MF150078,
OA1A.TMF150A1.MF150079, OA1A.TMF150A1.MF150080,
OA1A.TMF150A1.MF150081, OA1A.TMF150A1.MF150082,
OA1A.TMF150A1.MF150083, OA1A.TMF150A1.MF150084,
OA1A.TMF150A1.MF150085, OA1A.TMF150A1.MF150086,
OA1A.TMF150A1.MF150087, OA1A.TMF150A1.MF150088,
OA1A.TMF150A1.MF150089, OA1A.TMF150A1.MF150090,
OA1A.TMF150A1.MF150091, OA1A.TMF150A1.MF150092
FROM OA1A.TMF150A1 ;
}¢--- A540769.WK.JCL(MF15DOLD) cre=2008-11-24 mod=2008-11-24-16.18.24 F540769 ---
------------------------------------------------------------------------
-- --
-- Database 2 Administration Tool (DB2 Admin) , program 5697-L90 --
-- --
-- ADB2GEN - Extract object definitions from the DB2 Catalog tables --
-- --
-- Title : TRG MF01012C 0 --
-- --
-- Input prepared on : DBAF (910) Extract time : 2008-11-24 16:05 --
-- --
-- Catalog values overridden : none
-- --
-- Generate : SG=Y DB=Y TS=Y TB=Y VW=Y IX=Y SY=Y AL=Y LB=Y CM=Y FK=Y --
-- TG=Y UT=Y UF=Y SP=Y SQ=Y --
-- Grants : SG=N DB=Y TS=Y TB=Y VW=Y SC=Y UT=Y UF=Y SP=Y SQ=Y --
-- --
------------------------------------------------------------------------
------------------------------------------------------------------------
-- --
-- ADB2GEN: Generate DDL for Tablespace=A150A In Database MF01A1A --
-- --
------------------------------------------------------------------------
--
--
------------------------------------------------------------------------
-- Stogroup=GSMS
------------------------------------------------------------------------
--
SET CURRENT SQLID='A547484';
--
CREATE STOGROUP GSMS
VOLUMES("*")
VCAT DBAF ;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1A Stogroup=GSMS (for partition 1)
-- Tablespace=MF01A1A.A150A
------------------------------------------------------------------------
--
SET CURRENT SQLID='S100447';
--
CREATE TABLESPACE A150A
IN MF01A1A
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 30 PCTFREE 10
GBPCACHE CHANGED
TRACKMOD YES
DSSIZE 32 G
NUMPARTS 254
BUFFERPOOL BP2
LOCKSIZE ANY
LOCKMAX 30000
CLOSE NO
COMPRESS YES
CCSID EBCDIC
LOCKPART YES
DEFINE YES
MAXROWS 255;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1A.TMF150A1 In MF01A1A.A150A
------------------------------------------------------------------------
--
SET CURRENT SQLID='OA1A';
--
CREATE TABLE OA1A.TMF150A1
(MF150001 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150002 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150003 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150004 CHAR(25) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150005 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150006 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150007 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150008 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150009 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150010 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150011 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150012 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150013 DATE NOT NULL WITH DEFAULT,
MF150014 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150015 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150016 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150017 CHAR(12) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150018 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF150019 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF150020 CHAR(8) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150021 TIMESTAMP NOT NULL WITH DEFAULT,
MF150022 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150023 CHAR(12) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150024 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150025 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150026 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150027 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150028 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150029 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150030 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150031 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150032 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150033 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150034 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150035 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150036 CHAR(18) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150037 DECIMAL(15, 0) NOT NULL WITH DEFAULT,
MF150038 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150039 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150040 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150041 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150042 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150043 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF150044 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150045 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150046 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150047 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150051 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150052 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150053 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF150054 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150055 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150056 CHAR(8) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150059 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150060 TIMESTAMP NOT NULL WITH DEFAULT,
MF150062 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150063 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150064 DATE NOT NULL WITH DEFAULT,
MF150065 DATE NOT NULL WITH DEFAULT,
MF150066 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150067 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150068 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150069 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150070 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150071 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150072 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150073 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150074 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150075 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150076 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150077 CHAR(6) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150078 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150079 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150080 DATE NOT NULL WITH DEFAULT,
MF150081 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150082 CHAR(26) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150083 SMALLINT NOT NULL WITH DEFAULT,
MF150084 SMALLINT NOT NULL WITH DEFAULT,
MF150085 SMALLINT NOT NULL WITH DEFAULT,
MF150086 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150087 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150088 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150089 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF150090 SMALLINT NOT NULL WITH DEFAULT,
MF150091 SMALLINT NOT NULL WITH DEFAULT,
MF150092 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
CONSTRAINT MF150001
PRIMARY KEY (MF150001))
IN MF01A1A.A150A
PARTITION BY (MF150013 ASC)
(PART 1 VALUES('31.12.1998'),
PART 2 VALUES('31.12.1999'),
PART 3 VALUES('31.12.2000'),
PART 4 VALUES('31.12.2001'),
PART 5 VALUES('31.12.2002'),
PART 6 VALUES('31.12.2003'),
PART 7 VALUES('31.12.2004'),
PART 8 VALUES('31.12.2005'),
PART 9 VALUES('31.12.2006'),
PART 10 VALUES('03.01.2007'),
PART 11 VALUES('06.01.2007'),
PART 12 VALUES('09.01.2007'),
PART 13 VALUES('12.01.2007'),
PART 14 VALUES('15.01.2007'),
PART 15 VALUES('18.01.2007'),
PART 16 VALUES('21.01.2007'),
PART 17 VALUES('24.01.2007'),
PART 18 VALUES('27.01.2007'),
PART 19 VALUES('31.01.2007'),
PART 20 VALUES('03.02.2007'),
PART 21 VALUES('06.02.2007'),
PART 22 VALUES('09.02.2007'),
PART 23 VALUES('12.02.2007'),
PART 24 VALUES('15.02.2007'),
PART 25 VALUES('18.02.2007'),
PART 26 VALUES('21.02.2007'),
PART 27 VALUES('24.02.2007'),
PART 28 VALUES('27.02.2007'),
PART 29 VALUES('28.02.2007'),
PART 30 VALUES('03.03.2007'),
PART 31 VALUES('06.03.2007'),
PART 32 VALUES('09.03.2007'),
PART 33 VALUES('12.03.2007'),
PART 34 VALUES('15.03.2007'),
PART 35 VALUES('18.03.2007'),
PART 36 VALUES('21.03.2007'),
PART 37 VALUES('24.03.2007'),
PART 38 VALUES('27.03.2007'),
PART 39 VALUES('31.03.2007'),
PART 40 VALUES('03.04.2007'),
PART 41 VALUES('06.04.2007'),
PART 42 VALUES('09.04.2007'),
PART 43 VALUES('12.04.2007'),
PART 44 VALUES('15.04.2007'),
PART 45 VALUES('18.04.2007'),
PART 46 VALUES('21.04.2007'),
PART 47 VALUES('24.04.2007'),
PART 48 VALUES('27.04.2007'),
PART 49 VALUES('30.04.2007'),
PART 50 VALUES('03.05.2007'),
PART 51 VALUES('06.05.2007'),
PART 52 VALUES('09.05.2007'),
PART 53 VALUES('12.05.2007'),
PART 54 VALUES('15.05.2007'),
PART 55 VALUES('18.05.2007'),
PART 56 VALUES('21.05.2007'),
PART 57 VALUES('24.05.2007'),
PART 58 VALUES('27.05.2007'),
PART 59 VALUES('31.05.2007'),
PART 60 VALUES('03.06.2007'),
PART 61 VALUES('06.06.2007'),
PART 62 VALUES('09.06.2007'),
PART 63 VALUES('12.06.2007'),
PART 64 VALUES('15.06.2007'),
PART 65 VALUES('18.06.2007'),
PART 66 VALUES('21.06.2007'),
PART 67 VALUES('24.06.2007'),
PART 68 VALUES('27.06.2007'),
PART 69 VALUES('30.06.2007'),
PART 70 VALUES('03.07.2007'),
PART 71 VALUES('06.07.2007'),
PART 72 VALUES('09.07.2007'),
PART 73 VALUES('12.07.2007'),
PART 74 VALUES('15.07.2007'),
PART 75 VALUES('18.07.2007'),
PART 76 VALUES('21.07.2007'),
PART 77 VALUES('24.07.2007'),
PART 78 VALUES('27.07.2007'),
PART 79 VALUES('31.07.2007'),
PART 80 VALUES('03.08.2007'),
PART 81 VALUES('06.08.2007'),
PART 82 VALUES('09.08.2007'),
PART 83 VALUES('12.08.2007'),
PART 84 VALUES('15.08.2007'),
PART 85 VALUES('18.08.2007'),
PART 86 VALUES('21.08.2007'),
PART 87 VALUES('24.08.2007'),
PART 88 VALUES('27.08.2007'),
PART 89 VALUES('31.08.2007'),
PART 90 VALUES('03.09.2007'),
PART 91 VALUES('06.09.2007'),
PART 92 VALUES('09.09.2007'),
PART 93 VALUES('12.09.2007'),
PART 94 VALUES('15.09.2007'),
PART 95 VALUES('18.09.2007'),
PART 96 VALUES('21.09.2007'),
PART 97 VALUES('24.09.2007'),
PART 98 VALUES('27.09.2007'),
PART 99 VALUES('30.09.2007'),
PART 100 VALUES('03.10.2007'),
PART 101 VALUES('06.10.2007'),
PART 102 VALUES('09.10.2007'),
PART 103 VALUES('12.10.2007'),
PART 104 VALUES('15.10.2007'),
PART 105 VALUES('18.10.2007'),
PART 106 VALUES('21.10.2007'),
PART 107 VALUES('24.10.2007'),
PART 108 VALUES('27.10.2007'),
PART 109 VALUES('31.10.2007'),
PART 110 VALUES('03.11.2007'),
PART 111 VALUES('06.11.2007'),
PART 112 VALUES('09.11.2007'),
PART 113 VALUES('12.11.2007'),
PART 114 VALUES('15.11.2007'),
PART 115 VALUES('18.11.2007'),
PART 116 VALUES('21.11.2007'),
PART 117 VALUES('24.11.2007'),
PART 118 VALUES('27.11.2007'),
PART 119 VALUES('30.11.2007'),
PART 120 VALUES('03.12.2007'),
PART 121 VALUES('06.12.2007'),
PART 122 VALUES('09.12.2007'),
PART 123 VALUES('12.12.2007'),
PART 124 VALUES('15.12.2007'),
PART 125 VALUES('18.12.2007'),
PART 126 VALUES('21.12.2007'),
PART 127 VALUES('24.12.2007'),
PART 128 VALUES('27.12.2007'),
PART 129 VALUES('31.12.2007'),
PART 130 VALUES('03.01.2008'),
PART 131 VALUES('06.01.2008'),
PART 132 VALUES('09.01.2008'),
PART 133 VALUES('12.01.2008'),
PART 134 VALUES('15.01.2008'),
PART 135 VALUES('18.01.2008'),
PART 136 VALUES('21.01.2008'),
PART 137 VALUES('24.01.2008'),
PART 138 VALUES('27.01.2008'),
PART 139 VALUES('31.01.2008'),
PART 140 VALUES('03.02.2008'),
PART 141 VALUES('06.02.2008'),
PART 142 VALUES('09.02.2008'),
PART 143 VALUES('12.02.2008'),
PART 144 VALUES('15.02.2008'),
PART 145 VALUES('18.02.2008'),
PART 146 VALUES('21.02.2008'),
PART 147 VALUES('24.02.2008'),
PART 148 VALUES('27.02.2008'),
PART 149 VALUES('29.02.2008'),
PART 150 VALUES('03.03.2008'),
PART 151 VALUES('06.03.2008'),
PART 152 VALUES('09.03.2008'),
PART 153 VALUES('12.03.2008'),
PART 154 VALUES('15.03.2008'),
PART 155 VALUES('18.03.2008'),
PART 156 VALUES('21.03.2008'),
PART 157 VALUES('24.03.2008'),
PART 158 VALUES('27.03.2008'),
PART 159 VALUES('31.03.2008'),
PART 160 VALUES('03.04.2008'),
PART 161 VALUES('06.04.2008'),
PART 162 VALUES('09.04.2008'),
PART 163 VALUES('12.04.2008'),
PART 164 VALUES('15.04.2008'),
PART 165 VALUES('18.04.2008'),
PART 166 VALUES('21.04.2008'),
PART 167 VALUES('24.04.2008'),
PART 168 VALUES('27.04.2008'),
PART 169 VALUES('30.04.2008'),
PART 170 VALUES('03.05.2008'),
PART 171 VALUES('06.05.2008'),
PART 172 VALUES('09.05.2008'),
PART 173 VALUES('12.05.2008'),
PART 174 VALUES('15.05.2008'),
PART 175 VALUES('18.05.2008'),
PART 176 VALUES('21.05.2008'),
PART 177 VALUES('24.05.2008'),
PART 178 VALUES('27.05.2008'),
PART 179 VALUES('31.05.2008'),
PART 180 VALUES('03.06.2008'),
PART 181 VALUES('06.06.2008'),
PART 182 VALUES('09.06.2008'),
PART 183 VALUES('12.06.2008'),
PART 184 VALUES('15.06.2008'),
PART 185 VALUES('18.06.2008'),
PART 186 VALUES('21.06.2008'),
PART 187 VALUES('24.06.2008'),
PART 188 VALUES('27.06.2008'),
PART 189 VALUES('30.06.2008'),
PART 190 VALUES('03.07.2008'),
PART 191 VALUES('06.07.2008'),
PART 192 VALUES('09.07.2008'),
PART 193 VALUES('12.07.2008'),
PART 194 VALUES('15.07.2008'),
PART 195 VALUES('18.07.2008'),
PART 196 VALUES('21.07.2008'),
PART 197 VALUES('24.07.2008'),
PART 198 VALUES('27.07.2008'),
PART 199 VALUES('31.07.2008'),
PART 200 VALUES('03.08.2008'),
PART 201 VALUES('06.08.2008'),
PART 202 VALUES('09.08.2008'),
PART 203 VALUES('12.08.2008'),
PART 204 VALUES('15.08.2008'),
PART 205 VALUES('18.08.2008'),
PART 206 VALUES('21.08.2008'),
PART 207 VALUES('24.08.2008'),
PART 208 VALUES('27.08.2008'),
PART 209 VALUES('31.08.2008'),
PART 210 VALUES('03.09.2008'),
PART 211 VALUES('06.09.2008'),
PART 212 VALUES('09.09.2008'),
PART 213 VALUES('12.09.2008'),
PART 214 VALUES('15.09.2008'),
PART 215 VALUES('18.09.2008'),
PART 216 VALUES('21.09.2008'),
PART 217 VALUES('24.09.2008'),
PART 218 VALUES('27.09.2008'),
PART 219 VALUES('30.09.2008'),
PART 220 VALUES('03.10.2008'),
PART 221 VALUES('06.10.2008'),
PART 222 VALUES('09.10.2008'),
PART 223 VALUES('12.10.2008'),
PART 224 VALUES('15.10.2008'),
PART 225 VALUES('18.10.2008'),
PART 226 VALUES('21.10.2008'),
PART 227 VALUES('24.10.2008'),
PART 228 VALUES('27.10.2008'),
PART 229 VALUES('31.10.2008'),
PART 230 VALUES('03.11.2008'),
PART 231 VALUES('06.11.2008'),
PART 232 VALUES('09.11.2008'),
PART 233 VALUES('12.11.2008'),
PART 234 VALUES('15.11.2008'),
PART 235 VALUES('18.11.2008'),
PART 236 VALUES('21.11.2008'),
PART 237 VALUES('24.11.2008'),
PART 238 VALUES('27.11.2008'),
PART 239 VALUES('30.11.2008'),
PART 240 VALUES('03.12.2008'),
PART 241 VALUES('06.12.2008'),
PART 242 VALUES('09.12.2008'),
PART 243 VALUES('12.12.2008'),
PART 244 VALUES('15.12.2008'),
PART 245 VALUES('18.12.2008'),
PART 246 VALUES('21.12.2008'),
PART 247 VALUES('24.12.2008'),
PART 248 VALUES('27.12.2008'),
PART 249 VALUES('31.12.2008'),
PART 250 VALUES('03.01.2009'),
PART 251 VALUES('06.01.2009'),
PART 252 VALUES('09.01.2009'),
PART 253 VALUES('12.01.2009'),
PART 254 VALUES('31.12.2099'))
AUDIT NONE
DATA CAPTURE NONE
CCSID EBCDIC
NOT VOLATILE;
--
LABEL ON TABLE OA1A.TMF150A1 IS 'Mittelflussrechnung';
--
LABEL ON OA1A.TMF150A1
(MF150091 IS 'Limiten-Hierarchie',
MF150090 IS 'Limiten-Typ',
MF150089 IS 'Ort Begünstigter',
MF150088 IS 'Name Begünstigter',
MF150087 IS 'Ort Auftraggeber',
MF150086 IS 'Name Auftraggeber',
MF150085 IS 'Life-Cycle-Status',
MF150084 IS 'Relevant-Group',
MF150083 IS 'Transaction-Typ',
MF150082 IS 'Lade_Timestamp_ID',
MF150081 IS 'Preiskomponente',
MF150080 IS 'mutierbar bis',
MF150079 IS 'Depot_Uebertrag',
MF150078 IS 'Vorheriger GP-Typ',
MF150077 IS 'Bankenclearing-Nr',
MF150076 IS 'Kommentar_Status',
MF150075 IS 'Edit-Status Gesamt',
MF150074 IS 'EDIT-STATUS URHEBER',
MF150073 IS 'EDIT-STATUS GRUND',
MF150072 IS 'Edit-Status Gegenpartei',
MF150071 IS 'Prüfziffer Kundencif',
MF150070 IS 'Stammnummer Kundencif',
MF150069 IS 'Bankstelle Kundencif',
MF150068 IS 'int. Form OE Kundenbüro GP',
MF150067 IS 'int. Form OE Kundenbüro',
MF150066 IS 'int. Form OE-ID KV',
MF150065 IS 'Cif-Saldierungsdatum',
MF150064 IS 'Cif-Eröffnungsdatum',
MF150063 IS 'Mittelfluss-Identifikation',
MF150062 IS 'Coupon-Mantel',
MF150060 IS 'Erstellungstimestamp',
MF150059 IS 'Auftragslaufnummer',
MF150056 IS 'Endverfall Obligationen',
MF150055 IS 'Richtung des Mittelflusses',
MF150054 IS 'Leitweg',
MF150053 IS 'Volumen in Nominal/Stück',
MF150052 IS 'Bearbeitungscode',
MF150051 IS 'Domizil Gegenpartei',
MF150047 IS 'Buchungsart',
MF150046 IS 'eff.Depotstelle/Umbuchungskto',
MF150045 IS 'Depotstelle bzw. GFM_Laufnr.',
MF150044 IS 'Sequenz-Nummer zu Valor',
MF150043 IS 'Betrag zu Bestandeswährung',
MF150042 IS 'Bestandeswährung',
MF150041 IS 'Untergruppe Gegenpartei',
MF150040 IS 'Hauptgruppe Gegenpartei',
MF150039 IS 'Gegenpartei-Geldmarktzusatz',
MF150038 IS 'Gegenpartei-Beziehungsnummer',
MF150037 IS 'CSID Gegenpartei',
MF150036 IS 'Gegenpartei',
MF150035 IS 'Gegenpartei-Typ',
MF150034 IS 'BUID Gegenpartei',
MF150033 IS 'KundenverantwortlicheR',
MF150032 IS 'Kundenbüro Kunde',
MF150031 IS 'Kunden-Geldmarktzusatz',
MF150030 IS 'Kunden-Beziehungsnummer',
MF150029 IS 'Depotartenschlüssel',
MF150028 IS 'Kontoartenschlüssel',
MF150027 IS 'Kundendomizil',
MF150026 IS 'Kundensegment',
MF150025 IS 'Kundenart',
MF150024 IS 'PVV-Kunde',
MF150023 IS 'Cifnummer Kunde',
MF150022 IS 'BUID Kunde',
MF150021 IS 'Mutationsdatum',
MF150020 IS 'MutationsPID',
MF150019 IS 'Betrag in CHF',
MF150018 IS 'Betrag in FWhrg',
MF150017 IS 'Valor',
MF150016 IS 'Währung',
MF150015 IS 'Urheber',
MF150014 IS 'Grund',
MF150013 IS 'Buchungsdatum',
MF150012 IS 'Bewegungsverdichtung',
MF150011 IS 'Produkteklassifizierung',
MF150010 IS 'MF-Produkt',
MF150009 IS 'Produktenr.Prok/Textcode Hypo',
MF150008 IS 'Bewegungsart Depot/Edelmetall',
MF150007 IS 'zu bewerten',
MF150006 IS 'nachzuerfassen',
MF150005 IS 'Storno',
MF150004 IS 'Auftragsnummer',
MF150003 IS 'Lieferantentyp',
MF150002 IS 'RZ-Herkunft',
MF150001 IS 'ID Mittelfluss (UUID)');
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1A
-- Index=OA1A.IMF150A2 On OA1A.TMF150A1
------------------------------------------------------------------------
--
CREATE INDEX OA1A.IMF150A2
ON OA1A.TMF150A1
(MF150023 ASC,
MF150013 DESC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFINE YES
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1A
-- Index=OA1A.IMF150A3 On OA1A.TMF150A1
------------------------------------------------------------------------
--
CREATE INDEX OA1A.IMF150A3
ON OA1A.TMF150A1
(MF150066 ASC,
MF150013 DESC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFINE YES
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1A
-- Index=OA1A.IMF150A4 On OA1A.TMF150A1
------------------------------------------------------------------------
--
CREATE INDEX OA1A.IMF150A4
ON OA1A.TMF150A1
(MF150067 ASC,
MF150013 DESC,
MF150019 DESC,
MF150066 DESC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFINE YES
PIECESIZE 4 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1A
-- Index=OA1A.IMF150A5 On OA1A.TMF150A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1A.IMF150A5
ON OA1A.TMF150A1
(MF150004 ASC,
MF150059 ASC,
MF150005 ASC,
MF150013 ASC,
MF150023 ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFINE YES
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1A
-- Index=OA1A.IMF150A6 On OA1A.TMF150A1
------------------------------------------------------------------------
--
CREATE INDEX OA1A.IMF150A6
ON OA1A.TMF150A1
(MF150085 ASC,
MF150084 ASC,
MF150060 ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFINE YES
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1A
-- Index=OA1A.IMF150A7 On OA1A.TMF150A1
------------------------------------------------------------------------
--
CREATE INDEX OA1A.IMF150A7
ON OA1A.TMF150A1
(MF150084 ASC,
MF150085 ASC,
MF150022 ASC,
MF150023 ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFINE YES
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1A
-- Index=OA1A.IMF150A8 On OA1A.TMF150A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1A.IMF150A8
ON OA1A.TMF150A1
(MF150023 ASC,
MF150013 ASC,
MF150001 ASC,
MF150019 ASC,
MF150083 ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFINE YES
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1A
-- Index=OA1A.IMF150A0 On OA1A.TMF150A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1A.IMF150A0
ON OA1A.TMF150A1
(MF150001 ASC)
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFINE YES
PIECESIZE 8 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=MF01A1A
-- Index=OA1A.IMF150A1 On OA1A.TMF150A1
------------------------------------------------------------------------
--
CREATE INDEX OA1A.IMF150A1
ON OA1A.TMF150A1
(MF150013 ASC,
MF150067 ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
CLUSTER
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFINE YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- View=OA1A.VMF150A1V
------------------------------------------------------------------------
--
--
SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC","S100447" ;
--
CREATE VIEW OA1A.VMF150A1V(ID_MITTELFLUSS, RZ_HERKUNFT,
LIEFERANTENTYP, AUFTRAGSNUMMER, STORNO, NACHZUERFASSEN,
ZU_BEWERTEN, BEWEGUNGSART_DEPOT, PRODUKTENR_PROK, MF_PRODUKT,
PRODUKTEKLASSE, BEWEGUNGSVERDICHT, BUCHUNGSDATUM, GRUND,
URHEBER, WAEHRUNG, VALOR, BETRAG_FWHRG, BETRAG_CHF,
MUTATIONSPID, MUTATIONSDATUM, BUID_KUNDE, CIFNUMMER_KUNDE,
PVV_KUNDE, KUNDENART, KUNDENSEGMENT, KUNDENDOMIZIL,
KONTOARTENSCHLUESS, DEPOTARTENSCHLUESS, KUNDEN_BEZIEHUNGNR,
KUNDEN_GMZUSATZ, KUNDENBUERO_KUNDE, KUNDENVERANTWORTL,
BUID_GEGENPARTEI, GEGENPARTEI_TYP, GEGENPARTEI,
CSID_GEGENPARTEI, GP_BEZIEHUNGSNR, GP_GELDMARKTZUSATZ,
HAUPTGRUPPE_GP, UNTERGRUPPE_GP, BESTANDESWAEHRUNG,
BETR_BESTANDESWHRG, VALOREN_SEQUENZNR, GFM_LAUFNUMMER,
DEPOTSTELLE, BUCHUNGSART, DOMIZIL_GP, BEARBEITUNGSCODE,
VOLUMEN_NOM_STCK, LEITWEG, ZU_ABFLUSS, POLICENNUMMER,
AUFTRAGSLAUFNUMMER, ERSTELLUNGSTIMSTMP, COUPON_MANTEL,
MITTELFLUSS_IDENTI, EROEFFNUNGSDATUM, SALDIERUNGSDATUM,
INT_OE_FORM_PID_KV, INT_OE_KUNDENBUERO, INT_OE_KBUERO_GP,
BKST_KUNDENCIF, STAMM_KUNDENCIF, PRUEF_KUNDENCIF,
EDIT_STATUS_GP, EDIT_STATUS_GRUND, EDIT_STATUS_URHEB,
EDIT_STATUS_GESAMT, EDIT_STATUS_KOMMNT, BANKENCLEARING_NR,
VORHERIGER_GP_TYP, DEPOTUEBERTRAG, MUTIERBAR_BIS,
PREISKOMPONENTE, LADE_TIMESTAMP_ID, TRANSACTION_TYP,
RELEVANT_GROUP, LIFE_CYCLE_STATUS, NAME_AUFTRAGGEBER,
ORT_AUFTRAGGEBER, NAME_BEGUENSTIGTER, ORT_BEGUENSTIGTER,
LIMITEN_TYP, LIMITEN_HIERARCHIE, RM_INTERNATIONAL) AS
SELECT ALL OA1A.TMF150A1.MF150001, OA1A.TMF150A1.MF150002,
OA1A.TMF150A1.MF150003, OA1A.TMF150A1.MF150004,
OA1A.TMF150A1.MF150005, OA1A.TMF150A1.MF150006,
OA1A.TMF150A1.MF150007, OA1A.TMF150A1.MF150008,
OA1A.TMF150A1.MF150009, OA1A.TMF150A1.MF150010,
OA1A.TMF150A1.MF150011, OA1A.TMF150A1.MF150012,
OA1A.TMF150A1.MF150013, OA1A.TMF150A1.MF150014,
OA1A.TMF150A1.MF150015, OA1A.TMF150A1.MF150016,
OA1A.TMF150A1.MF150017, OA1A.TMF150A1.MF150018,
OA1A.TMF150A1.MF150019, OA1A.TMF150A1.MF150020,
OA1A.TMF150A1.MF150021, OA1A.TMF150A1.MF150022,
OA1A.TMF150A1.MF150023, OA1A.TMF150A1.MF150024,
OA1A.TMF150A1.MF150025, OA1A.TMF150A1.MF150026,
OA1A.TMF150A1.MF150027, OA1A.TMF150A1.MF150028,
OA1A.TMF150A1.MF150029, OA1A.TMF150A1.MF150030,
OA1A.TMF150A1.MF150031, OA1A.TMF150A1.MF150032,
OA1A.TMF150A1.MF150033, OA1A.TMF150A1.MF150034,
OA1A.TMF150A1.MF150035, OA1A.TMF150A1.MF150036,
OA1A.TMF150A1.MF150037, OA1A.TMF150A1.MF150038,
OA1A.TMF150A1.MF150039, OA1A.TMF150A1.MF150040,
OA1A.TMF150A1.MF150041, OA1A.TMF150A1.MF150042,
OA1A.TMF150A1.MF150043, OA1A.TMF150A1.MF150044,
OA1A.TMF150A1.MF150045, OA1A.TMF150A1.MF150046,
OA1A.TMF150A1.MF150047, OA1A.TMF150A1.MF150051,
OA1A.TMF150A1.MF150052, OA1A.TMF150A1.MF150053,
OA1A.TMF150A1.MF150054, OA1A.TMF150A1.MF150055,
OA1A.TMF150A1.MF150056, OA1A.TMF150A1.MF150059,
OA1A.TMF150A1.MF150060, OA1A.TMF150A1.MF150062,
OA1A.TMF150A1.MF150063, OA1A.TMF150A1.MF150064,
OA1A.TMF150A1.MF150065, OA1A.TMF150A1.MF150066,
OA1A.TMF150A1.MF150067, OA1A.TMF150A1.MF150068,
OA1A.TMF150A1.MF150069, OA1A.TMF150A1.MF150070,
OA1A.TMF150A1.MF150071, OA1A.TMF150A1.MF150072,
OA1A.TMF150A1.MF150073, OA1A.TMF150A1.MF150074,
OA1A.TMF150A1.MF150075, OA1A.TMF150A1.MF150076,
OA1A.TMF150A1.MF150077, OA1A.TMF150A1.MF150078,
OA1A.TMF150A1.MF150079, OA1A.TMF150A1.MF150080,
OA1A.TMF150A1.MF150081, OA1A.TMF150A1.MF150082,
OA1A.TMF150A1.MF150083, OA1A.TMF150A1.MF150084,
OA1A.TMF150A1.MF150085, OA1A.TMF150A1.MF150086,
OA1A.TMF150A1.MF150087, OA1A.TMF150A1.MF150088,
OA1A.TMF150A1.MF150089, OA1A.TMF150A1.MF150090,
OA1A.TMF150A1.MF150091, OA1A.TMF150A1.MF150092
FROM OA1A.TMF150A1 ;
--
SET CURRENT SQLID='S100447';
--
GRANT SELECT ON TABLE OA1A.VMF150A1V TO OA1A;
--
COMMIT;
--
------------------------------------------------------------------------
-- ADB2GEN - End of generated DDL --
------------------------------------------------------------------------
--
}¢--- A540769.WK.JCL(MF15HIST) cre=2011-01-14 mod=2011-01-24-10.42.18 A540769 ---
//A540769C JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=DBTF 00040000
//DEL EXEC PGM=IEFBR14
//SYSREC00 DD DISP=(MOD,DELETE),DSN=TSS.SKA.TMP.MF15HIST
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
//SYSTSPRT DD SYSOUT=*
//*
//* sql: r: für nichtLeere Partition in mf150H v(on) und b(is)
//* p: alle Partitionen die gelöscht werden können
//* t: für jede Partition 4 Utility Statements:
//* copy, sql exec, load, copy
//*
//SYSIN DD *
with r (l, p, v, b) as
( /* r = rekursiv Partitionen berechnen, */
/* p = Partition, v=von inklusiv, b=bis exklusiv */
select 0, 0, date('01.01.1800'), date('01.01.1900')
from sysibm.sysdummyE
union all select l+1, -1,
(select min(MF150013) from oa1t.tmf150a1 where MF150013 >= r.b),b
from r where p >= 0 and v < current date - 12 month and l < 999
union all select l+1, year(v)*24+month(v)*2 +10-48002, v,
v + (16-day(v)) days
from r where p = -1 and day(v) <= 15 and l < 999
union all select l+1, year(v)*24+month(v)*2 +11-48002, v,
v - (day(v)-1) days + 1 month
from r where p = -1 and day(v) > 15 and l < 999
)
, p (p, v, b) as
(
select strip(char(p)), v, b
from r
where p > 0 and b < current date - 12 month
)
, t (p, v, b, n, t) as
( /* für jede Partition utility ctl: copy, load, copy */
select p.*, 1, 'COPY TABLESPACE MF01A1T.MF150H DSNUM ' || p
from p
union all select p.*, 2, ' COPYDDN(TCOPYD) SHRLEVEL REFERENCE'
from p
union all select p.*,10, 'EXEC SQL' from p
union all select p.*,11, ' DECLARE CUR' || p ||' CURSOR FOR' from p
union all select p.*,12, ' SELECT *' from p
union all select p.*,13, ' FROM OA1T.TMF150A1' from p
union all select p.*,14, ' WHERE MF150013 >= '''
|| char(v) || '''' from p
union all select p.*,15, ' and MF150013 < '''
|| char(b) || '''' from p
union all select p.*,16, ' order by MF150013 asc, MF150067 asc'
from p
union all select p.*,17, 'ENDEXEC' from p
union all select p.*,21, 'LOAD DATA INCURSOR CUR' || p from p
union all select p.*,22, ' LOG NO RESUME YES ' from p
union all select p.*,23, ' SORTDEVT DISK SORTNUM 50' from p
union all select p.*,24, ' WORKDDN(TSYUTS,TSOUTS)' from p
union all select p.*,25, ' INTO TABLE OA1T.TMF150H1' from p
union all select p.*,26, ' IGNOREFIELDS YES PART ' || p from p
union all select p.*,31, 'COPY TABLESPACE MF01A1T.MF150H DSNUM ' || p
from p
union all select p.*,32, ' COPYDDN(TCOPYD) SHRLEVEL REFERENCE'
from p
)
select char(coalesce(t, '??????'), 80)
from t order by v, n
;
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*,RECFM=FB,LRECL=80
//SYSREC00 DD DISP=(NEW,CATLG),DSN=*.DEL.SYSREC00,
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=26800),
// SPACE=(CYL,(2,1000))
//LOAD EXEC PGM=DSNUTILB,PARM='DBTF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DISP=SHR,DSN=*.DEL.SYSREC00
}¢--- A540769.WK.JCL(MF15LOAD) cre= mod=-. -------------------------------------
//YRPAL001 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL001.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC001 DD DISP=SHR,DSN=&OLDPREF.001&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.002&OLDSUF
//REC002 DD DISP=SHR,DSN=&OLDPREF.003&OLDSUF
//REC003 DD DISP=SHR,DSN=&OLDPREF.004&OLDSUF
//REC004 DD DISP=SHR,DSN=&OLDPREF.005&OLDSUF
//REC005 DD DISP=SHR,DSN=&OLDPREF.006&OLDSUF
//REC006 DD DISP=SHR,DSN=&OLDPREF.007&OLDSUF
//REC007 DD DISP=SHR,DSN=&OLDPREF.008&OLDSUF
//REC008 DD DISP=SHR,DSN=&OLDPREF.009&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 001
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC001
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 002
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC002
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 003
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC003
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 004
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC004
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 005
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC005
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 006
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC006
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 007
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC007
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 008
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC008
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL002 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL002.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC009 DD DISP=SHR,DSN=&OLDPREF.010&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.011&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.012&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.013&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.014&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.015&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.016&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.017&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.018&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.019&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.020&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.021&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.022&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.023&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.024&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.025&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.026&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.027&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.028&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.029&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.030&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.031&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.032&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.033&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.034&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.035&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.036&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.037&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.038&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.039&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.040&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.041&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.042&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.043&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.044&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.045&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.046&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.047&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.048&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.049&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.050&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.051&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.052&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.053&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.054&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.055&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.056&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.057&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.058&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.059&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.061&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.062&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.063&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.064&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.065&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.066&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.067&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.068&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.069&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.070&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.071&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.072&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.073&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.074&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.075&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.076&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.077&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.078&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.079&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.080&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.081&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.082&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.083&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.084&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.085&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.086&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.087&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.088&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.089&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.090&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.091&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.092&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.093&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.094&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.095&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.096&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.097&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.098&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.099&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.100&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.101&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.102&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.103&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.104&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.105&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.106&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.107&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.108&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.109&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.110&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.111&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.112&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.113&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.114&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.115&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.116&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.117&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.118&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.119&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.120&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.121&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.122&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.123&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.124&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.125&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.126&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.127&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.128&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.129&OLDSUF
//REC010 DD DISP=SHR,DSN=&OLDPREF.130&OLDSUF
//REC011 DD DISP=SHR,DSN=&OLDPREF.131&OLDSUF
//REC012 DD DISP=SHR,DSN=&OLDPREF.132&OLDSUF
//REC013 DD DISP=SHR,DSN=&OLDPREF.133&OLDSUF
//REC014 DD DISP=SHR,DSN=&OLDPREF.134&OLDSUF
//REC015 DD DISP=SHR,DSN=&OLDPREF.135&OLDSUF
//REC016 DD DISP=SHR,DSN=&OLDPREF.136&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 009
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC009
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 010
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC010
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 011
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC011
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 012
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC012
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 013
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC013
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 014
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC014
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 015
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC015
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 016
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC016
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL003 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL003.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC017 DD DISP=SHR,DSN=&OLDPREF.137&OLDSUF
//REC018 DD DISP=SHR,DSN=&OLDPREF.138&OLDSUF
//REC019 DD DISP=SHR,DSN=&OLDPREF.139&OLDSUF
//REC020 DD DISP=SHR,DSN=&OLDPREF.140&OLDSUF
//REC021 DD DISP=SHR,DSN=&OLDPREF.141&OLDSUF
//REC022 DD DISP=SHR,DSN=&OLDPREF.142&OLDSUF
//REC023 DD DISP=SHR,DSN=&OLDPREF.143&OLDSUF
//REC024 DD DISP=SHR,DSN=&OLDPREF.144&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 017
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC017
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 018
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC018
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 019
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC019
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 020
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC020
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 021
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC021
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 022
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC022
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 023
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC023
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 024
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC024
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL004 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL004.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC025 DD DISP=SHR,DSN=&OLDPREF.145&OLDSUF
//REC026 DD DISP=SHR,DSN=&OLDPREF.146&OLDSUF
//REC027 DD DISP=SHR,DSN=&OLDPREF.147&OLDSUF
//REC028 DD DISP=SHR,DSN=&OLDPREF.148&OLDSUF
//REC029 DD DISP=SHR,DSN=&OLDPREF.149&OLDSUF
//REC030 DD DISP=SHR,DSN=&OLDPREF.150&OLDSUF
//REC031 DD DISP=SHR,DSN=&OLDPREF.151&OLDSUF
//REC032 DD DISP=SHR,DSN=&OLDPREF.152&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 025
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC025
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 026
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC026
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 027
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC027
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 028
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC028
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 029
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC029
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 030
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC030
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 031
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC031
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 032
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC032
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL005 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL005.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC033 DD DISP=SHR,DSN=&OLDPREF.153&OLDSUF
//REC034 DD DISP=SHR,DSN=&OLDPREF.154&OLDSUF
//REC035 DD DISP=SHR,DSN=&OLDPREF.155&OLDSUF
//REC036 DD DISP=SHR,DSN=&OLDPREF.156&OLDSUF
//REC037 DD DISP=SHR,DSN=&OLDPREF.157&OLDSUF
//REC038 DD DISP=SHR,DSN=&OLDPREF.158&OLDSUF
//REC039 DD DISP=SHR,DSN=&OLDPREF.159&OLDSUF
//REC040 DD DISP=SHR,DSN=&OLDPREF.160&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 033
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC033
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 034
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC034
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 035
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC035
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 036
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC036
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 037
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC037
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 038
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC038
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 039
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC039
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 040
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC040
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL006 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL006.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC041 DD DISP=SHR,DSN=&OLDPREF.161&OLDSUF
//REC042 DD DISP=SHR,DSN=&OLDPREF.162&OLDSUF
//REC043 DD DISP=SHR,DSN=&OLDPREF.163&OLDSUF
//REC044 DD DISP=SHR,DSN=&OLDPREF.164&OLDSUF
//REC045 DD DISP=SHR,DSN=&OLDPREF.165&OLDSUF
//REC046 DD DISP=SHR,DSN=&OLDPREF.166&OLDSUF
//REC047 DD DISP=SHR,DSN=&OLDPREF.167&OLDSUF
//REC048 DD DISP=SHR,DSN=&OLDPREF.168&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 041
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC041
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 042
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC042
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 043
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC043
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 044
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC044
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 045
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC045
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 046
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC046
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 047
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC047
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 048
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC048
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL007 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL007.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC049 DD DISP=SHR,DSN=&OLDPREF.169&OLDSUF
//REC050 DD DISP=SHR,DSN=&OLDPREF.170&OLDSUF
//REC051 DD DISP=SHR,DSN=&OLDPREF.171&OLDSUF
//REC052 DD DISP=SHR,DSN=&OLDPREF.172&OLDSUF
//REC053 DD DISP=SHR,DSN=&OLDPREF.173&OLDSUF
//REC054 DD DISP=SHR,DSN=&OLDPREF.174&OLDSUF
//REC055 DD DISP=SHR,DSN=&OLDPREF.175&OLDSUF
//REC056 DD DISP=SHR,DSN=&OLDPREF.176&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 049
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC049
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 050
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC050
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 051
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC051
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 052
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC052
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 053
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC053
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 054
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC054
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 055
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC055
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 056
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC056
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL008 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL008.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC057 DD DISP=SHR,DSN=&OLDPREF.177&OLDSUF
//REC058 DD DISP=SHR,DSN=&OLDPREF.178&OLDSUF
//REC059 DD DISP=SHR,DSN=&OLDPREF.179&OLDSUF
//REC060 DD DISP=SHR,DSN=&OLDPREF.180&OLDSUF
//REC061 DD DISP=SHR,DSN=&OLDPREF.181&OLDSUF
//REC062 DD DISP=SHR,DSN=&OLDPREF.182&OLDSUF
//REC063 DD DISP=SHR,DSN=&OLDPREF.183&OLDSUF
//REC064 DD DISP=SHR,DSN=&OLDPREF.184&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 057
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC057
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 058
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC058
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 059
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC059
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 060
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC060
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 061
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC061
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 062
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC062
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 063
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC063
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 064
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC064
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL009 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL009.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC065 DD DISP=SHR,DSN=&OLDPREF.185&OLDSUF
//REC066 DD DISP=SHR,DSN=&OLDPREF.186&OLDSUF
//REC067 DD DISP=SHR,DSN=&OLDPREF.187&OLDSUF
//REC068 DD DISP=SHR,DSN=&OLDPREF.188&OLDSUF
//REC069 DD DISP=SHR,DSN=&OLDPREF.189&OLDSUF
//REC070 DD DISP=SHR,DSN=&OLDPREF.190&OLDSUF
//REC071 DD DISP=SHR,DSN=&OLDPREF.191&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 065
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC065
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 066
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC066
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 067
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC067
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 068
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC068
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 069
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC069
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 070
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC070
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 071
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC071
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL010 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL010.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC072 DD DISP=SHR,DSN=&OLDPREF.192&OLDSUF
//REC073 DD DISP=SHR,DSN=&OLDPREF.193&OLDSUF
//REC074 DD DISP=SHR,DSN=&OLDPREF.194&OLDSUF
//REC075 DD DISP=SHR,DSN=&OLDPREF.195&OLDSUF
//REC076 DD DISP=SHR,DSN=&OLDPREF.196&OLDSUF
//REC077 DD DISP=SHR,DSN=&OLDPREF.197&OLDSUF
//REC078 DD DISP=SHR,DSN=&OLDPREF.198&OLDSUF
//REC079 DD DISP=SHR,DSN=&OLDPREF.199&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 072
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC072
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 073
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC073
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 074
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC074
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 075
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC075
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 076
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC076
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 077
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC077
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 078
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC078
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 079
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC079
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL011 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL011.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC080 DD DISP=SHR,DSN=&OLDPREF.200&OLDSUF
//REC081 DD DISP=SHR,DSN=&OLDPREF.201&OLDSUF
//REC082 DD DISP=SHR,DSN=&OLDPREF.202&OLDSUF
//REC083 DD DISP=SHR,DSN=&OLDPREF.203&OLDSUF
//REC084 DD DISP=SHR,DSN=&OLDPREF.204&OLDSUF
//REC085 DD DISP=SHR,DSN=&OLDPREF.205&OLDSUF
//REC086 DD DISP=SHR,DSN=&OLDPREF.206&OLDSUF
//REC087 DD DISP=SHR,DSN=&OLDPREF.207&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 080
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC080
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 081
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC081
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 082
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC082
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 083
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC083
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 084
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC084
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 085
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC085
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 086
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC086
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 087
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC087
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL012 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL012.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC088 DD DISP=SHR,DSN=&OLDPREF.208&OLDSUF
//REC089 DD DISP=SHR,DSN=&OLDPREF.209&OLDSUF
//REC090 DD DISP=SHR,DSN=&OLDPREF.210&OLDSUF
//REC091 DD DISP=SHR,DSN=&OLDPREF.211&OLDSUF
//REC092 DD DISP=SHR,DSN=&OLDPREF.212&OLDSUF
//REC093 DD DISP=SHR,DSN=&OLDPREF.213&OLDSUF
//REC094 DD DISP=SHR,DSN=&OLDPREF.214&OLDSUF
//REC095 DD DISP=SHR,DSN=&OLDPREF.215&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 088
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC088
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 089
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC089
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 090
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC090
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 091
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC091
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 092
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC092
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 093
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC093
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 094
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC094
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 095
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC095
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL013 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL013.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC096 DD DISP=SHR,DSN=&OLDPREF.216&OLDSUF
//REC097 DD DISP=SHR,DSN=&OLDPREF.217&OLDSUF
//REC098 DD DISP=SHR,DSN=&OLDPREF.218&OLDSUF
//REC099 DD DISP=SHR,DSN=&OLDPREF.219&OLDSUF
//REC100 DD DISP=SHR,DSN=&OLDPREF.220&OLDSUF
//REC101 DD DISP=SHR,DSN=&OLDPREF.221&OLDSUF
//REC102 DD DISP=SHR,DSN=&OLDPREF.222&OLDSUF
//REC103 DD DISP=SHR,DSN=&OLDPREF.223&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 096
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC096
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 097
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC097
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 098
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC098
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 099
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC099
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 100
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC100
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 101
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC101
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 102
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC102
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 103
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC103
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL014 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL014.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC104 DD DISP=SHR,DSN=&OLDPREF.224&OLDSUF
//REC105 DD DISP=SHR,DSN=&OLDPREF.225&OLDSUF
//REC106 DD DISP=SHR,DSN=&OLDPREF.226&OLDSUF
//REC107 DD DISP=SHR,DSN=&OLDPREF.227&OLDSUF
//REC108 DD DISP=SHR,DSN=&OLDPREF.228&OLDSUF
//REC109 DD DISP=SHR,DSN=&OLDPREF.229&OLDSUF
//REC110 DD DISP=SHR,DSN=&OLDPREF.230&OLDSUF
//REC111 DD DISP=SHR,DSN=&OLDPREF.231&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 104
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC104
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 105
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC105
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 106
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC106
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 107
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC107
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 108
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC108
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 109
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC109
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 110
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC110
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 111
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC111
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL015 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL015.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC112 DD DISP=SHR,DSN=&OLDPREF.232&OLDSUF
//REC113 DD DISP=SHR,DSN=&OLDPREF.233&OLDSUF
//REC114 DD DISP=SHR,DSN=&OLDPREF.234&OLDSUF
//REC115 DD DISP=SHR,DSN=&OLDPREF.235&OLDSUF
//REC116 DD DISP=SHR,DSN=&OLDPREF.236&OLDSUF
//REC117 DD DISP=SHR,DSN=&OLDPREF.237&OLDSUF
//REC118 DD DISP=SHR,DSN=&OLDPREF.238&OLDSUF
//REC119 DD DISP=SHR,DSN=&OLDPREF.239&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 112
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC112
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 113
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC113
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 114
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC114
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 115
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC115
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 116
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC116
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 117
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC117
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 118
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC118
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 119
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC119
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL016 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL016.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC120 DD DISP=SHR,DSN=&OLDPREF.240&OLDSUF
//REC121 DD DISP=SHR,DSN=&OLDPREF.241&OLDSUF
//REC122 DD DISP=SHR,DSN=&OLDPREF.242&OLDSUF
//REC123 DD DISP=SHR,DSN=&OLDPREF.243&OLDSUF
//REC124 DD DISP=SHR,DSN=&OLDPREF.244&OLDSUF
//REC125 DD DISP=SHR,DSN=&OLDPREF.245&OLDSUF
//REC126 DD DISP=SHR,DSN=&OLDPREF.246&OLDSUF
//REC127 DD DISP=SHR,DSN=&OLDPREF.247&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 120
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC120
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 121
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC121
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 122
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC122
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 123
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC123
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 124
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC124
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 125
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC125
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 126
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC126
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 127
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC127
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL017 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL017.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC128 DD DISP=SHR,DSN=&OLDPREF.248&OLDSUF
//REC129 DD DISP=SHR,DSN=&OLDPREF.249&OLDSUF
//REC130 DD DISP=SHR,DSN=&OLDPREF.250&OLDSUF
//REC131 DD DISP=SHR,DSN=&OLDPREF.251&OLDSUF
//REC132 DD DISP=SHR,DSN=&OLDPREF.252&OLDSUF
//REC133 DD DISP=SHR,DSN=&OLDPREF.253&OLDSUF
//REC134 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC135 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 128
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC128
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 129
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC129
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 130
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC130
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 131
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC131
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 132
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC132
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 133
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC133
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 134
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC134
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 135
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC135
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL018 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL018.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC136 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC137 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC138 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC139 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC140 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC141 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC142 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC143 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 136
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC136
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 137
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC137
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 138
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC138
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 139
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC139
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 140
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC140
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 141
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC141
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 142
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC142
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 143
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC143
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL019 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL019.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC144 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC145 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC146 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC147 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC148 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC149 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC150 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC151 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 144
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC144
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 145
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC145
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 146
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC146
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 147
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC147
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 148
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC148
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 149
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC149
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 150
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC150
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 151
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC151
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL020 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL020.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC152 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC153 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC154 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC155 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC156 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC157 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC158 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC159 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 152
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC152
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 153
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC153
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 154
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC154
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 155
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC155
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 156
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC156
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 157
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC157
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 158
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC158
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 159
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC159
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL021 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL021.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC160 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC161 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC162 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC163 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC164 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC165 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC166 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC167 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 160
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC160
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 161
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC161
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 162
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC162
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 163
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC163
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 164
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC164
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 165
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC165
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 166
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC166
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 167
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC167
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL022 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL022.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC168 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC169 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC170 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC171 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC172 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC173 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC174 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC175 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 168
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC168
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 169
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC169
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 170
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC170
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 171
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC171
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 172
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC172
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 173
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC173
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 174
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC174
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 175
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC175
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL023 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL023.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC176 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC177 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC178 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC179 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC180 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC181 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC182 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC183 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 176
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC176
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 177
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC177
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 178
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC178
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 179
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC179
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 180
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC180
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 181
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC181
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 182
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC182
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 183
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC183
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL024 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL024.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC184 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC185 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC186 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC187 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC188 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC189 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC190 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC191 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 184
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC184
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 185
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC185
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 186
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC186
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 187
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC187
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 188
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC188
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 189
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC189
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 190
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC190
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 191
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC191
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL025 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL025.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC192 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC193 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC194 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC195 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC196 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC197 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC198 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 192
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC192
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 193
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC193
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 194
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC194
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 195
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC195
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 196
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC196
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 197
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC197
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 198
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC198
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL026 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL026.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC199 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC200 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC201 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC202 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC203 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC204 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC205 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC206 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 199
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC199
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 200
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC200
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 201
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC201
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 202
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC202
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 203
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC203
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 204
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC204
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 205
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC205
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 206
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC206
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL027 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL027.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC207 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC208 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC209 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC210 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC211 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC212 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC213 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC214 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 207
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC207
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 208
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC208
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 209
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC209
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 210
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC210
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 211
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC211
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 212
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC212
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 213
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC213
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 214
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC214
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL028 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL028.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC215 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC216 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC217 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC218 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC219 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC220 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC221 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC222 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 215
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC215
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 216
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC216
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 217
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC217
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 218
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC218
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 219
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC219
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 220
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC220
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 221
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC221
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 222
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC222
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL029 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL029.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC223 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC224 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC225 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC226 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC227 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC228 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC229 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC230 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 223
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC223
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 224
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC224
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 225
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC225
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 226
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC226
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 227
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC227
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 228
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC228
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 229
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC229
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 230
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC230
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL030 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL030.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC231 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC232 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC233 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC234 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC235 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC236 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC237 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC238 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 231
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC231
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 232
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC232
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 233
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC233
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 234
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC234
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 235
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC235
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 236
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC236
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 237
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC237
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 238
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC238
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL031 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL031.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC239 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC240 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC241 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC242 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC243 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC244 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC245 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC246 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 239
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC239
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 240
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC240
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 241
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC241
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 242
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC242
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 243
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC243
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 244
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC244
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 245
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC245
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 246
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC246
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
//YRPAL032 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBZF,YRPAL032.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='DSN.REPA.MF01A1Z.A150A.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC247 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC248 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC249 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC250 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC251 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC252 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC253 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//REC254 DD DISP=SHR,DSN=&OLDPREF.254&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
SORTNUM 160
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 247
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC247
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 248
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC248
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 249
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC249
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 250
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC250
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 251
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC251
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 252
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC252
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 253
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC253
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
----------------- part --------------------
INTO TABLE OA1Z.TMF150A1 PART 254
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC254
WHEN(00001:00002) = X'0033'
( "MF150001"
POSITION( 00003:00018) CHAR(00016)
, "MF150002"
POSITION( 00019:00019) CHAR(00001)
, "MF150003"
POSITION( 00020:00024) CHAR(00005)
, "MF150004"
POSITION( 00025:00049) CHAR(00025)
, "MF150005"
POSITION( 00050:00050) CHAR(00001)
, "MF150006"
POSITION( 00051:00051) CHAR(00001)
, "MF150007"
POSITION( 00052:00052) CHAR(00001)
, "MF150008"
POSITION( 00053:00055) CHAR(00003)
, "MF150009"
POSITION( 00056:00060) CHAR(00005)
, "MF150010"
POSITION( 00061:00064) CHAR(00004)
, "MF150011"
POSITION( 00065:00065) CHAR(00001)
, "MF150012"
POSITION( 00066:00066) CHAR(00001)
, "MF150013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF150014"
POSITION( 00077:00080) CHAR(00004)
, "MF150015"
POSITION( 00081:00084) CHAR(00004)
, "MF150016"
POSITION( 00085:00088) CHAR(00004)
, "MF150017"
POSITION( 00089:00100) CHAR(00012)
, "MF150018"
POSITION( 00101:00108) DECIMAL
, "MF150019"
POSITION( 00109:00116) DECIMAL
, "MF150020"
POSITION( 00117:00124) CHAR(00008)
, "MF150021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF150022"
POSITION( 00151:00154) CHAR(00004)
, "MF150023"
POSITION( 00155:00166) CHAR(00012)
, "MF150024"
POSITION( 00167:00167) CHAR(00001)
, "MF150025"
POSITION( 00168:00170) CHAR(00003)
, "MF150026"
POSITION( 00171:00173) CHAR(00003)
, "MF150027"
POSITION( 00174:00176) CHAR(00003)
, "MF150028"
POSITION( 00177:00179) CHAR(00003)
, "MF150029"
POSITION( 00180:00182) CHAR(00003)
, "MF150030"
POSITION( 00183:00198) CHAR(00016)
, "MF150031"
POSITION( 00199:00200) CHAR(00002)
, "MF150032"
POSITION( 00201:00207) CHAR(00007)
, "MF150033"
POSITION( 00208:00214) CHAR(00007)
, "MF150034"
POSITION( 00215:00218) CHAR(00004)
, "MF150035"
POSITION( 00219:00219) CHAR(00001)
, "MF150036"
POSITION( 00220:00237) CHAR(00018)
, "MF150037"
POSITION( 00238:00245) DECIMAL
, "MF150038"
POSITION( 00246:00261) CHAR(00016)
, "MF150039"
POSITION( 00262:00263) CHAR(00002)
, "MF150040"
POSITION( 00264:00265) CHAR(00002)
, "MF150041"
POSITION( 00266:00267) CHAR(00002)
, "MF150042"
POSITION( 00268:00271) CHAR(00004)
, "MF150043"
POSITION( 00272:00279) DECIMAL
, "MF150044"
POSITION( 00280:00284) CHAR(00005)
, "MF150045"
POSITION( 00285:00288) CHAR(00004)
, "MF150046"
POSITION( 00289:00292) CHAR(00004)
, "MF150047"
POSITION( 00293:00293) CHAR(00001)
, "MF150051"
POSITION( 00294:00296) CHAR(00003)
, "MF150052"
POSITION( 00297:00299) CHAR(00003)
, "MF150053"
POSITION( 00300:00307) DECIMAL
, "MF150054"
POSITION( 00308:00314) CHAR(00007)
, "MF150055"
POSITION( 00315:00315) CHAR(00001)
, "MF150056"
POSITION( 00316:00323) CHAR(00008)
, "MF150059"
POSITION( 00324:00328) CHAR(00005)
, "MF150060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF150062"
POSITION( 00355:00355) CHAR(00001)
, "MF150063"
POSITION( 00356:00356) CHAR(00001)
, "MF150064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF150065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF150066"
POSITION( 00377:00392) CHAR(00016)
, "MF150067"
POSITION( 00393:00408) CHAR(00016)
, "MF150068"
POSITION( 00409:00424) CHAR(00016)
, "MF150069"
POSITION( 00425:00428) CHAR(00004)
, "MF150070"
POSITION( 00429:00435) CHAR(00007)
, "MF150071"
POSITION( 00436:00436) CHAR(00001)
, "MF150072"
POSITION( 00437:00437) CHAR(00001)
, "MF150073"
POSITION( 00438:00438) CHAR(00001)
, "MF150074"
POSITION( 00439:00439) CHAR(00001)
, "MF150075"
POSITION( 00440:00440) CHAR(00001)
, "MF150076"
POSITION( 00441:00441) CHAR(00001)
, "MF150077"
POSITION( 00442:00447) CHAR(00006)
, "MF150078"
POSITION( 00448:00448) CHAR(00001)
, "MF150079"
POSITION( 00449:00449) CHAR(00001)
, "MF150080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF150081"
POSITION( 00460:00464) CHAR(00005)
, "MF150082"
POSITION( 00465:00490) CHAR(00026)
, "MF150083"
POSITION( 00491:00492) SMALLINT
, "MF150084"
POSITION( 00493:00494) SMALLINT
, "MF150085"
POSITION( 00495:00496) SMALLINT
, "MF150086"
POSITION( 00497:00531) CHAR(00035)
, "MF150087"
POSITION( 00532:00566) CHAR(00035)
, "MF150088"
POSITION( 00567:00601) CHAR(00035)
, "MF150089"
POSITION( 00602:00636) CHAR(00035)
, "MF150090"
POSITION( 00637:00638) SMALLINT
, "MF150091"
POSITION( 00639:00640) SMALLINT
, "MF150092"
POSITION( 00641:00656) CHAR(00016)
)
}¢--- A540769.WK.JCL(MF15MAP) cre= mod=-. --------------------------------------
* Repa merge Repartionierung
* new old
* 254 254 number of parts
***
* 1 1998-12-31
* 1 2 1999-12-31
1 : 1 - 2
* 2 3 2000-12-31
2 : 3 - 3
* 3 4 2001-12-31
3 : 4 - 4
* 4 5 2002-12-31
4 : 5 - 5
* 5 6 2003-12-31
5 : 6 - 6
* 6 7 2004-12-31
6 : 7 - 7
* 7 8 2005-12-31
7 : 8 - 8
* 8 9 2006-12-31
8 : 9 - 9
* 10 2007-01-03
* 11 2007-01-06
* 12 2007-01-09
* 13 2007-01-12
* 14 2007-01-15
* 15 2007-01-18
* 16 2007-01-21
* 17 2007-01-24
* 18 2007-01-27
* 19 2007-01-31
* 20 2007-02-03
* 21 2007-02-06
* 22 2007-02-09
* 23 2007-02-12
* 24 2007-02-15
* 25 2007-02-18
* 26 2007-02-21
* 27 2007-02-24
* 28 2007-02-27
* 29 2007-02-28
* 30 2007-03-03
* 31 2007-03-06
* 32 2007-03-09
* 33 2007-03-12
* 34 2007-03-15
* 35 2007-03-18
* 36 2007-03-21
* 37 2007-03-24
* 38 2007-03-27
* 39 2007-03-31
* 40 2007-04-03
* 41 2007-04-06
* 42 2007-04-09
* 43 2007-04-12
* 44 2007-04-15
* 45 2007-04-18
* 46 2007-04-21
* 47 2007-04-24
* 48 2007-04-27
* 49 2007-04-30
* 50 2007-05-03
* 51 2007-05-06
* 52 2007-05-09
* 53 2007-05-12
* 54 2007-05-15
* 55 2007-05-18
* 56 2007-05-21
* 57 2007-05-24
* 58 2007-05-27
* 59 2007-05-31
* 60 2007-06-03
* 61 2007-06-06
* 62 2007-06-09
* 63 2007-06-12
* 64 2007-06-15
* 65 2007-06-18
* 66 2007-06-21
* 67 2007-06-24
* 68 2007-06-27
* 69 2007-06-30
* 70 2007-07-03
* 71 2007-07-06
* 72 2007-07-09
* 73 2007-07-12
* 74 2007-07-15
* 75 2007-07-18
* 76 2007-07-21
* 77 2007-07-24
* 78 2007-07-27
* 79 2007-07-31
* 80 2007-08-03
* 81 2007-08-06
* 82 2007-08-09
* 83 2007-08-12
* 84 2007-08-15
* 85 2007-08-18
* 86 2007-08-21
* 87 2007-08-24
* 88 2007-08-27
* 89 2007-08-31
* 90 2007-09-03
* 91 2007-09-06
* 92 2007-09-09
* 93 2007-09-12
* 94 2007-09-15
* 95 2007-09-18
* 96 2007-09-21
* 97 2007-09-24
* 98 2007-09-27
* 99 2007-09-30
* 100 2007-10-03
* 101 2007-10-06
* 102 2007-10-09
* 103 2007-10-12
* 104 2007-10-15
* 105 2007-10-18
* 106 2007-10-21
* 107 2007-10-24
* 108 2007-10-27
* 109 2007-10-31
* 110 2007-11-03
* 111 2007-11-06
* 112 2007-11-09
* 113 2007-11-12
* 114 2007-11-15
* 115 2007-11-18
* 116 2007-11-21
* 117 2007-11-24
* 118 2007-11-27
* 119 2007-11-30
* 120 2007-12-03
* 121 2007-12-06
* 122 2007-12-09
* 123 2007-12-12
* 124 2007-12-15
* 125 2007-12-18
* 126 2007-12-21
* 127 2007-12-24
* 128 2007-12-27
* 9 129 2007-12-31
9 : 10 - 129
* 10 130 2008-01-03
10 : 130 - 130
* 11 131 2008-01-06
11 : 131 - 131
* 12 132 2008-01-09
12 : 132 - 132
* 13 133 2008-01-12
13 : 133 - 133
* 14 134 2008-01-15
14 : 134 - 134
* 15 135 2008-01-18
15 : 135 - 135
* 16 136 2008-01-21
16 : 136 - 136
* 17 137 2008-01-24
17 : 137 - 137
* 18 138 2008-01-27
18 : 138 - 138
* 19 139 2008-01-31
19 : 139 - 139
* 20 140 2008-02-03
20 : 140 - 140
* 21 141 2008-02-06
21 : 141 - 141
* 22 142 2008-02-09
22 : 142 - 142
* 23 143 2008-02-12
23 : 143 - 143
* 24 144 2008-02-15
24 : 144 - 144
* 25 145 2008-02-18
25 : 145 - 145
* 26 146 2008-02-21
26 : 146 - 146
* 27 147 2008-02-24
27 : 147 - 147
* 28 148 2008-02-27
28 : 148 - 148
* 29 149 2008-02-29
29 : 149 - 149
* 30 150 2008-03-03
30 : 150 - 150
* 31 151 2008-03-06
31 : 151 - 151
* 32 152 2008-03-09
32 : 152 - 152
* 33 153 2008-03-12
33 : 153 - 153
* 34 154 2008-03-15
34 : 154 - 154
* 35 155 2008-03-18
35 : 155 - 155
* 36 156 2008-03-21
36 : 156 - 156
* 37 157 2008-03-24
37 : 157 - 157
* 38 158 2008-03-27
38 : 158 - 158
* 39 159 2008-03-31
39 : 159 - 159
* 40 160 2008-04-03
40 : 160 - 160
* 41 161 2008-04-06
41 : 161 - 161
* 42 162 2008-04-09
42 : 162 - 162
* 43 163 2008-04-12
43 : 163 - 163
* 44 164 2008-04-15
44 : 164 - 164
* 45 165 2008-04-18
45 : 165 - 165
* 46 166 2008-04-21
46 : 166 - 166
* 47 167 2008-04-24
47 : 167 - 167
* 48 168 2008-04-27
48 : 168 - 168
* 49 169 2008-04-30
49 : 169 - 169
* 50 170 2008-05-03
50 : 170 - 170
* 51 171 2008-05-06
51 : 171 - 171
* 52 172 2008-05-09
52 : 172 - 172
* 53 173 2008-05-12
53 : 173 - 173
* 54 174 2008-05-15
54 : 174 - 174
* 55 175 2008-05-18
55 : 175 - 175
* 56 176 2008-05-21
56 : 176 - 176
* 57 177 2008-05-24
57 : 177 - 177
* 58 178 2008-05-27
58 : 178 - 178
* 59 179 2008-05-31
59 : 179 - 179
* 60 180 2008-06-03
60 : 180 - 180
* 61 181 2008-06-06
61 : 181 - 181
* 62 182 2008-06-09
62 : 182 - 182
* 63 183 2008-06-12
63 : 183 - 183
* 64 184 2008-06-15
64 : 184 - 184
* 65 185 2008-06-18
65 : 185 - 185
* 66 186 2008-06-21
66 : 186 - 186
* 67 187 2008-06-24
67 : 187 - 187
* 68 188 2008-06-27
68 : 188 - 188
* 69 189 2008-06-30
69 : 189 - 189
* 70 190 2008-07-03
70 : 190 - 190
* 71 191 2008-07-06
71 : 191 - 191
* 72 192 2008-07-09
72 : 192 - 192
* 73 193 2008-07-12
73 : 193 - 193
* 74 194 2008-07-15
74 : 194 - 194
* 75 195 2008-07-18
75 : 195 - 195
* 76 196 2008-07-21
76 : 196 - 196
* 77 197 2008-07-24
77 : 197 - 197
* 78 198 2008-07-27
78 : 198 - 198
* 79 199 2008-07-31
79 : 199 - 199
* 80 200 2008-08-03
80 : 200 - 200
* 81 201 2008-08-06
81 : 201 - 201
* 82 202 2008-08-09
82 : 202 - 202
* 83 203 2008-08-12
83 : 203 - 203
* 84 204 2008-08-15
84 : 204 - 204
* 85 205 2008-08-18
85 : 205 - 205
* 86 206 2008-08-21
86 : 206 - 206
* 87 207 2008-08-24
87 : 207 - 207
* 88 208 2008-08-27
88 : 208 - 208
* 89 209 2008-08-31
89 : 209 - 209
* 90 210 2008-09-03
90 : 210 - 210
* 91 211 2008-09-06
91 : 211 - 211
* 92 212 2008-09-09
92 : 212 - 212
* 93 213 2008-09-12
93 : 213 - 213
* 94 214 2008-09-15
94 : 214 - 214
* 95 215 2008-09-18
95 : 215 - 215
* 96 216 2008-09-21
96 : 216 - 216
* 97 217 2008-09-24
97 : 217 - 217
* 98 218 2008-09-27
98 : 218 - 218
* 99 219 2008-09-30
99 : 219 - 219
* 100 220 2008-10-03
100 : 220 - 220
* 101 221 2008-10-06
101 : 221 - 221
* 102 222 2008-10-09
102 : 222 - 222
* 103 223 2008-10-12
103 : 223 - 223
* 104 224 2008-10-15
104 : 224 - 224
* 105 225 2008-10-18
105 : 225 - 225
* 106 226 2008-10-21
106 : 226 - 226
* 107 227 2008-10-24
107 : 227 - 227
* 108 228 2008-10-27
108 : 228 - 228
* 109 229 2008-10-31
109 : 229 - 229
* 110 230 2008-11-03
110 : 230 - 230
* 111 231 2008-11-06
111 : 231 - 231
* 112 232 2008-11-09
112 : 232 - 232
* 113 233 2008-11-12
113 : 233 - 233
* 114 234 2008-11-15
114 : 234 - 234
* 115 235 2008-11-18
115 : 235 - 235
* 116 236 2008-11-21
116 : 236 - 236
* 117 237 2008-11-24
117 : 237 - 237
* 118 238 2008-11-27
118 : 238 - 238
* 119 239 2008-11-30
119 : 239 - 239
* 120 240 2008-12-03
120 : 240 - 240
* 121 241 2008-12-06
121 : 241 - 241
* 122 242 2008-12-09
122 : 242 - 242
* 123 243 2008-12-12
123 : 243 - 243
* 124 244 2008-12-15
124 : 244 - 244
* 125 245 2008-12-18
125 : 245 - 245
* 126 246 2008-12-21
126 : 246 - 246
* 127 247 2008-12-24
127 : 247 - 247
* 128 248 2008-12-27
128 : 248 - 248
* 129 249 2008-12-31
129 : 249 - 249
* 130 250 2009-01-03
130 : 250 - 250
* 131 251 2009-01-06
131 : 251 - 251
* 132 252 2009-01-09
132 : 252 - 252
* 133 253 2009-01-12
133 : 253 - 253
* 134 2009-01-15
134 : 254 - 254
* 135 2009-01-18
135 : 254 - 254
* 136 2009-01-21
136 : 254 - 254
* 137 2009-01-24
137 : 254 - 254
* 138 2009-01-27
138 : 254 - 254
* 139 2009-01-31
139 : 254 - 254
* 140 2009-02-03
140 : 254 - 254
* 141 2009-02-06
141 : 254 - 254
* 142 2009-02-09
142 : 254 - 254
* 143 2009-02-12
143 : 254 - 254
* 144 2009-02-15
144 : 254 - 254
* 145 2009-02-18
145 : 254 - 254
* 146 2009-02-21
146 : 254 - 254
* 147 2009-02-24
147 : 254 - 254
* 148 2009-02-27
148 : 254 - 254
* 149 2009-02-28
149 : 254 - 254
* 150 2009-03-03
150 : 254 - 254
* 151 2009-03-06
151 : 254 - 254
* 152 2009-03-09
152 : 254 - 254
* 153 2009-03-12
153 : 254 - 254
* 154 2009-03-15
154 : 254 - 254
* 155 2009-03-18
155 : 254 - 254
* 156 2009-03-21
156 : 254 - 254
* 157 2009-03-24
157 : 254 - 254
* 158 2009-03-27
158 : 254 - 254
* 159 2009-03-31
159 : 254 - 254
* 160 2009-04-03
160 : 254 - 254
* 161 2009-04-06
161 : 254 - 254
* 162 2009-04-09
162 : 254 - 254
* 163 2009-04-12
163 : 254 - 254
* 164 2009-04-15
164 : 254 - 254
* 165 2009-04-18
165 : 254 - 254
* 166 2009-04-21
166 : 254 - 254
* 167 2009-04-24
167 : 254 - 254
* 168 2009-04-27
168 : 254 - 254
* 169 2009-04-30
169 : 254 - 254
* 170 2009-05-03
170 : 254 - 254
* 171 2009-05-06
171 : 254 - 254
* 172 2009-05-09
172 : 254 - 254
* 173 2009-05-12
173 : 254 - 254
* 174 2009-05-15
174 : 254 - 254
* 175 2009-05-18
175 : 254 - 254
* 176 2009-05-21
176 : 254 - 254
* 177 2009-05-24
177 : 254 - 254
* 178 2009-05-27
178 : 254 - 254
* 179 2009-05-31
179 : 254 - 254
* 180 2009-06-03
180 : 254 - 254
* 181 2009-06-06
181 : 254 - 254
* 182 2009-06-09
182 : 254 - 254
* 183 2009-06-12
183 : 254 - 254
* 184 2009-06-15
184 : 254 - 254
* 185 2009-06-18
185 : 254 - 254
* 186 2009-06-21
186 : 254 - 254
* 187 2009-06-24
187 : 254 - 254
* 188 2009-06-27
188 : 254 - 254
* 189 2009-06-30
189 : 254 - 254
* 190 2009-07-03
190 : 254 - 254
* 191 2009-07-06
191 : 254 - 254
* 192 2009-07-09
192 : 254 - 254
* 193 2009-07-12
193 : 254 - 254
* 194 2009-07-15
194 : 254 - 254
* 195 2009-07-18
195 : 254 - 254
* 196 2009-07-21
196 : 254 - 254
* 197 2009-07-24
197 : 254 - 254
* 198 2009-07-27
198 : 254 - 254
* 199 2009-07-31
199 : 254 - 254
* 200 2009-08-03
200 : 254 - 254
* 201 2009-08-06
201 : 254 - 254
* 202 2009-08-09
202 : 254 - 254
* 203 2009-08-12
203 : 254 - 254
* 204 2009-08-15
204 : 254 - 254
* 205 2009-08-18
205 : 254 - 254
* 206 2009-08-21
206 : 254 - 254
* 207 2009-08-24
207 : 254 - 254
* 208 2009-08-27
208 : 254 - 254
* 209 2009-08-31
209 : 254 - 254
* 210 2009-09-03
210 : 254 - 254
* 211 2009-09-06
211 : 254 - 254
* 212 2009-09-09
212 : 254 - 254
* 213 2009-09-12
213 : 254 - 254
* 214 2009-09-15
214 : 254 - 254
* 215 2009-09-18
215 : 254 - 254
* 216 2009-09-21
216 : 254 - 254
* 217 2009-09-24
217 : 254 - 254
* 218 2009-09-27
218 : 254 - 254
* 219 2009-09-30
219 : 254 - 254
* 220 2009-10-03
220 : 254 - 254
* 221 2009-10-06
221 : 254 - 254
* 222 2009-10-09
222 : 254 - 254
* 223 2009-10-12
223 : 254 - 254
* 224 2009-10-15
224 : 254 - 254
* 225 2009-10-18
225 : 254 - 254
* 226 2009-10-21
226 : 254 - 254
* 227 2009-10-24
227 : 254 - 254
* 228 2009-10-27
228 : 254 - 254
* 229 2009-10-31
229 : 254 - 254
* 230 2009-11-03
230 : 254 - 254
* 231 2009-11-06
231 : 254 - 254
* 232 2009-11-09
232 : 254 - 254
* 233 2009-11-12
233 : 254 - 254
* 234 2009-11-15
234 : 254 - 254
* 235 2009-11-18
235 : 254 - 254
* 236 2009-11-21
236 : 254 - 254
* 237 2009-11-24
237 : 254 - 254
* 238 2009-11-27
238 : 254 - 254
* 239 2009-11-30
239 : 254 - 254
* 240 2009-12-03
240 : 254 - 254
* 241 2009-12-06
241 : 254 - 254
* 242 2009-12-09
242 : 254 - 254
* 243 2009-12-12
243 : 254 - 254
* 244 2009-12-15
244 : 254 - 254
* 245 2009-12-18
245 : 254 - 254
* 246 2009-12-21
246 : 254 - 254
* 247 2009-12-24
247 : 254 - 254
* 248 2009-12-27
248 : 254 - 254
* 249 2009-12-31
249 : 254 - 254
* 250 2010-01-03
250 : 254 - 254
* 251 2010-01-06
251 : 254 - 254
* 252 2010-01-09
252 : 254 - 254
* 253 2010-01-12
253 : 254 - 254
* 254 254 2099-12-31
254 : 254 - 254
}¢--- A540769.WK.JCL(MF15REBI) cre= mod=-. -------------------------------------
//YRPAREBI JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S01 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DBZF)
REBIND PACKAGE(MF.MF0000.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.58.49.394238 */
REBIND PACKAGE(MF.MF7200.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.31.18.786182 */
REBIND PACKAGE(MF.MF7200.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.58.52.378088 */
REBIND PACKAGE(MF.MF7200.(MFR0000176)) -
/* valid=Y, op=Y, lastBind=2008-09-11-13.20.25.314230 */
REBIND PACKAGE(MF.MF7230.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.58.53.323975 */
REBIND PACKAGE(MF.MF7230.(MFR0000176)) -
/* valid=Y, op=Y, lastBind=2008-09-11-13.20.26.229025 */
REBIND PACKAGE(MF.MF7230.(MFR0000178)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.34.45.517257 */
REBIND PACKAGE(MF.MF7240.(MFR0000148)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.20.443348 */
REBIND PACKAGE(MF.MF7240.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.31.21.267665 */
REBIND PACKAGE(MF.MF7240.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.58.53.887923 */
REBIND PACKAGE(MF.MF7250.(MFR0000135)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.20.913303 */
REBIND PACKAGE(MF.MF7250.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.31.21.628358 */
REBIND PACKAGE(MF.MF7250.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.58.54.212100 */
REBIND PACKAGE(MF.MF7260.(A18Q002824)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.21.212253 */
REBIND PACKAGE(MF.MF7260.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.31.22.177145 */
REBIND PACKAGE(MF.MF7260.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.58.54.429893 */
REBIND PACKAGE(MF.MF7270.(MFR0000148)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.21.947141 */
REBIND PACKAGE(MF.MF7270.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.31.22.722864 */
REBIND PACKAGE(MF.MF7270.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.58.54.887573 */
REBIND PACKAGE(MF.MF7275.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.58.55.485780 */
REBIND PACKAGE(MF.MF7275.(MFR0000176)) -
/* valid=Y, op=Y, lastBind=2008-09-11-13.20.26.918809 */
REBIND PACKAGE(MF.MF7280.(MFR0000086)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.22.460554 */
REBIND PACKAGE(MF.MF7280.(MFR0000135)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.22.679401 */
REBIND PACKAGE(MF.MF7310.(MFR0000001)) -
/* valid=Y, op=Y, lastBind=2008-07-11-13.42.05.486393 */
REBIND PACKAGE(MF.MF7310.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.58.58.417310 */
REBIND PACKAGE(MF.MF7310.(MFR0000174)) -
/* valid=Y, op=Y, lastBind=2008-07-14-16.57.54.845670 */
REBIND PACKAGE(MF.MF7320.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.31.32.793802 */
REBIND PACKAGE(MF.MF7320.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.59.02.140529 */
REBIND PACKAGE(MF.MF7320.(MFR0000178)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.34.46.404810 */
REBIND PACKAGE(MF.MF7380.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.31.41.413808 */
REBIND PACKAGE(MF.MF7380.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.59.06.038865 */
REBIND PACKAGE(MF.MF7380.(MFR0000178)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.34.50.767083 */
REBIND PACKAGE(MF.MF7500.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.31.42.686344 */
REBIND PACKAGE(MF.MF7500.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.59.21.575803 */
REBIND PACKAGE(MF.MF7500.(MFR0000178)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.34.51.531400 */
REBIND PACKAGE(MF.MF7550.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.31.46.420200 */
REBIND PACKAGE(MF.MF7550.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.59.23.350186 */
REBIND PACKAGE(MF.MF7550.(MFR0000176)) -
/* valid=Y, op=Y, lastBind=2008-09-11-13.20.29.196719 */
REBIND PACKAGE(MF.MF7730.(MFR0000190)) -
/* valid=Y, op=Y, lastBind=2008-11-17-16.16.45.439786 */
REBIND PACKAGE(MF.MF7770.(MFR0000148)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.32.791850 */
REBIND PACKAGE(MF.MF7770.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.59.25.246741 */
REBIND PACKAGE(MF.MF7770.(MFR0000178)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.34.52.435501 */
REBIND PACKAGE(MF.MF7790.(MFR0000178)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.34.52.735131 */
REBIND PACKAGE(MF.MF7801.(MFR0000135)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.33.378084 */
REBIND PACKAGE(MF.MF7801.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.31.48.518458 */
REBIND PACKAGE(MF.MF7801.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.59.26.032902 */
REBIND PACKAGE(MF.MF7930.(MFR0000135)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.34.072758 */
REBIND PACKAGE(MF.MF7930.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.31.50.099436 */
REBIND PACKAGE(MF.MF7930.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-16.59.26.941664 */
REBIND PACKAGE(MF.MF7990.(A18Q002824)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.34.623713 */
REBIND PACKAGE(MF.MF7990.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.34.563150 */
REBIND PACKAGE(MF.MF8210.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.35.959914 */
REBIND PACKAGE(MF.MF8210.(MFR0000176)) -
/* valid=Y, op=Y, lastBind=2008-09-11-13.20.30.636891 */
REBIND PACKAGE(MF.MF8210.(MFR0000178)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.34.54.696041 */
REBIND PACKAGE(MF.MF8500.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.31.687228 */
REBIND PACKAGE(MF.MF8500.(MFR0000160)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.38.270382 */
REBIND PACKAGE(MF.MF8500.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.36.879009 */
REBIND PACKAGE(MF.MF8600.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.33.084574 */
REBIND PACKAGE(MF.MF8600.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.37.849915 */
REBIND PACKAGE(MF.MF8600.(MFR0000176)) -
/* valid=Y, op=Y, lastBind=2008-09-11-13.20.31.793569 */
REBIND PACKAGE(MF.MF8610.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.33.437388 */
REBIND PACKAGE(MF.MF8610.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.38.236417 */
REBIND PACKAGE(MF.MF8610.(MFR0000176)) -
/* valid=Y, op=Y, lastBind=2008-09-11-13.20.32.121677 */
REBIND PACKAGE(MF.MF8620.(MFR0000148)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.40.203380 */
REBIND PACKAGE(MF.MF8620.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.33.842680 */
REBIND PACKAGE(MF.MF8620.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.38.514255 */
REBIND PACKAGE(MF.MF8630.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.34.932530 */
REBIND PACKAGE(MF.MF8630.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.39.135935 */
REBIND PACKAGE(MF.MF8630.(MFR0000176)) -
/* valid=Y, op=Y, lastBind=2008-09-11-13.20.32.350051 */
REBIND PACKAGE(MF.MF8640.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.35.243030 */
REBIND PACKAGE(MF.MF8640.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.39.429387 */
REBIND PACKAGE(MF.MF8640.(MFR0000176)) -
/* valid=Y, op=Y, lastBind=2008-09-11-13.20.32.652898 */
REBIND PACKAGE(MF.MF8650.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.35.774186 */
REBIND PACKAGE(MF.MF8650.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.39.733863 */
REBIND PACKAGE(MF.MF8650.(MFR0000176)) -
/* valid=Y, op=Y, lastBind=2008-09-11-13.20.32.916142 */
REBIND PACKAGE(MF.MF8660.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.36.153165 */
REBIND PACKAGE(MF.MF8660.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.40.048738 */
REBIND PACKAGE(MF.MF8660.(MFR0000176)) -
/* valid=Y, op=Y, lastBind=2008-09-11-13.20.33.203339 */
REBIND PACKAGE(MF.MF8670.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.36.425033 */
REBIND PACKAGE(MF.MF8670.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.40.290842 */
REBIND PACKAGE(MF.MF8670.(MFR0000176)) -
/* valid=Y, op=Y, lastBind=2008-09-11-13.20.33.619299 */
REBIND PACKAGE(MF.MF8800.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.44.281739 */
REBIND PACKAGE(MF.MF8800.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.44.020786 */
REBIND PACKAGE(MF.MF8800.(MFR0000178)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.34.55.812454 */
REBIND PACKAGE(MF.MF8810.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.45.083474 */
REBIND PACKAGE(MF.MF8810.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.44.293417 */
REBIND PACKAGE(MF.MF8810.(MFR0000178)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.34.56.215281 */
REBIND PACKAGE(MF.MF8910.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.44.859024 */
REBIND PACKAGE(MF.MF8940.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.48.823718 */
REBIND PACKAGE(MF.MF8940.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.45.805556 */
REBIND PACKAGE(MF.MF8940.(MFR0000178)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.34.56.456699 */
REBIND PACKAGE(MF.MF8950.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.49.631653 */
REBIND PACKAGE(MF.MF8950.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.46.068864 */
REBIND PACKAGE(MF.MF8950.(MFR0000178)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.34.56.723116 */
REBIND PACKAGE(MF.MF8960.(MFR0000148)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.47.941832 */
REBIND PACKAGE(MF.MF8960.(MFR0000157)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.50.885636 */
REBIND PACKAGE(MF.MF8960.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.46.674624 */
REBIND PACKAGE(MF.MF9100.(MFR0000167)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.04.47.138606 */
REBIND PACKAGE(MF.MF9999.(MFR0000154)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.48.393143 */
REBIND PACKAGE(MF.MFCG01.(MFR0000001)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.48.623363 */
REBIND PACKAGE(MF.YMFC001.(MFR00001495A537D8F)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.48.794856 */
REBIND PACKAGE(MF.YMFC001.(MFR00001575AD8A6B0)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.52.065812 */
REBIND PACKAGE(MF.YMFC001.(MFR00001795BB0D676)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.31.16.221202 */
REBIND PACKAGE(MF.YMFC101.(MFR000000158C65F00)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.50.800876 */
REBIND PACKAGE(MF.YMFC101.(MFR00000015947F2F7)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.51.098460 */
REBIND PACKAGE(MF.YMFC101.(MFR000008757FB5D95)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.51.345214 */
REBIND PACKAGE(MF.YMFC101.(MFR000009758A985B8)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.51.581540 */
REBIND PACKAGE(MF.YMFC101.(MFR0000106586D1977)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.51.789520 */
REBIND PACKAGE(MF.YMFC101.(MFR00001115902130B)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.51.996463 */
REBIND PACKAGE(MF.YMFC101.(MFR000011558C699FD)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.52.210053 */
REBIND PACKAGE(MF.YMFC101.(MFR000011658C6D754)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.52.393468 */
REBIND PACKAGE(MF.YMFC101.(MFR000012559785AC6)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.52.569275 */
REBIND PACKAGE(MF.YMFC101.(MFR000013659CA392C)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.52.770293 */
REBIND PACKAGE(MF.YMFC101.(MFR00001495A69EE34)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.53.019914 */
REBIND PACKAGE(MF.YMFC101.(MFR00001575AE06298)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.53.736938 */
REBIND PACKAGE(MF.YMFC101.(MFR00001665B0449A6)) -
/* valid=Y, op=Y, lastBind=2008-05-21-16.53.46.990777 */
REBIND PACKAGE(MF.YMFC101.(MFR00001665B1691E5)) -
/* valid=Y, op=Y, lastBind=2008-06-04-13.47.09.982734 */
REBIND PACKAGE(MF.YMFC101.(MFR00001665B16BEAC)) -
/* valid=Y, op=Y, lastBind=2008-06-04-16.57.07.614274 */
REBIND PACKAGE(MF.YMFC101.(MFR00001665B583863)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.14.31.099551 */
REBIND PACKAGE(MF.YMFC101.(MFR00001795B99375A)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.31.17.260791 */
REBIND PACKAGE(MF.YMFC101.(MFR00001905BFA82E8)) -
/* valid=Y, op=Y, lastBind=2008-11-24-11.16.57.566831 */
REBIND PACKAGE(MF.YMFC101.(MFR00001905BFACF62)) -
/* valid=Y, op=Y, lastBind=2008-11-24-16.44.40.320841 */
REBIND PACKAGE(MF.YMFC104.(MFR000008757ECD49F)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.54.662827 */
REBIND PACKAGE(MF.YMFC104.(MFR000011159020A5D)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.54.852431 */
REBIND PACKAGE(MF.YMFC104.(MFR0000125597853E8)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.55.055893 */
REBIND PACKAGE(MF.YMFC104.(MFR000013659F5F69D)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.55.276401 */
REBIND PACKAGE(MF.YMFC104.(MFR00001495A537D9F)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.55.550223 */
REBIND PACKAGE(MF.YMFC104.(MFR00001575AE06189)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.54.735048 */
REBIND PACKAGE(MF.YMFC104.(MFR00001665B0560D8)) -
/* valid=Y, op=Y, lastBind=2008-05-23-11.17.10.140470 */
REBIND PACKAGE(MF.YMFC104.(MFR00001665B1528AC)) -
/* valid=Y, op=Y, lastBind=2008-06-03-11.58.44.737922 */
REBIND PACKAGE(MF.YMFC104.(MFR00001665B1652B5)) -
/* valid=Y, op=Y, lastBind=2008-06-04-09.10.40.791011 */
REBIND PACKAGE(MF.YMFC104.(MFR00001665B16659D)) -
/* valid=Y, op=Y, lastBind=2008-06-04-10.36.24.065400 */
REBIND PACKAGE(MF.YMFC104.(MFR00001665B166E8C)) -
/* valid=Y, op=Y, lastBind=2008-06-04-11.12.12.761764 */
REBIND PACKAGE(MF.YMFC104.(MFR00001665B17B570)) -
/* valid=Y, op=Y, lastBind=2008-06-05-10.23.41.166169 */
REBIND PACKAGE(MF.YMFC104.(MFR00001665B50795F)) -
/* valid=Y, op=Y, lastBind=2008-07-18-11.50.53.992189 */
REBIND PACKAGE(MF.YMFC104.(MFR00001665B50B428)) -
/* valid=Y, op=Y, lastBind=2008-07-18-15.57.10.584340 */
REBIND PACKAGE(MF.YMFC104.(MFR00001665B54686D)) -
/* valid=Y, op=Y, lastBind=2008-07-21-11.25.49.871084 */
REBIND PACKAGE(MF.YMFC104.(MFR00001665B58385E)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.14.32.205732 */
REBIND PACKAGE(MF.YMFC104.(MFR00001795BE3F990)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.31.17.955662 */
REBIND PACKAGE(MF.YMFC104.(MFR00001825B719573)) -
/* valid=Y, op=Y, lastBind=2008-08-12-14.33.18.321316 */
REBIND PACKAGE(MF.YMFC104.(MFR00001825B719ADF)) -
/* valid=Y, op=Y, lastBind=2008-08-12-14.53.17.066622 */
REBIND PACKAGE(MF.YMFC104.(MFR00001825B71A64F)) -
/* valid=Y, op=Y, lastBind=2008-08-12-15.42.34.437004 */
REBIND PACKAGE(MF.YMFC104.(MFR00001825B71A8A7)) -
/* valid=Y, op=Y, lastBind=2008-08-12-16.59.10.257219 */
REBIND PACKAGE(MF.YMFC112.(MFR000008757ECD4BF)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.56.482211 */
REBIND PACKAGE(MF.YMFC112.(MFR000009758907BA8)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.56.846200 */
REBIND PACKAGE(MF.YMFC112.(MFR000011159020DA2)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.57.105532 */
REBIND PACKAGE(MF.YMFC112.(MFR000012559707BFA)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.57.413103 */
REBIND PACKAGE(MF.YMFC112.(MFR000013659C3E389)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.57.685955 */
REBIND PACKAGE(MF.YMFC112.(MFR00001495A537EAB)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.58.056752 */
REBIND PACKAGE(MF.YMFC112.(MFR00001575AB2617F)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.35.57.377525 */
REBIND PACKAGE(MF.YMFC112.(MFR00001665B16C45B)) -
/* valid=Y, op=Y, lastBind=2008-06-04-17.16.42.778729 */
REBIND PACKAGE(MF.YMFC112.(MFR00001665B17991D)) -
/* valid=Y, op=Y, lastBind=2008-06-05-08.26.46.882929 */
REBIND PACKAGE(MF.YMFC112.(MFR00001665B3D02E3)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.14.34.412054 */
REBIND PACKAGE(MF.YMFC118.(MFR00000015AF0405D)) -
/* valid=Y, op=Y, lastBind=2008-05-06-12.05.10.777902 */
REBIND PACKAGE(MF.YMFC118.(MFR000008757ECD4CB)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.59.580151 */
REBIND PACKAGE(MF.YMFC118.(MFR000011159020EC5)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.59.727159 */
REBIND PACKAGE(MF.YMFC118.(MFR000012559786009)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.59.826669 */
REBIND PACKAGE(MF.YMFC118.(MFR000013259940958)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.36.59.918416 */
REBIND PACKAGE(MF.YMFC118.(MFR0000134599033CF)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.00.005879 */
REBIND PACKAGE(MF.YMFC118.(MFR000013659C3E447)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.00.097571 */
REBIND PACKAGE(MF.YMFC118.(MFR00001495A5F3282)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.00.270600 */
REBIND PACKAGE(MF.YMFC118.(MFR00001575AB263DD)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.36.01.360070 */
REBIND PACKAGE(MF.YMFC118.(MFR00001665AF03346)) -
/* valid=Y, op=Y, lastBind=2008-05-06-11.12.33.096898 */
REBIND PACKAGE(MF.YMFC118.(MFR00001665AF0383F)) -
/* valid=Y, op=Y, lastBind=2008-05-06-11.33.42.928893 */
REBIND PACKAGE(MF.YMFC118.(MFR00001665AF06085)) -
/* valid=Y, op=Y, lastBind=2008-05-06-14.26.46.202183 */
REBIND PACKAGE(MF.YMFC118.(MFR00001665AF07EEC)) -
/* valid=Y, op=Y, lastBind=2008-05-06-16.35.09.606277 */
REBIND PACKAGE(MF.YMFC118.(MFR00001665AF401B0)) -
/* valid=Y, op=Y, lastBind=2008-05-09-08.39.04.834383 */
REBIND PACKAGE(MF.YMFC118.(MFR00001665AF40AE0)) -
/* valid=Y, op=Y, lastBind=2008-05-09-09.09.03.306446 */
REBIND PACKAGE(MF.YMFC118.(MFR00001665AF42174)) -
/* valid=Y, op=Y, lastBind=2008-05-09-10.43.03.605388 */
REBIND PACKAGE(MF.YMFC118.(MFR00001665AF435BE)) -
/* valid=Y, op=Y, lastBind=2008-05-09-12.15.22.348480 */
REBIND PACKAGE(MF.YMFC118.(MFR00001665AF96524)) -
/* valid=Y, op=Y, lastBind=2008-05-13-11.23.59.882006 */
REBIND PACKAGE(MF.YMFC118.(MFR00001665AF97D28)) -
/* valid=Y, op=Y, lastBind=2008-05-13-12.14.52.123603 */
REBIND PACKAGE(MF.YMFC118.(MFR00001665B040572)) -
/* valid=Y, op=Y, lastBind=2008-05-21-12.00.18.773446 */
REBIND PACKAGE(MF.YMFC118.(MFR00001665B3A0C15)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.14.37.272500 */
REBIND PACKAGE(MF.YMFC119.(MFR000009758B6C6FA)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.00.815848 */
REBIND PACKAGE(MF.YMFC119.(MFR0000111590212EF)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.01.054614 */
REBIND PACKAGE(MF.YMFC119.(MFR000012559785DCF)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.01.315776 */
REBIND PACKAGE(MF.YMFC119.(MFR00001495A38F920)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.01.725084 */
REBIND PACKAGE(MF.YMFC119.(MFR00001575AB263F4)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.36.01.799661 */
REBIND PACKAGE(MF.YMFC119.(MFR00001665B179FCB)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.14.37.668365 */
REBIND PACKAGE(MF.YMFC119.(MFR00001795B87C65B)) -
/* valid=Y, op=Y, lastBind=2008-11-13-12.31.20.020774 */
REBIND PACKAGE(MF.YMFC155.(MFR00000835767C4F9)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.02.883273 */
REBIND PACKAGE(MF.YMFC155.(MFR000008757ECD4F5)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.03.015436 */
REBIND PACKAGE(MF.YMFC155.(MFR000009758906FCC)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.03.103938 */
REBIND PACKAGE(MF.YMFC155.(MFR000011159020F16)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.03.184319 */
REBIND PACKAGE(MF.YMFC155.(MFR0000125597860A2)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.03.272739 */
REBIND PACKAGE(MF.YMFC155.(MFR00001495A537F3C)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.03.382582 */
REBIND PACKAGE(MF.YMFC155.(MFR00001575AB27299)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.36.03.063990 */
REBIND PACKAGE(MF.YMFC155.(MFR00001665B1806BB)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.14.39.114920 */
REBIND PACKAGE(MF.YMFC203.(MFR000008757ECD4FC)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.03.920770 */
REBIND PACKAGE(MF.YMFC203.(MFR000009758A5992A)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.04.003400 */
REBIND PACKAGE(MF.YMFC203.(MFR0000125595D1A14)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.04.091574 */
REBIND PACKAGE(MF.YMFC203.(MFR000013659B10432)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.04.215119 */
REBIND PACKAGE(MF.YMFC203.(MFR00001495A537F07)) -
/* valid=Y, op=Y, lastBind=2008-04-18-11.37.04.408254 */
REBIND PACKAGE(MF.YMFC203.(MFR00001575AB261D5)) -
/* valid=Y, op=Y, lastBind=2008-05-08-14.36.04.138171 */
REBIND PACKAGE(MF.YMFC203.(MFR00001665B1902FE)) -
/* valid=Y, op=Y, lastBind=2008-08-07-17.14.39.785975 */
}¢--- A540769.WK.JCL(MF15REBU) cre=2008-11-25 mod=2008-11-25-12.33.18 F540769 ---
//YRPAREBU JOB (CP00,KE50),
// 'DB2',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*** UNLOAD WITH LIMIT 0 *********************************************
//S01 EXEC PGM=DSNUTILB,PARM=(DBAF,'YRPAREBU.REBUI')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
REBUILD INDEX (ALL) TABLESPACE MF01A1A.A150A
SHRLEVEL REFERENCE
SORTDEVT DISK SORTNUM 100
STATISTICS UPDATE ALL
}¢--- A540769.WK.JCL(MF15RERU) cre= mod=-. -------------------------------------
//YRPAREBU JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** rebuild indexes with runstats for ts MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAREBU.REBUI')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
REBUILD INDEX (ALL) TABLESPACE MF01A1Z.A150A
SHRLEVEL REFERENCE
SORTDEVT DISK SORTNUM 255
STATISTICS UPDATE ALL
//YRPARUNS JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//*** runstats for tablespace only MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPARUNS.RUNSTA')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
RUNSTATS TABLESPACE MF01A1Z.A150A
SORTDEVT DISK SORTNUM 100
UPDATE ALL
SHRLEVEL CHANGE
}¢--- A540769.WK.JCL(MF15ULI0) cre= mod=-. -------------------------------------
//YRPAULI0 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload limit 0 tb OA1Z.TMF150A1 ts MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAULI0.UNLI0')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..UNLLIM0')
DATACLAS (EYN08P) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..PUNLIM0')
DATACLAS (EYN08P) MGMTCLAS(COM#A045)
UNLOAD TABLESPACE MF01A1Z.A150A PART 1
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL CHANGE ISOLATION UR
FROM TABLE OA1Z.TMF150A1 LIMIT 0
}¢--- A540769.WK.JCL(MF15UNLO) cre= mod=-. -------------------------------------
//YRPAU001 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU001.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 001:008
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU002 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU002.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 009:016
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU003 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU003.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 017:024
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU004 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU004.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 025:032
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU005 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU005.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 033:040
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU006 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU006.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 041:048
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU007 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU007.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 049:056
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU008 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU008.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 057:064
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU009 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU009.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 065:071
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU010 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU010.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 072:079
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU011 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU011.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 080:087
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU012 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU012.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 088:095
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU013 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU013.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 096:103
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU014 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU014.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 104:111
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU015 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU015.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 112:119
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU016 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU016.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 120:127
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU017 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU017.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 128:135
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU018 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU018.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 136:143
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU019 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU019.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 144:151
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU020 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU020.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 152:159
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU021 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU021.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 160:167
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU022 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU022.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 168:175
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU023 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU023.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 176:183
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU024 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU024.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 184:191
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU025 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU025.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 192:198
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU026 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU026.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 199:206
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU027 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU027.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 207:214
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU028 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU028.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 215:222
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU029 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU029.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 223:230
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU030 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU030.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 231:238
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU031 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU031.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 239:246
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
//YRPAU032 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//***** unload tb OA1Z.TMF150A1 in MF01A1Z.A150A
//S01 EXEC PGM=DSNUTILB,PARM=(DBZF,'YRPAU032.UNLOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TREC DSN('DSN.REPA.&DB..&SN..P&PA..UNL')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
TEMPLATE TPUN DSN('DSN.REPA.&DB..&SN..P&PA..PUN')
DATACLAS (ENN0X) MGMTCLAS(COM#A045)
LISTDEF LL INCLUDE TABLESPACE MF01A1Z.A150A PARTLEVEL
UNLOAD TABLESPACE MF01A1Z.A150A PART 247:254
PUNCHDDN TPUN UNLDDN TREC
SHRLEVEL REFERENCE
}¢--- A540769.WK.JCL(MVEXTIMP) cre=2014-04-23 mod=2014-04-23-14.36.08 A540769 ---
//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)
)
}¢--- A540769.WK.JCL(MVEXTLOA) cre=2014-04-02 mod=2014-04-02-18.30.58 A540769 ---
//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
//SYSIN DD *
TEMPLATE P0
DSN(A540769.CMD.RZZ.REC)
DISP(OLD,KEEP,KEEP)
LOAD DATA LOG NO RESUME YES INDDN(P0)
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
WORKDDN(TSYUTD,TSOUTD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE OA1P.TQZ050CMD
(
RZ POSITION( 1 )
VARCHAR ,
DBSYS POSITION( 6 )
VARCHAR ,
DBMBR POSITION( 9 )
CHAR( 4) ,
SYSTEM POSITION( 13 )
CHAR( 4) ,
TST POSITION( 17 )
TIMESTAMP EXTERNAL( 26) ,
VERB POSITION( 43 )
CHAR( 8) ,
CMD POSITION( 51 )
VARCHAR ,
CORR POSITION( 125 )
CHAR( 8) ,
AUTH POSITION( 133 )
CHAR( 8) ,
OPERATOR POSITION( 141 )
CHAR( 8) ,
LOAD POSITION( 149 )
DATE EXTERNAL( 10)
)
COPY TABLESPACE QZ01A1P.A050A FULL YES COPYDDN(TCOPYD)
}¢--- A540769.WK.JCL(MVEXTUNL) cre=2014-04-02 mod=2014-04-02-16.54.34 A540769 ---
//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
//REC DD DISP=(MOD,DELETE),DSN=A540769.CMD.RZ4.REC
//PUN DD DISP=(MOD,DELETE),DSN=A540769.CMD.RZ4.PUN
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN DD *
DSN SYSTEM(DP4G)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSPUNCH DD RECFM=FB,LRECL=80,
// DISP=(NEW,CATLG),DSN=*.DEL.PUN,
// SPACE=(TRK,(1,1)),MGMTCLAS=COM#A069
//SYSREC00 DD DISP=(NEW,CATLG),DSN=*.DEL.REC,
// SPACE=(CYL,(2,1000)),MGMTCLAS=COM#A069
//SYSIN DD * -- nur jedes 100te query
select 'RZ4' rz, '?' dbSys, t.*, current date load
from oa1p.tAdmCmd t
;
}¢--- A540769.WK.JCL(NET) cre=2006-11-20 mod=2006-11-20-12.14.36 F540769 -------
//A540769A JOB (CP00,KE50) 00010002
//*NET NETID=A540769,NHOLD=2 00020002
//S1 EXEC PGM=IEFBR14 00030001
//A540769B JOB (CP00,KE50) 00040002
//*NET NETID=A540769,RELEASE=A540769A 00050002
//S1 EXEC PGM=IEFBR14 00060001
}¢--- A540769.WK.JCL(NETA) cre=2006-11-20 mod=2006-11-20-12.15.55 F540769 ------
//A540769A JOB (CP00,KE50) 00010001
//*NET NETID=A540769,NHOLD=2 00020001
//S1 EXEC PGM=IEFBR14 00030000
}¢--- A540769.WK.JCL(NETB) cre=2006-11-20 mod=2006-11-20-14.02.29 F540769 ------
//A540769C JOB (CP00,KE50) 00010002
//*NET NETID=A540769,RELEASE=A540769A 00020002
//S1 EXEC PGM=IEFBR14 00030000
}¢--- A540769.WK.JCL(NIBPZZ) cre=2010-03-26 mod=2010-03-26-17.01.04 A540769 ----
//A540769P JOB (PD00,KE50,,SP00000000),
// 'FULLCOPY',
// MSGCLASS=T,TIME=1440,LINES=100000
//*MAIN CLASS=LOG
//STOP EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DBOF)
-STO DB(NI02A1P) SPACENAM(*)
-DIS DB(NI02A1P) SPACENAM(*) LIMIT(*)
-STO DB(NI02A1P) SPACENAM(*)
-DIS DB(NI02A1P) SPACENAM(*) LIMIT(*)
//ALTER EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBOF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
ALTER INDEX OA1P.INI100A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI100A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI100A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI100S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI101A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI101S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI103A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI103S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI104A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI104S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI105A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI105S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI107A1 BUFFERPOOL BP41;
ALTER INDEX OA1P02.INI107A1 BUFFERPOOL BP41;
ALTER INDEX OA1P01.INI107A1 BUFFERPOOL BP41;
ALTER INDEX OA1P02.INI107S1 BUFFERPOOL BP41;
ALTER INDEX OA1P01.INI107S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI107S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI120A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130A5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130A6 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI131S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI132A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI132A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI132A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI132A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI132A5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI132A6 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI140A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI140A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI140S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI142A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI142A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150A5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150A6 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150S2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150S3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150S4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150S5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150S6 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI200B1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI200S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI201A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI201S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI203A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI203S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI205A1 BUFFERPOOL BP41;
ALTER INDEX OA1P02.INI205A1 BUFFERPOOL BP41;
ALTER INDEX OA1P01.INI205A1 BUFFERPOOL BP41;
ALTER INDEX OA1P02.INI205S1 BUFFERPOOL BP41;
ALTER INDEX OA1P01.INI205S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI205S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI210A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI211A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250A5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250A6 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250S2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250S3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250S4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250S5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300A0 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300A1 BUFFERPOOL BP41;
COMMIT;
ALTER INDEX OA1P.INI300A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300A5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300A8 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300A9 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300H0 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300H1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300H4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300H8 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300H9 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T6 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T7 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T8 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T9 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI310A0 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI310A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI310A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI310A8 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI310A9 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI350A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI350A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI350A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI350S0 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI400A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI400A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI400A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI400A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI500A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI600A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI601A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI602A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI603A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI605A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI606A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI607A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI608A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI609A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI609A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI610A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI611A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI612A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI613A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI613H1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI614A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI615A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI620A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI621A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI630A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI630A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI640A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI650A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI660A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI670A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI670A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI671A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI672A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI673A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI674A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI710A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.XNI900A0 BUFFERPOOL BP41;
ALTER INDEX OA1P.XNI901A0 BUFFERPOOL BP41;
ALTER INDEX OA1P.XNI910A0 BUFFERPOOL BP41;
ALTER INDEX OA1P.XNI910A1 BUFFERPOOL BP41;
COMMIT;
ALTER TABLESPACE NI02A1P.A100A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A100S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A101A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A101S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A103A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A103S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A104A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A104S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A105A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A105S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A107A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A107A01 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A107A02 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A107S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A107S01 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A107S02 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A120A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A130A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A130S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A131A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A131S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A132A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A140A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A140S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A142A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A150A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A150S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A200B BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A200S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A201A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A201S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A203A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A203S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A205A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A205A01 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A205A02 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A205S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A205S01 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A205S02 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A210A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A211A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A250A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A250S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A300A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A300H BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A300S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A300T BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A310A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A350A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A350S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A400A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A401A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A500A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A600A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A601A BUFFERPOOL BP42;
COMMIT;
ALTER TABLESPACE NI02A1P.A602A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A603A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A604A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A605A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A606A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A607A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A608A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A609A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A610A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A611A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A612A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A613A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A613H BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A614A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A615A BUFFERPOOL BP42;
COMMIT;
ALTER TABLESPACE NI02A1P.A620A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A621A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A630A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A640A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A650A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A660A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A670A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A671A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A672A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A673A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A674A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A680A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A710A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A888A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A889A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A900A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A901A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A910A BUFFERPOOL BP42;
COMMIT;
//START EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DBOF)
-STA DB(NI02A1P) SPACENAM(*)
-DIS DB(NI02A1P) SPACENAM(*) LIMIT(*)
}¢--- A540769.WK.JCL(NI02BP) cre=2010-03-26 mod=2010-03-26-17.00.03 A540769 ----
//A540769P JOB (PD00,KE50,,SP00000000),
// 'FULLCOPY',
// MSGCLASS=T,TIME=1440,LINES=100000
//*MAIN CLASS=LOG
//STOP EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DBOF)
-STO DB(NI02A1P) SPACENAM(*)
-DIS DB(NI02A1P) SPACENAM(*) LIMIT(*)
-STO DB(NI02A1P) SPACENAM(*)
-DIS DB(NI02A1P) SPACENAM(*) LIMIT(*)
//ALTER EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBOF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
ALTER INDEX OA1P.INI100A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI100A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI100A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI100S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI101A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI101S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI103A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI103S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI104A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI104S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI105A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI105S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI107A1 BUFFERPOOL BP41;
ALTER INDEX OA1P02.INI107A1 BUFFERPOOL BP41;
ALTER INDEX OA1P01.INI107A1 BUFFERPOOL BP41;
ALTER INDEX OA1P02.INI107S1 BUFFERPOOL BP41;
ALTER INDEX OA1P01.INI107S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI107S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI120A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130A5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130A6 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI130S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI131S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI132A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI132A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI132A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI132A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI132A5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI132A6 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI140A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI140A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI140S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI142A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI142A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150A5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150A6 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150S2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150S3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150S4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150S5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI150S6 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI200B1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI200S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI201A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI201S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI203A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI203S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI205A1 BUFFERPOOL BP41;
ALTER INDEX OA1P02.INI205A1 BUFFERPOOL BP41;
ALTER INDEX OA1P01.INI205A1 BUFFERPOOL BP41;
ALTER INDEX OA1P02.INI205S1 BUFFERPOOL BP41;
ALTER INDEX OA1P01.INI205S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI205S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI210A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI211A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250A5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250A6 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250S2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250S3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250S4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI250S5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300A0 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300A4 BUFFERPOOL BP41;
COMMIT;
ALTER INDEX OA1P.INI300A5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300A8 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300A9 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300H0 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300H1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300H4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300H8 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300H9 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300S1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T5 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T6 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T7 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T8 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI300T9 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI310A0 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI310A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI310A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI310A8 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI310A9 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI350A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI350A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI350A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI350S0 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI400A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI400A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI400A3 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI400A4 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI500A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI600A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI601A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI602A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI603A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI605A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI606A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI607A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI608A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI609A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI609A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI610A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI611A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI612A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI613A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI613H1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI614A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI615A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI620A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI621A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI630A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI630A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI640A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI650A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI660A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI670A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI670A2 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI671A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI672A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI673A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI674A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.INI710A1 BUFFERPOOL BP41;
ALTER INDEX OA1P.XNI900A0 BUFFERPOOL BP41;
ALTER INDEX OA1P.XNI901A0 BUFFERPOOL BP41;
ALTER INDEX OA1P.XNI910A0 BUFFERPOOL BP41;
ALTER INDEX OA1P.XNI910A1 BUFFERPOOL BP41;
COMMIT;
ALTER TABLESPACE NI02A1P.A100A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A100S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A101A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A101S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A103A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A103S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A104A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A104S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A105A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A105S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A107A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A107A01 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A107A02 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A107S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A107S01 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A107S02 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A120A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A130A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A130S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A131A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A131S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A132A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A140A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A140S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A142A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A150A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A150S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A200B BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A200S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A201A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A201S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A203A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A203S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A205A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A205A01 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A205A02 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A205S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A205S01 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A205S02 BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A210A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A211A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A250A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A250S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A300A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A300H BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A300S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A300T BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A310A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A350A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A350S BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A400A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A401A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A500A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A600A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A601A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A602A BUFFERPOOL BP42;
COMMIT;
ALTER TABLESPACE NI02A1P.A603A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A604A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A605A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A606A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A607A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A608A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A609A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A610A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A611A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A612A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A613A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A613H BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A614A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A615A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A620A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A621A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A630A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A640A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A650A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A660A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A670A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A671A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A672A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A673A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A674A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A680A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A710A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A888A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A889A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A900A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A901A BUFFERPOOL BP42;
ALTER TABLESPACE NI02A1P.A910A BUFFERPOOL BP42;
COMMIT;
//START EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DBOF)
-STA DB(NI02A1P) SPACENAM(*)
-DIS DB(NI02A1P) SPACENAM(*) LIMIT(*)
}¢--- A540769.WK.JCL(NI02BPOR) cre=2010-03-26 mod=2010-03-26-17.04.22 A540769 ---
//A540769P JOB (PD00,KE50,,SP00000000),
// 'FULLCOPY',
// MSGCLASS=T,TIME=1440,LINES=100000
//*MAIN CLASS=LOG
//STOP EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DBOF)
-STO DB(NI02A1P) SPACENAM(*)
-DIS DB(NI02A1P) SPACENAM(*) LIMIT(*)
-STO DB(NI02A1P) SPACENAM(*)
-DIS DB(NI02A1P) SPACENAM(*) LIMIT(*)
//ALTER EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBOF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
ALTER INDEX OA1P.INI100A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI100A2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI100A3 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI100S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI101A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI101S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI103A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI103S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI104A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI104S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI105A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI105S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI107A1 BUFFERPOOL BP1;
ALTER INDEX OA1P02.INI107A1 BUFFERPOOL BP1;
ALTER INDEX OA1P01.INI107A1 BUFFERPOOL BP1;
ALTER INDEX OA1P02.INI107S1 BUFFERPOOL BP1;
ALTER INDEX OA1P01.INI107S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI107S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI120A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI130A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI130A2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI130A3 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI130A4 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI130A5 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI130A6 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI130S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI131S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI132A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI132A2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI132A3 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI132A4 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI132A5 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI132A6 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI140A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI140A2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI140S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI142A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI142A2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI150A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI150A2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI150A3 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI150A4 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI150A5 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI150A6 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI150S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI150S2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI150S3 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI150S4 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI150S5 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI150S6 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI200B1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI200S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI201A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI201S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI203A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI203S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI205A1 BUFFERPOOL BP1;
ALTER INDEX OA1P02.INI205A1 BUFFERPOOL BP1;
ALTER INDEX OA1P01.INI205A1 BUFFERPOOL BP1;
ALTER INDEX OA1P02.INI205S1 BUFFERPOOL BP1;
ALTER INDEX OA1P01.INI205S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI205S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI210A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI211A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI250A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI250A2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI250A3 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI250A4 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI250A5 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI250A6 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI250S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI250S2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI250S3 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI250S4 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI250S5 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300A0 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300A4 BUFFERPOOL BP1;
COMMIT;
ALTER INDEX OA1P.INI300A5 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300A8 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300A9 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300H0 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300H1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300H4 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300H8 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300H9 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300S1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300T1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300T2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300T3 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300T4 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300T5 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300T6 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300T7 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300T8 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI300T9 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI310A0 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI310A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI310A4 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI310A8 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI310A9 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI350A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI350A2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI350A3 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI350S0 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI400A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI400A2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI400A3 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI400A4 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI500A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI600A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI601A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI602A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI603A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI605A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI606A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI607A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI608A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI609A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI609A2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI610A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI611A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI612A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI613A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI613H1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI614A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI615A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI620A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI621A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI630A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI630A2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI640A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI650A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI660A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI670A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI670A2 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI671A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI672A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI673A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI674A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.INI710A1 BUFFERPOOL BP1;
ALTER INDEX OA1P.XNI900A0 BUFFERPOOL BP1;
ALTER INDEX OA1P.XNI901A0 BUFFERPOOL BP1;
ALTER INDEX OA1P.XNI910A0 BUFFERPOOL BP1;
ALTER INDEX OA1P.XNI910A1 BUFFERPOOL BP1;
COMMIT;
ALTER TABLESPACE NI02A1P.A100A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A100S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A101A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A101S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A103A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A103S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A104A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A104S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A105A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A105S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A107A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A107A01 BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A107A02 BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A107S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A107S01 BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A107S02 BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A120A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A130A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A130S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A131A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A131S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A132A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A140A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A140S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A142A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A150A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A150S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A200B BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A200S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A201A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A201S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A203A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A203S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A205A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A205A01 BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A205A02 BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A205S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A205S01 BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A205S02 BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A210A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A211A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A250A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A250S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A300A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A300H BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A300S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A300T BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A310A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A350A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A350S BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A400A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A401A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A500A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A600A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A601A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A602A BUFFERPOOL BP2;
COMMIT;
ALTER TABLESPACE NI02A1P.A603A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A604A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A605A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A606A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A607A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A608A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A609A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A610A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A611A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A612A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A613A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A613H BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A614A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A615A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A620A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A621A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A630A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A640A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A650A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A660A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A670A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A671A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A672A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A673A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A674A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A680A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A710A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A888A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A889A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A900A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A901A BUFFERPOOL BP2;
ALTER TABLESPACE NI02A1P.A910A BUFFERPOOL BP2;
COMMIT;
//START EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DBOF)
-STA DB(NI02A1P) SPACENAM(*)
-DIS DB(NI02A1P) SPACENAM(*) LIMIT(*)
}¢--- A540769.WK.JCL(NI02PART) cre=2010-04-15 mod=2010-04-16-07.03.40 A540769 ---
//YNI02129 JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG ,SYSTEM=S12
//*********************************************************************
//*
//* worklist ni02129c: repartion indexes of tni250a101a
//* Anpassungen:
//* c dbaf SSID all
//* c a1a A1? all
//* dbaRb SSID
//*
//*********************************************************************
//SQL EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
-- Created by A540769 on 2010/04/15 at 16:29
-- Generated during change management analyze for change ID = 7827
-- Generated by Compare Apply by A540769 on 2010/04/15 at 16:30
SET CURRENT SQLID = 'S100447' ;
SET CURRENT SCHEMA='OA1A';
ALTER TABLE OA1A.TNI250A101A
DROP PRIMARY KEY ;
DROP INDEX OA1A.INI250A1 ;
COMMIT ;
DROP INDEX OA1A.INI250A2 ;
COMMIT ;
DROP INDEX OA1A.INI250A3 ;
COMMIT ;
DROP INDEX OA1A.INI250A4 ;
COMMIT ;
DROP INDEX OA1A.INI250A5 ;
COMMIT ;
DROP INDEX OA1A.INI250A6 ;
COMMIT ;
CREATE UNIQUE INDEX OA1A.INI250A1
ON OA1A.TNI250A101A
(CLSTRID ASC,
POSID ASC,
ASOFDT ASC,
TSID ASC,
PLATTFORMID ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
CREATE UNIQUE INDEX OA1A.INI250A2
ON OA1A.TNI250A101A
(CLSTRID ASC,
POSID ASC,
PERENDDT ASC,
TSID ASC,
PLATTFORMID ASC,
ASOFDT ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
CREATE INDEX OA1A.INI250A3
ON OA1A.TNI250A101A
(DATAPOSAM ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
CREATE INDEX OA1A.INI250A4
ON OA1A.TNI250A101A
(DATAPOSRET ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
CREATE INDEX OA1A.INI250A5
ON OA1A.TNI250A101A
(DATAPOSFLO ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
CREATE INDEX OA1A.INI250A6
ON OA1A.TNI250A101A
(ASOFDT ASC)
PARTITIONED
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 15
GBPCACHE CHANGED
NOT CLUSTER
COMPRESS NO
BUFFERPOOL BP1
CLOSE NO
COPY NO
DEFER YES
DEFINE YES;
COMMIT ;
ALTER TABLE OA1A.TNI250A101A
ADD CONSTRAINT CLSTRID PRIMARY KEY
(CLSTRID,POSID,ASOFDT,TSID,PLATTFORMID) ;
COMMIT;
// IF RC <= 4 THEN
//UTIL EXEC PGM=DSNUTILB,
// PARM='DBAF,YNI02PAR.REBUILD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
REBUILD INDEX (ALL) TABLESPACE NI02A1A.A250A
SORTDEVT DISK
WORKDDN(TSYUTD)
STATISTICS UPDATE ALL
SHRLEVEL CHANGE
// ENDIF
// IF RC <= 4 THEN
//REBIND2 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DBAF)
REBIND PACKAGE(NI.NI6210.(IPC0000185)) ;
REBIND PACKAGE(NI.NI6260.(IPC0000372)) ;
REBIND PACKAGE(NI.NI6260.(IPC0000367)) ;
REBIND PACKAGE(NI.NI6260.(IPC0000391)) ;
REBIND PACKAGE(NI.NI6860.(IPC0000358)) ;
REBIND PACKAGE(NI.NI6860.(IPC0000367)) ;
REBIND PACKAGE(NI.NI6860.(IPC0000391)) ;
REBIND PACKAGE(NI.NI7600.(IPC0000358)) ;
REBIND PACKAGE(NI.NI7600.(IPC0000367)) ;
REBIND PACKAGE(NI.NI7600.(IPC0000391)) ;
REBIND PACKAGE(NI.NI9CNEW.(TEST000055)) ;
REBIND PACKAGE(NI.NI9CNE2.(TEST000055)) ;
REBIND PACKAGE(NI.NI9700.(IPC0000358)) ;
REBIND PACKAGE(NI.NI9700.(IPC0000367)) ;
REBIND PACKAGE(NI.NI9700.(IPC0000391)) ;
REBIND PACKAGE(NI.NI9740.(TRAI000369)) ;
REBIND PACKAGE(NI.NI9740.(IPC0000395)) ;
REBIND PACKAGE(NI.NI9740.(IPC0000367)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC0000041550ED996)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC0000196594FE4D3)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC000020959C149A1MVS)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC000022959F87DDEMVS)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00002455A8D4BAE)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00002455A8D4BAEMVS)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00003135C36079B)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00003305C8E767D)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00003445CD2D78F)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00003675E207B51)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00003915E42E370)) ;
REBIND PACKAGE(NI.YNICONT.(TRAI0002355AE1CBF6MVS)) ;
REBIND PACKAGE(NI.YNICONT.(TRAI0002355AE1D6ABMVS)) ;
REBIND PACKAGE(NI.YNICONT.(TRAI0002355AE1D9BFMVS)) ;
REBIND PACKAGE(NI.YNICONT.(TRAI0002355AE1EDDBMVS)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003305CA4CE8D)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003445CDAFD49)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003465D08985E)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003655D875C57)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003585D8CBBB3)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003665D8CBBE5)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003755DC19E75)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003725DDA7863)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003845DDE9ACE)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003795E262945)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003945E44149B)) ;
REBIND PACKAGE(NI.YNICTEU.(IPC00003795E262940)) ;
REBIND PACKAGE(NI.YNICTEU.(IPC00003945E4D3A84)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87CDE8)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87D31A)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87D77E)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87DB7B)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87DEAD)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87E39C)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87E637)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87EC34)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88C116)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88C760)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88C92E)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88D039)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88D112)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88D5DE)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88FF94)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C89039E)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C890A21)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C890D33)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C89192E)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C891A40)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C892125)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C89281D)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C892B54)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C892F68)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C893546)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C893771)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8A1610)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8A30DF)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8A3475)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E27A2)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E2921)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E2C41)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E3AAD)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E3D2E)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E3EB1)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E40F8)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E4337)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E4BE2)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E4D56)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E4E26)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E50F9)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E51EA)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E5AB6)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E6728)) ;
REBIND PACKAGE(NI.YNINP03.(IPC00003305CA09D5F)) ;
REBIND PACKAGE(NI.YNINP03.(IPC00003675E3043E7)) ;
REBIND PACKAGE(NI.YNINP03.(IPC00003915E417509)) ;
REBIND PACKAGE(NI.YNINP04.(TRAI0003345C8FCEBF)) ;
REBIND PACKAGE(NI.YNINP04.(TRAI0003345C90C0EA)) ;
REBIND PACKAGE(NI.YNINP04.(TRAI0003345C90C3EA)) ;
REBIND PACKAGE(NI.YNINP04.(TRAI0003345C90C5FA)) ;
REBIND PACKAGE(NI.YNINP04.(TRAI0003345C90C84C)) ;
REBIND PACKAGE(NI.YNINP04.(TRAI0003345C90C9B0)) ;
REBIND PACKAGE(NI.YNINP04.(IPC00003305C920DF3)) ;
REBIND PACKAGE(NI.YNINP04.(IPC00003675E2DA5F5)) ;
REBIND PACKAGE(NI.YNIPACG.(IPC00003675E207B5D)) ;
REBIND PACKAGE(NI.YNIPACG.(IPC00003915E3AACE7)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC000012956E6945A)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC000017558921656)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC000019258D7D123)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC0000196594FD8E1MVS)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC000020959C7F35C)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC000020959C7F35CMVS)) ;
REBIND PACKAGE(NI.YNIPAMG.(TRAI0003375BB09C7D)) ;
REBIND PACKAGE(NI.YNIPAMG.(TRAI0003375BB09C7DMVS)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC00002825BB212CF)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC00002825BB212CFMVS)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC00003445CDD33F6)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC00003465D08AEE5)) ;
REBIND PACKAGE(NI.YNIPAMG.(TRAI0003285D0B90B6)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC00003675E207B1E)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC00003915E3AACE9)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC000012956EFB617)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00001925908853E)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC000019659870A3BMVS)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC000020959D4BAEAMVS)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC000022959F887E0MVS)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00002455A8D4C15)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00002455A8D4C15MVS)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00003135C361757)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00003305C83AA15)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00003445CDD3489)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00003465D07CB5B)) ;
REBIND PACKAGE(NI.YNIPAMU.(TRAI0003285D0B8C38)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00003675E207B6B)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00003915E3AACEB)) ;
REBIND PACKAGE(NI.YNIPFLG.(IPC000018057D68CF4)) ;
REBIND PACKAGE(NI.YNIPFLG.(IPC0000196594FD973MVS)) ;
REBIND PACKAGE(NI.YNIPFLG.(IPC000020959C7EA9B)) ;
REBIND PACKAGE(NI.YNIPFLG.(IPC000020959C7EA9BMVS)) ;
REBIND PACKAGE(NI.YNIPFLG.(TRAI0003345C93B0E1)) ;
REBIND PACKAGE(NI.YNIPFLG.(IPC00003675E207B23)) ;
REBIND PACKAGE(NI.YNIPFLG.(IPC00003915E3AACED)) ;
REBIND PACKAGE(NI.YNIPREG.(IPC000020959C7C528)) ;
REBIND PACKAGE(NI.YNIPREG.(IPC00003675E207B1F)) ;
REBIND PACKAGE(NI.YNIPREG.(IPC00003915E4AB399)) ;
REBIND PACKAGE(NI.YNIPTEG.(IPC00003795E26293F)) ;
REBIND PACKAGE(NI.YNIPTEG.(IPC00003945E553325)) ;
REBIND PACKAGE(NI.YNIPTEG.(IPC00004135E78D184)) ;
REBIND PACKAGE(NI.YNIPTEG.(IPC00004155E7CBA9E)) ;
REBIND PACKAGE(NI.YNIPTEG.(IPC00004175E8C995C)) ;
REBIND PACKAGE(NI.YNIPTEU.(TEST0015135DF632D6)) ;
REBIND PACKAGE(NI.YNIPTEU.(IPC00003795E262ADB)) ;
REBIND PACKAGE(NI.YNIPTEU.(IPC00003945E4D3A87)) ;
REBIND PACKAGE(NI.YNIPTEU.(TEST0015135E5F7809)) ;
REBIND PACKAGE(NI.YNIPTEU.(IPC00004195E94A574)) ;
REBIND PACKAGE(NI.YNIPTEU.(TRAI0003555E95C27A)) ;
REBIND PACKAGE(NI.YNIREST.(IPC000015457B30B31)) ;
REBIND PACKAGE(NI.YNIREST.(IPC000015657F3CEAF)) ;
REBIND PACKAGE(NI.YNIREST.(IPC0000175589216A9)) ;
REBIND PACKAGE(NI.YNIREST.(IPC0000196594FD8DDMVS)) ;
REBIND PACKAGE(NI.YNIREST.(IPC000020959C7C146MVS)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00002295A4CD1A2MVS)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00002455AB2414E)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00002455AB2414EMVS)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00003135C3617A9)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00003305C9BA501)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00003465D0F84A2)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003655DB85DED)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003655DB861F6)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003655DB8659C)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003655DB867A8)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003655DB93B39)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003655DB94D46)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003645DB9548F)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00003585DB96039)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00003675E207B56)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00003915E3AACF6)) ;
REBIND PACKAGE(NI.YNIR250.(TRAI0003545E14BF61)) ;
REBIND PACKAGE(NI.YNI0131.(IPC000015658073F75)) ;
REBIND PACKAGE(NI.YNI0131.(IPC000017158319D2C)) ;
REBIND PACKAGE(NI.YNI0131.(IPC0000173586CD10F)) ;
REBIND PACKAGE(NI.YNI0131.(IPC0000175588DD14F)) ;
REBIND PACKAGE(NI.YNI0131.(IPC0000196596B8C9B)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00002295A2FBC20MVS)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00002455AB23F4D)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00002455AB23F4DMVS)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00002825B56101D)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00002825B56101DMVS)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00003135C3617EB)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00003305C9BA549)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00003465CF78A8D)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00003585DAD994F)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00003675E3850D4)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00003915E3AE68D)) ;
REBIND PACKAGE(NI.YNI0183.(IPC000015457B201D3)) ;
REBIND PACKAGE(NI.YNI0183.(IPC000015657F3CEC7)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00001755886472A)) ;
REBIND PACKAGE(NI.YNI0183.(IPC000019258D414B8)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00001965979F641MVS)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759EC7577)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759EC7C3E)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759ECAB34)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759ECC420)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759EE01EE)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759EE0675)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759EE0D5F)) ;
REBIND PACKAGE(NI.YNI0183.(IPC000022959F86027MVS)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00002455AB23FD7)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00002455AB23FD7MVS)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00002825B9E05E6)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00002825B9E05E6MVS)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003135C361843)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003305C9A52AA)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI0003015CDBFE00)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003465D10D4CF)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003715D94D39B)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003585D9B0713)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003675E385100)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003915E3AE1E2)) ;
REBIND PACKAGE(NI.YNI0341.(TRAI00023757DE945A)) ;
REBIND PACKAGE(NI.YNI0350.(IPC000017558930A51)) ;
REBIND PACKAGE(NI.YNI0350.(IPC000019258FDC05E)) ;
REBIND PACKAGE(NI.YNI0350.(IPC000019659708816MVS)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00002295A2EB4A6MVS)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00002455AB2401F)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00002455AB2401FMVS)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00003135C3618B4)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00003305C8FF8DF)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00003465CF79A6D)) ;
REBIND PACKAGE(NI.YNI0350.(TRAI0003285D9F48DE)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00003585DC19552)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00003675E207B37)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00003915E3AACFE)) ;
REBIND PACKAGE(NI.YNI0403.(IPC00003555D260A4F)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00003945E5FC9E9)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004085E7266D3)) ;
REBIND PACKAGE(NI.YNI56SR.(TRAI0003555E77AAB0)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E789A29)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E78AB52)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E78C082)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E78D272)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E78D908)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7A1542)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7A1842)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7A1C5C)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7A4731)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7A4915)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7A4BDA)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7BA447)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7BA887)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7BAB9E)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7BB034)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7BB2C0)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7BBC3E)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7C74E4)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7CAF2E)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004155E8099DA)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004175E8C9AAF)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004195E944EE5)) ;
REBIND PACKAGE(NI.YNI56SR.(TRAI0003555E95C2B2)) ;
REBIND PACKAGE(NI01.YNICL03.(IPC00003585DBAB5E1)) ;
REBIND PACKAGE(NI01.YNICL03.(IPC00003725DEE9212)) ;
REBIND PACKAGE(NI01.YNICL03.(IPC00003675E297957)) ;
REBIND PACKAGE(NI01.YNICL03.(IPC00003915E4D20B7)) ;
REBIND PACKAGE(NI01.YNINP03.(IPC00003305CA09D5F)) ;
REBIND PACKAGE(NI01.YNINP03.(TRAI0003345CD7F399)) ;
REBIND PACKAGE(NI01.YNINP03.(TRAI0003345CD7F947)) ;
REBIND PACKAGE(NI01.YNINP03.(TRAI0003345CD7FA44)) ;
REBIND PACKAGE(NI01.YNINP03.(TRAI0003345CD7FCB1)) ;
REBIND PACKAGE(NI01.YNINP03.(IPC00003445CD80D83)) ;
REBIND PACKAGE(NI01.YNINP03.(IPC00003465D359C71)) ;
REBIND PACKAGE(NI01.YNIPACG.(IPC00003465D07CB45)) ;
REBIND PACKAGE(NI01.YNIPACG.(IPC00003675E207B5D)) ;
REBIND PACKAGE(NI01.YNIPACG.(IPC00003915E3AACE7)) ;
REBIND PACKAGE(NI02.YNICL03.(IPC00003585DBAB5E1)) ;
REBIND PACKAGE(NI02.YNICL03.(IPC00003725DEE9212)) ;
REBIND PACKAGE(NI02.YNICL03.(IPC00003675E297957)) ;
REBIND PACKAGE(NI02.YNICL03.(IPC00003915E4D20B7)) ;
REBIND PACKAGE(NI02.YNINP03.(IPC00003305CA09D5F)) ;
REBIND PACKAGE(NI02.YNINP03.(TRAI0003345CD7F399)) ;
REBIND PACKAGE(NI02.YNINP03.(TRAI0003345CD7F947)) ;
REBIND PACKAGE(NI02.YNINP03.(TRAI0003345CD7FA44)) ;
REBIND PACKAGE(NI02.YNINP03.(TRAI0003345CD7FCB1)) ;
REBIND PACKAGE(NI02.YNINP03.(IPC00003445CD80D83)) ;
REBIND PACKAGE(NI02.YNINP03.(IPC00003465D359C71)) ;
REBIND PACKAGE(NI02.YNIPACG.(IPC00003465D07CB45)) ;
REBIND PACKAGE(NI02.YNIPACG.(IPC00003675E207B5D)) ;
REBIND PACKAGE(NI02.YNIPACG.(IPC00003915E3AACE7)) ;
REBIND TRIGGER PACKAGE(OA1A.NI660AAI) ;
// ENDIF
}¢--- A540769.WK.JCL(NI02PARU) cre=2010-04-15 mod=2010-04-15-17.04.28 A540769 ---
//A540769P JOB (PD00,KE50,,SP00000000),
// 'FULLCOPY',
// MSGCLASS=T,TIME=1440,LINES=100000
//*MAIN CLASS=LOG
//P04 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
DSN SYS(DBAF)
REBIND PACKAGE(NI.NI6210.(IPC0000185)) ;
REBIND PACKAGE(NI.NI6260.(IPC0000372)) ;
REBIND PACKAGE(NI.NI6260.(IPC0000367)) ;
REBIND PACKAGE(NI.NI6260.(IPC0000391)) ;
REBIND PACKAGE(NI.NI6860.(IPC0000358)) ;
REBIND PACKAGE(NI.NI6860.(IPC0000367)) ;
REBIND PACKAGE(NI.NI6860.(IPC0000391)) ;
REBIND PACKAGE(NI.NI7600.(IPC0000358)) ;
REBIND PACKAGE(NI.NI7600.(IPC0000367)) ;
REBIND PACKAGE(NI.NI7600.(IPC0000391)) ;
REBIND PACKAGE(NI.NI9CNEW.(TEST000055)) ;
REBIND PACKAGE(NI.NI9CNE2.(TEST000055)) ;
REBIND PACKAGE(NI.NI9700.(IPC0000358)) ;
REBIND PACKAGE(NI.NI9700.(IPC0000367)) ;
REBIND PACKAGE(NI.NI9700.(IPC0000391)) ;
REBIND PACKAGE(NI.NI9740.(TRAI000369)) ;
REBIND PACKAGE(NI.NI9740.(IPC0000395)) ;
REBIND PACKAGE(NI.NI9740.(IPC0000367)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC0000041550ED996)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC0000196594FE4D3)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC000020959C149A1MVS)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC000022959F87DDEMVS)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00002455A8D4BAE)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00002455A8D4BAEMVS)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00003135C36079B)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00003305C8E767D)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00003445CD2D78F)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00003675E207B51)) ;
REBIND PACKAGE(NI.YNICAMU.(IPC00003915E42E370)) ;
REBIND PACKAGE(NI.YNICONT.(TRAI0002355AE1CBF6MVS)) ;
REBIND PACKAGE(NI.YNICONT.(TRAI0002355AE1D6ABMVS)) ;
REBIND PACKAGE(NI.YNICONT.(TRAI0002355AE1D9BFMVS)) ;
REBIND PACKAGE(NI.YNICONT.(TRAI0002355AE1EDDBMVS)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003305CA4CE8D)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003445CDAFD49)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003465D08985E)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003655D875C57)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003585D8CBBB3)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003665D8CBBE5)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003755DC19E75)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003725DDA7863)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003845DDE9ACE)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003795E262945)) ;
REBIND PACKAGE(NI.YNICRSS.(IPC00003945E44149B)) ;
REBIND PACKAGE(NI.YNICTEU.(IPC00003795E262940)) ;
REBIND PACKAGE(NI.YNICTEU.(IPC00003945E4D3A84)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87CDE8)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87D31A)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87D77E)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87DB7B)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87DEAD)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87E39C)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87E637)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C87EC34)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88C116)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88C760)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88C92E)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88D039)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88D112)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88D5DE)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C88FF94)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C89039E)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C890A21)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C890D33)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C89192E)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C891A40)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C892125)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C89281D)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C892B54)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C892F68)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C893546)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C893771)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8A1610)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8A30DF)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8A3475)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E27A2)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E2921)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E2C41)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E3AAD)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E3D2E)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E3EB1)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E40F8)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E4337)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E4BE2)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E4D56)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E4E26)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E50F9)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E51EA)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E5AB6)) ;
REBIND PACKAGE(NI.YNINP03.(TRAI0003345C8E6728)) ;
REBIND PACKAGE(NI.YNINP03.(IPC00003305CA09D5F)) ;
REBIND PACKAGE(NI.YNINP03.(IPC00003675E3043E7)) ;
REBIND PACKAGE(NI.YNINP03.(IPC00003915E417509)) ;
REBIND PACKAGE(NI.YNINP04.(TRAI0003345C8FCEBF)) ;
REBIND PACKAGE(NI.YNINP04.(TRAI0003345C90C0EA)) ;
REBIND PACKAGE(NI.YNINP04.(TRAI0003345C90C3EA)) ;
REBIND PACKAGE(NI.YNINP04.(TRAI0003345C90C5FA)) ;
REBIND PACKAGE(NI.YNINP04.(TRAI0003345C90C84C)) ;
REBIND PACKAGE(NI.YNINP04.(TRAI0003345C90C9B0)) ;
REBIND PACKAGE(NI.YNINP04.(IPC00003305C920DF3)) ;
REBIND PACKAGE(NI.YNINP04.(IPC00003675E2DA5F5)) ;
REBIND PACKAGE(NI.YNIPACG.(IPC00003675E207B5D)) ;
REBIND PACKAGE(NI.YNIPACG.(IPC00003915E3AACE7)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC000012956E6945A)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC000017558921656)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC000019258D7D123)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC0000196594FD8E1MVS)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC000020959C7F35C)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC000020959C7F35CMVS)) ;
REBIND PACKAGE(NI.YNIPAMG.(TRAI0003375BB09C7D)) ;
REBIND PACKAGE(NI.YNIPAMG.(TRAI0003375BB09C7DMVS)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC00002825BB212CF)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC00002825BB212CFMVS)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC00003445CDD33F6)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC00003465D08AEE5)) ;
REBIND PACKAGE(NI.YNIPAMG.(TRAI0003285D0B90B6)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC00003675E207B1E)) ;
REBIND PACKAGE(NI.YNIPAMG.(IPC00003915E3AACE9)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC000012956EFB617)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00001925908853E)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC000019659870A3BMVS)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC000020959D4BAEAMVS)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC000022959F887E0MVS)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00002455A8D4C15)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00002455A8D4C15MVS)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00003135C361757)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00003305C83AA15)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00003445CDD3489)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00003465D07CB5B)) ;
REBIND PACKAGE(NI.YNIPAMU.(TRAI0003285D0B8C38)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00003675E207B6B)) ;
REBIND PACKAGE(NI.YNIPAMU.(IPC00003915E3AACEB)) ;
REBIND PACKAGE(NI.YNIPFLG.(IPC000018057D68CF4)) ;
REBIND PACKAGE(NI.YNIPFLG.(IPC0000196594FD973MVS)) ;
REBIND PACKAGE(NI.YNIPFLG.(IPC000020959C7EA9B)) ;
REBIND PACKAGE(NI.YNIPFLG.(IPC000020959C7EA9BMVS)) ;
REBIND PACKAGE(NI.YNIPFLG.(TRAI0003345C93B0E1)) ;
REBIND PACKAGE(NI.YNIPFLG.(IPC00003675E207B23)) ;
REBIND PACKAGE(NI.YNIPFLG.(IPC00003915E3AACED)) ;
REBIND PACKAGE(NI.YNIPREG.(IPC000020959C7C528)) ;
REBIND PACKAGE(NI.YNIPREG.(IPC00003675E207B1F)) ;
REBIND PACKAGE(NI.YNIPREG.(IPC00003915E4AB399)) ;
REBIND PACKAGE(NI.YNIPTEG.(IPC00003795E26293F)) ;
REBIND PACKAGE(NI.YNIPTEG.(IPC00003945E553325)) ;
REBIND PACKAGE(NI.YNIPTEG.(IPC00004135E78D184)) ;
REBIND PACKAGE(NI.YNIPTEG.(IPC00004155E7CBA9E)) ;
REBIND PACKAGE(NI.YNIPTEG.(IPC00004175E8C995C)) ;
REBIND PACKAGE(NI.YNIPTEU.(TEST0015135DF632D6)) ;
REBIND PACKAGE(NI.YNIPTEU.(IPC00003795E262ADB)) ;
REBIND PACKAGE(NI.YNIPTEU.(IPC00003945E4D3A87)) ;
REBIND PACKAGE(NI.YNIPTEU.(TEST0015135E5F7809)) ;
REBIND PACKAGE(NI.YNIPTEU.(IPC00004195E94A574)) ;
REBIND PACKAGE(NI.YNIPTEU.(TRAI0003555E95C27A)) ;
REBIND PACKAGE(NI.YNIREST.(IPC000015457B30B31)) ;
REBIND PACKAGE(NI.YNIREST.(IPC000015657F3CEAF)) ;
REBIND PACKAGE(NI.YNIREST.(IPC0000175589216A9)) ;
REBIND PACKAGE(NI.YNIREST.(IPC0000196594FD8DDMVS)) ;
REBIND PACKAGE(NI.YNIREST.(IPC000020959C7C146MVS)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00002295A4CD1A2MVS)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00002455AB2414E)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00002455AB2414EMVS)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00003135C3617A9)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00003305C9BA501)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00003465D0F84A2)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003655DB85DED)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003655DB861F6)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003655DB8659C)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003655DB867A8)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003655DB93B39)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003655DB94D46)) ;
REBIND PACKAGE(NI.YNIREST.(TRAI0003645DB9548F)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00003585DB96039)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00003675E207B56)) ;
REBIND PACKAGE(NI.YNIREST.(IPC00003915E3AACF6)) ;
REBIND PACKAGE(NI.YNIR250.(TRAI0003545E14BF61)) ;
REBIND PACKAGE(NI.YNI0131.(IPC000015658073F75)) ;
REBIND PACKAGE(NI.YNI0131.(IPC000017158319D2C)) ;
REBIND PACKAGE(NI.YNI0131.(IPC0000173586CD10F)) ;
REBIND PACKAGE(NI.YNI0131.(IPC0000175588DD14F)) ;
REBIND PACKAGE(NI.YNI0131.(IPC0000196596B8C9B)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00002295A2FBC20MVS)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00002455AB23F4D)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00002455AB23F4DMVS)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00002825B56101D)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00002825B56101DMVS)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00003135C3617EB)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00003305C9BA549)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00003465CF78A8D)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00003585DAD994F)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00003675E3850D4)) ;
REBIND PACKAGE(NI.YNI0131.(IPC00003915E3AE68D)) ;
REBIND PACKAGE(NI.YNI0183.(IPC000015457B201D3)) ;
REBIND PACKAGE(NI.YNI0183.(IPC000015657F3CEC7)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00001755886472A)) ;
REBIND PACKAGE(NI.YNI0183.(IPC000019258D414B8)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00001965979F641MVS)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759EC7577)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759EC7C3E)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759ECAB34)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759ECC420)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759EE01EE)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759EE0675)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI00030759EE0D5F)) ;
REBIND PACKAGE(NI.YNI0183.(IPC000022959F86027MVS)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00002455AB23FD7)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00002455AB23FD7MVS)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00002825B9E05E6)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00002825B9E05E6MVS)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003135C361843)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003305C9A52AA)) ;
REBIND PACKAGE(NI.YNI0183.(TRAI0003015CDBFE00)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003465D10D4CF)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003715D94D39B)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003585D9B0713)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003675E385100)) ;
REBIND PACKAGE(NI.YNI0183.(IPC00003915E3AE1E2)) ;
REBIND PACKAGE(NI.YNI0341.(TRAI00023757DE945A)) ;
REBIND PACKAGE(NI.YNI0350.(IPC000017558930A51)) ;
REBIND PACKAGE(NI.YNI0350.(IPC000019258FDC05E)) ;
REBIND PACKAGE(NI.YNI0350.(IPC000019659708816MVS)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00002295A2EB4A6MVS)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00002455AB2401F)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00002455AB2401FMVS)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00003135C3618B4)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00003305C8FF8DF)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00003465CF79A6D)) ;
REBIND PACKAGE(NI.YNI0350.(TRAI0003285D9F48DE)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00003585DC19552)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00003675E207B37)) ;
REBIND PACKAGE(NI.YNI0350.(IPC00003915E3AACFE)) ;
REBIND PACKAGE(NI.YNI0403.(IPC00003555D260A4F)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00003945E5FC9E9)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004085E7266D3)) ;
REBIND PACKAGE(NI.YNI56SR.(TRAI0003555E77AAB0)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E789A29)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E78AB52)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E78C082)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E78D272)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E78D908)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7A1542)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7A1842)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7A1C5C)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7A4731)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7A4915)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7A4BDA)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7BA447)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7BA887)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7BAB9E)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7BB034)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7BB2C0)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7BBC3E)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7C74E4)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004135E7CAF2E)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004155E8099DA)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004175E8C9AAF)) ;
REBIND PACKAGE(NI.YNI56SR.(IPC00004195E944EE5)) ;
REBIND PACKAGE(NI.YNI56SR.(TRAI0003555E95C2B2)) ;
REBIND PACKAGE(NI01.YNICL03.(IPC00003585DBAB5E1)) ;
REBIND PACKAGE(NI01.YNICL03.(IPC00003725DEE9212)) ;
REBIND PACKAGE(NI01.YNICL03.(IPC00003675E297957)) ;
REBIND PACKAGE(NI01.YNICL03.(IPC00003915E4D20B7)) ;
REBIND PACKAGE(NI01.YNINP03.(IPC00003305CA09D5F)) ;
REBIND PACKAGE(NI01.YNINP03.(TRAI0003345CD7F399)) ;
REBIND PACKAGE(NI01.YNINP03.(TRAI0003345CD7F947)) ;
REBIND PACKAGE(NI01.YNINP03.(TRAI0003345CD7FA44)) ;
REBIND PACKAGE(NI01.YNINP03.(TRAI0003345CD7FCB1)) ;
REBIND PACKAGE(NI01.YNINP03.(IPC00003445CD80D83)) ;
REBIND PACKAGE(NI01.YNINP03.(IPC00003465D359C71)) ;
REBIND PACKAGE(NI01.YNIPACG.(IPC00003465D07CB45)) ;
REBIND PACKAGE(NI01.YNIPACG.(IPC00003675E207B5D)) ;
REBIND PACKAGE(NI01.YNIPACG.(IPC00003915E3AACE7)) ;
REBIND PACKAGE(NI02.YNICL03.(IPC00003585DBAB5E1)) ;
REBIND PACKAGE(NI02.YNICL03.(IPC00003725DEE9212)) ;
REBIND PACKAGE(NI02.YNICL03.(IPC00003675E297957)) ;
REBIND PACKAGE(NI02.YNICL03.(IPC00003915E4D20B7)) ;
REBIND PACKAGE(NI02.YNINP03.(IPC00003305CA09D5F)) ;
REBIND PACKAGE(NI02.YNINP03.(TRAI0003345CD7F399)) ;
REBIND PACKAGE(NI02.YNINP03.(TRAI0003345CD7F947)) ;
REBIND PACKAGE(NI02.YNINP03.(TRAI0003345CD7FA44)) ;
REBIND PACKAGE(NI02.YNINP03.(TRAI0003345CD7FCB1)) ;
REBIND PACKAGE(NI02.YNINP03.(IPC00003445CD80D83)) ;
REBIND PACKAGE(NI02.YNINP03.(IPC00003465D359C71)) ;
REBIND PACKAGE(NI02.YNIPACG.(IPC00003465D07CB45)) ;
REBIND PACKAGE(NI02.YNIPACG.(IPC00003675E207B5D)) ;
REBIND PACKAGE(NI02.YNIPACG.(IPC00003915E3AACE7)) ;
REBIND TRIGGER PACKAGE(OA1A.NI660AAI) ;
}¢--- A540769.WK.JCL(NZ242TIA) cre=2008-02-21 mod=2008-11-24-17.24.55 F540769 ---
//A5407698 JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=BS1
//P01 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// TIME=99
//SYSTSIN DD *
DSN SYSTEM(DBOF)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//*YSPUNCH DD DUMMY
//SYSPUNCH DD DSN=DSN.NZ06A1P.TNZ242.UNL1.PUNCH,
// DISP=(NEW,CATLG,CATLG),
// SPACE=(CYL,(1,1)),
// DATACLAS=NULL30,MGMTCLAS=COM#A092,
// RECFM=FB,LRECL=80
//SYSREC00 DD DSN=DSN.NZ06A1P.TNZ242.UNL1.UNLOAD,
// DISP=(NEW,CATLG,CATLG),
// SPACE=(CYL,(1000,500)),
// DATACLAS=NULL30,MGMTCLAS=COM#A092,
// RECFM=FB,LRECL=80
//* DCB=(LRECL=5000,RECFM=VB,BLKSIZE=32760)
//SYSREC01 DD SYSOUT=*,
// RECFM=VB,LRECL=200
//SYSIN DD *
SELECT *
FROM OA1P.TNZ242A1 T242
WHERE T242.NZ242001
IN( SELECT T240.HEADERUWI
FROM OA1P.VNZ240A1V T240
WHERE T240.REFID LIKE '4A%'
AND T240.STATUS = 'ENDED'
AND T240.DBVIEWID = 'VNZ242A1V'
AND T240.CREATEDATETIME BETWEEN '2008-02-09-00.00.00.000000'
AND '2008-02-20-15.00.00.000000'
)
FETCH FIRST 100 ROWS ONLY
WITH UR;
}¢--- A540769.WK.JCL(OMEGA) cre=2014-10-16 mod=2014-10-16-14.49.21 A540769 -----
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00031000
//* USEDPROC JCLLIB ORDER=DSN.RZ1.P0.DB2PDB.CNTL 00040000
//**********************************************************************00050000
//** A C C O U N T I N G **00060000
//**********************************************************************00070000
//PM EXEC PGM=DB2PM 00080000
//*STEPLIB DD DISP=SHR,DSN=OMEG.PLEXA.P420.PE.RKANMOD V4.1 00090000
//*STEPLIB DD DISP=SHR,DSN=DSN.PR.OMEG.V10.TKANMOD V5.1 00100000
//STEPLIB DD DISP=SHR,DSN=DSN.PR.OMEG.V10.TKANMOD 00110000
//SORTWK01 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(800,400)) 00120000
//SORTWK02 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(800,400)) 00130000
//SORTWK03 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(800,400)) 00140000
//SORTWK04 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(800,400)) 00150000
//SORTWK05 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(800,400)) 00160000
//SORTWK06 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(800,400)) 00170000
//SORTWK07 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(800,400)) 00180000
//SORTWK08 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(800,400)) 00190000
//SORTWK09 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(800,400)) 00200000
//SORTWK10 DD UNIT=SYSDA,DISP=(,DELETE),SPACE=(CYL,(800,400)) 00210000
//ACWORK DD DISP=(NEW,PASS), 00220000
// DSN=&&ACWORK, 00230000
// SPACE=(CYL,(800,400),RLSE),DCB=(BUFNO=20), 00240000
// RECFM=VBS,LRECL=32756,BLKSIZE=6233, 00250000
// DATACLAS=NULL8,MGMTCLAS=COM#E000 00260000
//SQLWORK DD DISP=(NEW,PASS), 00270000
// DSN=&&SQLWORK, 00280000
// SPACE=(CYL,(800,400),RLSE),DCB=(BUFNO=20), 00290000
// RECFM=VBS,LRECL=32756,BLKSIZE=6233, 00300000
// DATACLAS=NULL8,MGMTCLAS=COM#E000 00310000
//**********************************************************************00320000
//** INPUT - DATASET **00330000
//**********************************************************************00340000
//SMFIN DD DISP=SHR,DSN=SMF.RZ2.P0.DB2.INTVL.S22B.D14288.T040100 00350000
//**********************************************************************00360000
//SYSOUT DD SYSOUT=*,OUTLIM=9999999 00370000
//SYSMDUMP DD SYSOUT=* 00380000
//*USSFILE DD DSN=&&TEMP,DISP=(NEW,PASS,KEEP) 00390000
//JOBSUMDD DD SYSOUT=* 00400000
//SYSIN DD * 00410000
GLOBAL 00420000
* TIMEZONE(ZH) 00430000
INPUTDD(SMFIN) 00440000
* INCLUDE(GROUP(DP4G)) 00450000
* INCLUDE(MEMBER(DP42)) 00460000
* FROM(01/24/14,15:30:00) TO(01/24/14,15:31:00) 00470000
* FROM(04/30/11,04:00:00) TO(04/30/11,05:00:00) 00480000
* FROM(08/25/14,09:30:00) TO(08/25/14,09:35:00) 00490000
* INCLUDE(CORRNAME(Y4PRDIVE)) 00500000
* INCLUDE(PRIMAUTH(S100447)) 00510000
* INCLUDE(PLAN(DSNTEP2)) 00520000
INCLUDE(PLAN(WB0870)) 00530000
ACCOUNTING 00540000
* REPORT LAYOUT(LONG) DDNAME(USSFILE) 00550000
REPORT LAYOUT(SHORT) ORDER(CORRNAME) DDNAME(ACCTshrt) 00560000
REPORT LAYOUT(LONG) ORDER(CORRNAME) DDNAME(ACCTlong) 00570000
********************************************************** 00580000
* STATISTICS 00590000
* REPORT LAYOUT(LONG) 00600000
* dsetstat 00610000
* ORDER(INTERVAL) 00620000
* DDNAME(STATlong) 00630000
* REPORT LAYOUT(SHORT) 00640000
* dsetstat 00650000
* ORDER(INTERVAL) 00660000
* DDNAME(STATshrt) 00670000
********************************************************** 00680000
SQLACTIVITY 00690000
REPORT 00700000
SUMMARIZEBY(STMTNO) 00710000
WORKLOAD(ALL) order(corrname) DDNAME(SQLall) 00720000
REPORT 00730000
SUMMARIZEBY(STMTNO) 00740000
WORKLOAD(ACCT) order(corrname) DDNAME(SQLacct) 00750000
REPORT 00760000
SUMMARIZEBY(STMTNO) 00770000
WORKLOAD(IO) order(corrname) DDNAME(SQLio) 00780000
REPORT 00790000
SUMMARIZEBY(STMTNO) 00800000
WORKLOAD(LOCK) order(corrname) DDNAME(SQLlock) 00810000
REPORT 00820000
SUMMARIZEBY(STMTNO) 00830000
WORKLOAD(SCAN) order(corrname) DDNAME(SQLscan) 00840000
00850000
TRACE 00860000
* workload(all) 00870000
workload(hilite) 00880000
SUMMARIZEBY(STMTNO) 00890000
* SUMARIZEBY (ALL) 00900000
SORTBY (TCBTIME) 00910000
DDNAME(SQLtrace) 00920000
********************************************************** 00930000
LOCKING 00940000
REPORT LEVEL(LOCKOUT) order(corrname) ddNAME(LOCKout) 00950000
REPORT LEVEL(SUSPENSION) order(corrname) DDNAME(LOCKsusp) 00960000
trace LEVEL(DETAIL) DDNAME(LOCKtrc) 00970000
trace LEVEL(suspension) DDNAME(LOCKtrcs) 00980000
trace LEVEL(lockout) DDNAME(LOCKtrcl) 00990000
********************************************************** 01000000
IOACTIVITY 01010000
REPORT LEVEL(SUMMARY) DDNAME(IOsum) 01020000
REPORT LEVEL(BUFFER) order(bpid) DDNAME(IObuf1) 01030000
REPORT LEVEL(BUFFER) order(corrname) DDNAME(IObuf2) 01040000
* REPORT LEVEL(EDM) order(corrname) DDNAME(IOedm) 01050000
* REPORT LEVEL(ACTLOG) order(corrname) DDNAME(IOact) 01060000
REPORT LEVEL(ARCLOG) order(corrname) DDNAME(IOarc) 01070000
REPORT LEVEL(XI) order(planname) DDNAME(IOxi) 01080000
********************************************************** 01090000
* RECTRACE 01100000
* TRACE LEVEL(SHORT) DDNAME(RECshrt) 01110000
* TRACE LEVEL(LONG) DDNAME(REClong) 01120000
EXEC 01130000
//**********************************************************************01140000
// 01150000
INCLUDE (PLAN(WB0870)) 01160000
01170000
GLOBAL 01180000
TIMEZONE(ZH) 01190000
01200000
ACCOUNTING 01210000
REPORT 01220000
LAYOUT(LONG) 01230000
DDNAME(USSFILE) 01240000
REPORT 01250000
LAYOUT(LONG) 01260000
DDNAME(DYN1) 01270000
EXEC 01280000
//**********************************************************************01290000
//** USS **01300000
//**********************************************************************01310000
//CLEANUP EXEC PGM=IEFBR14 01320000
//DATASET DD PATHDISP=(DELETE,DELETE), 01330000
// PATHOPTS=(OWRONLY,OCREAT), 01340000
// PATH='/u/a458914/TEMP/Accounting.txt' 01350000
//USSCOPY EXEC PGM=IKJEFT01 01360000
//SYSUT1 DD DISP=SHR,DSN=*.PM.USSFILE 01370000
//SYSTSPRT DD SYSOUT=* 01380000
//SYSTSIN DD * 01390000
ALLOCATE FILE(sysut2) PATH('/u/a458914/TEMP/Accounting.txt') - 01400000
FILEDATA(TEXT) - 01410000
PATHOPTS(OWRONLY,OCREAT) - 01420000
PATHMODE(SIRWXU,SIRGRP) 01430000
call *(EDCICONV) 'FROMCODE(IBM-500),TOCODE(IBM-1047)' 01440000
OCOPY INDD(sysut1) OUTDD(sysut2) - 01450000
CONVERT('SYS1.LINKLIB(BPXFX450)') 01460000
/* 01470000
// 01480000
FROM(11/09/06,00:00:00) 01490000
TO(11/09/06,12:00:00) 01500000
}¢--- A540769.WK.JCL(OS810LOA) cre=2015-04-11 mod=2015-04-15-15.58.13 A540769 ---
$#@
$>. fedit()
$@=/jcl/
//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='DP2G,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DP2G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
$@% loadPart 1 33
$@% loadPart 2 34
$@% loadPart 3 35
$@% loadPart 4 36
$@% loadPart 5 1
$@% loadPart 6 2
$@% loadPart 7 3
$@% loadPart 8 4
$@% loadPart 9 5
$@% loadPart 10 26
$@% loadPart 11 27
$@% loadPart 12 28
$@% loadPart 13 29
$@% loadPart 14 30
$@% loadPart 15 31
$@% loadPart 16 32
$/jcl/
$proc $@=/loadPart/
$@ parse arg , paVon paBis
$=paVon=- paVon
$=paBis=- paBis
EXEC SQL
DECLARE CUR$paVon CURSOR FOR
$@selCols
FROM OA1P.TOS800A1 where partition = $paVon
union all
$@selCols
FROM OA1P.TOS801A1 where partition = $paVon
union all
$@selCols
FROM OA1P.TOS802A1 where partition = $paVon
ENDEXEC
LOAD DATA LOG NO
STATISTICS INDEX ALL KEYCARD
SORTDEVT DISK
WORKDDN(TSYUTS,TSOUTS)
INTO TABLE OA1P.TOS810A1 PART $paBis
RESUME NO REPLACE COPYDDN TCOPYS
INCURSOR CUR$paVon
$/loadPart/
$proc $@=/selCols/
select $paBis partition
, DATE
, USERID
, TRAN_CODE
, LTERM
, CIF_NR
, DEPOT_NR
, KONTO_NR
, NAME_1
, NAME_2
, VORNAME
, ORT
, STRASSE
, GEB_DAT
, BUDAT_VON
, BUDAT_BIS
, CLEAR_NR
, CSID_NR
, BKST_GRP
, BKST
, B_UNIT
, DOMIZIL
, EBENE
, INFO
, K_ART
, K_SEG_CODE
, BILD_VAR
, SUCHTYP
$/selCols/
$#out 20150411 09:50:23
$#out 20150411 09:09:13
$#out 20150411 09:08:41
$#out 20150411 09:08:23
}¢--- A540769.WK.JCL(PASS) cre=2008-04-03 mod=2008-04-03-09.37.33 F540769 ------
//A540769S JOB (CP00,KE50), 00010002
// 'CATALOG',MSGCLASS=T,TIME=1440, 00020001
// NOTIFY=&SYSUID,REGION=0M 00030001
//*MAIN CLASS=LOG 00040001
//C1 EXEC PGM=IEBGENER 00050001
//SYSPRINT DD SYSOUT=* 00060001
//SYSUT1 DD * 00070001
EINS 00080001
zwei 00090001
drei 00100001
//SYSUT2 DD DISP=(,PASS),RECFM=FB,LRECL=80 00110001
//C2 EXEC PGM=IEBGENER 00120001
//SYSPRINT DD SYSOUT=* 00130001
//SYSUT1 DD DISP=SHR,DSN=*.C1.SYSUT2 00140001
//SYSUT2 DD SYSOUT=* 00150001
}¢--- A540769.WK.JCL(PDBGENEX) cre=2010-07-01 mod=2010-07-13-09.28.26 A540769 ---
//YPDBGENE JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=DBOC
//*
//* export aus pdb Tables ==> A540769.tacct_general
//* sql in pdbgeneS muss aktuellen Bedürfnissen angepasst werden
//* library für täglichen submit: DSN.SKA.P0.JCLL
//* der job wird submitted von: DSN.SKA.P0.JCLL(EXTENT)
//*
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBOC)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current schema = RZ2XX;
// DD DISP=SHR,DSN=A540769.WK.SQL(PDBGENEX)
// DD *
commit;
set current schema = RR2XX;
// DD DISP=SHR,DSN=A540769.WK.SQL(PDBGENEX)
// DD *
commit;
set current schema = RZ1XX;
// DD DISP=SHR,DSN=A540769.WK.SQL(PDBGENEX)
// DD *
commit;
}¢--- A540769.WK.JCL(PLIENT) cre=2006-03-30 mod=2006-03-30-08.35.16 F540769 ----
//A540769@ JOB (MBI24528,0000,,3698),'CIC COMPILER', *
// MSGCLASS=T,NOTIFY=A540769,TIME=(4,00)
//*MAIN CLASS=CMNA
//**********************************************************************
//* pl/1 enterprise compiler
//**********************************************************************
//JOBLIB DD DISP=SHR,DSN=CMN.DIV.P0.AKT.MODIFY.@002.LOD
// DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.@002.LOD
// DD DISP=SHR,DSN=MQM.QP00
//*)IM EPC$$FAF
//*------------------------------------------
//*- PRE-COMPILE COMPONENT WKPL1
//*------------------------------------------
//EPLIPCCC EXEC PGM=IEFBR14
//DUMMY DD DSN=&DUMMYYY,DISP=(MOD,PASS),
// UNIT=VIO,SPACE=(TRK,(1,1,1),RLSE)
//EPLIPP1 EXEC PGM=IBMZPLI,
// PARM=('MACRO MARGINS(2,72,1) MDECK ',
// 'PROCESS(KEEP)',
// 'NOOPTIMIZE NOSYNTAX PP(MACRO(''CASE(ASIS)''))'),
// REGION=0M,
// COND=(4,LT)
//STEPLIB DD DISP=SHR,DSN=NPL1.RZ1.P0.SIBMZCMP
//*)IM CMN$$SYC
//* PKGCSPN = PVS0000003
//SYSLIB DD DSN=&&NULLPD3,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(1,1,1),RLSE),
// DATACLAS=FB0080P0,
// DCB=(BLKSIZE=32720)
// DD DISP=SHR,DSN=CMN.DIV.P0.PVS0.#000002.PL#
// DD DISP=SHR,DSN=CMN.DIV.P0.PVS0.#000001.PL#
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.PL#
// DD DISP=SHR,DSN=CEE.SCEESAMP
// DD DISP=SHR,DSN=MQM.Q000.COPYLIB
// DD DISP=SHR,DSN=SYS1.SAMPLIB
// DD DISP=SHR,DSN=GDDM.DIV.P0.ADMSAM
//* PROC EQ CMNPLILE $COMEPLI EQ Y
// DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.EPLI
//*EOP CMN$$SYC
//SYSLIN DD DUMMY
//SYSIN DD DISP=SHR,
// DSN=CMN.DIV.P0.PVS0.#000001.PLU(YPV0040)
//SYSPUNCH DD DISP=(,PASS),DSN=&&EPLIPP1,
// UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE),
// DCB=BLKSIZE=1024
//*------------------------------------------
//*- COMPILE COMPONENT WKPL1 -
//*------------------------------------------
//EPLICCCC EXEC PGM=IEFBR14
//DUMMY DD DSN=&DUMMYYY,DISP=(MOD,PASS),
// UNIT=VIO,SPACE=(TRK,(1,1,1),RLSE)
//EPLI1 EXEC PGM=IBMZPLI,
// PARM=('+DD:CSSTD',
// 'PP(MACRO) SYSTEM(MVS)',
// ''),
// COND=(4,LT)
//STEPLIB DD DISP=SHR,DSN=NPL1.RZ1.P0.SIBMZCMP
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=&&EPLIPP1
//CSSTD DD DISP=SHR,DSN=PL.EPLI.OPT(CMNPLILE)
//SYSUEXIT DD DISP=SHR,DSN=PL.EPLI.MSG(CMNPLILE)
//SYSDEFSD DD SYSOUT=*
//SYSXMLSD DD SYSOUT=*
//*)IM CMN$$SYC
//* PKGCSPN = PVS0000003
//SYSLIB DD DSN=&&NULLPD4,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(1,1,1),RLSE),
// DATACLAS=FB0080P0,
// DCB=(BLKSIZE=32720)
// DD DISP=SHR,DSN=CMN.DIV.P0.PVS0.#000002.PL#
// DD DISP=SHR,DSN=CMN.DIV.P0.PVS0.#000001.PL#
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.PL#
// DD DISP=SHR,DSN=CEE.SCEESAMP
// DD DISP=SHR,DSN=MQM.Q000.COPYLIB
// DD DISP=SHR,DSN=SYS1.SAMPLIB
// DD DISP=SHR,DSN=GDDM.DIV.P0.ADMSAM
//* PROC EQ CMNPLILE $COMEPLI EQ Y
// DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.EPLI
//*EOP CMN$$SYC
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSPUNCH DD DUMMY,DCB=BLKSIZE=80
//SYSLIN DD DISP=(,PASS),DSN=&&OBJECT,
// UNIT=SYSDA,SPACE=(TRK,(5,15),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
}¢--- A540769.WK.JCL(PLIKUDP) cre=2006-06-19 mod=2006-06-19-09.45.38 F540769 ---
//A540769D JOB (KEL25071,0240,,3612),'CATALOG', *
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG SYSTEM=S13
//*
//**********************************************************************
//* Pli Compile/Link/Bind mit dsnEli: Tso db2 attachement
//**********************************************************************
//*
//*------------------------------------------
//*- Bind Dbrm
//*------------------------------------------
//*------------------------------------------
//*- run under tso dsn
//*------------------------------------------
//* IF RC < 5 THEN
//S1 EXEC PGM=XC6003,DYNAMNBR=200,TIME=99
//*STEPLIB DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//*STEPLIB DD DSN=A540769.WK.LOAD,DISP=SHR
//STEPLIB DD DSN=CMN.DIV.P0.EOSR.#000006.LLB,DISP=SHR
// DD DSN=PCL.U0000.S0.RZ1AKT.PROM.@008.LLB,DISP=SHR
//DD#PARM DD DSNAME=XB.DIV.K0.EOSAR2.PARM(XC6003),DISP=SHR
//DDRETD DD DUMMY,DCB=BLKSIZE=160
//DSNTRACE DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//* ENDIF
//
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBTF)
BIND PACKAGE(XC) -
OWNER(S101869) -
QUALIFIER (OA1T) -
MEMBER(XCWALTER) -
LIBRARY('CMN.DIV.P0.EOSR.#000006.DBR') -
VALIDATE(BIND) FLAG(I) ISOLATION(CS) -
EXPLAIN(Y) ACTION(REPLACE) -
CURRENTDATA(N) -
DYNAMICRULES(BIND) -
ENABLE(*)
END
}¢--- A540769.WK.JCL(PLIKUDU) cre=2006-06-16 mod=2006-06-16-12.55.38 F540769 ---
//A540769D JOB (KEL25071,0240,,3612),'CATALOG', *
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//**********************************************************************
//* Pli Compile/Link/Bind mit dsnEli: Tso db2 attachement
//**********************************************************************
//*
//*------------------------------------------
//*- PRECOMPILE COMPONENT DBKUDU -
//*------------------------------------------
//PLIPRE EXEC PGM=IEL1AA,COND=(4,LT),
// PARM='MD,NS,NSYN,NSEQ',
// REGION=5M
//STEPLIB DD DSN=NPL1.RZ1.P0.SIELCOMP,DISP=SHR
//* DD DISP=SHR,DSN=CMN.DIV.P0.AKT.MODIFY.@002.LOD
//* DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.@002.LOD
//SYSLIB DD DSN=&&NULLPD1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(1,1,1),RLSE),
// DATACLAS=FB0080P0,
// DCB=(BLKSIZE=32720)
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.PL#
// DD DISP=SHR,DSN=CEE.SCEESAMP
// DD DISP=SHR,DSN=MQM.Q000.COPYLIB
// DD DISP=SHR,DSN=SYS1.SAMPLIB
// DD DISP=SHR,DSN=GDDM.DIV.P0.ADMSAM
//* PROC EQ CMNPLILE $COMEPLI EQ
// DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.MVS
//*EOP CMN$$SYC
//SYSLIN DD DUMMY
//SYSIN DD DISP=SHR,
// DSN=A540769.WK.PLI(DBKUDU)
//* DSN=CMN.DIV.P0.DB2J.#000003.PLB(DBKUDU)
//SYSPUNCH DD DISP=(,PASS),DSN=&&SKSPLIPP,
// UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=23474)
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),
// DCB=BLKSIZE=1024
//*------------------------------------------
//*- db2 precompile
//*------------------------------------------
// IF RC < 5 THEN
//DB2PC EXEC PGM=DSNHPC, *** DB2 PRECOMPILE COMPONENT DBKUDU
// REGION=3M,
// PARM=('SOURCE,HOST(PLI)',
// 'VERSION(DB2J000003)'),
// COND=(4,LT)
//STEPLIB DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//DBRMLIB DD DISP=SHR,DSN=A540769.WK.DBRM(DBKUDU)
//SYSCIN DD DISP=(,PASS),DSN=&&DSNHOUT,
// UNIT=SYSDA,SPACE=(CYL,(5,3))
//SYSLIB DD DSN=&&NULLPD2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(1,1,1),RLSE),
// DATACLAS=FB0080P0,
// DCB=(BLKSIZE=32720)
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.PL#
// DD DISP=SHR,DSN=CEE.SCEESAMP
// DD DISP=SHR,DSN=MQM.Q000.COPYLIB
// DD DISP=SHR,DSN=SYS1.SAMPLIB
// DD DISP=SHR,DSN=GDDM.DIV.P0.ADMSAM
//* PROC EQ CMNPLILE $COMEPLI EQ
// DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.MVS
//*EOP CMN$$SYC
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=23474)
//SYSTERM DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SYSIN DD DISP=SHR,
// DSN=&&SKSPLIPP
// ENDIF
//*------------------------------------------
//*- compile component DBKUDU -
//*------------------------------------------
// IF RC < 5 THEN
//PLI EXEC PGM=IEL1AA,
// PARM=('NM,SIZE(4092K)',
// '',
// '',
// ''),
// COND=(4,LT)
//STEPLIB DD DSN=NPL1.RZ1.P0.SIELCOMP,DISP=SHR
//* DD DISP=SHR,DSN=CMN.DIV.P0.AKT.MODIFY.@002.LOD
//* DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.@002.LOD
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=VBA,LRECL=125,BLKSIZE=2420)
//SYSLIB DD DSN=&&NULLPD3,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(1,1,1),RLSE),
// DATACLAS=FB0080P0,
// DCB=(BLKSIZE=32720)
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.PL#
// DD DISP=SHR,DSN=CEE.SCEESAMP
// DD DISP=SHR,DSN=MQM.Q000.COPYLIB
// DD DISP=SHR,DSN=SYS1.SAMPLIB
// DD DISP=SHR,DSN=GDDM.DIV.P0.ADMSAM
// DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.MVS
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSPUNCH DD DUMMY,DCB=BLKSIZE=80
//SYSLIN DD DISP=(,PASS),DSN=&&OBJECT,
// UNIT=SYSDA,SPACE=(TRK,(5,15),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
//SYSIN DD DISP=SHR,DSN=&&DSNHOUT
// ENDIF
//*------------------------------------------
//*- Link Edit with HEWL und DSNELI ==> tso db2 attachment
//*------------------------------------------
// IF RC < 5 THEN
//LINK0 EXEC PGM=HEWL, *** LINK-EDIT COMPONENT DBKUDU
// COND=(4,LT),
// PARM=('COMPAT=LKED,XREF,LIST,MAP,REUS(SERIAL)',
// 'LET,SIZE=(3500K,960K),XCAL'),
// REGION=5M
//SYSLIB DD DISP=(NEW,DELETE),DSN=&&NULLLOD,
// DCB=CMN.DIV.P0.DB2J.#000003.LLB,UNIT=SYSDA,
// SPACE=(CYL,(1,1,1))
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLU
// DD DISP=SHR,DSN=CEE.SCEELKED
// DD DISP=SHR,DSN=ISP.SISPLOAD
// DD DISP=SHR,DSN=SYS9.CRYPTO
// DD DISP=SHR,DSN=GDDM@.DIV.P0.LOAD
// DD DISP=SHR,DSN=SYS1.CSSLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//*CEEUOPT DD DISP=(OLD,DELETE),DSN=&&CEEUOPT0
//* INCLUDE CEEUOPT
//DSNLOAD DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD *SKSBINDR*
//SYSLMOD DD DISP=SHR,DSN=A540769.WK.LOAD
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=24200)
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLIN DD *
INCLUDE SYSLIB(DSNELI)
ORDER CEESTART
ENTRY CEESTART ENTRY FOR NON-IMS/NON-CICS
// DD DISP=(OLD,DELETE),DSN=&&OBJECT
// DD *
NAME DBKUDU(R)
// ENDIF
//*------------------------------------------
//*- Bind Dbrm
//*------------------------------------------
// IF RC < 5 THEN
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBAF)
BIND PACKAGE(DB) -
OWNER(S100447) -
QUALIFIER (OA1A) -
MEMBER(DBKUDU) -
LIBRARY('A540769.WK.DBRM') -
VALIDATE(BIND) FLAG(I) ISOLATION(CS) -
RELEASE(COMMIT) EXPLAIN(N) ACTION(REPLACE) -
CURRENTDATA(N) -
DYNAMICRULES(RUN) -
ENABLE(*)
END
// ENDIF
//*------------------------------------------
//*- run under tso dsn
//*------------------------------------------
// IF RC < 5 THEN
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//*STEPLIB DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//STEPLIB DD DSN=A540769.WK.LOAD,DISP=SHR
//SYSIN DD DISP=SHR,DSN=A540769.WK.SQL(CAT)
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DBKUDU) PLAN(DBWK1) PARMS(' sD iD sD tD sD')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
// ENDIF
}¢--- A540769.WK.JCL(PLITSO) cre=2006-03-28 mod=2007-01-23-17.29.28 F540769 ----
//A540769D JOB (KEL25071,0240,,3612),'CATALOG', *
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//**********************************************************************
//* Pli Compile/Link/Bind mit dsnEli: Tso db2 attachement
//**********************************************************************
//*
//*------------------------------------------
//*- PRECOMPILE COMPONENT DBWK1 -
//*------------------------------------------
//PLIPRE EXEC PGM=IEL1AA,COND=(4,LT),
// PARM='MD,NS,NSYN,NSEQ',
// REGION=5M
//STEPLIB DD DSN=NPL1.RZ1.P0.SIELCOMP,DISP=SHR
//* DD DISP=SHR,DSN=CMN.DIV.P0.AKT.MODIFY.@002.LOD
//* DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.@002.LOD
//SYSLIB DD DSN=&&NULLPD1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(1,1,1),RLSE),
// DATACLAS=FB0080P0,
// DCB=(BLKSIZE=32720)
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.PL#
// DD DISP=SHR,DSN=CEE.SCEESAMP
// DD DISP=SHR,DSN=MQM.Q000.COPYLIB
// DD DISP=SHR,DSN=SYS1.SAMPLIB
// DD DISP=SHR,DSN=GDDM.DIV.P0.ADMSAM
//* PROC EQ CMNPLILE $COMEPLI EQ
// DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.MVS
//*EOP CMN$$SYC
//SYSLIN DD DUMMY
//SYSIN DD DISP=SHR,
// DSN=A540769.WK.PLI(DBWK1)
//* DSN=CMN.DIV.P0.DB2J.#000003.PLB(DBWK1)
//SYSPUNCH DD DISP=(,PASS),DSN=&&SKSPLIPP,
// UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=23474)
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,10)),
// DCB=BLKSIZE=1024
//*------------------------------------------
//*- db2 precompile
//*------------------------------------------
// IF RC < 5 THEN
//DB2PC EXEC PGM=DSNHPC, *** DB2 PRECOMPILE COMPONENT DBWK1
// REGION=3M,
// PARM=('SOURCE,HOST(PLI)',
// 'VERSION(DB2J000003)'),
// COND=(4,LT)
//STEPLIB DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//DBRMLIB DD DISP=SHR,DSN=A540769.WK.DBRM(DBWK1)
//SYSCIN DD DISP=(,PASS),DSN=&&DSNHOUT,
// UNIT=SYSDA,SPACE=(CYL,(5,3))
//SYSLIB DD DSN=&&NULLPD2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(1,1,1),RLSE),
// DATACLAS=FB0080P0,
// DCB=(BLKSIZE=32720)
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.PL#
// DD DISP=SHR,DSN=CEE.SCEESAMP
// DD DISP=SHR,DSN=MQM.Q000.COPYLIB
// DD DISP=SHR,DSN=SYS1.SAMPLIB
// DD DISP=SHR,DSN=GDDM.DIV.P0.ADMSAM
//* PROC EQ CMNPLILE $COMEPLI EQ
// DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.MVS
//*EOP CMN$$SYC
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FBM,LRECL=121,BLKSIZE=23474)
//SYSTERM DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SYSIN DD DISP=SHR,
// DSN=&&SKSPLIPP
// ENDIF
//*------------------------------------------
//*- compile component dbwk1 -
//*------------------------------------------
// IF RC < 5 THEN
//PLI EXEC PGM=IEL1AA,
// PARM=('NM,SIZE(4092K)',
// '',
// '',
// ''),
// COND=(4,LT)
//STEPLIB DD DSN=NPL1.RZ1.P0.SIELCOMP,DISP=SHR
//* DD DISP=SHR,DSN=CMN.DIV.P0.AKT.MODIFY.@002.LOD
//* DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.@002.LOD
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=VBA,LRECL=125,BLKSIZE=2420)
//SYSLIB DD DSN=&&NULLPD3,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(1,1,1),RLSE),
// DATACLAS=FB0080P0,
// DCB=(BLKSIZE=32720)
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.PL#
// DD DISP=SHR,DSN=CEE.SCEESAMP
// DD DISP=SHR,DSN=MQM.Q000.COPYLIB
// DD DISP=SHR,DSN=SYS1.SAMPLIB
// DD DISP=SHR,DSN=GDDM.DIV.P0.ADMSAM
// DD DISP=SHR,DSN=CMN.DIV.P0.AKT.CHGMAN.MVS
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSPUNCH DD DUMMY,DCB=BLKSIZE=80
//SYSLIN DD DISP=(,PASS),DSN=&&OBJECT,
// UNIT=SYSDA,SPACE=(TRK,(5,15),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
//SYSIN DD DISP=SHR,DSN=&&DSNHOUT
// ENDIF
//*------------------------------------------
//*- Link Edit with HEWL und DSNELI ==> tso db2 attachment
//*------------------------------------------
// IF RC < 5 THEN
//LINK0 EXEC PGM=HEWL, *** LINK-EDIT COMPONENT DBWK1
// COND=(4,LT),
// PARM=('COMPAT=LKED,XREF,LIST,MAP,REUS(SERIAL)',
// 'LET,SIZE=(3500K,960K),XCAL'),
// REGION=5M
//SYSLIB DD DISP=(NEW,DELETE),DSN=&&NULLLOD,
// DCB=CMN.DIV.P0.DB2J.#000003.LLB,UNIT=SYSDA,
// SPACE=(CYL,(1,1,1))
// DD DISP=SHR,DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLU
// DD DISP=SHR,DSN=CEE.SCEELKED
// DD DISP=SHR,DSN=ISP.SISPLOAD
// DD DISP=SHR,DSN=SYS9.CRYPTO
// DD DISP=SHR,DSN=GDDM@.DIV.P0.LOAD
// DD DISP=SHR,DSN=SYS1.CSSLIB
// DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD
//*CEEUOPT DD DISP=(OLD,DELETE),DSN=&&CEEUOPT0
//* INCLUDE CEEUOPT
//DSNLOAD DD DISP=SHR,DSN=DB2@.RZ1.P0.DSNLOAD *SKSBINDR*
//SYSLMOD DD DISP=SHR,DSN=A540769.WK.LOAD
//SYSPRINT DD SYSOUT=*,
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=24200)
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLIN DD *
INCLUDE SYSLIB(DSNELI)
ORDER CEESTART
ENTRY CEESTART ENTRY FOR NON-IMS/NON-CICS
// DD DISP=(OLD,DELETE),DSN=&&OBJECT
// DD *
NAME DBWK1(R)
// ENDIF
//*------------------------------------------
//*- Bind Dbrm
//*------------------------------------------
// IF RC < 5 THEN
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBAF)
BIND PACKAGE(DB) -
OWNER(S100447) -
QUALIFIER (OA1A) -
MEMBER(DBWK1) -
LIBRARY('A540769.WK.DBRM') -
VALIDATE(BIND) FLAG(I) ISOLATION(CS) -
RELEASE(COMMIT) EXPLAIN(N) ACTION(REPLACE) -
CURRENTDATA(N) -
DYNAMICRULES(RUN) -
ENABLE(*)
END
// ENDIF
//*------------------------------------------
//*- run under tso dsn
//*------------------------------------------
// IF RC < 5 THEN
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//*STEPLIB DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//STEPLIB DD DSN=A540769.WK.LOAD,DISP=SHR
//SYSIN DD DISP=SHR,DSN=A540769.WK.SQL(CAT)
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DBWK1) PLAN(DBWK1) PARMS(' sD iD sD tD sD fT')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
// ENDIF
}¢--- A540769.WK.JCL(PLITSORU) cre=2006-03-31 mod=2006-03-31-10.27.23 F540769 ---
//A540769D JOB (KEL25071,0240,,3612),'CATALOG', *
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*------------------------------------------
//*- Bind Dbrm
//*------------------------------------------
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBAF)
BIND PACKAGE(DBXY) -
OWNER(A540769) -
QUALIFIER (OA1A) -
MEMBER(DBWK1) -
LIBRARY('A540769.WK.DBRM') -
VALIDATE(BIND) FLAG(I) ISOLATION(CS) -
RELEASE(COMMIT) EXPLAIN(N) ACTION(REPLACE) -
CURRENTDATA(N) -
DYNAMICRULES(RUN) -
ENABLE(*)
END
//*------------------------------------------
//*- run under tso dsn
//*------------------------------------------
// IF RC < 5 THEN
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//*STEPLIB DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//STEPLIB DD DSN=A540769.WK.LOAD,DISP=SHR
//SYSIN DD DISP=SHR,DSN=A540769.WK.SQL(CAT)
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DBWK1) PLAN(DBWK1)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
// ENDIF
}¢--- A540769.WK.JCL(PLITSO2) cre=2006-09-29 mod=2010-06-16-13.22.24 A540769 ---
//A540769R JOB (KEL25071,0240,,3612),'CATALOG', *
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//STEPLIB DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//*TEPLIB DD DSN=A540769.WK.LOAD,DISP=SHR
//SYSIN DD DISP=SHR,DSN=A540769.WK.SQL(CAT)
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DBWK2) PLAN(DBWK2) PARMS(' sD iD sD tD sD')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
}¢--- A540769.WK.JCL(PLITSO3) cre=2007-09-14 mod=2007-09-14-15.13.37 F540769 ---
//A540769D JOB (KEL25071,0240,,3612),'CATALOG', *
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//*------------------------------------------
//*- run under tso dsn
//*------------------------------------------
//S1 EXEC PGM=DBWK3,DYNAMNBR=200,TIME=99
//STEPLIB DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//*STEPLIB DD DSN=A540769.WK.LOAD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
// IF RC < 5 THEN
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//STEPLIB DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//*STEPLIB DD DSN=A540769.WK.LOAD,DISP=SHR
//SYSIN DD DISP=SHR,DSN=A540769.WK.SQL(CAT)
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DBWK3) PLAN(DBWK1) PARMS(' sD iD sD tD sD')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
// ENDIF
}¢--- A540769.WK.JCL(PLOADTED) cre=2006-12-21 mod=2006-12-21-15.33.46 F540769 ---
//A540769D JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=GDB9998
//*MAIN CLASS=LOG
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 's100447';
DROP TABLESPACE DGDB9998.A801A;
COMMIT;
CREATE TABLESPACE A801A
IN DGDB9998
USING STOGROUP GSMS
PRIQTY 48 SECQTY 48
ERASE NO
FREEPAGE 4 PCTFREE 36
GBPCACHE CHANGED
TRACKMOD YES
SEGSIZE 64
BUFFERPOOL BP2
LOCKMAX SYSTEM
CLOSE YES
COMPRESS YES
CCSID EBCDIC
DEFINE YES
MAXROWS 255;
--
CREATE TABLE GDB9998.TWK801A1
( de1 DECIMAL(15, 0) NOT NULL,
ch2 CHAR(5) FOR SBCS DATA NOT NULL,
ts3 TIMESTAMP NOT NULL WITH DEFAULT,
ti4 TIME NOT NULL WITH DEFAULT,
da5 DATE NOT NULL WITH DEFAULT,
CONSTRAINT CHECK2
check (ch2 in( 'eins', 'zwei', 'drei', 'vier'))
)
IN DGDB9998.A801A
AUDIT NONE
DATA CAPTURE NONE
CCSID EBCDIC
NOT VOLATILE;
commit;
insert into GDB9998.TWK801A1 (de1, ch2) values (1, 'eins');
insert into GDB9998.TWK801A1 (de1, ch2) values (2, 'zwei');
insert into GDB9998.TWK801A1 (de1, ch2) values (3, 'drei');
insert into GDB9998.TWK801A1 (de1, ch2) values (4, 'vier');
-- insert into GDB9998.TWK801A1 (de1, ch2) values (5, 'fuenf');
commit;
DROP TABLESPACE DGDB9998.A802A;
COMMIT;
CREATE TABLESPACE A802A
IN DGDB9998
USING STOGROUP GSMS
PRIQTY 48 SECQTY 48
ERASE NO
FREEPAGE 4 PCTFREE 36
GBPCACHE CHANGED
TRACKMOD YES
numParts 4
BUFFERPOOL BP2
LOCKMAX SYSTEM
CLOSE YES
COMPRESS YES
CCSID EBCDIC
DEFINE YES
MAXROWS 255;
--
CREATE TABLE GDB9998.TWK802A1
( de1 DECIMAL(15, 0) NOT NULL,
ch2 CHAR(5) FOR SBCS DATA NOT NULL,
ts3 TIMESTAMP NOT NULL WITH DEFAULT,
ti4 TIME NOT NULL WITH DEFAULT,
da5 DATE NOT NULL WITH DEFAULT,
in6 int NOT NULL WITH DEFAULT,
re7 real NOT NULL WITH DEFAULT
)
IN DGDB9998.A802A
partition by (ch2, ts3)
( partition 1 ending ('e '),
partition 2 ending ('j ', '2006-01-01-00.00.00'),
partition 3 ending ('J ', '2006-01-01-00.00.00'),
partition 4 ending (x'FF')
)
AUDIT NONE
DATA CAPTURE NONE
CCSID EBCDIC
NOT VOLATILE;
commit;
CREATE UNIQUE INDEX GDB9998.IWK802A0
ON GDB9998.TWK802A1
(de1 asc, ts3 ASC)
USING STOGROUP GSMS
PRIQTY 48 SECQTY 48
ERASE NO
FREEPAGE 10 PCTFREE 10
GBPCACHE CHANGED
CLUSTER
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFINE YES
PIECESIZE 2 G;
CREATE INDEX GDB9998.IWK802A1
ON GDB9998.TWK802A1
(re7 asc, in6 ASC, da5 desc)
USING STOGROUP GSMS
PRIQTY 48 SECQTY 48
ERASE NO
FREEPAGE 10 PCTFREE 10
GBPCACHE CHANGED
PARTITIONED
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFINE YES
;
commit;
insert into GDB9998.TWK802A1 (de1, ch2) values (1, 'eins');
insert into GDB9998.TWK802A1 (de1, ch2) values (2, 'zwei');
insert into GDB9998.TWK802A1 (de1, ch2) values (3, 'drei');
insert into GDB9998.TWK802A1 (de1, ch2) values (4, 'vier');
-- insert into GDB9998.TWK802A1 (de1, ch2) values (5, 'fuenf');
insert into GDB9998.TWK802A1 (de1, ch2, ts3)
values (5, 'j', '1956-04-01-06.12.34');
insert into GDB9998.TWK802A1 (de1, ch2, ts3)
values (6, 'j', '2008-08-01-12.34.56');
insert into GDB9998.TWK802A1 (de1, ch2, ts3)
values (7, 'J', '1957-04-01-06.12.34');
insert into GDB9998.TWK802A1 (de1, ch2, ts3)
values (8, 'J', '2007-08-01-12.34.56');
commit;
insert into GDB9998.TWK802A1 (de1, ch2, ts3, in6, re7)
select de1 + 10, ch2, ts3, 10*de1+in6, 100*de1+re7
from GDB9998.TWK802A1;
insert into GDB9998.TWK802A1 (de1, ch2, ts3, in6, re7)
select de1 + 20, ch2, ts3, 10*de1 , 100*de1+re7
from GDB9998.TWK802A1;
insert into GDB9998.TWK802A1 (de1, ch2, ts3, in6, re7)
select de1 + 40, ch2, ts3, 10*de1+in6, 100*de1+re7
from GDB9998.TWK802A1;
insert into GDB9998.TWK802A1 (de1, ch2, ts3, in6, re7)
select de1 +100, ch2, ts3, 10*de1 , 100*de1+re7
from GDB9998.TWK802A1;
insert into GDB9998.TWK802A1 (de1, ch2, ts3, in6, re7)
select de1 +200, ch2, ts3, 10*de1+in6, 100*de1+re7
from GDB9998.TWK802A1;
insert into GDB9998.TWK802A1 (de1, ch2, ts3, in6, re7)
select de1 +400, ch2, ts3, 10*de1 , 100*de1+re7
from GDB9998.TWK802A1;
insert into GDB9998.TWK802A1 (de1, ch2, ts3, in6, re7)
select de1+1000, ch2, ts3, 10*de1+in6, 100*de1+re7
from GDB9998.TWK802A1;
insert into GDB9998.TWK802A1 (de1, ch2, ts3, in6, re7)
select de1+2000, ch2, ts3, 10*de1 , 100*de1+re7
from GDB9998.TWK802A1;
commit;
}¢--- A540769.WK.JCL(PLOADTEF) cre=2006-12-21 mod=2006-12-21-15.18.33 F540769 ---
//A540769D JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 's100447';
DROP TABLESPACE DA540769.A801A;
COMMIT;
CREATE TABLESPACE A801A
IN DA540769
USING STOGROUP GSMS
PRIQTY 48 SECQTY 48
ERASE NO
FREEPAGE 4 PCTFREE 36
GBPCACHE CHANGED
TRACKMOD YES
SEGSIZE 64
BUFFERPOOL BP2
LOCKMAX SYSTEM
CLOSE YES
COMPRESS YES
CCSID EBCDIC
DEFINE YES
MAXROWS 255;
--
CREATE TABLE A540769.TWK801A1
( de1 DECIMAL(15, 0) NOT NULL,
ch2 CHAR(5) FOR SBCS DATA NOT NULL,
ts3 TIMESTAMP NOT NULL WITH DEFAULT,
ti4 TIME NOT NULL WITH DEFAULT,
da5 DATE NOT NULL WITH DEFAULT,
CONSTRAINT CHECK2
check (ch2 in( 'eins', 'zwei', 'drei', 'vier'))
)
IN DA540769.A801A
AUDIT NONE
DATA CAPTURE NONE
CCSID EBCDIC
NOT VOLATILE;
commit;
insert into A540769.TWK801A1 (de1, ch2) values (1, 'eins');
insert into A540769.TWK801A1 (de1, ch2) values (2, 'zwei');
insert into A540769.TWK801A1 (de1, ch2) values (3, 'drei');
insert into A540769.TWK801A1 (de1, ch2) values (4, 'vier');
-- insert into A540769.TWK801A1 (de1, ch2) values (5, 'fuenf');
commit;
DROP TABLESPACE DA540769.A802A;
COMMIT;
CREATE TABLESPACE A802A
IN DA540769
USING STOGROUP GSMS
PRIQTY 48 SECQTY 48
ERASE NO
FREEPAGE 4 PCTFREE 36
GBPCACHE CHANGED
TRACKMOD YES
numParts 4
BUFFERPOOL BP2
LOCKMAX SYSTEM
CLOSE YES
COMPRESS YES
CCSID EBCDIC
DEFINE YES
MAXROWS 255;
--
CREATE TABLE A540769.TWK802A1
( de1 DECIMAL(15, 0) NOT NULL,
ch2 CHAR(5) FOR SBCS DATA NOT NULL,
ts3 TIMESTAMP NOT NULL WITH DEFAULT,
ti4 TIME NOT NULL WITH DEFAULT,
da5 DATE NOT NULL WITH DEFAULT,
in6 int NOT NULL WITH DEFAULT,
re7 real NOT NULL WITH DEFAULT
)
IN DA540769.A802A
partition by (ch2, ts3)
( partition 1 ending ('e'),
partition 2 ending ('j', '2006-01-01-00.00.00'),
partition 3 ending ('J', '2006-01-01-00.00.00'),
partition 4 ending (x'FF')
)
AUDIT NONE
DATA CAPTURE NONE
CCSID EBCDIC
NOT VOLATILE;
commit;
CREATE UNIQUE INDEX A540769.IWK802A0
ON A540769.TWK802A1
(de1 asc, ts3 ASC)
USING STOGROUP GSMS
PRIQTY 48 SECQTY 48
ERASE NO
FREEPAGE 10 PCTFREE 10
GBPCACHE CHANGED
CLUSTER
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFINE YES
PIECESIZE 2 G;
CREATE INDEX A540769.IWK802A1
ON A540769.TWK802A1
(re7 asc, in6 ASC, da5 desc)
USING STOGROUP GSMS
PRIQTY 48 SECQTY 48
ERASE NO
FREEPAGE 10 PCTFREE 10
GBPCACHE CHANGED
PARTITIONED
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFINE YES
;
commit;
insert into A540769.TWK802A1 (de1, ch2) values (1, 'eins');
insert into A540769.TWK802A1 (de1, ch2) values (2, 'zwei');
insert into A540769.TWK802A1 (de1, ch2) values (3, 'drei');
insert into A540769.TWK802A1 (de1, ch2) values (4, 'vier');
-- insert into A540769.TWK802A1 (de1, ch2) values (5, 'fuenf');
insert into A540769.TWK802A1 (de1, ch2, ts3)
values (5, 'j', '1956-04-01-06.12.34');
insert into A540769.TWK802A1 (de1, ch2, ts3)
values (6, 'j', '2008-08-01-12.34.56');
insert into A540769.TWK802A1 (de1, ch2, ts3)
values (7, 'J', '1957-04-01-06.12.34');
insert into A540769.TWK802A1 (de1, ch2, ts3)
values (8, 'J', '2007-08-01-12.34.56');
commit;
insert into A540769.TWK802A1 (de1, ch2, ts3, in6, re7)
select de1 + 10, ch2, ts3, 10*de1+in6, 100*de1+re7
from A540769.TWK802A1;
insert into A540769.TWK802A1 (de1, ch2, ts3, in6, re7)
select de1 + 20, ch2, ts3, 10*de1 , 100*de1+re7
from A540769.TWK802A1;
insert into A540769.TWK802A1 (de1, ch2, ts3, in6, re7)
select de1 + 40, ch2, ts3, 10*de1+in6, 100*de1+re7
from A540769.TWK802A1;
insert into A540769.TWK802A1 (de1, ch2, ts3, in6, re7)
select de1 + 80, ch2, ts3, 10*de1 , 100*de1+re7
from A540769.TWK802A1;
commit;
}¢--- A540769.WK.JCL(PLOADTEO) cre=2006-12-22 mod=2006-12-22-09.35.39 F540769 ---
//A540769D JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
set current sqlId = 's100447';
--
------------------------------------------------------------------------
-- TWK811X1 is a clone of TMF200A1
------------------------------------------------------------------------
--
CREATE TABLESPACE A811X
IN DA540769
USING STOGROUP GSMS
PRIQTY 48 SECQTY 7200
FREEPAGE 10 PCTFREE 10
GBPCACHE CHANGED
TRACKMOD YES
NUMPARTS 32
(PART 16 FREEPAGE 0 PCTFREE 5)
BUFFERPOOL BP2
LOCKSIZE ANY
LOCKMAX SYSTEM
CLOSE YES
COMPRESS YES
CCSID EBCDIC
DEFINE YES
MAXROWS 255;
--
------------------------------------------------------------------------
-- Table=oa1a.Twk811X1 In DA540769.A811X
------------------------------------------------------------------------
--
CREATE TABLE oa1a.Twk811X1
(MF200001 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200002 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200003 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200004 CHAR(25) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200005 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200006 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200007 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200008 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200009 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200010 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200011 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200012 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200013 DATE NOT NULL WITH DEFAULT,
MF200014 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200015 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200016 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200017 CHAR(12) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200018 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF200019 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF200020 CHAR(8) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200021 TIMESTAMP NOT NULL WITH DEFAULT,
MF200022 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200023 CHAR(12) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200024 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200025 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200026 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200027 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200028 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200029 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200030 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200031 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200032 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200033 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200034 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200035 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200036 CHAR(18) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200037 DECIMAL(15, 0) NOT NULL WITH DEFAULT,
MF200038 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200039 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200040 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200041 CHAR(2) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200042 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200043 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF200044 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200045 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200046 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200047 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200051 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200052 CHAR(3) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200053 DECIMAL(15, 3) NOT NULL WITH DEFAULT,
MF200054 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200055 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200056 CHAR(8) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200059 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200060 TIMESTAMP NOT NULL WITH DEFAULT,
MF200062 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200063 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200064 DATE NOT NULL WITH DEFAULT,
MF200065 DATE NOT NULL WITH DEFAULT,
MF200066 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200067 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200068 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200069 CHAR(4) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200070 CHAR(7) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200071 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200072 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200073 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200074 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200075 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200076 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200077 CHAR(6) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200078 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200079 CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200080 DATE NOT NULL WITH DEFAULT,
MF200081 CHAR(5) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200082 CHAR(26) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200083 SMALLINT NOT NULL WITH DEFAULT,
MF200084 SMALLINT NOT NULL WITH DEFAULT,
MF200085 SMALLINT NOT NULL WITH DEFAULT,
MF200086 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200087 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200088 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200089 CHAR(35) FOR SBCS DATA NOT NULL
WITH DEFAULT,
MF200090 SMALLINT NOT NULL WITH DEFAULT,
MF200091 SMALLINT NOT NULL WITH DEFAULT,
MF200092 CHAR(16) FOR SBCS DATA NOT NULL
WITH DEFAULT,
CONSTRAINT MF200001
PRIMARY KEY (MF200001))
IN DA540769.A811X
AUDIT NONE
DATA CAPTURE NONE
CCSID EBCDIC
NOT VOLATILE;
--
------------------------------------------------------------------------
-- Database=DA540769
-- Index=oa1a.Iwk811X6 On oa1a.Twk811X1
------------------------------------------------------------------------
--
CREATE INDEX oa1a.Iwk811X6
ON oa1a.Twk811X1
(MF200092 ASC,
MF200085 ASC,
MF200013 DESC)
USING STOGROUP GSMS
PRIQTY 48 SECQTY 7200
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFINE YES
PIECESIZE 2 G;
--
------------------------------------------------------------------------
-- Database=DA540769
-- Index=oa1a.Iwk811X5 On oa1a.Twk811X1
------------------------------------------------------------------------
--
CREATE INDEX oa1a.Iwk811X5
ON oa1a.Twk811X1
(MF200085 ASC,
MF200084 ASC)
USING STOGROUP GSMS
PRIQTY 48 SECQTY 7200
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFINE YES
PIECESIZE 1 M;
--
------------------------------------------------------------------------
-- Database=DA540769
-- Index=oa1a.Iwk811X4 On oa1a.Twk811X1
------------------------------------------------------------------------
--
CREATE INDEX oa1a.Iwk811X4
ON oa1a.Twk811X1
(MF200066 ASC,
MF200085 ASC,
MF200013 DESC)
USING STOGROUP GSMS
PRIQTY 48 SECQTY 7200
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFINE YES
PIECESIZE 8 M;
--
------------------------------------------------------------------------
-- Database=DA540769
-- Index=oa1a.Iwk811X3 On oa1a.Twk811X1
------------------------------------------------------------------------
--
CREATE INDEX oa1a.Iwk811X3
ON oa1a.Twk811X1
(MF200023 ASC,
MF200085 ASC,
MF200013 DESC)
USING STOGROUP GSMS
PRIQTY 48 SECQTY 7200
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFINE YES
PIECESIZE 2 M;
--
------------------------------------------------------------------------
-- Database=DA540769
-- Index=oa1a.Iwk811X2 On oa1a.Twk811X1
------------------------------------------------------------------------
--
CREATE INDEX oa1a.Iwk811X2
ON oa1a.Twk811X1
(MF200067 ASC,
MF200085 ASC,
MF200013 DESC)
USING STOGROUP GSMS
PRIQTY 48 SECQTY 7200
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFINE YES
PIECESIZE 1 M;
--
------------------------------------------------------------------------
-- Database=DA540769
-- Index=oa1a.Iwk811X0 On oa1a.Twk811X1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX oa1a.Iwk811X0
ON oa1a.Twk811X1
(MF200001 ASC)
USING STOGROUP GSMS
PRIQTY 48 SECQTY 7200
ERASE NO
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
NOT CLUSTER
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFINE YES
PIECESIZE 2 M;
--
------------------------------------------------------------------------
-- Database=DA540769
-- Index=oa1a.Iwk811X1 On oa1a.Twk811X1
------------------------------------------------------------------------
--
CREATE INDEX oa1a.Iwk811X1
ON oa1a.Twk811X1
(MF200067 ASC,
MF200013 DESC)
USING STOGROUP GSMS
PRIQTY 48 SECQTY 7200
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
CLUSTER
(PART 1 VALUES('0010ZZZZZZZZ9999'),
PART 2 VALUES('0011BACOBACO1299'),
PART 3 VALUES('0011BACOBACO1399'),
PART 4 VALUES('0011BACOBACO1599'),
PART 5 VALUES('0011BACOBACO1699'),
PART 6 VALUES('0011BACOBACO1799'),
PART 7 VALUES('0011BACOBACO2299'),
PART 8 VALUES('0011BACOBACO2599'),
PART 9 VALUES('0011BACOBACO2799'),
PART 10 VALUES('0011BAHEBAHE9999'),
PART 11 VALUES('0011BAHTBAHT9999'),
PART 12 VALUES('0011BCMBBCMB9999'),
PART 13 VALUES('0011BCMSBCMS9999'),
PART 14 VALUES('0011BCRFBCRF9999'),
PART 15 VALUES('0011BCTLBCTL9999'),
PART 16 VALUES('0011BCZTBCZT9999'),
PART 17 VALUES('0011BCZWBCZW9999'),
PART 18 VALUES('0011BDNUBDNU9999'),
PART 19 VALUES('0011BGBABGBA9999'),
PART 20 VALUES('0011CKZFCKZF9999'),
PART 21 VALUES('0012PZZZPZZZ9999'),
PART 22 VALUES('0012SCNNSCNN9999'),
PART 23 VALUES('0012SCRRSCRR9999'),
PART 24 VALUES('0012SCZSSCZS9999'),
PART 25 VALUES('0012SWESSWES9999'),
PART 26 VALUES('0012SWLNSWLN9999'),
PART 27 VALUES('0013ZZZZZZZZ9999'),
PART 28 VALUES('0014ZZZZZZZZ9999'),
PART 29 VALUES('0015NCZZNCZZ9999'),
PART 30 VALUES('0015NZZZNZZZ9999'),
PART 31 VALUES('0020ZZZZZZZZ9999'),
PART 32 VALUES('9999ZZZZZZZZ9999'))
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFINE YES;
--
------------------------------------------------------------------------
-- View=oa1a.Vwk811X1V
------------------------------------------------------------------------
--
--
CREATE VIEW oa1a.Vwk811X1V(ID_MITTELFLUSS, RZ_HERKUNFT,
LIEFERANTENTYP, AUFTRAGSNUMMER, STORNO, NACHZUERFASSEN,
ZU_BEWERTEN, BEWEGUNGSART_DEPOT, PRODUKTENR_PROK, MF_PRODUKT,
PRODUKTEKLASSE, BEWEGUNGSVERDICHT, BUCHUNGSDATUM, GRUND,
URHEBER, WAEHRUNG, VALOR, BETRAG_FWHRG, BETRAG_CHF,
MUTATIONSPID, MUTATIONSDATUM, BUID_KUNDE, CIFNUMMER_KUNDE,
PVV_KUNDE, KUNDENART, KUNDENSEGMENT, KUNDENDOMIZIL,
KONTOARTENSCHLUESS, DEPOTARTENSCHLUESS, KUNDEN_BEZIEHUNGNR,
KUNDEN_GMZUSATZ, KUNDENBUERO_KUNDE, KUNDENVERANTWORTL,
BUID_GEGENPARTEI, GEGENPARTEI_TYP, GEGENPARTEI,
CSID_GEGENPARTEI, GP_BEZIEHUNGSNR, GP_GELDMARKTZUSATZ,
HAUPTGRUPPE_GP, UNTERGRUPPE_GP, BESTANDESWAEHRUNG,
BETR_BESTANDESWHRG, VALOREN_SEQUENZNR, GFM_LAUFNUMMER,
DEPOTSTELLE, BUCHUNGSART, DOMIZIL_GP, BEARBEITUNGSCODE,
VOLUMEN_NOM_STCK, LEITWEG, ZU_ABFLUSS, POLICENNUMMER,
AUFTRAGSLAUFNUMMER, ERSTELLUNGSTIMSTMP, COUPON_MANTEL,
MITTELFLUSS_IDENTI, EROEFFNUNGSDATUM, SALDIERUNGSDATUM,
INT_OE_FORM_PID_KV, INT_OE_KUNDENBUERO, INT_OE_KBUERO_GP,
BKST_KUNDENCIF, STAMM_KUNDENCIF, PRUEF_KUNDENCIF,
EDIT_STATUS_GP, EDIT_STATUS_GRUND, EDIT_STATUS_URHEB,
EDIT_STATUS_GESAMT, EDIT_STATUS_KOMMNT, BANKENCLEARING_NR,
VORHERIGER_GP_TYP, DEPOTUEBERTRAG, MUTIERBAR_BIS,
PREISKOMPONENTE, LADE_TIMESTAMP_ID, TRANSACTION_TYP,
RELEVANT_GROUP, LIFE_CYCLE_STATUS, NAME_AUFTRAGGEBER,
ORT_AUFTRAGGEBER, NAME_BEGUENSTIGTER, ORT_BEGUENSTIGTER,
LIMITEN_TYP, LIMITEN_HIERARCHIE, RM_INTERNATIONAL) AS
SELECT ALL oa1a.Twk811X1.MF200001, oa1a.Twk811X1.MF200002,
oa1a.Twk811X1.MF200003, oa1a.Twk811X1.MF200004,
oa1a.Twk811X1.MF200005, oa1a.Twk811X1.MF200006,
oa1a.Twk811X1.MF200007, oa1a.Twk811X1.MF200008,
oa1a.Twk811X1.MF200009, oa1a.Twk811X1.MF200010,
oa1a.Twk811X1.MF200011, oa1a.Twk811X1.MF200012,
oa1a.Twk811X1.MF200013, oa1a.Twk811X1.MF200014,
oa1a.Twk811X1.MF200015, oa1a.Twk811X1.MF200016,
oa1a.Twk811X1.MF200017, oa1a.Twk811X1.MF200018,
oa1a.Twk811X1.MF200019, oa1a.Twk811X1.MF200020,
oa1a.Twk811X1.MF200021, oa1a.Twk811X1.MF200022,
oa1a.Twk811X1.MF200023, oa1a.Twk811X1.MF200024,
oa1a.Twk811X1.MF200025, oa1a.Twk811X1.MF200026,
oa1a.Twk811X1.MF200027, oa1a.Twk811X1.MF200028,
oa1a.Twk811X1.MF200029, oa1a.Twk811X1.MF200030,
oa1a.Twk811X1.MF200031, oa1a.Twk811X1.MF200032,
oa1a.Twk811X1.MF200033, oa1a.Twk811X1.MF200034,
oa1a.Twk811X1.MF200035, oa1a.Twk811X1.MF200036,
oa1a.Twk811X1.MF200037, oa1a.Twk811X1.MF200038,
oa1a.Twk811X1.MF200039, oa1a.Twk811X1.MF200040,
oa1a.Twk811X1.MF200041, oa1a.Twk811X1.MF200042,
oa1a.Twk811X1.MF200043, oa1a.Twk811X1.MF200044,
oa1a.Twk811X1.MF200045, oa1a.Twk811X1.MF200046,
oa1a.Twk811X1.MF200047, oa1a.Twk811X1.MF200051,
oa1a.Twk811X1.MF200052, oa1a.Twk811X1.MF200053,
oa1a.Twk811X1.MF200054, oa1a.Twk811X1.MF200055,
oa1a.Twk811X1.MF200056, oa1a.Twk811X1.MF200059,
oa1a.Twk811X1.MF200060, oa1a.Twk811X1.MF200062,
oa1a.Twk811X1.MF200063, oa1a.Twk811X1.MF200064,
oa1a.Twk811X1.MF200065, oa1a.Twk811X1.MF200066,
oa1a.Twk811X1.MF200067, oa1a.Twk811X1.MF200068,
oa1a.Twk811X1.MF200069, oa1a.Twk811X1.MF200070,
oa1a.Twk811X1.MF200071, oa1a.Twk811X1.MF200072,
oa1a.Twk811X1.MF200073, oa1a.Twk811X1.MF200074,
oa1a.Twk811X1.MF200075, oa1a.Twk811X1.MF200076,
oa1a.Twk811X1.MF200077, oa1a.Twk811X1.MF200078,
oa1a.Twk811X1.MF200079, oa1a.Twk811X1.MF200080,
oa1a.Twk811X1.MF200081, oa1a.Twk811X1.MF200082,
oa1a.Twk811X1.MF200083, oa1a.Twk811X1.MF200084,
oa1a.Twk811X1.MF200085, oa1a.Twk811X1.MF200086,
oa1a.Twk811X1.MF200087, oa1a.Twk811X1.MF200088,
oa1a.Twk811X1.MF200089, oa1a.Twk811X1.MF200090,
oa1a.Twk811X1.MF200091, oa1a.Twk811X1.MF200092
FROM oa1a.Twk811X1 ;
--
COMMIT;
--
------------------------------------------------------------------------
-- ADB2GEN - End of generated DDL --
------------------------------------------------------------------------
--
}¢--- A540769.WK.JCL(PLOADTEP) cre=2006-12-22 mod=2006-12-22-11.39.03 F540769 ---
TEMPLATE A7D5GHII
DSN('A540769.TMPUL.MF01A1A.A200A.P&PA..UNLO')
DISP(OLD,KEEP,KEEP)
LOAD DATA LOG NO RESUME YES
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 1223306
INTO TABLE "OA1X"."TWK811X1"
PART 00025 INDDN A7D5GHII
WHEN(00001:00002) = X'0017'
( "MF200001"
POSITION( 00003:00018) CHAR(00016)
, "MF200002"
POSITION( 00019:00019) CHAR(00001)
, "MF200003"
POSITION( 00020:00024) CHAR(00005)
, "MF200004"
POSITION( 00025:00049) CHAR(00025)
, "MF200005"
POSITION( 00050:00050) CHAR(00001)
, "MF200006"
POSITION( 00051:00051) CHAR(00001)
, "MF200007"
POSITION( 00052:00052) CHAR(00001)
, "MF200008"
POSITION( 00053:00055) CHAR(00003)
, "MF200009"
POSITION( 00056:00060) CHAR(00005)
, "MF200010"
POSITION( 00061:00064) CHAR(00004)
, "MF200011"
POSITION( 00065:00065) CHAR(00001)
, "MF200012"
POSITION( 00066:00066) CHAR(00001)
, "MF200013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF200014"
POSITION( 00077:00080) CHAR(00004)
, "MF200015"
POSITION( 00081:00084) CHAR(00004)
, "MF200016"
POSITION( 00085:00088) CHAR(00004)
, "MF200017"
POSITION( 00089:00100) CHAR(00012)
, "MF200018"
POSITION( 00101:00108) DECIMAL
, "MF200019"
POSITION( 00109:00116) DECIMAL
, "MF200020"
POSITION( 00117:00124) CHAR(00008)
, "MF200021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF200022"
POSITION( 00151:00154) CHAR(00004)
, "MF200023"
POSITION( 00155:00166) CHAR(00012)
, "MF200024"
POSITION( 00167:00167) CHAR(00001)
, "MF200025"
POSITION( 00168:00170) CHAR(00003)
, "MF200026"
POSITION( 00171:00173) CHAR(00003)
, "MF200027"
POSITION( 00174:00176) CHAR(00003)
, "MF200028"
POSITION( 00177:00179) CHAR(00003)
, "MF200029"
POSITION( 00180:00182) CHAR(00003)
, "MF200030"
POSITION( 00183:00198) CHAR(00016)
, "MF200031"
POSITION( 00199:00200) CHAR(00002)
, "MF200032"
POSITION( 00201:00207) CHAR(00007)
, "MF200033"
POSITION( 00208:00214) CHAR(00007)
, "MF200034"
POSITION( 00215:00218) CHAR(00004)
, "MF200035"
POSITION( 00219:00219) CHAR(00001)
, "MF200036"
POSITION( 00220:00237) CHAR(00018)
, "MF200037"
POSITION( 00238:00245) DECIMAL
, "MF200038"
POSITION( 00246:00261) CHAR(00016)
, "MF200039"
POSITION( 00262:00263) CHAR(00002)
, "MF200040"
POSITION( 00264:00265) CHAR(00002)
, "MF200041"
POSITION( 00266:00267) CHAR(00002)
, "MF200042"
POSITION( 00268:00271) CHAR(00004)
, "MF200043"
POSITION( 00272:00279) DECIMAL
, "MF200044"
POSITION( 00280:00284) CHAR(00005)
, "MF200045"
POSITION( 00285:00288) CHAR(00004)
, "MF200046"
POSITION( 00289:00292) CHAR(00004)
, "MF200047"
POSITION( 00293:00293) CHAR(00001)
, "MF200051"
POSITION( 00294:00296) CHAR(00003)
, "MF200052"
POSITION( 00297:00299) CHAR(00003)
, "MF200053"
POSITION( 00300:00307) DECIMAL
, "MF200054"
POSITION( 00308:00314) CHAR(00007)
, "MF200055"
POSITION( 00315:00315) CHAR(00001)
, "MF200056"
POSITION( 00316:00323) CHAR(00008)
, "MF200059"
POSITION( 00324:00328) CHAR(00005)
, "MF200060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF200062"
POSITION( 00355:00355) CHAR(00001)
, "MF200063"
POSITION( 00356:00356) CHAR(00001)
, "MF200064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF200065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF200066"
POSITION( 00377:00392) CHAR(00016)
, "MF200067"
POSITION( 00393:00408) CHAR(00016)
, "MF200068"
POSITION( 00409:00424) CHAR(00016)
, "MF200069"
POSITION( 00425:00428) CHAR(00004)
, "MF200070"
POSITION( 00429:00435) CHAR(00007)
, "MF200071"
POSITION( 00436:00436) CHAR(00001)
, "MF200072"
POSITION( 00437:00437) CHAR(00001)
, "MF200073"
POSITION( 00438:00438) CHAR(00001)
, "MF200074"
POSITION( 00439:00439) CHAR(00001)
, "MF200075"
POSITION( 00440:00440) CHAR(00001)
, "MF200076"
POSITION( 00441:00441) CHAR(00001)
, "MF200077"
POSITION( 00442:00447) CHAR(00006)
, "MF200078"
POSITION( 00448:00448) CHAR(00001)
, "MF200079"
POSITION( 00449:00449) CHAR(00001)
, "MF200080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF200081"
POSITION( 00460:00464) CHAR(00005)
, "MF200082"
POSITION( 00465:00490) CHAR(00026)
, "MF200083"
POSITION( 00491:00492) SMALLINT
, "MF200084"
POSITION( 00493:00494) SMALLINT
, "MF200085"
POSITION( 00495:00496) SMALLINT
, "MF200086"
POSITION( 00497:00531) CHAR(00035)
, "MF200087"
POSITION( 00532:00566) CHAR(00035)
, "MF200088"
POSITION( 00567:00601) CHAR(00035)
, "MF200089"
POSITION( 00602:00636) CHAR(00035)
, "MF200090"
POSITION( 00637:00638) SMALLINT
, "MF200091"
POSITION( 00639:00640) SMALLINT
, "MF200092"
POSITION( 00641:00656) CHAR(00016)
)
INTO TABLE "OA1Y"."TWK811X1"
PART 00026 INDDN A7D5GHII
WHEN(00001:00002) = X'0017'
( "MF200001"
POSITION( 00003:00018) CHAR(00016)
, "MF200002"
POSITION( 00019:00019) CHAR(00001)
, "MF200003"
POSITION( 00020:00024) CHAR(00005)
, "MF200004"
POSITION( 00025:00049) CHAR(00025)
, "MF200005"
POSITION( 00050:00050) CHAR(00001)
, "MF200006"
POSITION( 00051:00051) CHAR(00001)
, "MF200007"
POSITION( 00052:00052) CHAR(00001)
, "MF200008"
POSITION( 00053:00055) CHAR(00003)
, "MF200009"
POSITION( 00056:00060) CHAR(00005)
, "MF200010"
POSITION( 00061:00064) CHAR(00004)
, "MF200011"
POSITION( 00065:00065) CHAR(00001)
, "MF200012"
POSITION( 00066:00066) CHAR(00001)
, "MF200013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF200014"
POSITION( 00077:00080) CHAR(00004)
, "MF200015"
POSITION( 00081:00084) CHAR(00004)
, "MF200016"
POSITION( 00085:00088) CHAR(00004)
, "MF200017"
POSITION( 00089:00100) CHAR(00012)
, "MF200018"
POSITION( 00101:00108) DECIMAL
, "MF200019"
POSITION( 00109:00116) DECIMAL
, "MF200020"
POSITION( 00117:00124) CHAR(00008)
, "MF200021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF200022"
POSITION( 00151:00154) CHAR(00004)
, "MF200023"
POSITION( 00155:00166) CHAR(00012)
, "MF200024"
POSITION( 00167:00167) CHAR(00001)
, "MF200025"
POSITION( 00168:00170) CHAR(00003)
, "MF200026"
POSITION( 00171:00173) CHAR(00003)
, "MF200027"
POSITION( 00174:00176) CHAR(00003)
, "MF200028"
POSITION( 00177:00179) CHAR(00003)
, "MF200029"
POSITION( 00180:00182) CHAR(00003)
, "MF200030"
POSITION( 00183:00198) CHAR(00016)
, "MF200031"
POSITION( 00199:00200) CHAR(00002)
, "MF200032"
POSITION( 00201:00207) CHAR(00007)
, "MF200033"
POSITION( 00208:00214) CHAR(00007)
, "MF200034"
POSITION( 00215:00218) CHAR(00004)
, "MF200035"
POSITION( 00219:00219) CHAR(00001)
, "MF200036"
POSITION( 00220:00237) CHAR(00018)
, "MF200037"
POSITION( 00238:00245) DECIMAL
, "MF200038"
POSITION( 00246:00261) CHAR(00016)
, "MF200039"
POSITION( 00262:00263) CHAR(00002)
, "MF200040"
POSITION( 00264:00265) CHAR(00002)
, "MF200041"
POSITION( 00266:00267) CHAR(00002)
, "MF200042"
POSITION( 00268:00271) CHAR(00004)
, "MF200043"
POSITION( 00272:00279) DECIMAL
, "MF200044"
POSITION( 00280:00284) CHAR(00005)
, "MF200045"
POSITION( 00285:00288) CHAR(00004)
, "MF200046"
POSITION( 00289:00292) CHAR(00004)
, "MF200047"
POSITION( 00293:00293) CHAR(00001)
, "MF200051"
POSITION( 00294:00296) CHAR(00003)
, "MF200052"
POSITION( 00297:00299) CHAR(00003)
, "MF200053"
POSITION( 00300:00307) DECIMAL
, "MF200054"
POSITION( 00308:00314) CHAR(00007)
, "MF200055"
POSITION( 00315:00315) CHAR(00001)
, "MF200056"
POSITION( 00316:00323) CHAR(00008)
, "MF200059"
POSITION( 00324:00328) CHAR(00005)
, "MF200060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF200062"
POSITION( 00355:00355) CHAR(00001)
, "MF200063"
POSITION( 00356:00356) CHAR(00001)
, "MF200064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF200065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF200066"
POSITION( 00377:00392) CHAR(00016)
, "MF200067"
POSITION( 00393:00408) CHAR(00016)
, "MF200068"
POSITION( 00409:00424) CHAR(00016)
, "MF200069"
POSITION( 00425:00428) CHAR(00004)
, "MF200070"
POSITION( 00429:00435) CHAR(00007)
, "MF200071"
POSITION( 00436:00436) CHAR(00001)
, "MF200072"
POSITION( 00437:00437) CHAR(00001)
, "MF200073"
POSITION( 00438:00438) CHAR(00001)
, "MF200074"
POSITION( 00439:00439) CHAR(00001)
, "MF200075"
POSITION( 00440:00440) CHAR(00001)
, "MF200076"
POSITION( 00441:00441) CHAR(00001)
, "MF200077"
POSITION( 00442:00447) CHAR(00006)
, "MF200078"
POSITION( 00448:00448) CHAR(00001)
, "MF200079"
POSITION( 00449:00449) CHAR(00001)
, "MF200080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF200081"
POSITION( 00460:00464) CHAR(00005)
, "MF200082"
POSITION( 00465:00490) CHAR(00026)
, "MF200083"
POSITION( 00491:00492) SMALLINT
, "MF200084"
POSITION( 00493:00494) SMALLINT
, "MF200085"
POSITION( 00495:00496) SMALLINT
, "MF200086"
POSITION( 00497:00531) CHAR(00035)
, "MF200087"
POSITION( 00532:00566) CHAR(00035)
, "MF200088"
POSITION( 00567:00601) CHAR(00035)
, "MF200089"
POSITION( 00602:00636) CHAR(00035)
, "MF200090"
POSITION( 00637:00638) SMALLINT
, "MF200091"
POSITION( 00639:00640) SMALLINT
, "MF200092"
POSITION( 00641:00656) CHAR(00016)
)
INTO TABLE "OA1X"."TWK811X1"
PART 00027 INDDN A7D5GHII
WHEN(00001:00002) = X'0017'
( "MF200001"
POSITION( 00003:00018) CHAR(00016)
, "MF200002"
POSITION( 00019:00019) CHAR(00001)
, "MF200003"
POSITION( 00020:00024) CHAR(00005)
, "MF200004"
POSITION( 00025:00049) CHAR(00025)
, "MF200005"
POSITION( 00050:00050) CHAR(00001)
, "MF200006"
POSITION( 00051:00051) CHAR(00001)
, "MF200007"
POSITION( 00052:00052) CHAR(00001)
, "MF200008"
POSITION( 00053:00055) CHAR(00003)
, "MF200009"
POSITION( 00056:00060) CHAR(00005)
, "MF200010"
POSITION( 00061:00064) CHAR(00004)
, "MF200011"
POSITION( 00065:00065) CHAR(00001)
, "MF200012"
POSITION( 00066:00066) CHAR(00001)
, "MF200013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF200014"
POSITION( 00077:00080) CHAR(00004)
, "MF200015"
POSITION( 00081:00084) CHAR(00004)
, "MF200016"
POSITION( 00085:00088) CHAR(00004)
, "MF200017"
POSITION( 00089:00100) CHAR(00012)
, "MF200018"
POSITION( 00101:00108) DECIMAL
, "MF200019"
POSITION( 00109:00116) DECIMAL
, "MF200020"
POSITION( 00117:00124) CHAR(00008)
, "MF200021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF200022"
POSITION( 00151:00154) CHAR(00004)
, "MF200023"
POSITION( 00155:00166) CHAR(00012)
, "MF200024"
POSITION( 00167:00167) CHAR(00001)
, "MF200025"
POSITION( 00168:00170) CHAR(00003)
, "MF200026"
POSITION( 00171:00173) CHAR(00003)
, "MF200027"
POSITION( 00174:00176) CHAR(00003)
, "MF200028"
POSITION( 00177:00179) CHAR(00003)
, "MF200029"
POSITION( 00180:00182) CHAR(00003)
, "MF200030"
POSITION( 00183:00198) CHAR(00016)
, "MF200031"
POSITION( 00199:00200) CHAR(00002)
, "MF200032"
POSITION( 00201:00207) CHAR(00007)
, "MF200033"
POSITION( 00208:00214) CHAR(00007)
, "MF200034"
POSITION( 00215:00218) CHAR(00004)
, "MF200035"
POSITION( 00219:00219) CHAR(00001)
, "MF200036"
POSITION( 00220:00237) CHAR(00018)
, "MF200037"
POSITION( 00238:00245) DECIMAL
, "MF200038"
POSITION( 00246:00261) CHAR(00016)
, "MF200039"
POSITION( 00262:00263) CHAR(00002)
, "MF200040"
POSITION( 00264:00265) CHAR(00002)
, "MF200041"
POSITION( 00266:00267) CHAR(00002)
, "MF200042"
POSITION( 00268:00271) CHAR(00004)
, "MF200043"
POSITION( 00272:00279) DECIMAL
, "MF200044"
POSITION( 00280:00284) CHAR(00005)
, "MF200045"
POSITION( 00285:00288) CHAR(00004)
, "MF200046"
POSITION( 00289:00292) CHAR(00004)
, "MF200047"
POSITION( 00293:00293) CHAR(00001)
, "MF200051"
POSITION( 00294:00296) CHAR(00003)
, "MF200052"
POSITION( 00297:00299) CHAR(00003)
, "MF200053"
POSITION( 00300:00307) DECIMAL
, "MF200054"
POSITION( 00308:00314) CHAR(00007)
, "MF200055"
POSITION( 00315:00315) CHAR(00001)
, "MF200056"
POSITION( 00316:00323) CHAR(00008)
, "MF200059"
POSITION( 00324:00328) CHAR(00005)
, "MF200060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF200062"
POSITION( 00355:00355) CHAR(00001)
, "MF200063"
POSITION( 00356:00356) CHAR(00001)
, "MF200064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF200065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF200066"
POSITION( 00377:00392) CHAR(00016)
, "MF200067"
POSITION( 00393:00408) CHAR(00016)
, "MF200068"
POSITION( 00409:00424) CHAR(00016)
, "MF200069"
POSITION( 00425:00428) CHAR(00004)
, "MF200070"
POSITION( 00429:00435) CHAR(00007)
, "MF200071"
POSITION( 00436:00436) CHAR(00001)
, "MF200072"
POSITION( 00437:00437) CHAR(00001)
, "MF200073"
POSITION( 00438:00438) CHAR(00001)
, "MF200074"
POSITION( 00439:00439) CHAR(00001)
, "MF200075"
POSITION( 00440:00440) CHAR(00001)
, "MF200076"
POSITION( 00441:00441) CHAR(00001)
, "MF200077"
POSITION( 00442:00447) CHAR(00006)
, "MF200078"
POSITION( 00448:00448) CHAR(00001)
, "MF200079"
POSITION( 00449:00449) CHAR(00001)
, "MF200080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF200081"
POSITION( 00460:00464) CHAR(00005)
, "MF200082"
POSITION( 00465:00490) CHAR(00026)
, "MF200083"
POSITION( 00491:00492) SMALLINT
, "MF200084"
POSITION( 00493:00494) SMALLINT
, "MF200085"
POSITION( 00495:00496) SMALLINT
, "MF200086"
POSITION( 00497:00531) CHAR(00035)
, "MF200087"
POSITION( 00532:00566) CHAR(00035)
, "MF200088"
POSITION( 00567:00601) CHAR(00035)
, "MF200089"
POSITION( 00602:00636) CHAR(00035)
, "MF200090"
POSITION( 00637:00638) SMALLINT
, "MF200091"
POSITION( 00639:00640) SMALLINT
, "MF200092"
POSITION( 00641:00656) CHAR(00016)
)
INTO TABLE "OA1X"."TWK811X1"
PART 00028 INDDN A7D5GHII
WHEN(00001:00002) = X'0017'
( "MF200001"
POSITION( 00003:00018) CHAR(00016)
, "MF200002"
POSITION( 00019:00019) CHAR(00001)
, "MF200003"
POSITION( 00020:00024) CHAR(00005)
, "MF200004"
POSITION( 00025:00049) CHAR(00025)
, "MF200005"
POSITION( 00050:00050) CHAR(00001)
, "MF200006"
POSITION( 00051:00051) CHAR(00001)
, "MF200007"
POSITION( 00052:00052) CHAR(00001)
, "MF200008"
POSITION( 00053:00055) CHAR(00003)
, "MF200009"
POSITION( 00056:00060) CHAR(00005)
, "MF200010"
POSITION( 00061:00064) CHAR(00004)
, "MF200011"
POSITION( 00065:00065) CHAR(00001)
, "MF200012"
POSITION( 00066:00066) CHAR(00001)
, "MF200013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF200014"
POSITION( 00077:00080) CHAR(00004)
, "MF200015"
POSITION( 00081:00084) CHAR(00004)
, "MF200016"
POSITION( 00085:00088) CHAR(00004)
, "MF200017"
POSITION( 00089:00100) CHAR(00012)
, "MF200018"
POSITION( 00101:00108) DECIMAL
, "MF200019"
POSITION( 00109:00116) DECIMAL
, "MF200020"
POSITION( 00117:00124) CHAR(00008)
, "MF200021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF200022"
POSITION( 00151:00154) CHAR(00004)
, "MF200023"
POSITION( 00155:00166) CHAR(00012)
, "MF200024"
POSITION( 00167:00167) CHAR(00001)
, "MF200025"
POSITION( 00168:00170) CHAR(00003)
, "MF200026"
POSITION( 00171:00173) CHAR(00003)
, "MF200027"
POSITION( 00174:00176) CHAR(00003)
, "MF200028"
POSITION( 00177:00179) CHAR(00003)
, "MF200029"
POSITION( 00180:00182) CHAR(00003)
, "MF200030"
POSITION( 00183:00198) CHAR(00016)
, "MF200031"
POSITION( 00199:00200) CHAR(00002)
, "MF200032"
POSITION( 00201:00207) CHAR(00007)
, "MF200033"
POSITION( 00208:00214) CHAR(00007)
, "MF200034"
POSITION( 00215:00218) CHAR(00004)
, "MF200035"
POSITION( 00219:00219) CHAR(00001)
, "MF200036"
POSITION( 00220:00237) CHAR(00018)
, "MF200037"
POSITION( 00238:00245) DECIMAL
, "MF200038"
POSITION( 00246:00261) CHAR(00016)
, "MF200039"
POSITION( 00262:00263) CHAR(00002)
, "MF200040"
POSITION( 00264:00265) CHAR(00002)
, "MF200041"
POSITION( 00266:00267) CHAR(00002)
, "MF200042"
POSITION( 00268:00271) CHAR(00004)
, "MF200043"
POSITION( 00272:00279) DECIMAL
, "MF200044"
POSITION( 00280:00284) CHAR(00005)
, "MF200045"
POSITION( 00285:00288) CHAR(00004)
, "MF200046"
POSITION( 00289:00292) CHAR(00004)
, "MF200047"
POSITION( 00293:00293) CHAR(00001)
, "MF200051"
POSITION( 00294:00296) CHAR(00003)
, "MF200052"
POSITION( 00297:00299) CHAR(00003)
, "MF200053"
POSITION( 00300:00307) DECIMAL
, "MF200054"
POSITION( 00308:00314) CHAR(00007)
, "MF200055"
POSITION( 00315:00315) CHAR(00001)
, "MF200056"
POSITION( 00316:00323) CHAR(00008)
, "MF200059"
POSITION( 00324:00328) CHAR(00005)
, "MF200060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF200062"
POSITION( 00355:00355) CHAR(00001)
, "MF200063"
POSITION( 00356:00356) CHAR(00001)
, "MF200064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF200065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF200066"
POSITION( 00377:00392) CHAR(00016)
, "MF200067"
POSITION( 00393:00408) CHAR(00016)
, "MF200068"
POSITION( 00409:00424) CHAR(00016)
, "MF200069"
POSITION( 00425:00428) CHAR(00004)
, "MF200070"
POSITION( 00429:00435) CHAR(00007)
, "MF200071"
POSITION( 00436:00436) CHAR(00001)
, "MF200072"
POSITION( 00437:00437) CHAR(00001)
, "MF200073"
POSITION( 00438:00438) CHAR(00001)
, "MF200074"
POSITION( 00439:00439) CHAR(00001)
, "MF200075"
POSITION( 00440:00440) CHAR(00001)
, "MF200076"
POSITION( 00441:00441) CHAR(00001)
, "MF200077"
POSITION( 00442:00447) CHAR(00006)
, "MF200078"
POSITION( 00448:00448) CHAR(00001)
, "MF200079"
POSITION( 00449:00449) CHAR(00001)
, "MF200080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF200081"
POSITION( 00460:00464) CHAR(00005)
, "MF200082"
POSITION( 00465:00490) CHAR(00026)
, "MF200083"
POSITION( 00491:00492) SMALLINT
, "MF200084"
POSITION( 00493:00494) SMALLINT
, "MF200085"
POSITION( 00495:00496) SMALLINT
, "MF200086"
POSITION( 00497:00531) CHAR(00035)
, "MF200087"
POSITION( 00532:00566) CHAR(00035)
, "MF200088"
POSITION( 00567:00601) CHAR(00035)
, "MF200089"
POSITION( 00602:00636) CHAR(00035)
, "MF200090"
POSITION( 00637:00638) SMALLINT
, "MF200091"
POSITION( 00639:00640) SMALLINT
, "MF200092"
POSITION( 00641:00656) CHAR(00016)
)
INTO TABLE "OA1X"."TWK811X1"
PART 00029 INDDN A7D5GHII
WHEN(00001:00002) = X'0017'
( "MF200001"
POSITION( 00003:00018) CHAR(00016)
, "MF200002"
POSITION( 00019:00019) CHAR(00001)
, "MF200003"
POSITION( 00020:00024) CHAR(00005)
, "MF200004"
POSITION( 00025:00049) CHAR(00025)
, "MF200005"
POSITION( 00050:00050) CHAR(00001)
, "MF200006"
POSITION( 00051:00051) CHAR(00001)
, "MF200007"
POSITION( 00052:00052) CHAR(00001)
, "MF200008"
POSITION( 00053:00055) CHAR(00003)
, "MF200009"
POSITION( 00056:00060) CHAR(00005)
, "MF200010"
POSITION( 00061:00064) CHAR(00004)
, "MF200011"
POSITION( 00065:00065) CHAR(00001)
, "MF200012"
POSITION( 00066:00066) CHAR(00001)
, "MF200013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF200014"
POSITION( 00077:00080) CHAR(00004)
, "MF200015"
POSITION( 00081:00084) CHAR(00004)
, "MF200016"
POSITION( 00085:00088) CHAR(00004)
, "MF200017"
POSITION( 00089:00100) CHAR(00012)
, "MF200018"
POSITION( 00101:00108) DECIMAL
, "MF200019"
POSITION( 00109:00116) DECIMAL
, "MF200020"
POSITION( 00117:00124) CHAR(00008)
, "MF200021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF200022"
POSITION( 00151:00154) CHAR(00004)
, "MF200023"
POSITION( 00155:00166) CHAR(00012)
, "MF200024"
POSITION( 00167:00167) CHAR(00001)
, "MF200025"
POSITION( 00168:00170) CHAR(00003)
, "MF200026"
POSITION( 00171:00173) CHAR(00003)
, "MF200027"
POSITION( 00174:00176) CHAR(00003)
, "MF200028"
POSITION( 00177:00179) CHAR(00003)
, "MF200029"
POSITION( 00180:00182) CHAR(00003)
, "MF200030"
POSITION( 00183:00198) CHAR(00016)
, "MF200031"
POSITION( 00199:00200) CHAR(00002)
, "MF200032"
POSITION( 00201:00207) CHAR(00007)
, "MF200033"
POSITION( 00208:00214) CHAR(00007)
, "MF200034"
POSITION( 00215:00218) CHAR(00004)
, "MF200035"
POSITION( 00219:00219) CHAR(00001)
, "MF200036"
POSITION( 00220:00237) CHAR(00018)
, "MF200037"
POSITION( 00238:00245) DECIMAL
, "MF200038"
POSITION( 00246:00261) CHAR(00016)
, "MF200039"
POSITION( 00262:00263) CHAR(00002)
, "MF200040"
POSITION( 00264:00265) CHAR(00002)
, "MF200041"
POSITION( 00266:00267) CHAR(00002)
, "MF200042"
POSITION( 00268:00271) CHAR(00004)
, "MF200043"
POSITION( 00272:00279) DECIMAL
, "MF200044"
POSITION( 00280:00284) CHAR(00005)
, "MF200045"
POSITION( 00285:00288) CHAR(00004)
, "MF200046"
POSITION( 00289:00292) CHAR(00004)
, "MF200047"
POSITION( 00293:00293) CHAR(00001)
, "MF200051"
POSITION( 00294:00296) CHAR(00003)
, "MF200052"
POSITION( 00297:00299) CHAR(00003)
, "MF200053"
POSITION( 00300:00307) DECIMAL
, "MF200054"
POSITION( 00308:00314) CHAR(00007)
, "MF200055"
POSITION( 00315:00315) CHAR(00001)
, "MF200056"
POSITION( 00316:00323) CHAR(00008)
, "MF200059"
POSITION( 00324:00328) CHAR(00005)
, "MF200060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF200062"
POSITION( 00355:00355) CHAR(00001)
, "MF200063"
POSITION( 00356:00356) CHAR(00001)
, "MF200064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF200065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF200066"
POSITION( 00377:00392) CHAR(00016)
, "MF200067"
POSITION( 00393:00408) CHAR(00016)
, "MF200068"
POSITION( 00409:00424) CHAR(00016)
, "MF200069"
POSITION( 00425:00428) CHAR(00004)
, "MF200070"
POSITION( 00429:00435) CHAR(00007)
, "MF200071"
POSITION( 00436:00436) CHAR(00001)
, "MF200072"
POSITION( 00437:00437) CHAR(00001)
, "MF200073"
POSITION( 00438:00438) CHAR(00001)
, "MF200074"
POSITION( 00439:00439) CHAR(00001)
, "MF200075"
POSITION( 00440:00440) CHAR(00001)
, "MF200076"
POSITION( 00441:00441) CHAR(00001)
, "MF200077"
POSITION( 00442:00447) CHAR(00006)
, "MF200078"
POSITION( 00448:00448) CHAR(00001)
, "MF200079"
POSITION( 00449:00449) CHAR(00001)
, "MF200080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF200081"
POSITION( 00460:00464) CHAR(00005)
, "MF200082"
POSITION( 00465:00490) CHAR(00026)
, "MF200083"
POSITION( 00491:00492) SMALLINT
, "MF200084"
POSITION( 00493:00494) SMALLINT
, "MF200085"
POSITION( 00495:00496) SMALLINT
, "MF200086"
POSITION( 00497:00531) CHAR(00035)
, "MF200087"
POSITION( 00532:00566) CHAR(00035)
, "MF200088"
POSITION( 00567:00601) CHAR(00035)
, "MF200089"
POSITION( 00602:00636) CHAR(00035)
, "MF200090"
POSITION( 00637:00638) SMALLINT
, "MF200091"
POSITION( 00639:00640) SMALLINT
, "MF200092"
POSITION( 00641:00656) CHAR(00016)
)
INTO TABLE "OA1X"."TWK811X1"
PART 00030 INDDN A7D5GHII
WHEN(00001:00002) = X'0017'
( "MF200001"
POSITION( 00003:00018) CHAR(00016)
, "MF200002"
POSITION( 00019:00019) CHAR(00001)
, "MF200003"
POSITION( 00020:00024) CHAR(00005)
, "MF200004"
POSITION( 00025:00049) CHAR(00025)
, "MF200005"
POSITION( 00050:00050) CHAR(00001)
, "MF200006"
POSITION( 00051:00051) CHAR(00001)
, "MF200007"
POSITION( 00052:00052) CHAR(00001)
, "MF200008"
POSITION( 00053:00055) CHAR(00003)
, "MF200009"
POSITION( 00056:00060) CHAR(00005)
, "MF200010"
POSITION( 00061:00064) CHAR(00004)
, "MF200011"
POSITION( 00065:00065) CHAR(00001)
, "MF200012"
POSITION( 00066:00066) CHAR(00001)
, "MF200013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF200014"
POSITION( 00077:00080) CHAR(00004)
, "MF200015"
POSITION( 00081:00084) CHAR(00004)
, "MF200016"
POSITION( 00085:00088) CHAR(00004)
, "MF200017"
POSITION( 00089:00100) CHAR(00012)
, "MF200018"
POSITION( 00101:00108) DECIMAL
, "MF200019"
POSITION( 00109:00116) DECIMAL
, "MF200020"
POSITION( 00117:00124) CHAR(00008)
, "MF200021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF200022"
POSITION( 00151:00154) CHAR(00004)
, "MF200023"
POSITION( 00155:00166) CHAR(00012)
, "MF200024"
POSITION( 00167:00167) CHAR(00001)
, "MF200025"
POSITION( 00168:00170) CHAR(00003)
, "MF200026"
POSITION( 00171:00173) CHAR(00003)
, "MF200027"
POSITION( 00174:00176) CHAR(00003)
, "MF200028"
POSITION( 00177:00179) CHAR(00003)
, "MF200029"
POSITION( 00180:00182) CHAR(00003)
, "MF200030"
POSITION( 00183:00198) CHAR(00016)
, "MF200031"
POSITION( 00199:00200) CHAR(00002)
, "MF200032"
POSITION( 00201:00207) CHAR(00007)
, "MF200033"
POSITION( 00208:00214) CHAR(00007)
, "MF200034"
POSITION( 00215:00218) CHAR(00004)
, "MF200035"
POSITION( 00219:00219) CHAR(00001)
, "MF200036"
POSITION( 00220:00237) CHAR(00018)
, "MF200037"
POSITION( 00238:00245) DECIMAL
, "MF200038"
POSITION( 00246:00261) CHAR(00016)
, "MF200039"
POSITION( 00262:00263) CHAR(00002)
, "MF200040"
POSITION( 00264:00265) CHAR(00002)
, "MF200041"
POSITION( 00266:00267) CHAR(00002)
, "MF200042"
POSITION( 00268:00271) CHAR(00004)
, "MF200043"
POSITION( 00272:00279) DECIMAL
, "MF200044"
POSITION( 00280:00284) CHAR(00005)
, "MF200045"
POSITION( 00285:00288) CHAR(00004)
, "MF200046"
POSITION( 00289:00292) CHAR(00004)
, "MF200047"
POSITION( 00293:00293) CHAR(00001)
, "MF200051"
POSITION( 00294:00296) CHAR(00003)
, "MF200052"
POSITION( 00297:00299) CHAR(00003)
, "MF200053"
POSITION( 00300:00307) DECIMAL
, "MF200054"
POSITION( 00308:00314) CHAR(00007)
, "MF200055"
POSITION( 00315:00315) CHAR(00001)
, "MF200056"
POSITION( 00316:00323) CHAR(00008)
, "MF200059"
POSITION( 00324:00328) CHAR(00005)
, "MF200060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF200062"
POSITION( 00355:00355) CHAR(00001)
, "MF200063"
POSITION( 00356:00356) CHAR(00001)
, "MF200064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF200065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF200066"
POSITION( 00377:00392) CHAR(00016)
, "MF200067"
POSITION( 00393:00408) CHAR(00016)
, "MF200068"
POSITION( 00409:00424) CHAR(00016)
, "MF200069"
POSITION( 00425:00428) CHAR(00004)
, "MF200070"
POSITION( 00429:00435) CHAR(00007)
, "MF200071"
POSITION( 00436:00436) CHAR(00001)
, "MF200072"
POSITION( 00437:00437) CHAR(00001)
, "MF200073"
POSITION( 00438:00438) CHAR(00001)
, "MF200074"
POSITION( 00439:00439) CHAR(00001)
, "MF200075"
POSITION( 00440:00440) CHAR(00001)
, "MF200076"
POSITION( 00441:00441) CHAR(00001)
, "MF200077"
POSITION( 00442:00447) CHAR(00006)
, "MF200078"
POSITION( 00448:00448) CHAR(00001)
, "MF200079"
POSITION( 00449:00449) CHAR(00001)
, "MF200080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF200081"
POSITION( 00460:00464) CHAR(00005)
, "MF200082"
POSITION( 00465:00490) CHAR(00026)
, "MF200083"
POSITION( 00491:00492) SMALLINT
, "MF200084"
POSITION( 00493:00494) SMALLINT
, "MF200085"
POSITION( 00495:00496) SMALLINT
, "MF200086"
POSITION( 00497:00531) CHAR(00035)
, "MF200087"
POSITION( 00532:00566) CHAR(00035)
, "MF200088"
POSITION( 00567:00601) CHAR(00035)
, "MF200089"
POSITION( 00602:00636) CHAR(00035)
, "MF200090"
POSITION( 00637:00638) SMALLINT
, "MF200091"
POSITION( 00639:00640) SMALLINT
, "MF200092"
POSITION( 00641:00656) CHAR(00016)
)
INTO TABLE "OA1X"."TWK811X1"
PART 00031 INDDN A7D5GHII
WHEN(00001:00002) = X'0017'
( "MF200001"
POSITION( 00003:00018) CHAR(00016)
, "MF200002"
POSITION( 00019:00019) CHAR(00001)
, "MF200003"
POSITION( 00020:00024) CHAR(00005)
, "MF200004"
POSITION( 00025:00049) CHAR(00025)
, "MF200005"
POSITION( 00050:00050) CHAR(00001)
, "MF200006"
POSITION( 00051:00051) CHAR(00001)
, "MF200007"
POSITION( 00052:00052) CHAR(00001)
, "MF200008"
POSITION( 00053:00055) CHAR(00003)
, "MF200009"
POSITION( 00056:00060) CHAR(00005)
, "MF200010"
POSITION( 00061:00064) CHAR(00004)
, "MF200011"
POSITION( 00065:00065) CHAR(00001)
, "MF200012"
POSITION( 00066:00066) CHAR(00001)
, "MF200013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF200014"
POSITION( 00077:00080) CHAR(00004)
, "MF200015"
POSITION( 00081:00084) CHAR(00004)
, "MF200016"
POSITION( 00085:00088) CHAR(00004)
, "MF200017"
POSITION( 00089:00100) CHAR(00012)
, "MF200018"
POSITION( 00101:00108) DECIMAL
, "MF200019"
POSITION( 00109:00116) DECIMAL
, "MF200020"
POSITION( 00117:00124) CHAR(00008)
, "MF200021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF200022"
POSITION( 00151:00154) CHAR(00004)
, "MF200023"
POSITION( 00155:00166) CHAR(00012)
, "MF200024"
POSITION( 00167:00167) CHAR(00001)
, "MF200025"
POSITION( 00168:00170) CHAR(00003)
, "MF200026"
POSITION( 00171:00173) CHAR(00003)
, "MF200027"
POSITION( 00174:00176) CHAR(00003)
, "MF200028"
POSITION( 00177:00179) CHAR(00003)
, "MF200029"
POSITION( 00180:00182) CHAR(00003)
, "MF200030"
POSITION( 00183:00198) CHAR(00016)
, "MF200031"
POSITION( 00199:00200) CHAR(00002)
, "MF200032"
POSITION( 00201:00207) CHAR(00007)
, "MF200033"
POSITION( 00208:00214) CHAR(00007)
, "MF200034"
POSITION( 00215:00218) CHAR(00004)
, "MF200035"
POSITION( 00219:00219) CHAR(00001)
, "MF200036"
POSITION( 00220:00237) CHAR(00018)
, "MF200037"
POSITION( 00238:00245) DECIMAL
, "MF200038"
POSITION( 00246:00261) CHAR(00016)
, "MF200039"
POSITION( 00262:00263) CHAR(00002)
, "MF200040"
POSITION( 00264:00265) CHAR(00002)
, "MF200041"
POSITION( 00266:00267) CHAR(00002)
, "MF200042"
POSITION( 00268:00271) CHAR(00004)
, "MF200043"
POSITION( 00272:00279) DECIMAL
, "MF200044"
POSITION( 00280:00284) CHAR(00005)
, "MF200045"
POSITION( 00285:00288) CHAR(00004)
, "MF200046"
POSITION( 00289:00292) CHAR(00004)
, "MF200047"
POSITION( 00293:00293) CHAR(00001)
, "MF200051"
POSITION( 00294:00296) CHAR(00003)
, "MF200052"
POSITION( 00297:00299) CHAR(00003)
, "MF200053"
POSITION( 00300:00307) DECIMAL
, "MF200054"
POSITION( 00308:00314) CHAR(00007)
, "MF200055"
POSITION( 00315:00315) CHAR(00001)
, "MF200056"
POSITION( 00316:00323) CHAR(00008)
, "MF200059"
POSITION( 00324:00328) CHAR(00005)
, "MF200060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF200062"
POSITION( 00355:00355) CHAR(00001)
, "MF200063"
POSITION( 00356:00356) CHAR(00001)
, "MF200064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF200065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF200066"
POSITION( 00377:00392) CHAR(00016)
, "MF200067"
POSITION( 00393:00408) CHAR(00016)
, "MF200068"
POSITION( 00409:00424) CHAR(00016)
, "MF200069"
POSITION( 00425:00428) CHAR(00004)
, "MF200070"
POSITION( 00429:00435) CHAR(00007)
, "MF200071"
POSITION( 00436:00436) CHAR(00001)
, "MF200072"
POSITION( 00437:00437) CHAR(00001)
, "MF200073"
POSITION( 00438:00438) CHAR(00001)
, "MF200074"
POSITION( 00439:00439) CHAR(00001)
, "MF200075"
POSITION( 00440:00440) CHAR(00001)
, "MF200076"
POSITION( 00441:00441) CHAR(00001)
, "MF200077"
POSITION( 00442:00447) CHAR(00006)
, "MF200078"
POSITION( 00448:00448) CHAR(00001)
, "MF200079"
POSITION( 00449:00449) CHAR(00001)
, "MF200080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF200081"
POSITION( 00460:00464) CHAR(00005)
, "MF200082"
POSITION( 00465:00490) CHAR(00026)
, "MF200083"
POSITION( 00491:00492) SMALLINT
, "MF200084"
POSITION( 00493:00494) SMALLINT
, "MF200085"
POSITION( 00495:00496) SMALLINT
, "MF200086"
POSITION( 00497:00531) CHAR(00035)
, "MF200087"
POSITION( 00532:00566) CHAR(00035)
, "MF200088"
POSITION( 00567:00601) CHAR(00035)
, "MF200089"
POSITION( 00602:00636) CHAR(00035)
, "MF200090"
POSITION( 00637:00638) SMALLINT
, "MF200091"
POSITION( 00639:00640) SMALLINT
, "MF200092"
POSITION( 00641:00656) CHAR(00016)
)
INTO TABLE "OA1X"."TWK811X1"
PART 00032 INDDN A7D5GHII
WHEN(00001:00002) = X'0017'
( "MF200001"
POSITION( 00003:00018) CHAR(00016)
, "MF200002"
POSITION( 00019:00019) CHAR(00001)
, "MF200003"
POSITION( 00020:00024) CHAR(00005)
, "MF200004"
POSITION( 00025:00049) CHAR(00025)
, "MF200005"
POSITION( 00050:00050) CHAR(00001)
, "MF200006"
POSITION( 00051:00051) CHAR(00001)
, "MF200007"
POSITION( 00052:00052) CHAR(00001)
, "MF200008"
POSITION( 00053:00055) CHAR(00003)
, "MF200009"
POSITION( 00056:00060) CHAR(00005)
, "MF200010"
POSITION( 00061:00064) CHAR(00004)
, "MF200011"
POSITION( 00065:00065) CHAR(00001)
, "MF200012"
POSITION( 00066:00066) CHAR(00001)
, "MF200013"
POSITION( 00067:00076) DATE EXTERNAL
, "MF200014"
POSITION( 00077:00080) CHAR(00004)
, "MF200015"
POSITION( 00081:00084) CHAR(00004)
, "MF200016"
POSITION( 00085:00088) CHAR(00004)
, "MF200017"
POSITION( 00089:00100) CHAR(00012)
, "MF200018"
POSITION( 00101:00108) DECIMAL
, "MF200019"
POSITION( 00109:00116) DECIMAL
, "MF200020"
POSITION( 00117:00124) CHAR(00008)
, "MF200021"
POSITION( 00125:00150) TIMESTAMP EXTERNAL
, "MF200022"
POSITION( 00151:00154) CHAR(00004)
, "MF200023"
POSITION( 00155:00166) CHAR(00012)
, "MF200024"
POSITION( 00167:00167) CHAR(00001)
, "MF200025"
POSITION( 00168:00170) CHAR(00003)
, "MF200026"
POSITION( 00171:00173) CHAR(00003)
, "MF200027"
POSITION( 00174:00176) CHAR(00003)
, "MF200028"
POSITION( 00177:00179) CHAR(00003)
, "MF200029"
POSITION( 00180:00182) CHAR(00003)
, "MF200030"
POSITION( 00183:00198) CHAR(00016)
, "MF200031"
POSITION( 00199:00200) CHAR(00002)
, "MF200032"
POSITION( 00201:00207) CHAR(00007)
, "MF200033"
POSITION( 00208:00214) CHAR(00007)
, "MF200034"
POSITION( 00215:00218) CHAR(00004)
, "MF200035"
POSITION( 00219:00219) CHAR(00001)
, "MF200036"
POSITION( 00220:00237) CHAR(00018)
, "MF200037"
POSITION( 00238:00245) DECIMAL
, "MF200038"
POSITION( 00246:00261) CHAR(00016)
, "MF200039"
POSITION( 00262:00263) CHAR(00002)
, "MF200040"
POSITION( 00264:00265) CHAR(00002)
, "MF200041"
POSITION( 00266:00267) CHAR(00002)
, "MF200042"
POSITION( 00268:00271) CHAR(00004)
, "MF200043"
POSITION( 00272:00279) DECIMAL
, "MF200044"
POSITION( 00280:00284) CHAR(00005)
, "MF200045"
POSITION( 00285:00288) CHAR(00004)
, "MF200046"
POSITION( 00289:00292) CHAR(00004)
, "MF200047"
POSITION( 00293:00293) CHAR(00001)
, "MF200051"
POSITION( 00294:00296) CHAR(00003)
, "MF200052"
POSITION( 00297:00299) CHAR(00003)
, "MF200053"
POSITION( 00300:00307) DECIMAL
, "MF200054"
POSITION( 00308:00314) CHAR(00007)
, "MF200055"
POSITION( 00315:00315) CHAR(00001)
, "MF200056"
POSITION( 00316:00323) CHAR(00008)
, "MF200059"
POSITION( 00324:00328) CHAR(00005)
, "MF200060"
POSITION( 00329:00354) TIMESTAMP EXTERNAL
, "MF200062"
POSITION( 00355:00355) CHAR(00001)
, "MF200063"
POSITION( 00356:00356) CHAR(00001)
, "MF200064"
POSITION( 00357:00366) DATE EXTERNAL
, "MF200065"
POSITION( 00367:00376) DATE EXTERNAL
, "MF200066"
POSITION( 00377:00392) CHAR(00016)
, "MF200067"
POSITION( 00393:00408) CHAR(00016)
, "MF200068"
POSITION( 00409:00424) CHAR(00016)
, "MF200069"
POSITION( 00425:00428) CHAR(00004)
, "MF200070"
POSITION( 00429:00435) CHAR(00007)
, "MF200071"
POSITION( 00436:00436) CHAR(00001)
, "MF200072"
POSITION( 00437:00437) CHAR(00001)
, "MF200073"
POSITION( 00438:00438) CHAR(00001)
, "MF200074"
POSITION( 00439:00439) CHAR(00001)
, "MF200075"
POSITION( 00440:00440) CHAR(00001)
, "MF200076"
POSITION( 00441:00441) CHAR(00001)
, "MF200077"
POSITION( 00442:00447) CHAR(00006)
, "MF200078"
POSITION( 00448:00448) CHAR(00001)
, "MF200079"
POSITION( 00449:00449) CHAR(00001)
, "MF200080"
POSITION( 00450:00459) DATE EXTERNAL
, "MF200081"
POSITION( 00460:00464) CHAR(00005)
, "MF200082"
POSITION( 00465:00490) CHAR(00026)
, "MF200083"
POSITION( 00491:00492) SMALLINT
, "MF200084"
POSITION( 00493:00494) SMALLINT
, "MF200085"
POSITION( 00495:00496) SMALLINT
, "MF200086"
POSITION( 00497:00531) CHAR(00035)
, "MF200087"
POSITION( 00532:00566) CHAR(00035)
, "MF200088"
POSITION( 00567:00601) CHAR(00035)
, "MF200089"
POSITION( 00602:00636) CHAR(00035)
, "MF200090"
POSITION( 00637:00638) SMALLINT
, "MF200091"
POSITION( 00639:00640) SMALLINT
, "MF200092"
POSITION( 00641:00656) CHAR(00016)
)
}¢--- A540769.WK.JCL(PLOADTEU) cre=2006-12-21 mod=2008-11-24-17.24.57 F540769 ---
//A540769U JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=BS1
//*
//***************************************************
//* UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBAF,'A540769.UNLOAD'),
// REGION=0M
//SYSEXEC DD DISP=SHR,DSN=DSN.BMC.RZ1.P0.ADMIN.EXEC
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TSRE2 DSN('A540769.TMPR2.&DB..&TS..P&PART..UNLO')
-- DATACLAS (NULL12) MGMTCLAS(COM#A092)
MGMTCLAS(NONSMS) VOLUMES(SHR109) --> RR2
SPACE (10,250) CYL
TEMPLATE TSPU2 DSN('A540769.TMPR2.&DB..&TS..PUNCH')
-- DATACLAS (NULL12) MGMTCLAS(COM#A092)
MGMTCLAS(NONSMS) VOLUMES(SHR109) --> RR2
SPACE (10,250) CYL
UNLOAD
TABLESPACE DGDB9998.A801A
FROM TABLE GDB9998.TWK801A1
PUNCHDDN TSPU2 UNLDDN TSRE2
SHRLEVEL REFERENCE
UNLOAD
TABLESPACE DGDB9998.A802A PART 1:4
FROM TABLE GDB9998.TWK802A1
PUNCHDDN TSPU2 UNLDDN TSRE2
SHRLEVEL REFERENCE
UNLOAD
TABLESPACE MF01A1A.A200A PART 25:32
FROM TABLE OA1A.TMF200A1
PUNCHDDN TSPU2 UNLDDN TSRE2
SHRLEVEL CHANGE
//*--------------------------------------------------------------------
//* UTILITY UNLOAD DD STATEMENTS
//*--------------------------------------------------------------------
}¢--- A540769.WK.JCL(PLWK411) cre=2007-09-14 mod=2008-09-11-17.37.16 F540769 ---
//A540769D JOB (KEL25071,0240,,3612),'CATALOG', *
// MSGCLASS=T,TIME=1440
//*MAIN CLASS=LOG
//*
//S1 EXEC PGM=DBWK411,DYNAMNBR=200,TIME=99
//STEPLIB DD DSN=CMN.DIV.P0.DB2J.#000003.LLB,DISP=SHR
//*STEPLIB DD DSN=A540769.WK.LOAD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
}¢--- A540769.WK.JCL(POSYACIF) cre= mod=-. -------------------------------------
//A540769P JOB (CP00,KE50) 00010001
//*MAIN CLASS=CMNA 00020001
//*
//*===================================================================*
//* INCLUDE-MEMBER INC#X51X *
//*===================================================================*
//*
//*-------------------------------------------------------------------*
//* BUILD AFPDS OF AUS5B2 *
//*-------------------------------------------------------------------*
// SET PREB=PVSO.RZ1.T0.TS3S5543.D05250.T135823
//* SET FINP=&PREB..AUS5B2
//* SET FDCB=&MREB..EINDAT1
// SET FDCB=WGR.U0034.T0.BJESOUT1.B1.D05365.T2359599
// SET FINP=A540769.TEST.POSYTAB
//ACIF5B2# EXEC PGM=APKACIF,
// PARM=('',
// 'PARMDD=DDPARM,',
// 'MSGDD=DDMSG,')
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DDOUT DD DISP=(NEW,PASS),
// UNIT=SYSDA,
// DATACLAS=NULL30,
// DCB=&FDCB,
// SPACE=(CYL,(10,75),RLSE)
//DDRES DD DISP=(NEW,PASS),
// UNIT=SYSDA,
// DCB=&FDCB,
// SPACE=(CYL,(10,75),RLSE)
//DDIDX DD DISP=(NEW,PASS),
// UNIT=SYSDA,
// DCB=&FDCB,
// SPACE=(CYL,(10,75),RLSE)
//DDMSG DD SYSOUT=*
//DDINPUT DD DISP=SHR,DSN=&FINP
// DD DISP=SHR,DSN=A540769.TEST.POSYPOAF
//DDPARM DD *
INPUTDD=DDINPUT /* DDNAME FOR INPUT-FILE (DATA) */
OUTPUTDD=DDOUT /* DDNAME FOR OUTPUT-FILE (DATA) */
RESOBJDD=DDRES /* DDNAME FOR RESOURCE-OUTPUT */
INDEXDD=DDIDX /* DDNAME FOR INDEX-FILE */
RESTYPE=ALL /* INCLUDE ALL RESOURCES */
CC=YES /* CARRIAGE-CONTROL */
CCTYPE=A /* ASA-CHARACTERS */
TRC=NO /* NO TRC'S IN INPUT */
CPGID=500 /* CODE PAGE IDENTIFIER FOR TLE'S */
PSEGLIB=WGR.U0034.T0.AKT.AFPLIB, /* PAGESEG-LIBRARIES */
PSF.DIV.P0.AKT.P3820.PRTPSEG /* */
FONTLIB=WGR.U0034.T0.AKT.AFPLIB, /* FONT-LIBRARIES */
PSF.DIV.P0.AKT.P300.PRTFONT, /* */
PSF.DIV.P0.AKT.P240.PRTFONT /* */
OVLYLIB=WGR.U0034.T0.AKT.AFPLIB.PVS, /* OVERLAY-LIBRARIES */
WGR.U0034.P0.AKT.AFPLIB, /* OVERLAY-LIBRARIES */
PSF.DIV.P0.AKT.P38PP.PRTOVLY, /* */
PSF.DIV.P0.AKT.P38P1.PRTOVLY /* */
FDEFLIB=WGR.U0034.T0.AKT.AFPLIB /* FORMDEF-LIBRARIES */
PDEFLIB=WGR.U0034.T0.AKT.AFPLIB /* PAGEDEF-LIBRARIES */
FORMDEF=F1C#GH1 /* FORMDEF USED */
PAGEDEF=P1PVWGR1 /* PAGEDEF USED */
/*
//*
//*-------------------------------------------------------------------*
//* MERGE RESOURCE- AND DATA-OUTPUT TO AFPDS *
//*-------------------------------------------------------------------*
// IF (RC EQ 0) THEN
//GENER5B2 EXEC PGM=ICEGENER
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=*.ACIF5B2#.DDRES
// DD DISP=SHR,DSN=*.ACIF5B2#.DDOUT
//RZ2 OUTPUT PRMODE=PAGE,DEST=RZ2,
// CLASS=3,FORMS=WEC0T,COPIES=1
//*SYSUT2 DD SYSOUT=T,RECFM=VBA
//*SYSUT2 DD SYSOUT=2,DEST=B643,RECFM=VBA
//SYSUT2 DD SYSOUT=(,),OUTPUT=*.RZ2,RECFM=VBA
// ENDIF
}¢--- A540769.WK.JCL(POSYAFP) cre= mod=-. --------------------------------------
//A540769P JOB (CP00,KE50) 00010001
//*MAIN CLASS=CMNA 00020001
//*
//*
//*-------------------------------------------------------------------*
//* MERGE RESOURCE- AND DATA-OUTPUT TO AFPDS *
//*-------------------------------------------------------------------*
// IF (RC EQ 0) THEN
//GENER5B2 EXEC PGM=ICEGENER
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,DSN=A540769.TEST.POSYTAB
//* DD DISP=SHR,DSN=A540769.TEST.POSYPOAF
//RZ1 OUTPUT PRMODE=PAGE,DEST=B643,
// CLASS=2,FORMS=WEC0T,COPIES=1,
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
// OVERLAYB=O1CIT024,OVERLAYF=O1CIT024
//RZ2 OUTPUT PRMODE=PAGE,DEST=RZ2,
// CLASS=3,FORMS=WEC0T,COPIES=1,
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
// FORMDEF=C#GH1,
// PAGEDEF=PVWGR1
//*SYSUT2 DD SYSOUT=2,DEST=B643,RECFM=VBA
//SYSUT2 DD SYSOUT=(,),OUTPUT=*.RZ2,RECFM=VBA
// ENDIF
}¢--- A540769.WK.JCL(POSYSPOO) cre= mod=-. -------------------------------------
//A540769P JOB (CP00,KE50) 00010001
//GENER5B1 EXEC PGM=ICEGENER
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//SYSIN DD DUMMY
//SYSUT1 DD DISP=SHR,
// DSN=PVSO.RZ1.T0.TS3S5522.D05244.T104400.A5B1.AFP
//SYSUT2 DD SYSOUT=2,DEST=B643
}¢--- A540769.WK.JCL(POSYTAB) cre= mod=-. --------------------------------------
//A540769P JOB (PVS47392,0000,,3653),'*** ICEGENER ***',MSGCLASS=T
//*
//*MAIN CLASS=PVS
//*
//E01 EXEC PGM=ICEGENER
//SYSUT1 DD DISP=SHR,
// DSN=A540769.TEST.POSYLONG
//SYSUT2 DD DSN=PVT.FT.WB1.W@00WKRE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(9076,(205,895),RLSE),
// UNIT=DISK,VOL=SER=PVPXXX
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
/*
//
}¢--- A540769.WK.JCL(POV) cre= mod=-. ------------------------------------------
//A540769T JOB (WAK47392,0000,,3653),'TAG-PARSER ',MSGCLASS=T
//*
//*MAIN CLASS=BATCH
//*
//JOBLIB DD DSN=CMN.DIV.P0.A18Q.#002140.LLB,DISP=SHR
//* DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLB,DISP=SHR
//* DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLG,DISP=SHR
//*
//*-------------------------------------------------------------------
//* DOD TEST
//*-------------------------------------------------------------------
//E01 EXEC PGM=TS5240,PARM='TRAP(ON)/ T,3'
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDMSG DD SYSOUT=*
//DDUUID DD SYSOUT=*
//DDTRACE DD SYSOUT=*
//MOIN0410 DD DISP=SHR,DSN=OMS.DIV.P0.STAT.RZ1.ASC.Y04M10
//MOIN0411 DD DISP=SHR,DSN=OMS.DIV.P0.STAT.RZ1.ASC.Y04M11
//MOIN0412 DD DISP=SHR,DSN=OMS.DIV.P0.STAT.RZ1.ASC.Y04M12
//MOOU0410 DD DISP=OLD,DSN=OMS.DIV.P0.STAT.RZ1.ASC.Y04M10.NEW
//MOOU0411 DD DISP=OLD,DSN=OMS.DIV.P0.STAT.RZ1.ASC.Y04M11.NEW
//MOOU0412 DD DISP=OLD,DSN=OMS.DIV.P0.STAT.RZ1.ASC.Y04M12.NEW
//DDSTAG DD DISP=SHR,DSN=PO.WM.POVSMM.G0237V00
//*DDSTAG DD DISP=SHR,DSN=PO.WM.POVSTM
//DDDAY01 DD DISP=SHR,DSN=DOK.SKA.POVSF01
//DDDAY02 DD DISP=SHR,DSN=DOK.SKA.POVSF02
//DDDAY03 DD DISP=SHR,DSN=DOK.SKA.POVSF03
//DDDAY04 DD DISP=SHR,DSN=DOK.SKA.POVSF04
//DDDAY05 DD DISP=SHR,DSN=DOK.SKA.POVSF05
//DDDAY06 DD DISP=SHR,DSN=DOK.SKA.POVSF06
//DDDAY07 DD DISP=SHR,DSN=DOK.SKA.POVSF07
//DDDAY08 DD DISP=SHR,DSN=DOK.SKA.POVSF08
//DDDAY09 DD DISP=SHR,DSN=DOK.SKA.POVSF09
//DDDAY10 DD DISP=SHR,DSN=DOK.SKA.POVSF10
//DDDAY11 DD DISP=SHR,DSN=DOK.SKA.POVSF11
//DDDAY12 DD DISP=SHR,DSN=DOK.SKA.POVSF12
//DDDAY13 DD DISP=SHR,DSN=DOK.SKA.POVSF13
//DDDAY14 DD DISP=SHR,DSN=DOK.SKA.POVSF14
//DDDAY15 DD DISP=SHR,DSN=DOK.SKA.POVSF15
//DDDAY16 DD DISP=SHR,DSN=DOK.SKA.POVSF16
}¢--- A540769.WK.JCL(POVDOC) cre= mod=-. ---------------------------------------
//A540769U JOB (WAK47392,0000,,3653),'TAG-PARSER ',MSGCLASS=T
//*
//*MAIN CLASS=BATCH
//*
//JOBLIB DD DSN=CMN.DIV.P0.IRA0.#000001.LLB,DISP=SHR
//* DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLB,DISP=SHR
//* DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLG,DISP=SHR
//*
// SET RZ=RZ2
//DISP PROC YM=YMVERGESSEN
//E00 EXEC PGM=IEFBR14
//DOCOUT DD DISP=(MOD,DELETE),
// DSN=OMS.DIV.P0.STAT.&RZ..&YM..DISP
//*-------------------------------------------------------------------
//* APPEND DISPLAY TIMESTAMPS TO RECORDS
//*-------------------------------------------------------------------
//E01 EXEC PGM=TS5260,PARM='TRAP(ON)/ T,3'
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDMSG DD SYSOUT=*
//DDUUID DD SYSOUT=*
//DDTRACE DD SYSOUT=*
//DOCIN DD DISP=SHR,DSN=OMS.DIV.P0.STAT.&RZ..&YM
//*DOCOUT DD DISP=(NEW,CATLG),MGMTCLAS=S005N000,
//* DSN=OMS.DIV.P0.STAT.&RZ..&YM..DISP,
//* LIKE=OMS.DIV.P0.STAT.&RZ..&YM
//*DOCOUT DD DUMMY,RECFM=VB,LRECL=9072
//*DOCOUT DD DISP=(NEW,CATLG),MGMTCLAS=S005N000,
//* DSN=A540769.TEST.P0.STAT.&RZ..&YM..DISP,
//* LIKE=OMS.DIV.P0.STAT.&RZ..&YM
//DOCOUT DD DISP=OLD,
// DSN=A540769.TEST.P0.STAT.&RZ..&YM..DISP
// PEND
//S02 EXEC PROC=DISP,YM=Y05M04
//
//S01 EXEC PROC=DISP,YM=Y04M01
//S02 EXEC PROC=DISP,YM=Y04M02
//S03 EXEC PROC=DISP,YM=Y04M03
//S04 EXEC PROC=DISP,YM=Y04M04
//S05 EXEC PROC=DISP,YM=Y04M05
//S06 EXEC PROC=DISP,YM=Y04M06
//
//S07 EXEC PROC=DISP,YM=Y04M07
//S08 EXEC PROC=DISP,YM=Y04M08
//S09 EXEC PROC=DISP,YM=Y04M09
//S10 EXEC PROC=DISP,YM=Y04M10
//S11 EXEC PROC=DISP,YM=Y04M11
//S12 EXEC PROC=DISP,YM=Y04M12
}¢--- A540769.WK.JCL(POVLOG) cre= mod=-. ---------------------------------------
//A540769T JOB (WAK47392,0000,,3653),'TAG-PARSER ',MSGCLASS=T
//*
//*MAIN CLASS=BATCH
//*
//JOBLIB DD DSN=CMN.DIV.P0.A18Q.#002140.LLB,DISP=SHR
//* DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLB,DISP=SHR
//* DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLG,DISP=SHR
//*
//*-------------------------------------------------------------------
//* pov log test
//*-------------------------------------------------------------------
//E01 EXEC PGM=TS5250,PARM='TRAP(ON)/ ABC.DEF.P0.STAT.RZ1.ASC ,1'
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDMSG DD SYSOUT=*
//DDUUID DD SYSOUT=*
//DDTRACE DD SYSOUT=*
}¢--- A540769.WK.JCL(POVMONKO) cre= mod=-. -------------------------------------
//A540769T JOB (WAK47392,0000,,3653),'TAG-PARSER ',MSGCLASS=T
//*
//*MAIN CLASS=BATCH
//*
//JOBLIB DD DSN=CMN.DIV.P0.A18Q.#002140.LLB,DISP=SHR
//* DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLB,DISP=SHR
//* DD DSN=CMN.U0000.P0.RZ1AKT.BASE000.@008.LLG,DISP=SHR
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM='%POVMONKO * * * SV'
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.ISPF.REXX
//PLIDUMP DD SYSOUT=*
//DDSTAG DD DISP=SHR,DSN=PO.WM.POVSTM /* RZ1
//*DDSTAG DD DISP=SHR,DSN=PO.WH.POVSTH.TAPE /* RZ2
//*DDSTAG DD DISP=SHR,DSN=PO.WL.POVSTL /* RZ4
//* DD DISP=SHR,DSN=PO.WM.POVSMM.G0238V00
//* DD DISP=SHR,DSN=PO.WM.POVSMM.G0237V00
//* DD DISP=SHR,DSN=PO.WM.POVSMM.G0236V00
//* DD DISP=SHR,DSN=PO.WM.POVSMM.G0235V00
//
//DDDAY01 DD DISP=SHR,DSN=DOK.SKA.POVSF01
//DDDAY02 DD DISP=SHR,DSN=DOK.SKA.POVSF02
//DDDAY03 DD DISP=SHR,DSN=DOK.SKA.POVSF03
//DDDAY04 DD DISP=SHR,DSN=DOK.SKA.POVSF04
//DDDAY05 DD DISP=SHR,DSN=DOK.SKA.POVSF05
//DDDAY06 DD DISP=SHR,DSN=DOK.SKA.POVSF06
//DDDAY07 DD DISP=SHR,DSN=DOK.SKA.POVSF07
//DDDAY08 DD DISP=SHR,DSN=DOK.SKA.POVSF08
//DDDAY09 DD DISP=SHR,DSN=DOK.SKA.POVSF09
//DDDAY10 DD DISP=SHR,DSN=DOK.SKA.POVSF10
//DDDAY11 DD DISP=SHR,DSN=DOK.SKA.POVSF11
//DDDAY12 DD DISP=SHR,DSN=DOK.SKA.POVSF12
//DDDAY13 DD DISP=SHR,DSN=DOK.SKA.POVSF13
//DDDAY14 DD DISP=SHR,DSN=DOK.SKA.POVSF14
//DDDAY15 DD DISP=SHR,DSN=DOK.SKA.POVSF15
//DDDAY16 DD DISP=SHR,DSN=DOK.SKA.POVSF16
}¢--- A540769.WK.JCL(POVTRANS) cre= mod=-. -------------------------------------
//A540769C JOB (CP00,KE50) 00010001
//*MAIN CLASS=POV
//********************************************************************
//* file transfer mit connect direct
//* vom aktuellen node nach rz2
//********************************************************************
//*
//SEND1 EXEC PGM=OS2900
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//*YSUT1 DD DISP=SHR,DSNAME=CMN.DIV.P0.A18Q.#002140.LLB
//SYSUT1 DD DISP=SHR,DSNAME=A540769.WK.JCL
//DDIN DD *
DSN='A540769.POX.JCL'
DEST='RZ2'
DSNCOPY='YES'
}¢--- A540769.WK.JCL(PO01) cre=2009-06-12 mod=2009-06-12-13.26.35 A540769 ------
//A540769D JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG SYSTEM=S12
//CRE EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//*SYSPRINT DD DISP=SHR,DSN=DSN.NAKTST.LIST(COUNTNEU)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//*SYSIN DD DISP=SHR,DSN=A540769.WK.SQL(TTT)
//SYSIN DD *
--
SET CURRENT SQLID='S100447';
DROP ALIAS OA1T.TPO001A1;
DROP ALIAS OA1T.TPO002A1;
DROP ALIAS OA1T.TPO003A1;
DROP ALIAS OA1T.TPO004A1;
DROP ALIAS OA1T.TPO005A1;
DROP ALIAS OA1T.TPO006A1;
COMMIT;
--
CREATE DATABASE PO01A1T
BUFFERPOOL BP2
INDEXBP BP1
CCSID EBCDIC
STOGROUP GSMS;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=PO01A1T Stogroup=GSMS
-- Tablespace=PO01A1T.A001A
------------------------------------------------------------------------
--
CREATE TABLESPACE A001A
IN PO01A1T
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 10 PCTFREE 10
SEGSIZE 64
LOCKSIZE ANY
COMPRESS YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1T.TPO001A1 In PO01A1T.A001A
------------------------------------------------------------------------
--
CREATE TABLE OA1T.TPO001A1
(PO001_LIST CHAR(4) NOT NULL WITH DEFAULT,
PO001_BUSP_K CHAR(1) NOT NULL WITH DEFAULT,
PO001_HWTK CHAR(1) NOT NULL WITH DEFAULT,
PO001_TIT_D CHAR(40),
PO001_TIT_F CHAR(40),
PO001_TIT_I CHAR(40),
PO001_FORM CHAR(4),
PO001_CARR CHAR(4),
PO001_PERI CHAR(1),
PO001_STAT CHAR(1),
PO001_JOBN CHAR(8),
PO001_BAHIN CHAR(8),
PO001_ARCHP CHAR(4),
PO001_LSTNOHT CHAR(3),
PO001_GRP CHAR(1),
PO001_CHAR_1 CHAR(4),
PO001_CHAR_2 CHAR(4),
PO001_CHAR_3 CHAR(4),
PO001_CHAR_4 CHAR(4),
PO001_AKON_1 CHAR(40),
PO001_AKON_2 CHAR(40),
PO001_AKON_3 CHAR(40),
PO001_HWT_ANY CHAR(1),
PO001_HWT_A CHAR(1),
PO001_HWT_B CHAR(1),
PO001_HWT_C CHAR(1),
PO001_HWT_G CHAR(1),
PO001_HWT_L CHAR(1),
PO001_HWT_M CHAR(1),
PO001_HWT_N CHAR(1),
PO001_HWT_P CHAR(1),
PO001_HWT_R CHAR(1),
PO001_HWT_S CHAR(1),
PO001_HWT_T CHAR(1),
PO001_HWT_V CHAR(1),
PO001_SKAT CHAR(1),
PO001_SSTU CHAR(1),
PO001_FRIST CHAR(5),
PO001_COUVI CHAR(1),
PO001_EPCHL SMALLINT,
PO001_EPLIP SMALLINT,
PO001_EPAGE_ZNR_01 SMALLINT,
PO001_EPAGE_POS_01 SMALLINT,
PO001_EPAGE_FLN_01 SMALLINT,
PO001_EPAGE_ZNR_02 SMALLINT,
PO001_EPAGE_POS_02 SMALLINT,
PO001_EPAGE_FLN_02 SMALLINT,
PO001_EPAGE_ZNR_03 SMALLINT,
PO001_EPAGE_POS_03 SMALLINT,
PO001_EPAGE_FLN_03 SMALLINT,
PO001_EPAGE_ZNR_04 SMALLINT,
PO001_EPAGE_POS_04 SMALLINT,
PO001_EPAGE_FLN_04 SMALLINT,
PO001_EPAGE_ZNR_05 SMALLINT,
PO001_EPAGE_POS_05 SMALLINT,
PO001_EPAGE_FLN_05 SMALLINT,
PO001_EPAGE_ZNR_06 SMALLINT,
PO001_EPAGE_POS_06 SMALLINT,
PO001_EPAGE_FLN_06 SMALLINT,
PO001_EPAGE_ZNR_07 SMALLINT,
PO001_EPAGE_POS_07 SMALLINT,
PO001_EPAGE_FLN_07 SMALLINT,
PO001_EPAGE_ZNR_08 SMALLINT,
PO001_EPAGE_POS_08 SMALLINT,
PO001_EPAGE_FLN_08 SMALLINT,
PO001_EPAGE_ZNR_09 SMALLINT,
PO001_EPAGE_POS_09 SMALLINT,
PO001_EPAGE_FLN_09 SMALLINT,
PO001_EPAGE_ZNR_10 SMALLINT,
PO001_EPAGE_POS_10 SMALLINT,
PO001_EPAGE_FLN_10 SMALLINT,
PO001_EPAGE_ZNR_11 SMALLINT,
PO001_EPAGE_POS_11 SMALLINT,
PO001_EPAGE_FLN_11 SMALLINT,
PO001_EPAGE_ZNR_12 SMALLINT,
PO001_EPAGE_POS_12 SMALLINT,
PO001_EPAGE_FLN_12 SMALLINT,
PO001_EPAGE_ZNR_13 SMALLINT,
PO001_EPAGE_POS_13 SMALLINT,
PO001_EPAGE_FLN_13 SMALLINT,
PO001_EPAGE_ZNR_14 SMALLINT,
PO001_EPAGE_POS_14 SMALLINT,
PO001_EPAGE_FLN_14 SMALLINT,
PO001_EPAGE_ZNR_15 SMALLINT,
PO001_EPAGE_POS_15 SMALLINT,
PO001_EPAGE_FLN_15 SMALLINT,
PO001_EPAGE_ZNR_16 SMALLINT,
PO001_EPAGE_POS_16 SMALLINT,
PO001_EPAGE_FLN_16 SMALLINT,
PO001_EPAGE_ZNR_17 SMALLINT,
PO001_EPAGE_POS_17 SMALLINT,
PO001_EPAGE_FLN_17 SMALLINT,
PO001_EPAGE_ZNR_18 SMALLINT,
PO001_EPAGE_POS_18 SMALLINT,
PO001_EPAGE_FLN_18 SMALLINT,
PO001_EPAGE_ZNR_19 SMALLINT,
PO001_EPAGE_POS_19 SMALLINT,
PO001_EPAGE_FLN_19 SMALLINT,
PO001_EPAGE_ZNR_20 SMALLINT,
PO001_EPAGE_POS_20 SMALLINT,
PO001_EPAGE_FLN_20 SMALLINT,
PO001_EPAGE_ZNR_21 SMALLINT,
PO001_EPAGE_POS_21 SMALLINT,
PO001_EPAGE_FLN_21 SMALLINT,
PO001_EPAGE_ZNR_22 SMALLINT,
PO001_EPAGE_POS_22 SMALLINT,
PO001_EPAGE_FLN_22 SMALLINT,
PO001_EPAGE_ZNR_23 SMALLINT,
PO001_EPAGE_POS_23 SMALLINT,
PO001_EPAGE_FLN_23 SMALLINT,
PO001_EPAGE_ZNR_24 SMALLINT,
PO001_EPAGE_POS_24 SMALLINT,
PO001_EPAGE_FLN_24 SMALLINT,
PO001_EPAGE_ZNR_25 SMALLINT,
PO001_EPAGE_POS_25 SMALLINT,
PO001_EPAGE_FLN_25 SMALLINT,
PO001_EPAGE_ZNR_26 SMALLINT,
PO001_EPAGE_POS_26 SMALLINT,
PO001_EPAGE_FLN_26 SMALLINT,
PO001_EPAGE_ZNR_27 SMALLINT,
PO001_EPAGE_POS_27 SMALLINT,
PO001_EPAGE_FLN_27 SMALLINT,
PO001_EPAGE_ZNR_28 SMALLINT,
PO001_EPAGE_POS_28 SMALLINT,
PO001_EPAGE_FLN_28 SMALLINT,
PO001_ARES CHAR(4),
PO001_LVB CHAR(8),
PO001_LVA CHAR(8),
PO001_POVR_A CHAR(1),
PO001_POVR_B CHAR(1),
PO001_POVR_L CHAR(1),
PO001_POVR_P CHAR(1),
PO001_BUAR CHAR(1),
PO001_OPTC CHAR(1),
PO001_INLA CHAR(1),
PO001_AUSL CHAR(1),
PO001_LAND1 CHAR(2),
PO001_LAND2 CHAR(2),
PO001_LAND3 CHAR(2),
PO001_LAND4 CHAR(2),
PO001_LAND5 CHAR(2),
PO001_LAND6 CHAR(2),
PO001_LAND7 CHAR(2),
PO001_LAND8 CHAR(2),
PO001_LAND9 CHAR(2),
PO001_DOD CHAR(1),
PO001_M38FO CHAR(4),
PO001_M38FD CHAR(6),
PO001_M38PD CHAR(6),
PO001_M38PF CHAR(6),
PO001_M38CG CHAR(6),
PO001_FMT CHAR(1),
PO001_CUT CHAR(1),
PO001_VTE CHAR(1),
PO001_VAUF CHAR(1),
PO001_VPER CHAR(1),
PO001_ARCH CHAR(1),
PO001_DVPC CHAR(2),
PO001_MADR CHAR(1),
PO001_GEB CHAR(4),
PO001_APPL CHAR(4),
PO001_COMI CHAR(1),
PO001_COMSS CHAR(1),
PO001_COMVO CHAR(1),
PO001_COMPRI CHAR(2),
PO001_COMPER CHAR(7),
PO001_COMFMT CHAR(4),
PO001_COMPGM CHAR(8),
PO001_COMBKST CHAR(4),
CONSTRAINT PO001_LIST
PRIMARY KEY (PO001_LIST,
PO001_BUSP_K,
PO001_HWTK))
IN PO01A1T.A001A;
--
------------------------------------------------------------------------
-- Database=PO01A1T
-- Index=OA1T.IPO001A1 On OA1T.TPO001A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1T.IPO001A1
ON OA1T.TPO001A1
(PO001_LIST ASC,
PO001_BUSP_K ASC,
PO001_HWTK ASC)
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 0 PCTFREE 5;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=PO01A1T Stogroup=GSMS
-- Tablespace=PO01A1T.A002A
------------------------------------------------------------------------
--
CREATE TABLESPACE A002A
IN PO01A1T
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 10 PCTFREE 10
SEGSIZE 64
LOCKSIZE ANY
COMPRESS YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1T.TPO002A1 In PO01A1T.A002A
------------------------------------------------------------------------
--
CREATE TABLE OA1T.TPO002A1
(PO002_BUID CHAR(3) NOT NULL WITH DEFAULT,
PO002_BKST CHAR(4) NOT NULL WITH DEFAULT,
PO002_KBST CHAR(4),
PO002_SPRC CHAR(1),
PO002_SPLN SMALLINT,
PO002_ADDR_1 CHAR(38),
PO002_ADDR_2 CHAR(38),
PO002_ADDR_3 CHAR(38),
PO002_ADDR_4 CHAR(38),
PO002_ADDR_5 CHAR(38),
PO002_GEHT CHAR(20),
PO002_ZUSA CHAR(20),
PO002_LDKY CHAR(1),
PO002_LDTI CHAR(1),
PO002_SPRC_2 CHAR(1),
PO002_LAND CHAR(1),
PO002_BUKB CHAR(3),
PO002_VPC CHAR(2),
PO002_PEI CHAR(1),
PO002_PZI CHAR(1),
CONSTRAINT PO002_BUID
PRIMARY KEY (PO002_BUID,
PO002_BKST))
IN PO01A1T.A002A;
--
------------------------------------------------------------------------
-- Database=PO01A1T
-- Index=OA1T.IPO002A1 On OA1T.TPO002A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1T.IPO002A1
ON OA1T.TPO002A1
(PO002_BUID ASC,
PO002_BKST ASC)
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 0 PCTFREE 5;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=PO01A1T Stogroup=GSMS
-- Tablespace=PO01A1T.A003A
------------------------------------------------------------------------
--
CREATE TABLESPACE A003A
IN PO01A1T
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 10 PCTFREE 10
SEGSIZE 64
LOCKSIZE ANY
COMPRESS YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1T.TPO003A1 In PO01A1T.A003A
------------------------------------------------------------------------
--
CREATE TABLE OA1T.TPO003A1
(PO003_BUID CHAR(3) NOT NULL WITH DEFAULT,
PO003_BKST CHAR(4) NOT NULL WITH DEFAULT,
PO003_LIST CHAR(4) NOT NULL WITH DEFAULT,
PO003_SQNR CHAR(2) NOT NULL WITH DEFAULT,
PO003_GEHT CHAR(20),
PO003_ZUSA CHAR(20),
PO003_AORT CHAR(8),
PO003_EPID CHAR(8),
PO003_COPY DECIMAL(3, 0),
PO003_PRIO DECIMAL(3, 0),
PO003_VPC CHAR(2),
PO003_GEHT_F CHAR(20),
PO003_ZUSA_F CHAR(20),
PO003_GEHT_I CHAR(20),
PO003_ZUSA_I CHAR(20))
IN PO01A1T.A003A;
--
------------------------------------------------------------------------
-- Database=PO01A1T
-- Index=OA1T.IPO003A1 On OA1T.TPO003A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1T.IPO003A1
ON OA1T.TPO003A1
(PO003_BUID ASC,
PO003_BKST ASC,
PO003_LIST ASC,
PO003_SQNR ASC)
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 0 PCTFREE 5;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=PO01A1T Stogroup=GSMS
-- Tablespace=PO01A1T.A004A
------------------------------------------------------------------------
--
CREATE TABLESPACE A004A
IN PO01A1T
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 10 PCTFREE 10
SEGSIZE 64
LOCKSIZE ANY
COMPRESS YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1T.TPO004A1 In PO01A1T.A004A
------------------------------------------------------------------------
--
CREATE TABLE OA1T.TPO004A1
(PO004_BUID CHAR(3) NOT NULL WITH DEFAULT,
PO004_BKST CHAR(4) NOT NULL WITH DEFAULT,
PO004_AORT CHAR(8) NOT NULL WITH DEFAULT,
PO004_HWNM_1 CHAR(8),
PO004_HWNM_2 CHAR(8),
PO004_HWNM_3 CHAR(8),
PO004_HWNM_4 CHAR(8))
IN PO01A1T.A004A;
--
------------------------------------------------------------------------
-- Database=PO01A1T
-- Index=OA1T.IPO004A1 On OA1T.TPO004A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1T.IPO004A1
ON OA1T.TPO004A1
(PO004_BUID ASC,
PO004_BKST ASC,
PO004_AORT ASC)
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 0 PCTFREE 5;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=PO01A1T Stogroup=GSMS
-- Tablespace=PO01A1T.A005A
------------------------------------------------------------------------
--
CREATE TABLESPACE A005A
IN PO01A1T
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 10 PCTFREE 10
SEGSIZE 64
LOCKSIZE ANY
COMPRESS YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1T.TPO005A1 In PO01A1T.A005A
------------------------------------------------------------------------
--
CREATE TABLE OA1T.TPO005A1
(PO005_HWNM CHAR(8) NOT NULL WITH DEFAULT,
PO005_HWPLZ CHAR(8),
PO005_HWT_A CHAR(1),
PO005_HWT_B CHAR(1),
PO005_HWT_C CHAR(1),
PO005_HWT_G CHAR(1),
PO005_HWT_L CHAR(1),
PO005_HWT_M CHAR(1),
PO005_HWT_N CHAR(1),
PO005_HWT_P CHAR(1),
PO005_HWT_R CHAR(1),
PO005_HWT_S CHAR(1),
PO005_HWT_T CHAR(1),
PO005_HWT_V CHAR(1),
PO005_HWSPL DECIMAL(7, 0),
PO005_HWDEV CHAR(1),
PO005_LOK CHAR(1),
PO005_LAND CHAR(2),
CONSTRAINT PO005_HWNM
PRIMARY KEY (PO005_HWNM))
IN PO01A1T.A005A;
--
------------------------------------------------------------------------
-- Database=PO01A1T
-- Index=OA1T.IPO005A1 On OA1T.TPO005A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1T.IPO005A1
ON OA1T.TPO005A1
(PO005_HWNM ASC)
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 0 PCTFREE 5;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=PO01A1T Stogroup=GSMS
-- Tablespace=PO01A1T.A006A
------------------------------------------------------------------------
--
CREATE TABLESPACE A006A
IN PO01A1T
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 10 PCTFREE 10
SEGSIZE 64
LOCKSIZE ANY
COMPRESS YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1T.TPO006A1 In PO01A1T.A006A
------------------------------------------------------------------------
--
CREATE TABLE OA1T.TPO006A1
(PO006_BUID CHAR(3) NOT NULL WITH DEFAULT,
PO006_KBST CHAR(4) NOT NULL WITH DEFAULT,
PO006_LIST CHAR(4) NOT NULL WITH DEFAULT,
PO006_LS CHAR(2) NOT NULL WITH DEFAULT,
PO006_IBST CHAR(4) NOT NULL WITH DEFAULT,
PO006_IPER CHAR(10),
PO006_TS INTEGER,
PO006_UPID CHAR(8),
PO006_DS CHAR(1),
PO006_PER CHAR(1) NOT NULL WITH DEFAULT,
PO006_PEI CHAR(1),
PO006_CPYN CHAR(3),
PO006_BKST CHAR(4) NOT NULL WITH DEFAULT,
PO006_EPID CHAR(8) NOT NULL WITH DEFAULT,
PO006_AORT CHAR(8) NOT NULL WITH DEFAULT,
CONSTRAINT PO006_BUID
PRIMARY KEY (PO006_BUID,
PO006_KBST,
PO006_LIST,
PO006_LS,
PO006_IBST,
PO006_PER,
PO006_BKST,
PO006_EPID,
PO006_AORT))
IN PO01A1T.A006A;
--
------------------------------------------------------------------------
-- Database=PO01A1T
-- Index=OA1T.IPO006A1 On OA1T.TPO006A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1T.IPO006A1
ON OA1T.TPO006A1
(PO006_BUID ASC,
PO006_KBST ASC,
PO006_LIST ASC,
PO006_LS ASC,
PO006_IBST ASC,
PO006_PER ASC,
PO006_BKST ASC,
PO006_EPID ASC,
PO006_AORT ASC)
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 0 PCTFREE 5;
--
COMMIT;
--
--SET CURRENT SQLID='OA1T';
--
--CREATE ALIAS OA1T.TPO001A1 FOR OA1T.TPO001A1 ;
--
--CREATE ALIAS OA1T.TPO002A1 FOR OA1T.TPO002A1 ;
--
--CREATE ALIAS OA1T.TPO003A1 FOR OA1T.TPO003A1 ;
--
--CREATE ALIAS OA1T.TPO004A1 FOR OA1T.TPO004A1 ;
--
--CREATE ALIAS OA1T.TPO005A1 FOR OA1T.TPO005A1 ;
--
--CREATE ALIAS OA1T.TPO006A1 FOR OA1T.TPO006A1 ;
--
COMMIT;
--
-- REBIND command(s) have been written to the CMD file
--
------------------------------------------------------------------------
-- ADB2GEN - End of generated DDL --
------------------------------------------------------------------------
--
//LOA EXEC PGM=DSNUTILB,PARM='DBTF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
DECLARE CUR1 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO001A1
ENDEXEC
LOAD DATA INCURSOR CUR1 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE OA1T.TPO001A1
EXEC SQL
DECLARE CUR2 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO002A1
ENDEXEC
LOAD DATA INCURSOR CUR2 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE OA1T.TPO002A1
EXEC SQL
DECLARE CUR3 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO003A1
ENDEXEC
LOAD DATA INCURSOR CUR3 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE OA1T.TPO003A1
EXEC SQL
DECLARE CUR4 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO004A1
ENDEXEC
LOAD DATA INCURSOR CUR4 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE OA1T.TPO004A1
EXEC SQL
DECLARE CUR5 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO005A1
ENDEXEC
LOAD DATA INCURSOR CUR5 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE OA1T.TPO005A1
EXEC SQL
DECLARE CUR6 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO006A1
ENDEXEC
LOAD DATA INCURSOR CUR6 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE OA1T.TPO006A1
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBTF)
REBIND PACKAGE(PO.POVAORT.(IRA00000425C9242F2));
REBIND PACKAGE(PO.POVAORT.(TRAI0003255C88F619));
END
//SYSTOLD DD *
-- vivo=BSYY con=187D10D018D82B96 tst=2009-03-19-13.53.00.730893
-- vivo=BSYY con=187BF4FD17772A3C tst=2009-03-12-12.26.34.409322
}¢--- A540769.WK.JCL(PO01LOA) cre=2009-06-12 mod=2009-06-12-13.08.29 A540769 ---
//A540769D JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG SYSTEM=S12
//LOA EXEC PGM=DSNUTILB,PARM='DBTF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
DECLARE CUR1 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO001A1
ENDEXEC
LOAD DATA INCURSOR CUR1 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE F540769$.TPO001A1
EXEC SQL
DECLARE CUR2 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO002A1
ENDEXEC
LOAD DATA INCURSOR CUR2 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE F540769$.TPO002A1
EXEC SQL
DECLARE CUR3 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO003A1
ENDEXEC
LOAD DATA INCURSOR CUR3 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE F540769$.TPO003A1
EXEC SQL
DECLARE CUR4 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO004A1
ENDEXEC
LOAD DATA INCURSOR CUR4 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE F540769$.TPO004A1
EXEC SQL
DECLARE CUR5 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO005A1
ENDEXEC
LOAD DATA INCURSOR CUR5 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE F540769$.TPO005A1
EXEC SQL
DECLARE CUR6 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO006A1
ENDEXEC
LOAD DATA INCURSOR CUR6 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE F540769$.TPO006A1
}¢--- A540769.WK.JCL(PRLOATST) cre=2016-07-28 mod=2016-07-28-14.56.30 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 ADMIN',
// TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,
// MSGCLASS=T,NOTIFY=&SYSUID
//PRSU1#2 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='WSH6 @ $=jn=A540769T $=dbSy= DP4G $=rz= RZ2 $#@'
//SYSPROC DD DSN=DSN.DB2.EXEC,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//UTIL DD DISP=SHR,DSN=A540769.TMP.TEXT(PRLO6UTL)
//SQL DD DISP=SHR,DSN=A540769.TMP.TEXT(PRLO6SQL)
//WSH DD DISP=SHR,DSN=DSN.DB2.LCTL(PRSULOAW)
}¢--- A540769.WK.JCL(PT) cre=2008-11-24 mod=2008-11-24-17.24.58 F540769 --------
//A540769P JOB (CP00,KE50),TIME=99 00010001
//*MAIN CLASS=CMNA
//*
// SET PHASE=A540769.TEST.PVSTRACK.PHASE
// SET FILELIST=A540769.TEST.PVSTRACK.FILELIST
// SET PARM=A540769.WK.REXX(PTPARM)
//*
//* ALLOCATE DSNS IF NON EXISTANT
//*
//S1 EXEC PGM=IEFBR14
//PHASE DD DISP=(MOD,CATLG,DELETE),DSN=&PHASE,
// MGMTCLAS=COM#A092,DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//FILELIST DD DISP=(MOD,CATLG,DELETE),DSN=&FILELIST,
// MGMTCLAS=COM#A092,DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//* CONSOLIDATE TRACK FILES
//*
//S2 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,PARM='%PT WAK' 00020001
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//PHASE DD DISP=OLD,DSN=&PHASE
//FILELIST DD DISP=OLD,DSN=&FILELIST
//PARM DD DISP=SHR,DSN=&PARM
//* DD FUER CD GEMÄSS ===> PROC CD01SKA1
//DMPUBLIB DD DSN=JOBP.FT1A.PRCS,DISP=SHR
// DD DSN=SFT.DIV.X0.CD.PRCS,DISP=SHR
//DMNETMAP DD DSN=SFT.SKA.P0.CD.NETMAP,DISP=SHR
//DMMSGFIL DD DSN=SFT.DIV.X0.CD.MSG,DISP=SHR
//DMPRINT DD SYSOUT=*
}¢--- A540769.WK.JCL(PVM3190P) cre= mod=-. -------------------------------------
***************************** TOP OF DATA *****************************
//PVT3100P JOB (OS09,KE50,,SP00000000),
// 'PVS JESOUT CLEAN',
// MSGCLASS=E
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
//*MAIN CLASS=PVS
//********************************************************************
//* BEI PROBLEMEN BITTE PVS-PIKETT BENACHRICHTIGEN
//********************************************************************
//*
//********************************************************************
//* JESOUTPUT LOGFILES AUFRAEUMEN
//********************************************************************
//P01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM=('%PVSRWGRV -LA002Y004 RZ2')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=PVSP.U0000.P0.CLIST
//LOGRZ2 DD DISP=OLD,DSN=WGR.RZ2.P0.AKT.LST.LOG
}¢--- A540769.WK.JCL(PVM7700O) cre=2008-11-24 mod=2008-11-24-17.24.59 F540769 ---
//A540769P JOB (CP00,KE50) 00010001
//********************************************************************
//*
//* PVS / PRIMO Walter Keller 12.5.2005
//*
//*
//* CESA Detailnachweis für WGR
//*
//*
//********************************************************************
// SET MONTH=200506
//* SET FILEPRE=WGR.U0034.P0.CESA.RZ1.D&MONTH
// SET FILEPRE=A540769.CESA.RZ1.D&MONTH
// SET DBSYS=DBTF
// SET DBOWN=OA1T
// SET PARMLIB=A540769.WK.SQL
//JOBLIB DD DISP=SHR,DSN=MQM.QP00 <--- DEFAULT Q-MANAGER
//********************************************************************
//* delete csv und html datasets if they exist already
//********************************************************************
//S00 EXEC PGM=IEFBR14
//CSV DD DISP=(MOD,DELETE),DSN=&FILEPRE..CSV
//HTML DD DISP=(MOD,DELETE),DSN=&FILEPRE..HTML
//********************************************************************
//* run rexx pvsrWgrD
//* sql for current month and write detail file (dd csv)
//* and a html page (dd html)
//********************************************************************
//*
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='%PVSRWGRD -D&DBSYS -O&DBOWN -M&MONTH'
//*SYSPROC DD DSN=PVSP.U0000.T0.CLIST,DISP=SHR
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SQLIN DD DISP=SHR,DSN=&PARMLIB(PVM7700S)
//JESIN DD DISP=SHR,DSN=&FILEPRE..JESLOG
//CSV DD DISP=(NEW,CATLG),DSN=&FILEPRE..CSV,
// DATACLAS=VB0256S0,MGMTCLAS=COM#A055
//HTMLIN DD DISP=SHR,DSN=&PARMLIB(PVM7700H)
//HTML DD DISP=(NEW,CATLG),DSN=&FILEPRE..HTML,
// DATACLAS=VB0256S0,MGMTCLAS=COM#A055
//MAILIN DD DISP=SHR,DSN=&PARMLIB(PVM7700M)
//MAIL DD DISP=(NEW,PASS),DATACLAS=FB0080S0
//********************************************************************
//* transfer csv file to rz1 by connect direct
//********************************************************************
// IF RC = 17 THEN
//S02 EXEC PGM=OS2900
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=&FILEPRE..CSV
//DDIN DD *
DEST='RZ2'
MGMTCLAS='COM#E035'
DSNCOPY='YES'
WAIT='YES'
//********************************************************************
//* transfer html file to rz1 by connect direct
//********************************************************************
//S03 EXEC PGM=OS2900
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=&FILEPRE..HTML
//DDIN DD *
DEST='RZ2'
MGMTCLAS='COM#E035'
DSNCOPY='YES'
WAIT='YES'
// ENDIF
//********************************************************************
//* send a mail with the link to the html file
//********************************************************************
// IF RC = 0 THEN
//S04 EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD DISP=(OLD,DELETE),DSN=*.S01.MAIL
// ENDIF
//
}¢--- A540769.WK.JCL(PVM7700P) cre=2008-11-24 mod=2008-11-24-17.24.59 F540769 ---
//PVM7700P JOB (OS09,KE50,,SP00000000),
// 'PVS-CESA DET.F.WGR ',
// MSGCLASS=R
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
// DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=PVS
//*********************************************************************
//** **
//** VERANTWORTLICH: PVS-TEAM **
//** =============== BEI PROBLEMEN: Peregrine Incident an PVS-Team **
//** **
//*********************************************************************
//** PVS / PRIMO Walter Keller 26.7.2005 **
//** CESA Detailnachweis für WGR **
//*********************************************************************
//* %%SET %%VORM3 = %%CALCDATE %%ODATE -%%ODAY
//* %%SET %%VORM2 = %%SUBSTR %%VORM3 1 4
//* %%SET %%JAHR1 = %%SUBSTR %%$ODATE 1 2
//* %%SET %%VMONAT = %%JAHR1.%%VORM2
//********************************************************************
//* %%SET %%FILEPRE = WGR.U0034.P0.CESA.RZ2.D%%VMONAT
//* %%SET %%DBSYS = DBOF
//* %%SET %%DBOWN = OA1P
//* %%SET %%PARMLIB = WGR.RZ2.P0.AKT.PARMLIB
//********************************************************************
//* delete csv und html datasets if they exist already
//********************************************************************
//*
//S00 EXEC PGM=IEFBR14
//CSV DD DSN=%%FILEPRE.CSV,
// DISP=(MOD,DELETE)
//HTML DD DSN=%%FILEPRE.HTML,
// DISP=(MOD,DELETE)
//********************************************************************
//* run rexx pvsrWgrD
//* sql for current month and write detail file (dd csv)
//* and a html page (dd html)
//********************************************************************
//*
//S01 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM='%PVSRWGRD -D%%DBSYS -O%%DBOWN -M%%VMONAT',
// TIME=99
//SYSPROC DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SQLIN DD DSN=%%PARMLIB(PVM7700S),DISP=SHR
//JESIN DD DSN=WGR.RZ2.P0.AKT.LST.LOG,DISP=SHR
//CSV DD DSN=%%FILEPRE.CSV,
// DISP=(,CATLG),
// MGMTCLAS=COM#A055,
// DATACLAS=VB0256S0
//HTMLIN DD DSN=%%PARMLIB(PVM7700H),DISP=SHR
//HTML DD DSN=%%FILEPRE.HTML,
// DISP=(,CATLG),
// MGMTCLAS=COM#A055,
// DATACLAS=VB0256S0
//MAILIN DD DSN=%%PARMLIB(PVM7700M),DISP=SHR
//MAIL DD DISP=(,PASS),
// DATACLAS=FB0080S0
//********************************************************************
//* transfer csv file to rz1 by connect direct
//********************************************************************
//*
//S02 EXEC PGM=OS2900
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSUT1 DD DSN=%%FILEPRE.CSV,DISP=SHR
//DDIN DD *
DEST='RZ1'
MGMTCLAS='COM#A055'
DSNCOPY='YES'
WAIT='YES'
//********************************************************************
//* transfer html file to rz1 by connect direct
//********************************************************************
//*
//S03 EXEC PGM=OS2900
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSUT1 DD DSN=%%FILEPRE.HTML,DISP=SHR
//DDIN DD *
DEST='RZ1'
MGMTCLAS='COM#A055'
DSNCOPY='YES'
WAIT='YES'
//********************************************************************
//* send a mail with the link to the html file
//********************************************************************
// IF RC = 0 THEN
//*
//S04 EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD DSN=*.S01.MAIL,DISP=(OLD,DELETE)
// ENDIF
//********************************************************************
//* jesoutput logfiles aufraeumen und auf rz1 schicken
//********************************************************************
//S05 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%PVSRWGRV -LA002Y004 -SRZ1,A008Y000 RZ2'),
// TIME=99
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//LOGRZ2 DD DSN=WGR.RZ2.P0.AKT.LST.LOG,DISP=OLD
}¢--- A540769.WK.JCL(PVM7700Q) cre=2008-11-24 mod=2008-11-24-17.24.59 F540769 ---
//PVM7700P JOB (OS09,KE50,,SP00000000),
// 'PVS-CESA DET.F.WGR ',
// MSGCLASS=R
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
// DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=PVS
//********************************************************************
//* PVS / PRIMO Walter Keller 12.5.2005
//* CESA Detailnachweis für WGR
//********************************************************************
//* %%SET %%VORM3 = %%CALCDATE %%ODATE -%%ODAY
//* %%SET %%VORM2 = %%SUBSTR %%VORM3 1 4
//* %%SET %%JAHR1 = %%SUBSTR %%$ODATE 1 2
//* %%SET %%VMONAT = %%JAHR1.%%VORM2
//********************************************************************
//* %%SET %%FILEPRE = WGR.U0034.P0.CESA.RZ2.D%%VMONAT
//* %%SET %%DBSYS = DBOF
//* %%SET %%DBOWN = OA1P
//* %%SET %%PARMLIB = WGR.RZ2.P0.AKT.PARMLIB
//********************************************************************
//* delete csv und html datasets if they exist already
//********************************************************************
//* JCLPREP 19/05/2005 09:29:12 A476218
//********************************************************************
//*
//S00 EXEC PGM=IEFBR14
//CSV DD DSN=%%FILEPRE.CSV,
// DISP=(MOD,DELETE)
//HTML DD DSN=%%FILEPRE.HTML,
// DISP=(MOD,DELETE)
//********************************************************************
//* run rexx pvsrWgrD
//* sql for current month and write detail file (dd csv)
//* and a html page (dd html)
//********************************************************************
//*
//S01 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM='%PVSRWGRD -D%%DBSYS -O%%DBOWN -M%%VMONAT',
// TIME=99
//SYSPROC DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SQLIN DD DSN=%%PARMLIB(PVM7700S),DISP=SHR
//CSV DD DSN=%%FILEPRE.CSV,
// DISP=(,CATLG),
// MGMTCLAS=COM#E035,
// DATACLAS=VB0256S0
//HTMLIN DD DSN=%%PARMLIB(PVM7700H),DISP=SHR
//HTML DD DSN=%%FILEPRE.HTML,
// DISP=(,CATLG),
// MGMTCLAS=COM#E035,
// DATACLAS=VB0256S0
//MAILIN DD DSN=%%PARMLIB(PVM7700M),DISP=SHR
//MAIL DD DISP=(,PASS),
// DATACLAS=FB0080S0
//********************************************************************
//* transfer csv file to rz1 by connect direct
//********************************************************************
//*
//S02 EXEC PGM=OS2900
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSUT1 DD DSN=%%FILEPRE.CSV,DISP=SHR
//DDIN DD *
DEST='RZ1'
MGMTCLAS='BAT#AT'
DSNCOPY='YES'
WAIT='YES'
//********************************************************************
//* transfer html file to rz1 by connect direct
//********************************************************************
//*
//S03 EXEC PGM=OS2900
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSUT1 DD DSN=%%FILEPRE.HTML,DISP=SHR
//DDIN DD *
DEST='RZ1'
MGMTCLAS='BAT#AT'
DSNCOPY='YES'
WAIT='YES'
//********************************************************************
//* send a mail with the link to the html file
//********************************************************************
// IF RC = 0 THEN
//*
//S04 EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD DSN=*.S01.MAIL,DISP=(OLD,DELETE)
// ENDIF
}¢--- A540769.WK.JCL(PVM7700T) cre= mod=-. -------------------------------------
//********************************************************************
//* jesoutput logfiles aufraeumen und auf rz1 schicken
//********************************************************************
//S05 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%PVSRWGRV -LA002Y004 -SRZ1,A008Y000 RZ2'),
// TIME=99
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//LOGRZ2 DD DSN=WGR.RZ2.P0.AKT.LST.LOG,DISP=OLD
}¢--- A540769.WK.JCL(PVSCP) cre= mod=-. ----------------------------------------
//A540769P JOB (CP00,KE50) 00010000
//*MAIN CLASS=PVS 00020000
//******* COPY PS 00030000
//CP PROC FROM=FROMMISSING,TO=TOMISSING 00040000
//CP EXEC PGM=ICEGENER 00050000
//SYSUT1 DD DISP=SHR,DSN=&FROM 00060000
//SYSUT2 DD DSN=&TO, 00070000
// DISP=(NEW,CATLG,DELETE), 00080000
// SPACE=(9076,(205,895),RLSE), 00090000
// UNIT=DISK,VOL=SER=PVPXXX 00100000
//SYSPRINT DD SYSOUT=* 00110000
//SYSIN DD DUMMY 00120000
// PEND 00130000
//C1 EXEC PROC=CP, 00140000
//* FROM=POSY.RZ1.T0.AKT.TESTFA05.DATA(VERAAA), 00150000
//* FROM=A540769.TEST.OUT, 00160000
// FROM=PVR.FT.WB0.W0E30034.D2005320.T1531582, 00170000
//* FROM=POSY.RZ1.T0.AKT.TESTFA05.DATA(XBGW@1LS), 00180000
// TO=PVT.AT.POS.WKRUECK 00190000
}¢--- A540769.WK.JCL(PVSREST) cre= mod=-. --------------------------------------
//A540769Q JOB (GOS42523,3010,,1088),NOTIFY=&SYSUID,MSGCLASS=T
//RESTORE EXEC PGM=ADRDSSU ,PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,DSN=A540769.PVSSAVE.D05069
//SYSIN DD *
RESTORE INDD(INDD) -
DATASET( -
INCLUDE( -
PVSO.**.PV* -
) -
) -
CATALOG -
WRITECHECK -
CANCELERROR -
RENUNC(P*.RZ2.P0.**, A540769.P.Y.**)
//
POSY.** -
PVSO.**.EINDAT* -
PVSO.**.INFRA -
PVSO.**.PARM -
PVSO.**.PV* -
}¢--- A540769.WK.JCL(PVSRESU) cre= mod=-. --------------------------------------
//A540769J JOB (GOS42523,3010,,1088),NOTIFY=&SYSUID,MSGCLASS=T
//RESTORE EXEC PGM=ADRDSSU ,PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,DSN=A540769.PVSSAVE.D05069
//SYSIN DD *
RESTORE INDD(INDD) -
DATASET( -
INCLUDE( -
POSY.** -
PVSO.**.EINDAT% -
) -
) -
CATALOG -
WRITECHECK -
CANCELERROR -
RENUNC(P*.RZ2.P0.**, A540769.P.Z.**)
//
//A540769K JOB (GOS42523,3010,,1088),NOTIFY=&SYSUID,MSGCLASS=T
//RESTORE EXEC PGM=ADRDSSU ,PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,DSN=A540769.PVSSAVE.D05069
//SYSIN DD *
RESTORE INDD(INDD) -
DATASET( -
INCLUDE( -
PVSO.**.INFRA -
) -
) -
CATALOG -
WRITECHECK -
CANCELERROR -
RENUNC(P*.RZ2.P0.**, A540769.P.Z.**)
//
//A540769L JOB (GOS42523,3010,,1088),NOTIFY=&SYSUID,MSGCLASS=T
//RESTORE EXEC PGM=ADRDSSU ,PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,DSN=A540769.PVSSAVE.D05069
//SYSIN DD *
RESTORE INDD(INDD) -
DATASET( -
INCLUDE( -
PVSO.**.PVS2POSY -
) -
) -
CATALOG -
WRITECHECK -
CANCELERROR -
RENUNC(P*.RZ2.P0.**, A540769.P.Z.**)
//
//A540769M JOB (GOS42523,3010,,1088),NOTIFY=&SYSUID,MSGCLASS=T
//RESTORE EXEC PGM=ADRDSSU ,PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,DSN=A540769.PVSSAVE.D05069
//SYSIN DD *
RESTORE INDD(INDD) -
DATASET( -
INCLUDE( -
PVSO.**.PARM -
) -
) -
CATALOG -
WRITECHECK -
CANCELERROR -
RENUNC(P*.RZ2.P0.**, A540769.P.Z.**)
//
//A540769N JOB (GOS42523,3010,,1088),NOTIFY=&SYSUID,MSGCLASS=T
//RESTORE EXEC PGM=ADRDSSU ,PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,DSN=A540769.PVSSAVE.D05069
//SYSIN DD *
RESTORE INDD(INDD) -
DATASET( -
INCLUDE( -
PVSO.**.PVIERST -
) -
) -
CATALOG -
WRITECHECK -
CANCELERROR -
RENUNC(P*.RZ2.P0.**, A540769.P.Z.**)
//
}¢--- A540769.WK.JCL(PVSRTEDA) cre= mod=-. -------------------------------------
//A540769E JOB (CP00,KE50),'PVS-TEST',MSGCLASS=T 00010001
//*MAIN CLASS=CMNA
//*
//* erzezuge PVS MaschinenTestdaten durch Rexx pvsrTeDa
//* Parameter:
//* LIM mach: Grenzen Testen
//* RAN mach s1 s2: maximal s1 Zufallsdokumente für C4
//* 1 mit maximal s2 Seiten
//* mach: EIN = Einzelblatt, 1UP = 1 Up
//*
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM='%PVSRTEDA RAN ein'
//SYSTSIN DD DUMMY
//DOCIN DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TESTFALL.DATA(VERAAA)
//PVSOUT DD DSN=PVT.AT.POS.WALTER0,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=VBA,LRECL=32756),
// SPACE=(9076,(205,895),RLSE),
// UNIT=DISK,VOL=SER=PVPXXX
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//*SYSPROC DD DISP=SHR,DSN=ORG.RZ1.B0106.KRDO4.EXEC
}¢--- A540769.WK.JCL(PVSSAVE) cre= mod=-. --------------------------------------
//A540769V JOB (GOS42523,3010,,1088),NOTIFY=&SYSUID,MSGCLASS=T
//*
// SET DSNT=A540769.PVSSAVE.D05069
//*
//SAVE EXEC PGM=ADRDSSU ,PARM='TYPRUN=NORUN'
//SYSPRINT DD SYSOUT=*
//DDOUT01 DD DISP=(NEW,CATLG,DELETE),
// DSN=&DSNT,
// MGMTCLAS=D002N000,
// SPACE=(CYL,(300,200),RLSE),
// UNIT=SYSDA
//SYSIN DD *
DUMP -
DYNALLOC -
DATASET( -
INCLUDE( -
POSY.RZ2.P0.AKT.KARTE -
PVSO.RZ2.P0.*.D05069.*.EINDAT% -
PVSO.RZ2.P0.*.D05069.*.INFRA -
PVSO.RZ2.P0.*.D05069.*.PARM -
PVSO.RZ2.P0.*.D05069.*.PVIERST -
PVSO.RZ2.P0.*.D05069.*.PVS2POSY -
) -
) -
ALLDATA(*) -
ALLEXCP -
CANCELERROR -
COMPRESS -
OUTDDNAME(DDOUT01) -
OPTIMIZE(4)
}¢--- A540769.WK.JCL(PVSSTAT) cre= mod=-. --------------------------------------
//A540769L JOB (CP00,KE50),TIME=NOLIMIT
//***MAIN CLASS=CMNA
// SET LE=PVSP.RZ2.P0.PVSSTEU
// SET MI=CH04
//* OUTPUT PDS VB
// SET OUTV=A540769.PVS.STAT.SORTOUT
//E02 EXEC PGM=DFSORT,PARM='SIZE(MAX)'
//* OUTPUT PDS FB MAXRECL=120
// SET OUT120=A540769.PVS.STAT.SORTOUL
//E02 EXEC PGM=DFSORT,PARM='SIZE(MAX)'
//SYSIN DD DDNAME=STEUDOK ==> RICHTIGE DD WAEHLEN
//***************************************************************
//* MONATLICHE STEUERFILES
//* NACH DOKID GRUPPIEREN
//SORTIN DD DISP=SHR,DSN=&LE..&MI.01
// DD DISP=SHR,DSN=&LE..&MI.02
// DD DISP=SHR,DSN=&LE..&MI.03
// DD DISP=SHR,DSN=&LE..&MI.04
// DD DISP=SHR,DSN=&LE..&MI.05
// DD DISP=SHR,DSN=&LE..&MI.06
// DD DISP=SHR,DSN=&LE..&MI.07
// DD DISP=SHR,DSN=&LE..&MI.08
// DD DISP=SHR,DSN=&LE..&MI.09
// DD DISP=SHR,DSN=&LE..&MI.10
// DD DISP=SHR,DSN=&LE..&MI.11
// DD DISP=SHR,DSN=&LE..&MI.12
//SORTOUT DD DISP=SHR,DSN=&OUTV(RZ2&MI)
//STEUDOK DD *
* INPUT: MONATLICH STEUERFILES, Z.B. PVSP.RZ2.P0.PVSSTEU.CH0504
* OUTPUT: SORTIERT UND GROUPIERT NACH DOKUMENTID
*
* DOKUMENTEN-ID
* * BUID
* * * RETCODE
* * * *
INREC FIELDS=(1:C'RZ2 CH04',10:236,4,15:279,4,20:68,3,23:C' ',
*
* MARK P NULL EXTEND
* * * PAGES MARK D BINARY 1 FOR COUNT
* * * * * *
25:C'P',26:X'0000',28:401,2,30:C'D',31:X'00000001')
SORT FIELDS=(10,13,CH,A)
SUM FIELDS=(26,4,BI,31,4,BI)
//***************************************************************
//* MONATLICHE STEUERFILES
//* NACH DOKID UND DATUM GRUPP
//STEUDODA DD *
* INPUT: MONATLICH STEUERFILES, Z.B. PVSP.RZ2.P0.PVSSTEU.CH0504
* OUTPUT: SELEKTIERT WS80,
* SORTIERT UND GRUPPIERT NACH DOKUMENTID UND DATUM
*
* DOKUMENTEN-ID
* * BUID
* * * RETCODE
* * * *
INREC FIELDS=(1:C'RZ2 LW05',10:236,4,15:279,4,20:68,3,23:C' ',
*
* MARK P NULL EXTEND
* * * PAGES MARK D BINARY 1 FOR COUNT
* * * * * *
25:C'P',26:X'0000',28:401,2,30:C'D',31:X'00000001',
* DATUM AUS FILE NAMEN
* *
35:C' ',40:22,6)
INCLUDE COND=(236,4,CH,EQ,C'WS80')
SORT FIELDS=(10,4,CH,A,40,6,CH,A)
SUM FIELDS=(26,4,BI,31,4,BI)
//***************************************************************
//* EXTRAKT VON TABLE TPV101A1
//* NACH SENDUNG GRUPPIEREN
//*SORTIN DD DISP=SHR,DSN=POSY.RZ2.P0.REO.TPV101A1.D05135.T150007
//*SORTOUT DD DISP=SHR,DSN=&OUT120(PV101SEN)
//V101SEN DD *
* INPUT: WOCHEN EXTRAKT VON TABLE TPV1010A1
* OUTPUT: SORTIERT UND GROUPIERT NACH SENDUNG/JOB
*
* CONTWORD
* *
INREC FIELDS=(1,4,
* CONST SIDJ ORD=CIF SENDUNG
* * * * *
5:C'TPV101A1',14:93,4,19:43,40,59:177,4,
* KDATUM KZEIT
* * *
65:189,10,75:199,8,
*
* INFO 0-EXT BLATT1 BIN 1 COUNT
* * * * *
85:144,20,105:X'0000',107:219,2,109:X'00000001')
OUTFIL OUTREC=(1:5,108,110:X'00000001',120:C'E'),VTOF
INCLUDE COND=(192,7,CH,EQ,C'01.2005',AND,189,2,CH,LE,C'03',
AND,150,9,CH,EQ,C'AVSWCOC5A')
SORT FIELDS=(14,4,CH,A,19,40,CH,A,59,4,CH,A)
SUM FIELDS=(105,4,BI,109,4,BI)
//***************************************************************
//* OUTPUT VON V101SEN
//* NACH EMPFÄNGER-CIF GRUPP.
//*SORTIN DD DISP=SHR,DSN=&OUT120(PV101SEN)
//*SORTOUT DD DISP=SHR,DSN=&OUT120(PV101CIF)
//SENDCIF DD *
* INPUT: OUTPUT VON V101 SEN, GRUPPIERT NACH SENDUNG/JOB
* OUTPUT: SORTIERT UND GRUPPIERT NACH EMPAENBER CIF/JOB
*
SORT FIELDS=(10,4,CH,A,15,40,CH,A)
OUTREC FIELDS=(1,113,115:X'00000001',119:C'C2')
SUM FIELDS=(101,4,BI,105,4,BI,110,4,BI)
//***************************************************************
//* OUTPUT VON SENDCIF
//* NACH BLATT/SEND/DOKUS
//*SORTIN DD DISP=SHR,DSN=&OUT120(PV101CIF)
//*SORTOUT DD DISP=SHR,DSN=&OUT120(PV101BSD)
//CIFBSD DD *
* INPUT: OUTPUT VON V101 SEN, GRUPPIERT NACH CIF/JOB
* OUTPUT: SORTIERT UND GRUPPIERT NACH BLATT/SENDUNGEN/DOKUMENTE
*
*
SORT FIELDS=(101,4,CH,A,110,4,CH,A,105,4,CH,A)
SUM FIELDS=(115,4,BI)
//***************************************************************
//* OUTPUT VON SENDCIF
//* NACH BLATT/DOKUS
//*SORTIN DD DISP=SHR,DSN=&OUT120(PV101CIF)
//*SORTOUT DD DISP=SHR,DSN=&OUT120(PV101BLDO)
//CIFBLDO DD *
* INPUT: OUTPUT VON V101 SEN, GRUPPIERT NACH CIF/JOB
* OUTPUT: SORTIERT UND GRUPPIERT NACH BLATT/DOKUMENTE
*
*
SORT FIELDS=(101,4,CH,A,105,4,CH,A)
SUM FIELDS=(115,4,BI,110,4,BI)
//***************************************************************
//SORTMSG DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
}¢--- A540769.WK.JCL(PVSTESG) cre= mod=-. --------------------------------------
//A540769Y JOB (CP00,KE50),TIME=30
//****MAIN CLASS=CMNA
//JOBLIB DD DISP=SHR,DSN=CMN.DIV.P0.A18A.#000004.LLB
//DOX PROC J=VERGESSENJ,K=VERGESSENK,L=LUFTPOST,IN2=VERGESSEN,P=CB
//PX EXEC PGM=PV5020,PARM='&P'
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DDMSG DD SYSOUT=*
//*
//DDLAND DD DISP=SHR,DSN=POSY.RZ1.P0.AKT.KARTE(&L)
//DDBEIL DD DISP=SHR,DSN=&PRE..&J.4&K..INFRA(PVBEILAG)
//DBSPEC DD DISP=SHR,DSN=&PRE..&J.4&K..INFRA(DBSPEC)
//DDIN DD DISP=SHR,DSN=&PRE..&J.3&K..PVS2POSY
//*
//DDPARM DD DISP=OLD,DSN=&PRE..&J.0&K..PARM
//DDOUT1 DD DUMMY
//DDOUT2 DD DUMMY
//DDIN1 DD DISP=SHR,DSN=&PRE..&J.3&K..EINDAT1
//DDIN2 DD DISP=SHR,DSN=&PRE..&IN2
//DDSTAT DD DUMMY
//DDIN0 DD DISP=SHR,DSN=&PRE..&J.4&K..PVIERST
// PEND
//DO1 PROC J=VERGESSENJ,K=VERGESSENK,L=LUFTPOST
//P1 EXEC PROC=DOX,J=&J,K=&K,L=&L,IN2=&J.4&K..INFRA(@FEHLT),P=CB
// PEND
//DO2 PROC J=VERGESSENJ,K=VERGESSENK,L=LUFTPOST
//P2 EXEC PROC=DOX,J=&J,K=&K,L=&L,IN2=&J.3&K..EINDAT2,P=CB
// PEND
}¢--- A540769.WK.JCL(PVSTEST) cre= mod=-. --------------------------------------
//A540769Y JOB (CP00,KE50),TIME=30
//****MAIN CLASS=CMNA
//JOBLIB DD DISP=SHR,DSN=CMN.DIV.P0.A18A.#000004.LLB
//DOX PROC J=VERGESSEN,L=LUFTPOST,IN2=VERGESSEN,P=CB
//PX EXEC PGM=PV5020,PARM='&P'
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DDMSG DD SYSOUT=*
//*
//DDLAND DD DISP=SHR,DSN=&PR..AKT.KARTE(&L)
//DDBEIL DD DISP=SHR,DSN=&PR..&J..INFRA(PVBEILAG)
//DBSPEC DD DISP=SHR,DSN=&PR..&J..INFRA(DBSPEC)
//DDIN DD DISP=SHR,DSN=&PR..&J..PVS2POSY
//*
//DDPARM DD DISP=OLD,DSN=&PR..&J..PARM
//DDOUT1 DD DUMMY
//DDOUT2 DD DUMMY
//DDIN1 DD DISP=SHR,DSN=&PR..&J..EINDAT1
//DDIN2 DD DISP=SHR,DSN=&PR..&J..&IN2
//DDSTAT DD DUMMY
//DDIN0 DD DISP=SHR,DSN=&PR..&J..PVIERST
// PEND
//DO1 PROC J=VERGESSEN,L=LUFTPOST
//P1 EXEC PROC=DOX,J=&J,L=&L,IN2=INFRA(@FEHLT@),P=CB
// PEND
//DO2 PROC J=VERGESSEN,L=LUFTPOST
//P2 EXEC PROC=DOX,J=&J,L=&L,IN2=EINDAT2,P=CB
// PEND
//* SET PR=A540769.TEST.PVS066A
//*S1 EXEC PROC=DO1,J=AU0S1011
}¢--- A540769.WK.JCL(PVST1) cre=2008-11-24 mod=2008-11-24-17.25.05 F540769 -----
//PVS5861T JOB (OS09,KE10,,SE00000000), *
// REGION=99364K,MSGCLASS=R, *
// MSGLEVEL=(1,1)
//*---- SUBMITTED BY CONTROL-M (FROM MEMLIB) ODATE=051003
//*---- SCHEDULE PVSO.RZ1.T0.TS0S5861.D05276.T163307.SCHEO(SCH#N01X)
//*---- JCL PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV(PVS5861T)
//*---- CONTROL-M JOB IDENTIFICATION: ORDER ID=08RO6 RUN NO.=00002
//*
//*********************************************************************
//** **
//** VERANTWORTLICH: PVS-TEAM **
//** =============== BEI PROBLEMEN: SIEHE CTM DOC-MEMBER **
//** **
//*********************************************************************
//** **
//** ORIGINAL MEMBERNAME : JCL#X30X **
//** **
//** PVS/POSY: POSY OUTPUT-AUFBEREITUNG **
//** **
//*********************************************************************
//*
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM VAR#X1TX
//* ===================================================================
//* == ==
//* == MEMBERNAME : VAR#X1TX -> 1 -> RZ1 / T -> TEST ==
//* == == = = ==
//* == ==
//* == PVS - POSY CTL/M GLOBAL VARI MEMBER ==
//* ===================================================================
//*
//* %%SET %%ACCOUNT1=OS09
//* %%SET %%ACCOUNT2=KE10
//* %%SET %%ACCOUNT4=SE00000000
//*
//* %%SET %%JOBCLASS_1=PVS
//* %%SET %%JOBCLASS_2=A
//*
//* %%SET %%DO_ACIF=Y
//*
//* %%SET %%STAPLST1_PAGEDEF=PV0500
//* %%SET %%STAPLST2_PAGEDEF=PV0500
//* %%SET %%STAPLST1_FORMDEF=PV0500
//* %%SET %%STAPLST2_FORMDEF=PV0500
//* %%SET %%STAPLST1_FORMS=3820
//* %%SET %%STAPLST2_FORMS=3820
//* %%SET %%STAPLST1_SYSOUT_CLASS=*
//* %%SET %%STAPLST2_SYSOUT_CLASS=N
//* %%SET %%STAPLST1_DEST=B643
//* %%SET %%STAPLST2_DEST=ANYLOCAL
//*
//* %%SET %%SPACE_EIN=(CYL,(100,300),RLSE)
//* %%SET %%SPACE_AUS=(CYL,(10,75),RLSE)
//* %%SET %%SPACE_STAT=(CYL,(10,10),RLSE)
//* %%SET %%SPACE_SORT=(CYL,(100,100))
//* %%SET %%SPACE_SMALL=(TRK,(15,15),RLSE)
//*
//* %%SET %%DATA_LARGE=NULL30
//* %%SET %%MGMT_LONG=D035Y000
//* %%SET %%MGMT_SHRT=D008Y000
//* %%SET %%MGMT_ARCH=D035Y000
//* %%SET %%MGMT_RET_ARCH=D005Y000
//*
//* %%SET %%SUBSYS=DBAF
//* %%SET %%PLAN=PVPOSY
//*
//* %%SET %%POSYLOAD=POSY.RZ1.T0.AKT.LOADLIB
//* %%SET %%PVSLOAD=PVS.PVSLODV2
//* %%SET %%PVSLOG=PVS.PVTLOG
//* %%SET %%LELOAD=CEE.SCEERUN
//* %%SET %%CMAN_LLB=PCL.U0000.P0.RZ1AKT.PERM.@008.LLB
//* %%SET %%CMAN_LLG=PCL.U0000.P0.RZ1AKT.PERM.@008.LLG
//*
//* ===================================================================
//* == ENDE VARI-MEMBER VAR#X1TX ==
//* ===================================================================
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM VAR#X00X
//* ===================================================================
//* == ==
//* == MEMBERNAME : VAR#X00X ==
//* == ==
//* == ==
//* == PVS - POSY CTL/M GLOBAL VARI MEMBER (ALLE JOBS) ==
//* ===================================================================
//*
//* -------------------------------------------------------------------
//* -- ERMITTELN PVSO-PREFIXES FUER SEC.-KENNZEICHEN A/B/C/D --
//* -- JE NACH NORMALLAUF/NACHDRUCK/ATI --
//* -- (S. DAZU DOKUMENT NAK & SECURITY) --
//* -------------------------------------------------------------------
//*
//* %%SET %%PVSOPREF_A=PVSO.RZ1.T0.TS0S5861.D05276.T163307
//* %%SET %%PVSOPREF_B=PVSO.RZ1.T0.TS3S5861.D05276.T163307
//* %%SET %%PVSOPREF_C=PVSO.RZ1.T0.TS3S5861.D05276.T163307
//* %%SET %%PVSOPREF_D=PVSO.RZ1.T0.TS4S5861.D05276.T163307
//* %%SET %%PVSOPREF_E=PVSO.RZ1.T0.TS4S5861.D05276.T163307
//*
//* %%IF N EQ D
//* %%ENDIF
//*
//* %%IF J EQ A
//* %%ENDIF
//*
//* -------------------------------------------------------------------
//* -- ERMITTELN WGR-VERARBEITUNGEN --
//* -------------------------------------------------------------------
//* %%SET %%WGR_PROCESSING=N
//* %%IF MAND_0034 EQ MAND_0034
//* %%SET %%WGR_PROCESSING=Y
//* %%ENDIF
//*
//* ===================================================================
//* == ENDE VARI-MEMBER VAR#X00X ==
//* ===================================================================
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM VAR#X01X
//* ===================================================================
//* == ==
//* == MEMBERNAME : VAR#X01X ==
//* == ==
//* == ==
//* == PVS - POSY CTL/M GLOBAL VARI MEMBER (JOB PVS../PV@..) ==
//* ===================================================================
//*
//* -------------------------------------------------------------------
//* -- ERMITTELN SPOOL/NON-SPOOL PRO KANAL AUFGRUND VON: --
//* -- - AUS_HXN_OUTPUTMED (S=SPOOL) --
//* -- - BCP AUF JOB-EBENE (J=NON-SPOOL) --
//* -- - RET_ARCHIVE AUF JOB-EBENE (J=SPOOL) --
//* -------------------------------------------------------------------
//* %%SET %%SPOOL_K1 = J
//* %%IF S NE S
//* %%ENDIF
//* %%IF N EQ J
//* %%ENDIF
//* %%IF N EQ J
//* %%ENDIF
//*
//* %%SET %%SPOOL_K2 = J
//* %%IF S NE S
//* %%ENDIF
//* %%IF N EQ J
//* %%ENDIF
//* %%IF N EQ J
//* %%ENDIF
//*
//* ===================================================================
//* == ENDE VARI-MEMBER VAR#X01X ==
//* ===================================================================
//*
//*MAIN CLASS=A
//*
//* -------------------------------------------
//* - NAMEN DER ZU VERWENDENDEN LOAD-LIBRARYS -
//* -------------------------------------------
//*JOBFROM S100006 *ACF1773 CARD SUPPLIED BY SUBMITTING PROGRAM
//JOBLIB DD DSN=PVS.PVSLODV2,
// DISP=SHR
// DD DSN=POSY.RZ1.T0.AKT.LOADLIB,
// DISP=SHR
// DD DSN=CEE.SCEERUN,
// DISP=SHR
// DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLB,
// DISP=SHR
// DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLG,
// DISP=SHR
//*
//*----------------------------------------------------
//*- SCRATCH FILES AND LIBRARYS AUS?X?? FOR CHANNEL 1 -
//*----------------------------------------------------
// IF (RC EQ 0) THEN
//RESTART EXEC PROC=CRT0PROC,
// PARM=('RR,PVS5861T,08RO6,RL,.$FIRST,.',
// 'DDD,00')
//DAARCH DD *,DCB=(LRECL=132)
//SCRATCH1 EXEC PGM=IDCAMS
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//SYSIN DD *
//*
// ENDIF
//*----------------------------------------------------
//*- SCRATCH FILES AND LIBRARYS AUS?X?? FOR CHANNEL 2 -
//*----------------------------------------------------
// IF (RC EQ 0) THEN
//SCRATCH2 EXEC PGM=IDCAMS
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//SYSIN DD *
// ENDIF
//*
//*----------------------------------------------------
//*- SCRATCH ALL OTHER POSY-OUTPUT-FILES -
//*----------------------------------------------------
// IF (RC EQ 0) THEN
//SCRATCH4 EXEC PGM=IDCAMS
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//SYSIN DD *
// ENDIF
//*
//*----------------------------------------------------
//*- CLEANUP -
//*----------------------------------------------------
// IF (RC EQ 0) THEN
//CLEANUP# EXEC PGM=PV6200,
// PARM='/DBAF,PVPOSY'
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//KARTE DD DSN=PVSO.RZ1.T0.TS0S5861.D05276.T163307.KARTE,
// DISP=SHR
//DDPARM DD DSN=PVSO.RZ1.T0.TS0S5861.D05276.T163307.PARM,
// DISP=SHR
//DDMSG DD SYSOUT=*
// ENDIF
//*
//*----------------------------------------------------
//*- POSY -
//*----------------------------------------------------
// IF (RC EQ 0) THEN
//POSY#### EXEC PGM=A1PO001
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DDPARM DD DSN=PVSO.RZ1.T0.TS0S5861.D05276.T163307.PARM,
// DISP=SHR
//*
//KARTE DD DSN=PVSO.RZ1.T0.TS0S5861.D05276.T163307.KARTE,
// DISP=SHR
//POSYDAT DD DSN=PVSO.RZ1.T0.@@0.AKT.POSYDAT,
// DISP=SHR
//*
//EINDAT1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// DISP=SHR
//FORMDEF1 DD DSN=WGR.U0034.T0.AKT.AFPLIB(F1C#CH2),
// DISP=SHR
//PAGEDEF1 DD DSN=WGR.U0034.T0.AKT.AFPLIB(P1PVWGR2),
// DISP=SHR
//EINDAT2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// DISP=SHR
//FORMDEF2 DD DSN=WGR.U0034.T0.AKT.AFPLIB(F1C#GH1),
// DISP=SHR
//PAGEDEF2 DD DSN=WGR.U0034.T0.AKT.AFPLIB(P1PVWGR1),
// DISP=SHR
//*
//DECKDAT DD DSN=POSY.RZ1.T0.AKT.DECKDAT(DBALL),
// DISP=SHR
//*
//ATMEIN DD DSN=NULLFILE,
// DISP=SHR
//*
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X011
//AUS0X1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS0X1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS1X1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS1X1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS2X1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS2X1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS3X1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS3X1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHF1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHF1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1A DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1A,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1B DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1B,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1C DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1C,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1D DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1D,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1E DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1E,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1F DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1F,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1G DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1G,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1H DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1H,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1I DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1I,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1J DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1J,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1K DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1K,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1L DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1L,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1M DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1M,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1N DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1N,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1O DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1O,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1P DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1P,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1Q DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1Q,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1R DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1R,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1S DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1S,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1T DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1T,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1U DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1U,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1V DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1V,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1W DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1W,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1X DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1Y DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1Y,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B1Z DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1Z,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B10 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B10,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B11 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B11,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B12 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B12,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B13 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B13,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B14 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B14,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B15 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B15,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B16 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B16,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B17 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B17,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B18 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B18,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B19 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B19,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1A DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1A,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1B DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1B,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1C DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1C,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1D DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1D,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1E DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1E,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1F DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1F,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1G DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1G,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1H DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1H,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1I DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1I,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1J DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1J,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1K DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1K,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1L DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1L,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1M DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1M,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1N DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1N,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1O DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1O,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1P DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1P,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1Q DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1Q,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1R DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1R,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1S DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1S,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1T DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1T,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1U DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1U,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1V DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1V,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1W DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1W,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1X DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1Y DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1Y,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B1Z DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1Z,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B10 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B10,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B11 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B11,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B12 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B12,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B13 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B13,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B14 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B14,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B15 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B15,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B16 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B16,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B17 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B17,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B18 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B18,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B19 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B19,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1A DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1A,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1B DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1B,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1C DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1C,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1D DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1D,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1E DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1E,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1F DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1F,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1G DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1G,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1H DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1H,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1I DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1I,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1J DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1J,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1K DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1K,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1L DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1L,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1M DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1M,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1N DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1N,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1O DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1O,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1P DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1P,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1Q DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1Q,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1R DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1R,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1S DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1S,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1T DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1T,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1U DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1U,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1V DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1V,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1W DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1W,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1X DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1Y DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1Y,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB1Z DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1Z,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB10 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB10,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB11 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB11,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB12 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB12,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB13 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB13,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB14 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB14,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB15 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB15,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB16 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB16,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB17 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB17,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB18 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB18,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB19 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB19,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//*
//*
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X012
//AUS0X2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS0X2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS1X2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS1X2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS2X2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS2X2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS3X2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS3X2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHF2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHF2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2A DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2A,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2B DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2B,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2C DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2C,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2D DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2D,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2E DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2E,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2F DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2F,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2G DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2G,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2H DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2H,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2I DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2I,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2J DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2J,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2K DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2K,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2L DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2L,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2M DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2M,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2N DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2N,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2O DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2O,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2P DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2P,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2Q DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2Q,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2R DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2R,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2S DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2S,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2T DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2T,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2U DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2U,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2V DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2V,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2W DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2W,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2X DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2Y DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2Y,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B2Z DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2Z,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B20 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B20,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B21 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B21,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B22 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B22,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B23 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B23,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B24 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B24,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B25 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B25,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B26 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B26,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B27 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B27,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B28 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B28,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS4B29 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B29,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2A DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2A,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2B DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2B,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2C DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2C,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2D DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2D,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2E DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2E,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2F DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2F,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2G DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2G,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2H DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2H,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2I DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2I,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2J DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2J,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2K DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2K,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2L DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2L,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2M DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2M,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2N DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2N,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2O DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2O,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2P DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2P,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2Q DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2Q,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2R DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2R,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2S DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2S,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2T DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2T,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2U DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2U,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2V DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2V,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2W DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2W,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2X DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2Y DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2Y,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B2Z DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2Z,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B20 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B20,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B21 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B21,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B22 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B22,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B23 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B23,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B24 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B24,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B25 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B25,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B26 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B26,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B27 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B27,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B28 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B28,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUS5B29 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B29,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2A DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2A,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2B DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2B,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2C DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2C,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2D DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2D,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2E DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2E,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2F DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2F,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2G DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2G,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2H DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2H,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2I DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2I,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2J DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2J,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2K DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2K,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2L DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2L,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2M DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2M,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2N DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2N,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2O DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2O,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2P DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2P,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2Q DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2Q,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2R DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2R,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2S DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2S,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2T DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2T,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2U DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2U,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2V DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2V,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2W DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2W,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2X DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2Y DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2Y,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB2Z DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2Z,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB20 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB20,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB21 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB21,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB22 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB22,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB23 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB23,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB24 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB24,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB25 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB25,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB26 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB26,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB27 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB27,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB28 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB28,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//AUSHB29 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB29,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//*
//ATMAUS DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.ATMAUS,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E035,
// DCB=(RECFM=VB,LRECL=500),
// SPACE=(CYL,(10,10),RLSE)
//*
//AUSFIBU DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.AUSFIBU,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E035,
// DCB=(RECFM=VB,LRECL=500),
// SPACE=(CYL,(10,10),RLSE)
//*
//LISTE DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.LISTE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E035,
// DCB=(RECFM=FBA,LRECL=121),
// SPACE=(CYL,(10,10),RLSE)
//DDBUSTA DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.BUND,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DCB=(RECFM=VB,LRECL=32756),
// SPACE=(CYL,(10,10),RLSE)
//DDTRACK DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.TRACK,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E035,
// DCB=(RECFM=VB,LRECL=32756),
// SPACE=(CYL,(10,10),RLSE)
//*
//ZWIDAT DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.ZWIDAT,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E035,
// DATACLAS=NULL30,
// DCB=(RECFM=VB,LRECL=10000),
// SPACE=(CYL,(10,10),RLSE)
//*
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//* EXIT-TRACES
//EXITTRC DD *
/*
//* INPUT-EXIT
//DDMSGI1 DD SYSOUT=*
//DDMSGI2 DD SYSOUT=*
//DDTRCI1 DD SYSOUT=*
//DDTRCI2 DD SYSOUT=*
//DDTRCI51 DD SYSOUT=*
//DDTRCO51 DD SYSOUT=*
//DDTRCI52 DD SYSOUT=*
//DDTRCO52 DD SYSOUT=*
//* OUTPUT-EXIT
//TZSPEC DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(TZSPEC),
// DISP=SHR
//DBSPEC DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(DBSPEC),
// DISP=SHR
//DDBEIL DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(PVBEILAG),
// DISP=SHR
//VSTAB DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(VSTAB),
// DISP=SHR
//DDMSGO1 DD SYSOUT=*
//DDMSGO2 DD SYSOUT=*
//DDTRCO1 DD SYSOUT=*
//DDTRCO2 DD SYSOUT=*
//DDTRCI61 DD SYSOUT=*
//DDTRCO61 DD SYSOUT=*
//DDTRCI62 DD SYSOUT=*
//DDTRCO62 DD SYSOUT=*
//*
//IGZSRTCD DD *
//SORTMSG DD SYSOUT=*
//*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK08 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK09 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK10 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK11 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK12 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK13 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK14 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK15 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK16 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK17 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK18 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK19 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
//SORTWK20 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
// ENDIF
//*-----------------------------------------------------
//*- CREATE STAPEL-DECKBLAETTER -
//*-----------------------------------------------------
// IF (RC EQ 0) THEN
//DECKBLAT EXEC PGM=PV5040, POSSIBLE VALUES: PARM='/NOKK1,NOKK2'
// PARM='/'
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DDMSG DD SYSOUT=*
//DDPARM DD DSN=PVSO.RZ1.T0.TS0S5861.D05276.T163307.PARM,
// DISP=SHR
//DDFIBU DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.AUSFIBU,
// DISP=SHR
//DDBUSTA DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.BUND,
// DISP=SHR
//DDBEIL DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(PVBEILAG),
// DISP=SHR
//DBSPEC DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(DBSPEC),
// DISP=SHR
//DDVSTAB DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(VSTAB),
// DISP=SHR
//TZSPEC DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(TZSPEC),
// DISP=SHR
//ATMAUS DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.ATMAUS,
// DISP=SHR
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X041
//DEC4B1 DD DSN=&&DEC4B1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1A DD DSN=&&DEC4B1A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1B DD DSN=&&DEC4B1B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1C DD DSN=&&DEC4B1C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1D DD DSN=&&DEC4B1D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1E DD DSN=&&DEC4B1E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1F DD DSN=&&DEC4B1F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1G DD DSN=&&DEC4B1G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1H DD DSN=&&DEC4B1H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1I DD DSN=&&DEC4B1I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1J DD DSN=&&DEC4B1J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1K DD DSN=&&DEC4B1K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1L DD DSN=&&DEC4B1L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1M DD DSN=&&DEC4B1M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1N DD DSN=&&DEC4B1N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1O DD DSN=&&DEC4B1O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1P DD DSN=&&DEC4B1P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1Q DD DSN=&&DEC4B1Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1R DD DSN=&&DEC4B1R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1S DD DSN=&&DEC4B1S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1T DD DSN=&&DEC4B1T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1U DD DSN=&&DEC4B1U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1V DD DSN=&&DEC4B1V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1W DD DSN=&&DEC4B1W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1X DD DSN=&&DEC4B1X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1Y DD DSN=&&DEC4B1Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B1Z DD DSN=&&DEC4B1Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B10 DD DSN=&&DEC4B10,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B11 DD DSN=&&DEC4B11,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B12 DD DSN=&&DEC4B12,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B13 DD DSN=&&DEC4B13,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B14 DD DSN=&&DEC4B14,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B15 DD DSN=&&DEC4B15,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B16 DD DSN=&&DEC4B16,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B17 DD DSN=&&DEC4B17,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B18 DD DSN=&&DEC4B18,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B19 DD DSN=&&DEC4B19,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1 DD DSN=&&DEC5B1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1A DD DSN=&&DEC5B1A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1B DD DSN=&&DEC5B1B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1C DD DSN=&&DEC5B1C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1D DD DSN=&&DEC5B1D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1E DD DSN=&&DEC5B1E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1F DD DSN=&&DEC5B1F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1G DD DSN=&&DEC5B1G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1H DD DSN=&&DEC5B1H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1I DD DSN=&&DEC5B1I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1J DD DSN=&&DEC5B1J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1K DD DSN=&&DEC5B1K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1L DD DSN=&&DEC5B1L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1M DD DSN=&&DEC5B1M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1N DD DSN=&&DEC5B1N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1O DD DSN=&&DEC5B1O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1P DD DSN=&&DEC5B1P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1Q DD DSN=&&DEC5B1Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1R DD DSN=&&DEC5B1R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1S DD DSN=&&DEC5B1S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1T DD DSN=&&DEC5B1T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1U DD DSN=&&DEC5B1U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1V DD DSN=&&DEC5B1V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1W DD DSN=&&DEC5B1W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1X DD DSN=&&DEC5B1X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1Y DD DSN=&&DEC5B1Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B1Z DD DSN=&&DEC5B1Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B10 DD DSN=&&DEC5B10,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B11 DD DSN=&&DEC5B11,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B12 DD DSN=&&DEC5B12,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B13 DD DSN=&&DEC5B13,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B14 DD DSN=&&DEC5B14,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B15 DD DSN=&&DEC5B15,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B16 DD DSN=&&DEC5B16,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B17 DD DSN=&&DEC5B17,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B18 DD DSN=&&DEC5B18,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B19 DD DSN=&&DEC5B19,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1 DD DSN=&&DECHB1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1A DD DSN=&&DECHB1A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1B DD DSN=&&DECHB1B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1C DD DSN=&&DECHB1C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1D DD DSN=&&DECHB1D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1E DD DSN=&&DECHB1E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1F DD DSN=&&DECHB1F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1G DD DSN=&&DECHB1G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1H DD DSN=&&DECHB1H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1I DD DSN=&&DECHB1I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1J DD DSN=&&DECHB1J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1K DD DSN=&&DECHB1K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1L DD DSN=&&DECHB1L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1M DD DSN=&&DECHB1M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1N DD DSN=&&DECHB1N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1O DD DSN=&&DECHB1O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1P DD DSN=&&DECHB1P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1Q DD DSN=&&DECHB1Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1R DD DSN=&&DECHB1R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1S DD DSN=&&DECHB1S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1T DD DSN=&&DECHB1T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1U DD DSN=&&DECHB1U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1V DD DSN=&&DECHB1V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1W DD DSN=&&DECHB1W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1X DD DSN=&&DECHB1X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1Y DD DSN=&&DECHB1Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB1Z DD DSN=&&DECHB1Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB10 DD DSN=&&DECHB10,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB11 DD DSN=&&DECHB11,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB12 DD DSN=&&DECHB12,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB13 DD DSN=&&DECHB13,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB14 DD DSN=&&DECHB14,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB15 DD DSN=&&DECHB15,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB16 DD DSN=&&DECHB16,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB17 DD DSN=&&DECHB17,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB18 DD DSN=&&DECHB18,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHB19 DD DSN=&&DECHB19,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//DECHF1 DD DSN=&&DECHF1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1 DD DSN=&&FIL4B1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1A DD DSN=&&FIL4B1A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1B DD DSN=&&FIL4B1B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1C DD DSN=&&FIL4B1C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1D DD DSN=&&FIL4B1D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1E DD DSN=&&FIL4B1E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1F DD DSN=&&FIL4B1F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1G DD DSN=&&FIL4B1G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1H DD DSN=&&FIL4B1H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1I DD DSN=&&FIL4B1I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1J DD DSN=&&FIL4B1J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1K DD DSN=&&FIL4B1K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1L DD DSN=&&FIL4B1L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1M DD DSN=&&FIL4B1M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1N DD DSN=&&FIL4B1N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1O DD DSN=&&FIL4B1O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1P DD DSN=&&FIL4B1P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1Q DD DSN=&&FIL4B1Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1R DD DSN=&&FIL4B1R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1S DD DSN=&&FIL4B1S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1T DD DSN=&&FIL4B1T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1U DD DSN=&&FIL4B1U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1V DD DSN=&&FIL4B1V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1W DD DSN=&&FIL4B1W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1X DD DSN=&&FIL4B1X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1Y DD DSN=&&FIL4B1Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B1Z DD DSN=&&FIL4B1Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B10 DD DSN=&&FIL4B10,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B11 DD DSN=&&FIL4B11,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B12 DD DSN=&&FIL4B12,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B13 DD DSN=&&FIL4B13,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B14 DD DSN=&&FIL4B14,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B15 DD DSN=&&FIL4B15,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B16 DD DSN=&&FIL4B16,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B17 DD DSN=&&FIL4B17,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B18 DD DSN=&&FIL4B18,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B19 DD DSN=&&FIL4B19,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1 DD DSN=&&FIL5B1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1A DD DSN=&&FIL5B1A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1B DD DSN=&&FIL5B1B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1C DD DSN=&&FIL5B1C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1D DD DSN=&&FIL5B1D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1E DD DSN=&&FIL5B1E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1F DD DSN=&&FIL5B1F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1G DD DSN=&&FIL5B1G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1H DD DSN=&&FIL5B1H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1I DD DSN=&&FIL5B1I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1J DD DSN=&&FIL5B1J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1K DD DSN=&&FIL5B1K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1L DD DSN=&&FIL5B1L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1M DD DSN=&&FIL5B1M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1N DD DSN=&&FIL5B1N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1O DD DSN=&&FIL5B1O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1P DD DSN=&&FIL5B1P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1Q DD DSN=&&FIL5B1Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1R DD DSN=&&FIL5B1R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1S DD DSN=&&FIL5B1S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1T DD DSN=&&FIL5B1T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1U DD DSN=&&FIL5B1U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1V DD DSN=&&FIL5B1V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1W DD DSN=&&FIL5B1W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1X DD DSN=&&FIL5B1X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1Y DD DSN=&&FIL5B1Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B1Z DD DSN=&&FIL5B1Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B10 DD DSN=&&FIL5B10,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B11 DD DSN=&&FIL5B11,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B12 DD DSN=&&FIL5B12,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B13 DD DSN=&&FIL5B13,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B14 DD DSN=&&FIL5B14,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B15 DD DSN=&&FIL5B15,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B16 DD DSN=&&FIL5B16,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B17 DD DSN=&&FIL5B17,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B18 DD DSN=&&FIL5B18,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B19 DD DSN=&&FIL5B19,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1 DD DSN=&&FILHB1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1A DD DSN=&&FILHB1A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1B DD DSN=&&FILHB1B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1C DD DSN=&&FILHB1C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1D DD DSN=&&FILHB1D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1E DD DSN=&&FILHB1E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1F DD DSN=&&FILHB1F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1G DD DSN=&&FILHB1G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1H DD DSN=&&FILHB1H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1I DD DSN=&&FILHB1I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1J DD DSN=&&FILHB1J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1K DD DSN=&&FILHB1K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1L DD DSN=&&FILHB1L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1M DD DSN=&&FILHB1M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1N DD DSN=&&FILHB1N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1O DD DSN=&&FILHB1O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1P DD DSN=&&FILHB1P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1Q DD DSN=&&FILHB1Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1R DD DSN=&&FILHB1R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1S DD DSN=&&FILHB1S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1T DD DSN=&&FILHB1T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1U DD DSN=&&FILHB1U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1V DD DSN=&&FILHB1V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1W DD DSN=&&FILHB1W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1X DD DSN=&&FILHB1X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1Y DD DSN=&&FILHB1Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB1Z DD DSN=&&FILHB1Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB10 DD DSN=&&FILHB10,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB11 DD DSN=&&FILHB11,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB12 DD DSN=&&FILHB12,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB13 DD DSN=&&FILHB13,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB14 DD DSN=&&FILHB14,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB15 DD DSN=&&FILHB15,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB16 DD DSN=&&FILHB16,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB17 DD DSN=&&FILHB17,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB18 DD DSN=&&FILHB18,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHB19 DD DSN=&&FILHB19,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//FILHF1 DD DSN=&&FILHF1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X042
//DEC4B2 DD DSN=&&DEC4B2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2A DD DSN=&&DEC4B2A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2B DD DSN=&&DEC4B2B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2C DD DSN=&&DEC4B2C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2D DD DSN=&&DEC4B2D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2E DD DSN=&&DEC4B2E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2F DD DSN=&&DEC4B2F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2G DD DSN=&&DEC4B2G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2H DD DSN=&&DEC4B2H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2I DD DSN=&&DEC4B2I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2J DD DSN=&&DEC4B2J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2K DD DSN=&&DEC4B2K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2L DD DSN=&&DEC4B2L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2M DD DSN=&&DEC4B2M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2N DD DSN=&&DEC4B2N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2O DD DSN=&&DEC4B2O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2P DD DSN=&&DEC4B2P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2Q DD DSN=&&DEC4B2Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2R DD DSN=&&DEC4B2R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2S DD DSN=&&DEC4B2S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2T DD DSN=&&DEC4B2T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2U DD DSN=&&DEC4B2U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2V DD DSN=&&DEC4B2V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2W DD DSN=&&DEC4B2W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2X DD DSN=&&DEC4B2X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2Y DD DSN=&&DEC4B2Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B2Z DD DSN=&&DEC4B2Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B20 DD DSN=&&DEC4B20,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B21 DD DSN=&&DEC4B21,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B22 DD DSN=&&DEC4B22,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B23 DD DSN=&&DEC4B23,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B24 DD DSN=&&DEC4B24,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B25 DD DSN=&&DEC4B25,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B26 DD DSN=&&DEC4B26,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B27 DD DSN=&&DEC4B27,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B28 DD DSN=&&DEC4B28,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC4B29 DD DSN=&&DEC4B29,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2 DD DSN=&&DEC5B2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2A DD DSN=&&DEC5B2A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2B DD DSN=&&DEC5B2B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2C DD DSN=&&DEC5B2C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2D DD DSN=&&DEC5B2D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2E DD DSN=&&DEC5B2E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2F DD DSN=&&DEC5B2F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2G DD DSN=&&DEC5B2G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2H DD DSN=&&DEC5B2H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2I DD DSN=&&DEC5B2I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2J DD DSN=&&DEC5B2J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2K DD DSN=&&DEC5B2K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2L DD DSN=&&DEC5B2L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2M DD DSN=&&DEC5B2M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2N DD DSN=&&DEC5B2N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2O DD DSN=&&DEC5B2O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2P DD DSN=&&DEC5B2P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2Q DD DSN=&&DEC5B2Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2R DD DSN=&&DEC5B2R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2S DD DSN=&&DEC5B2S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2T DD DSN=&&DEC5B2T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2U DD DSN=&&DEC5B2U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2V DD DSN=&&DEC5B2V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2W DD DSN=&&DEC5B2W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2X DD DSN=&&DEC5B2X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2Y DD DSN=&&DEC5B2Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B2Z DD DSN=&&DEC5B2Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B20 DD DSN=&&DEC5B20,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B21 DD DSN=&&DEC5B21,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B22 DD DSN=&&DEC5B22,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B23 DD DSN=&&DEC5B23,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B24 DD DSN=&&DEC5B24,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B25 DD DSN=&&DEC5B25,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B26 DD DSN=&&DEC5B26,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B27 DD DSN=&&DEC5B27,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B28 DD DSN=&&DEC5B28,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DEC5B29 DD DSN=&&DEC5B29,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2 DD DSN=&&DECHB2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2A DD DSN=&&DECHB2A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2B DD DSN=&&DECHB2B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2C DD DSN=&&DECHB2C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2D DD DSN=&&DECHB2D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2E DD DSN=&&DECHB2E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2F DD DSN=&&DECHB2F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2G DD DSN=&&DECHB2G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2H DD DSN=&&DECHB2H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2I DD DSN=&&DECHB2I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2J DD DSN=&&DECHB2J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2K DD DSN=&&DECHB2K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2L DD DSN=&&DECHB2L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2M DD DSN=&&DECHB2M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2N DD DSN=&&DECHB2N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2O DD DSN=&&DECHB2O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2P DD DSN=&&DECHB2P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2Q DD DSN=&&DECHB2Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2R DD DSN=&&DECHB2R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2S DD DSN=&&DECHB2S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2T DD DSN=&&DECHB2T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2U DD DSN=&&DECHB2U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2V DD DSN=&&DECHB2V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2W DD DSN=&&DECHB2W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2X DD DSN=&&DECHB2X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2Y DD DSN=&&DECHB2Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB2Z DD DSN=&&DECHB2Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB20 DD DSN=&&DECHB20,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB21 DD DSN=&&DECHB21,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB22 DD DSN=&&DECHB22,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB23 DD DSN=&&DECHB23,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB24 DD DSN=&&DECHB24,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB25 DD DSN=&&DECHB25,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB26 DD DSN=&&DECHB26,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB27 DD DSN=&&DECHB27,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB28 DD DSN=&&DECHB28,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHB29 DD DSN=&&DECHB29,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DECHF2 DD DSN=&&DECHF2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2 DD DSN=&&FIL4B2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2A DD DSN=&&FIL4B2A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2B DD DSN=&&FIL4B2B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2C DD DSN=&&FIL4B2C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2D DD DSN=&&FIL4B2D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2E DD DSN=&&FIL4B2E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2F DD DSN=&&FIL4B2F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2G DD DSN=&&FIL4B2G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2H DD DSN=&&FIL4B2H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2I DD DSN=&&FIL4B2I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2J DD DSN=&&FIL4B2J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2K DD DSN=&&FIL4B2K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2L DD DSN=&&FIL4B2L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2M DD DSN=&&FIL4B2M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2N DD DSN=&&FIL4B2N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2O DD DSN=&&FIL4B2O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2P DD DSN=&&FIL4B2P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2Q DD DSN=&&FIL4B2Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2R DD DSN=&&FIL4B2R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2S DD DSN=&&FIL4B2S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2T DD DSN=&&FIL4B2T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2U DD DSN=&&FIL4B2U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2V DD DSN=&&FIL4B2V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2W DD DSN=&&FIL4B2W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2X DD DSN=&&FIL4B2X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2Y DD DSN=&&FIL4B2Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B2Z DD DSN=&&FIL4B2Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B20 DD DSN=&&FIL4B20,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B21 DD DSN=&&FIL4B21,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B22 DD DSN=&&FIL4B22,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B23 DD DSN=&&FIL4B23,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B24 DD DSN=&&FIL4B24,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B25 DD DSN=&&FIL4B25,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B26 DD DSN=&&FIL4B26,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B27 DD DSN=&&FIL4B27,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B28 DD DSN=&&FIL4B28,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL4B29 DD DSN=&&FIL4B29,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2 DD DSN=&&FIL5B2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2A DD DSN=&&FIL5B2A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2B DD DSN=&&FIL5B2B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2C DD DSN=&&FIL5B2C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2D DD DSN=&&FIL5B2D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2E DD DSN=&&FIL5B2E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2F DD DSN=&&FIL5B2F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2G DD DSN=&&FIL5B2G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2H DD DSN=&&FIL5B2H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2I DD DSN=&&FIL5B2I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2J DD DSN=&&FIL5B2J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2K DD DSN=&&FIL5B2K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2L DD DSN=&&FIL5B2L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2M DD DSN=&&FIL5B2M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2N DD DSN=&&FIL5B2N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2O DD DSN=&&FIL5B2O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2P DD DSN=&&FIL5B2P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2Q DD DSN=&&FIL5B2Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2R DD DSN=&&FIL5B2R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2S DD DSN=&&FIL5B2S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2T DD DSN=&&FIL5B2T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2U DD DSN=&&FIL5B2U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2V DD DSN=&&FIL5B2V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2W DD DSN=&&FIL5B2W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2X DD DSN=&&FIL5B2X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2Y DD DSN=&&FIL5B2Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B2Z DD DSN=&&FIL5B2Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B20 DD DSN=&&FIL5B20,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B21 DD DSN=&&FIL5B21,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B22 DD DSN=&&FIL5B22,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B23 DD DSN=&&FIL5B23,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B24 DD DSN=&&FIL5B24,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B25 DD DSN=&&FIL5B25,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B26 DD DSN=&&FIL5B26,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B27 DD DSN=&&FIL5B27,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B28 DD DSN=&&FIL5B28,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FIL5B29 DD DSN=&&FIL5B29,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2 DD DSN=&&FILHB2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2A DD DSN=&&FILHB2A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2B DD DSN=&&FILHB2B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2C DD DSN=&&FILHB2C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2D DD DSN=&&FILHB2D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2E DD DSN=&&FILHB2E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2F DD DSN=&&FILHB2F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2G DD DSN=&&FILHB2G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2H DD DSN=&&FILHB2H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2I DD DSN=&&FILHB2I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2J DD DSN=&&FILHB2J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2K DD DSN=&&FILHB2K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2L DD DSN=&&FILHB2L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2M DD DSN=&&FILHB2M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2N DD DSN=&&FILHB2N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2O DD DSN=&&FILHB2O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2P DD DSN=&&FILHB2P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2Q DD DSN=&&FILHB2Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2R DD DSN=&&FILHB2R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2S DD DSN=&&FILHB2S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2T DD DSN=&&FILHB2T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2U DD DSN=&&FILHB2U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2V DD DSN=&&FILHB2V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2W DD DSN=&&FILHB2W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2X DD DSN=&&FILHB2X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2Y DD DSN=&&FILHB2Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB2Z DD DSN=&&FILHB2Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB20 DD DSN=&&FILHB20,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB21 DD DSN=&&FILHB21,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB22 DD DSN=&&FILHB22,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB23 DD DSN=&&FILHB23,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB24 DD DSN=&&FILHB24,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB25 DD DSN=&&FILHB25,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB26 DD DSN=&&FILHB26,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB27 DD DSN=&&FILHB27,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB28 DD DSN=&&FILHB28,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHB29 DD DSN=&&FILHB29,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//FILHF2 DD DSN=&&FILHF2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
//DDLISTE DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.STAPLST,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DCB=(RECFM=VBA,LRECL=32756),
// SPACE=(TRK,(10,10),RLSE)
// ENDIF
//*
//*-----------------------------------------------------
//*- COPY DECKBLATT & OUTPUT TO PRINTER (CHANNEL 1) -
//*-----------------------------------------------------
// IF (RC EQ 0) THEN
//COPY1### EXEC PGM=ICETOOL
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//TOOLIN DD *
//*
//OUTSTAP1 OUTPUT PRMODE=PAGE,
// FORMS=3820,
// FORMDEF=PV0500,
// PAGEDEF=PV0500,
// CLASS=*,
// DEST=B643
//OUTSTAP2 OUTPUT PRMODE=PAGE,
// FORMS=3820,
// FORMDEF=PV0500,
// PAGEDEF=PV0500,
// CLASS=N,
// DEST=ANYLOCAL
//DDLISTE DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.STAPLST,
// DISP=SHR
//STAPLST1 DD OUTPUT=*.OUTSTAP1,SYSOUT=(,)
//STAPLST2 DD OUTPUT=*.OUTSTAP2,SYSOUT=(,)
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X061
//OUT4X1 OUTPUT PRMODE=PAGE,
//* %%IF Y EQ Y
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//* %%ENDIF
// THRESHLD=1,
// FORMS=DUMM#A01,
// FORMDEF=DUMMY,
// PAGEDEF=DUMMY,
// DEST=ANYLOCAL
//OUT5X1 OUTPUT PRMODE=PAGE,
//* %%IF Y EQ Y
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//* %%ENDIF
// THRESHLD=1,
// FORMS=WTDU#A01,
// FORMDEF=C#CH2,
// PAGEDEF=PVWGR2,
// DEST=ANYLOCAL
//OUTHX1 OUTPUT PRMODE=PAGE,
//* %%IF Y EQ Y
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//* %%ENDIF
// THRESHLD=1,
// FORMS=WHDU#A01,
// FORMDEF=C#CH1,
// PAGEDEF=PVWGR1,
// DEST=ANYLOCAL
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X071
//* ATTENTION: VOL=REF= IS NEEDED BECAUSE THE SAME TEMPORARY DATASET
//* APPEARS TWICE UNDER THE SAME DDNAME
//COP4B1 DD DSN=&&DEC4B1,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1
// DD DSN=&&FIL4B1,
// DISP=(SHR,PASS)
//COP4B1A DD DSN=&&DEC4B1A,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1A,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1A,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1A
// DD DSN=&&FIL4B1A,
// DISP=(SHR,PASS)
//COP4B1B DD DSN=&&DEC4B1B,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1B,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1B,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1B
// DD DSN=&&FIL4B1B,
// DISP=(SHR,PASS)
//COP4B1C DD DSN=&&DEC4B1C,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1C,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1C,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1C
// DD DSN=&&FIL4B1C,
// DISP=(SHR,PASS)
//COP4B1D DD DSN=&&DEC4B1D,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1D,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1D,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1D
// DD DSN=&&FIL4B1D,
// DISP=(SHR,PASS)
//COP4B1E DD DSN=&&DEC4B1E,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1E,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1E,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1E
// DD DSN=&&FIL4B1E,
// DISP=(SHR,PASS)
//COP4B1F DD DSN=&&DEC4B1F,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1F,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1F,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1F
// DD DSN=&&FIL4B1F,
// DISP=(SHR,PASS)
//COP4B1G DD DSN=&&DEC4B1G,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1G,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1G,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1G
// DD DSN=&&FIL4B1G,
// DISP=(SHR,PASS)
//COP4B1H DD DSN=&&DEC4B1H,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1H,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1H,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1H
// DD DSN=&&FIL4B1H,
// DISP=(SHR,PASS)
//COP4B1I DD DSN=&&DEC4B1I,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1I,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1I,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1I
// DD DSN=&&FIL4B1I,
// DISP=(SHR,PASS)
//COP4B1J DD DSN=&&DEC4B1J,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1J,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1J,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1J
// DD DSN=&&FIL4B1J,
// DISP=(SHR,PASS)
//COP4B1K DD DSN=&&DEC4B1K,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1K,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1K,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1K
// DD DSN=&&FIL4B1K,
// DISP=(SHR,PASS)
//COP4B1L DD DSN=&&DEC4B1L,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1L,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1L,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1L
// DD DSN=&&FIL4B1L,
// DISP=(SHR,PASS)
//COP4B1M DD DSN=&&DEC4B1M,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1M,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1M,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1M
// DD DSN=&&FIL4B1M,
// DISP=(SHR,PASS)
//COP4B1N DD DSN=&&DEC4B1N,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1N,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1N,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1N
// DD DSN=&&FIL4B1N,
// DISP=(SHR,PASS)
//COP4B1O DD DSN=&&DEC4B1O,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1O,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1O,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1O
// DD DSN=&&FIL4B1O,
// DISP=(SHR,PASS)
//COP4B1P DD DSN=&&DEC4B1P,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1P,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1P,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1P
// DD DSN=&&FIL4B1P,
// DISP=(SHR,PASS)
//COP4B1Q DD DSN=&&DEC4B1Q,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1Q,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1Q,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1Q
// DD DSN=&&FIL4B1Q,
// DISP=(SHR,PASS)
//COP4B1R DD DSN=&&DEC4B1R,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1R,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1R,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1R
// DD DSN=&&FIL4B1R,
// DISP=(SHR,PASS)
//COP4B1S DD DSN=&&DEC4B1S,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1S,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1S,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1S
// DD DSN=&&FIL4B1S,
// DISP=(SHR,PASS)
//COP4B1T DD DSN=&&DEC4B1T,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1T,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1T,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1T
// DD DSN=&&FIL4B1T,
// DISP=(SHR,PASS)
//COP4B1U DD DSN=&&DEC4B1U,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1U,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1U,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1U
// DD DSN=&&FIL4B1U,
// DISP=(SHR,PASS)
//COP4B1V DD DSN=&&DEC4B1V,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1V,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1V,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1V
// DD DSN=&&FIL4B1V,
// DISP=(SHR,PASS)
//COP4B1W DD DSN=&&DEC4B1W,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1W,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1W,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1W
// DD DSN=&&FIL4B1W,
// DISP=(SHR,PASS)
//COP4B1X DD DSN=&&DEC4B1X,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1X,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1X,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1X
// DD DSN=&&FIL4B1X,
// DISP=(SHR,PASS)
//COP4B1Y DD DSN=&&DEC4B1Y,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1Y,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1Y,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1Y
// DD DSN=&&FIL4B1Y,
// DISP=(SHR,PASS)
//COP4B1Z DD DSN=&&DEC4B1Z,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1Z,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B1Z,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1Z
// DD DSN=&&FIL4B1Z,
// DISP=(SHR,PASS)
//COP4B10 DD DSN=&&DEC4B10,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B10,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B10,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B10
// DD DSN=&&FIL4B10,
// DISP=(SHR,PASS)
//COP4B11 DD DSN=&&DEC4B11,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B11,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B11,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B11
// DD DSN=&&FIL4B11,
// DISP=(SHR,PASS)
//COP4B12 DD DSN=&&DEC4B12,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B12,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B12,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B12
// DD DSN=&&FIL4B12,
// DISP=(SHR,PASS)
//COP4B13 DD DSN=&&DEC4B13,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B13,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B13,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B13
// DD DSN=&&FIL4B13,
// DISP=(SHR,PASS)
//COP4B14 DD DSN=&&DEC4B14,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B14,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B14,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B14
// DD DSN=&&FIL4B14,
// DISP=(SHR,PASS)
//COP4B15 DD DSN=&&DEC4B15,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B15,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B15,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B15
// DD DSN=&&FIL4B15,
// DISP=(SHR,PASS)
//COP4B16 DD DSN=&&DEC4B16,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B16,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B16,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B16
// DD DSN=&&FIL4B16,
// DISP=(SHR,PASS)
//COP4B17 DD DSN=&&DEC4B17,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B17,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B17,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B17
// DD DSN=&&FIL4B17,
// DISP=(SHR,PASS)
//COP4B18 DD DSN=&&DEC4B18,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B18,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B18,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B18
// DD DSN=&&FIL4B18,
// DISP=(SHR,PASS)
//COP4B19 DD DSN=&&DEC4B19,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B19,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B19,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B19
// DD DSN=&&FIL4B19,
// DISP=(SHR,PASS)
//COP5B1 DD DSN=&&DEC5B1,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1
// DD DSN=&&FIL5B1,
// DISP=(SHR,PASS)
//COP5B1A DD DSN=&&DEC5B1A,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1A,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1A,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1A
// DD DSN=&&FIL5B1A,
// DISP=(SHR,PASS)
//COP5B1B DD DSN=&&DEC5B1B,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1B,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1B,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1B
// DD DSN=&&FIL5B1B,
// DISP=(SHR,PASS)
//COP5B1C DD DSN=&&DEC5B1C,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1C,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1C,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1C
// DD DSN=&&FIL5B1C,
// DISP=(SHR,PASS)
//COP5B1D DD DSN=&&DEC5B1D,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1D,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1D,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1D
// DD DSN=&&FIL5B1D,
// DISP=(SHR,PASS)
//COP5B1E DD DSN=&&DEC5B1E,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1E,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1E,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1E
// DD DSN=&&FIL5B1E,
// DISP=(SHR,PASS)
//COP5B1F DD DSN=&&DEC5B1F,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1F,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1F,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1F
// DD DSN=&&FIL5B1F,
// DISP=(SHR,PASS)
//COP5B1G DD DSN=&&DEC5B1G,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1G,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1G,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1G
// DD DSN=&&FIL5B1G,
// DISP=(SHR,PASS)
//COP5B1H DD DSN=&&DEC5B1H,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1H,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1H,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1H
// DD DSN=&&FIL5B1H,
// DISP=(SHR,PASS)
//COP5B1I DD DSN=&&DEC5B1I,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1I,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1I,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1I
// DD DSN=&&FIL5B1I,
// DISP=(SHR,PASS)
//COP5B1J DD DSN=&&DEC5B1J,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1J,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1J,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1J
// DD DSN=&&FIL5B1J,
// DISP=(SHR,PASS)
//COP5B1K DD DSN=&&DEC5B1K,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1K,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1K,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1K
// DD DSN=&&FIL5B1K,
// DISP=(SHR,PASS)
//COP5B1L DD DSN=&&DEC5B1L,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1L,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1L,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1L
// DD DSN=&&FIL5B1L,
// DISP=(SHR,PASS)
//COP5B1M DD DSN=&&DEC5B1M,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1M,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1M,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1M
// DD DSN=&&FIL5B1M,
// DISP=(SHR,PASS)
//COP5B1N DD DSN=&&DEC5B1N,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1N,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1N,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1N
// DD DSN=&&FIL5B1N,
// DISP=(SHR,PASS)
//COP5B1O DD DSN=&&DEC5B1O,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1O,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1O,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1O
// DD DSN=&&FIL5B1O,
// DISP=(SHR,PASS)
//COP5B1P DD DSN=&&DEC5B1P,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1P,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1P,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1P
// DD DSN=&&FIL5B1P,
// DISP=(SHR,PASS)
//COP5B1Q DD DSN=&&DEC5B1Q,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1Q,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1Q,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1Q
// DD DSN=&&FIL5B1Q,
// DISP=(SHR,PASS)
//COP5B1R DD DSN=&&DEC5B1R,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1R,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1R,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1R
// DD DSN=&&FIL5B1R,
// DISP=(SHR,PASS)
//COP5B1S DD DSN=&&DEC5B1S,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1S,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1S,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1S
// DD DSN=&&FIL5B1S,
// DISP=(SHR,PASS)
//COP5B1T DD DSN=&&DEC5B1T,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1T,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1T,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1T
// DD DSN=&&FIL5B1T,
// DISP=(SHR,PASS)
//COP5B1U DD DSN=&&DEC5B1U,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1U,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1U,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1U
// DD DSN=&&FIL5B1U,
// DISP=(SHR,PASS)
//COP5B1V DD DSN=&&DEC5B1V,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1V,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1V,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1V
// DD DSN=&&FIL5B1V,
// DISP=(SHR,PASS)
//COP5B1W DD DSN=&&DEC5B1W,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1W,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1W,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1W
// DD DSN=&&FIL5B1W,
// DISP=(SHR,PASS)
//COP5B1X DD DSN=&&DEC5B1X,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1X,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1X,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1X
// DD DSN=&&FIL5B1X,
// DISP=(SHR,PASS)
//COP5B1Y DD DSN=&&DEC5B1Y,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1Y,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1Y,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1Y
// DD DSN=&&FIL5B1Y,
// DISP=(SHR,PASS)
//COP5B1Z DD DSN=&&DEC5B1Z,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1Z,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B1Z,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1Z
// DD DSN=&&FIL5B1Z,
// DISP=(SHR,PASS)
//COP5B10 DD DSN=&&DEC5B10,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B10,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B10,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B10
// DD DSN=&&FIL5B10,
// DISP=(SHR,PASS)
//COP5B11 DD DSN=&&DEC5B11,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B11,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B11,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B11
// DD DSN=&&FIL5B11,
// DISP=(SHR,PASS)
//COP5B12 DD DSN=&&DEC5B12,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B12,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B12,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B12
// DD DSN=&&FIL5B12,
// DISP=(SHR,PASS)
//COP5B13 DD DSN=&&DEC5B13,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B13,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B13,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B13
// DD DSN=&&FIL5B13,
// DISP=(SHR,PASS)
//COP5B14 DD DSN=&&DEC5B14,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B14,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B14,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B14
// DD DSN=&&FIL5B14,
// DISP=(SHR,PASS)
//COP5B15 DD DSN=&&DEC5B15,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B15,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B15,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B15
// DD DSN=&&FIL5B15,
// DISP=(SHR,PASS)
//COP5B16 DD DSN=&&DEC5B16,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B16,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B16,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B16
// DD DSN=&&FIL5B16,
// DISP=(SHR,PASS)
//COP5B17 DD DSN=&&DEC5B17,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B17,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B17,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B17
// DD DSN=&&FIL5B17,
// DISP=(SHR,PASS)
//COP5B18 DD DSN=&&DEC5B18,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B18,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B18,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B18
// DD DSN=&&FIL5B18,
// DISP=(SHR,PASS)
//COP5B19 DD DSN=&&DEC5B19,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B19,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B19,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B19
// DD DSN=&&FIL5B19,
// DISP=(SHR,PASS)
//COPHB1 DD DSN=&&DECHB1,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1
// DD DSN=&&FILHB1,
// DISP=(SHR,PASS)
//COPHB1A DD DSN=&&DECHB1A,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1A,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1A,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1A
// DD DSN=&&FILHB1A,
// DISP=(SHR,PASS)
//COPHB1B DD DSN=&&DECHB1B,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1B,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1B,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1B
// DD DSN=&&FILHB1B,
// DISP=(SHR,PASS)
//COPHB1C DD DSN=&&DECHB1C,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1C,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1C,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1C
// DD DSN=&&FILHB1C,
// DISP=(SHR,PASS)
//COPHB1D DD DSN=&&DECHB1D,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1D,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1D,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1D
// DD DSN=&&FILHB1D,
// DISP=(SHR,PASS)
//COPHB1E DD DSN=&&DECHB1E,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1E,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1E,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1E
// DD DSN=&&FILHB1E,
// DISP=(SHR,PASS)
//COPHB1F DD DSN=&&DECHB1F,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1F,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1F,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1F
// DD DSN=&&FILHB1F,
// DISP=(SHR,PASS)
//COPHB1G DD DSN=&&DECHB1G,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1G,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1G,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1G
// DD DSN=&&FILHB1G,
// DISP=(SHR,PASS)
//COPHB1H DD DSN=&&DECHB1H,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1H,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1H,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1H
// DD DSN=&&FILHB1H,
// DISP=(SHR,PASS)
//COPHB1I DD DSN=&&DECHB1I,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1I,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1I,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1I
// DD DSN=&&FILHB1I,
// DISP=(SHR,PASS)
//COPHB1J DD DSN=&&DECHB1J,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1J,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1J,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1J
// DD DSN=&&FILHB1J,
// DISP=(SHR,PASS)
//COPHB1K DD DSN=&&DECHB1K,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1K,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1K,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1K
// DD DSN=&&FILHB1K,
// DISP=(SHR,PASS)
//COPHB1L DD DSN=&&DECHB1L,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1L,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1L,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1L
// DD DSN=&&FILHB1L,
// DISP=(SHR,PASS)
//COPHB1M DD DSN=&&DECHB1M,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1M,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1M,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1M
// DD DSN=&&FILHB1M,
// DISP=(SHR,PASS)
//COPHB1N DD DSN=&&DECHB1N,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1N,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1N,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1N
// DD DSN=&&FILHB1N,
// DISP=(SHR,PASS)
//COPHB1O DD DSN=&&DECHB1O,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1O,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1O,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1O
// DD DSN=&&FILHB1O,
// DISP=(SHR,PASS)
//COPHB1P DD DSN=&&DECHB1P,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1P,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1P,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1P
// DD DSN=&&FILHB1P,
// DISP=(SHR,PASS)
//COPHB1Q DD DSN=&&DECHB1Q,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1Q,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1Q,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1Q
// DD DSN=&&FILHB1Q,
// DISP=(SHR,PASS)
//COPHB1R DD DSN=&&DECHB1R,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1R,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1R,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1R
// DD DSN=&&FILHB1R,
// DISP=(SHR,PASS)
//COPHB1S DD DSN=&&DECHB1S,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1S,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1S,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1S
// DD DSN=&&FILHB1S,
// DISP=(SHR,PASS)
//COPHB1T DD DSN=&&DECHB1T,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1T,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1T,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1T
// DD DSN=&&FILHB1T,
// DISP=(SHR,PASS)
//COPHB1U DD DSN=&&DECHB1U,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1U,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1U,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1U
// DD DSN=&&FILHB1U,
// DISP=(SHR,PASS)
//COPHB1V DD DSN=&&DECHB1V,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1V,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1V,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1V
// DD DSN=&&FILHB1V,
// DISP=(SHR,PASS)
//COPHB1W DD DSN=&&DECHB1W,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1W,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1W,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1W
// DD DSN=&&FILHB1W,
// DISP=(SHR,PASS)
//COPHB1X DD DSN=&&DECHB1X,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1X,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1X,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1X
// DD DSN=&&FILHB1X,
// DISP=(SHR,PASS)
//COPHB1Y DD DSN=&&DECHB1Y,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1Y,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1Y,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1Y
// DD DSN=&&FILHB1Y,
// DISP=(SHR,PASS)
//COPHB1Z DD DSN=&&DECHB1Z,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1Z,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB1Z,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1Z
// DD DSN=&&FILHB1Z,
// DISP=(SHR,PASS)
//COPHB10 DD DSN=&&DECHB10,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB10,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB10,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB10
// DD DSN=&&FILHB10,
// DISP=(SHR,PASS)
//COPHB11 DD DSN=&&DECHB11,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB11,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB11,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB11
// DD DSN=&&FILHB11,
// DISP=(SHR,PASS)
//COPHB12 DD DSN=&&DECHB12,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB12,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB12,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB12
// DD DSN=&&FILHB12,
// DISP=(SHR,PASS)
//COPHB13 DD DSN=&&DECHB13,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB13,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB13,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB13
// DD DSN=&&FILHB13,
// DISP=(SHR,PASS)
//COPHB14 DD DSN=&&DECHB14,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB14,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB14,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB14
// DD DSN=&&FILHB14,
// DISP=(SHR,PASS)
//COPHB15 DD DSN=&&DECHB15,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB15,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB15,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB15
// DD DSN=&&FILHB15,
// DISP=(SHR,PASS)
//COPHB16 DD DSN=&&DECHB16,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB16,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB16,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB16
// DD DSN=&&FILHB16,
// DISP=(SHR,PASS)
//COPHB17 DD DSN=&&DECHB17,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB17,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB17,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB17
// DD DSN=&&FILHB17,
// DISP=(SHR,PASS)
//COPHB18 DD DSN=&&DECHB18,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB18,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB18,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB18
// DD DSN=&&FILHB18,
// DISP=(SHR,PASS)
//COPHB19 DD DSN=&&DECHB19,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB19,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB19,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB19
// DD DSN=&&FILHB19,
// DISP=(SHR,PASS)
//COPHF1 DD DSN=&&DECHF1,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHF1,
// DISP=(SHR,PASS)
// DD DSN=&&DECHF1,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHF1
// DD DSN=&&FILHF1,
// DISP=(SHR,PASS)
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X081
//* %%IF N EQ J
//* %%ENDIF
//#TS#5B1 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1
//#TS#5B1A DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1A
//#TS#5B1B DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1B
//#TS#5B1C DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1C
//#TS#5B1D DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1D
//#TS#5B1E DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1E
//#TS#5B1F DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1F
//#TS#5B1G DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1G
//#TS#5B1H DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1H
//#TS#5B1I DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1I
//#TS#5B1J DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1J
//#TS#5B1K DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1K
//#TS#5B1L DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1L
//#TS#5B1M DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1M
//#TS#5B1N DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1N
//#TS#5B1O DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1O
//#TS#5B1P DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1P
//#TS#5B1Q DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1Q
//#TS#5B1R DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1R
//#TS#5B1S DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1S
//#TS#5B1T DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1T
//#TS#5B1U DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1U
//#TS#5B1V DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1V
//#TS#5B1W DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1W
//#TS#5B1X DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1X
//#TS#5B1Y DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1Y
//#TS#5B1Z DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1Z
//#TS#5B10 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B10
//#TS#5B11 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B11
//#TS#5B12 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B12
//#TS#5B13 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B13
//#TS#5B14 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B14
//#TS#5B15 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B15
//#TS#5B16 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B16
//#TS#5B17 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B17
//#TS#5B18 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B18
//#TS#5B19 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B19
//#TS#4B1 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1
//#TS#4B1A DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1A
//#TS#4B1B DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1B
//#TS#4B1C DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1C
//#TS#4B1D DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1D
//#TS#4B1E DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1E
//#TS#4B1F DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1F
//#TS#4B1G DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1G
//#TS#4B1H DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1H
//#TS#4B1I DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1I
//#TS#4B1J DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1J
//#TS#4B1K DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1K
//#TS#4B1L DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1L
//#TS#4B1M DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1M
//#TS#4B1N DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1N
//#TS#4B1O DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1O
//#TS#4B1P DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1P
//#TS#4B1Q DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1Q
//#TS#4B1R DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1R
//#TS#4B1S DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1S
//#TS#4B1T DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1T
//#TS#4B1U DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1U
//#TS#4B1V DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1V
//#TS#4B1W DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1W
//#TS#4B1X DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1X
//#TS#4B1Y DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1Y
//#TS#4B1Z DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1Z
//#TS#4B10 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B10
//#TS#4B11 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B11
//#TS#4B12 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B12
//#TS#4B13 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B13
//#TS#4B14 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B14
//#TS#4B15 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B15
//#TS#4B16 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B16
//#TS#4B17 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B17
//#TS#4B18 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B18
//#TS#4B19 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B19
//#TS#HB1 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1
//#TS#HB1A DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1A
//#TS#HB1B DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1B
//#TS#HB1C DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1C
//#TS#HB1D DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1D
//#TS#HB1E DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1E
//#TS#HB1F DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1F
//#TS#HB1G DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1G
//#TS#HB1H DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1H
//#TS#HB1I DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1I
//#TS#HB1J DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1J
//#TS#HB1K DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1K
//#TS#HB1L DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1L
//#TS#HB1M DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1M
//#TS#HB1N DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1N
//#TS#HB1O DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1O
//#TS#HB1P DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1P
//#TS#HB1Q DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1Q
//#TS#HB1R DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1R
//#TS#HB1S DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1S
//#TS#HB1T DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1T
//#TS#HB1U DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1U
//#TS#HB1V DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1V
//#TS#HB1W DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1W
//#TS#HB1X DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1X
//#TS#HB1Y DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1Y
//#TS#HB1Z DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1Z
//#TS#HB10 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB10
//#TS#HB11 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB11
//#TS#HB12 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB12
//#TS#HB13 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB13
//#TS#HB14 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB14
//#TS#HB15 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB15
//#TS#HB16 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB16
//#TS#HB17 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB17
//#TS#HB18 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB18
//#TS#HB19 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB19
//#TS#HF1 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HF1
// ENDIF
//*
//*-----------------------------------------------------
//*- COPY DECKBLATT & OUTPUT TO PRINTER (CHANNEL 2) -
//*-----------------------------------------------------
// IF (RC EQ 0) THEN
//COPY2### EXEC PGM=ICETOOL
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//TOOLIN DD *
//*
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X062
//OUT4X2 OUTPUT PRMODE=PAGE,
//* %%IF Y EQ Y
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//* %%ENDIF
// THRESHLD=1,
// FORMS=DUMM#A01,
// FORMDEF=DUMMY,
// PAGEDEF=DUMMY,
// DEST=ANYLOCAL
//OUT5X2 OUTPUT PRMODE=PAGE,
//* %%IF Y EQ Y
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//* %%ENDIF
// THRESHLD=1,
// FORMS=WECU#A01,
// FORMDEF=C#GH1,
// PAGEDEF=PVWGR1,
// DEST=ANYLOCAL
//OUTHX2 OUTPUT PRMODE=PAGE,
//* %%IF Y EQ Y
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//* %%ENDIF
// THRESHLD=1,
// FORMS=WECU#A01,
// FORMDEF=C#GH1,
// PAGEDEF=PVWGR1,
// DEST=ANYLOCAL
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X072
//* ATTENTION: VOL=REF= IS NEEDED BECAUSE THE SAME TEMPORARY DATASET
//* APPEARS TWICE UNDER THE SAME DDNAME
//COP4B2 DD DSN=&&DEC4B2,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2
// DD DSN=&&FIL4B2,
// DISP=(SHR,PASS)
//COP4B2A DD DSN=&&DEC4B2A,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2A,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2A,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2A
// DD DSN=&&FIL4B2A,
// DISP=(SHR,PASS)
//COP4B2B DD DSN=&&DEC4B2B,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2B,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2B,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2B
// DD DSN=&&FIL4B2B,
// DISP=(SHR,PASS)
//COP4B2C DD DSN=&&DEC4B2C,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2C,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2C,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2C
// DD DSN=&&FIL4B2C,
// DISP=(SHR,PASS)
//COP4B2D DD DSN=&&DEC4B2D,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2D,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2D,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2D
// DD DSN=&&FIL4B2D,
// DISP=(SHR,PASS)
//COP4B2E DD DSN=&&DEC4B2E,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2E,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2E,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2E
// DD DSN=&&FIL4B2E,
// DISP=(SHR,PASS)
//COP4B2F DD DSN=&&DEC4B2F,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2F,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2F,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2F
// DD DSN=&&FIL4B2F,
// DISP=(SHR,PASS)
//COP4B2G DD DSN=&&DEC4B2G,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2G,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2G,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2G
// DD DSN=&&FIL4B2G,
// DISP=(SHR,PASS)
//COP4B2H DD DSN=&&DEC4B2H,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2H,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2H,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2H
// DD DSN=&&FIL4B2H,
// DISP=(SHR,PASS)
//COP4B2I DD DSN=&&DEC4B2I,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2I,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2I,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2I
// DD DSN=&&FIL4B2I,
// DISP=(SHR,PASS)
//COP4B2J DD DSN=&&DEC4B2J,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2J,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2J,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2J
// DD DSN=&&FIL4B2J,
// DISP=(SHR,PASS)
//COP4B2K DD DSN=&&DEC4B2K,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2K,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2K,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2K
// DD DSN=&&FIL4B2K,
// DISP=(SHR,PASS)
//COP4B2L DD DSN=&&DEC4B2L,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2L,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2L,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2L
// DD DSN=&&FIL4B2L,
// DISP=(SHR,PASS)
//COP4B2M DD DSN=&&DEC4B2M,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2M,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2M,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2M
// DD DSN=&&FIL4B2M,
// DISP=(SHR,PASS)
//COP4B2N DD DSN=&&DEC4B2N,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2N,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2N,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2N
// DD DSN=&&FIL4B2N,
// DISP=(SHR,PASS)
//COP4B2O DD DSN=&&DEC4B2O,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2O,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2O,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2O
// DD DSN=&&FIL4B2O,
// DISP=(SHR,PASS)
//COP4B2P DD DSN=&&DEC4B2P,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2P,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2P,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2P
// DD DSN=&&FIL4B2P,
// DISP=(SHR,PASS)
//COP4B2Q DD DSN=&&DEC4B2Q,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2Q,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2Q,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2Q
// DD DSN=&&FIL4B2Q,
// DISP=(SHR,PASS)
//COP4B2R DD DSN=&&DEC4B2R,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2R,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2R,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2R
// DD DSN=&&FIL4B2R,
// DISP=(SHR,PASS)
//COP4B2S DD DSN=&&DEC4B2S,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2S,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2S,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2S
// DD DSN=&&FIL4B2S,
// DISP=(SHR,PASS)
//COP4B2T DD DSN=&&DEC4B2T,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2T,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2T,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2T
// DD DSN=&&FIL4B2T,
// DISP=(SHR,PASS)
//COP4B2U DD DSN=&&DEC4B2U,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2U,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2U,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2U
// DD DSN=&&FIL4B2U,
// DISP=(SHR,PASS)
//COP4B2V DD DSN=&&DEC4B2V,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2V,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2V,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2V
// DD DSN=&&FIL4B2V,
// DISP=(SHR,PASS)
//COP4B2W DD DSN=&&DEC4B2W,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2W,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2W,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2W
// DD DSN=&&FIL4B2W,
// DISP=(SHR,PASS)
//COP4B2X DD DSN=&&DEC4B2X,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2X,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2X,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2X
// DD DSN=&&FIL4B2X,
// DISP=(SHR,PASS)
//COP4B2Y DD DSN=&&DEC4B2Y,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2Y,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2Y,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2Y
// DD DSN=&&FIL4B2Y,
// DISP=(SHR,PASS)
//COP4B2Z DD DSN=&&DEC4B2Z,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2Z,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B2Z,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2Z
// DD DSN=&&FIL4B2Z,
// DISP=(SHR,PASS)
//COP4B20 DD DSN=&&DEC4B20,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B20,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B20,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B20
// DD DSN=&&FIL4B20,
// DISP=(SHR,PASS)
//COP4B21 DD DSN=&&DEC4B21,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B21,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B21,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B21
// DD DSN=&&FIL4B21,
// DISP=(SHR,PASS)
//COP4B22 DD DSN=&&DEC4B22,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B22,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B22,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B22
// DD DSN=&&FIL4B22,
// DISP=(SHR,PASS)
//COP4B23 DD DSN=&&DEC4B23,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B23,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B23,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B23
// DD DSN=&&FIL4B23,
// DISP=(SHR,PASS)
//COP4B24 DD DSN=&&DEC4B24,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B24,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B24,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B24
// DD DSN=&&FIL4B24,
// DISP=(SHR,PASS)
//COP4B25 DD DSN=&&DEC4B25,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B25,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B25,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B25
// DD DSN=&&FIL4B25,
// DISP=(SHR,PASS)
//COP4B26 DD DSN=&&DEC4B26,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B26,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B26,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B26
// DD DSN=&&FIL4B26,
// DISP=(SHR,PASS)
//COP4B27 DD DSN=&&DEC4B27,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B27,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B27,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B27
// DD DSN=&&FIL4B27,
// DISP=(SHR,PASS)
//COP4B28 DD DSN=&&DEC4B28,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B28,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B28,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B28
// DD DSN=&&FIL4B28,
// DISP=(SHR,PASS)
//COP4B29 DD DSN=&&DEC4B29,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B29,
// DISP=(SHR,PASS)
// DD DSN=&&DEC4B29,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B29
// DD DSN=&&FIL4B29,
// DISP=(SHR,PASS)
//COP5B2 DD DSN=&&DEC5B2,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2
// DD DSN=&&FIL5B2,
// DISP=(SHR,PASS)
//COP5B2A DD DSN=&&DEC5B2A,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2A,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2A,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2A
// DD DSN=&&FIL5B2A,
// DISP=(SHR,PASS)
//COP5B2B DD DSN=&&DEC5B2B,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2B,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2B,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2B
// DD DSN=&&FIL5B2B,
// DISP=(SHR,PASS)
//COP5B2C DD DSN=&&DEC5B2C,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2C,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2C,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2C
// DD DSN=&&FIL5B2C,
// DISP=(SHR,PASS)
//COP5B2D DD DSN=&&DEC5B2D,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2D,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2D,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2D
// DD DSN=&&FIL5B2D,
// DISP=(SHR,PASS)
//COP5B2E DD DSN=&&DEC5B2E,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2E,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2E,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2E
// DD DSN=&&FIL5B2E,
// DISP=(SHR,PASS)
//COP5B2F DD DSN=&&DEC5B2F,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2F,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2F,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2F
// DD DSN=&&FIL5B2F,
// DISP=(SHR,PASS)
//COP5B2G DD DSN=&&DEC5B2G,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2G,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2G,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2G
// DD DSN=&&FIL5B2G,
// DISP=(SHR,PASS)
//COP5B2H DD DSN=&&DEC5B2H,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2H,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2H,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2H
// DD DSN=&&FIL5B2H,
// DISP=(SHR,PASS)
//COP5B2I DD DSN=&&DEC5B2I,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2I,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2I,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2I
// DD DSN=&&FIL5B2I,
// DISP=(SHR,PASS)
//COP5B2J DD DSN=&&DEC5B2J,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2J,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2J,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2J
// DD DSN=&&FIL5B2J,
// DISP=(SHR,PASS)
//COP5B2K DD DSN=&&DEC5B2K,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2K,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2K,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2K
// DD DSN=&&FIL5B2K,
// DISP=(SHR,PASS)
//COP5B2L DD DSN=&&DEC5B2L,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2L,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2L,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2L
// DD DSN=&&FIL5B2L,
// DISP=(SHR,PASS)
//COP5B2M DD DSN=&&DEC5B2M,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2M,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2M,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2M
// DD DSN=&&FIL5B2M,
// DISP=(SHR,PASS)
//COP5B2N DD DSN=&&DEC5B2N,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2N,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2N,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2N
// DD DSN=&&FIL5B2N,
// DISP=(SHR,PASS)
//COP5B2O DD DSN=&&DEC5B2O,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2O,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2O,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2O
// DD DSN=&&FIL5B2O,
// DISP=(SHR,PASS)
//COP5B2P DD DSN=&&DEC5B2P,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2P,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2P,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2P
// DD DSN=&&FIL5B2P,
// DISP=(SHR,PASS)
//COP5B2Q DD DSN=&&DEC5B2Q,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2Q,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2Q,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2Q
// DD DSN=&&FIL5B2Q,
// DISP=(SHR,PASS)
//COP5B2R DD DSN=&&DEC5B2R,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2R,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2R,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2R
// DD DSN=&&FIL5B2R,
// DISP=(SHR,PASS)
//COP5B2S DD DSN=&&DEC5B2S,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2S,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2S,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2S
// DD DSN=&&FIL5B2S,
// DISP=(SHR,PASS)
//COP5B2T DD DSN=&&DEC5B2T,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2T,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2T,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2T
// DD DSN=&&FIL5B2T,
// DISP=(SHR,PASS)
//COP5B2U DD DSN=&&DEC5B2U,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2U,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2U,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2U
// DD DSN=&&FIL5B2U,
// DISP=(SHR,PASS)
//COP5B2V DD DSN=&&DEC5B2V,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2V,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2V,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2V
// DD DSN=&&FIL5B2V,
// DISP=(SHR,PASS)
//COP5B2W DD DSN=&&DEC5B2W,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2W,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2W,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2W
// DD DSN=&&FIL5B2W,
// DISP=(SHR,PASS)
//COP5B2X DD DSN=&&DEC5B2X,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2X,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2X,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2X
// DD DSN=&&FIL5B2X,
// DISP=(SHR,PASS)
//COP5B2Y DD DSN=&&DEC5B2Y,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2Y,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2Y,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2Y
// DD DSN=&&FIL5B2Y,
// DISP=(SHR,PASS)
//COP5B2Z DD DSN=&&DEC5B2Z,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2Z,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B2Z,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2Z
// DD DSN=&&FIL5B2Z,
// DISP=(SHR,PASS)
//COP5B20 DD DSN=&&DEC5B20,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B20,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B20,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B20
// DD DSN=&&FIL5B20,
// DISP=(SHR,PASS)
//COP5B21 DD DSN=&&DEC5B21,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B21,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B21,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B21
// DD DSN=&&FIL5B21,
// DISP=(SHR,PASS)
//COP5B22 DD DSN=&&DEC5B22,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B22,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B22,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B22
// DD DSN=&&FIL5B22,
// DISP=(SHR,PASS)
//COP5B23 DD DSN=&&DEC5B23,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B23,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B23,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B23
// DD DSN=&&FIL5B23,
// DISP=(SHR,PASS)
//COP5B24 DD DSN=&&DEC5B24,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B24,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B24,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B24
// DD DSN=&&FIL5B24,
// DISP=(SHR,PASS)
//COP5B25 DD DSN=&&DEC5B25,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B25,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B25,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B25
// DD DSN=&&FIL5B25,
// DISP=(SHR,PASS)
//COP5B26 DD DSN=&&DEC5B26,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B26,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B26,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B26
// DD DSN=&&FIL5B26,
// DISP=(SHR,PASS)
//COP5B27 DD DSN=&&DEC5B27,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B27,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B27,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B27
// DD DSN=&&FIL5B27,
// DISP=(SHR,PASS)
//COP5B28 DD DSN=&&DEC5B28,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B28,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B28,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B28
// DD DSN=&&FIL5B28,
// DISP=(SHR,PASS)
//COP5B29 DD DSN=&&DEC5B29,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B29,
// DISP=(SHR,PASS)
// DD DSN=&&DEC5B29,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B29
// DD DSN=&&FIL5B29,
// DISP=(SHR,PASS)
//COPHB2 DD DSN=&&DECHB2,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2
// DD DSN=&&FILHB2,
// DISP=(SHR,PASS)
//COPHB2A DD DSN=&&DECHB2A,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2A,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2A,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2A
// DD DSN=&&FILHB2A,
// DISP=(SHR,PASS)
//COPHB2B DD DSN=&&DECHB2B,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2B,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2B,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2B
// DD DSN=&&FILHB2B,
// DISP=(SHR,PASS)
//COPHB2C DD DSN=&&DECHB2C,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2C,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2C,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2C
// DD DSN=&&FILHB2C,
// DISP=(SHR,PASS)
//COPHB2D DD DSN=&&DECHB2D,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2D,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2D,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2D
// DD DSN=&&FILHB2D,
// DISP=(SHR,PASS)
//COPHB2E DD DSN=&&DECHB2E,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2E,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2E,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2E
// DD DSN=&&FILHB2E,
// DISP=(SHR,PASS)
//COPHB2F DD DSN=&&DECHB2F,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2F,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2F,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2F
// DD DSN=&&FILHB2F,
// DISP=(SHR,PASS)
//COPHB2G DD DSN=&&DECHB2G,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2G,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2G,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2G
// DD DSN=&&FILHB2G,
// DISP=(SHR,PASS)
//COPHB2H DD DSN=&&DECHB2H,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2H,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2H,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2H
// DD DSN=&&FILHB2H,
// DISP=(SHR,PASS)
//COPHB2I DD DSN=&&DECHB2I,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2I,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2I,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2I
// DD DSN=&&FILHB2I,
// DISP=(SHR,PASS)
//COPHB2J DD DSN=&&DECHB2J,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2J,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2J,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2J
// DD DSN=&&FILHB2J,
// DISP=(SHR,PASS)
//COPHB2K DD DSN=&&DECHB2K,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2K,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2K,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2K
// DD DSN=&&FILHB2K,
// DISP=(SHR,PASS)
//COPHB2L DD DSN=&&DECHB2L,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2L,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2L,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2L
// DD DSN=&&FILHB2L,
// DISP=(SHR,PASS)
//COPHB2M DD DSN=&&DECHB2M,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2M,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2M,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2M
// DD DSN=&&FILHB2M,
// DISP=(SHR,PASS)
//COPHB2N DD DSN=&&DECHB2N,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2N,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2N,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2N
// DD DSN=&&FILHB2N,
// DISP=(SHR,PASS)
//COPHB2O DD DSN=&&DECHB2O,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2O,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2O,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2O
// DD DSN=&&FILHB2O,
// DISP=(SHR,PASS)
//COPHB2P DD DSN=&&DECHB2P,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2P,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2P,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2P
// DD DSN=&&FILHB2P,
// DISP=(SHR,PASS)
//COPHB2Q DD DSN=&&DECHB2Q,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2Q,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2Q,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2Q
// DD DSN=&&FILHB2Q,
// DISP=(SHR,PASS)
//COPHB2R DD DSN=&&DECHB2R,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2R,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2R,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2R
// DD DSN=&&FILHB2R,
// DISP=(SHR,PASS)
//COPHB2S DD DSN=&&DECHB2S,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2S,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2S,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2S
// DD DSN=&&FILHB2S,
// DISP=(SHR,PASS)
//COPHB2T DD DSN=&&DECHB2T,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2T,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2T,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2T
// DD DSN=&&FILHB2T,
// DISP=(SHR,PASS)
//COPHB2U DD DSN=&&DECHB2U,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2U,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2U,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2U
// DD DSN=&&FILHB2U,
// DISP=(SHR,PASS)
//COPHB2V DD DSN=&&DECHB2V,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2V,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2V,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2V
// DD DSN=&&FILHB2V,
// DISP=(SHR,PASS)
//COPHB2W DD DSN=&&DECHB2W,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2W,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2W,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2W
// DD DSN=&&FILHB2W,
// DISP=(SHR,PASS)
//COPHB2X DD DSN=&&DECHB2X,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2X,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2X,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2X
// DD DSN=&&FILHB2X,
// DISP=(SHR,PASS)
//COPHB2Y DD DSN=&&DECHB2Y,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2Y,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2Y,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2Y
// DD DSN=&&FILHB2Y,
// DISP=(SHR,PASS)
//COPHB2Z DD DSN=&&DECHB2Z,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2Z,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB2Z,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2Z
// DD DSN=&&FILHB2Z,
// DISP=(SHR,PASS)
//COPHB20 DD DSN=&&DECHB20,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB20,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB20,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB20
// DD DSN=&&FILHB20,
// DISP=(SHR,PASS)
//COPHB21 DD DSN=&&DECHB21,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB21,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB21,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB21
// DD DSN=&&FILHB21,
// DISP=(SHR,PASS)
//COPHB22 DD DSN=&&DECHB22,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB22,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB22,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB22
// DD DSN=&&FILHB22,
// DISP=(SHR,PASS)
//COPHB23 DD DSN=&&DECHB23,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB23,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB23,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB23
// DD DSN=&&FILHB23,
// DISP=(SHR,PASS)
//COPHB24 DD DSN=&&DECHB24,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB24,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB24,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB24
// DD DSN=&&FILHB24,
// DISP=(SHR,PASS)
//COPHB25 DD DSN=&&DECHB25,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB25,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB25,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB25
// DD DSN=&&FILHB25,
// DISP=(SHR,PASS)
//COPHB26 DD DSN=&&DECHB26,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB26,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB26,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB26
// DD DSN=&&FILHB26,
// DISP=(SHR,PASS)
//COPHB27 DD DSN=&&DECHB27,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB27,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB27,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB27
// DD DSN=&&FILHB27,
// DISP=(SHR,PASS)
//COPHB28 DD DSN=&&DECHB28,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB28,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB28,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB28
// DD DSN=&&FILHB28,
// DISP=(SHR,PASS)
//COPHB29 DD DSN=&&DECHB29,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB29,
// DISP=(SHR,PASS)
// DD DSN=&&DECHB29,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB29
// DD DSN=&&FILHB29,
// DISP=(SHR,PASS)
//COPHF2 DD DSN=&&DECHF2,
// DISP=(SHR,PASS)
// DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHF2,
// DISP=(SHR,PASS)
// DD DSN=&&DECHF2,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHF2
// DD DSN=&&FILHF2,
// DISP=(SHR,PASS)
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X082
//* %%IF N EQ J
//* %%ENDIF
//#TS#5B2 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2
//#TS#5B2A DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2A
//#TS#5B2B DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2B
//#TS#5B2C DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2C
//#TS#5B2D DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2D
//#TS#5B2E DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2E
//#TS#5B2F DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2F
//#TS#5B2G DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2G
//#TS#5B2H DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2H
//#TS#5B2I DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2I
//#TS#5B2J DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2J
//#TS#5B2K DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2K
//#TS#5B2L DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2L
//#TS#5B2M DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2M
//#TS#5B2N DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2N
//#TS#5B2O DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2O
//#TS#5B2P DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2P
//#TS#5B2Q DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2Q
//#TS#5B2R DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2R
//#TS#5B2S DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2S
//#TS#5B2T DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2T
//#TS#5B2U DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2U
//#TS#5B2V DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2V
//#TS#5B2W DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2W
//#TS#5B2X DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2X
//#TS#5B2Y DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2Y
//#TS#5B2Z DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2Z
//#TS#5B20 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B20
//#TS#5B21 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B21
//#TS#5B22 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B22
//#TS#5B23 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B23
//#TS#5B24 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B24
//#TS#5B25 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B25
//#TS#5B26 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B26
//#TS#5B27 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B27
//#TS#5B28 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B28
//#TS#5B29 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B29
//#TS#4B2 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2
//#TS#4B2A DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2A
//#TS#4B2B DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2B
//#TS#4B2C DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2C
//#TS#4B2D DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2D
//#TS#4B2E DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2E
//#TS#4B2F DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2F
//#TS#4B2G DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2G
//#TS#4B2H DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2H
//#TS#4B2I DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2I
//#TS#4B2J DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2J
//#TS#4B2K DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2K
//#TS#4B2L DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2L
//#TS#4B2M DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2M
//#TS#4B2N DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2N
//#TS#4B2O DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2O
//#TS#4B2P DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2P
//#TS#4B2Q DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2Q
//#TS#4B2R DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2R
//#TS#4B2S DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2S
//#TS#4B2T DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2T
//#TS#4B2U DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2U
//#TS#4B2V DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2V
//#TS#4B2W DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2W
//#TS#4B2X DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2X
//#TS#4B2Y DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2Y
//#TS#4B2Z DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2Z
//#TS#4B20 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B20
//#TS#4B21 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B21
//#TS#4B22 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B22
//#TS#4B23 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B23
//#TS#4B24 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B24
//#TS#4B25 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B25
//#TS#4B26 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B26
//#TS#4B27 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B27
//#TS#4B28 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B28
//#TS#4B29 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B29
//#TS#HB2 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2
//#TS#HB2A DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2A
//#TS#HB2B DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2B
//#TS#HB2C DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2C
//#TS#HB2D DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2D
//#TS#HB2E DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2E
//#TS#HB2F DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2F
//#TS#HB2G DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2G
//#TS#HB2H DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2H
//#TS#HB2I DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2I
//#TS#HB2J DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2J
//#TS#HB2K DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2K
//#TS#HB2L DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2L
//#TS#HB2M DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2M
//#TS#HB2N DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2N
//#TS#HB2O DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2O
//#TS#HB2P DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2P
//#TS#HB2Q DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2Q
//#TS#HB2R DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2R
//#TS#HB2S DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2S
//#TS#HB2T DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2T
//#TS#HB2U DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2U
//#TS#HB2V DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2V
//#TS#HB2W DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2W
//#TS#HB2X DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2X
//#TS#HB2Y DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2Y
//#TS#HB2Z DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2Z
//#TS#HB20 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB20
//#TS#HB21 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB21
//#TS#HB22 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB22
//#TS#HB23 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB23
//#TS#HB24 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB24
//#TS#HB25 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB25
//#TS#HB26 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB26
//#TS#HB27 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB27
//#TS#HB28 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB28
//#TS#HB29 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB29
//#TS#HF2 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HF2
// ENDIF
//*
//*-----------------------------------------------------
//*- DELETE UNUSED OUTPUT-FILES IF OUTPUT IS NOT SPOOL -
//*-----------------------------------------------------
//*
//
1 //PVS5861T JOB (OS09,KE10,,SE00000000),
// REGION=99364K,MSGCLASS=R,
// MSGLEVEL=(1,1)
//*---- SUBMITTED BY CONTROL-M (FROM MEMLIB) ODATE=051003
//*---- SCHEDULE PVSO.RZ1.T0.TS0S5861.D05276.T163307.SCHEO(SCH#N01X)
//*---- JCL PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV(PVS5861T)
//*---- CONTROL-M JOB IDENTIFICATION: ORDER ID=08RO6 RUN NO.=00002
//*
//********************************************************************
//** *
//** VERANTWORTLICH: PVS-TEAM *
//** =============== BEI PROBLEMEN: SIEHE CTM DOC-MEMBER *
//** *
//********************************************************************
//** *
//** ORIGINAL MEMBERNAME : JCL#X30X *
//** *
//** PVS/POSY: POSY OUTPUT-AUFBEREITUNG *
//** *
//********************************************************************
//*
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM VAR#X1TX
//* ==================================================================
//* == =
//* == MEMBERNAME : VAR#X1TX -> 1 -> RZ1 / T -> TEST =
//* == == = = =
//* == =
//* == PVS - POSY CTL/M GLOBAL VARI MEMBER =
//* ==================================================================
//*
//* %%SET %%ACCOUNT1=OS09
//* %%SET %%ACCOUNT2=KE10
//* %%SET %%ACCOUNT4=SE00000000
//*
//* %%SET %%JOBCLASS_1=PVS
//* %%SET %%JOBCLASS_2=A
//*
//* %%SET %%DO_ACIF=Y
//*
//* %%SET %%STAPLST1_PAGEDEF=PV0500
//* %%SET %%STAPLST2_PAGEDEF=PV0500
//* %%SET %%STAPLST1_FORMDEF=PV0500
//* %%SET %%STAPLST2_FORMDEF=PV0500
//* %%SET %%STAPLST1_FORMS=3820
//* %%SET %%STAPLST2_FORMS=3820
//* %%SET %%STAPLST1_SYSOUT_CLASS=*
//* %%SET %%STAPLST2_SYSOUT_CLASS=N
//* %%SET %%STAPLST1_DEST=B643
//* %%SET %%STAPLST2_DEST=ANYLOCAL
//*
//* %%SET %%SPACE_EIN=(CYL,(100,300),RLSE)
//* %%SET %%SPACE_AUS=(CYL,(10,75),RLSE)
//* %%SET %%SPACE_STAT=(CYL,(10,10),RLSE)
//* %%SET %%SPACE_SORT=(CYL,(100,100))
//* %%SET %%SPACE_SMALL=(TRK,(15,15),RLSE)
//*
//* %%SET %%DATA_LARGE=NULL30
//* %%SET %%MGMT_LONG=D035Y000
//* %%SET %%MGMT_SHRT=D008Y000
//* %%SET %%MGMT_ARCH=D035Y000
//* %%SET %%MGMT_RET_ARCH=D005Y000
//*
//* %%SET %%SUBSYS=DBAF
//* %%SET %%PLAN=PVPOSY
//*
//* %%SET %%POSYLOAD=POSY.RZ1.T0.AKT.LOADLIB
//* %%SET %%PVSLOAD=PVS.PVSLODV2
//* %%SET %%PVSLOG=PVS.PVTLOG
//* %%SET %%LELOAD=CEE.SCEERUN
//* %%SET %%CMAN_LLB=PCL.U0000.P0.RZ1AKT.PERM.@008.LLB
//* %%SET %%CMAN_LLG=PCL.U0000.P0.RZ1AKT.PERM.@008.LLG
//*
//* ==================================================================
//* == ENDE VARI-MEMBER VAR#X1TX =
//* ==================================================================
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM VAR#X00X
//* ==================================================================
//* == =
//* == MEMBERNAME : VAR#X00X =
//* == =
//* == =
//* == PVS - POSY CTL/M GLOBAL VARI MEMBER (ALLE JOBS) =
//* ==================================================================
//*
//* ------------------------------------------------------------------
//* -- ERMITTELN PVSO-PREFIXES FUER SEC.-KENNZEICHEN A/B/C/D -
//* -- JE NACH NORMALLAUF/NACHDRUCK/ATI -
//* -- (S. DAZU DOKUMENT NAK & SECURITY) -
//* ------------------------------------------------------------------
//*
//* %%SET %%PVSOPREF_A=PVSO.RZ1.T0.TS0S5861.D05276.T163307
//* %%SET %%PVSOPREF_B=PVSO.RZ1.T0.TS3S5861.D05276.T163307
//* %%SET %%PVSOPREF_C=PVSO.RZ1.T0.TS3S5861.D05276.T163307
//* %%SET %%PVSOPREF_D=PVSO.RZ1.T0.TS4S5861.D05276.T163307
//* %%SET %%PVSOPREF_E=PVSO.RZ1.T0.TS4S5861.D05276.T163307
//*
//* %%IF N EQ D
//* %%ENDIF
//*
//* %%IF J EQ A
//* %%ENDIF
//*
//* ------------------------------------------------------------------
//* -- ERMITTELN WGR-VERARBEITUNGEN -
//* ------------------------------------------------------------------
//* %%SET %%WGR_PROCESSING=N
//* %%IF MAND_0034 EQ MAND_0034
//* %%SET %%WGR_PROCESSING=Y
//* %%ENDIF
//*
//* ==================================================================
//* == ENDE VARI-MEMBER VAR#X00X =
//* ==================================================================
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM VAR#X01X
//* ==================================================================
//* == =
//* == MEMBERNAME : VAR#X01X =
//* == =
//* == =
//* == PVS - POSY CTL/M GLOBAL VARI MEMBER (JOB PVS../PV@..) =
//* ==================================================================
//*
//* ------------------------------------------------------------------
//* -- ERMITTELN SPOOL/NON-SPOOL PRO KANAL AUFGRUND VON: -
//* -- - AUS_HXN_OUTPUTMED (S=SPOOL) -
//* -- - BCP AUF JOB-EBENE (J=NON-SPOOL) -
//* -- - RET_ARCHIVE AUF JOB-EBENE (J=SPOOL) -
//* ------------------------------------------------------------------
//* %%SET %%SPOOL_K1 = J
//* %%IF S NE S
//* %%ENDIF
//* %%IF N EQ J
//* %%ENDIF
//* %%IF N EQ J
//* %%ENDIF
//*
//* %%SET %%SPOOL_K2 = J
//* %%IF S NE S
//* %%ENDIF
//* %%IF N EQ J
//* %%ENDIF
//* %%IF N EQ J
//* %%ENDIF
//*
//* ==================================================================
//* == ENDE VARI-MEMBER VAR#X01X =
//* ==================================================================
//*
//*MAIN CLASS=A
//*
//* -------------------------------------------
//* - NAMEN DER ZU VERWENDENDEN LOAD-LIBRARYS -
//* -------------------------------------------
//*JOBFROM S100006 *ACF1773 CARD SUPPLIED BY SUBMITTING PROGRAM
2 //JOBLIB DD DSN=PVS.PVSLODV2,
// DISP=SHR
3 // DD DSN=POSY.RZ1.T0.AKT.LOADLIB,
// DISP=SHR
4 // DD DSN=CEE.SCEERUN,
// DISP=SHR
5 // DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLB,
// DISP=SHR
6 // DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLG,
// DISP=SHR
//*
//*----------------------------------------------------
//*- SCRATCH FILES AND LIBRARYS AUS?X?? FOR CHANNEL 1 -
//*----------------------------------------------------
7 // IF (RC EQ 0) THEN
8 //RESTART EXEC PROC=CRT0PROC,
// PARM=('RR,PVS5861T,08RO6,RL,.$FIRST,.',
// 'DDD,00')
9 XXCTRTROLR PROC ARCHF=NULLFILE,
XX PRM=,
XX REG='0M', MJE/0211
XX STEPLIB='IOA.U0000.T0.RZ1I.LOAD', MJE/0211
XX CTRANS='IOA.U0000.T0.RZ1I.CTRANS', MJE/0211
XX ILPREFA='IOA.U0000.T0.RZ1I', MJE/0211
XX OLPREFR='CTR.U0000.T0.RZ1O', MJE/0211
XX OUT='*', MJE/0211
XX OUTDUMP='*', MJE/0211
XX DAALOCIN='IOA.U0000.T0.RZ1I.IOAENV' MJE/0211
XX********************************************************************
XX*** THE CONTROL-R STEP R600
XX*** ------------------
XX***
XX*** THIS STEP PERFORMS THE MAIN RESTART TASKS:
XX*** - RESTART STEP ADJUSTMENT
XX*** - FILE, CATALOGE AND GDG ADJUSTMENT
XX*** - CONDITION CODE RECAPTURE
XX***
XX********************************************************************
XX*===================================================================
10 XXCONTROLR EXEC PGM=CTRCTR,PARM='&PRM',REGION=®
XX*===================================================================
IEFC653I SUBSTITUTION JCL - PGM=CTRCTR,PARM='',REGION=0M
11 XXSTEPLIB DD DISP=SHR,DSN=&STEPLIB MJE/02113
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=IOA.U0000.T0.RZ1I.LOAD
12 XX DD DISP=SHR,DSN=&CTRANS MJE/02113
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=IOA.U0000.T0.RZ1I.CTRANS
13 XXDAPARM DD DISP=SHR,DSN=&ILPREFA..PARM MJE/02113
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=IOA.U0000.T0.RZ1I.PARM
14 XX DD DISP=SHR,DSN=&ILPREFA..IOAENV MJE/02113
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=IOA.U0000.T0.RZ1I.IOAENV
15 //DAARCH DD *,DCB=(LRECL=132)
X/DAARCH DD DISP=SHR,DSN=&ARCHF
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=NULLFILE
16 XXDACTRCTL DD DISP=SHR,DSN=&OLPREFR..PARM
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=CTR.U0000.T0.RZ1O.PARM
17 XXSYSPRINT DD SYSOUT=&OUT
IEFC653I SUBSTITUTION JCL - SYSOUT=*
18 XXCDAMSNAP DD SYSOUT=&OUTDUMP
IEFC653I SUBSTITUTION JCL - SYSOUT=*
19 XXCTRDMP DD DUMMY
20 XXSYSABEND DD SYSOUT=&OUTDUMP
IEFC653I SUBSTITUTION JCL - SYSOUT=*
21 XXDALIST DD SYSOUT=&OUT
IEFC653I SUBSTITUTION JCL - SYSOUT=*
22 XXDADUMP DD DUMMY
23 XXDATRACE DD DUMMY
24 XXDAALOCIN DD DISP=SHR,DSN=&DAALOCIN(ALCCTRM)
XX*===================================================================
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=IOA.U0000.T0.RZ1I.IOAENV(ALCC
25 //SCRATCH1 EXEC PGM=IDCAMS
//*
26 //SYSPRINT DD SYSOUT=*
27 //CEEDUMP DD SYSOUT=*
28 //SYSABEND DD SYSOUT=*
//*
29 //SYSIN DD *
//*
30 // ENDIF
//*----------------------------------------------------
//*- SCRATCH FILES AND LIBRARYS AUS?X?? FOR CHANNEL 2 -
//*----------------------------------------------------
31 // IF (RC EQ 0) THEN
32 //SCRATCH2 EXEC PGM=IDCAMS
//*
33 //SYSPRINT DD SYSOUT=*
34 //CEEDUMP DD SYSOUT=*
35 //SYSABEND DD SYSOUT=*
//*
36 //SYSIN DD *
37 // ENDIF
//*
//*----------------------------------------------------
//*- SCRATCH ALL OTHER POSY-OUTPUT-FILES -
//*----------------------------------------------------
38 // IF (RC EQ 0) THEN
39 //SCRATCH4 EXEC PGM=IDCAMS
//*
40 //SYSPRINT DD SYSOUT=*
41 //CEEDUMP DD SYSOUT=*
42 //SYSABEND DD SYSOUT=*
//*
43 //SYSIN DD *
44 // ENDIF
//*
//*----------------------------------------------------
//*- CLEANUP -
//*----------------------------------------------------
45 // IF (RC EQ 0) THEN
46 //CLEANUP# EXEC PGM=PV6200,
// PARM='/DBAF,PVPOSY'
//*
47 //SYSPRINT DD SYSOUT=*
48 //CEEDUMP DD SYSOUT=*
49 //SYSABEND DD SYSOUT=*
//*
50 //KARTE DD DSN=PVSO.RZ1.T0.TS0S5861.D05276.T163307.KARTE,
// DISP=SHR
51 //DDPARM DD DSN=PVSO.RZ1.T0.TS0S5861.D05276.T163307.PARM,
// DISP=SHR
52 //DDMSG DD SYSOUT=*
53 // ENDIF
//*
//*----------------------------------------------------
//*- POSY -
//*----------------------------------------------------
54 // IF (RC EQ 0) THEN
55 //POSY#### EXEC PGM=A1PO001
//*
56 //SYSPRINT DD SYSOUT=*
57 //CEEDUMP DD SYSOUT=*
58 //SYSABEND DD SYSOUT=*
//*
59 //DDPARM DD DSN=PVSO.RZ1.T0.TS0S5861.D05276.T163307.PARM,
// DISP=SHR
//*
60 //KARTE DD DSN=PVSO.RZ1.T0.TS0S5861.D05276.T163307.KARTE,
// DISP=SHR
61 //POSYDAT DD DSN=PVSO.RZ1.T0.@@0.AKT.POSYDAT,
// DISP=SHR
//*
62 //EINDAT1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// DISP=SHR
63 //FORMDEF1 DD DSN=WGR.U0034.T0.AKT.AFPLIB(F1C#CH2),
// DISP=SHR
64 //PAGEDEF1 DD DSN=WGR.U0034.T0.AKT.AFPLIB(P1PVWGR2),
// DISP=SHR
65 //EINDAT2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// DISP=SHR
66 //FORMDEF2 DD DSN=WGR.U0034.T0.AKT.AFPLIB(F1C#GH1),
// DISP=SHR
67 //PAGEDEF2 DD DSN=WGR.U0034.T0.AKT.AFPLIB(P1PVWGR1),
// DISP=SHR
//*
68 //DECKDAT DD DSN=POSY.RZ1.T0.AKT.DECKDAT(DBALL),
// DISP=SHR
//*
69 //ATMEIN DD DSN=NULLFILE,
// DISP=SHR
//*
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X011
70 //AUS0X1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS0X1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
71 //AUS1X1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS1X1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
72 //AUS2X1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS2X1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
73 //AUS3X1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS3X1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
74 //AUSHF1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHF1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
75 //AUS4B1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
76 //AUS4B1A DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1A,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
77 //AUS4B1B DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1B,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
78 //AUS4B1C DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1C,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
79 //AUS4B1D DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1D,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
80 //AUS4B1E DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1E,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
81 //AUS4B1F DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1F,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
82 //AUS4B1G DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1G,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
83 //AUS4B1H DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1H,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
84 //AUS4B1I DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1I,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
85 //AUS4B1J DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1J,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
86 //AUS4B1K DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1K,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
87 //AUS4B1L DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1L,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
88 //AUS4B1M DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1M,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
89 //AUS4B1N DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1N,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
90 //AUS4B1O DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1O,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
91 //AUS4B1P DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1P,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
92 //AUS4B1Q DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1Q,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
93 //AUS4B1R DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1R,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
94 //AUS4B1S DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1S,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
95 //AUS4B1T DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1T,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
96 //AUS4B1U DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1U,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
97 //AUS4B1V DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1V,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
98 //AUS4B1W DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1W,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
99 //AUS4B1X DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
100 //AUS4B1Y DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1Y,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
101 //AUS4B1Z DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1Z,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
102 //AUS4B10 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B10,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
103 //AUS4B11 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B11,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
104 //AUS4B12 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B12,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
105 //AUS4B13 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B13,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
106 //AUS4B14 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B14,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
107 //AUS4B15 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B15,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
108 //AUS4B16 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B16,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
109 //AUS4B17 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B17,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
110 //AUS4B18 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B18,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
111 //AUS4B19 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B19,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
112 //AUS5B1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
113 //AUS5B1A DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1A,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
114 //AUS5B1B DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1B,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
115 //AUS5B1C DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1C,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
116 //AUS5B1D DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1D,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
117 //AUS5B1E DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1E,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
118 //AUS5B1F DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1F,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
119 //AUS5B1G DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1G,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
120 //AUS5B1H DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1H,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
121 //AUS5B1I DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1I,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
122 //AUS5B1J DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1J,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
123 //AUS5B1K DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1K,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
124 //AUS5B1L DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1L,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
125 //AUS5B1M DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1M,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
126 //AUS5B1N DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1N,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
127 //AUS5B1O DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1O,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
128 //AUS5B1P DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1P,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
129 //AUS5B1Q DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1Q,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
130 //AUS5B1R DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1R,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
131 //AUS5B1S DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1S,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
132 //AUS5B1T DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1T,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
133 //AUS5B1U DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1U,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
134 //AUS5B1V DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1V,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
135 //AUS5B1W DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1W,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
136 //AUS5B1X DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
137 //AUS5B1Y DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1Y,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
138 //AUS5B1Z DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1Z,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
139 //AUS5B10 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B10,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
140 //AUS5B11 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B11,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
141 //AUS5B12 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B12,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
142 //AUS5B13 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B13,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
143 //AUS5B14 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B14,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
144 //AUS5B15 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B15,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
145 //AUS5B16 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B16,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
146 //AUS5B17 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B17,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
147 //AUS5B18 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B18,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
148 //AUS5B19 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B19,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
149 //AUSHB1 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
150 //AUSHB1A DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1A,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
151 //AUSHB1B DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1B,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
152 //AUSHB1C DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1C,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
153 //AUSHB1D DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1D,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
154 //AUSHB1E DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1E,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
155 //AUSHB1F DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1F,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
156 //AUSHB1G DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1G,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
157 //AUSHB1H DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1H,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
158 //AUSHB1I DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1I,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
159 //AUSHB1J DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1J,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
160 //AUSHB1K DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1K,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
161 //AUSHB1L DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1L,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
162 //AUSHB1M DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1M,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
163 //AUSHB1N DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1N,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
164 //AUSHB1O DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1O,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
165 //AUSHB1P DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1P,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
166 //AUSHB1Q DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1Q,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
167 //AUSHB1R DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1R,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
168 //AUSHB1S DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1S,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
169 //AUSHB1T DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1T,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
170 //AUSHB1U DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1U,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
171 //AUSHB1V DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1V,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
172 //AUSHB1W DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1W,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
173 //AUSHB1X DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
174 //AUSHB1Y DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1Y,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
175 //AUSHB1Z DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1Z,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
176 //AUSHB10 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB10,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
177 //AUSHB11 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB11,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
178 //AUSHB12 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB12,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
179 //AUSHB13 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB13,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
180 //AUSHB14 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB14,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
181 //AUSHB15 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB15,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
182 //AUSHB16 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB16,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
183 //AUSHB17 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB17,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
184 //AUSHB18 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB18,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
185 //AUSHB19 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB19,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(CYL,(10,75),RLSE)
//*
//*
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X012
186 //AUS0X2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS0X2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
187 //AUS1X2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS1X2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
188 //AUS2X2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS2X2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
189 //AUS3X2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS3X2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
190 //AUSHF2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHF2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
191 //AUS4B2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
192 //AUS4B2A DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2A,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
193 //AUS4B2B DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2B,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
194 //AUS4B2C DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2C,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
195 //AUS4B2D DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2D,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
196 //AUS4B2E DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2E,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
197 //AUS4B2F DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2F,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
198 //AUS4B2G DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2G,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
199 //AUS4B2H DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2H,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
200 //AUS4B2I DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2I,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
201 //AUS4B2J DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2J,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
202 //AUS4B2K DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2K,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
203 //AUS4B2L DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2L,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
204 //AUS4B2M DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2M,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
205 //AUS4B2N DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2N,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
206 //AUS4B2O DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2O,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
207 //AUS4B2P DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2P,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
208 //AUS4B2Q DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2Q,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
209 //AUS4B2R DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2R,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
210 //AUS4B2S DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2S,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
211 //AUS4B2T DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2T,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
212 //AUS4B2U DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2U,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
213 //AUS4B2V DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2V,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
214 //AUS4B2W DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2W,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
215 //AUS4B2X DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
216 //AUS4B2Y DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2Y,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
217 //AUS4B2Z DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2Z,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
218 //AUS4B20 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B20,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
219 //AUS4B21 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B21,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
220 //AUS4B22 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B22,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
221 //AUS4B23 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B23,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
222 //AUS4B24 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B24,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
223 //AUS4B25 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B25,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
224 //AUS4B26 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B26,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
225 //AUS4B27 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B27,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
226 //AUS4B28 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B28,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
227 //AUS4B29 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B29,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
228 //AUS5B2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
229 //AUS5B2A DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2A,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
230 //AUS5B2B DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2B,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
231 //AUS5B2C DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2C,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
232 //AUS5B2D DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2D,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
233 //AUS5B2E DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2E,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
234 //AUS5B2F DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2F,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
235 //AUS5B2G DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2G,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
236 //AUS5B2H DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2H,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
237 //AUS5B2I DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2I,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
238 //AUS5B2J DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2J,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
239 //AUS5B2K DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2K,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
240 //AUS5B2L DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2L,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
241 //AUS5B2M DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2M,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
242 //AUS5B2N DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2N,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
243 //AUS5B2O DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2O,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
244 //AUS5B2P DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2P,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
245 //AUS5B2Q DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2Q,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
246 //AUS5B2R DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2R,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
247 //AUS5B2S DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2S,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
248 //AUS5B2T DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2T,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
249 //AUS5B2U DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2U,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
250 //AUS5B2V DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2V,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
251 //AUS5B2W DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2W,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
252 //AUS5B2X DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
253 //AUS5B2Y DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2Y,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
254 //AUS5B2Z DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2Z,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
255 //AUS5B20 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B20,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
256 //AUS5B21 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B21,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
257 //AUS5B22 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B22,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
258 //AUS5B23 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B23,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
259 //AUS5B24 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B24,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
260 //AUS5B25 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B25,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
261 //AUS5B26 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B26,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
262 //AUS5B27 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B27,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
263 //AUS5B28 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B28,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
264 //AUS5B29 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B29,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
265 //AUSHB2 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
266 //AUSHB2A DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2A,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
267 //AUSHB2B DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2B,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
268 //AUSHB2C DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2C,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
269 //AUSHB2D DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2D,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
270 //AUSHB2E DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2E,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
271 //AUSHB2F DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2F,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
272 //AUSHB2G DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2G,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
273 //AUSHB2H DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2H,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
274 //AUSHB2I DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2I,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
275 //AUSHB2J DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2J,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
276 //AUSHB2K DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2K,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
277 //AUSHB2L DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2L,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
278 //AUSHB2M DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2M,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
279 //AUSHB2N DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2N,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
280 //AUSHB2O DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2O,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
281 //AUSHB2P DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2P,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
282 //AUSHB2Q DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2Q,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
283 //AUSHB2R DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2R,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
284 //AUSHB2S DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2S,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
285 //AUSHB2T DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2T,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
286 //AUSHB2U DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2U,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
287 //AUSHB2V DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2V,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
288 //AUSHB2W DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2W,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
289 //AUSHB2X DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2X,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
290 //AUSHB2Y DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2Y,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
291 //AUSHB2Z DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2Z,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
292 //AUSHB20 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB20,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
293 //AUSHB21 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB21,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
294 //AUSHB22 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB22,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
295 //AUSHB23 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB23,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
296 //AUSHB24 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB24,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
297 //AUSHB25 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB25,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
298 //AUSHB26 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB26,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
299 //AUSHB27 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB27,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
300 //AUSHB28 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB28,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
301 //AUSHB29 DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB29,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DATACLAS=NULL30,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(CYL,(10,75),RLSE)
//*
302 //ATMAUS DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.ATMAUS,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E035,
// DCB=(RECFM=VB,LRECL=500),
// SPACE=(CYL,(10,10),RLSE)
//*
303 //AUSFIBU DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.AUSFIBU,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E035,
// DCB=(RECFM=VB,LRECL=500),
// SPACE=(CYL,(10,10),RLSE)
//*
304 //LISTE DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.LISTE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E035,
// DCB=(RECFM=FBA,LRECL=121),
// SPACE=(CYL,(10,10),RLSE)
305 //DDBUSTA DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.BUND,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DCB=(RECFM=VB,LRECL=32756),
// SPACE=(CYL,(10,10),RLSE)
306 //DDTRACK DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.TRACK,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E035,
// DCB=(RECFM=VB,LRECL=32756),
// SPACE=(CYL,(10,10),RLSE)
//*
307 //ZWIDAT DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.ZWIDAT,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E035,
// DATACLAS=NULL30,
// DCB=(RECFM=VB,LRECL=10000),
// SPACE=(CYL,(10,10),RLSE)
//*
308 //SYSOUT DD SYSOUT=*
309 //SYSABOUT DD SYSOUT=*
//* EXIT-TRACES
310 //EXITTRC DD *
//* INPUT-EXIT
311 //DDMSGI1 DD SYSOUT=*
312 //DDMSGI2 DD SYSOUT=*
313 //DDTRCI1 DD SYSOUT=*
314 //DDTRCI2 DD SYSOUT=*
315 //DDTRCI51 DD SYSOUT=*
316 //DDTRCO51 DD SYSOUT=*
317 //DDTRCI52 DD SYSOUT=*
318 //DDTRCO52 DD SYSOUT=*
//* OUTPUT-EXIT
319 //TZSPEC DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(TZSPEC),
// DISP=SHR
320 //DBSPEC DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(DBSPEC),
// DISP=SHR
321 //DDBEIL DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(PVBEILAG)
// DISP=SHR
322 //VSTAB DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(VSTAB),
// DISP=SHR
323 //DDMSGO1 DD SYSOUT=*
324 //DDMSGO2 DD SYSOUT=*
325 //DDTRCO1 DD SYSOUT=*
326 //DDTRCO2 DD SYSOUT=*
327 //DDTRCI61 DD SYSOUT=*
328 //DDTRCO61 DD SYSOUT=*
329 //DDTRCI62 DD SYSOUT=*
330 //DDTRCO62 DD SYSOUT=*
//*
331 //IGZSRTCD DD *
332 //SORTMSG DD SYSOUT=*
//*
333 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
334 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
335 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
336 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
337 //SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
338 //SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
339 //SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
340 //SORTWK08 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
341 //SORTWK09 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
342 //SORTWK10 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
343 //SORTWK11 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
344 //SORTWK12 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
345 //SORTWK13 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
346 //SORTWK14 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
347 //SORTWK15 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
348 //SORTWK16 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
349 //SORTWK17 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
350 //SORTWK18 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
351 //SORTWK19 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
352 //SORTWK20 DD UNIT=SYSDA,SPACE=(CYL,(100,100))
353 // ENDIF
//*-----------------------------------------------------
//*- CREATE STAPEL-DECKBLAETTER -
//*-----------------------------------------------------
354 // IF (RC EQ 0) THEN
355 //DECKBLAT EXEC PGM=PV5040, POSSIBLE VALUES: PARM='/NOKK1,NOKK2'
// PARM='/'
//*
356 //SYSPRINT DD SYSOUT=*
357 //CEEDUMP DD SYSOUT=*
358 //SYSABEND DD SYSOUT=*
//*
359 //DDMSG DD SYSOUT=*
360 //DDPARM DD DSN=PVSO.RZ1.T0.TS0S5861.D05276.T163307.PARM,
// DISP=SHR
361 //DDFIBU DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.AUSFIBU,
// DISP=SHR
362 //DDBUSTA DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.BUND,
// DISP=SHR
363 //DDBEIL DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(PVBEILAG)
// DISP=SHR
364 //DBSPEC DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(DBSPEC),
// DISP=SHR
365 //DDVSTAB DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(VSTAB),
// DISP=SHR
366 //TZSPEC DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.INFRA(TZSPEC),
// DISP=SHR
367 //ATMAUS DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.ATMAUS,
// DISP=SHR
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X041
368 //DEC4B1 DD DSN=&&DEC4B1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
369 //DEC4B1A DD DSN=&&DEC4B1A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
370 //DEC4B1B DD DSN=&&DEC4B1B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
371 //DEC4B1C DD DSN=&&DEC4B1C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
372 //DEC4B1D DD DSN=&&DEC4B1D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
373 //DEC4B1E DD DSN=&&DEC4B1E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
374 //DEC4B1F DD DSN=&&DEC4B1F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
375 //DEC4B1G DD DSN=&&DEC4B1G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
376 //DEC4B1H DD DSN=&&DEC4B1H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
377 //DEC4B1I DD DSN=&&DEC4B1I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
378 //DEC4B1J DD DSN=&&DEC4B1J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
379 //DEC4B1K DD DSN=&&DEC4B1K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
380 //DEC4B1L DD DSN=&&DEC4B1L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
381 //DEC4B1M DD DSN=&&DEC4B1M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
382 //DEC4B1N DD DSN=&&DEC4B1N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
383 //DEC4B1O DD DSN=&&DEC4B1O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
384 //DEC4B1P DD DSN=&&DEC4B1P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
385 //DEC4B1Q DD DSN=&&DEC4B1Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
386 //DEC4B1R DD DSN=&&DEC4B1R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
387 //DEC4B1S DD DSN=&&DEC4B1S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
388 //DEC4B1T DD DSN=&&DEC4B1T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
389 //DEC4B1U DD DSN=&&DEC4B1U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
390 //DEC4B1V DD DSN=&&DEC4B1V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
391 //DEC4B1W DD DSN=&&DEC4B1W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
392 //DEC4B1X DD DSN=&&DEC4B1X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
393 //DEC4B1Y DD DSN=&&DEC4B1Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
394 //DEC4B1Z DD DSN=&&DEC4B1Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
395 //DEC4B10 DD DSN=&&DEC4B10,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
396 //DEC4B11 DD DSN=&&DEC4B11,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
397 //DEC4B12 DD DSN=&&DEC4B12,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
398 //DEC4B13 DD DSN=&&DEC4B13,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
399 //DEC4B14 DD DSN=&&DEC4B14,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
400 //DEC4B15 DD DSN=&&DEC4B15,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
401 //DEC4B16 DD DSN=&&DEC4B16,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
402 //DEC4B17 DD DSN=&&DEC4B17,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
403 //DEC4B18 DD DSN=&&DEC4B18,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
404 //DEC4B19 DD DSN=&&DEC4B19,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
405 //DEC5B1 DD DSN=&&DEC5B1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
406 //DEC5B1A DD DSN=&&DEC5B1A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
407 //DEC5B1B DD DSN=&&DEC5B1B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
408 //DEC5B1C DD DSN=&&DEC5B1C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
409 //DEC5B1D DD DSN=&&DEC5B1D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
410 //DEC5B1E DD DSN=&&DEC5B1E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
411 //DEC5B1F DD DSN=&&DEC5B1F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
412 //DEC5B1G DD DSN=&&DEC5B1G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
413 //DEC5B1H DD DSN=&&DEC5B1H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
414 //DEC5B1I DD DSN=&&DEC5B1I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
415 //DEC5B1J DD DSN=&&DEC5B1J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
416 //DEC5B1K DD DSN=&&DEC5B1K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
417 //DEC5B1L DD DSN=&&DEC5B1L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
418 //DEC5B1M DD DSN=&&DEC5B1M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
419 //DEC5B1N DD DSN=&&DEC5B1N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
420 //DEC5B1O DD DSN=&&DEC5B1O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
421 //DEC5B1P DD DSN=&&DEC5B1P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
422 //DEC5B1Q DD DSN=&&DEC5B1Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
423 //DEC5B1R DD DSN=&&DEC5B1R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
424 //DEC5B1S DD DSN=&&DEC5B1S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
425 //DEC5B1T DD DSN=&&DEC5B1T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
426 //DEC5B1U DD DSN=&&DEC5B1U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
427 //DEC5B1V DD DSN=&&DEC5B1V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
428 //DEC5B1W DD DSN=&&DEC5B1W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
429 //DEC5B1X DD DSN=&&DEC5B1X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
430 //DEC5B1Y DD DSN=&&DEC5B1Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
431 //DEC5B1Z DD DSN=&&DEC5B1Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
432 //DEC5B10 DD DSN=&&DEC5B10,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
433 //DEC5B11 DD DSN=&&DEC5B11,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
434 //DEC5B12 DD DSN=&&DEC5B12,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
435 //DEC5B13 DD DSN=&&DEC5B13,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
436 //DEC5B14 DD DSN=&&DEC5B14,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
437 //DEC5B15 DD DSN=&&DEC5B15,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
438 //DEC5B16 DD DSN=&&DEC5B16,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
439 //DEC5B17 DD DSN=&&DEC5B17,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
440 //DEC5B18 DD DSN=&&DEC5B18,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
441 //DEC5B19 DD DSN=&&DEC5B19,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
442 //DECHB1 DD DSN=&&DECHB1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
443 //DECHB1A DD DSN=&&DECHB1A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
444 //DECHB1B DD DSN=&&DECHB1B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
445 //DECHB1C DD DSN=&&DECHB1C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
446 //DECHB1D DD DSN=&&DECHB1D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
447 //DECHB1E DD DSN=&&DECHB1E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
448 //DECHB1F DD DSN=&&DECHB1F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
449 //DECHB1G DD DSN=&&DECHB1G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
450 //DECHB1H DD DSN=&&DECHB1H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
451 //DECHB1I DD DSN=&&DECHB1I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
452 //DECHB1J DD DSN=&&DECHB1J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
453 //DECHB1K DD DSN=&&DECHB1K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
454 //DECHB1L DD DSN=&&DECHB1L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
455 //DECHB1M DD DSN=&&DECHB1M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
456 //DECHB1N DD DSN=&&DECHB1N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
457 //DECHB1O DD DSN=&&DECHB1O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
458 //DECHB1P DD DSN=&&DECHB1P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
459 //DECHB1Q DD DSN=&&DECHB1Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
460 //DECHB1R DD DSN=&&DECHB1R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
461 //DECHB1S DD DSN=&&DECHB1S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
462 //DECHB1T DD DSN=&&DECHB1T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
463 //DECHB1U DD DSN=&&DECHB1U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
464 //DECHB1V DD DSN=&&DECHB1V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
465 //DECHB1W DD DSN=&&DECHB1W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
466 //DECHB1X DD DSN=&&DECHB1X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
467 //DECHB1Y DD DSN=&&DECHB1Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
468 //DECHB1Z DD DSN=&&DECHB1Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
469 //DECHB10 DD DSN=&&DECHB10,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
470 //DECHB11 DD DSN=&&DECHB11,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
471 //DECHB12 DD DSN=&&DECHB12,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
472 //DECHB13 DD DSN=&&DECHB13,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
473 //DECHB14 DD DSN=&&DECHB14,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
474 //DECHB15 DD DSN=&&DECHB15,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
475 //DECHB16 DD DSN=&&DECHB16,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
476 //DECHB17 DD DSN=&&DECHB17,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
477 //DECHB18 DD DSN=&&DECHB18,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
478 //DECHB19 DD DSN=&&DECHB19,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
479 //DECHF1 DD DSN=&&DECHF1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
480 //FIL4B1 DD DSN=&&FIL4B1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
481 //FIL4B1A DD DSN=&&FIL4B1A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
482 //FIL4B1B DD DSN=&&FIL4B1B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
483 //FIL4B1C DD DSN=&&FIL4B1C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
484 //FIL4B1D DD DSN=&&FIL4B1D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
485 //FIL4B1E DD DSN=&&FIL4B1E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
486 //FIL4B1F DD DSN=&&FIL4B1F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
487 //FIL4B1G DD DSN=&&FIL4B1G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
488 //FIL4B1H DD DSN=&&FIL4B1H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
489 //FIL4B1I DD DSN=&&FIL4B1I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
490 //FIL4B1J DD DSN=&&FIL4B1J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
491 //FIL4B1K DD DSN=&&FIL4B1K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
492 //FIL4B1L DD DSN=&&FIL4B1L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
493 //FIL4B1M DD DSN=&&FIL4B1M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
494 //FIL4B1N DD DSN=&&FIL4B1N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
495 //FIL4B1O DD DSN=&&FIL4B1O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
496 //FIL4B1P DD DSN=&&FIL4B1P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
497 //FIL4B1Q DD DSN=&&FIL4B1Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
498 //FIL4B1R DD DSN=&&FIL4B1R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
499 //FIL4B1S DD DSN=&&FIL4B1S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
500 //FIL4B1T DD DSN=&&FIL4B1T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
501 //FIL4B1U DD DSN=&&FIL4B1U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
502 //FIL4B1V DD DSN=&&FIL4B1V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
503 //FIL4B1W DD DSN=&&FIL4B1W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
504 //FIL4B1X DD DSN=&&FIL4B1X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
505 //FIL4B1Y DD DSN=&&FIL4B1Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
506 //FIL4B1Z DD DSN=&&FIL4B1Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
507 //FIL4B10 DD DSN=&&FIL4B10,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
508 //FIL4B11 DD DSN=&&FIL4B11,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
509 //FIL4B12 DD DSN=&&FIL4B12,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
510 //FIL4B13 DD DSN=&&FIL4B13,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
511 //FIL4B14 DD DSN=&&FIL4B14,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
512 //FIL4B15 DD DSN=&&FIL4B15,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
513 //FIL4B16 DD DSN=&&FIL4B16,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
514 //FIL4B17 DD DSN=&&FIL4B17,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
515 //FIL4B18 DD DSN=&&FIL4B18,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
516 //FIL4B19 DD DSN=&&FIL4B19,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
517 //FIL5B1 DD DSN=&&FIL5B1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
518 //FIL5B1A DD DSN=&&FIL5B1A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
519 //FIL5B1B DD DSN=&&FIL5B1B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
520 //FIL5B1C DD DSN=&&FIL5B1C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
521 //FIL5B1D DD DSN=&&FIL5B1D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
522 //FIL5B1E DD DSN=&&FIL5B1E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
523 //FIL5B1F DD DSN=&&FIL5B1F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
524 //FIL5B1G DD DSN=&&FIL5B1G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
525 //FIL5B1H DD DSN=&&FIL5B1H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
526 //FIL5B1I DD DSN=&&FIL5B1I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
527 //FIL5B1J DD DSN=&&FIL5B1J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
528 //FIL5B1K DD DSN=&&FIL5B1K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
529 //FIL5B1L DD DSN=&&FIL5B1L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
530 //FIL5B1M DD DSN=&&FIL5B1M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
531 //FIL5B1N DD DSN=&&FIL5B1N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
532 //FIL5B1O DD DSN=&&FIL5B1O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
533 //FIL5B1P DD DSN=&&FIL5B1P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
534 //FIL5B1Q DD DSN=&&FIL5B1Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
535 //FIL5B1R DD DSN=&&FIL5B1R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
536 //FIL5B1S DD DSN=&&FIL5B1S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
537 //FIL5B1T DD DSN=&&FIL5B1T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
538 //FIL5B1U DD DSN=&&FIL5B1U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
539 //FIL5B1V DD DSN=&&FIL5B1V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
540 //FIL5B1W DD DSN=&&FIL5B1W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
541 //FIL5B1X DD DSN=&&FIL5B1X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
542 //FIL5B1Y DD DSN=&&FIL5B1Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
543 //FIL5B1Z DD DSN=&&FIL5B1Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
544 //FIL5B10 DD DSN=&&FIL5B10,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
545 //FIL5B11 DD DSN=&&FIL5B11,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
546 //FIL5B12 DD DSN=&&FIL5B12,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
547 //FIL5B13 DD DSN=&&FIL5B13,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
548 //FIL5B14 DD DSN=&&FIL5B14,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
549 //FIL5B15 DD DSN=&&FIL5B15,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
550 //FIL5B16 DD DSN=&&FIL5B16,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
551 //FIL5B17 DD DSN=&&FIL5B17,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
552 //FIL5B18 DD DSN=&&FIL5B18,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
553 //FIL5B19 DD DSN=&&FIL5B19,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
554 //FILHB1 DD DSN=&&FILHB1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
555 //FILHB1A DD DSN=&&FILHB1A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
556 //FILHB1B DD DSN=&&FILHB1B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
557 //FILHB1C DD DSN=&&FILHB1C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
558 //FILHB1D DD DSN=&&FILHB1D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
559 //FILHB1E DD DSN=&&FILHB1E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
560 //FILHB1F DD DSN=&&FILHB1F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
561 //FILHB1G DD DSN=&&FILHB1G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
562 //FILHB1H DD DSN=&&FILHB1H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
563 //FILHB1I DD DSN=&&FILHB1I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
564 //FILHB1J DD DSN=&&FILHB1J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
565 //FILHB1K DD DSN=&&FILHB1K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
566 //FILHB1L DD DSN=&&FILHB1L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
567 //FILHB1M DD DSN=&&FILHB1M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
568 //FILHB1N DD DSN=&&FILHB1N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
569 //FILHB1O DD DSN=&&FILHB1O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
570 //FILHB1P DD DSN=&&FILHB1P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
571 //FILHB1Q DD DSN=&&FILHB1Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
572 //FILHB1R DD DSN=&&FILHB1R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
573 //FILHB1S DD DSN=&&FILHB1S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
574 //FILHB1T DD DSN=&&FILHB1T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
575 //FILHB1U DD DSN=&&FILHB1U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
576 //FILHB1V DD DSN=&&FILHB1V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
577 //FILHB1W DD DSN=&&FILHB1W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
578 //FILHB1X DD DSN=&&FILHB1X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
579 //FILHB1Y DD DSN=&&FILHB1Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
580 //FILHB1Z DD DSN=&&FILHB1Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
581 //FILHB10 DD DSN=&&FILHB10,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
582 //FILHB11 DD DSN=&&FILHB11,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
583 //FILHB12 DD DSN=&&FILHB12,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
584 //FILHB13 DD DSN=&&FILHB13,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
585 //FILHB14 DD DSN=&&FILHB14,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
586 //FILHB15 DD DSN=&&FILHB15,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
587 //FILHB16 DD DSN=&&FILHB16,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
588 //FILHB17 DD DSN=&&FILHB17,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
589 //FILHB18 DD DSN=&&FILHB18,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
590 //FILHB19 DD DSN=&&FILHB19,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
591 //FILHF1 DD DSN=&&FILHF1,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT1,
// SPACE=(TRK,(15,15),RLSE)
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X042
592 //DEC4B2 DD DSN=&&DEC4B2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
593 //DEC4B2A DD DSN=&&DEC4B2A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
594 //DEC4B2B DD DSN=&&DEC4B2B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
595 //DEC4B2C DD DSN=&&DEC4B2C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
596 //DEC4B2D DD DSN=&&DEC4B2D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
597 //DEC4B2E DD DSN=&&DEC4B2E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
598 //DEC4B2F DD DSN=&&DEC4B2F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
599 //DEC4B2G DD DSN=&&DEC4B2G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
600 //DEC4B2H DD DSN=&&DEC4B2H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
601 //DEC4B2I DD DSN=&&DEC4B2I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
602 //DEC4B2J DD DSN=&&DEC4B2J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
603 //DEC4B2K DD DSN=&&DEC4B2K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
604 //DEC4B2L DD DSN=&&DEC4B2L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
605 //DEC4B2M DD DSN=&&DEC4B2M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
606 //DEC4B2N DD DSN=&&DEC4B2N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
607 //DEC4B2O DD DSN=&&DEC4B2O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
608 //DEC4B2P DD DSN=&&DEC4B2P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
609 //DEC4B2Q DD DSN=&&DEC4B2Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
610 //DEC4B2R DD DSN=&&DEC4B2R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
611 //DEC4B2S DD DSN=&&DEC4B2S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
612 //DEC4B2T DD DSN=&&DEC4B2T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
613 //DEC4B2U DD DSN=&&DEC4B2U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
614 //DEC4B2V DD DSN=&&DEC4B2V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
615 //DEC4B2W DD DSN=&&DEC4B2W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
616 //DEC4B2X DD DSN=&&DEC4B2X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
617 //DEC4B2Y DD DSN=&&DEC4B2Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
618 //DEC4B2Z DD DSN=&&DEC4B2Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
619 //DEC4B20 DD DSN=&&DEC4B20,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
620 //DEC4B21 DD DSN=&&DEC4B21,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
621 //DEC4B22 DD DSN=&&DEC4B22,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
622 //DEC4B23 DD DSN=&&DEC4B23,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
623 //DEC4B24 DD DSN=&&DEC4B24,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
624 //DEC4B25 DD DSN=&&DEC4B25,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
625 //DEC4B26 DD DSN=&&DEC4B26,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
626 //DEC4B27 DD DSN=&&DEC4B27,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
627 //DEC4B28 DD DSN=&&DEC4B28,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
628 //DEC4B29 DD DSN=&&DEC4B29,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
629 //DEC5B2 DD DSN=&&DEC5B2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
630 //DEC5B2A DD DSN=&&DEC5B2A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
631 //DEC5B2B DD DSN=&&DEC5B2B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
632 //DEC5B2C DD DSN=&&DEC5B2C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
633 //DEC5B2D DD DSN=&&DEC5B2D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
634 //DEC5B2E DD DSN=&&DEC5B2E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
635 //DEC5B2F DD DSN=&&DEC5B2F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
636 //DEC5B2G DD DSN=&&DEC5B2G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
637 //DEC5B2H DD DSN=&&DEC5B2H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
638 //DEC5B2I DD DSN=&&DEC5B2I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
639 //DEC5B2J DD DSN=&&DEC5B2J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
640 //DEC5B2K DD DSN=&&DEC5B2K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
641 //DEC5B2L DD DSN=&&DEC5B2L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
642 //DEC5B2M DD DSN=&&DEC5B2M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
643 //DEC5B2N DD DSN=&&DEC5B2N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
644 //DEC5B2O DD DSN=&&DEC5B2O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
645 //DEC5B2P DD DSN=&&DEC5B2P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
646 //DEC5B2Q DD DSN=&&DEC5B2Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
647 //DEC5B2R DD DSN=&&DEC5B2R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
648 //DEC5B2S DD DSN=&&DEC5B2S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
649 //DEC5B2T DD DSN=&&DEC5B2T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
650 //DEC5B2U DD DSN=&&DEC5B2U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
651 //DEC5B2V DD DSN=&&DEC5B2V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
652 //DEC5B2W DD DSN=&&DEC5B2W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
653 //DEC5B2X DD DSN=&&DEC5B2X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
654 //DEC5B2Y DD DSN=&&DEC5B2Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
655 //DEC5B2Z DD DSN=&&DEC5B2Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
656 //DEC5B20 DD DSN=&&DEC5B20,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
657 //DEC5B21 DD DSN=&&DEC5B21,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
658 //DEC5B22 DD DSN=&&DEC5B22,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
659 //DEC5B23 DD DSN=&&DEC5B23,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
660 //DEC5B24 DD DSN=&&DEC5B24,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
661 //DEC5B25 DD DSN=&&DEC5B25,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
662 //DEC5B26 DD DSN=&&DEC5B26,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
663 //DEC5B27 DD DSN=&&DEC5B27,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
664 //DEC5B28 DD DSN=&&DEC5B28,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
665 //DEC5B29 DD DSN=&&DEC5B29,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
666 //DECHB2 DD DSN=&&DECHB2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
667 //DECHB2A DD DSN=&&DECHB2A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
668 //DECHB2B DD DSN=&&DECHB2B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
669 //DECHB2C DD DSN=&&DECHB2C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
670 //DECHB2D DD DSN=&&DECHB2D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
671 //DECHB2E DD DSN=&&DECHB2E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
672 //DECHB2F DD DSN=&&DECHB2F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
673 //DECHB2G DD DSN=&&DECHB2G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
674 //DECHB2H DD DSN=&&DECHB2H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
675 //DECHB2I DD DSN=&&DECHB2I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
676 //DECHB2J DD DSN=&&DECHB2J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
677 //DECHB2K DD DSN=&&DECHB2K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
678 //DECHB2L DD DSN=&&DECHB2L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
679 //DECHB2M DD DSN=&&DECHB2M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
680 //DECHB2N DD DSN=&&DECHB2N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
681 //DECHB2O DD DSN=&&DECHB2O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
682 //DECHB2P DD DSN=&&DECHB2P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
683 //DECHB2Q DD DSN=&&DECHB2Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
684 //DECHB2R DD DSN=&&DECHB2R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
685 //DECHB2S DD DSN=&&DECHB2S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
686 //DECHB2T DD DSN=&&DECHB2T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
687 //DECHB2U DD DSN=&&DECHB2U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
688 //DECHB2V DD DSN=&&DECHB2V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
689 //DECHB2W DD DSN=&&DECHB2W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
690 //DECHB2X DD DSN=&&DECHB2X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
691 //DECHB2Y DD DSN=&&DECHB2Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
692 //DECHB2Z DD DSN=&&DECHB2Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
693 //DECHB20 DD DSN=&&DECHB20,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
694 //DECHB21 DD DSN=&&DECHB21,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
695 //DECHB22 DD DSN=&&DECHB22,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
696 //DECHB23 DD DSN=&&DECHB23,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
697 //DECHB24 DD DSN=&&DECHB24,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
698 //DECHB25 DD DSN=&&DECHB25,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
699 //DECHB26 DD DSN=&&DECHB26,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
700 //DECHB27 DD DSN=&&DECHB27,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
701 //DECHB28 DD DSN=&&DECHB28,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
702 //DECHB29 DD DSN=&&DECHB29,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
703 //DECHF2 DD DSN=&&DECHF2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
704 //FIL4B2 DD DSN=&&FIL4B2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
705 //FIL4B2A DD DSN=&&FIL4B2A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
706 //FIL4B2B DD DSN=&&FIL4B2B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
707 //FIL4B2C DD DSN=&&FIL4B2C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
708 //FIL4B2D DD DSN=&&FIL4B2D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
709 //FIL4B2E DD DSN=&&FIL4B2E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
710 //FIL4B2F DD DSN=&&FIL4B2F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
711 //FIL4B2G DD DSN=&&FIL4B2G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
712 //FIL4B2H DD DSN=&&FIL4B2H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
713 //FIL4B2I DD DSN=&&FIL4B2I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
714 //FIL4B2J DD DSN=&&FIL4B2J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
715 //FIL4B2K DD DSN=&&FIL4B2K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
716 //FIL4B2L DD DSN=&&FIL4B2L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
717 //FIL4B2M DD DSN=&&FIL4B2M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
718 //FIL4B2N DD DSN=&&FIL4B2N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
719 //FIL4B2O DD DSN=&&FIL4B2O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
720 //FIL4B2P DD DSN=&&FIL4B2P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
721 //FIL4B2Q DD DSN=&&FIL4B2Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
722 //FIL4B2R DD DSN=&&FIL4B2R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
723 //FIL4B2S DD DSN=&&FIL4B2S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
724 //FIL4B2T DD DSN=&&FIL4B2T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
725 //FIL4B2U DD DSN=&&FIL4B2U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
726 //FIL4B2V DD DSN=&&FIL4B2V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
727 //FIL4B2W DD DSN=&&FIL4B2W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
728 //FIL4B2X DD DSN=&&FIL4B2X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
729 //FIL4B2Y DD DSN=&&FIL4B2Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
730 //FIL4B2Z DD DSN=&&FIL4B2Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
731 //FIL4B20 DD DSN=&&FIL4B20,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
732 //FIL4B21 DD DSN=&&FIL4B21,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
733 //FIL4B22 DD DSN=&&FIL4B22,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
734 //FIL4B23 DD DSN=&&FIL4B23,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
735 //FIL4B24 DD DSN=&&FIL4B24,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
736 //FIL4B25 DD DSN=&&FIL4B25,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
737 //FIL4B26 DD DSN=&&FIL4B26,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
738 //FIL4B27 DD DSN=&&FIL4B27,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
739 //FIL4B28 DD DSN=&&FIL4B28,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
740 //FIL4B29 DD DSN=&&FIL4B29,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
741 //FIL5B2 DD DSN=&&FIL5B2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
742 //FIL5B2A DD DSN=&&FIL5B2A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
743 //FIL5B2B DD DSN=&&FIL5B2B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
744 //FIL5B2C DD DSN=&&FIL5B2C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
745 //FIL5B2D DD DSN=&&FIL5B2D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
746 //FIL5B2E DD DSN=&&FIL5B2E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
747 //FIL5B2F DD DSN=&&FIL5B2F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
748 //FIL5B2G DD DSN=&&FIL5B2G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
749 //FIL5B2H DD DSN=&&FIL5B2H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
750 //FIL5B2I DD DSN=&&FIL5B2I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
751 //FIL5B2J DD DSN=&&FIL5B2J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
752 //FIL5B2K DD DSN=&&FIL5B2K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
753 //FIL5B2L DD DSN=&&FIL5B2L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
754 //FIL5B2M DD DSN=&&FIL5B2M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
755 //FIL5B2N DD DSN=&&FIL5B2N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
756 //FIL5B2O DD DSN=&&FIL5B2O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
757 //FIL5B2P DD DSN=&&FIL5B2P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
758 //FIL5B2Q DD DSN=&&FIL5B2Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
759 //FIL5B2R DD DSN=&&FIL5B2R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
760 //FIL5B2S DD DSN=&&FIL5B2S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
761 //FIL5B2T DD DSN=&&FIL5B2T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
762 //FIL5B2U DD DSN=&&FIL5B2U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
763 //FIL5B2V DD DSN=&&FIL5B2V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
764 //FIL5B2W DD DSN=&&FIL5B2W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
765 //FIL5B2X DD DSN=&&FIL5B2X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
766 //FIL5B2Y DD DSN=&&FIL5B2Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
767 //FIL5B2Z DD DSN=&&FIL5B2Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
768 //FIL5B20 DD DSN=&&FIL5B20,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
769 //FIL5B21 DD DSN=&&FIL5B21,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
770 //FIL5B22 DD DSN=&&FIL5B22,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
771 //FIL5B23 DD DSN=&&FIL5B23,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
772 //FIL5B24 DD DSN=&&FIL5B24,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
773 //FIL5B25 DD DSN=&&FIL5B25,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
774 //FIL5B26 DD DSN=&&FIL5B26,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
775 //FIL5B27 DD DSN=&&FIL5B27,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
776 //FIL5B28 DD DSN=&&FIL5B28,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
777 //FIL5B29 DD DSN=&&FIL5B29,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
778 //FILHB2 DD DSN=&&FILHB2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
779 //FILHB2A DD DSN=&&FILHB2A,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
780 //FILHB2B DD DSN=&&FILHB2B,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
781 //FILHB2C DD DSN=&&FILHB2C,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
782 //FILHB2D DD DSN=&&FILHB2D,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
783 //FILHB2E DD DSN=&&FILHB2E,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
784 //FILHB2F DD DSN=&&FILHB2F,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
785 //FILHB2G DD DSN=&&FILHB2G,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
786 //FILHB2H DD DSN=&&FILHB2H,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
787 //FILHB2I DD DSN=&&FILHB2I,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
788 //FILHB2J DD DSN=&&FILHB2J,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
789 //FILHB2K DD DSN=&&FILHB2K,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
790 //FILHB2L DD DSN=&&FILHB2L,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
791 //FILHB2M DD DSN=&&FILHB2M,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
792 //FILHB2N DD DSN=&&FILHB2N,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
793 //FILHB2O DD DSN=&&FILHB2O,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
794 //FILHB2P DD DSN=&&FILHB2P,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
795 //FILHB2Q DD DSN=&&FILHB2Q,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
796 //FILHB2R DD DSN=&&FILHB2R,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
797 //FILHB2S DD DSN=&&FILHB2S,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
798 //FILHB2T DD DSN=&&FILHB2T,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
799 //FILHB2U DD DSN=&&FILHB2U,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
800 //FILHB2V DD DSN=&&FILHB2V,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
801 //FILHB2W DD DSN=&&FILHB2W,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
802 //FILHB2X DD DSN=&&FILHB2X,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
803 //FILHB2Y DD DSN=&&FILHB2Y,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
804 //FILHB2Z DD DSN=&&FILHB2Z,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
805 //FILHB20 DD DSN=&&FILHB20,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
806 //FILHB21 DD DSN=&&FILHB21,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
807 //FILHB22 DD DSN=&&FILHB22,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
808 //FILHB23 DD DSN=&&FILHB23,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
809 //FILHB24 DD DSN=&&FILHB24,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
810 //FILHB25 DD DSN=&&FILHB25,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
811 //FILHB26 DD DSN=&&FILHB26,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
812 //FILHB27 DD DSN=&&FILHB27,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
813 //FILHB28 DD DSN=&&FILHB28,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
814 //FILHB29 DD DSN=&&FILHB29,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
815 //FILHF2 DD DSN=&&FILHF2,
// DISP=(NEW,PASS),
// UNIT=VIO,
// DCB=PVSO.RZ1.T0.TS3S5861.D05276.T163307.EINDAT2,
// SPACE=(TRK,(15,15),RLSE)
816 //DDLISTE DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.STAPLST,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// MGMTCLAS=COM#E008,
// DCB=(RECFM=VBA,LRECL=32756),
// SPACE=(TRK,(10,10),RLSE)
817 // ENDIF
//*
//*-----------------------------------------------------
//*- COPY DECKBLATT & OUTPUT TO PRINTER (CHANNEL 1) -
//*-----------------------------------------------------
818 // IF (RC EQ 0) THEN
819 //COPY1### EXEC PGM=ICETOOL
//*
820 //SYSPRINT DD SYSOUT=*
821 //CEEDUMP DD SYSOUT=*
822 //SYSABEND DD SYSOUT=*
//*
//*
823 //TOOLMSG DD SYSOUT=*
824 //DFSMSG DD SYSOUT=*
825 //TOOLIN DD *
//*
826 //OUTSTAP1 OUTPUT PRMODE=PAGE,
// FORMS=3820,
// FORMDEF=PV0500,
// PAGEDEF=PV0500,
// CLASS=*,
// DEST=B643
827 //OUTSTAP2 OUTPUT PRMODE=PAGE,
// FORMS=3820,
// FORMDEF=PV0500,
// PAGEDEF=PV0500,
// CLASS=N,
// DEST=ANYLOCAL
828 //DDLISTE DD DSN=PVSO.RZ1.T0.TS4S5861.D05276.T163307.STAPLST,
// DISP=SHR
829 //STAPLST1 DD OUTPUT=*.OUTSTAP1,SYSOUT=(,)
830 //STAPLST2 DD OUTPUT=*.OUTSTAP2,SYSOUT=(,)
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X061
831 //OUT4X1 OUTPUT PRMODE=PAGE,
//* %%IF Y EQ Y
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//* %%ENDIF
// THRESHLD=1,
// FORMS=DUMM#A01,
// FORMDEF=DUMMY,
// PAGEDEF=DUMMY,
// DEST=ANYLOCAL
832 //OUT5X1 OUTPUT PRMODE=PAGE,
//* %%IF Y EQ Y
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//* %%ENDIF
// THRESHLD=1,
// FORMS=WTDU#A01,
// FORMDEF=C#CH2,
// PAGEDEF=PVWGR2,
// DEST=ANYLOCAL
833 //OUTHX1 OUTPUT PRMODE=PAGE,
//* %%IF Y EQ Y
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//* %%ENDIF
// THRESHLD=1,
// FORMS=WHDU#A01,
// FORMDEF=C#CH1,
// PAGEDEF=PVWGR1,
// DEST=ANYLOCAL
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X071
//* ATTENTION: VOL=REF= IS NEEDED BECAUSE THE SAME TEMPORARY DATASET
//* APPEARS TWICE UNDER THE SAME DDNAME
834 //COP4B1 DD DSN=&&DEC4B1,
// DISP=(SHR,PASS)
835 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1,
// DISP=(SHR,PASS)
836 // DD DSN=&&DEC4B1,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1
837 // DD DSN=&&FIL4B1,
// DISP=(SHR,PASS)
838 //COP4B1A DD DSN=&&DEC4B1A,
// DISP=(SHR,PASS)
839 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1A,
// DISP=(SHR,PASS)
840 // DD DSN=&&DEC4B1A,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1A
841 // DD DSN=&&FIL4B1A,
// DISP=(SHR,PASS)
842 //COP4B1B DD DSN=&&DEC4B1B,
// DISP=(SHR,PASS)
843 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1B,
// DISP=(SHR,PASS)
844 // DD DSN=&&DEC4B1B,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1B
845 // DD DSN=&&FIL4B1B,
// DISP=(SHR,PASS)
846 //COP4B1C DD DSN=&&DEC4B1C,
// DISP=(SHR,PASS)
847 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1C,
// DISP=(SHR,PASS)
848 // DD DSN=&&DEC4B1C,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1C
849 // DD DSN=&&FIL4B1C,
// DISP=(SHR,PASS)
850 //COP4B1D DD DSN=&&DEC4B1D,
// DISP=(SHR,PASS)
851 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1D,
// DISP=(SHR,PASS)
852 // DD DSN=&&DEC4B1D,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1D
853 // DD DSN=&&FIL4B1D,
// DISP=(SHR,PASS)
854 //COP4B1E DD DSN=&&DEC4B1E,
// DISP=(SHR,PASS)
855 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1E,
// DISP=(SHR,PASS)
856 // DD DSN=&&DEC4B1E,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1E
857 // DD DSN=&&FIL4B1E,
// DISP=(SHR,PASS)
858 //COP4B1F DD DSN=&&DEC4B1F,
// DISP=(SHR,PASS)
859 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1F,
// DISP=(SHR,PASS)
860 // DD DSN=&&DEC4B1F,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1F
861 // DD DSN=&&FIL4B1F,
// DISP=(SHR,PASS)
862 //COP4B1G DD DSN=&&DEC4B1G,
// DISP=(SHR,PASS)
863 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1G,
// DISP=(SHR,PASS)
864 // DD DSN=&&DEC4B1G,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1G
865 // DD DSN=&&FIL4B1G,
// DISP=(SHR,PASS)
866 //COP4B1H DD DSN=&&DEC4B1H,
// DISP=(SHR,PASS)
867 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1H,
// DISP=(SHR,PASS)
868 // DD DSN=&&DEC4B1H,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1H
869 // DD DSN=&&FIL4B1H,
// DISP=(SHR,PASS)
870 //COP4B1I DD DSN=&&DEC4B1I,
// DISP=(SHR,PASS)
871 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1I,
// DISP=(SHR,PASS)
872 // DD DSN=&&DEC4B1I,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1I
873 // DD DSN=&&FIL4B1I,
// DISP=(SHR,PASS)
874 //COP4B1J DD DSN=&&DEC4B1J,
// DISP=(SHR,PASS)
875 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1J,
// DISP=(SHR,PASS)
876 // DD DSN=&&DEC4B1J,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1J
877 // DD DSN=&&FIL4B1J,
// DISP=(SHR,PASS)
878 //COP4B1K DD DSN=&&DEC4B1K,
// DISP=(SHR,PASS)
879 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1K,
// DISP=(SHR,PASS)
880 // DD DSN=&&DEC4B1K,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1K
881 // DD DSN=&&FIL4B1K,
// DISP=(SHR,PASS)
882 //COP4B1L DD DSN=&&DEC4B1L,
// DISP=(SHR,PASS)
883 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1L,
// DISP=(SHR,PASS)
884 // DD DSN=&&DEC4B1L,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1L
885 // DD DSN=&&FIL4B1L,
// DISP=(SHR,PASS)
886 //COP4B1M DD DSN=&&DEC4B1M,
// DISP=(SHR,PASS)
887 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1M,
// DISP=(SHR,PASS)
888 // DD DSN=&&DEC4B1M,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1M
889 // DD DSN=&&FIL4B1M,
// DISP=(SHR,PASS)
890 //COP4B1N DD DSN=&&DEC4B1N,
// DISP=(SHR,PASS)
891 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1N,
// DISP=(SHR,PASS)
892 // DD DSN=&&DEC4B1N,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1N
893 // DD DSN=&&FIL4B1N,
// DISP=(SHR,PASS)
894 //COP4B1O DD DSN=&&DEC4B1O,
// DISP=(SHR,PASS)
895 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1O,
// DISP=(SHR,PASS)
896 // DD DSN=&&DEC4B1O,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1O
897 // DD DSN=&&FIL4B1O,
// DISP=(SHR,PASS)
898 //COP4B1P DD DSN=&&DEC4B1P,
// DISP=(SHR,PASS)
899 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1P,
// DISP=(SHR,PASS)
900 // DD DSN=&&DEC4B1P,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1P
901 // DD DSN=&&FIL4B1P,
// DISP=(SHR,PASS)
902 //COP4B1Q DD DSN=&&DEC4B1Q,
// DISP=(SHR,PASS)
903 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1Q,
// DISP=(SHR,PASS)
904 // DD DSN=&&DEC4B1Q,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1Q
905 // DD DSN=&&FIL4B1Q,
// DISP=(SHR,PASS)
906 //COP4B1R DD DSN=&&DEC4B1R,
// DISP=(SHR,PASS)
907 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1R,
// DISP=(SHR,PASS)
908 // DD DSN=&&DEC4B1R,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1R
909 // DD DSN=&&FIL4B1R,
// DISP=(SHR,PASS)
910 //COP4B1S DD DSN=&&DEC4B1S,
// DISP=(SHR,PASS)
911 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1S,
// DISP=(SHR,PASS)
912 // DD DSN=&&DEC4B1S,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1S
913 // DD DSN=&&FIL4B1S,
// DISP=(SHR,PASS)
914 //COP4B1T DD DSN=&&DEC4B1T,
// DISP=(SHR,PASS)
915 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1T,
// DISP=(SHR,PASS)
916 // DD DSN=&&DEC4B1T,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1T
917 // DD DSN=&&FIL4B1T,
// DISP=(SHR,PASS)
918 //COP4B1U DD DSN=&&DEC4B1U,
// DISP=(SHR,PASS)
919 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1U,
// DISP=(SHR,PASS)
920 // DD DSN=&&DEC4B1U,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1U
921 // DD DSN=&&FIL4B1U,
// DISP=(SHR,PASS)
922 //COP4B1V DD DSN=&&DEC4B1V,
// DISP=(SHR,PASS)
923 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1V,
// DISP=(SHR,PASS)
924 // DD DSN=&&DEC4B1V,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1V
925 // DD DSN=&&FIL4B1V,
// DISP=(SHR,PASS)
926 //COP4B1W DD DSN=&&DEC4B1W,
// DISP=(SHR,PASS)
927 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1W,
// DISP=(SHR,PASS)
928 // DD DSN=&&DEC4B1W,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1W
929 // DD DSN=&&FIL4B1W,
// DISP=(SHR,PASS)
930 //COP4B1X DD DSN=&&DEC4B1X,
// DISP=(SHR,PASS)
931 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1X,
// DISP=(SHR,PASS)
932 // DD DSN=&&DEC4B1X,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1X
933 // DD DSN=&&FIL4B1X,
// DISP=(SHR,PASS)
934 //COP4B1Y DD DSN=&&DEC4B1Y,
// DISP=(SHR,PASS)
935 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1Y,
// DISP=(SHR,PASS)
936 // DD DSN=&&DEC4B1Y,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1Y
937 // DD DSN=&&FIL4B1Y,
// DISP=(SHR,PASS)
938 //COP4B1Z DD DSN=&&DEC4B1Z,
// DISP=(SHR,PASS)
939 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B1Z,
// DISP=(SHR,PASS)
940 // DD DSN=&&DEC4B1Z,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B1Z
941 // DD DSN=&&FIL4B1Z,
// DISP=(SHR,PASS)
942 //COP4B10 DD DSN=&&DEC4B10,
// DISP=(SHR,PASS)
943 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B10,
// DISP=(SHR,PASS)
944 // DD DSN=&&DEC4B10,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B10
945 // DD DSN=&&FIL4B10,
// DISP=(SHR,PASS)
946 //COP4B11 DD DSN=&&DEC4B11,
// DISP=(SHR,PASS)
947 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B11,
// DISP=(SHR,PASS)
948 // DD DSN=&&DEC4B11,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B11
949 // DD DSN=&&FIL4B11,
// DISP=(SHR,PASS)
950 //COP4B12 DD DSN=&&DEC4B12,
// DISP=(SHR,PASS)
951 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B12,
// DISP=(SHR,PASS)
952 // DD DSN=&&DEC4B12,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B12
953 // DD DSN=&&FIL4B12,
// DISP=(SHR,PASS)
954 //COP4B13 DD DSN=&&DEC4B13,
// DISP=(SHR,PASS)
955 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B13,
// DISP=(SHR,PASS)
956 // DD DSN=&&DEC4B13,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B13
957 // DD DSN=&&FIL4B13,
// DISP=(SHR,PASS)
958 //COP4B14 DD DSN=&&DEC4B14,
// DISP=(SHR,PASS)
959 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B14,
// DISP=(SHR,PASS)
960 // DD DSN=&&DEC4B14,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B14
961 // DD DSN=&&FIL4B14,
// DISP=(SHR,PASS)
962 //COP4B15 DD DSN=&&DEC4B15,
// DISP=(SHR,PASS)
963 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B15,
// DISP=(SHR,PASS)
964 // DD DSN=&&DEC4B15,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B15
965 // DD DSN=&&FIL4B15,
// DISP=(SHR,PASS)
966 //COP4B16 DD DSN=&&DEC4B16,
// DISP=(SHR,PASS)
967 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B16,
// DISP=(SHR,PASS)
968 // DD DSN=&&DEC4B16,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B16
969 // DD DSN=&&FIL4B16,
// DISP=(SHR,PASS)
970 //COP4B17 DD DSN=&&DEC4B17,
// DISP=(SHR,PASS)
971 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B17,
// DISP=(SHR,PASS)
972 // DD DSN=&&DEC4B17,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B17
973 // DD DSN=&&FIL4B17,
// DISP=(SHR,PASS)
974 //COP4B18 DD DSN=&&DEC4B18,
// DISP=(SHR,PASS)
975 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B18,
// DISP=(SHR,PASS)
976 // DD DSN=&&DEC4B18,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B18
977 // DD DSN=&&FIL4B18,
// DISP=(SHR,PASS)
978 //COP4B19 DD DSN=&&DEC4B19,
// DISP=(SHR,PASS)
979 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B19,
// DISP=(SHR,PASS)
980 // DD DSN=&&DEC4B19,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B19
981 // DD DSN=&&FIL4B19,
// DISP=(SHR,PASS)
982 //COP5B1 DD DSN=&&DEC5B1,
// DISP=(SHR,PASS)
983 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1,
// DISP=(SHR,PASS)
984 // DD DSN=&&DEC5B1,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1
985 // DD DSN=&&FIL5B1,
// DISP=(SHR,PASS)
986 //COP5B1A DD DSN=&&DEC5B1A,
// DISP=(SHR,PASS)
987 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1A,
// DISP=(SHR,PASS)
988 // DD DSN=&&DEC5B1A,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1A
989 // DD DSN=&&FIL5B1A,
// DISP=(SHR,PASS)
990 //COP5B1B DD DSN=&&DEC5B1B,
// DISP=(SHR,PASS)
991 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1B,
// DISP=(SHR,PASS)
992 // DD DSN=&&DEC5B1B,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1B
993 // DD DSN=&&FIL5B1B,
// DISP=(SHR,PASS)
994 //COP5B1C DD DSN=&&DEC5B1C,
// DISP=(SHR,PASS)
995 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1C,
// DISP=(SHR,PASS)
996 // DD DSN=&&DEC5B1C,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1C
997 // DD DSN=&&FIL5B1C,
// DISP=(SHR,PASS)
998 //COP5B1D DD DSN=&&DEC5B1D,
// DISP=(SHR,PASS)
999 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1D,
// DISP=(SHR,PASS)
1000 // DD DSN=&&DEC5B1D,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1D
1001 // DD DSN=&&FIL5B1D,
// DISP=(SHR,PASS)
1002 //COP5B1E DD DSN=&&DEC5B1E,
// DISP=(SHR,PASS)
1003 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1E,
// DISP=(SHR,PASS)
1004 // DD DSN=&&DEC5B1E,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1E
1005 // DD DSN=&&FIL5B1E,
// DISP=(SHR,PASS)
1006 //COP5B1F DD DSN=&&DEC5B1F,
// DISP=(SHR,PASS)
1007 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1F,
// DISP=(SHR,PASS)
1008 // DD DSN=&&DEC5B1F,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1F
1009 // DD DSN=&&FIL5B1F,
// DISP=(SHR,PASS)
1010 //COP5B1G DD DSN=&&DEC5B1G,
// DISP=(SHR,PASS)
1011 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1G,
// DISP=(SHR,PASS)
1012 // DD DSN=&&DEC5B1G,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1G
1013 // DD DSN=&&FIL5B1G,
// DISP=(SHR,PASS)
1014 //COP5B1H DD DSN=&&DEC5B1H,
// DISP=(SHR,PASS)
1015 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1H,
// DISP=(SHR,PASS)
1016 // DD DSN=&&DEC5B1H,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1H
1017 // DD DSN=&&FIL5B1H,
// DISP=(SHR,PASS)
1018 //COP5B1I DD DSN=&&DEC5B1I,
// DISP=(SHR,PASS)
1019 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1I,
// DISP=(SHR,PASS)
1020 // DD DSN=&&DEC5B1I,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1I
1021 // DD DSN=&&FIL5B1I,
// DISP=(SHR,PASS)
1022 //COP5B1J DD DSN=&&DEC5B1J,
// DISP=(SHR,PASS)
1023 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1J,
// DISP=(SHR,PASS)
1024 // DD DSN=&&DEC5B1J,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1J
1025 // DD DSN=&&FIL5B1J,
// DISP=(SHR,PASS)
1026 //COP5B1K DD DSN=&&DEC5B1K,
// DISP=(SHR,PASS)
1027 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1K,
// DISP=(SHR,PASS)
1028 // DD DSN=&&DEC5B1K,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1K
1029 // DD DSN=&&FIL5B1K,
// DISP=(SHR,PASS)
1030 //COP5B1L DD DSN=&&DEC5B1L,
// DISP=(SHR,PASS)
1031 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1L,
// DISP=(SHR,PASS)
1032 // DD DSN=&&DEC5B1L,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1L
1033 // DD DSN=&&FIL5B1L,
// DISP=(SHR,PASS)
1034 //COP5B1M DD DSN=&&DEC5B1M,
// DISP=(SHR,PASS)
1035 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1M,
// DISP=(SHR,PASS)
1036 // DD DSN=&&DEC5B1M,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1M
1037 // DD DSN=&&FIL5B1M,
// DISP=(SHR,PASS)
1038 //COP5B1N DD DSN=&&DEC5B1N,
// DISP=(SHR,PASS)
1039 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1N,
// DISP=(SHR,PASS)
1040 // DD DSN=&&DEC5B1N,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1N
1041 // DD DSN=&&FIL5B1N,
// DISP=(SHR,PASS)
1042 //COP5B1O DD DSN=&&DEC5B1O,
// DISP=(SHR,PASS)
1043 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1O,
// DISP=(SHR,PASS)
1044 // DD DSN=&&DEC5B1O,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1O
1045 // DD DSN=&&FIL5B1O,
// DISP=(SHR,PASS)
1046 //COP5B1P DD DSN=&&DEC5B1P,
// DISP=(SHR,PASS)
1047 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1P,
// DISP=(SHR,PASS)
1048 // DD DSN=&&DEC5B1P,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1P
1049 // DD DSN=&&FIL5B1P,
// DISP=(SHR,PASS)
1050 //COP5B1Q DD DSN=&&DEC5B1Q,
// DISP=(SHR,PASS)
1051 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1Q,
// DISP=(SHR,PASS)
1052 // DD DSN=&&DEC5B1Q,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1Q
1053 // DD DSN=&&FIL5B1Q,
// DISP=(SHR,PASS)
1054 //COP5B1R DD DSN=&&DEC5B1R,
// DISP=(SHR,PASS)
1055 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1R,
// DISP=(SHR,PASS)
1056 // DD DSN=&&DEC5B1R,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1R
1057 // DD DSN=&&FIL5B1R,
// DISP=(SHR,PASS)
1058 //COP5B1S DD DSN=&&DEC5B1S,
// DISP=(SHR,PASS)
1059 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1S,
// DISP=(SHR,PASS)
1060 // DD DSN=&&DEC5B1S,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1S
1061 // DD DSN=&&FIL5B1S,
// DISP=(SHR,PASS)
1062 //COP5B1T DD DSN=&&DEC5B1T,
// DISP=(SHR,PASS)
1063 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1T,
// DISP=(SHR,PASS)
1064 // DD DSN=&&DEC5B1T,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1T
1065 // DD DSN=&&FIL5B1T,
// DISP=(SHR,PASS)
1066 //COP5B1U DD DSN=&&DEC5B1U,
// DISP=(SHR,PASS)
1067 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1U,
// DISP=(SHR,PASS)
1068 // DD DSN=&&DEC5B1U,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1U
1069 // DD DSN=&&FIL5B1U,
// DISP=(SHR,PASS)
1070 //COP5B1V DD DSN=&&DEC5B1V,
// DISP=(SHR,PASS)
1071 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1V,
// DISP=(SHR,PASS)
1072 // DD DSN=&&DEC5B1V,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1V
1073 // DD DSN=&&FIL5B1V,
// DISP=(SHR,PASS)
1074 //COP5B1W DD DSN=&&DEC5B1W,
// DISP=(SHR,PASS)
1075 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1W,
// DISP=(SHR,PASS)
1076 // DD DSN=&&DEC5B1W,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1W
1077 // DD DSN=&&FIL5B1W,
// DISP=(SHR,PASS)
1078 //COP5B1X DD DSN=&&DEC5B1X,
// DISP=(SHR,PASS)
1079 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1X,
// DISP=(SHR,PASS)
1080 // DD DSN=&&DEC5B1X,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1X
1081 // DD DSN=&&FIL5B1X,
// DISP=(SHR,PASS)
1082 //COP5B1Y DD DSN=&&DEC5B1Y,
// DISP=(SHR,PASS)
1083 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1Y,
// DISP=(SHR,PASS)
1084 // DD DSN=&&DEC5B1Y,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1Y
1085 // DD DSN=&&FIL5B1Y,
// DISP=(SHR,PASS)
1086 //COP5B1Z DD DSN=&&DEC5B1Z,
// DISP=(SHR,PASS)
1087 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B1Z,
// DISP=(SHR,PASS)
1088 // DD DSN=&&DEC5B1Z,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B1Z
1089 // DD DSN=&&FIL5B1Z,
// DISP=(SHR,PASS)
1090 //COP5B10 DD DSN=&&DEC5B10,
// DISP=(SHR,PASS)
1091 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B10,
// DISP=(SHR,PASS)
1092 // DD DSN=&&DEC5B10,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B10
1093 // DD DSN=&&FIL5B10,
// DISP=(SHR,PASS)
1094 //COP5B11 DD DSN=&&DEC5B11,
// DISP=(SHR,PASS)
1095 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B11,
// DISP=(SHR,PASS)
1096 // DD DSN=&&DEC5B11,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B11
1097 // DD DSN=&&FIL5B11,
// DISP=(SHR,PASS)
1098 //COP5B12 DD DSN=&&DEC5B12,
// DISP=(SHR,PASS)
1099 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B12,
// DISP=(SHR,PASS)
1100 // DD DSN=&&DEC5B12,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B12
1101 // DD DSN=&&FIL5B12,
// DISP=(SHR,PASS)
1102 //COP5B13 DD DSN=&&DEC5B13,
// DISP=(SHR,PASS)
1103 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B13,
// DISP=(SHR,PASS)
1104 // DD DSN=&&DEC5B13,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B13
1105 // DD DSN=&&FIL5B13,
// DISP=(SHR,PASS)
1106 //COP5B14 DD DSN=&&DEC5B14,
// DISP=(SHR,PASS)
1107 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B14,
// DISP=(SHR,PASS)
1108 // DD DSN=&&DEC5B14,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B14
1109 // DD DSN=&&FIL5B14,
// DISP=(SHR,PASS)
1110 //COP5B15 DD DSN=&&DEC5B15,
// DISP=(SHR,PASS)
1111 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B15,
// DISP=(SHR,PASS)
1112 // DD DSN=&&DEC5B15,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B15
1113 // DD DSN=&&FIL5B15,
// DISP=(SHR,PASS)
1114 //COP5B16 DD DSN=&&DEC5B16,
// DISP=(SHR,PASS)
1115 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B16,
// DISP=(SHR,PASS)
1116 // DD DSN=&&DEC5B16,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B16
1117 // DD DSN=&&FIL5B16,
// DISP=(SHR,PASS)
1118 //COP5B17 DD DSN=&&DEC5B17,
// DISP=(SHR,PASS)
1119 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B17,
// DISP=(SHR,PASS)
1120 // DD DSN=&&DEC5B17,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B17
1121 // DD DSN=&&FIL5B17,
// DISP=(SHR,PASS)
1122 //COP5B18 DD DSN=&&DEC5B18,
// DISP=(SHR,PASS)
1123 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B18,
// DISP=(SHR,PASS)
1124 // DD DSN=&&DEC5B18,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B18
1125 // DD DSN=&&FIL5B18,
// DISP=(SHR,PASS)
1126 //COP5B19 DD DSN=&&DEC5B19,
// DISP=(SHR,PASS)
1127 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B19,
// DISP=(SHR,PASS)
1128 // DD DSN=&&DEC5B19,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B19
1129 // DD DSN=&&FIL5B19,
// DISP=(SHR,PASS)
1130 //COPHB1 DD DSN=&&DECHB1,
// DISP=(SHR,PASS)
1131 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1,
// DISP=(SHR,PASS)
1132 // DD DSN=&&DECHB1,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1
1133 // DD DSN=&&FILHB1,
// DISP=(SHR,PASS)
1134 //COPHB1A DD DSN=&&DECHB1A,
// DISP=(SHR,PASS)
1135 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1A,
// DISP=(SHR,PASS)
1136 // DD DSN=&&DECHB1A,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1A
1137 // DD DSN=&&FILHB1A,
// DISP=(SHR,PASS)
1138 //COPHB1B DD DSN=&&DECHB1B,
// DISP=(SHR,PASS)
1139 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1B,
// DISP=(SHR,PASS)
1140 // DD DSN=&&DECHB1B,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1B
1141 // DD DSN=&&FILHB1B,
// DISP=(SHR,PASS)
1142 //COPHB1C DD DSN=&&DECHB1C,
// DISP=(SHR,PASS)
1143 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1C,
// DISP=(SHR,PASS)
1144 // DD DSN=&&DECHB1C,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1C
1145 // DD DSN=&&FILHB1C,
// DISP=(SHR,PASS)
1146 //COPHB1D DD DSN=&&DECHB1D,
// DISP=(SHR,PASS)
1147 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1D,
// DISP=(SHR,PASS)
1148 // DD DSN=&&DECHB1D,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1D
1149 // DD DSN=&&FILHB1D,
// DISP=(SHR,PASS)
1150 //COPHB1E DD DSN=&&DECHB1E,
// DISP=(SHR,PASS)
1151 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1E,
// DISP=(SHR,PASS)
1152 // DD DSN=&&DECHB1E,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1E
1153 // DD DSN=&&FILHB1E,
// DISP=(SHR,PASS)
1154 //COPHB1F DD DSN=&&DECHB1F,
// DISP=(SHR,PASS)
1155 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1F,
// DISP=(SHR,PASS)
1156 // DD DSN=&&DECHB1F,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1F
1157 // DD DSN=&&FILHB1F,
// DISP=(SHR,PASS)
1158 //COPHB1G DD DSN=&&DECHB1G,
// DISP=(SHR,PASS)
1159 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1G,
// DISP=(SHR,PASS)
1160 // DD DSN=&&DECHB1G,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1G
1161 // DD DSN=&&FILHB1G,
// DISP=(SHR,PASS)
1162 //COPHB1H DD DSN=&&DECHB1H,
// DISP=(SHR,PASS)
1163 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1H,
// DISP=(SHR,PASS)
1164 // DD DSN=&&DECHB1H,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1H
1165 // DD DSN=&&FILHB1H,
// DISP=(SHR,PASS)
1166 //COPHB1I DD DSN=&&DECHB1I,
// DISP=(SHR,PASS)
1167 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1I,
// DISP=(SHR,PASS)
1168 // DD DSN=&&DECHB1I,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1I
1169 // DD DSN=&&FILHB1I,
// DISP=(SHR,PASS)
1170 //COPHB1J DD DSN=&&DECHB1J,
// DISP=(SHR,PASS)
1171 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1J,
// DISP=(SHR,PASS)
1172 // DD DSN=&&DECHB1J,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1J
1173 // DD DSN=&&FILHB1J,
// DISP=(SHR,PASS)
1174 //COPHB1K DD DSN=&&DECHB1K,
// DISP=(SHR,PASS)
1175 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1K,
// DISP=(SHR,PASS)
1176 // DD DSN=&&DECHB1K,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1K
1177 // DD DSN=&&FILHB1K,
// DISP=(SHR,PASS)
1178 //COPHB1L DD DSN=&&DECHB1L,
// DISP=(SHR,PASS)
1179 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1L,
// DISP=(SHR,PASS)
1180 // DD DSN=&&DECHB1L,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1L
1181 // DD DSN=&&FILHB1L,
// DISP=(SHR,PASS)
1182 //COPHB1M DD DSN=&&DECHB1M,
// DISP=(SHR,PASS)
1183 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1M,
// DISP=(SHR,PASS)
1184 // DD DSN=&&DECHB1M,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1M
1185 // DD DSN=&&FILHB1M,
// DISP=(SHR,PASS)
1186 //COPHB1N DD DSN=&&DECHB1N,
// DISP=(SHR,PASS)
1187 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1N,
// DISP=(SHR,PASS)
1188 // DD DSN=&&DECHB1N,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1N
1189 // DD DSN=&&FILHB1N,
// DISP=(SHR,PASS)
1190 //COPHB1O DD DSN=&&DECHB1O,
// DISP=(SHR,PASS)
1191 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1O,
// DISP=(SHR,PASS)
1192 // DD DSN=&&DECHB1O,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1O
1193 // DD DSN=&&FILHB1O,
// DISP=(SHR,PASS)
1194 //COPHB1P DD DSN=&&DECHB1P,
// DISP=(SHR,PASS)
1195 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1P,
// DISP=(SHR,PASS)
1196 // DD DSN=&&DECHB1P,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1P
1197 // DD DSN=&&FILHB1P,
// DISP=(SHR,PASS)
1198 //COPHB1Q DD DSN=&&DECHB1Q,
// DISP=(SHR,PASS)
1199 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1Q,
// DISP=(SHR,PASS)
1200 // DD DSN=&&DECHB1Q,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1Q
1201 // DD DSN=&&FILHB1Q,
// DISP=(SHR,PASS)
1202 //COPHB1R DD DSN=&&DECHB1R,
// DISP=(SHR,PASS)
1203 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1R,
// DISP=(SHR,PASS)
1204 // DD DSN=&&DECHB1R,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1R
1205 // DD DSN=&&FILHB1R,
// DISP=(SHR,PASS)
1206 //COPHB1S DD DSN=&&DECHB1S,
// DISP=(SHR,PASS)
1207 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1S,
// DISP=(SHR,PASS)
1208 // DD DSN=&&DECHB1S,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1S
1209 // DD DSN=&&FILHB1S,
// DISP=(SHR,PASS)
1210 //COPHB1T DD DSN=&&DECHB1T,
// DISP=(SHR,PASS)
1211 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1T,
// DISP=(SHR,PASS)
1212 // DD DSN=&&DECHB1T,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1T
1213 // DD DSN=&&FILHB1T,
// DISP=(SHR,PASS)
1214 //COPHB1U DD DSN=&&DECHB1U,
// DISP=(SHR,PASS)
1215 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1U,
// DISP=(SHR,PASS)
1216 // DD DSN=&&DECHB1U,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1U
1217 // DD DSN=&&FILHB1U,
// DISP=(SHR,PASS)
1218 //COPHB1V DD DSN=&&DECHB1V,
// DISP=(SHR,PASS)
1219 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1V,
// DISP=(SHR,PASS)
1220 // DD DSN=&&DECHB1V,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1V
1221 // DD DSN=&&FILHB1V,
// DISP=(SHR,PASS)
1222 //COPHB1W DD DSN=&&DECHB1W,
// DISP=(SHR,PASS)
1223 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1W,
// DISP=(SHR,PASS)
1224 // DD DSN=&&DECHB1W,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1W
1225 // DD DSN=&&FILHB1W,
// DISP=(SHR,PASS)
1226 //COPHB1X DD DSN=&&DECHB1X,
// DISP=(SHR,PASS)
1227 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1X,
// DISP=(SHR,PASS)
1228 // DD DSN=&&DECHB1X,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1X
1229 // DD DSN=&&FILHB1X,
// DISP=(SHR,PASS)
1230 //COPHB1Y DD DSN=&&DECHB1Y,
// DISP=(SHR,PASS)
1231 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1Y,
// DISP=(SHR,PASS)
1232 // DD DSN=&&DECHB1Y,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1Y
1233 // DD DSN=&&FILHB1Y,
// DISP=(SHR,PASS)
1234 //COPHB1Z DD DSN=&&DECHB1Z,
// DISP=(SHR,PASS)
1235 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB1Z,
// DISP=(SHR,PASS)
1236 // DD DSN=&&DECHB1Z,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB1Z
1237 // DD DSN=&&FILHB1Z,
// DISP=(SHR,PASS)
1238 //COPHB10 DD DSN=&&DECHB10,
// DISP=(SHR,PASS)
1239 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB10,
// DISP=(SHR,PASS)
1240 // DD DSN=&&DECHB10,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB10
1241 // DD DSN=&&FILHB10,
// DISP=(SHR,PASS)
1242 //COPHB11 DD DSN=&&DECHB11,
// DISP=(SHR,PASS)
1243 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB11,
// DISP=(SHR,PASS)
1244 // DD DSN=&&DECHB11,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB11
1245 // DD DSN=&&FILHB11,
// DISP=(SHR,PASS)
1246 //COPHB12 DD DSN=&&DECHB12,
// DISP=(SHR,PASS)
1247 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB12,
// DISP=(SHR,PASS)
1248 // DD DSN=&&DECHB12,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB12
1249 // DD DSN=&&FILHB12,
// DISP=(SHR,PASS)
1250 //COPHB13 DD DSN=&&DECHB13,
// DISP=(SHR,PASS)
1251 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB13,
// DISP=(SHR,PASS)
1252 // DD DSN=&&DECHB13,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB13
1253 // DD DSN=&&FILHB13,
// DISP=(SHR,PASS)
1254 //COPHB14 DD DSN=&&DECHB14,
// DISP=(SHR,PASS)
1255 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB14,
// DISP=(SHR,PASS)
1256 // DD DSN=&&DECHB14,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB14
1257 // DD DSN=&&FILHB14,
// DISP=(SHR,PASS)
1258 //COPHB15 DD DSN=&&DECHB15,
// DISP=(SHR,PASS)
1259 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB15,
// DISP=(SHR,PASS)
1260 // DD DSN=&&DECHB15,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB15
1261 // DD DSN=&&FILHB15,
// DISP=(SHR,PASS)
1262 //COPHB16 DD DSN=&&DECHB16,
// DISP=(SHR,PASS)
1263 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB16,
// DISP=(SHR,PASS)
1264 // DD DSN=&&DECHB16,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB16
1265 // DD DSN=&&FILHB16,
// DISP=(SHR,PASS)
1266 //COPHB17 DD DSN=&&DECHB17,
// DISP=(SHR,PASS)
1267 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB17,
// DISP=(SHR,PASS)
1268 // DD DSN=&&DECHB17,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB17
1269 // DD DSN=&&FILHB17,
// DISP=(SHR,PASS)
1270 //COPHB18 DD DSN=&&DECHB18,
// DISP=(SHR,PASS)
1271 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB18,
// DISP=(SHR,PASS)
1272 // DD DSN=&&DECHB18,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB18
1273 // DD DSN=&&FILHB18,
// DISP=(SHR,PASS)
1274 //COPHB19 DD DSN=&&DECHB19,
// DISP=(SHR,PASS)
1275 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB19,
// DISP=(SHR,PASS)
1276 // DD DSN=&&DECHB19,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB19
1277 // DD DSN=&&FILHB19,
// DISP=(SHR,PASS)
1278 //COPHF1 DD DSN=&&DECHF1,
// DISP=(SHR,PASS)
1279 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHF1,
// DISP=(SHR,PASS)
1280 // DD DSN=&&DECHF1,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHF1
1281 // DD DSN=&&FILHF1,
// DISP=(SHR,PASS)
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X081
//* %%IF N EQ J
//* %%ENDIF
1282 //#TS#5B1 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1
1283 //#TS#5B1A DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1A
1284 //#TS#5B1B DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1B
1285 //#TS#5B1C DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1C
1286 //#TS#5B1D DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1D
1287 //#TS#5B1E DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1E
1288 //#TS#5B1F DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1F
1289 //#TS#5B1G DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1G
1290 //#TS#5B1H DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1H
1291 //#TS#5B1I DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1I
1292 //#TS#5B1J DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1J
1293 //#TS#5B1K DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1K
1294 //#TS#5B1L DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1L
1295 //#TS#5B1M DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1M
1296 //#TS#5B1N DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1N
1297 //#TS#5B1O DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1O
1298 //#TS#5B1P DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1P
1299 //#TS#5B1Q DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1Q
1300 //#TS#5B1R DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1R
1301 //#TS#5B1S DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1S
1302 //#TS#5B1T DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1T
1303 //#TS#5B1U DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1U
1304 //#TS#5B1V DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1V
1305 //#TS#5B1W DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1W
1306 //#TS#5B1X DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1X
1307 //#TS#5B1Y DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1Y
1308 //#TS#5B1Z DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B1Z
1309 //#TS#5B10 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B10
1310 //#TS#5B11 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B11
1311 //#TS#5B12 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B12
1312 //#TS#5B13 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B13
1313 //#TS#5B14 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B14
1314 //#TS#5B15 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B15
1315 //#TS#5B16 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B16
1316 //#TS#5B17 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B17
1317 //#TS#5B18 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B18
1318 //#TS#5B19 DD OUTPUT=*.OUT5X1,SYSOUT=1,
// DSN=&&#TS#5B19
1319 //#TS#4B1 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1
1320 //#TS#4B1A DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1A
1321 //#TS#4B1B DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1B
1322 //#TS#4B1C DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1C
1323 //#TS#4B1D DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1D
1324 //#TS#4B1E DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1E
1325 //#TS#4B1F DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1F
1326 //#TS#4B1G DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1G
1327 //#TS#4B1H DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1H
1328 //#TS#4B1I DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1I
1329 //#TS#4B1J DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1J
1330 //#TS#4B1K DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1K
1331 //#TS#4B1L DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1L
1332 //#TS#4B1M DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1M
1333 //#TS#4B1N DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1N
1334 //#TS#4B1O DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1O
1335 //#TS#4B1P DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1P
1336 //#TS#4B1Q DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1Q
1337 //#TS#4B1R DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1R
1338 //#TS#4B1S DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1S
1339 //#TS#4B1T DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1T
1340 //#TS#4B1U DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1U
1341 //#TS#4B1V DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1V
1342 //#TS#4B1W DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1W
1343 //#TS#4B1X DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1X
1344 //#TS#4B1Y DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1Y
1345 //#TS#4B1Z DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B1Z
1346 //#TS#4B10 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B10
1347 //#TS#4B11 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B11
1348 //#TS#4B12 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B12
1349 //#TS#4B13 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B13
1350 //#TS#4B14 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B14
1351 //#TS#4B15 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B15
1352 //#TS#4B16 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B16
1353 //#TS#4B17 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B17
1354 //#TS#4B18 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B18
1355 //#TS#4B19 DD OUTPUT=*.OUT4X1,SYSOUT=6,
// DSN=&&#TS#4B19
1356 //#TS#HB1 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1
1357 //#TS#HB1A DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1A
1358 //#TS#HB1B DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1B
1359 //#TS#HB1C DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1C
1360 //#TS#HB1D DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1D
1361 //#TS#HB1E DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1E
1362 //#TS#HB1F DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1F
1363 //#TS#HB1G DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1G
1364 //#TS#HB1H DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1H
1365 //#TS#HB1I DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1I
1366 //#TS#HB1J DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1J
1367 //#TS#HB1K DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1K
1368 //#TS#HB1L DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1L
1369 //#TS#HB1M DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1M
1370 //#TS#HB1N DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1N
1371 //#TS#HB1O DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1O
1372 //#TS#HB1P DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1P
1373 //#TS#HB1Q DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1Q
1374 //#TS#HB1R DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1R
1375 //#TS#HB1S DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1S
1376 //#TS#HB1T DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1T
1377 //#TS#HB1U DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1U
1378 //#TS#HB1V DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1V
1379 //#TS#HB1W DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1W
1380 //#TS#HB1X DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1X
1381 //#TS#HB1Y DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1Y
1382 //#TS#HB1Z DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB1Z
1383 //#TS#HB10 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB10
1384 //#TS#HB11 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB11
1385 //#TS#HB12 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB12
1386 //#TS#HB13 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB13
1387 //#TS#HB14 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB14
1388 //#TS#HB15 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB15
1389 //#TS#HB16 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB16
1390 //#TS#HB17 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB17
1391 //#TS#HB18 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB18
1392 //#TS#HB19 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HB19
1393 //#TS#HF1 DD OUTPUT=*.OUTHX1,SYSOUT=6,
// DSN=&&#TS#HF1
1394 // ENDIF
//*
//*-----------------------------------------------------
//*- COPY DECKBLATT & OUTPUT TO PRINTER (CHANNEL 2) -
//*-----------------------------------------------------
1395 // IF (RC EQ 0) THEN
1396 //COPY2### EXEC PGM=ICETOOL
//*
1397 //SYSPRINT DD SYSOUT=*
1398 //CEEDUMP DD SYSOUT=*
1399 //SYSABEND DD SYSOUT=*
//*
//*
1400 //TOOLMSG DD SYSOUT=*
1401 //DFSMSG DD SYSOUT=*
1402 //TOOLIN DD *
//*
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X062
1403 //OUT4X2 OUTPUT PRMODE=PAGE,
//* %%IF Y EQ Y
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//* %%ENDIF
// THRESHLD=1,
// FORMS=DUMM#A01,
// FORMDEF=DUMMY,
// PAGEDEF=DUMMY,
// DEST=ANYLOCAL
1404 //OUT5X2 OUTPUT PRMODE=PAGE,
//* %%IF Y EQ Y
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//* %%ENDIF
// THRESHLD=1,
// FORMS=WECU#A01,
// FORMDEF=C#GH1,
// PAGEDEF=PVWGR1,
// DEST=ANYLOCAL
1405 //OUTHX2 OUTPUT PRMODE=PAGE,
//* %%IF Y EQ Y
// USERLIB=(WGR.U0034.T0.AKT.AFPLIB),
//* %%ENDIF
// THRESHLD=1,
// FORMS=WECU#A01,
// FORMDEF=C#GH1,
// PAGEDEF=PVWGR1,
// DEST=ANYLOCAL
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X072
//* ATTENTION: VOL=REF= IS NEEDED BECAUSE THE SAME TEMPORARY DATASET
//* APPEARS TWICE UNDER THE SAME DDNAME
1406 //COP4B2 DD DSN=&&DEC4B2,
// DISP=(SHR,PASS)
1407 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2,
// DISP=(SHR,PASS)
1408 // DD DSN=&&DEC4B2,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2
1409 // DD DSN=&&FIL4B2,
// DISP=(SHR,PASS)
1410 //COP4B2A DD DSN=&&DEC4B2A,
// DISP=(SHR,PASS)
1411 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2A,
// DISP=(SHR,PASS)
1412 // DD DSN=&&DEC4B2A,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2A
1413 // DD DSN=&&FIL4B2A,
// DISP=(SHR,PASS)
1414 //COP4B2B DD DSN=&&DEC4B2B,
// DISP=(SHR,PASS)
1415 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2B,
// DISP=(SHR,PASS)
1416 // DD DSN=&&DEC4B2B,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2B
1417 // DD DSN=&&FIL4B2B,
// DISP=(SHR,PASS)
1418 //COP4B2C DD DSN=&&DEC4B2C,
// DISP=(SHR,PASS)
1419 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2C,
// DISP=(SHR,PASS)
1420 // DD DSN=&&DEC4B2C,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2C
1421 // DD DSN=&&FIL4B2C,
// DISP=(SHR,PASS)
1422 //COP4B2D DD DSN=&&DEC4B2D,
// DISP=(SHR,PASS)
1423 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2D,
// DISP=(SHR,PASS)
1424 // DD DSN=&&DEC4B2D,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2D
1425 // DD DSN=&&FIL4B2D,
// DISP=(SHR,PASS)
1426 //COP4B2E DD DSN=&&DEC4B2E,
// DISP=(SHR,PASS)
1427 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2E,
// DISP=(SHR,PASS)
1428 // DD DSN=&&DEC4B2E,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2E
1429 // DD DSN=&&FIL4B2E,
// DISP=(SHR,PASS)
1430 //COP4B2F DD DSN=&&DEC4B2F,
// DISP=(SHR,PASS)
1431 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2F,
// DISP=(SHR,PASS)
1432 // DD DSN=&&DEC4B2F,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2F
1433 // DD DSN=&&FIL4B2F,
// DISP=(SHR,PASS)
1434 //COP4B2G DD DSN=&&DEC4B2G,
// DISP=(SHR,PASS)
1435 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2G,
// DISP=(SHR,PASS)
1436 // DD DSN=&&DEC4B2G,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2G
1437 // DD DSN=&&FIL4B2G,
// DISP=(SHR,PASS)
1438 //COP4B2H DD DSN=&&DEC4B2H,
// DISP=(SHR,PASS)
1439 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2H,
// DISP=(SHR,PASS)
1440 // DD DSN=&&DEC4B2H,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2H
1441 // DD DSN=&&FIL4B2H,
// DISP=(SHR,PASS)
1442 //COP4B2I DD DSN=&&DEC4B2I,
// DISP=(SHR,PASS)
1443 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2I,
// DISP=(SHR,PASS)
1444 // DD DSN=&&DEC4B2I,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2I
1445 // DD DSN=&&FIL4B2I,
// DISP=(SHR,PASS)
1446 //COP4B2J DD DSN=&&DEC4B2J,
// DISP=(SHR,PASS)
1447 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2J,
// DISP=(SHR,PASS)
1448 // DD DSN=&&DEC4B2J,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2J
1449 // DD DSN=&&FIL4B2J,
// DISP=(SHR,PASS)
1450 //COP4B2K DD DSN=&&DEC4B2K,
// DISP=(SHR,PASS)
1451 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2K,
// DISP=(SHR,PASS)
1452 // DD DSN=&&DEC4B2K,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2K
1453 // DD DSN=&&FIL4B2K,
// DISP=(SHR,PASS)
1454 //COP4B2L DD DSN=&&DEC4B2L,
// DISP=(SHR,PASS)
1455 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2L,
// DISP=(SHR,PASS)
1456 // DD DSN=&&DEC4B2L,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2L
1457 // DD DSN=&&FIL4B2L,
// DISP=(SHR,PASS)
1458 //COP4B2M DD DSN=&&DEC4B2M,
// DISP=(SHR,PASS)
1459 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2M,
// DISP=(SHR,PASS)
1460 // DD DSN=&&DEC4B2M,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2M
1461 // DD DSN=&&FIL4B2M,
// DISP=(SHR,PASS)
1462 //COP4B2N DD DSN=&&DEC4B2N,
// DISP=(SHR,PASS)
1463 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2N,
// DISP=(SHR,PASS)
1464 // DD DSN=&&DEC4B2N,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2N
1465 // DD DSN=&&FIL4B2N,
// DISP=(SHR,PASS)
1466 //COP4B2O DD DSN=&&DEC4B2O,
// DISP=(SHR,PASS)
1467 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2O,
// DISP=(SHR,PASS)
1468 // DD DSN=&&DEC4B2O,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2O
1469 // DD DSN=&&FIL4B2O,
// DISP=(SHR,PASS)
1470 //COP4B2P DD DSN=&&DEC4B2P,
// DISP=(SHR,PASS)
1471 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2P,
// DISP=(SHR,PASS)
1472 // DD DSN=&&DEC4B2P,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2P
1473 // DD DSN=&&FIL4B2P,
// DISP=(SHR,PASS)
1474 //COP4B2Q DD DSN=&&DEC4B2Q,
// DISP=(SHR,PASS)
1475 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2Q,
// DISP=(SHR,PASS)
1476 // DD DSN=&&DEC4B2Q,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2Q
1477 // DD DSN=&&FIL4B2Q,
// DISP=(SHR,PASS)
1478 //COP4B2R DD DSN=&&DEC4B2R,
// DISP=(SHR,PASS)
1479 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2R,
// DISP=(SHR,PASS)
1480 // DD DSN=&&DEC4B2R,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2R
1481 // DD DSN=&&FIL4B2R,
// DISP=(SHR,PASS)
1482 //COP4B2S DD DSN=&&DEC4B2S,
// DISP=(SHR,PASS)
1483 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2S,
// DISP=(SHR,PASS)
1484 // DD DSN=&&DEC4B2S,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2S
1485 // DD DSN=&&FIL4B2S,
// DISP=(SHR,PASS)
1486 //COP4B2T DD DSN=&&DEC4B2T,
// DISP=(SHR,PASS)
1487 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2T,
// DISP=(SHR,PASS)
1488 // DD DSN=&&DEC4B2T,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2T
1489 // DD DSN=&&FIL4B2T,
// DISP=(SHR,PASS)
1490 //COP4B2U DD DSN=&&DEC4B2U,
// DISP=(SHR,PASS)
1491 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2U,
// DISP=(SHR,PASS)
1492 // DD DSN=&&DEC4B2U,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2U
1493 // DD DSN=&&FIL4B2U,
// DISP=(SHR,PASS)
1494 //COP4B2V DD DSN=&&DEC4B2V,
// DISP=(SHR,PASS)
1495 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2V,
// DISP=(SHR,PASS)
1496 // DD DSN=&&DEC4B2V,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2V
1497 // DD DSN=&&FIL4B2V,
// DISP=(SHR,PASS)
1498 //COP4B2W DD DSN=&&DEC4B2W,
// DISP=(SHR,PASS)
1499 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2W,
// DISP=(SHR,PASS)
1500 // DD DSN=&&DEC4B2W,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2W
1501 // DD DSN=&&FIL4B2W,
// DISP=(SHR,PASS)
1502 //COP4B2X DD DSN=&&DEC4B2X,
// DISP=(SHR,PASS)
1503 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2X,
// DISP=(SHR,PASS)
1504 // DD DSN=&&DEC4B2X,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2X
1505 // DD DSN=&&FIL4B2X,
// DISP=(SHR,PASS)
1506 //COP4B2Y DD DSN=&&DEC4B2Y,
// DISP=(SHR,PASS)
1507 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2Y,
// DISP=(SHR,PASS)
1508 // DD DSN=&&DEC4B2Y,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2Y
1509 // DD DSN=&&FIL4B2Y,
// DISP=(SHR,PASS)
1510 //COP4B2Z DD DSN=&&DEC4B2Z,
// DISP=(SHR,PASS)
1511 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B2Z,
// DISP=(SHR,PASS)
1512 // DD DSN=&&DEC4B2Z,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B2Z
1513 // DD DSN=&&FIL4B2Z,
// DISP=(SHR,PASS)
1514 //COP4B20 DD DSN=&&DEC4B20,
// DISP=(SHR,PASS)
1515 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B20,
// DISP=(SHR,PASS)
1516 // DD DSN=&&DEC4B20,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B20
1517 // DD DSN=&&FIL4B20,
// DISP=(SHR,PASS)
1518 //COP4B21 DD DSN=&&DEC4B21,
// DISP=(SHR,PASS)
1519 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B21,
// DISP=(SHR,PASS)
1520 // DD DSN=&&DEC4B21,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B21
1521 // DD DSN=&&FIL4B21,
// DISP=(SHR,PASS)
1522 //COP4B22 DD DSN=&&DEC4B22,
// DISP=(SHR,PASS)
1523 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B22,
// DISP=(SHR,PASS)
1524 // DD DSN=&&DEC4B22,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B22
1525 // DD DSN=&&FIL4B22,
// DISP=(SHR,PASS)
1526 //COP4B23 DD DSN=&&DEC4B23,
// DISP=(SHR,PASS)
1527 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B23,
// DISP=(SHR,PASS)
1528 // DD DSN=&&DEC4B23,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B23
1529 // DD DSN=&&FIL4B23,
// DISP=(SHR,PASS)
1530 //COP4B24 DD DSN=&&DEC4B24,
// DISP=(SHR,PASS)
1531 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B24,
// DISP=(SHR,PASS)
1532 // DD DSN=&&DEC4B24,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B24
1533 // DD DSN=&&FIL4B24,
// DISP=(SHR,PASS)
1534 //COP4B25 DD DSN=&&DEC4B25,
// DISP=(SHR,PASS)
1535 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B25,
// DISP=(SHR,PASS)
1536 // DD DSN=&&DEC4B25,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B25
1537 // DD DSN=&&FIL4B25,
// DISP=(SHR,PASS)
1538 //COP4B26 DD DSN=&&DEC4B26,
// DISP=(SHR,PASS)
1539 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B26,
// DISP=(SHR,PASS)
1540 // DD DSN=&&DEC4B26,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B26
1541 // DD DSN=&&FIL4B26,
// DISP=(SHR,PASS)
1542 //COP4B27 DD DSN=&&DEC4B27,
// DISP=(SHR,PASS)
1543 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B27,
// DISP=(SHR,PASS)
1544 // DD DSN=&&DEC4B27,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B27
1545 // DD DSN=&&FIL4B27,
// DISP=(SHR,PASS)
1546 //COP4B28 DD DSN=&&DEC4B28,
// DISP=(SHR,PASS)
1547 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B28,
// DISP=(SHR,PASS)
1548 // DD DSN=&&DEC4B28,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B28
1549 // DD DSN=&&FIL4B28,
// DISP=(SHR,PASS)
1550 //COP4B29 DD DSN=&&DEC4B29,
// DISP=(SHR,PASS)
1551 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS4B29,
// DISP=(SHR,PASS)
1552 // DD DSN=&&DEC4B29,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC4B29
1553 // DD DSN=&&FIL4B29,
// DISP=(SHR,PASS)
1554 //COP5B2 DD DSN=&&DEC5B2,
// DISP=(SHR,PASS)
1555 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2,
// DISP=(SHR,PASS)
1556 // DD DSN=&&DEC5B2,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2
1557 // DD DSN=&&FIL5B2,
// DISP=(SHR,PASS)
1558 //COP5B2A DD DSN=&&DEC5B2A,
// DISP=(SHR,PASS)
1559 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2A,
// DISP=(SHR,PASS)
1560 // DD DSN=&&DEC5B2A,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2A
1561 // DD DSN=&&FIL5B2A,
// DISP=(SHR,PASS)
1562 //COP5B2B DD DSN=&&DEC5B2B,
// DISP=(SHR,PASS)
1563 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2B,
// DISP=(SHR,PASS)
1564 // DD DSN=&&DEC5B2B,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2B
1565 // DD DSN=&&FIL5B2B,
// DISP=(SHR,PASS)
1566 //COP5B2C DD DSN=&&DEC5B2C,
// DISP=(SHR,PASS)
1567 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2C,
// DISP=(SHR,PASS)
1568 // DD DSN=&&DEC5B2C,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2C
1569 // DD DSN=&&FIL5B2C,
// DISP=(SHR,PASS)
1570 //COP5B2D DD DSN=&&DEC5B2D,
// DISP=(SHR,PASS)
1571 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2D,
// DISP=(SHR,PASS)
1572 // DD DSN=&&DEC5B2D,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2D
1573 // DD DSN=&&FIL5B2D,
// DISP=(SHR,PASS)
1574 //COP5B2E DD DSN=&&DEC5B2E,
// DISP=(SHR,PASS)
1575 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2E,
// DISP=(SHR,PASS)
1576 // DD DSN=&&DEC5B2E,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2E
1577 // DD DSN=&&FIL5B2E,
// DISP=(SHR,PASS)
1578 //COP5B2F DD DSN=&&DEC5B2F,
// DISP=(SHR,PASS)
1579 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2F,
// DISP=(SHR,PASS)
1580 // DD DSN=&&DEC5B2F,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2F
1581 // DD DSN=&&FIL5B2F,
// DISP=(SHR,PASS)
1582 //COP5B2G DD DSN=&&DEC5B2G,
// DISP=(SHR,PASS)
1583 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2G,
// DISP=(SHR,PASS)
1584 // DD DSN=&&DEC5B2G,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2G
1585 // DD DSN=&&FIL5B2G,
// DISP=(SHR,PASS)
1586 //COP5B2H DD DSN=&&DEC5B2H,
// DISP=(SHR,PASS)
1587 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2H,
// DISP=(SHR,PASS)
1588 // DD DSN=&&DEC5B2H,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2H
1589 // DD DSN=&&FIL5B2H,
// DISP=(SHR,PASS)
1590 //COP5B2I DD DSN=&&DEC5B2I,
// DISP=(SHR,PASS)
1591 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2I,
// DISP=(SHR,PASS)
1592 // DD DSN=&&DEC5B2I,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2I
1593 // DD DSN=&&FIL5B2I,
// DISP=(SHR,PASS)
1594 //COP5B2J DD DSN=&&DEC5B2J,
// DISP=(SHR,PASS)
1595 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2J,
// DISP=(SHR,PASS)
1596 // DD DSN=&&DEC5B2J,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2J
1597 // DD DSN=&&FIL5B2J,
// DISP=(SHR,PASS)
1598 //COP5B2K DD DSN=&&DEC5B2K,
// DISP=(SHR,PASS)
1599 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2K,
// DISP=(SHR,PASS)
1600 // DD DSN=&&DEC5B2K,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2K
1601 // DD DSN=&&FIL5B2K,
// DISP=(SHR,PASS)
1602 //COP5B2L DD DSN=&&DEC5B2L,
// DISP=(SHR,PASS)
1603 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2L,
// DISP=(SHR,PASS)
1604 // DD DSN=&&DEC5B2L,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2L
1605 // DD DSN=&&FIL5B2L,
// DISP=(SHR,PASS)
1606 //COP5B2M DD DSN=&&DEC5B2M,
// DISP=(SHR,PASS)
1607 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2M,
// DISP=(SHR,PASS)
1608 // DD DSN=&&DEC5B2M,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2M
1609 // DD DSN=&&FIL5B2M,
// DISP=(SHR,PASS)
1610 //COP5B2N DD DSN=&&DEC5B2N,
// DISP=(SHR,PASS)
1611 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2N,
// DISP=(SHR,PASS)
1612 // DD DSN=&&DEC5B2N,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2N
1613 // DD DSN=&&FIL5B2N,
// DISP=(SHR,PASS)
1614 //COP5B2O DD DSN=&&DEC5B2O,
// DISP=(SHR,PASS)
1615 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2O,
// DISP=(SHR,PASS)
1616 // DD DSN=&&DEC5B2O,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2O
1617 // DD DSN=&&FIL5B2O,
// DISP=(SHR,PASS)
1618 //COP5B2P DD DSN=&&DEC5B2P,
// DISP=(SHR,PASS)
1619 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2P,
// DISP=(SHR,PASS)
1620 // DD DSN=&&DEC5B2P,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2P
1621 // DD DSN=&&FIL5B2P,
// DISP=(SHR,PASS)
1622 //COP5B2Q DD DSN=&&DEC5B2Q,
// DISP=(SHR,PASS)
1623 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2Q,
// DISP=(SHR,PASS)
1624 // DD DSN=&&DEC5B2Q,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2Q
1625 // DD DSN=&&FIL5B2Q,
// DISP=(SHR,PASS)
1626 //COP5B2R DD DSN=&&DEC5B2R,
// DISP=(SHR,PASS)
1627 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2R,
// DISP=(SHR,PASS)
1628 // DD DSN=&&DEC5B2R,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2R
1629 // DD DSN=&&FIL5B2R,
// DISP=(SHR,PASS)
1630 //COP5B2S DD DSN=&&DEC5B2S,
// DISP=(SHR,PASS)
1631 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2S,
// DISP=(SHR,PASS)
1632 // DD DSN=&&DEC5B2S,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2S
1633 // DD DSN=&&FIL5B2S,
// DISP=(SHR,PASS)
1634 //COP5B2T DD DSN=&&DEC5B2T,
// DISP=(SHR,PASS)
1635 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2T,
// DISP=(SHR,PASS)
1636 // DD DSN=&&DEC5B2T,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2T
1637 // DD DSN=&&FIL5B2T,
// DISP=(SHR,PASS)
1638 //COP5B2U DD DSN=&&DEC5B2U,
// DISP=(SHR,PASS)
1639 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2U,
// DISP=(SHR,PASS)
1640 // DD DSN=&&DEC5B2U,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2U
1641 // DD DSN=&&FIL5B2U,
// DISP=(SHR,PASS)
1642 //COP5B2V DD DSN=&&DEC5B2V,
// DISP=(SHR,PASS)
1643 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2V,
// DISP=(SHR,PASS)
1644 // DD DSN=&&DEC5B2V,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2V
1645 // DD DSN=&&FIL5B2V,
// DISP=(SHR,PASS)
1646 //COP5B2W DD DSN=&&DEC5B2W,
// DISP=(SHR,PASS)
1647 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2W,
// DISP=(SHR,PASS)
1648 // DD DSN=&&DEC5B2W,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2W
1649 // DD DSN=&&FIL5B2W,
// DISP=(SHR,PASS)
1650 //COP5B2X DD DSN=&&DEC5B2X,
// DISP=(SHR,PASS)
1651 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2X,
// DISP=(SHR,PASS)
1652 // DD DSN=&&DEC5B2X,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2X
1653 // DD DSN=&&FIL5B2X,
// DISP=(SHR,PASS)
1654 //COP5B2Y DD DSN=&&DEC5B2Y,
// DISP=(SHR,PASS)
1655 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2Y,
// DISP=(SHR,PASS)
1656 // DD DSN=&&DEC5B2Y,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2Y
1657 // DD DSN=&&FIL5B2Y,
// DISP=(SHR,PASS)
1658 //COP5B2Z DD DSN=&&DEC5B2Z,
// DISP=(SHR,PASS)
1659 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B2Z,
// DISP=(SHR,PASS)
1660 // DD DSN=&&DEC5B2Z,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B2Z
1661 // DD DSN=&&FIL5B2Z,
// DISP=(SHR,PASS)
1662 //COP5B20 DD DSN=&&DEC5B20,
// DISP=(SHR,PASS)
1663 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B20,
// DISP=(SHR,PASS)
1664 // DD DSN=&&DEC5B20,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B20
1665 // DD DSN=&&FIL5B20,
// DISP=(SHR,PASS)
1666 //COP5B21 DD DSN=&&DEC5B21,
// DISP=(SHR,PASS)
1667 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B21,
// DISP=(SHR,PASS)
1668 // DD DSN=&&DEC5B21,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B21
1669 // DD DSN=&&FIL5B21,
// DISP=(SHR,PASS)
1670 //COP5B22 DD DSN=&&DEC5B22,
// DISP=(SHR,PASS)
1671 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B22,
// DISP=(SHR,PASS)
1672 // DD DSN=&&DEC5B22,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B22
1673 // DD DSN=&&FIL5B22,
// DISP=(SHR,PASS)
1674 //COP5B23 DD DSN=&&DEC5B23,
// DISP=(SHR,PASS)
1675 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B23,
// DISP=(SHR,PASS)
1676 // DD DSN=&&DEC5B23,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B23
1677 // DD DSN=&&FIL5B23,
// DISP=(SHR,PASS)
1678 //COP5B24 DD DSN=&&DEC5B24,
// DISP=(SHR,PASS)
1679 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B24,
// DISP=(SHR,PASS)
1680 // DD DSN=&&DEC5B24,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B24
1681 // DD DSN=&&FIL5B24,
// DISP=(SHR,PASS)
1682 //COP5B25 DD DSN=&&DEC5B25,
// DISP=(SHR,PASS)
1683 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B25,
// DISP=(SHR,PASS)
1684 // DD DSN=&&DEC5B25,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B25
1685 // DD DSN=&&FIL5B25,
// DISP=(SHR,PASS)
1686 //COP5B26 DD DSN=&&DEC5B26,
// DISP=(SHR,PASS)
1687 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B26,
// DISP=(SHR,PASS)
1688 // DD DSN=&&DEC5B26,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B26
1689 // DD DSN=&&FIL5B26,
// DISP=(SHR,PASS)
1690 //COP5B27 DD DSN=&&DEC5B27,
// DISP=(SHR,PASS)
1691 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B27,
// DISP=(SHR,PASS)
1692 // DD DSN=&&DEC5B27,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B27
1693 // DD DSN=&&FIL5B27,
// DISP=(SHR,PASS)
1694 //COP5B28 DD DSN=&&DEC5B28,
// DISP=(SHR,PASS)
1695 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B28,
// DISP=(SHR,PASS)
1696 // DD DSN=&&DEC5B28,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B28
1697 // DD DSN=&&FIL5B28,
// DISP=(SHR,PASS)
1698 //COP5B29 DD DSN=&&DEC5B29,
// DISP=(SHR,PASS)
1699 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUS5B29,
// DISP=(SHR,PASS)
1700 // DD DSN=&&DEC5B29,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DEC5B29
1701 // DD DSN=&&FIL5B29,
// DISP=(SHR,PASS)
1702 //COPHB2 DD DSN=&&DECHB2,
// DISP=(SHR,PASS)
1703 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2,
// DISP=(SHR,PASS)
1704 // DD DSN=&&DECHB2,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2
1705 // DD DSN=&&FILHB2,
// DISP=(SHR,PASS)
1706 //COPHB2A DD DSN=&&DECHB2A,
// DISP=(SHR,PASS)
1707 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2A,
// DISP=(SHR,PASS)
1708 // DD DSN=&&DECHB2A,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2A
1709 // DD DSN=&&FILHB2A,
// DISP=(SHR,PASS)
1710 //COPHB2B DD DSN=&&DECHB2B,
// DISP=(SHR,PASS)
1711 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2B,
// DISP=(SHR,PASS)
1712 // DD DSN=&&DECHB2B,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2B
1713 // DD DSN=&&FILHB2B,
// DISP=(SHR,PASS)
1714 //COPHB2C DD DSN=&&DECHB2C,
// DISP=(SHR,PASS)
1715 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2C,
// DISP=(SHR,PASS)
1716 // DD DSN=&&DECHB2C,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2C
1717 // DD DSN=&&FILHB2C,
// DISP=(SHR,PASS)
1718 //COPHB2D DD DSN=&&DECHB2D,
// DISP=(SHR,PASS)
1719 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2D,
// DISP=(SHR,PASS)
1720 // DD DSN=&&DECHB2D,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2D
1721 // DD DSN=&&FILHB2D,
// DISP=(SHR,PASS)
1722 //COPHB2E DD DSN=&&DECHB2E,
// DISP=(SHR,PASS)
1723 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2E,
// DISP=(SHR,PASS)
1724 // DD DSN=&&DECHB2E,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2E
1725 // DD DSN=&&FILHB2E,
// DISP=(SHR,PASS)
1726 //COPHB2F DD DSN=&&DECHB2F,
// DISP=(SHR,PASS)
1727 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2F,
// DISP=(SHR,PASS)
1728 // DD DSN=&&DECHB2F,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2F
1729 // DD DSN=&&FILHB2F,
// DISP=(SHR,PASS)
1730 //COPHB2G DD DSN=&&DECHB2G,
// DISP=(SHR,PASS)
1731 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2G,
// DISP=(SHR,PASS)
1732 // DD DSN=&&DECHB2G,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2G
1733 // DD DSN=&&FILHB2G,
// DISP=(SHR,PASS)
1734 //COPHB2H DD DSN=&&DECHB2H,
// DISP=(SHR,PASS)
1735 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2H,
// DISP=(SHR,PASS)
1736 // DD DSN=&&DECHB2H,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2H
1737 // DD DSN=&&FILHB2H,
// DISP=(SHR,PASS)
1738 //COPHB2I DD DSN=&&DECHB2I,
// DISP=(SHR,PASS)
1739 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2I,
// DISP=(SHR,PASS)
1740 // DD DSN=&&DECHB2I,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2I
1741 // DD DSN=&&FILHB2I,
// DISP=(SHR,PASS)
1742 //COPHB2J DD DSN=&&DECHB2J,
// DISP=(SHR,PASS)
1743 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2J,
// DISP=(SHR,PASS)
1744 // DD DSN=&&DECHB2J,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2J
1745 // DD DSN=&&FILHB2J,
// DISP=(SHR,PASS)
1746 //COPHB2K DD DSN=&&DECHB2K,
// DISP=(SHR,PASS)
1747 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2K,
// DISP=(SHR,PASS)
1748 // DD DSN=&&DECHB2K,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2K
1749 // DD DSN=&&FILHB2K,
// DISP=(SHR,PASS)
1750 //COPHB2L DD DSN=&&DECHB2L,
// DISP=(SHR,PASS)
1751 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2L,
// DISP=(SHR,PASS)
1752 // DD DSN=&&DECHB2L,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2L
1753 // DD DSN=&&FILHB2L,
// DISP=(SHR,PASS)
1754 //COPHB2M DD DSN=&&DECHB2M,
// DISP=(SHR,PASS)
1755 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2M,
// DISP=(SHR,PASS)
1756 // DD DSN=&&DECHB2M,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2M
1757 // DD DSN=&&FILHB2M,
// DISP=(SHR,PASS)
1758 //COPHB2N DD DSN=&&DECHB2N,
// DISP=(SHR,PASS)
1759 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2N,
// DISP=(SHR,PASS)
1760 // DD DSN=&&DECHB2N,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2N
1761 // DD DSN=&&FILHB2N,
// DISP=(SHR,PASS)
1762 //COPHB2O DD DSN=&&DECHB2O,
// DISP=(SHR,PASS)
1763 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2O,
// DISP=(SHR,PASS)
1764 // DD DSN=&&DECHB2O,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2O
1765 // DD DSN=&&FILHB2O,
// DISP=(SHR,PASS)
1766 //COPHB2P DD DSN=&&DECHB2P,
// DISP=(SHR,PASS)
1767 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2P,
// DISP=(SHR,PASS)
1768 // DD DSN=&&DECHB2P,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2P
1769 // DD DSN=&&FILHB2P,
// DISP=(SHR,PASS)
1770 //COPHB2Q DD DSN=&&DECHB2Q,
// DISP=(SHR,PASS)
1771 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2Q,
// DISP=(SHR,PASS)
1772 // DD DSN=&&DECHB2Q,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2Q
1773 // DD DSN=&&FILHB2Q,
// DISP=(SHR,PASS)
1774 //COPHB2R DD DSN=&&DECHB2R,
// DISP=(SHR,PASS)
1775 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2R,
// DISP=(SHR,PASS)
1776 // DD DSN=&&DECHB2R,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2R
1777 // DD DSN=&&FILHB2R,
// DISP=(SHR,PASS)
1778 //COPHB2S DD DSN=&&DECHB2S,
// DISP=(SHR,PASS)
1779 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2S,
// DISP=(SHR,PASS)
1780 // DD DSN=&&DECHB2S,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2S
1781 // DD DSN=&&FILHB2S,
// DISP=(SHR,PASS)
1782 //COPHB2T DD DSN=&&DECHB2T,
// DISP=(SHR,PASS)
1783 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2T,
// DISP=(SHR,PASS)
1784 // DD DSN=&&DECHB2T,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2T
1785 // DD DSN=&&FILHB2T,
// DISP=(SHR,PASS)
1786 //COPHB2U DD DSN=&&DECHB2U,
// DISP=(SHR,PASS)
1787 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2U,
// DISP=(SHR,PASS)
1788 // DD DSN=&&DECHB2U,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2U
1789 // DD DSN=&&FILHB2U,
// DISP=(SHR,PASS)
1790 //COPHB2V DD DSN=&&DECHB2V,
// DISP=(SHR,PASS)
1791 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2V,
// DISP=(SHR,PASS)
1792 // DD DSN=&&DECHB2V,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2V
1793 // DD DSN=&&FILHB2V,
// DISP=(SHR,PASS)
1794 //COPHB2W DD DSN=&&DECHB2W,
// DISP=(SHR,PASS)
1795 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2W,
// DISP=(SHR,PASS)
1796 // DD DSN=&&DECHB2W,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2W
1797 // DD DSN=&&FILHB2W,
// DISP=(SHR,PASS)
1798 //COPHB2X DD DSN=&&DECHB2X,
// DISP=(SHR,PASS)
1799 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2X,
// DISP=(SHR,PASS)
1800 // DD DSN=&&DECHB2X,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2X
1801 // DD DSN=&&FILHB2X,
// DISP=(SHR,PASS)
1802 //COPHB2Y DD DSN=&&DECHB2Y,
// DISP=(SHR,PASS)
1803 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2Y,
// DISP=(SHR,PASS)
1804 // DD DSN=&&DECHB2Y,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2Y
1805 // DD DSN=&&FILHB2Y,
// DISP=(SHR,PASS)
1806 //COPHB2Z DD DSN=&&DECHB2Z,
// DISP=(SHR,PASS)
1807 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB2Z,
// DISP=(SHR,PASS)
1808 // DD DSN=&&DECHB2Z,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB2Z
1809 // DD DSN=&&FILHB2Z,
// DISP=(SHR,PASS)
1810 //COPHB20 DD DSN=&&DECHB20,
// DISP=(SHR,PASS)
1811 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB20,
// DISP=(SHR,PASS)
1812 // DD DSN=&&DECHB20,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB20
1813 // DD DSN=&&FILHB20,
// DISP=(SHR,PASS)
1814 //COPHB21 DD DSN=&&DECHB21,
// DISP=(SHR,PASS)
1815 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB21,
// DISP=(SHR,PASS)
1816 // DD DSN=&&DECHB21,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB21
1817 // DD DSN=&&FILHB21,
// DISP=(SHR,PASS)
1818 //COPHB22 DD DSN=&&DECHB22,
// DISP=(SHR,PASS)
1819 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB22,
// DISP=(SHR,PASS)
1820 // DD DSN=&&DECHB22,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB22
1821 // DD DSN=&&FILHB22,
// DISP=(SHR,PASS)
1822 //COPHB23 DD DSN=&&DECHB23,
// DISP=(SHR,PASS)
1823 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB23,
// DISP=(SHR,PASS)
1824 // DD DSN=&&DECHB23,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB23
1825 // DD DSN=&&FILHB23,
// DISP=(SHR,PASS)
1826 //COPHB24 DD DSN=&&DECHB24,
// DISP=(SHR,PASS)
1827 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB24,
// DISP=(SHR,PASS)
1828 // DD DSN=&&DECHB24,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB24
1829 // DD DSN=&&FILHB24,
// DISP=(SHR,PASS)
1830 //COPHB25 DD DSN=&&DECHB25,
// DISP=(SHR,PASS)
1831 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB25,
// DISP=(SHR,PASS)
1832 // DD DSN=&&DECHB25,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB25
1833 // DD DSN=&&FILHB25,
// DISP=(SHR,PASS)
1834 //COPHB26 DD DSN=&&DECHB26,
// DISP=(SHR,PASS)
1835 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB26,
// DISP=(SHR,PASS)
1836 // DD DSN=&&DECHB26,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB26
1837 // DD DSN=&&FILHB26,
// DISP=(SHR,PASS)
1838 //COPHB27 DD DSN=&&DECHB27,
// DISP=(SHR,PASS)
1839 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB27,
// DISP=(SHR,PASS)
1840 // DD DSN=&&DECHB27,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB27
1841 // DD DSN=&&FILHB27,
// DISP=(SHR,PASS)
1842 //COPHB28 DD DSN=&&DECHB28,
// DISP=(SHR,PASS)
1843 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB28,
// DISP=(SHR,PASS)
1844 // DD DSN=&&DECHB28,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB28
1845 // DD DSN=&&FILHB28,
// DISP=(SHR,PASS)
1846 //COPHB29 DD DSN=&&DECHB29,
// DISP=(SHR,PASS)
1847 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHB29,
// DISP=(SHR,PASS)
1848 // DD DSN=&&DECHB29,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHB29
1849 // DD DSN=&&FILHB29,
// DISP=(SHR,PASS)
1850 //COPHF2 DD DSN=&&DECHF2,
// DISP=(SHR,PASS)
1851 // DD DSN=PVSO.RZ1.T0.TS3S5861.D05276.T163307.AUSHF2,
// DISP=(SHR,PASS)
1852 // DD DSN=&&DECHF2,
// DISP=(SHR,PASS),
// VOL=REF=*.DECKBLAT.DECHF2
1853 // DD DSN=&&FILHF2,
// DISP=(SHR,PASS)
//* %%INCLIB PVSO.RZ1.T0.TS0S5861.D05276.T163307.DIV %%INCMEM INC#X082
//* %%IF N EQ J
//* %%ENDIF
1854 //#TS#5B2 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2
1855 //#TS#5B2A DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2A
1856 //#TS#5B2B DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2B
1857 //#TS#5B2C DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2C
1858 //#TS#5B2D DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2D
1859 //#TS#5B2E DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2E
1860 //#TS#5B2F DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2F
1861 //#TS#5B2G DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2G
1862 //#TS#5B2H DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2H
1863 //#TS#5B2I DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2I
1864 //#TS#5B2J DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2J
1865 //#TS#5B2K DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2K
1866 //#TS#5B2L DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2L
1867 //#TS#5B2M DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2M
1868 //#TS#5B2N DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2N
1869 //#TS#5B2O DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2O
1870 //#TS#5B2P DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2P
1871 //#TS#5B2Q DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2Q
1872 //#TS#5B2R DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2R
1873 //#TS#5B2S DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2S
1874 //#TS#5B2T DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2T
1875 //#TS#5B2U DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2U
1876 //#TS#5B2V DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2V
1877 //#TS#5B2W DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2W
1878 //#TS#5B2X DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2X
1879 //#TS#5B2Y DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2Y
1880 //#TS#5B2Z DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B2Z
1881 //#TS#5B20 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B20
1882 //#TS#5B21 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B21
1883 //#TS#5B22 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B22
1884 //#TS#5B23 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B23
1885 //#TS#5B24 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B24
1886 //#TS#5B25 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B25
1887 //#TS#5B26 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B26
1888 //#TS#5B27 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B27
1889 //#TS#5B28 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B28
1890 //#TS#5B29 DD OUTPUT=*.OUT5X2,SYSOUT=1,
// DSN=&&#TS#5B29
1891 //#TS#4B2 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2
1892 //#TS#4B2A DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2A
1893 //#TS#4B2B DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2B
1894 //#TS#4B2C DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2C
1895 //#TS#4B2D DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2D
1896 //#TS#4B2E DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2E
1897 //#TS#4B2F DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2F
1898 //#TS#4B2G DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2G
1899 //#TS#4B2H DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2H
1900 //#TS#4B2I DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2I
1901 //#TS#4B2J DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2J
1902 //#TS#4B2K DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2K
1903 //#TS#4B2L DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2L
1904 //#TS#4B2M DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2M
1905 //#TS#4B2N DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2N
1906 //#TS#4B2O DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2O
1907 //#TS#4B2P DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2P
1908 //#TS#4B2Q DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2Q
1909 //#TS#4B2R DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2R
1910 //#TS#4B2S DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2S
1911 //#TS#4B2T DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2T
1912 //#TS#4B2U DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2U
1913 //#TS#4B2V DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2V
1914 //#TS#4B2W DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2W
1915 //#TS#4B2X DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2X
1916 //#TS#4B2Y DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2Y
1917 //#TS#4B2Z DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B2Z
1918 //#TS#4B20 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B20
1919 //#TS#4B21 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B21
1920 //#TS#4B22 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B22
1921 //#TS#4B23 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B23
1922 //#TS#4B24 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B24
1923 //#TS#4B25 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B25
1924 //#TS#4B26 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B26
1925 //#TS#4B27 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B27
1926 //#TS#4B28 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B28
1927 //#TS#4B29 DD OUTPUT=*.OUT4X2,SYSOUT=6,
// DSN=&&#TS#4B29
1928 //#TS#HB2 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2
1929 //#TS#HB2A DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2A
1930 //#TS#HB2B DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2B
1931 //#TS#HB2C DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2C
1932 //#TS#HB2D DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2D
1933 //#TS#HB2E DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2E
1934 //#TS#HB2F DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2F
1935 //#TS#HB2G DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2G
1936 //#TS#HB2H DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2H
1937 //#TS#HB2I DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2I
1938 //#TS#HB2J DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2J
1939 //#TS#HB2K DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2K
1940 //#TS#HB2L DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2L
1941 //#TS#HB2M DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2M
1942 //#TS#HB2N DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2N
1943 //#TS#HB2O DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2O
1944 //#TS#HB2P DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2P
1945 //#TS#HB2Q DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2Q
1946 //#TS#HB2R DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2R
1947 //#TS#HB2S DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2S
1948 //#TS#HB2T DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2T
1949 //#TS#HB2U DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2U
1950 //#TS#HB2V DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2V
1951 //#TS#HB2W DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2W
1952 //#TS#HB2X DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2X
1953 //#TS#HB2Y DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2Y
1954 //#TS#HB2Z DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB2Z
1955 //#TS#HB20 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB20
1956 //#TS#HB21 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB21
1957 //#TS#HB22 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB22
1958 //#TS#HB23 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB23
1959 //#TS#HB24 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB24
1960 //#TS#HB25 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB25
1961 //#TS#HB26 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB26
1962 //#TS#HB27 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB27
1963 //#TS#HB28 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB28
1964 //#TS#HB29 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HB29
1965 //#TS#HF2 DD OUTPUT=*.OUTHX2,SYSOUT=6,
// DSN=&&#TS#HF2
1966 // ENDIF
//*
//*-----------------------------------------------------
//*- DELETE UNUSED OUTPUT-FILES IF OUTPUT IS NOT SPOOL -
//*-----------------------------------------------------
//*
1967 //
}¢--- A540769.WK.JCL(PVSVER) cre=2008-11-24 mod=2008-11-24-17.25.05 F540769 ----
//A540769R JOB (CP00,KE50) 00010001
//********************************************************************
//*
//* PRIMO Walter Keller 29.3.05
//*
//*
//* Report Winterthur PVS-Verrechnungen
//*
//*
//********************************************************************
// SET MONTH=200505
// SET FILEPRE=WGR.U0034.P0.CESA.RZ1.D&MONTH
// SET DBSYS=DBAF
// SET DBOWN=OA1A
//JOBLIB DD DISP=SHR,DSN=MQM.QP00 <--- DEFAULT Q-MANAGER
//********************************************************************
//* delete csv und html datasets if they exist already
//********************************************************************
//S00 EXEC PGM=IEFBR14
//CSV DD DISP=(MOD,DELETE),DSN=&FILEPRE..CSV
//HTML DD DISP=(MOD,DELETE),DSN=&FILEPRE..HTML
//********************************************************************
//* run rexx pvsVer
//* sql for current month and write detail file (dd csv)
//* and a html page (dd html)
//********************************************************************
//*
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='%PVSVER -D&DBSYS -O&DBOWN -M&MONTH'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//CSV DD DISP=(NEW,CATLG),DSN=&FILEPRE..CSV,
// DATACLAS=VB0256S0,MGMTCLAS=COM#E035
//HTML DD DISP=(NEW,CATLG),DSN=&FILEPRE..HTML,
// DATACLAS=VB0256S0,MGMTCLAS=COM#E035
//SYSTSIN DD DUMMY
//SQLIN DD *
select
char(mon) || '; ' || arbid || '; ' || char(sum(erstPag#))
|| '; ' || char(sum(erstCou#))
from
( select
year(ldatum) * 100 + month(lDatum) as mon,
left(erstJob,4) arbid, erstPag#, erstCou#
from $DBOWNER.vpv013a1a
where left(erstJob,2)
in ($BEREICHE)
and lDatum between '${MONTH}01' and '${MONTH}31'
) t1
group by arbid , mon
order by arbid , mon
//********************************************************************
//* transfer csv file to rz1 by connect direct
//********************************************************************
//S02 EXEC PGM=OS2900
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=&FILEPRE..CSV
//DDIN DD *
DEST='RZ2'
MGMTCLAS='COM#E035'
DSNCOPY='YES'
WAIT='YES'
//********************************************************************
//* transfer html file to rz1 by connect direct
//********************************************************************
//S03 EXEC PGM=OS2900
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=&FILEPRE..HTML
//DDIN DD *
DEST='RZ2'
MGMTCLAS='COM#E035'
DSNCOPY='YES'
WAIT='YES'
//********************************************************************
//* send a mail with the link to the html file
//********************************************************************
// IF RC = 0 THEN
//S04 EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT Leistungsverrechnung Detailnachweis WGR
RECPLIST OAS
SENDERID ggpvs
DOCTEXT
SSW:
to smtp = walter.keller@credit-suisse.com
SSW:
<https://rhino.csintra.net/MVSDS/'WGR.U0034.P0.CESA.RZ1.D200505.HTML'>
Absender:
<mailTo:GG PVS Support (KPCO 4)>
//EMPFAE DD *
to smtp = ralph.brun@credit-suisse.com
to smtp = karl.malnati@credit-suisse.com
// ENDIF
//
}¢--- A540769.WK.JCL(PVSVER0) cre= mod=-. --------------------------------------
//A540769R JOB (CP00,KE50) 00010001
//********************************************************************
//*
//* PRIMO Walter Keller 29.3.05
//*
//*
//* Report Winterthur PVS-Verrechnungen
//*
//*
//********************************************************************
//JOBLIB DD DISP=SHR,DSN=MQM.QP00 <--- DEFAULT Q-MANAGER
//********************************************************************
//* run rexx pvsVer in ispf
//* sql for current month and write detail file
//* write new index.html
//********************************************************************
//* run ispf totition report
//S01 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='ISPSTART CMD(%PVSVER0 -BBE,CD,CS,ED -I -TRZ2)'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//ISPPLIB DD DSN=TSO.ISPF.ISPPLIB,DISP=SHR
//ISPMLIB DD DSN=TSO.ISPF.ISPMLIB,DISP=SHR
// DD DSN=ISP.SISPMENU,DISP=SHR
//ISPSLIB DD DSN=TSO.ISPF.ISPSLIB,DISP=SHR
//ISPTLIB DD DSN=TSO.ISPF.ISPTLIB,DISP=SHR
//ISPPROF DD DISP=(,PASS),UNIT=VIO,
// SPACE=(CYL,(1,1,30)),RECFM=FB,LRECL=80
//ISPLOG DD SYSOUT=*,RECFM=VA,LRECL=125
//ISPLIST DD SYSOUT=*,RECFM=FBA,LRECL=121
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SQLIN DD *
select
char(mon) || '; ' || arbid || '; ' || char(sum(erstPag#))
|| '; ' || char(sum(erstCou#))
from
( select
year(ldatum) * 100 + month(lDatum) as mon,
left(erstJob,4) arbid, erstPag#, erstCou#
from $DBOWNER.vpv013a1a
where left(erstJob,2)
in ($BEREICHE)
and lDatum between '${MONTH}01' and '${MONTH}31'
) t1
group by arbid , mon
order by arbid , mon
//********************************************************************
//* send a mail with the link to the index.html file
//********************************************************************
//S02 EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
*---+----1----+----2----+----3----+----4 ===> Kommentar Re
SUBJECT Leistungsverrechnung Detailnachweis WGR
RECPLIST OAS
SENDERID ggpvs
DOCTEXT
SSW:
cc smtp = pvssupport.ggcite@credit-suisse.com
to smtp = walter.keller@credit-suisse.com
to smtp = ralph.brun@credit-suisse.com
SSW:
<https://rhino-sec.csintra.net/MVSDS/'WGR.U0034.P0.CESA.INDEX.HTML'>
Absender:
<mailTo:GG PVS Support (KPCO 4)>
//
}¢--- A540769.WK.JCL(PVS0405) cre= mod=-. --------------------------------------
//A540769Z JOB (CP00,KE50)
//***************************************************************
//* Dieser Job migriert ein PVS File von Version 04 auf 05
//* DDIN Input mit PVS Header Version 04
//* DDOUT Output mit PVS Header Version 05
//***************************************************************
//JOBLIB DD DISP=SHR,DSN=CMN.DIV.P0.A18A.#000004.LLB
//PVS0405 EXEC PGM=PV5130,PARM=T
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DDMSG DD SYSOUT=*,LRECL=133
//*
//DDIN DD DISP=SHR,
// DSN=POSY.RZ1.T0.AKT.TESTFALL.DATA(TEOCH01)
//DDOUT DD DISP=SHR,
// DSN=A540769.WK.OUT(PV5130)
}¢--- A540769.WK.JCL(PVS130AP) cre= mod=-. -------------------------------------
//PVS130AP JOB (OS09,KE50,,SP00000000),
// 'WGR: COPY PVS-DS',
// MSGCLASS=E
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ1AKT.PERM.@007.JVA %%INCMEM JOBLRZ1P
// DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=PVS
//* %%SET %%DSNPREF=%%SUBSTR %%DSN 1 12
//* %%SET %%PVSJOBN=%%SUBSTR %%DSN 18 8
//* %%SET %%DSNSUFF=%%SUBSTR %%DSN 18 27
//* %%SET %%PVS3QUA=%%SUBSTR %%DSN 27 2
//********************************************************************
//* JCLPREP 06/06/2005 12:04:27 A115464
//********************************************************************
//*
//P01 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDI01 DD DSN=%%DSN,
// DISP=SHR
//DDO01 DD DSN=%%DSNPREF.PVV.%%DSNSUFF,
// DISP=(,CATLG),
// MGMTCLAS=BAT#AT,
// SPACE=%%#SPC2,
// RECFM=VBA,LRECL=32756
//TOOLIN DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(COPY01),DISP=SHR
// IF RC = 0 THEN
//*
//P02 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDI01 DD DSN=%%DSN,
// DISP=SHR
//DDO01 DD DSN=PVS.FT.W%%PVS3QUA..%%PVSJOBN,
// DISP=(,CATLG,DELETE),
// UNIT=DISK,VOL=SER=PVPXXX,
// SPACE=%%#SPC3
//TOOLIN DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(COPY01),DISP=SHR
// ENDIF
// IF RC = 0 THEN
//*
//P03 EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT PVS-File (TEST) erhalten: %%PVSJOBN %%PVS3QUA
// DD DSN=WGR.RZ1.P0.AKT.PARMLIB(WXXXEML1),DISP=SHR
// DD *
DATASET-NAME = %%DSN
/*
// DD DSN=WGR.RZ1.P0.AKT.PARMLIB(WXXXEML2),DISP=SHR
// ENDIF
// IF RC = 0 THEN
//*
//P04 EXEC PGM=IEFBR14
//DD1 DD DSN=%%DSN,
// DISP=(OLD,DELETE,KEEP)
// ENDIF
}¢--- A540769.WK.JCL(PVS140AP) cre=2008-11-24 mod=2008-11-24-17.25.06 F540769 ---
//PVS140AP JOB (OS09,KE50,,SP00000000),
// 'WGR: COPY LST-DS',
// MSGCLASS=E
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ1AKT.PERM.@007.JVA %%INCMEM JOBLRZ1P
// DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=PVS
//* %%SET %%DSNPREF=%%SUBSTR %%DSN 1 12
//* %%SET %%DSNSUFF=%%SUBSTR %%DSN 18 77
// SET DSN='%%DSN'
//* %%SET %%ENV=TEST
//* %%SET %%WGRPREF=WGR.RZ1.P0.AKT
//* %%SET %%PARMLIB=%%WGRPREF.PARMLIB
//* %%SET %%JNA=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA
//********************************************************************
//* JCLPREP 06/06/2005 13:22:59 A965472
//********************************************************************
//*
//* scratch the new files
//P01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD *
DELETE ( -
%%WGRPREF.LST.IMM -
) PURGE
IF MAXCC <= 8 THEN SET MAXCC = 0
//*
//* copy the input
//P02 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDI01 DD DSN=%%DSN,
// DISP=SHR
//DDO01 DD DSN=%%DSNPREF.LSV.%%DSNSUFF,
// DISP=(,CATLG),
// MGMTCLAS=BAT#AT,
// SPACE=%%#SPC2,
// RECFM=VBA,LRECL=32756
//TOOLIN DD DSN=%%JNA(COPY01),DISP=SHR
// IF RC = 0 THEN
//*
//* run rexx to create files
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%PVSRWGRJ %%ENV &DSN'), jcl-Var, zulang fuer CM
// TIME=99
//SYSPROC DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//AFP DD DSN=*.P02.DDO01,DISP=SHR
//VARIIN DD DSN=%%PARMLIB(PVS140VA),DISP=SHR
//VARI DD DSN=%%PARMLIB(PVS142VA),DISP=SHR
//MAILIN DD DSN=%%PARMLIB(PVS140MA),DISP=SHR
//MAIL DD DSN=%%PARMLIB(PVS142MA),DISP=SHR
//LOGIN DD DSN=%%PARMLIB(PVS140LG),DISP=SHR
//LOG DD DSN=%%WGRPREF.LST.LOG,
// DISP=(MOD,CATLG,KEEP),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(1,5)),
// RECFM=VB,LRECL=1023
//IMM DD DSN=%%WGRPREF.LST.IMM,
// DISP=(,CATLG),
// MGMTCLAS=BAT#AT,
// LIKE=%%DSN
// ENDIF
// IF RC = 0 THEN
//*
//* delete original dsn
//P04 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD *
DELETE ( -
%%DSN -
) PURGE
IF MAXCC <= 8 THEN SET MAXCC = 0
// ENDIF
}¢--- A540769.WK.JCL(PVS140AT) cre= mod=-. -------------------------------------
//A540769P JOB (OS09,KE50,,SP00000000),
// 'WGR: COPY PVS-DS'
//**************** change
//** ==> wkTest
//** //PVS140AP JOB (OS09,KE50,,SP00000000),
//** // MSGCLASS=E
//** //*OMS NET=%%GROUP
//** //**CONTROL-M-JOB
//** c RZ1 RZ2
//** c 0AP 00P
//** c &DSN %%DSN und jcl set löschen
//**************** change end
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ1AKT.PERM.@007.JVA %%INCMEM JOBLRZ1P
//*wkTest DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=PVS
// SET PARMLIB=WGR.RZ1.T0.AKT.PARMLIB
//* %%SET %%DSNPREF=%%SUBSTR %%DSN 1 12
//* %%SET %%DSNMID=%%SUBSTR %%DSN 18 11
// SET DSNPREF=WGR.U0034.T0.
// SET DSNMID=BJESOUT1.B1.
// SET DSN=&DSNPREF.LST.&DSNMID.D05365.T2359599
//********************************************************************
//* copy input dataset
//*P01 EXEC PGM=ICETOOL
//*TOOLMSG DD SYSOUT=*
//*DFSMSG DD SYSOUT=*
//*DDI01 DD DSN=&DSN,
//* DISP=SHR
//*DDO01 DD DSN=&DSNPREF.LSV.&DSNMID.#DT#,
//* DISP=(,CATLG),
//* MGMTCLAS=BAT#AT,
//* wkTest SPACE=%%#SPC2,
//* LIKE=&DSN,
//* RECFM=VBA,LRECL=32756
//*TOOLIN DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(COPY01),DISP=SHR
//* IF RC = 0 THEN
//* copy input dataset
//*
//P02 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='%PVSRWGRJ TEST &DSN'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//*SYSPROC DD DSN=PVSP.U0000.T0.CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//AFP DD DISP=SHR,DSN=A540769.TEST.JESOUT.T4BEDOIM
//VARIIN DD DISP=SHR,DSN=&PARMLIB(PVS140VA)
//VARI DD DISP=SHR,DSN=&PARMLIB(PVS142VA)
//MAILIN DD DISP=SHR,DSN=&PARMLIB(PVS140MA)
//MAIL DD DISP=SHR,DSN=&PARMLIB(PVS142MA)
//LOGIN DD DISP=SHR,DSN=&PARMLIB(PVS140LG)
//LOG DD DISP=MOD,DSN=A540769.TEST.JESOUT.LOG
//IMM DD DISP=(NEW,CATLG),DSN=A540769.TEST.JESOUT.IMM,
// MGMTCLAS=BAT#AT,LIKE=A540769.TEST.JESOUT.T9EMPTY
//*ENDIF
//*
//*
//*IF RC = 9 THEN wkTest
//* delete orig dataset
//*P03 EXEC PGM=IEFBR14
//*DD1 DD DSN=&DSN,
//* DISP=(OLD,DELETE,KEEP)
//* ENDIF
}¢--- A540769.WK.JCL(PVS1400P) cre=2008-11-24 mod=2008-11-24-17.25.06 F540769 ---
//PVS1400P JOB (OS09,KE50,,SP00000000),
// 'WGR: COPY LST-DS',
// MSGCLASS=E
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
// DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=PVS
//* %%SET %%DSNPREF=%%SUBSTR %%DSN 1 12
//* %%SET %%DSNSUFF=%%SUBSTR %%DSN 18 77
// SET DSN='%%DSN'
//* %%SET %%ENV=PROD
//* %%SET %%WGRPREF=WGR.RZ2.P0.AKT
//* %%SET %%PARMLIB=%%WGRPREF.PARMLIB
//* %%SET %%JNA=PCL.U0000.P0.RZ2AKT.PERM.@005.JNA
//********************************************************************
//* JCLPREP 24/05/2005 09:38:43 A965472
//********************************************************************
//*
//* scratch the new files
//P01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD *
DELETE ( -
%%WGRPREF.LST.IMM -
) PURGE
IF MAXCC <= 8 THEN SET MAXCC = 0
//*
//* copy the input
//P02 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDI01 DD DSN=%%DSN,
// DISP=SHR
//DDO01 DD DSN=%%DSNPREF.LSV.%%DSNSUFF,
// DISP=(,CATLG),
// MGMTCLAS=BAT#AT,
// SPACE=%%#SPC2,
// RECFM=VBA,LRECL=32756
//TOOLIN DD DSN=%%JNA(COPY01),DISP=SHR
// IF RC = 0 THEN
//*
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%PVSRWGRJ %%ENV &DSN'), jcl-Var, zulang fuer CM
// TIME=99
//SYSPROC DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//AFP DD DSN=*.P02.DDO01,DISP=SHR
//VARIIN DD DSN=%%PARMLIB(PVS140VA),DISP=SHR
//VARI DD DSN=%%PARMLIB(PVS142VA),DISP=SHR
//MAILIN DD DSN=%%PARMLIB(PVS140MA),DISP=SHR
//MAIL DD DSN=%%PARMLIB(PVS142MA),DISP=SHR
//LOGIN DD DSN=%%PARMLIB(PVS140LG),DISP=SHR
//LOG DD DSN=%%WGRPREF.LST.LOG,
// DISP=(MOD,CATLG,KEEP),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(1,5)),
// RECFM=VB,LRECL=1023
//IMM DD DSN=%%WGRPREF.LST.IMM,
// DISP=(,CATLG),
// MGMTCLAS=BAT#AT,
// LIKE=%%DSN
// ENDIF
// IF RC = 0 THEN
//*
//* delete original dsn
//P04 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD *
DELETE ( -
%%DSN -
) PURGE
IF MAXCC <= 8 THEN SET MAXCC = 0
// ENDIF
}¢--- A540769.WK.JCL(PVS142AP) cre= mod=-. -------------------------------------
//* %%INCLIB WGR.RZ1.P0.AKT.PARMLIB %%INCMEM PVS142VA
//PVS142AP JOB (OS09,KE50,%%PID,SP00000000),
// 'PRINTVERTEILUNG WGR',
// MSGCLASS=E
//*OMS NET=%%GROUP
//*MAIN CLASS=PVS
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB WGR.RZ1.P0.AKT.PARMLIB %%INCMEM PVS142VA
//* %%INCLIB PCL.U0000.P0.RZ1AKT.PERM.@007.JVA %%INCMEM JOBLRZ1P
// DD DSN=MQM.QP00,DISP=SHR
//* %%SET %%WGRPREF=WGR.RZ1.P0.AKT
//* %%SET %%PARMLIB=%%WGRPREF.PARMLIB
//* %%SET %%JNA=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA
//OUT01 OUTPUT COPIES=%%COPIES,DEPT=&DEPT,
// DEST=%%DEST,FORMDEF=%%FORMDEF,
// FORMS=%%FORMS,OVERLAYB=%%OVERLAYB,
// OVERLAYF=%%OVERLAYF,PAGEDEF=%%PAGEDEF,
// PRMODE=PAGE,USERLIB=(%%USERLIB)
//********************************************************************
//* JCLPREP 19/12/2005 13:56:40 A965472
//********************************************************************
//*
//P01 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDI01 DD DSN=%%WGRPREF.LST.PVS140AP.IMM,DISP=SHR
// DD DSN=%%DSNNEW,DISP=SHR
//DDO01 DD SYSOUT=%%CLASS,
// OUTPUT=*.OUT01
//TOOLIN DD DSN=%%JNA(COPY01),DISP=SHR
// IF RC = 0 THEN
//*
//P02 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%PVSRJOB'),
// TIME=99
//SYSPROC DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//DDIN DD DSN=%%PARMLIB(PVS142MA),DISP=SHR
//DDOUT DD %%JESCONT
// ENDIF
// IF RC = 0 THEN
//*
//P03 EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD DSN=%%PARMLIB(PVS142MA),DISP=SHR
// ENDIF
// IF RC = 0 THEN
//*
//P04 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD *
DELETE ( -
%%WGRPREF.LST.PVS140AP.IMM -
) PURGE
IF MAXCC <= 8 THEN SET MAXCC = 0
// ENDIF
}¢--- A540769.WK.JCL(PVS142AT) cre= mod=-. -------------------------------------
//A540769Q JOB (OS09,KE50,,P00000000),
// 'WGR: COPY PVS-DS'
//*wkTest MSGCLASS=E
//*wkTest //PVS1420P JOB (OS09,KE50,%%PID,SP00000000),
//*wkTest //*OMS NET=%%GROUP
//*wkTest //**CONTROL-M-JOB
//*wkTest &DSN ==> %%DSN ohne jcl set|
//* %%GLOBAL GLOBAL
//* %%INCLIB &PARMLIB %%INCMEM PVS142VA
//* %%INCLIB PCL.U0000.P0.RZ1AKT.PERM.@007.JVA %%INCMEM JOBLRZ1P
//* wkTest DD DSN=MQM.QP00,DISP=SHR
//JOBLIB DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=PVS
// SET PARMLIB=WGR.RZ1.T0.AKT.PARMLIB
// SET DSN=WGR.U0034.T0.LST.BJOBNAME.B1.D05365.T2359599
// SET DSNNEW=WGR.U0034.T0.SLS.BJOBNAME.B1.D05140.T141118
//********************************************************************
//* JCLPREP 21/04/2005 07:28:24 A965472
//********************************************************************
//* copy to spool
//P01 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDI01 DD DSN=&DSNNEW,
// DISP=SHR
//OUT01 OUTPUT COPIES=,
// DEST='und noch weiter',
// FORMS=A4BLK,
// FORMDEF=FORMDE,
// PAGEDEF=,
// PRMODE=PAGE,
// USERLIB=WGR.U0034.P0.AKT.AFPLIB,
// DEPT='wie geht es dept?????????? ??????????????'
//DDO01 DD SYSOUT=T,OUTPUT=*.OUT01
//TOOLIN DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(COPY01),DISP=SHR
//*
// IF RC = 9 THEN
//* send mail
//P02 EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD DISP=SHR,DSN=&PARMLIB(PVS142MA)
// ENDIF
}¢--- A540769.WK.JCL(PVS1420P) cre= mod=-. -------------------------------------
//* %%INCLIB WGR.RZ2.P0.AKT.PARMLIB %%INCMEM PVS142VA
//PVS1420P JOB (OS09,KE50,%%PID,SP00000000),
// 'PRINTVERTEILUNG WGR',
// MSGCLASS=E
//*OMS NET=%%GROUP
//*MAIN CLASS=PVS
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB WGR.RZ2.P0.AKT.PARMLIB %%INCMEM PVS142VA
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
// DD DSN=MQM.QP00,DISP=SHR
//* %%SET %%WGRPREF=WGR.RZ2.P0.AKT
//* %%SET %%PARMLIB=%%WGRPREF.PARMLIB
//* %%SET %%JNA=PCL.U0000.P0.RZ2AKT.PERM.@005.JNA
//********************************************************************
//* output before step
//OUT01 OUTPUT COPIES=%%COPIES,DEPT=&DEPT,
// DEST=%%DEST,FORMDEF=%%FORMDEF,
// FORMS=%%FORMS,OVERLAYB=%%OVERLAYB,
// OVERLAYF=%%OVERLAYF,PAGEDEF=%%PAGEDEF,
// PRMODE=PAGE,USERLIB=(%%USERLIB)
//* copy to spool
//********************************************************************
//* JCLPREP 27/06/2005 13:02:00 A965472
//********************************************************************
//*
//P01 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDI01 DD DSN=%%WGRPREF.LST.IMM,DISP=SHR
// DD DSN=%%DSNNEW,DISP=SHR
//DDO01 DD SYSOUT=%%CLASS,
// OUTPUT=*.OUT01
//TOOLIN DD DSN=%%JNA(COPY01),DISP=SHR
// IF RC = 0 THEN
//*
//P02 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%PVSRJOB'),
// TIME=99
//SYSPROC DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//DDIN DD DSN=%%PARMLIB(PVS142MA),DISP=SHR
//DDOUT DD %%JESCONT
// ENDIF
// IF RC = 0 THEN
//*
//P03 EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD DSN=%%PARMLIB(PVS142MA),DISP=SHR
// ENDIF
// IF RC = 0 THEN
//*
//P04 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD *
DELETE ( -
%%WGRPREF.LST.IMM -
) PURGE
IF MAXCC <= 8 THEN SET MAXCC = 0
// ENDIF
}¢--- A540769.WK.JCL(PVT310MP) cre=2008-11-24 mod=2008-11-24-17.25.07 F540769 ---
//A540769X JOB (CP00,KE50)
//*MAIN CLASS=CMNA
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%PVSRWGRV -V -LA008Y000 RZ1 RZ2'),
// TIME=99
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=PVSP.U0000.T0.CLIST,DISP=SHR
//LOGRZ1 DD DSN=WGR.RZ1.P0.AKT.LST.LOG,DISP=OLD
//LOGRZ2 DD DSN=WGR.U0034.P0.VERR.LST.RZ2.LOG,DISP=OLD
//VERRLOG DD DSN=WGR.U0034.P0.VERR.LST.DAY.LOG,
// DISP=(MOD,CATLG,KEEP),
// MGMTCLAS=COM#A092,
// SPACE=(TRK,(15,300),RLSE),
// RECFM=VB,LRECL=1023
//VERR DD SYSOUT=*,RECFM=VBA,LRECL=9072
//*ERR DD DSN=WGR.U0034.P0.VERR.LST.DWS.DATA(+1),
//* DISP=(,CATLG,DELETE),
//* MGMTCLAS=S005Y000,
//* SPACE=(TRK,(15,300),RLSE),
//* RECFM=VBA,LRECL=9072
}¢--- A540769.WK.JCL(PVT3100P) cre=2008-11-24 mod=2008-11-24-17.25.07 F540769 ---
//PVT3100P JOB (OS09,KE50,,SP00000000),
// 'IS-ACC 1 TO RZ1',
// MSGCLASS=E
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
//*MAIN CLASS=PVS
//********************************************************************
//* JCLPREP 05/07/2005 11:28:01 A509191
//********************************************************************
//*
//P02 EXEC PGM=PV7130,
// PARM='DBOF PV7130 PVX0100P'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//DDPARM DD DSN=PVSP.U0000.P0.PARM(PV7130),DISP=SHR
//DDISACC1 DD DSN=PVSP.U0000.P0.PV7130.%%DTVAR,
// DISP=(,CATLG,DELETE),
// MGMTCLAS=COM#E005,
// SPACE=%%#SPC1,
// RECFM=VBA,LRECL=9072
//SYSTERM DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// IF P02.RC = 0 THEN
//*
//P03 EXEC PGM=OS2900
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSUT1 DD DSN=*.P02.DDISACC1,DISP=SHR
//DDIN DD *
DSN='PVSP.U0000.P0.PV7130.RZ2.DATA'
DEST='RZ1'
DUPLI='RETRY'
MGMTCLAS='COM#A092'
WAIT='YES'
// ENDIF
// IF RC = 0 THEN
//*
//P04 EXEC PGM=OS2900
//SYSPRINT DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSUT1 DD DSN=WGR.RZ2.P0.AKT.LST.LOG,DISP=SHR
//DDIN DD *
DSN='WGR.U0034.P0.VERR.LST.RZ2.LOG'
DEST='RZ1'
DISP='NEW'
DUPLI='SCRATCH'
MGMTCLAS='COM#A092'
WAIT='YES'
// ENDIF
}¢--- A540769.WK.JCL(PVT3102P) cre=2008-11-24 mod=2008-11-24-17.25.08 F540769 ---
//PVT3102P JOB (OS09,KE50,,SP00000000),
// 'IS-ACC 1 FROM RZ2',
// MSGCLASS=E
//USEDPROC JCLLIB ORDER=(IOA.U0000.P0.RZ1I.PROCLIB,
// JOB.U0000.P0.RZ1AKT.OVER.@005.JPO,
// PCL.U0000.P0.RZ1AKT.PERM.@005.JPO,
// PCL.U0000.P0.RZ1AKT.PERM.@007.JVA)
//JOBLB INCLUDE MEMBER=JOBLRZ1P
//**#AUSLOESUNG
//*LOGONID S100463
//*MAIN CLASS=BS2
//* JCLPREP 30/11/2001 09:51:50 A203955
//********************************************************************
//*
//P01 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDI01 DD DSN=PVSP.U0000.P0.PV7130.RZ2.DATA,
// DISP=(SHR,DELETE)
//DDO01 DD DSN=DWS.DIV.P0.PVS.RZ2.DATA(+1),
// DISP=(,CATLG,DELETE),
// MGMTCLAS=COM#E005,
// SPACE=(TRK,(1,1),RLSE),
// RECFM=VBA,LRECL=9072
//SYSPRINT DD SYSOUT=*
/*
//TOOLIN DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(COPY01),DISP=SHR
//*********************************************************************
//* JESOUTPUT VERRECHNEN *
//*********************************************************************
//P02 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM=('%PVSRWGRV RZ1 RZ2')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=PVSP.U0000.P0.CLIST
//LOGRZ1 DD DISP=OLD,DSN=WGR.RZ1.P0.AKT.LST.LOG
//LOGRZ2 DD DISP=OLD,DSN=WGR.U0034.P0.VERR.LST.RZ2.LOG
//VERRLOG DD DISP=(MOD,CATLG,KEEP),DSN=WGR.U0034.P0.VERR.LST.DAY.LOG,
// MGMTCLAS=COM#A092,
// SPACE=(TRK,(1,10)),
// RECFM=VB,LRECL=1023
//VERR DD DSN=WGR.U0034.P0.VERR.LST.DWS.DATA(+1),
// DISP=(,CATLG,DELETE),
// MGMTCLAS=COM#A092,
// SPACE=(TRK,(1,1),RLSE),
// RECFM=VBA,LRECL=9072
//*********************************************************************
//* AUS2: PVS-R2 PDB-LOAD DWT02M2S AUSLÖSEN *
//*********************************************************************
//*
// IF P01.RC = 0 THEN
//P99 EXEC PROC=CTMCND
//SYSIN DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@007.JVA(PVT3102P),
// DISP=SHR
// ENDIF
}¢--- A540769.WK.JCL(PVT760MP) cre=2008-11-24 mod=2008-11-24-17.25.08 F540769 ---
//PVT760MP JOB (OS09,KE50,,SP00000000),
// 'PVSTRACK DSN SENDEN ',
// MSGCLASS=E,
// TIME=15
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ1AKT.PERM.@007.JVA %%INCMEM JOBLRZ1P
//*
// SET PHASE=PVSP.RZ1.P0.PVSTRACK.PHASE
// SET FILELIST=PVSP.RZ1.P0.PVSTRACK.FILELIST
// SET PARM=WGR.RZ1.P0.AKT.PARMLIB(PVT7600)
//*
//* S1: ALLOCATE DSNS IF NON EXISTANT
//*
//S1 EXEC PGM=IEFBR14
//PHASE DD DISP=(MOD,CATLG,DELETE),DSN=&PHASE,
// MGMTCLAS=COM#A092,DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//FILELIST DD DISP=(MOD,CATLG,DELETE),DSN=&FILELIST,
// MGMTCLAS=COM#A092,DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//* S2: CONSOLIDATE TRACK FILES AND SEND OUT
//*
//S2 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='%PVSRTRAC TEST'
//* DD FUER TSO
//SYSPROC DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//* DD FUER REXX PVSRTRAC
//PHASE DD DISP=OLD,DSN=&PHASE
//FILELIST DD DISP=OLD,DSN=&FILELIST
//PARM DD DISP=SHR,DSN=&PARM
//* DD FUER CD ANALOG ==> PROC CD01SKA1
//DMPUBLIB DD DSN=JOBP.FT1A.PRCS,DISP=SHR
// DD DSN=SFT.DIV.X0.CD.PRCS,DISP=SHR
//DMNETMAP DD DSN=SFT.SKA.P0.CD.NETMAP,DISP=SHR
//DMMSGFIL DD DSN=SFT.DIV.X0.CD.MSG,DISP=SHR
//DMPRINT DD SYSOUT=*
}¢--- A540769.WK.JCL(PVT760MT) cre=2008-11-24 mod=2008-11-24-17.25.08 F540769 ---
//PVT760MT JOB (OS09,KE50,,SP00000000),
// 'PVSTRACK DSN SENDEN ',TIME=15,MSGCLASS=T
//*
// SET PHASE=PVSP.RZ1.P0.PVSTRACK.PHASE
// SET FILELIST=PVSP.RZ1.P0.PVSTRACK.FILELIST
// SET PARM=WGR.RZ1.T0.AKT.PARMLIB(PVT7600)
//*
//* S1: ALLOCATE DSNS IF NON EXISTANT
//*
//S1 EXEC PGM=IEFBR14
//PHASE DD DISP=(MOD,CATLG,DELETE),DSN=&PHASE,
// MGMTCLAS=COM#A092,DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//FILELIST DD DISP=(MOD,CATLG,DELETE),DSN=&FILELIST,
// MGMTCLAS=COM#A092,DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//* S2: CONSOLIDATE TRACK FILES AND SEND OUT
//*
//S2 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='%PVSRTRAC TEST'
//* DD FUER TSO
//SYSPROC DD DSN=PVSP.U0000.T0.CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//* DD FUER REXX PVSRTRAC
//PHASE DD DISP=OLD,DSN=&PHASE
//FILELIST DD DISP=OLD,DSN=&FILELIST
//PARM DD DISP=SHR,DSN=&PARM
//* DD FUER CD GEMÄSS ===> PROC CD01SKA1
//DMPUBLIB DD DSN=JOBP.FT1A.PRCS,DISP=SHR
// DD DSN=SFT.DIV.X0.CD.PRCS,DISP=SHR
//DMNETMAP DD DSN=SFT.SKA.P0.CD.NETMAP,DISP=SHR
//DMMSGFIL DD DSN=SFT.DIV.X0.CD.MSG,DISP=SHR
//DMPRINT DD SYSOUT=*
}¢--- A540769.WK.JCL(PVT7600P) cre=2008-11-24 mod=2008-11-24-17.25.08 F540769 ---
//PVT7600P JOB (OS09,KE50,,SP00000000),
// 'PVSTRACK DSN SENDEN ',
// MSGCLASS=E,
// TIME=15
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
//*
// SET PHASE=PVSP.RZ2.P0.PVSTRACK.PHASE
// SET FILELIST=PVSP.RZ2.P0.PVSTRACK.FILELIST
// SET PARM=WGR.RZ2.P0.AKT.PARMLIB(PVT7600)
//*
//* S1: ALLOCATE DSNS IF NON EXISTANT
//*
//S1 EXEC PGM=IEFBR14
//PHASE DD DISP=(MOD,CATLG,DELETE),DSN=&PHASE,
// MGMTCLAS=COM#A092,DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//FILELIST DD DISP=(MOD,CATLG,DELETE),DSN=&FILELIST,
// MGMTCLAS=COM#A092,DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//* S2: CONSOLIDATE TRACK FILES AND SEND OUT
//*
//S2 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00020001
// PARM='%PVSRTRAC PROD'
//* DD FUER TSO
//SYSPROC DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//* DD FUER REXX PVSRTRAC
//PHASE DD DISP=OLD,DSN=&PHASE
//FILELIST DD DISP=OLD,DSN=&FILELIST
//PARM DD DISP=SHR,DSN=&PARM
//* DD FUER CD ANALOG ==> PROC CD01SKA1
//DMPUBLIB DD DSN=JOBP.FT2A.PRCS,DISP=SHR
// DD DSN=SFT.DIV.X0.CD.PRCS,DISP=SHR
//DMNETMAP DD DSN=SFT.SKA.P0.CD.NETMAP,DISP=SHR
//DMMSGFIL DD DSN=SFT.DIV.X0.CD.MSG,DISP=SHR
//DMPRINT DD SYSOUT=*
}¢--- A540769.WK.JCL(PVX010MP) cre=2008-11-24 mod=2008-11-24-17.25.09 F540769 ---
//PVX010MP JOB (OS09,KE50,,SP00000000),
// 'PVS-MONITOR',
// MSGCLASS=E,
// REGION=99364K
//USEDPROC JCLLIB ORDER=(PCL.U0000.P0.RZ1AKT.PERM.@007.JVA,
// PVSP.U0000.P0.JCL)
//JOBLB INCLUDE MEMBER=JOBLRZ1P
//*MAIN CLASS=PVS
//*********************************************************************
//* PVS-MONITOR / BEI PROBLEMEN BITTE PVS-PIKETT BENACHRICHTIGEN
//*********************************************************************
//* REBUILD HW-/NV-TAB
//*********************************************************************
// INCLUDE MEMBER=PVSRHWTB
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE
//*********************************************************************
//* JCLPREP 18/08/2004 08:04:57 A223682
//********************************************************************
//*
//INTVT1 EXEC PGM=PVSINTVT,
// PARM='PVSP,LIST'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDMP DD SYSOUT=*
//PVSSNAP DD SYSOUT=*
//*********************************************************************
//* VERIFICATION VSAM-DS
//*********************************************************************
//*
// IF RC = 0 THEN
//VER01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PVSCKPT DD DSN=PVS.PVSCKPT,DISP=SHR
//PVSKONTO DD DSN=PVS.PVSKONTO,DISP=SHR
//PVSLOG DD DSN=PVS.PVSLOG,DISP=SHR
//PECOLL01 DD DSN=PVS.PVSCPE01,DISP=SHR
//PECOLL02 DD DSN=PVS.PVSCPE02,DISP=SHR
//PECOLL03 DD DSN=PVS.PVSCPE03,DISP=SHR
//PECOLL04 DD DSN=PVS.PVSCPE04,DISP=SHR
//PECOLL05 DD DSN=PVS.PVSCPE05,DISP=SHR
//PECOLL06 DD DSN=PVS.PVSCPE06,DISP=SHR
//PECOLL07 DD DSN=PVS.PVSCPE07,DISP=SHR
//PECOLL08 DD DSN=PVS.PVSCPE08,DISP=SHR
//PECOLL09 DD DSN=PVS.PVSCPE09,DISP=SHR
//PECOLL10 DD DSN=PVS.PVSCPE10,DISP=SHR
//SYSIN DD DSN=PVSP.U0000.P0.JCL(PVX01M01),DISP=SHR
//*********************************************************************
//* MONITOR
//* PARM='PARM1, = SUBSYSTEM P - PRODUKTION T - TEST
//* PARM2, = WORKER START A - AUTOMATISCH M - MANUELL
//*********************************************************************
// ENDIF
//*
// IF VER01.RC = 0 THEN
//MON01 EXEC PGM=PVSINIT,
// PARM='P,A'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//STDERR DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SNAPSNAP DD SYSOUT=*
//SNAP DD SYSOUT=*
//DDSNAP DD SYSOUT=*
//CMDPSNAP DD SYSOUT=*
//*DSNTRACE DD SYSOUT=* DB2-TRACE
//PVSTRACE DD SYSOUT=N
//PVSSNAP DD SYSOUT=*
//DDCOUT DD SYSOUT=*
//SPERR01 DD DSN=PVSP.U0000.P0.SPERR.DATA,DISP=OLD
//DDPVSCFG DD DSN=PVSP.U0000.P0.PARM(CONFIG01),DISP=SHR
//GLOBVARS DD DSN=PVSP.U0000.P0.PARM(GLOBVARS),DISP=SHR
//SYSPRC01 DD SYSOUT=*
//SYSPRC02 DD SYSOUT=*
//PVSPARM DD DSN=PVSP.U0000.P0.PARM,DISP=SHR
//PVSTAB DD DSN=PVSP.U0000.P0.TAB,DISP=SHR
//PVSBEIL DD DSN=PVSP.U0000.P0.BEILAGEN.PREFIX,DISP=SHR
//PVSMSG DD DSN=PVSP.U0000.P0.MSG,DISP=SHR
//*YSMDUMP DD DSN=PVSP.U0000.P0.DUMP.#DT#,DISP=(,CATLG,CATLG),
//* SPACE=(CYL,(25,25),RLSE),
//* RECFM=FB,LRECL=4160,
//* MGMTCLAS=D035Y000
//PVSDUMP DD DSN=PVSP.U0000.P0.PVXDUMP.#DT#,
// DISP=(,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// SPACE=(CYL,(25,25),RLSE),
// RECFM=F,LRECL=4104
//PVSCKPT DD DSN=PVS.PVSCKPT,DISP=SHR
//PVSLOG DD DSN=PVS.PVSLOG,DISP=SHR
//PVSKONTO DD DSN=PVS.PVSKONTO,DISP=SHR
//*********************************************************************
//* SCAN-SUBTASKS
//*********************************************************************
//COUTSC01 DD SYSOUT=*
//COUTSC02 DD SYSOUT=*
//COUTSC03 DD SYSOUT=*
//COUTSC04 DD SYSOUT=*
//COUTSC05 DD SYSOUT=*
//SYSPSC01 DD DSN=PVS.PVSSC01.KEYS,
// DISP=MOD
//SYSPSC02 DD DSN=PVS.PVSSC02.KEYS,
// DISP=MOD
//SYSPSC03 DD DSN=PVS.PVSSC03.KEYS,
// DISP=MOD
//SYSPSC04 DD DSN=PVS.PVSSC04.KEYS,
// DISP=MOD
//SYSPSC05 DD DSN=PVS.PVSSC05.KEYS,
// DISP=MOD
//LOGTAB01 DD DSN=PVSP.U0000.P0.SC01.LOGTAB,DISP=SHR
//LOGTAB02 DD DSN=PVSP.U0000.P0.SC02.LOGTAB,DISP=SHR
//LOGTAB03 DD DSN=PVSP.U0000.P0.SC03.LOGTAB,DISP=SHR
//LOGTAB04 DD DSN=PVSP.U0000.P0.SC04.LOGTAB,DISP=SHR
//LOGTAB05 DD DSN=PVSP.U0000.P0.SC05.LOGTAB,DISP=SHR
//*********************************************************************
//* RDSN-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPRD01 DD SYSOUT=*
//SYSPRD02 DD SYSOUT=*
//SYSPRD03 DD SYSOUT=*
//*********************************************************************
//* PRINT-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPPR01 DD SYSOUT=*
//SYSPPR02 DD SYSOUT=*
//SOUTPR01 DD SYSOUT=*
//SOUTPR02 DD SYSOUT=*
//SIMUPR01 DD SYSOUT=*
//SIMUPR02 DD SYSOUT=*
//*********************************************************************
//* POSY
//*********************************************************************
//POSYTEMP DD DSN=POSY.RZ1.P0.AKT.TEMPLATE,DISP=SHR
//POSYTAB DD DSN=POSY.RZ1.P0.AKT.TAB,DISP=SHR
//*********************************************************************
//* COLLECTOREN: AU,BD,CH,ER,ES,FA,FG,GB,LW,PI,SP,TS,VI,XP
//*********************************************************************
//COLLAU00 DD DSN=PVS.PVSCAU00,DISP=SHR
//COLLAU01 DD DSN=PVS.PVSCAU01,DISP=SHR
//COLLAU02 DD DSN=PVS.PVSCAU02,DISP=SHR
//COLLAU03 DD DSN=PVS.PVSCAU03,DISP=SHR
//COLLAU04 DD DSN=PVS.PVSCAU04,DISP=SHR
//COLLBD00 DD DSN=PVS.PVSCBD00,DISP=SHR
//COLLBD01 DD DSN=PVS.PVSCBD01,DISP=SHR
//COLLBD02 DD DSN=PVS.PVSCBD02,DISP=SHR
//COLLBD03 DD DSN=PVS.PVSCBD03,DISP=SHR
//COLLBD04 DD DSN=PVS.PVSCBD04,DISP=SHR
//COLLCH00 DD DSN=PVS.PVSCCH00,DISP=SHR
//COLLCH01 DD DSN=PVS.PVSCCH01,DISP=SHR
//COLLCH02 DD DSN=PVS.PVSCCH02,DISP=SHR
//COLLCH03 DD DSN=PVS.PVSCCH03,DISP=SHR
//COLLCH04 DD DSN=PVS.PVSCCH04,DISP=SHR
//COLLER00 DD DSN=PVS.PVSCER00,DISP=SHR
//COLLER01 DD DSN=PVS.PVSCER01,DISP=SHR
//COLLER02 DD DSN=PVS.PVSCER02,DISP=SHR
//COLLER03 DD DSN=PVS.PVSCER03,DISP=SHR
//COLLER04 DD DSN=PVS.PVSCER04,DISP=SHR
//COLLES00 DD DSN=PVS.PVSCES00,DISP=SHR
//COLLES01 DD DSN=PVS.PVSCES01,DISP=SHR
//COLLES02 DD DSN=PVS.PVSCES02,DISP=SHR
//COLLES03 DD DSN=PVS.PVSCES03,DISP=SHR
//COLLES04 DD DSN=PVS.PVSCES04,DISP=SHR
//COLLFA00 DD DSN=PVS.PVSCFA00,DISP=SHR
//COLLFA01 DD DSN=PVS.PVSCFA01,DISP=SHR
//COLLFA02 DD DSN=PVS.PVSCFA02,DISP=SHR
//COLLFA03 DD DSN=PVS.PVSCFA03,DISP=SHR
//COLLFA04 DD DSN=PVS.PVSCFA04,DISP=SHR
//COLLFG00 DD DSN=PVS.PVSCFG00,DISP=SHR
//COLLFG01 DD DSN=PVS.PVSCFG01,DISP=SHR
//COLLFG02 DD DSN=PVS.PVSCFG02,DISP=SHR
//COLLFG03 DD DSN=PVS.PVSCFG03,DISP=SHR
//COLLFG04 DD DSN=PVS.PVSCFG04,DISP=SHR
//COLLGB00 DD DSN=PVS.PVSCGB00,DISP=SHR
//COLLGB01 DD DSN=PVS.PVSCGB01,DISP=SHR
//COLLLW00 DD DSN=PVS.PVSCLW00,DISP=SHR
//COLLLW01 DD DSN=PVS.PVSCLW01,DISP=SHR
//COLLLW02 DD DSN=PVS.PVSCLW02,DISP=SHR
//COLLLW03 DD DSN=PVS.PVSCLW03,DISP=SHR
//COLLLW04 DD DSN=PVS.PVSCLW04,DISP=SHR
//COLLPI00 DD DSN=PVS.PVSCPI00,DISP=SHR
//COLLPI01 DD DSN=PVS.PVSCPI01,DISP=SHR
//COLLPI02 DD DSN=PVS.PVSCPI02,DISP=SHR
//COLLPI03 DD DSN=PVS.PVSCPI03,DISP=SHR
//COLLPI04 DD DSN=PVS.PVSCPI04,DISP=SHR
//COLLSP00 DD DSN=PVS.PVSCSP00,DISP=SHR
//COLLSP01 DD DSN=PVS.PVSCSP01,DISP=SHR
//COLLSP02 DD DSN=PVS.PVSCSP02,DISP=SHR
//COLLSP03 DD DSN=PVS.PVSCSP03,DISP=SHR
//COLLSP04 DD DSN=PVS.PVSCSP04,DISP=SHR
//COLLTS00 DD DSN=PVS.PVSCTS00,DISP=SHR
//COLLTS01 DD DSN=PVS.PVSCTS01,DISP=SHR
//COLLTS02 DD DSN=PVS.PVSCTS02,DISP=SHR
//COLLTS03 DD DSN=PVS.PVSCTS03,DISP=SHR
//COLLTS04 DD DSN=PVS.PVSCTS04,DISP=SHR
//COLLTS05 DD DSN=PVS.PVSCTS05,DISP=SHR
//COLLTS06 DD DSN=PVS.PVSCTS06,DISP=SHR
//COLLTS07 DD DSN=PVS.PVSCTS07,DISP=SHR
//COLLTS08 DD DSN=PVS.PVSCTS08,DISP=SHR
//COLLTS09 DD DSN=PVS.PVSCTS09,DISP=SHR
//COLLVI00 DD DSN=PVS.PVSCVI00,DISP=SHR
//COLLVI01 DD DSN=PVS.PVSCVI01,DISP=SHR
//COLLVI02 DD DSN=PVS.PVSCVI02,DISP=SHR
//COLLVI03 DD DSN=PVS.PVSCVI03,DISP=SHR
//COLLVI04 DD DSN=PVS.PVSCVI04,DISP=SHR
//COLLXP00 DD DSN=PVS.PVSCXP00,DISP=SHR
//COLLXP01 DD DSN=PVS.PVSCXP01,DISP=SHR
//COLLXP02 DD DSN=PVS.PVSCXP02,DISP=SHR
//COLLXP03 DD DSN=PVS.PVSCXP03,DISP=SHR
//COLLXP04 DD DSN=PVS.PVSCXP04,DISP=SHR
//PECOLL01 DD DSN=PVS.PVSCPE01,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL02 DD DSN=PVS.PVSCPE02,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL03 DD DSN=PVS.PVSCPE03,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL04 DD DSN=PVS.PVSCPE04,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL05 DD DSN=PVS.PVSCPE05,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL06 DD DSN=PVS.PVSCPE06,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL07 DD DSN=PVS.PVSCPE07,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL08 DD DSN=PVS.PVSCPE08,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL09 DD DSN=PVS.PVSCPE09,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL10 DD DSN=PVS.PVSCPE10,DISP=SHR,
// AMP='BUFNI=8'
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE
//*********************************************************************
// ENDIF
//*
// IF MON01.RC = 0 THEN
//INTVT2 EXEC PGM=PVSINTVT,
// PARM='PVSP,LIST'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=E
//SYSABEND DD SYSOUT=E
//SYSUDMP DD SYSOUT=E
//PVSSNAP DD SYSOUT=E
//*********************************************************************
//* FREIGEBEN VON UNGENUTZTEN DUMPSPACE
//*********************************************************************
// ENDIF
//*
// IF VER01.RC = 0 THEN
//RLS01 EXEC PGM=SY2060
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DSN=*.MON01.PVSDUMP,
// DISP=MOD,
// SPACE=(TRK,(1,1),RLSE)
//SYSUT1 DD DUMMY,DCB=*.MON01.PVSDUMP
//*********************************************************************
//* KEYS AUF SYSOUT KOPIEREN
//*********************************************************************
// ENDIF
//*
// IF (VER01.RC = 0 | ABEND) THEN
//MON02 EXEC PGM=ICETOOL
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDO01 DD SYSOUT=*
//DDI01 DD DSN=PVS.PVSSC01.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC02.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC03.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC04.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC05.KEYS,DISP=SHR
//TOOLIN DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(COPY01),DISP=SHR
//*********************************************************************
//* KEYS AUF SAVE DATASET KOPIEREN
//*********************************************************************
// ENDIF
//*
// IF (VER01.RC = 0 | ABEND) THEN
//MON03 EXEC PGM=PV7001,
// PARM='SCANLP LPCKSC'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//DDPVSCFG DD DSN=PVSP.U0000.P0.PARM(CONFIG01),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
// ENDIF
}¢--- A540769.WK.JCL(PVX010XP) cre=2008-11-24 mod=2008-11-24-17.25.09 F540769 ---
//PVX0100P JOB (OS09,KE50,,SP00000000),
// 'PVS-MONITOR',
// MSGCLASS=E,
// REGION=99364K
*** PVX010MP ==> PVX0100P
*** RZ1 ==> RZ2
*** PVX01M01 ==> PVX01H01
//USEDPROC JCLLIB ORDER=(PCL.U0000.P0.RZ2AKT.PERM.@007.JVA,
// PVSP.U0000.P0.JCL)
//JOBLB INCLUDE MEMBER=JOBLRZ2P
//*MAIN CLASS=PVS
//*********************************************************************
//* PVS-MONITOR / BEI PROBLEMEN BITTE PVS-PIKETT BENACHRICHTIGEN
//*********************************************************************
//* REBUILD HW-/NV-TAB
//*********************************************************************
// INCLUDE MEMBER=PVSRHWTB
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE
//*********************************************************************
//* JCLPREP 18/08/2004 08:04:57 A223682
//********************************************************************
//*
*** nur rz1 begin ==>
//INTVT1 EXEC PGM=PVSINTVT,
// PARM='PVSP,LIST'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDMP DD SYSOUT=*
//PVSSNAP DD SYSOUT=*
//*********************************************************************
//* VERIFICATION VSAM-DS
//*********************************************************************
//*
// IF RC = 0 THEN
*** nur rz1 end ==>
//VER01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PVSCKPT DD DSN=PVS.PVSCKPT,DISP=SHR
//PVSKONTO DD DSN=PVS.PVSKONTO,DISP=SHR
//PVSLOG DD DSN=PVS.PVSLOG,DISP=SHR
//PECOLL01 DD DSN=PVS.PVSCPE01,DISP=SHR
//PECOLL02 DD DSN=PVS.PVSCPE02,DISP=SHR
//PECOLL03 DD DSN=PVS.PVSCPE03,DISP=SHR
//PECOLL04 DD DSN=PVS.PVSCPE04,DISP=SHR
//PECOLL05 DD DSN=PVS.PVSCPE05,DISP=SHR
//PECOLL06 DD DSN=PVS.PVSCPE06,DISP=SHR
//PECOLL07 DD DSN=PVS.PVSCPE07,DISP=SHR
//PECOLL08 DD DSN=PVS.PVSCPE08,DISP=SHR
//PECOLL09 DD DSN=PVS.PVSCPE09,DISP=SHR
//PECOLL10 DD DSN=PVS.PVSCPE10,DISP=SHR
//SYSIN DD DSN=PVSP.U0000.P0.JCL(PVX01H01),DISP=SHR
//*********************************************************************
//* MONITOR
//* PARM='PARM1, = SUBSYSTEM P - PRODUKTION T - TEST
//* PARM2, = WORKER START A - AUTOMATISCH M - MANUELL
//*********************************************************************
// ENDIF ==> nur rz1
//*
// IF VER01.RC = 0 THEN
//MON01 EXEC PGM=PVSINIT,
// PARM='P,A'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SNAPSNAP DD SYSOUT=*
//SNAP DD SYSOUT=*
//DDSNAP DD SYSOUT=*
//CMDPSNAP DD SYSOUT=*
//*DSNTRACE DD SYSOUT=* DB2-TRACE
//PVSTRACE DD SYSOUT=N RZ2 ==> SYSOUT=*
//PVSSNAP DD SYSOUT=*
//DDCOUT DD SYSOUT=*
//SPERR01 DD DSN=PVSP.U0000.P0.SPERR.DATA,DISP=OLD
//DDPVSCFG DD DSN=PVSP.U0000.P0.PARM(CONFIG01),DISP=SHR
//GLOBVARS DD DSN=PVSP.U0000.P0.PARM(GLOBVARS),DISP=SHR
//SYSPRC01 DD SYSOUT=*
//SYSPRC02 DD SYSOUT=*
//PVSPARM DD DSN=PVSP.U0000.P0.PARM,DISP=SHR
//PVSTAB DD DSN=PVSP.U0000.P0.TAB,DISP=SHR
//PVSBEIL DD DSN=PVSP.U0000.P0.BEILAGEN.PREFIX,DISP=SHR
//PVSMSG DD DSN=PVSP.U0000.P0.MSG,DISP=SHR
//*YSMDUMP DD DSN=PVSP.U0000.P0.DUMP.#DT#,DISP=(,CATLG,CATLG),
//* SPACE=(CYL,(25,25),RLSE),
//* RECFM=FB,LRECL=4160,
//* MGMTCLAS=D035Y000
//PVSDUMP DD DSN=PVSP.U0000.P0.PVXDUMP.#DT#,
// DISP=(,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// SPACE=(CYL,(25,25),RLSE), RZ2 ==> ...,RLSE,CONTIG)
// RECFM=F,LRECL=4104
//PVSCKPT DD DSN=PVS.PVSCKPT,DISP=SHR
//PVSLOG DD DSN=PVS.PVSLOG,DISP=SHR
//PVSKONTO DD DSN=PVS.PVSKONTO,DISP=SHR
//*********************************************************************
//* SCAN-SUBTASKS
//*********************************************************************
//COUTSC01 DD SYSOUT=*
//COUTSC02 DD SYSOUT=*
//COUTSC03 DD SYSOUT=*
//COUTSC04 DD SYSOUT=*
//COUTSC05 DD SYSOUT=*
//SYSPSC01 DD DSN=PVS.PVSSC01.KEYS,
// DISP=MOD
//SYSPSC02 DD DSN=PVS.PVSSC02.KEYS,
// DISP=MOD
//SYSPSC03 DD DSN=PVS.PVSSC03.KEYS,
// DISP=MOD
//SYSPSC04 DD DSN=PVS.PVSSC04.KEYS,
// DISP=MOD
//SYSPSC05 DD DSN=PVS.PVSSC05.KEYS,
// DISP=MOD
//LOGTAB01 DD DSN=PVSP.U0000.P0.SC01.LOGTAB,DISP=SHR
//LOGTAB02 DD DSN=PVSP.U0000.P0.SC02.LOGTAB,DISP=SHR
//LOGTAB03 DD DSN=PVSP.U0000.P0.SC03.LOGTAB,DISP=SHR
//LOGTAB04 DD DSN=PVSP.U0000.P0.SC04.LOGTAB,DISP=SHR
//LOGTAB05 DD DSN=PVSP.U0000.P0.SC05.LOGTAB,DISP=SHR
//*********************************************************************
//* RDSN-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPRD01 DD SYSOUT=*
//SYSPRD02 DD SYSOUT=*
//SYSPRD03 DD SYSOUT=*
//*********************************************************************
//* PRINT-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPPR01 DD SYSOUT=*
//SYSPPR02 DD SYSOUT=*
//SOUTPR01 DD SYSOUT=*
//SOUTPR02 DD SYSOUT=*
//SIMUPR01 DD SYSOUT=*
//SIMUPR02 DD SYSOUT=*
//*********************************************************************
//* POSY
//*********************************************************************
//POSYTEMP DD DSN=POSY.RZ2.P0.AKT.TEMPLATE,DISP=SHR
//POSYTAB DD DSN=POSY.RZ2.P0.AKT.TAB,DISP=SHR
//*********************************************************************
//* COLLECTOREN: AU,BD,CH,ER,ES,FA,FG,GB,LW,PI,SP,TS,VI,XP
//*********************************************************************
//COLLAU00 DD DSN=PVS.PVSCAU00,DISP=SHR
//COLLAU01 DD DSN=PVS.PVSCAU01,DISP=SHR
//COLLAU02 DD DSN=PVS.PVSCAU02,DISP=SHR
//COLLAU03 DD DSN=PVS.PVSCAU03,DISP=SHR
//COLLAU04 DD DSN=PVS.PVSCAU04,DISP=SHR
//COLLBD00 DD DSN=PVS.PVSCBD00,DISP=SHR
//COLLBD01 DD DSN=PVS.PVSCBD01,DISP=SHR
//COLLBD02 DD DSN=PVS.PVSCBD02,DISP=SHR
//COLLBD03 DD DSN=PVS.PVSCBD03,DISP=SHR
//COLLBD04 DD DSN=PVS.PVSCBD04,DISP=SHR
//COLLCH00 DD DSN=PVS.PVSCCH00,DISP=SHR
//COLLCH01 DD DSN=PVS.PVSCCH01,DISP=SHR
//COLLCH02 DD DSN=PVS.PVSCCH02,DISP=SHR
//COLLCH03 DD DSN=PVS.PVSCCH03,DISP=SHR
//COLLCH04 DD DSN=PVS.PVSCCH04,DISP=SHR
*** nur rz2 begin
//COLLCH05 DD DSN=PVS.PVSCCH05,DISP=SHR
//COLLCH06 DD DSN=PVS.PVSCCH06,DISP=SHR
//COLLCH07 DD DSN=PVS.PVSCCH07,DISP=SHR
//COLLCH08 DD DSN=PVS.PVSCCH08,DISP=SHR
//COLLCH09 DD DSN=PVS.PVSCCH09,DISP=SHR
*** nur rz2 end
//COLLER00 DD DSN=PVS.PVSCER00,DISP=SHR
//COLLER01 DD DSN=PVS.PVSCER01,DISP=SHR
//COLLER02 DD DSN=PVS.PVSCER02,DISP=SHR
//COLLER03 DD DSN=PVS.PVSCER03,DISP=SHR
//COLLER04 DD DSN=PVS.PVSCER04,DISP=SHR
//COLLES00 DD DSN=PVS.PVSCES00,DISP=SHR
//COLLES01 DD DSN=PVS.PVSCES01,DISP=SHR
//COLLES02 DD DSN=PVS.PVSCES02,DISP=SHR
//COLLES03 DD DSN=PVS.PVSCES03,DISP=SHR
//COLLES04 DD DSN=PVS.PVSCES04,DISP=SHR
//COLLFA00 DD DSN=PVS.PVSCFA00,DISP=SHR
//COLLFA01 DD DSN=PVS.PVSCFA01,DISP=SHR
//COLLFA02 DD DSN=PVS.PVSCFA02,DISP=SHR
//COLLFA03 DD DSN=PVS.PVSCFA03,DISP=SHR
//COLLFA04 DD DSN=PVS.PVSCFA04,DISP=SHR
//COLLFG00 DD DSN=PVS.PVSCFG00,DISP=SHR
//COLLFG01 DD DSN=PVS.PVSCFG01,DISP=SHR
//COLLFG02 DD DSN=PVS.PVSCFG02,DISP=SHR
//COLLFG03 DD DSN=PVS.PVSCFG03,DISP=SHR
//COLLFG04 DD DSN=PVS.PVSCFG04,DISP=SHR
//COLLGB00 DD DSN=PVS.PVSCGB00,DISP=SHR
//COLLGB01 DD DSN=PVS.PVSCGB01,DISP=SHR
//COLLLW00 DD DSN=PVS.PVSCLW00,DISP=SHR
//COLLLW01 DD DSN=PVS.PVSCLW01,DISP=SHR
//COLLLW02 DD DSN=PVS.PVSCLW02,DISP=SHR
//COLLLW03 DD DSN=PVS.PVSCLW03,DISP=SHR
//COLLLW04 DD DSN=PVS.PVSCLW04,DISP=SHR
//COLLPI00 DD DSN=PVS.PVSCPI00,DISP=SHR
//COLLPI01 DD DSN=PVS.PVSCPI01,DISP=SHR
//COLLPI02 DD DSN=PVS.PVSCPI02,DISP=SHR
//COLLPI03 DD DSN=PVS.PVSCPI03,DISP=SHR
//COLLPI04 DD DSN=PVS.PVSCPI04,DISP=SHR
//COLLSP00 DD DSN=PVS.PVSCSP00,DISP=SHR
//COLLSP01 DD DSN=PVS.PVSCSP01,DISP=SHR
//COLLSP02 DD DSN=PVS.PVSCSP02,DISP=SHR
//COLLSP03 DD DSN=PVS.PVSCSP03,DISP=SHR
//COLLSP04 DD DSN=PVS.PVSCSP04,DISP=SHR
//COLLTS00 DD DSN=PVS.PVSCTS00,DISP=SHR
//COLLTS01 DD DSN=PVS.PVSCTS01,DISP=SHR
//COLLTS02 DD DSN=PVS.PVSCTS02,DISP=SHR
//COLLTS03 DD DSN=PVS.PVSCTS03,DISP=SHR
//COLLTS04 DD DSN=PVS.PVSCTS04,DISP=SHR
//COLLTS05 DD DSN=PVS.PVSCTS05,DISP=SHR
//COLLTS06 DD DSN=PVS.PVSCTS06,DISP=SHR
//COLLTS07 DD DSN=PVS.PVSCTS07,DISP=SHR
//COLLTS08 DD DSN=PVS.PVSCTS08,DISP=SHR
//COLLTS09 DD DSN=PVS.PVSCTS09,DISP=SHR
//COLLVI00 DD DSN=PVS.PVSCVI00,DISP=SHR
//COLLVI01 DD DSN=PVS.PVSCVI01,DISP=SHR
//COLLVI02 DD DSN=PVS.PVSCVI02,DISP=SHR
//COLLVI03 DD DSN=PVS.PVSCVI03,DISP=SHR
//COLLVI04 DD DSN=PVS.PVSCVI04,DISP=SHR
//COLLXP00 DD DSN=PVS.PVSCXP00,DISP=SHR
//COLLXP01 DD DSN=PVS.PVSCXP01,DISP=SHR
//COLLXP02 DD DSN=PVS.PVSCXP02,DISP=SHR
//COLLXP03 DD DSN=PVS.PVSCXP03,DISP=SHR
//COLLXP04 DD DSN=PVS.PVSCXP04,DISP=SHR
//PECOLL01 DD DSN=PVS.PVSCPE01,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL02 DD DSN=PVS.PVSCPE02,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL03 DD DSN=PVS.PVSCPE03,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL04 DD DSN=PVS.PVSCPE04,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL05 DD DSN=PVS.PVSCPE05,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL06 DD DSN=PVS.PVSCPE06,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL07 DD DSN=PVS.PVSCPE07,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL08 DD DSN=PVS.PVSCPE08,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL09 DD DSN=PVS.PVSCPE09,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL10 DD DSN=PVS.PVSCPE10,DISP=SHR,
// AMP='BUFNI=8'
*** nur rz1 begin
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE
//*********************************************************************
// ENDIF
//*
// IF MON01.RC = 0 THEN
//INTVT2 EXEC PGM=PVSINTVT,
// PARM='PVSP,LIST'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=E
//SYSABEND DD SYSOUT=E
//SYSUDMP DD SYSOUT=E
//PVSSNAP DD SYSOUT=E
*** nur rz1 end
//*********************************************************************
//* FREIGEBEN VON UNGENUTZTEN DUMPSPACE
//*********************************************************************
// ENDIF
//*
// IF VER01.RC = 0 THEN
//RLS01 EXEC PGM=SY2060
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DSN=*.MON01.PVSDUMP,
// DISP=MOD,
// SPACE=(TRK,(1,1),RLSE)
//SYSUT1 DD DUMMY,DCB=*.MON01.PVSDUMP
//*********************************************************************
//* KEYS AUF SYSOUT KOPIEREN
//*********************************************************************
// ENDIF
//*
// IF (VER01.RC = 0 | ABEND) THEN
//MON02 EXEC PGM=ICETOOL
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDO01 DD SYSOUT=*
//DDI01 DD DSN=PVS.PVSSC01.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC02.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC03.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC04.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC05.KEYS,DISP=SHR
//TOOLIN DD DSN=PCL.U0000.P0.RZ2AKT.PERM.@005.JNA(COPY01),DISP=SHR
//*********************************************************************
//* KEYS AUF SAVE DATASET KOPIEREN
//*********************************************************************
// ENDIF
//*
// IF (VER01.RC = 0 | ABEND) THEN
//MON03 EXEC PGM=PV7001,
// PARM='SCANLP LPCKSC'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//DDPVSCFG DD DSN=PVSP.U0000.P0.PARM(CONFIG01),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
*** nur rz2 begin
//*********************************************************************
//* MESSAGE TO THE OPERATOR IF MON03 NOT OK
//*********************************************************************
// ENDIF
//*
// IF MON03.RC ^= 0 THEN
//MON04 EXEC PGM=SY7060,
// PARM='BITTE PVS-PIKETT BENACHRICHTIGEN, DANKE'
*** nur rz2 end
// ENDIF
}¢--- A540769.WK.JCL(PVX010XX) cre=2008-11-24 mod=2008-11-24-17.25.09 F540769 ---
//PVX0100P JOB (PVS47392,0000,,3653),'PVS-MONITOR',MSGCLASS=T,
// REGION=99364K,PRTY=14
//*
*** PVX0100T ==> PVX0100P
*** RZ1 ==> RZ2
*** SYSOUT=T ==> SYSOUT=*
*** PVS.PVT ==> PVS.PVS
*** PVSLODV2 ==> PVSLODV1
*** .T0. ==> .P0.
*** PVSMON1 ==> MON01
//USEDPROC JCLLIB ORDER=(PCL.U0000.P0.RZ2AKT.PERM.@007.JVA,
// PVSP.U0000.P0.JCL)
//JOBLB INCLUDE MEMBER=JOBLRZ2P
//*
//*MAIN CLASS=PVS
//*MAIN FAILURE=CANCEL
//*
//********************************************************************
//* REBUILD HW-/NV-TAB
//********************************************************************
// INCLUDE MEMBER=PVSRHWTB
//********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE (ONLY FOR TEST)
//********************************************************************
//*
// IF (RC EQ 0) THEN NUR RZ1.TEST ==>
//INTVT1 EXEC PGM=PVSINTVT, RZ1.TEST ==> INTVT01
// PARM='PVSP,LIST' RZ1.TEST ==> ='PVST,LIST'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDMP DD SYSOUT=* RZ1.TEST ==> SYSUDUMP
//PVSSNAP DD SYSOUT=*
//*
//*********************************************************************
//* VERIFICATION VSAM-DS
//*********************************************************************
//*
// IF (RC EQ 0) THEN NUR RZ%.PROD ==>
//VER01 EXEC PGM=IDCAMS RZ1.TEST ==> VER01##
//SYSPRINT DD SYSOUT=*
//PVSCKPT DD DSN=PVS.PVSCKPT,DISP=SHR
//PVSKONTO DD DSN=PVS.PVSKONTO,DISP=SHR
//PVSLOG DD DSN=PVS.PVSLOG,DISP=SHR
//PECOLL01 DD DSN=PVS.PVSCPE01,DISP=SHR
//PECOLL02 DD DSN=PVS.PVSCPE02,DISP=SHR
//PECOLL03 DD DSN=PVS.PVSCPE03,DISP=SHR
//PECOLL04 DD DSN=PVS.PVSCPE04,DISP=SHR
//PECOLL05 DD DSN=PVS.PVSCPE05,DISP=SHR
//PECOLL06 DD DSN=PVS.PVSCPE06,DISP=SHR
//PECOLL07 DD DSN=PVS.PVSCPE07,DISP=SHR
//PECOLL08 DD DSN=PVS.PVSCPE08,DISP=SHR
//PECOLL09 DD DSN=PVS.PVSCPE09,DISP=SHR
//PECOLL10 DD DSN=PVS.PVSCPE10,DISP=SHR
*** rz2.Prod ==> PVX01H01, rz1.Prod ==> PVX01M01 rz1.test ==> PVX01T01
//SYSIN DD DSN=PVSP.U0000.P0.JCL(PVX01H01),DISP=SHR
//*
//*********************************************************************
//* MONITOR
//*
//* PARM='PARM1, = SUBSYSTEM P - PRODUKTION T - TEST
//* PARM2' = WORKER START A - AUTOMATISCH M - MANUELL
//*********************************************************************
//*
// IF VER01.RC = 0 THEN RZ1.TEST ==> COND STATT IF
//MON01 EXEC PGM=PVSINIT,
// PARM='P,A' RZ1.TEST ==> PARM='T,A'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SNAPSNAP DD SYSOUT=*
//SNAP DD SYSOUT=*
//DDSNAP DD SYSOUT=*
//CMDPSNAP DD SYSOUT=*
//*SNTRACE DD SYSOUT=*
*** ==> NUR RZ1.TEST BEGIN ==>
//STDIN DD SYSOUT=*
//STDOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SIMPRINT DD SYSOUT=*
//SNAP00 DD SYSOUT=*
//*X37TRACE DD SYSOUT=*
*** ==> NUR RZ1.TEST END ==>
//PVSTRACE DD SYSOUT=* RZ1.PROD ==A SYSOUT=N
//PVSSNAP DD SYSOUT=*
//DDCOUT DD SYSOUT=*
//SPERR01 DD DSN=PVSP.U0000.P0.SPERR.DATA,DISP=OLD
//DDPVSCFG DD DSN=PVSP.U0000.P0.PARM(CONFIG01),DISP=SHR
//GLOBVARS DD DSN=PVSP.U0000.P0.PARM(GLOBVARS),DISP=SHR
//SYSPRC01 DD SYSOUT=*
//SYSPRC02 DD SYSOUT=*
//PVSPARM DD DSN=PVSP.U0000.P0.PARM,DISP=SHR
//PVSTAB DD DSN=PVSP.U0000.P0.TAB,DISP=SHR
//PVSBEIL DD DSN=PVSP.U0000.P0.BEILAGEN.PREFIX,DISP=SHR
//PVSMSG DD DSN=PVSP.U0000.P0.MSG,DISP=SHR
//*SYSMDUMP DD DSN=PVSP.U0000.P0.DUMP.#DT#,DISP=(,CATLG,CATLG),
//* SPACE=(CYL,(25,25),RLSE),
//* RECFM=FB,LRECL=4160,
//* MGMTCLAS=D005N000
//PVSDUMP DD DSN=PVSP.U0000.P0.PVXDUMP.#DT#,
// DISP=(,CATLG,CATLG),
// MGMTCLAS=COM#E005, RZ1.TEST ==> D005N000
// SPACE=(CYL,(25,25),RLSE), RZ2 ==> ...,RLSE,CONTIG)
// RECFM=F,LRECL=4104 RZ1.TEST ==> RECFM=FB,..
//PVSCKPT DD DSN=PVS.PVSCKPT,DISP=SHR
//PVSLOG DD DSN=PVS.PVSLOG,DISP=SHR
//PVSKONTO DD DSN=PVS.PVSKONTO,DISP=SHR
//COUTSC01 DD SYSOUT=*
//COUTSC02 DD SYSOUT=*
//COUTSC03 DD SYSOUT=*
//COUTSC04 DD SYSOUT=*
//COUTSC05 DD SYSOUT=*
//SYSPSC01 DD DSN=PVS.PVSSC01.KEYS,
// DISP=MOD RZ1.TEST ==> DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC02 DD DSN=PVS.PVSSC02.KEYS,
// DISP=MOD RZ1.TEST ==> DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC03 DD DSN=PVS.PVSSC03.KEYS,
// DISP=MOD RZ1.TEST ==> DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC04 DD DSN=PVS.PVSSC04.KEYS,
// DISP=MOD RZ1.TEST ==> DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC05 DD DSN=PVS.PVSSC05.KEYS,
// DISP=MOD RZ1.TEST ==> DISP=MOD,DCB=DIAGNS=TRACE
//LOGTAB01 DD DSN=PVSP.U0000.P0.SC01.LOGTAB,DISP=SHR
//LOGTAB02 DD DSN=PVSP.U0000.P0.SC02.LOGTAB,DISP=SHR
//LOGTAB03 DD DSN=PVSP.U0000.P0.SC03.LOGTAB,DISP=SHR
//LOGTAB04 DD DSN=PVSP.U0000.P0.SC04.LOGTAB,DISP=SHR
//LOGTAB05 DD DSN=PVSP.U0000.P0.SC05.LOGTAB,DISP=SHR
//*********************************************************************
//*********************************************************************
//* RDSN-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPRD01 DD SYSOUT=*
//SYSPRD02 DD SYSOUT=*
//SYSPRD03 DD SYSOUT=*
//*********************************************************************
//* PRINT-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPPR01 DD SYSOUT=*
//SYSPPR02 DD SYSOUT=*
//SOUTPR01 DD SYSOUT=*
//SOUTPR02 DD SYSOUT=*
//SIMUPR01 DD SYSOUT=*
//SIMUPR02 DD SYSOUT=*
//*********************************************************************
//* POSY
//*********************************************************************
//POSYTEMP DD DSN=POSY.RZ2.P0.AKT.TEMPLATE,DISP=SHR
//POSYTAB DD DSN=POSY.RZ2.P0.AKT.TAB,DISP=SHR
//*********************************************************************
//* COLLECTOREN: AU,BD,CH,ER,ES,FA,FG,GB,LW,PI,SP,TS,VI,XP
//*********************************************************************
//COLLAU00 DD DSN=PVS.PVSCAU00,DISP=SHR
//COLLAU01 DD DSN=PVS.PVSCAU01,DISP=SHR
//COLLAU02 DD DSN=PVS.PVSCAU02,DISP=SHR
//COLLAU03 DD DSN=PVS.PVSCAU03,DISP=SHR
//COLLAU04 DD DSN=PVS.PVSCAU04,DISP=SHR
//COLLBD00 DD DSN=PVS.PVSCBD00,DISP=SHR
//COLLBD01 DD DSN=PVS.PVSCBD01,DISP=SHR
//COLLBD02 DD DSN=PVS.PVSCBD02,DISP=SHR
//COLLBD03 DD DSN=PVS.PVSCBD03,DISP=SHR
//COLLBD04 DD DSN=PVS.PVSCBD04,DISP=SHR
//COLLCH00 DD DSN=PVS.PVSCCH00,DISP=SHR
//COLLCH01 DD DSN=PVS.PVSCCH01,DISP=SHR
//COLLCH02 DD DSN=PVS.PVSCCH02,DISP=SHR
//COLLCH03 DD DSN=PVS.PVSCCH03,DISP=SHR
//COLLCH04 DD DSN=PVS.PVSCCH04,DISP=SHR
//COLLER00 DD DSN=PVS.PVSCER00,DISP=SHR
//COLLER01 DD DSN=PVS.PVSCER01,DISP=SHR
//COLLER02 DD DSN=PVS.PVSCER02,DISP=SHR
//COLLER03 DD DSN=PVS.PVSCER03,DISP=SHR
//COLLER04 DD DSN=PVS.PVSCER04,DISP=SHR
//COLLES00 DD DSN=PVS.PVSCES00,DISP=SHR
//COLLES01 DD DSN=PVS.PVSCES01,DISP=SHR
//COLLES02 DD DSN=PVS.PVSCES02,DISP=SHR
//COLLES03 DD DSN=PVS.PVSCES03,DISP=SHR
//COLLES04 DD DSN=PVS.PVSCES04,DISP=SHR
//COLLFA00 DD DSN=PVS.PVSCFA00,DISP=SHR
//COLLFA01 DD DSN=PVS.PVSCFA01,DISP=SHR
//COLLFA02 DD DSN=PVS.PVSCFA02,DISP=SHR
//COLLFA03 DD DSN=PVS.PVSCFA03,DISP=SHR
//COLLFA04 DD DSN=PVS.PVSCFA04,DISP=SHR
//COLLFG00 DD DSN=PVS.PVSCFG00,DISP=SHR
//COLLFG01 DD DSN=PVS.PVSCFG01,DISP=SHR
//COLLFG02 DD DSN=PVS.PVSCFG02,DISP=SHR
//COLLFG03 DD DSN=PVS.PVSCFG03,DISP=SHR
//COLLFG04 DD DSN=PVS.PVSCFG04,DISP=SHR
//COLLGB00 DD DSN=PVS.PVSCGB00,DISP=SHR
//COLLGB01 DD DSN=PVS.PVSCGB01,DISP=SHR
//COLLLW00 DD DSN=PVS.PVSCLW00,DISP=SHR
//COLLLW01 DD DSN=PVS.PVSCLW01,DISP=SHR
//COLLLW02 DD DSN=PVS.PVSCLW02,DISP=SHR
//COLLLW03 DD DSN=PVS.PVSCLW03,DISP=SHR
//COLLLW04 DD DSN=PVS.PVSCLW04,DISP=SHR
//COLLPI00 DD DSN=PVS.PVSCPI00,DISP=SHR
//COLLPI01 DD DSN=PVS.PVSCPI01,DISP=SHR
//COLLPI02 DD DSN=PVS.PVSCPI02,DISP=SHR
//COLLPI03 DD DSN=PVS.PVSCPI03,DISP=SHR
//COLLPI04 DD DSN=PVS.PVSCPI04,DISP=SHR
//COLLSP00 DD DSN=PVS.PVSCSP00,DISP=SHR
//COLLSP01 DD DSN=PVS.PVSCSP01,DISP=SHR
//COLLSP02 DD DSN=PVS.PVSCSP02,DISP=SHR
//COLLSP03 DD DSN=PVS.PVSCSP03,DISP=SHR
//COLLSP04 DD DSN=PVS.PVSCSP04,DISP=SHR
//COLLTS00 DD DSN=PVS.PVSCTS00,DISP=SHR
//COLLTS01 DD DSN=PVS.PVSCTS01,DISP=SHR
//COLLTS02 DD DSN=PVS.PVSCTS02,DISP=SHR
//COLLTS03 DD DSN=PVS.PVSCTS03,DISP=SHR
//COLLTS04 DD DSN=PVS.PVSCTS04,DISP=SHR
*** NUR RZ%.PROD ==> BEGIN
//COLLTS05 DD DSN=PVS.PVSCTS05,DISP=SHR
//COLLTS06 DD DSN=PVS.PVSCTS06,DISP=SHR
//COLLTS07 DD DSN=PVS.PVSCTS07,DISP=SHR
//COLLTS08 DD DSN=PVS.PVSCTS08,DISP=SHR
//COLLTS09 DD DSN=PVS.PVSCTS09,DISP=SHR
*** NUR RZ%.PROD ==> END
//COLLVI00 DD DSN=PVS.PVSCVI00,DISP=SHR
//COLLVI01 DD DSN=PVS.PVSCVI01,DISP=SHR
//COLLVI02 DD DSN=PVS.PVSCVI02,DISP=SHR
//COLLVI03 DD DSN=PVS.PVSCVI03,DISP=SHR
//COLLVI04 DD DSN=PVS.PVSCVI04,DISP=SHR
//COLLXP00 DD DSN=PVS.PVSCXP00,DISP=SHR
//COLLXP01 DD DSN=PVS.PVSCXP01,DISP=SHR
//COLLXP02 DD DSN=PVS.PVSCXP02,DISP=SHR
//COLLXP03 DD DSN=PVS.PVSCXP03,DISP=SHR
//COLLXP04 DD DSN=PVS.PVSCXP04,DISP=SHR
//PECOLL01 DD DSN=PVS.PVSCPE01,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL02 DD DSN=PVS.PVSCPE02,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL03 DD DSN=PVS.PVSCPE03,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL04 DD DSN=PVS.PVSCPE04,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL05 DD DSN=PVS.PVSCPE05,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL06 DD DSN=PVS.PVSCPE06,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL07 DD DSN=PVS.PVSCPE07,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL08 DD DSN=PVS.PVSCPE08,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL09 DD DSN=PVS.PVSCPE09,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//PECOLL10 DD DSN=PVS.PVSCPE10,DISP=SHR,
// AMP='BUFNI=8' RZ1.TEST ==> AMP='BUFNI=5'
//*
*** nur rz1 ==> begin
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE (ONLY FOR TEST)
//*********************************************************************
// ENDIF RZ1.TEST ==> COND ==> IF
//*
// IF MON01.RC = 0 THEN NUR RZ1.PROD ==>
//INTVT2 EXEC PGM=PVSINTVT, RZ1.TEST ==> //INTVT02
// PARM='PVSP,LIST' RZ1.TEST ==> PARM='PVST,LIST'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=E RZ1.TEST ==> SYSOUT=*
//SYSABEND DD SYSOUT=E RZ1.TEST ==> SYSOUT=*
//SYSUDUMP DD SYSOUT=E RZ1.TEST ==> SYSOUT=*
//PVSSNAP DD SYSOUT=E RZ1.TEST ==> SYSOUT=*
//*
*** nur rz1 ==> end
//*********************************************************************
//* FREIGEBEN VON UNGENUTZTEN DUMPSPACE
//*********************************************************************
// ENDIF nur rz1.prod ==>
//*
// IF VER01.RC = 0 THEN rz1.test ==> mit cond
//RLS01 EXEC PGM=SY2060 rz1.test ==> //RLS01## & cond
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DSN=*.MON01.PVSDUMP,
// DISP=MOD,
// SPACE=(TRK,(1,1),RLSE)
//SYSUT1 DD DUMMY,DCB=*.MON01.PVSDUMP
// ENDIF rz1.test ==> mit cond
//*********************************************************************
//* KEYS AUF SYSOUT KOPIEREN
//*********************************************************************
//*
*** nur rz%.prod ==> begin mit icetool
//MON02 EXEC PGM=ICETOOL
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDO01 DD SYSOUT=*
//DDI01 DD DSN=PVS.PVSSC01.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC02.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC03.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC04.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC05.KEYS,DISP=SHR
//TOOLIN DD DSN=PCL.U0000.P0.RZ2AKT.PERM.@005.JNA(COPY01),DISP=SHR
*** nur rz%.prod ==> end mit icetool
*** nur rz1.test ==> begin mit icegener
//PVSMON2 EXEC PGM=ICEGENER,COND=((0,NE,VER01##),EVEN)
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUT2 DD SYSOUT=*
//SYSUT1 DD DSN=PVS.PVSSC01.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC02.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC03.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC04.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC05.KEYS,DISP=SHR
//SYSIN DD DUMMY
*** nur rz1.test ==> end mit icegener
//*
//*********************************************************************
//* KEYS AUF SAVE DATASET KOPIEREN
//*********************************************************************
//*
// IF (VER01.RC = 0 | ABEND) THEN rz1.test ==> mit cond
//MON03 EXEC PGM=PV7001, rz1.test ==> //PVSMON3
// PARM='SCANLP LPCKSC'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//DDPVSCFG DD DSN=PVSP.U0000.P0.PARM(CONFIG01),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
// ENDIF rz1.test ==> mit cond
*** nur rz2 begin
//*********************************************************************
//* MESSAGE TO THE OPERATOR IF MON03 NOT OK
//*********************************************************************
//*
// IF MON03.RC ^= 0 THEN
//MON04 EXEC PGM=SY7060,
// PARM='BITTE PVS-PIKETT BENACHRICHTIGEN, DANKE'
//* PARM='TEST REPLY, HANDLED BY PVS-PIKETT'
// ENDIF
*** nur rz2 end
}¢--- A540769.WK.JCL(PVX0100P) cre=2008-11-24 mod=2008-11-24-17.25.10 F540769 ---
//PVX0100P JOB (OS09,KE50,,SP00000000),
// 'PVS-MONITOR',
// MSGCLASS=E,
// REGION=99364K
//USEDPROC JCLLIB ORDER=(PCL.U0000.P0.RZ2AKT.PERM.@007.JVA,
// PVSP.U0000.P0.JCL)
//JOBLB INCLUDE MEMBER=JOBLRZ2P
//*MAIN CLASS=PVS
//*********************************************************************
//* PVS-MONITOR / BEI PROBLEMEN BITTE PVS-PIKETT BENACHRICHTIGEN
//*********************************************************************
//* REBUILD HW-/NV-TAB
//*********************************************************************
// INCLUDE MEMBER=PVSRHWTB
//*********************************************************************
//* VERIFICATION VSAM-DS
//*********************************************************************
//* JCLPREP 23/07/2004 07:54:13 A203955
//********************************************************************
//*
//VER01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PVSCKPT DD DSN=PVS.PVSCKPT,DISP=SHR
//PVSKONTO DD DSN=PVS.PVSKONTO,DISP=SHR
//PVSLOG DD DSN=PVS.PVSLOG,DISP=SHR
//PECOLL01 DD DSN=PVS.PVSCPE01,DISP=SHR
//PECOLL02 DD DSN=PVS.PVSCPE02,DISP=SHR
//PECOLL03 DD DSN=PVS.PVSCPE03,DISP=SHR
//PECOLL04 DD DSN=PVS.PVSCPE04,DISP=SHR
//PECOLL05 DD DSN=PVS.PVSCPE05,DISP=SHR
//PECOLL06 DD DSN=PVS.PVSCPE06,DISP=SHR
//PECOLL07 DD DSN=PVS.PVSCPE07,DISP=SHR
//PECOLL08 DD DSN=PVS.PVSCPE08,DISP=SHR
//PECOLL09 DD DSN=PVS.PVSCPE09,DISP=SHR
//PECOLL10 DD DSN=PVS.PVSCPE10,DISP=SHR
//SYSIN DD DSN=PVSP.U0000.P0.JCL(PVX01H01),DISP=SHR
//*********************************************************************
//* MONITOR
//* PARM='PARM1, = SUBSYSTEM P - PRODUKTION T - TEST
//* PARM2, = WORKER START A - AUTOMATISCH M - MANUELL
//*********************************************************************
//*
// IF VER01.RC = 0 THEN
//MON01 EXEC PGM=PVSINIT,
// PARM='P,A'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SNAPSNAP DD SYSOUT=*
//SNAP DD SYSOUT=*
//DDSNAP DD SYSOUT=*
//CMDPSNAP DD SYSOUT=*
//*SNTRACE DD SYSOUT=*
//PVSTRACE DD SYSOUT=*
//PVSSNAP DD SYSOUT=*
//DDCOUT DD SYSOUT=*
//SPERR01 DD DSN=PVSP.U0000.P0.SPERR.DATA,DISP=OLD
//DDPVSCFG DD DSN=PVSP.U0000.P0.PARM(CONFIG01),DISP=SHR
//GLOBVARS DD DSN=PVSP.U0000.P0.PARM(GLOBVARS),DISP=SHR
//SYSPRC01 DD SYSOUT=*
//SYSPRC02 DD SYSOUT=*
//PVSPARM DD DSN=PVSP.U0000.P0.PARM,DISP=SHR
//PVSTAB DD DSN=PVSP.U0000.P0.TAB,DISP=SHR
//PVSBEIL DD DSN=PVSP.U0000.P0.BEILAGEN.PREFIX,DISP=SHR
//PVSMSG DD DSN=PVSP.U0000.P0.MSG,DISP=SHR
//*YSMDUMP DD DSN=PVSP.U0000.P0.DUMP.#DT#,DISP=(,CATLG,CATLG),
//* SPACE=(CYL,(300,100),RLSE,CONTIG,ROUND),
//* RECFM=FB,LRECL=4160,
//* MGMTCLAS=D035Y000
//PVSDUMP DD DSN=PVSP.U0000.P0.PVXDUMP.#DT#,
// DISP=(,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// SPACE=(CYL,(25,25),RLSE,CONTIG),
// RECFM=F,LRECL=4104
//PVSCKPT DD DSN=PVS.PVSCKPT,DISP=SHR
//PVSLOG DD DSN=PVS.PVSLOG,DISP=SHR
//PVSKONTO DD DSN=PVS.PVSKONTO,DISP=SHR
//*********************************************************************
//* SCAN-SUBTASKS
//*********************************************************************
//COUTSC01 DD SYSOUT=*
//COUTSC02 DD SYSOUT=*
//COUTSC03 DD SYSOUT=*
//COUTSC04 DD SYSOUT=*
//COUTSC05 DD SYSOUT=*
//SYSPSC01 DD DSN=PVS.PVSSC01.KEYS,
// DISP=MOD
//SYSPSC02 DD DSN=PVS.PVSSC02.KEYS,
// DISP=MOD
//SYSPSC03 DD DSN=PVS.PVSSC03.KEYS,
// DISP=MOD
//SYSPSC04 DD DSN=PVS.PVSSC04.KEYS,
// DISP=MOD
//SYSPSC05 DD DSN=PVS.PVSSC05.KEYS,
// DISP=MOD
//LOGTAB01 DD DSN=PVSP.U0000.P0.SC01.LOGTAB,DISP=SHR
//LOGTAB02 DD DSN=PVSP.U0000.P0.SC02.LOGTAB,DISP=SHR
//LOGTAB03 DD DSN=PVSP.U0000.P0.SC03.LOGTAB,DISP=SHR
//LOGTAB04 DD DSN=PVSP.U0000.P0.SC04.LOGTAB,DISP=SHR
//LOGTAB05 DD DSN=PVSP.U0000.P0.SC05.LOGTAB,DISP=SHR
//*********************************************************************
//* RDSN-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPRD01 DD SYSOUT=*
//SYSPRD02 DD SYSOUT=*
//SYSPRD03 DD SYSOUT=*
//*********************************************************************
//* PRINT-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPPR01 DD SYSOUT=*
//SYSPPR02 DD SYSOUT=*
//SOUTPR01 DD SYSOUT=*
//SOUTPR02 DD SYSOUT=*
//SIMUPR01 DD SYSOUT=*
//SIMUPR02 DD SYSOUT=*
//*********************************************************************
//* POSY
//*********************************************************************
//POSYTEMP DD DSN=POSY.RZ2.P0.AKT.TEMPLATE,DISP=SHR
//POSYTAB DD DSN=POSY.RZ2.P0.AKT.TAB,DISP=SHR
//*********************************************************************
//* COLLECTOREN: AU,BD,CH,ER,ES,FA,FG,GB,LW,PI,SP,TS,VI,XP
//*********************************************************************
//COLLAU00 DD DSN=PVS.PVSCAU00,DISP=SHR
//COLLAU01 DD DSN=PVS.PVSCAU01,DISP=SHR
//COLLAU02 DD DSN=PVS.PVSCAU02,DISP=SHR
//COLLAU03 DD DSN=PVS.PVSCAU03,DISP=SHR
//COLLAU04 DD DSN=PVS.PVSCAU04,DISP=SHR
//COLLBD00 DD DSN=PVS.PVSCBD00,DISP=SHR
//COLLBD01 DD DSN=PVS.PVSCBD01,DISP=SHR
//COLLBD02 DD DSN=PVS.PVSCBD02,DISP=SHR
//COLLBD03 DD DSN=PVS.PVSCBD03,DISP=SHR
//COLLBD04 DD DSN=PVS.PVSCBD04,DISP=SHR
//COLLCH00 DD DSN=PVS.PVSCCH00,DISP=SHR
//COLLCH01 DD DSN=PVS.PVSCCH01,DISP=SHR
//COLLCH02 DD DSN=PVS.PVSCCH02,DISP=SHR
//COLLCH03 DD DSN=PVS.PVSCCH03,DISP=SHR
//COLLCH04 DD DSN=PVS.PVSCCH04,DISP=SHR
//COLLCH05 DD DSN=PVS.PVSCCH05,DISP=SHR
//COLLCH06 DD DSN=PVS.PVSCCH06,DISP=SHR
//COLLCH07 DD DSN=PVS.PVSCCH07,DISP=SHR
//COLLCH08 DD DSN=PVS.PVSCCH08,DISP=SHR
//COLLCH09 DD DSN=PVS.PVSCCH09,DISP=SHR
//COLLER00 DD DSN=PVS.PVSCER00,DISP=SHR
//COLLER01 DD DSN=PVS.PVSCER01,DISP=SHR
//COLLER02 DD DSN=PVS.PVSCER02,DISP=SHR
//COLLER03 DD DSN=PVS.PVSCER03,DISP=SHR
//COLLER04 DD DSN=PVS.PVSCER04,DISP=SHR
//COLLES00 DD DSN=PVS.PVSCES00,DISP=SHR
//COLLES01 DD DSN=PVS.PVSCES01,DISP=SHR
//COLLES02 DD DSN=PVS.PVSCES02,DISP=SHR
//COLLES03 DD DSN=PVS.PVSCES03,DISP=SHR
//COLLES04 DD DSN=PVS.PVSCES04,DISP=SHR
//COLLFA00 DD DSN=PVS.PVSCFA00,DISP=SHR
//COLLFA01 DD DSN=PVS.PVSCFA01,DISP=SHR
//COLLFA02 DD DSN=PVS.PVSCFA02,DISP=SHR
//COLLFA03 DD DSN=PVS.PVSCFA03,DISP=SHR
//COLLFA04 DD DSN=PVS.PVSCFA04,DISP=SHR
//COLLFG00 DD DSN=PVS.PVSCFG00,DISP=SHR
//COLLFG01 DD DSN=PVS.PVSCFG01,DISP=SHR
//COLLFG02 DD DSN=PVS.PVSCFG02,DISP=SHR
//COLLFG03 DD DSN=PVS.PVSCFG03,DISP=SHR
//COLLFG04 DD DSN=PVS.PVSCFG04,DISP=SHR
//COLLGB00 DD DSN=PVS.PVSCGB00,DISP=SHR
//COLLGB01 DD DSN=PVS.PVSCGB01,DISP=SHR
//COLLLW00 DD DSN=PVS.PVSCLW00,DISP=SHR
//COLLLW01 DD DSN=PVS.PVSCLW01,DISP=SHR
//COLLLW02 DD DSN=PVS.PVSCLW02,DISP=SHR
//COLLLW03 DD DSN=PVS.PVSCLW03,DISP=SHR
//COLLLW04 DD DSN=PVS.PVSCLW04,DISP=SHR
//COLLPI00 DD DSN=PVS.PVSCPI00,DISP=SHR
//COLLPI01 DD DSN=PVS.PVSCPI01,DISP=SHR
//COLLPI02 DD DSN=PVS.PVSCPI02,DISP=SHR
//COLLPI03 DD DSN=PVS.PVSCPI03,DISP=SHR
//COLLPI04 DD DSN=PVS.PVSCPI04,DISP=SHR
//COLLSP00 DD DSN=PVS.PVSCSP00,DISP=SHR
//COLLSP01 DD DSN=PVS.PVSCSP01,DISP=SHR
//COLLSP02 DD DSN=PVS.PVSCSP02,DISP=SHR
//COLLSP03 DD DSN=PVS.PVSCSP03,DISP=SHR
//COLLSP04 DD DSN=PVS.PVSCSP04,DISP=SHR
//COLLTS00 DD DSN=PVS.PVSCTS00,DISP=SHR
//COLLTS01 DD DSN=PVS.PVSCTS01,DISP=SHR
//COLLTS02 DD DSN=PVS.PVSCTS02,DISP=SHR
//COLLTS03 DD DSN=PVS.PVSCTS03,DISP=SHR
//COLLTS04 DD DSN=PVS.PVSCTS04,DISP=SHR
//COLLTS05 DD DSN=PVS.PVSCTS05,DISP=SHR
//COLLTS06 DD DSN=PVS.PVSCTS06,DISP=SHR
//COLLTS07 DD DSN=PVS.PVSCTS07,DISP=SHR
//COLLTS08 DD DSN=PVS.PVSCTS08,DISP=SHR
//COLLTS09 DD DSN=PVS.PVSCTS09,DISP=SHR
//COLLVI00 DD DSN=PVS.PVSCVI00,DISP=SHR
//COLLVI01 DD DSN=PVS.PVSCVI01,DISP=SHR
//COLLVI02 DD DSN=PVS.PVSCVI02,DISP=SHR
//COLLVI03 DD DSN=PVS.PVSCVI03,DISP=SHR
//COLLVI04 DD DSN=PVS.PVSCVI04,DISP=SHR
//COLLXP00 DD DSN=PVS.PVSCXP00,DISP=SHR
//COLLXP01 DD DSN=PVS.PVSCXP01,DISP=SHR
//COLLXP02 DD DSN=PVS.PVSCXP02,DISP=SHR
//COLLXP03 DD DSN=PVS.PVSCXP03,DISP=SHR
//COLLXP04 DD DSN=PVS.PVSCXP04,DISP=SHR
//PECOLL01 DD DSN=PVS.PVSCPE01,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL02 DD DSN=PVS.PVSCPE02,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL03 DD DSN=PVS.PVSCPE03,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL04 DD DSN=PVS.PVSCPE04,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL05 DD DSN=PVS.PVSCPE05,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL06 DD DSN=PVS.PVSCPE06,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL07 DD DSN=PVS.PVSCPE07,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL08 DD DSN=PVS.PVSCPE08,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL09 DD DSN=PVS.PVSCPE09,DISP=SHR,
// AMP='BUFNI=8'
//PECOLL10 DD DSN=PVS.PVSCPE10,DISP=SHR,
// AMP='BUFNI=8'
//*********************************************************************
//* FREIGEBEN VON UNGENUTZTEN DUMPSPACE
//*********************************************************************
// ENDIF
//*
// IF VER01.RC = 0 THEN
//RLS01 EXEC PGM=SY2060
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DSN=*.MON01.PVSDUMP,
// DISP=MOD,
// SPACE=(TRK,(1,1),RLSE)
//SYSUT1 DD DUMMY,DCB=*.MON01.PVSDUMP
//*********************************************************************
//* KEYS AUF SYSOUT KOPIEREN
//*********************************************************************
// ENDIF
//*
// IF (VER01.RC = 0 | ABEND) THEN
//MON02 EXEC PGM=ICETOOL
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//DDO01 DD SYSOUT=*
//DDI01 DD DSN=PVS.PVSSC01.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC02.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC03.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC04.KEYS,DISP=SHR
// DD DSN=PVS.PVSSC05.KEYS,DISP=SHR
//TOOLIN DD DSN=PCL.U0000.P0.RZ2AKT.PERM.@005.JNA(COPY01),DISP=SHR
//*********************************************************************
//* KEYS AUF SAVE DATASET KOPIEREN
//*********************************************************************
// ENDIF
//*
// IF (VER01.RC = 0 | ABEND) THEN
//MON03 EXEC PGM=PV7001,
// PARM='SCANLP LPCKSC'
//STEPLIB DD DSN=PVS.PVSLODV1,DISP=SHR
//DDPVSCFG DD DSN=PVSP.U0000.P0.PARM(CONFIG01),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*********************************************************************
//* MESSAGE TO THE OPERATOR IF MON03 NOT OK
//*********************************************************************
// ENDIF
//*
// IF MON03.RC ^= 0 THEN
//MON04 EXEC PGM=SY7060,
// PARM='BITTE PVS-PIKETT BENACHRICHTIGEN, DANKE'
// ENDIF
}¢--- A540769.WK.JCL(PVX0100T) cre= mod=-. -------------------------------------
//PVX0100T JOB (PVS47392,0000,,3653),'PVS-MONITOR',MSGCLASS=T,
// REGION=99364K,PRTY=14
//*
//USEDPROC JCLLIB ORDER=(PCL.U0000.P0.RZ1AKT.PERM.@007.JVA,
// PVSP.U0000.T0.JCL)
//JOBLB INCLUDE MEMBER=JOBLRZ1P
//*
//*MAIN CLASS=PVS
//*MAIN FAILURE=CANCEL
//*
//********************************************************************
//* REBUILD HW-/NV-TAB
//********************************************************************
//*
// INCLUDE MEMBER=PVSRHWTB
//*
//********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE (ONLY FOR TEST)
//********************************************************************
//*
// IF (RC EQ 0) THEN
//INTVT01 EXEC PGM=PVSINTVT,PARM='PVST,LIST'
//STEPLIB DD DSN=PVS.PVSLODV2,DISP=SHR
//SYSPRINT DD SYSOUT=T
//SYSABEND DD SYSOUT=T
//SYSUDUMP DD SYSOUT=T
//PVSSNAP DD SYSOUT=T
//*
//*********************************************************************
//* VERIFICATION VSAM-DS
//*********************************************************************
//*
//VER01## EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PVSCKPT DD DSN=PVS.PVTCKPT,DISP=SHR
//PVSKONTO DD DSN=PVS.PVTKONTO,DISP=SHR
//PVSLOG DD DSN=PVS.PVTLOG,DISP=SHR
//PECOLL01 DD DSN=PVS.PVTCPE01,DISP=SHR
//PECOLL02 DD DSN=PVS.PVTCPE02,DISP=SHR
//PECOLL03 DD DSN=PVS.PVTCPE03,DISP=SHR
//PECOLL04 DD DSN=PVS.PVTCPE04,DISP=SHR
//PECOLL05 DD DSN=PVS.PVTCPE05,DISP=SHR
//PECOLL06 DD DSN=PVS.PVTCPE06,DISP=SHR
//PECOLL07 DD DSN=PVS.PVTCPE07,DISP=SHR
//PECOLL08 DD DSN=PVS.PVTCPE08,DISP=SHR
//PECOLL09 DD DSN=PVS.PVTCPE09,DISP=SHR
//PECOLL10 DD DSN=PVS.PVTCPE10,DISP=SHR
//SYSIN DD DSN=PVSP.U0000.T0.JCL(PVX01T01),DISP=SHR
//*
//*********************************************************************
//* MONITOR
//*
//* PARM='PARM1, = SUBSYSTEM P - PRODUKTION T - TEST
//* PARM2' = WORKER START A - AUTOMATISCH M - MANUELL
//*********************************************************************
//*
//PVSMON1 EXEC PGM=PVSINIT,PARM='T,A',COND=(0,NE,VER01##)
//STEPLIB DD DSN=PVS.PVSLODV2,DISP=SHR
//STDIN DD SYSOUT=*
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*SNTRACE DD SYSOUT=*
//SIMPRINT DD SYSOUT=*
//DDCOUT DD SYSOUT=*
//COUTSC01 DD SYSOUT=*
//COUTSC02 DD SYSOUT=*
//COUTSC03 DD SYSOUT=*
//COUTSC04 DD SYSOUT=*
//COUTSC05 DD SYSOUT=*
//SPERR01 DD DSN=PVSP.U0000.T0.SPERR.DATA,DISP=OLD
//SYSTERM DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SNAP00 DD SYSOUT=*
//SNAPSNAP DD SYSOUT=*
//SNAP DD SYSOUT=*
//DDSNAP DD SYSOUT=*
//CMDPSNAP DD SYSOUT=*
//PVSTRACE DD SYSOUT=*
//PVSSNAP DD SYSOUT=*
//*X37TRACE DD SYSOUT=*
//LOGTAB01 DD DSN=PVSP.U0000.T0.SC01.LOGTAB,DISP=SHR
//LOGTAB02 DD DSN=PVSP.U0000.T0.SC02.LOGTAB,DISP=SHR
//LOGTAB03 DD DSN=PVSP.U0000.T0.SC03.LOGTAB,DISP=SHR
//LOGTAB04 DD DSN=PVSP.U0000.T0.SC04.LOGTAB,DISP=SHR
//LOGTAB05 DD DSN=PVSP.U0000.T0.SC05.LOGTAB,DISP=SHR
//DDPVSCFG DD DSN=PVSP.U0000.T0.PARM(CONFIG01),DISP=SHR
//GLOBVARS DD DSN=PVSP.U0000.T0.PARM(GLOBVARS),DISP=SHR
//SYSPRC01 DD SYSOUT=*
//SYSPRC02 DD SYSOUT=*
//SYSPSC01 DD DSN=PVS.PVTSC01.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC02 DD DSN=PVS.PVTSC02.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC03 DD DSN=PVS.PVTSC03.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC04 DD DSN=PVS.PVTSC04.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//SYSPSC05 DD DSN=PVS.PVTSC05.KEYS,DISP=MOD,DCB=DIAGNS=TRACE
//PVSPARM DD DSN=PVSP.U0000.T0.PARM,DISP=SHR
//PVSTAB DD DSN=PVSP.U0000.T0.TAB,DISP=SHR
//PVSBEIL DD DSN=PVSP.U0000.T0.BEILAGEN.PREFIX,DISP=SHR
//PVSMSG DD DSN=PVSP.U0000.T0.MSG,DISP=SHR
//PVSCKPT DD DSN=PVS.PVTCKPT,DISP=SHR
//PVSLOG DD DSN=PVS.PVTLOG,DISP=SHR
//PVSKONTO DD DSN=PVS.PVTKONTO,DISP=SHR
//*********************************************************************
//PVSDUMP DD DSN=PVSP.U0000.T0.PVXDUMP.#DT#,DISP=(,CATLG,CATLG),
// SPACE=(CYL,(25,25),RLSE),
// RECFM=FB,LRECL=4104,
// MGMTCLAS=D005N000
//*SYSMDUMP DD DSN=PVSP.U0000.T0.DUMP.#DT#,DISP=(,CATLG,CATLG),
//* SPACE=(CYL,(25,25),RLSE),
//* RECFM=FB,LRECL=4160,
//* MGMTCLAS=D005N000
//*********************************************************************
//* RDSN-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPRD01 DD SYSOUT=*
//SYSPRD02 DD SYSOUT=*
//SYSPRD03 DD SYSOUT=*
//*********************************************************************
//* PRINT-SUBTASKS-SYSOUT'S
//*********************************************************************
//SYSPPR01 DD SYSOUT=*
//SYSPPR02 DD SYSOUT=*
//SOUTPR01 DD SYSOUT=*
//SOUTPR02 DD SYSOUT=*
//SIMUPR01 DD SYSOUT=*
//SIMUPR02 DD SYSOUT=*
//*********************************************************************
//* POSY
//*********************************************************************
//POSYTEMP DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TEMPLATE
//POSYTAB DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TAB
//*********************************************************************
//* COLLECTOREN: AU,BD,CH,ER,ES,FA,FG,GB,LW,PI,SP,TS,VI,XP
//*********************************************************************
//COLLAU00 DD DSN=PVS.PVTCAU00,DISP=SHR
//COLLAU01 DD DSN=PVS.PVTCAU01,DISP=SHR
//COLLAU02 DD DSN=PVS.PVTCAU02,DISP=SHR
//COLLAU03 DD DSN=PVS.PVTCAU03,DISP=SHR
//COLLAU04 DD DSN=PVS.PVTCAU04,DISP=SHR
//COLLBD00 DD DSN=PVS.PVTCBD00,DISP=SHR
//COLLBD01 DD DSN=PVS.PVTCBD01,DISP=SHR
//COLLBD02 DD DSN=PVS.PVTCBD02,DISP=SHR
//COLLBD03 DD DSN=PVS.PVTCBD03,DISP=SHR
//COLLBD04 DD DSN=PVS.PVTCBD04,DISP=SHR
//COLLCH00 DD DSN=PVS.PVTCCH00,DISP=SHR
//COLLCH01 DD DSN=PVS.PVTCCH01,DISP=SHR
//COLLCH02 DD DSN=PVS.PVTCCH02,DISP=SHR
//COLLCH03 DD DSN=PVS.PVTCCH03,DISP=SHR
//COLLCH04 DD DSN=PVS.PVTCCH04,DISP=SHR
//COLLER00 DD DSN=PVS.PVTCER00,DISP=SHR
//COLLER01 DD DSN=PVS.PVTCER01,DISP=SHR
//COLLER02 DD DSN=PVS.PVTCER02,DISP=SHR
//COLLER03 DD DSN=PVS.PVTCER03,DISP=SHR
//COLLER04 DD DSN=PVS.PVTCER04,DISP=SHR
//COLLES00 DD DSN=PVS.PVTCES00,DISP=SHR
//COLLES01 DD DSN=PVS.PVTCES01,DISP=SHR
//COLLES02 DD DSN=PVS.PVTCES02,DISP=SHR
//COLLES03 DD DSN=PVS.PVTCES03,DISP=SHR
//COLLES04 DD DSN=PVS.PVTCES04,DISP=SHR
//COLLFA00 DD DSN=PVS.PVTCFA00,DISP=SHR
//COLLFA01 DD DSN=PVS.PVTCFA01,DISP=SHR
//COLLFA02 DD DSN=PVS.PVTCFA02,DISP=SHR
//COLLFA03 DD DSN=PVS.PVTCFA03,DISP=SHR
//COLLFA04 DD DSN=PVS.PVTCFA04,DISP=SHR
//COLLFG00 DD DSN=PVS.PVTCFG00,DISP=SHR
//COLLFG01 DD DSN=PVS.PVTCFG01,DISP=SHR
//COLLFG02 DD DSN=PVS.PVTCFG02,DISP=SHR
//COLLFG03 DD DSN=PVS.PVTCFG03,DISP=SHR
//COLLFG04 DD DSN=PVS.PVTCFG04,DISP=SHR
//COLLGB00 DD DSN=PVS.PVTCGB00,DISP=SHR
//COLLGB01 DD DSN=PVS.PVTCGB01,DISP=SHR
//COLLLW00 DD DSN=PVS.PVTCLW00,DISP=SHR
//COLLLW01 DD DSN=PVS.PVTCLW01,DISP=SHR
//COLLLW02 DD DSN=PVS.PVTCLW02,DISP=SHR
//COLLLW03 DD DSN=PVS.PVTCLW03,DISP=SHR
//COLLLW04 DD DSN=PVS.PVTCLW04,DISP=SHR
//COLLPI00 DD DSN=PVS.PVTCPI00,DISP=SHR
//COLLPI01 DD DSN=PVS.PVTCPI01,DISP=SHR
//COLLPI02 DD DSN=PVS.PVTCPI02,DISP=SHR
//COLLPI03 DD DSN=PVS.PVTCPI03,DISP=SHR
//COLLPI04 DD DSN=PVS.PVTCPI04,DISP=SHR
//COLLSP00 DD DSN=PVS.PVTCSP00,DISP=SHR
//COLLSP01 DD DSN=PVS.PVTCSP01,DISP=SHR
//COLLSP02 DD DSN=PVS.PVTCSP02,DISP=SHR
//COLLSP03 DD DSN=PVS.PVTCSP03,DISP=SHR
//COLLSP04 DD DSN=PVS.PVTCSP04,DISP=SHR
//COLLTS00 DD DSN=PVS.PVTCTS00,DISP=SHR
//COLLTS01 DD DSN=PVS.PVTCTS01,DISP=SHR
//COLLTS02 DD DSN=PVS.PVTCTS02,DISP=SHR
//COLLTS03 DD DSN=PVS.PVTCTS03,DISP=SHR
//COLLTS04 DD DSN=PVS.PVTCTS04,DISP=SHR
//COLLVI00 DD DSN=PVS.PVTCVI00,DISP=SHR
//COLLVI01 DD DSN=PVS.PVTCVI01,DISP=SHR
//COLLVI02 DD DSN=PVS.PVTCVI02,DISP=SHR
//COLLVI03 DD DSN=PVS.PVTCVI03,DISP=SHR
//COLLVI04 DD DSN=PVS.PVTCVI04,DISP=SHR
//COLLXP00 DD DSN=PVS.PVTCXP00,DISP=SHR
//COLLXP01 DD DSN=PVS.PVTCXP01,DISP=SHR
//COLLXP02 DD DSN=PVS.PVTCXP02,DISP=SHR
//COLLXP03 DD DSN=PVS.PVTCXP03,DISP=SHR
//COLLXP04 DD DSN=PVS.PVTCXP04,DISP=SHR
//PECOLL01 DD DSN=PVS.PVTCPE01,DISP=SHR,AMP='BUFNI=5'
//PECOLL02 DD DSN=PVS.PVTCPE02,DISP=SHR,AMP='BUFNI=5'
//PECOLL03 DD DSN=PVS.PVTCPE03,DISP=SHR,AMP='BUFNI=5'
//PECOLL04 DD DSN=PVS.PVTCPE04,DISP=SHR,AMP='BUFNI=5'
//PECOLL05 DD DSN=PVS.PVTCPE05,DISP=SHR,AMP='BUFNI=5'
//PECOLL06 DD DSN=PVS.PVTCPE06,DISP=SHR,AMP='BUFNI=5'
//PECOLL07 DD DSN=PVS.PVTCPE07,DISP=SHR,AMP='BUFNI=5'
//PECOLL08 DD DSN=PVS.PVTCPE08,DISP=SHR,AMP='BUFNI=5'
//PECOLL09 DD DSN=PVS.PVTCPE09,DISP=SHR,AMP='BUFNI=5'
//PECOLL10 DD DSN=PVS.PVTCPE10,DISP=SHR,AMP='BUFNI=5'
//*
//*********************************************************************
//* SNAP SSCT AND PVSSSVT IF AVAILABLE (ONLY FOR TEST)
//*********************************************************************
//*
//INTVT02 EXEC PGM=PVSINTVT,PARM='PVST,LIST'
//STEPLIB DD DSN=PVS.PVSLODV2,DISP=SHR
//SYSPRINT DD SYSOUT=T
//SYSABEND DD SYSOUT=T
//SYSUDUMP DD SYSOUT=T
//PVSSNAP DD SYSOUT=T
//*
//*********************************************************************
//* FREIGEBEN VON UNGENUTZTEN DUMPSPACE
//*********************************************************************
//*
//RLS01## EXEC PGM=SY2060,
// COND=(0,NE,VER01##)
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD DSN=*.PVSMON1.PVSDUMP,
// DISP=MOD,
// SPACE=(TRK,(1,1),RLSE)
//SYSUT1 DD DUMMY,DCB=*.PVSMON1.PVSDUMP
//*
//*********************************************************************
//* KEYS AUF SYSOUT KOPIEREN
//*********************************************************************
//*
//PVSMON2 EXEC PGM=ICEGENER,COND=((0,NE,VER01##),EVEN)
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUT2 DD SYSOUT=*
//SYSUT1 DD DSN=PVS.PVTSC01.KEYS,DISP=SHR
// DD DSN=PVS.PVTSC02.KEYS,DISP=SHR
// DD DSN=PVS.PVTSC03.KEYS,DISP=SHR
// DD DSN=PVS.PVTSC04.KEYS,DISP=SHR
// DD DSN=PVS.PVTSC05.KEYS,DISP=SHR
//SYSIN DD DUMMY
//*
//*********************************************************************
//* KEYS AUF SAVE DATASET KOPIEREN
//*********************************************************************
//*
//PVSMON3 EXEC PGM=PV7001,COND=((0,NE,VER01##),EVEN),
// PARM='SCANLP LPCKSC'
//STEPLIB DD DSN=PVS.PVSLODV2,DISP=SHR
//DDPVSCFG DD DSN=PVSP.U0000.T0.PARM(CONFIG01),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
// ENDIF
//*********************************************************************
//* MESSAGE TO THE OPERATOR IF MON03 NOT OK
//*********************************************************************
//*
//*VSMON4 EXEC PGM=SY7060,COND=((0,NE,VER01##),(0,EQ,PVSMON3)),
//* PARM='BITTE PVS-PIKETT BENACHRICHTIGEN, DANKE'
//* PARM='BITTE STÖME AN PVS-PIKETT, DANKE'
//* PARM='TEST REPLY, HANDLED BY PVS-PIKETT'
//*
}¢--- A540769.WK.JCL(PVX020MP) cre= mod=-. -------------------------------------
//PVX020MP JOB (OS09,KE50,,SP00000000),
// MSGCLASS=E,
// TIME=NOLIMIT
//*********************************************************************
//* START POSY TCP/IP-SERVER *
//* ======================== *
//* *
//*-------------------------------------------------------------------*
//* VERANTWORTLICH: PVS-TEAM *
//* --------------- BEI PROBLEMEN BITTE PVS-PIKETT BENACHRICHTIGEN *
//*********************************************************************
//*MAIN CLASS=PVS
// SET SUBMIT=(A,INTRDR)
//*-------------------------------------------------------------------*
//USEDPROC JCLLIB ORDER=(POSY.RZ1.P0.AKT.TEMPLATE)
// INCLUDE MEMBER=JES#X1PX
//*-------------------------------------------------------------------*
//* START POSY TCP/IP-SERVER *
//*-------------------------------------------------------------------*
//* JCLPREP 11/10/2004 12:07:49 A509191
//********************************************************************
//*
//POSYSRV EXEC PGM=A1PO009,
// PARM='&PORTNO,START'
//SYSTCPD DD DSN=&SYSTCPD,DISP=SHR
//JCLDAT DD SYSOUT=&SUBMIT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//ASCDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*-------------------------------------------------------------------*
}¢--- A540769.WK.JCL(PVX0200P) cre= mod=-. -------------------------------------
//PVX0200P JOB (OS09,KE50,,SP00000000),
// MSGCLASS=E,
// TIME=NOLIMIT
//*********************************************************************
//* START POSY TCP/IP-SERVER *
//* ======================== *
//* *
//*-------------------------------------------------------------------*
//* VERANTWORTLICH: PVS-TEAM *
//* --------------- BEI PROBLEMEN BITTE PVS-PIKETT BENACHRICHTIGEN *
//*********************************************************************
//*MAIN CLASS=PVS
// SET SUBMIT=(A,INTRDR)
//*-------------------------------------------------------------------*
//USEDPROC JCLLIB ORDER=(POSY.RZ2.P0.AKT.TEMPLATE)
// INCLUDE MEMBER=JES#X2PX
//*-------------------------------------------------------------------*
//* START POSY TCP/IP-SERVER *
//*-------------------------------------------------------------------*
//* JCLPREP 11/10/2004 12:09:36 A509191
//********************************************************************
//*
//POSYSRV EXEC PGM=A1PO009,
// PARM='&PORTNO,START'
//SYSTCPD DD DSN=&SYSTCPD,DISP=SHR
//JCLDAT DD SYSOUT=&SUBMIT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//ASCDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*-------------------------------------------------------------------*
}¢--- A540769.WK.JCL(PVX0200T) cre= mod=-. -------------------------------------
//PVX0200T JOB (OS09,KE10,,SE00000000),
// TIME=NOLIMIT,
// MSGCLASS=E
//*
//*********************************************************************
//* START POSY TCP/IP-SERVER *
//* ======================== *
//* *
//*-------------------------------------------------------------------*
//* VERANTWORTLICH: PVS-TEAM *
//* --------------- BEI PROBLEMEN BITTE PVS-PIKETT BENACHRICHTIGEN *
//*********************************************************************
//*MAIN CLASS=PVS
// SET RZID=1
// SET ENV=T
// SET STATUS=0
//*-------------------------------------------------------------------*
// SET SUBMIT=(A,INTRDR)
//* SET SUBMIT=*
//*-------------------------------------------------------------------*
//USEDPROC JCLLIB ORDER=(POSY.RZ&RZID..&ENV.&STATUS..AKT.TEMPLATE)
// INCLUDE MEMBER=JES#X&RZID.&ENV.X
//*
//*-------------------------------------------------------------------*
//* START POSY TCP/IP-SERVER *
//*-------------------------------------------------------------------*
//POSYSRV EXEC PGM=A1PO009,
// COND=(4,LT),
// PARM='&PORTNO,START'
//*
//SYSTCPD DD DISP=SHR,DSN=&SYSTCPD 00410100
//JCLDAT DD SYSOUT=&SUBMIT
//*
//SYSOUT DD SYSOUT=* 00410100
//SYSPRINT DD SYSOUT=* 00292000
//SYSUDUMP DD SYSOUT=* 00310000
//SYSABOUT DD SYSOUT=* 00320000
//ASCDUMP DD SYSOUT=* 00330000
//SYSABEND DD SYSOUT=* 00340000
//*-------------------------------------------------------------------*
}¢--- A540769.WK.JCL(PV5020SC) cre= mod=-. -------------------------------------
//A540769Z JOB (CP00,KE50)
//****MAIN CLASS=CMNA ***** COMPARE
//*OBLIB DD DISP=SHR,DSN=PVS.PVSLODV1
//JOBLIB DD DISP=SHR,DSN=CMN.DIV.P0.PVS0.#000002.LLB
// SET PR=A540769.TEST.PVS
//DOX PROC J=VERGESSEN,L=LUFTPOST,IN2=VERGESSEN,P=
//PX EXEC PGM=PV5020,PARM='&P'
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DDMSG DD SYSOUT=*
//*
//DDLAND DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.KARTE(&L)
//DDBEIL DD DISP=SHR,DSN=&PR.&J..INFRA(PVBEILAG)
//DBSPEC DD DISP=SHR,DSN=&PR.&J..INFRA(DBSPEC)
//DDIN DD DISP=SHR,DSN=&PR.&J..PVS2POSY
//DDIN0 DD DISP=SHR,DSN=&PR.&J..PVIERST
//DDIN1 DD DISP=SHR,DSN=&PR.&J..EINDAT1
//DDIN2 DD DISP=SHR,DSN=&PR.&J.&IN2
//*
//DDPARM DD DISP=OLD,DSN=&PR.&J.OUT.PARM
//DDOUT1 DD DISP=OLD,DSN=&PR.&J.OUT.EINDAT1
//*DDOUT2 DD DISP=OLD,DSN=&PR.&J.&IN2
//DDSTAT DD DISP=OLD,DSN=&PR.&J.OUT.PVIERST
//DDSTAT DD DUMMY
// PEND
//DO1 PROC J=VERGESSEN,L=LUFTPOST
//P1 EXEC PROC=DOX,J=&J,L=&L,IN2=.INFRA(@FEHLT@),P=C
// PEND
//DO2 PROC J=VERGESSEN,L=LUFTPOST
//P2 EXEC PROC=DOX,J=&J,L=&L,IN2=.EINDAT2,P=C
// PEND
//S1 EXEC PROC=DO2,J=11
//
//S2 EXEC PROC=DO2,J=2
//S3 EXEC PROC=DO1,J=3
//S4 EXEC PROC=DO1,J=4
//S5 EXEC PROC=DO1,J=5
//S6 EXEC PROC=DO1,J=6
//S7 EXEC PROC=DO1,J=7
}¢--- A540769.WK.JCL(PV5020TC) cre= mod=-. -------------------------------------
//A540769Y JOB (CP00,KE50)
//****MAIN CLASS=CMNA *** COMPARE
//JOBLIB DD DISP=SHR,DSN=CMN.DIV.P0.A18A.#000004.LLB
// SET PR=A540769.TEST.PVT
//DOX PROC J=VERGESSEN,L=LUFTPOST,IN2=VERGESSEN
//PX EXEC PGM=PV5020,PARM='TC'
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DDMSG DD SYSOUT=*
//*
//DDLAND DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.KARTE(&L)
//DDBEIL DD DISP=SHR,DSN=&PR.&J..INFRA(PVBEILAG)
//DBSPEC DD DISP=SHR,DSN=&PR.&J..INFRA(DBSPEC)
//DDIN DD DISP=SHR,DSN=&PR.&J..PVS2POSY
//DDIN0 DD DISP=SHR,DSN=&PR.&J..PVIERST
//DDIN1 DD DISP=SHR,DSN=&PR.&J..EINDAT1
//DDIN2 DD DISP=SHR,DSN=&PR.&J.&IN2
//*
//DDPARM DD DISP=OLD,DSN=&PR.&J.OUT.PARM
//*DDOUT1 DD DISP=OLD,DSN=&PR.&J.OUT.EINDAT1
//*DDOUT2 DD DISP=OLD,DSN=&PR.&J.&IN2
//DDSTAT DD DISP=OLD,DSN=&PR.&J.OUT.PVIERST
//DDSTAT DD DUMMY
// PEND
//DO1 PROC J=VERGESSEN,L=LUFTPOST
//P1 EXEC PROC=DOX,J=&J,L=&L,IN2=.INFRA(@FEHLT@)
// PEND
//DO2 PROC J=VERGESSEN,L=LUFTPOST
//P2 EXEC PROC=DOX,J=&J,L=&L,IN2=.EINDAT2
// PEND
//S1 EXEC PROC=DO1,J=1
//S2 EXEC PROC=DO2,J=2
//S3 EXEC PROC=DO1,J=3
//S4 EXEC PROC=DO1,J=4
//S5 EXEC PROC=DO2,J=5
}¢--- A540769.WK.JCL(PV5020TG) cre= mod=-. -------------------------------------
//A540769Y JOB (CP00,KE50)
//****MAIN CLASS=CMNA *** GENERATE
//JOBLIB DD DISP=SHR,DSN=PVS.PVSLODV1
//*OBLIB DD DISP=SHR,DSN=CMN.DIV.P0.PVS0.#000002.LLB
// SET PR=A540769.TEST.PVS
//DOX PROC J=VERGESSEN,L=LUFTPOST,IN2=VERGESSEN,P=
//PX EXEC PGM=PV5020,PARM='T&P'
//*
//SYSPRINT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DDMSG DD SYSOUT=*
//*
//DDLAND DD DISP=SHR,DSN=&PR.0.KARTE(&L)
//DDBEIL DD DISP=SHR,DSN=&PR.&J..INFRA(PVBEILAG)
//DBSPEC DD DISP=SHR,DSN=&PR.&J..INFRA(DBSPEC)
//DDIN DD DISP=SHR,DSN=&PR.&J..PVS2POSY
//*DDIN0 DD DISP=SHR,DSN=&PR.&J..PVIERST
//*DDIN1 DD DISP=SHR,DSN=&PR.&J..EINDAT1
//*DDIN2 DD DISP=SHR,DSN=&PR.&J.&IN2
//*
//DDPARM DD DISP=OLD,DSN=&PR.&J.OUT.PARM
//DDOUT1 DD DISP=OLD,DSN=&PR.&J.OUT.EINDAT1
//DDOUT2 DD DISP=OLD,DSN=&PR.&J.&IN2
//DDSTAT DD DISP=OLD,DSN=&PR.&J.OUT.PVIERST
//DDSTAT DD DUMMY
// PEND
//DO1 PROC J=VERGESSEN,L=LUFTPOST
//P1 EXEC PROC=DOX,J=&J,L=&L,IN2=.INFRA(@FEHLT@),P=
// PEND
//DO2 PROC J=VERGESSEN,L=LUFTPOST
//P2 EXEC PROC=DOX,J=&J,L=&L,IN2=OUT.EINDAT2,P=
// PEND
//S1 EXEC PROC=DO2,J=12
//
//S2 EXEC PROC=DO2,J=2
//S3 EXEC PROC=DO1,J=3
//S4 EXEC PROC=DO2,J=4
//S5 EXEC PROC=DO2,J=5
}¢--- A540769.WK.JCL(QC00501T) cre=2006-05-08 mod=2006-05-08-16.17.24 F540769 ---
//A540769P JOB (PD00,KE50,,SP00000000),
// 'FULLCOPY',
// MSGCLASS=T,
// TIME=1440,LINES=100000
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
//*MAIN CLASS=BS1
//********************************************************************
//* JCLPREP 07/12/2004 11:28:05 A509191
//********************************************************************
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBAF,QC00501P.FULCOPY'
//STEPLIB DD DSN=DB2@.RZ1.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//*YSUDUMP DD DUMMY
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=A540769.WK.DBNEULST(TEMPL),DISP=SHR
//SYSIN DD DSN=A540769.WK.DBNEULST(QC005011),DISP=SHR
// IF (ABEND OR P02.RC GT 4) THEN
//*
//P03 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DSN=A540769.WK.DBNEUCTL(QC005012),DISP=SHR
// ENDIF
// IF (ABEND OR P02.RC GT 4) THEN
//*
//P04 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DSN=A540769.WK.DBNEUCTL(QC005013),DISP=SHR
// ENDIF
}¢--- A540769.WK.JCL(QC51501P) cre=2004-03-25 mod=2004-12-07-11.50.00 A509191 ---
//QC51501P JOB (PD00,KE50,,SP00000000),
// 'INCCOPY',
// MSGCLASS=E,
// TIME=1440
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
//*MAIN CLASS=SUBP2
//********************************************************************
//* JCLPREP 07/12/2004 11:28:05 A509191
//********************************************************************
//*
//P02 EXEC PGM=DSNUTILB,
// PARM='DBOF,QC51501P.INCCOPY'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBOF.DBAA.LISTDEF(QC515011),DISP=SHR
// IF (ABEND OR P02.RC GT 4) THEN
//*
//P03 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DSN=DBOF.DBAA.LCTL(QC515012),DISP=SHR
// ENDIF
// IF (ABEND OR P02.RC GT 4) THEN
//*
//P04 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DSN=DBOF.DBAA.LCTL(QC515013),DISP=SHR
// ENDIF
}¢--- A540769.WK.JCL(QGR100OP) cre=2015-01-19 mod=2015-01-19-10.53.55 A540769 ---
//QGR100OP JOB (PD00,KE50,,SP00000000),
// 'GENERIERUNG RUNSTAT',
// MSGCLASS=T,
// TIME=1440,
// SCHENV=DBOL
//*MAIN CLASS=LOG
//********************************************************************
//* JCLPREP 07/16/2013 11:13:53 F965472
//********************************************************************
//*
//P01 EXEC PGM=PTLDRIVM,
// PARM='EP=RALMCTL/',
// REGION=5M
//STEPLIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTILIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTIPARM DD DSN=DSN.CADB2.RZ4.P0.CDBAPARM,DISP=SHR
//PTIMSG DD SYSOUT=*
//SYSPRINT DD DUMMY
//SYSUDUMP DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//SYSTSPRT DD DUMMY
//PTIIPT DD DSN=DBOL.DBAA.LCTL(QGR100OP),DISP=SHR
//*
// IF P01.RC < 5 THEN
//P02 EXEC PGM=IKJEFT01,
// DYNAMNBR=20,
// REGION=0M
//SYSEXEC DD DSN=DSN.CADB2.CS.EXEC,DISP=SHR
//SYSTSIN DD *
%TECSVREN DSN.CADB2.DBOL.JOBS DBOL RUNS
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
// ENDIF
}¢--- A540769.WK.JCL(QGR100UP) cre=2015-01-19 mod=2015-01-19-10.52.35 A540769 ---
//QGR100UP JOB (PD00,KE50,,SP00000000),
// 'GENERIERUNG RUNSTAT',
// MSGCLASS=T,
// TIME=1440,
// SCHENV=DP4G
//*MAIN CLASS=LOG
//********************************************************************
//* JCLPREP 07/16/2013 11:14:30 F965472
//********************************************************************
//*
//P01 EXEC PGM=PTLDRIVM,
// PARM='EP=RALMCTL/',
// REGION=5M
//STEPLIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTILIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTIPARM DD DSN=DSN.CADB2.RZ4.P0.CDBAPARM,DISP=SHR
//PTIMSG DD SYSOUT=*
//SYSPRINT DD DUMMY
//SYSUDUMP DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//SYSTSPRT DD DUMMY
//PTIIPT DD DSN=DP4G.DBAA.LCTL(QGR100UP),DISP=SHR
//*
// IF P01.RC < 5 THEN
//P02 EXEC PGM=IKJEFT01,
// DYNAMNBR=20,
// REGION=0M
//SYSEXEC DD DSN=DSN.CADB2.CS.EXEC,DISP=SHR
//SYSTSIN DD *
%TECSVREN DSN.CADB2.DP4G.JOBS DP4G RUNS
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
// ENDIF
}¢--- A540769.WK.JCL(QGS) cre=2008-04-14 mod=2008-04-14-13.08.24 F540769 -------
//QGS400TP JOB (PD00,KE50,,SP00000000),
// 'GENERIERUNG COPY ',
// MSGCLASS=E,
// TIME=1440
//*MAIN CLASS=LOG
//PARMLIB JCLLIB ORDER=DBTF.DBAA.LCTL
//********************************************************************
//* JCLPREP 07/18/2006 09:46:42 A965472
//********************************************************************
//*
//P01 EXEC PGM=IEFBR14
//TEMP DD DSN=&&TEMP,
// DISP=(,PASS,DELETE),
// UNIT=DISK,
// SPACE=(TRK,(1,1,5)),
// DCB=ISP.SISPTENU
//*
// IF P01.RC = 0 THEN
//P02 EXEC PGM=IKJEFT1A,
// REGION=0000M
//PARMS INCLUDE MEMBER=QGS400T1
//SYSTSIN DD *
PROFILE NOPREFIX
ISPSTART PGM(HAA@BULD)
//HAA#DATA DD DSN=DBTF.DBAA.LCTL(QGS400T2),DISP=SHR
// ENDIF
}¢--- A540769.WK.JCL(QGS300OP) cre=2015-01-19 mod=2015-01-19-10.57.27 A540769 ---
//QGS300OP JOB (PD00,KE50,,SP00000000),
// 'GENERIERUNG COPY ',
// MSGCLASS=T,
// SCHENV=DBOL,
// TIME=1440
//*MAIN CLASS=LOG
//********************************************************************
//* JCLPREP 07/16/2013 11:14:58 F965472
//********************************************************************
//*
//P02 EXEC PGM=PTLDRIVM,
// PARM='EP=RALMCTL/',
// REGION=5M
//STEPLIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTILIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTIPARM DD DSN=DSN.CADB2.RZ4.P0.CDBAPARM,DISP=SHR
//PTIMSG DD SYSOUT=*
//SYSPRINT DD DUMMY
//SYSUDUMP DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//SYSTSPRT DD DUMMY
//PTIIPT DD DSN=DBOL.DBAA.LCTL(QGS300OP),DISP=SHR
//*
// IF P02.RC < 5 THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20,
// REGION=0M
//SYSEXEC DD DSN=DSN.CADB2.CS.EXEC,DISP=SHR
//SYSTSIN DD *
%TECSVREN DSN.CADB2.DBOL.JOBS DBOL IIC
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
// ENDIF
}¢--- A540769.WK.JCL(QGS300UP) cre=2015-12-22 mod=2015-12-22-11.32.36 A540769 ---
//QGS300UP JOB (PD00,KE50,,SP00000000),
// 'GENERIERUNG COPY ',
// MSGCLASS=T,CLASS=M1,
// SCHENV=DP4G,
// TIME=1440
//********************************************************************
//* JCLPREP 07/16/2013 11:15:08 F965472
//********************************************************************
//*
//P02 EXEC PGM=PTLDRIVM,
// PARM='EP=RALMCTL/',
// REGION=5M
//STEPLIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTILIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTIPARM DD DSN=DSN.CADB2.RZ4.P0.CDBAPARM,DISP=SHR
//PTIMSG DD SYSOUT=*
//SYSPRINT DD DUMMY
//SYSUDUMP DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//SYSTSPRT DD DUMMY
//PTIIPT DD DSN=DP4G.DBAA.LCTL(QGS300UP),DISP=SHR
//*
// IF P02.RC < 5 THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20,
// REGION=0M
//SYSEXEC DD DSN=DSN.CADB2.CS.EXEC,DISP=SHR
//SYSTSIN DD *
%TECSVREN DSN.CADB2.DP4G.JOBS DP4G IIC
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
// ENDIF
}¢--- A540769.WK.JCL(QGS400OP) cre=2015-01-19 mod=2015-01-19-10.57.56 A540769 ---
//QGS400OP JOB (PD00,KE50,,SP00000000),
// 'GENERIERUNG COPY ',
// MSGCLASS=T,
// SCHENV=DBOL,
// TIME=1440
//*MAIN CLASS=LOG
//********************************************************************
//* JCLPREP 07/16/2013 11:15:17 F965472
//********************************************************************
//*
//P02 EXEC PGM=PTLDRIVM,
// PARM='EP=RALMCTL/',
// REGION=5M
//STEPLIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTILIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTIPARM DD DSN=DSN.CADB2.RZ4.P0.CDBAPARM,DISP=SHR
//PTIMSG DD SYSOUT=*
//SYSPRINT DD DUMMY
//SYSUDUMP DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//SYSTSPRT DD DUMMY
//PTIIPT DD DSN=DBOL.DBAA.LCTL(QGS400OP),DISP=SHR
//*
// IF P02.RC < 5 THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20,
// REGION=0M
//SYSEXEC DD DSN=DSN.CADB2.CS.EXEC,DISP=SHR
//SYSTSIN DD *
%TECSVREN DSN.CADB2.DBOL.JOBS DBOL FIC
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
// ENDIF
}¢--- A540769.WK.JCL(QGS400UP) cre=2014-12-03 mod=2014-12-03-09.52.23 A540769 ---
//QGS400UP JOB (PD00,KE50,,SP00000000),
// 'GENERIERUNG COPY ',
// MSGCLASS=T,
// SCHENV=DP4G,
// TIME=1440
//*MAIN CLASS=LOG
//********************************************************************
//* JCLPREP 07/16/2013 11:15:26 F965472
//********************************************************************
//*
//P02 EXEC PGM=PTLDRIVM,
// PARM='EP=RALMCTL/',
// REGION=5M
//STEPLIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTILIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTIPARM DD DSN=DSN.CADB2.RZ4.P0.CDBAPARM,DISP=SHR
//PTIMSG DD SYSOUT=*
//SYSPRINT DD DUMMY
//SYSUDUMP DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//SYSTSPRT DD DUMMY
//PTIIPT DD DSN=DP4G.DBAA.LCTL(QGS400UP),DISP=SHR
//*
// IF P02.RC < 5 THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20,
// REGION=0M
//SYSEXEC DD DSN=DSN.CADB2.CS.EXEC,DISP=SHR
//SYSTSIN DD *
%TECSVREN DSN.CADB2.DP4G.JOBS DP4G FIC
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
// ENDIF
}¢--- A540769.WK.JCL(QGS500UP) cre=2015-01-19 mod=2015-01-19-08.44.14 A540769 ---
//QGS500UP JOB (PD00,KE50,,SP00000000),
// 'GENERIERUNG COPY ',
// MSGCLASS=T,
// SCHENV=DP4G,
// TIME=1440
//*MAIN CLASS=LOG
//********************************************************************
//* JCLPREP 07/16/2013 11:15:45 F965472
//********************************************************************
//*
//P02 EXEC PGM=PTLDRIVM,
// PARM='EP=RALMCTL/',
// REGION=5M
//STEPLIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTILIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTIPARM DD DSN=DSN.CADB2.RZ4.P0.CDBAPARM,DISP=SHR
//PTIMSG DD SYSOUT=*
//SYSPRINT DD DUMMY
//SYSUDUMP DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//SYSTSPRT DD DUMMY
//PTIIPT DD DSN=DP4G.DBAA.LCTL(QGS500UP),DISP=SHR
//*
// IF P02.RC < 5 THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20,
// REGION=0M
//SYSEXEC DD DSN=DSN.CADB2.CS.EXEC,DISP=SHR
//SYSTSIN DD *
%TECSVREN DSN.CADB2.DP4G.JOBS DP4G STOPPED
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
// ENDIF
}¢--- A540769.WK.JCL(QG500OP) cre=2015-01-19 mod=2015-01-19-11.02.20 A540769 ---
//QGS500OP JOB (PD00,KE50,,SP00000000),
// 'GENERIERUNG COPY ',
// MSGCLASS=T,
// SCHENV=DBOL,
// TIME=1440
//*MAIN CLASS=LOG
//********************************************************************
//* JCLPREP 07/16/2013 11:15:35 F965472
//********************************************************************
//*
//P02 EXEC PGM=PTLDRIVM,
// PARM='EP=RALMCTL/',
// REGION=5M
//STEPLIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTILIB DD DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTIPARM DD DSN=DSN.CADB2.RZ4.P0.CDBAPARM,DISP=SHR
//PTIMSG DD SYSOUT=*
//SYSPRINT DD DUMMY
//SYSUDUMP DD SYSOUT=*
//ABNLIGNR DD DUMMY SUPPRESS ABENDAID DUMPS
//SYSTSPRT DD DUMMY
//PTIIPT DD DSN=DBOL.DBAA.LCTL(QGS500OP),DISP=SHR
//*
// IF P02.RC < 5 THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20,
// REGION=0M
//SYSEXEC DD DSN=DSN.CADB2.CS.EXEC,DISP=SHR
//SYSTSIN DD *
%TECSVREN DSN.CADB2.DBOL.JOBS DBOL STOPPED
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
// ENDIF
}¢--- A540769.WK.JCL(QMT002FP) cre=2014-03-26 mod=2014-03-26-09.19.57 A540769 ---
//QMT002FP JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',
// MSGCLASS=T,
// SCHENV=DB2
//*MAIN CLASS=LOG
//*
//P02 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSEXEC DD DSN=DSN.DB2.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDOUT DD DSN=DSN.ABUB.TECSV.DBOF.QMT002FP,
// DISP=(MOD,DELETE)
//DDENV DD *
RZ2 DBOF CONSUM QMT002FP
//SYSTSIN DD DISP=SHR,DSN=DBOF.DBAA.LCTL(QMT002F0)
//*
// IF (P02.RC = 0 ) THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DSN=*.P02.DDOUT,
// DISP=(,CATLG),
// MGMTCLAS=BAT#AT,
// SPACE=(CYL,(15,75),RLSE)
//SYSTSIN DD *
DSN SYSTEM(DBOF)
RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
//SYSIN DD DISP=SHR,DSN=DBOF.DBAA.LCTL(QMT002F1)
// ENDIF
}¢--- A540769.WK.JCL(QMW0DBTF) cre=2012-09-05 mod=2012-09-06-14.58.56 A540769 ---
//QMW0DBTF JOB (PD00,KE50,,SP00000000),
// 'DB2 test contrSum',
// MSGCLASS=T,NOTIFY=&SYSUID
//*MAIN CLASS=LOG0
//********************************************************************
//* JCLPREP 20/11/2008 14:23:05 A965472
//********************************************************************
//*
//P00 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL 'DSN.TST.QMW0DBTF.DSNTEP2.SQL2' NVSAM PURGE
IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//P02 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//*YSEXEC DD DSN=DSN.SOURCE.TECSV,DISP=SHR
//SYSEXEC DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=DSN.SOURCE.TECSV(RZ1SQL),DISP=SHR
//SQLSTMNT DD DSN=DSN.TST.QMW0DBTF.DSNTEP2.SQL2,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(TRK,(15,75),RLSE),
// RECFM=FB,LRECL=80
//PRINT DD SYSOUT=*
//SYSTSIN DD *
%DB2CPG01 DBTF
// ENDIF
//*
}¢--- A540769.WK.JCL(QMW0002P) cre=2013-04-02 mod=2013-04-02-16.56.15 A540769 ---
//QMW0002P JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',
// MSGCLASS=T
//*MAIN CLASS=LOG0
//********************************************************************
//* JCLPREP 20/11/2008 13:52:45 A965472
//********************************************************************
//*
//P00 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL 'DSN.WOK.QMW0002P.DSNTEP2.SQL' NVSAM PURGE
DEL 'DSN.WOK.QMW0002P.DSNTEP2.OUT' NVSAM PURGE
DEL 'DSN.WOK.QMW0002P.SUMMARY.DATA' NVSAM PURGE
DEL 'DSN.WOK.QMW0002P.MAILHEAD.DATA' NVSAM PURGE
DEL 'DSN.WOK.QMW0002P.MAILTEXT.DATA' NVSAM PURGE
IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//P02 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=DSN.DB2.LCTL(RZ1SQL),DISP=SHR
//SQLSTMNT DD DSN=DSN.WOK.QMW0002P.DSNTEP2.SQL,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=80
//PRINT DD SYSOUT=*
//SYSTSIN DD *
%DB2CPG01 DBTF
// ENDIF
//*
// IF (P02.RC = 0 ) THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSIN DD DSN=*.P02.SQLSTMNT,DISP=SHR
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
//SYSPRINT DD DSN=DSN.WOK.QMW0002P.DSNTEP2.OUT,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE)
//SYSUDUMP DD SYSOUT=*
// ENDIF
//*
// IF (P02.RC = 0 & P03.RC < 12) THEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=*.P03.SYSPRINT,DISP=SHR
//MAILHIN DD DSN=DBTF.DBAA.LCTL(QMW00021),DISP=SHR
//MAILHOUT DD DSN=DSN.WOK.QMW0002P.MAILHEAD.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//MAILHTXT DD DSN=DSN.WOK.QMW0002P.MAILTEXT.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//SUMMARY DD DSN=DSN.WOK.QMW0002P.SUMMARY.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//PRINT DD SYSOUT=*
//SYSTSIN DD *
%DB2CPG02 RZ1 DBTF QMW0002P
// ENDIF
}¢--- A540769.WK.JCL(QMW0006P) cre=2013-04-03 mod=2013-04-03-08.25.35 A540769 ---
//QMW0006P JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',
// MSGCLASS=T
//*MAIN CLASS=LOG0
//********************************************************************
//* JCLPREP 20/11/2008 13:57:21 A965472
//********************************************************************
//*
//P00 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL 'DSN.WOK.QMW0006P.DSNTEP2.SQL' NVSAM PURGE
DEL 'DSN.WOK.QMW0006P.DSNTEP2.OUT' NVSAM PURGE
DEL 'DSN.WOK.QMW0006P.SUMMARY.DATA' NVSAM PURGE
DEL 'DSN.WOK.QMW0006P.MAILHEAD.DATA' NVSAM PURGE
DEL 'DSN.WOK.QMW0006P.MAILTEXT.DATA' NVSAM PURGE
IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//P02 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=DSN.DB2.LCTL(RZ1SQL),DISP=SHR
//SQLSTMNT DD DSN=DSN.WOK.QMW0006P.DSNTEP2.SQL,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=80
//PRINT DD SYSOUT=*
//SYSTSIN DD *
%DB2CPG01 DVTB
// ENDIF
//*
// IF (P02.RC = 0 ) THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSIN DD DSN=*.P02.SQLSTMNT,DISP=SHR
//SYSTSIN DD *
DSN SYSTEM(DVTB)
RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
//SYSPRINT DD DSN=DSN.WOK.QMW0006P.DSNTEP2.OUT,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE)
//SYSUDUMP DD SYSOUT=*
// ENDIF
//*
// IF (P02.RC = 0 & P03.RC < 12) THEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=*.P03.SYSPRINT,DISP=SHR
//MAILHIN DD DSN=DVTB.DBAA.LCTL(QMW00061),DISP=SHR
//MAILHOUT DD DSN=DSN.WOK.QMW0006P.MAILHEAD.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//MAILHTXT DD DSN=DSN.WOK.QMW0006P.MAILTEXT.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//SUMMARY DD DSN=DSN.WOK.QMW0006P.SUMMARY.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//PRINT DD SYSOUT=*
//SYSTSIN DD *
%DB2CPG02 RZ1 DVTB QMW0006P
// ENDIF
}¢--- A540769.WK.JCL(QMW0008P) cre=2009-12-23 mod=2014-04-23-08.23.07 A540769 ---
//QMW1008P JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',
// MSGCLASS=E,
// SCHENV=DBOF
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
// DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=P2
//* %%SET %%SUBSYS = DBOF
//********************************************************************
//* JCLPREP 07/01/2013 16:03:21 F965472
//********************************************************************
//*
//P02 EXEC PGM=IEFBR14
//TST DD DSN=DSN.%%JOBNAME.TST,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=%%#SPC2,
// RECFM=VB
//COPIES DD DSN=DSN.%%JOBNAME.COPIES,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=%%#SPC2,
// RECFM=VB
//ALTER DD DSN=DSN.%%JOBNAME.ALTER,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=%%#SPC2,
// RECFM=FB,LRECL=80
//ALOUT DD DSN=DSN.%%JOBNAME.ALOUT,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=%%#SPC2,
// RECFM=VBA,LRECL=121
//*
// IF P02.RC = 0 THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=200
//SYSTSIN DD *
DSN SYSTEM(%%SUBSYS)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSIN DD DSN=%%SUBSYS.DBAA.LCTL(QMW10000),DISP=SHR
//SYSREC00 DD DSN=DSN.%%JOBNAME.TST,DISP=OLD
//SYSREC01 DD DSN=DSN.%%JOBNAME.COPIES,DISP=OLD
// ENDIF
//*
// IF P03.RC <= 4 THEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC %%SUBSYS GEN')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ%%RZ.P0.PROD.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//COPIES DD DSN=*.P02.COPIES,DISP=SHR
//ALTER DD DSN=*.P02.ALTER,DISP=OLD
// ENDIF
//*
// IF P04.RC = 0 THEN
//P05 EXEC PGM=IDCAMS
//SYSPRINT DD DSN=*.P02.ALOUT,DISP=OLD
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD DSN=*.P02.ALTER,DISP=SHR
// ENDIF
//*--------------------------------------------------------***
//* COPY TO SYSOUT
//*--------------------------------------------------------***
//*
// IF (ABEND) OR (P05.RC GE 0) THEN
//P06 EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=*.P02.ALOUT,DISP=SHR
//SYSUT2 DD SYSOUT=*
// ENDIF
//*
// IF P06.RC = 0 THEN
//P07 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC %%SUBSYS check')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ%%RZ.P0.PROD.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//ALOUT DD DSN=*.P02.ALOUT,DISP=SHR
// ENDIF
//*
// IF (ABEND OR RC > 4 OR NOT (P05.RUN AND P07.RUN)) THEN
//P08 EXEC PGM=OS3550
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT Copy Archive: JobFehler %%JOBNAME RZ%%RZ %%SUBSYS
// DD DSN=%%SUBSYS.DBAA.LCTL(QMW1000M),DISP=SHR
// DD *
rz=RZ%%RZ, subsys=%%SUBSYS, job=%%JOBNAME
// ENDIF
//*
// IF P08.RC > 0 THEN
//P08A EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT UNGUELTIGER EMAIL EMPFAENGER ODER FILE ZU GROSS %%JOBNAME
RECPLIST GGDB2
SENDERID GGDB2
// DD DSN=PCL.U0000.P0.RZ2AKT.PERM.@005.JNA(PUOS355P),DISP=SHR
// ENDIF
}¢--- A540769.WK.JCL(QMW0016P) cre=2014-02-07 mod=2014-04-25-16.10.54 A540769 ---
//QMW0016P JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',
// MSGCLASS=T,
// SCHENV=DP4G
//*MAIN CLASS=LOG
//********************************************************************
//* JCLPREP 11/04/2013 14:19:15 F965472
//********************************************************************
//*
//P00 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL 'DSN.WOK.QMW0016P.DSNTEP2.SQL' NVSAM PURGE
DEL 'DSN.WOK.QMW0016P.DSNTEP2.OUT' NVSAM PURGE
DEL 'DSN.WOK.QMW0016P.SUMMARY.DATA' NVSAM PURGE
DEL 'DSN.WOK.QMW0016P.MAILHEAD.DATA' NVSAM PURGE
DEL 'DSN.WOK.QMW0016P.MAILTEXT.DATA' NVSAM PURGE
IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//P02 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ4.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=A540769.TST.TECSV(RZ4SQL),DISP=SHR
//SQLSTMNT DD DSN=DSN.TST.QMW0016P.DSNTEP2.SQL,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=80
//PRINT DD SYSOUT=*
//SYSTSIN DD *
%DB2CPG01 DP4G
// ENDIF
//*
// IF (P02.RC = 0 ) THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSIN DD DSN=*.P02.SQLSTMNT,DISP=SHR
//SYSTSIN DD *
DSN SYSTEM(DP4G)
RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
//SYSPRINT DD DSN=DSN.TST.QMW0016P.DSNTEP2.OUT,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE)
//SYSUDUMP DD SYSOUT=*
// ENDIF
//*********PROD
//*
// IF (P02.RC = 0 & P03.RC < 12) THEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ4.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=*.P03.SYSPRINT,DISP=SHR
//MAILHIN DD DSN=DP4G.DBAA.LCTL(QMW00161),DISP=SHR
//MAILHOUT DD DSN=DSN.TST.QMW0016P.MAILHEAD.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//MAILHTXT DD DSN=DSN.TST.QMW0016P.MAILTEXT.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//SUMMARY DD DSN=DSN.TST.QMW0016P.SUMMARY.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//PRINT DD SYSOUT=*
//SYSTSIN DD *
%DB2CPG02 RZ4 DP4G QMW0016P
// ENDIF
}¢--- A540769.WK.JCL(QMW009P) cre=2014-03-22 mod=2014-03-22-10.26.02 A540769 ---
//QMW0009P JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',
// MSGCLASS=T,
// SCHENV=DBOL
//*MAIN CLASS=LOG
//********************************************************************
//* JCLPREP 11/04/2013 14:19:15 F965472
//********************************************************************
//*
//P00 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL 'DSN.TST.QMW0009P.DSNTEP2.SQL' NVSAM PURGE
DEL 'DSN.TST.QMW0009P.DSNTEP2.OUT' NVSAM PURGE
DEL 'DSN.TST.QMW0009P.SUMMARY.DATA' NVSAM PURGE
DEL 'DSN.TST.QMW0009P.MAILHEAD.DATA' NVSAM PURGE
DEL 'DSN.TST.QMW0009P.MAILTEXT.DATA' NVSAM PURGE
IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//P02 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ4.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=A540769.TST.TECSV(RZ4SQL),DISP=SHR
//SQLSTMNT DD DSN=DSN.TST.QMW0009P.DSNTEP2.SQL,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=80
//PRINT DD SYSOUT=*
//SYSTSIN DD *
%DB2CPG01 DBOL
// ENDIF
//*
// IF (P02.RC = 0 ) THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSIN DD DSN=*.P02.SQLSTMNT,DISP=SHR
//SYSTSIN DD *
DSN SYSTEM(DBOL)
RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
//SYSPRINT DD DSN=DSN.TST.QMW0009P.DSNTEP2.OUT,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE)
//SYSUDUMP DD SYSOUT=*
// ENDIF
//*********PROD
//*
// IF (P02.RC = 0 & P03.RC < 12) THEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ4.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=*.P03.SYSPRINT,DISP=SHR
//MAILHIN DD DSN=DBOL.DBAA.LCTL(QMW00091),DISP=SHR
//MAILHOUT DD DSN=DSN.TST.QMW0009P.MAILHEAD.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//MAILHTXT DD DSN=DSN.TST.QMW0009P.MAILTEXT.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//SUMMARY DD DSN=DSN.TST.QMW0009P.SUMMARY.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//PRINT DD SYSOUT=*
//SYSTSIN DD *
%DB2CPG02 RZ4 DBOL QMW0009P
// ENDIF
}¢--- A540769.WK.JCL(QMW1000P) cre=2008-03-18 mod=2008-11-24-17.25.12 F540769 ---
//QMW1000P JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',TIME=120,REGION=0M,
// MSGCLASS=E
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
// DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=SUBP2
//* %%SET %%SUBSYS = DBTF
//*--- 00060002
//*--- verantwortlich kiut 23 - Db2 Administration 00070003
//*--- bei Fehler oder Abend: 00080003
//*--- kein Pikett Aufgebot 00090003
//*--- Ticket nur, falls P07 kein Mail schicken konnte 00100003
//*--- 00110003
//P01 EXEC PGM=IEFBR14 00120001
//TST DD DISP=(MOD,CATLG,CATLG),DSN=DSN.%%JOBNAME.TST, 00130001
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140001
// RECFM=VB 00150001
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.%%JOBNAME.COPIES, 00160002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170001
// RECFM=VB 00180001
//ALTER DD DISP=(MOD,CATLG,CATLG),DSN=DSN.%%JOBNAME.ALTER, 00190002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00200002
// RECFM=FB,LRECL=80 00210002
//ALOUT DD DISP=(MOD,CATLG,CATLG),DSN=DSN.%%JOBNAME.ALOUT, 00220002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00230002
// RECFM=VBA,LRECL=121 00240002
//*--- 00250002
//P02 EXEC PGM=IKJEFT01,DYNAMNBR=200 00260002
//SYSTSIN DD * 00290002
DSN SYSTEM(%%SUBSYS) 00300001
RUN PROGRAM(DSNTIAUL) PARMS('SQL') 00310000
END 00320000
//SYSTSPRT DD SYSOUT=* 00330002
//SYSPRINT DD SYSOUT=* 00340002
//SYSUDUMP DD SYSOUT=* 00350002
//SYSTERM DD DUMMY 00360002
//SYSPUNCH DD SYSOUT=* 00370002
//SYSIN DD DISP=SHR,DSN=%%SUBSYS.DBAA.LCTL(QMW10000) 00380002
//SYSREC00 DD DISP=OLD,DSN=DSN.%%JOBNAME.TST 00390002
//SYSREC01 DD DISP=OLD,DSN=DSN.%%JOBNAME.COPIES 00400002
//*--- 00410002
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200 00420002
// PARM=('%DB2COARC %%SUBSYS GEN') 00430002
//SYSIN DD DUMMY 00440002
//SYSTSIN DD DUMMY 00450002
//SYSTSPRT DD SYSOUT=* 00460002
//SYSPRINT DD SYSOUT=* 00470002
//SYSUDUMP DD SYSOUT=* 00480002
//SYSTERM DD DUMMY 00490002
//SYSPROC DD DISP=SHR,DSN=TSO.RZ%%RZ.P0.PROD.EXEC 00500002
//TST DD DISP=SHR,DSN=*.P01.TST
//COPIES DD DISP=SHR,DSN=*.P01.COPIES
//ALTER DD DISP=OLD,DSN=*.P01.ALTER
//*---
//P04 EXEC PGM=IDCAMS
//SYSPRINT DD DISP=OLD,DSN=*.P01.ALOUT
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=*.P01.ALTER
//*---
//P05 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=*.P01.ALOUT
//SYSUT2 DD SYSOUT=*
//*---
//P06 EXEC PGM=IKJEFT01,DYNAMNBR=200
// PARM=('%DB2COARC %%SUBSYS check')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=TSO.RZ%%RZ.P0.PROD.EXEC 00500002
//TST DD DISP=SHR,DSN=*.P01.TST
//ALOUT DD DISP=SHR,DSN=*.P01.ALOUT
//*---
// IF (ABEND OR RC > 4 OR NOT (P04.RUN AND P06.RUN)) THEN
//*
//P07 EXEC PGM=OS3550,COND=EVEN
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT Copy Archive: JobFehler %%JOBNAME RZ%%RZ %%SUBSYS
// DD DISP=SHR,DSN=%%SUBSYS.DBAA.LCTL(QMW0000M)
// DD *
rz=RZ%%RZ, subsys=%%SUBSYS, job=%%JOBNAME
// ENDIF
}¢--- A540769.WK.JCL(QMW1002P) cre=2008-03-17 mod=2011-03-16-05.46.16 A540769 ---
//QMW1002Q JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',
// MSGCLASS=T
//********************************************************************
//* JCLPREP 27/03/2008 13:48:17 A965472
//********************************************************************
//*
//P02 EXEC PGM=IEFBR14
//TST DD DSN=DSN.QMW1002P.TST,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=VB
//COPIES DD DSN=DSN.QMW1002P.COPIES,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=VB
//ALTER DD DSN=DSN.QMW1002P.ALTER,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=80
//ALOUT DD DSN=DSN.QMW1002P.ALOUT,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=VBA,LRECL=121
//*
// IF P02.RC = 0 THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=200
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSIN DD DSN=DBTF.DBAA.LCTL(QMW10000),DISP=SHR
//SYSREC00 DD DSN=DSN.QMW1002P.TST,DISP=OLD
//SYSREC01 DD DSN=DSN.QMW1002P.COPIES,DISP=OLD
// ENDIF
//*
// IF P03.RC <= 4 THEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC DBTF GEN')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//COPIES DD DSN=*.P02.COPIES,DISP=SHR
//ALTER DD DSN=*.P02.ALTER,DISP=OLD
// ENDIF
//*
// IF P04.RC = 0 THEN
//P05 EXEC PGM=IDCAMS
//SYSPRINT DD DSN=*.P02.ALOUT,DISP=OLD
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD DSN=*.P02.ALTER,DISP=SHR
// ENDIF
//*--------------------------------------------------------***
//* COPY TO SYSOUT
//*--------------------------------------------------------***
//*
// IF P05.RC <= 4 THEN
//P06 EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=*.P02.ALOUT,DISP=SHR
//SYSUT2 DD SYSOUT=*
// ENDIF
//*
// IF P06.RC = 0 THEN
//P07 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC DBTF check')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//ALOUT DD DSN=*.P02.ALOUT,DISP=SHR
// ENDIF
//*
}¢--- A540769.WK.JCL(QMW1003P) cre=2008-03-27 mod=2008-11-24-17.25.13 F540769 ---
//A5407698 JOB (CP00,KE50), 00010000
// 'CATALOG',MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG 00040002
//JOBLIB DD DISP=SHR,DSN=MQM.QP00 00050002
//*--- 00060002
//*--- verantwortlich kiut 23 - Db2 Administration 00070003
//*--- bei Fehler oder Abend: 00080003
//*--- kein Pikett Aufgebot 00090003
//*--- Ticket nur, falls P07 kein Mail schicken konnte 00100003
//*--- 00110003
//P01 EXEC PGM=IEFBR14 00120001
//TST DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1003P.TST, 00130001
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140001
// RECFM=VB 00150001
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1003P.COPIES, 00160002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170001
// RECFM=VB 00180001
//ALTER DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1003P.ALTER, 00190002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00200002
// RECFM=FB,LRECL=80 00210002
//ALOUT DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1003P.ALOUT, 00220002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00230002
// RECFM=VBA,LRECL=121 00240002
//*--- 00250002
//P02 EXEC PGM=IKJEFT01, 00260002
// DYNAMNBR=200, 00270000
// TIME=99 00280000
//SYSTSIN DD * 00290002
DSN SYSTEM(DBZF) 00300001
RUN PROGRAM(DSNTIAUL) PARMS('SQL') 00310000
END 00320000
//SYSTSPRT DD SYSOUT=* 00330002
//SYSPRINT DD SYSOUT=* 00340002
//SYSUDUMP DD SYSOUT=* 00350002
//SYSTERM DD DUMMY 00360002
//SYSPUNCH DD SYSOUT=* 00370002
//SYSIN DD DISP=SHR,DSN=DBZF.DBAA.LCTL(QMW10000) 00380002
//SYSREC00 DD DISP=OLD,DSN=DSN.QMW1003P.TST 00390002
//SYSREC01 DD DISP=OLD,DSN=DSN.QMW1003P.COPIES 00400002
//*--- 00410002
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00420002
// PARM=('%DB2COARC DBZF GEN') 00430002
//SYSIN DD DUMMY 00440002
//SYSTSIN DD DUMMY 00450002
//SYSTSPRT DD SYSOUT=* 00460002
//SYSPRINT DD SYSOUT=* 00470002
//SYSUDUMP DD SYSOUT=* 00480002
//SYSTERM DD DUMMY 00490002
//SYSPROC DD DISP=SHR,DSN=TSO.RZ1.P0.PROD.EXEC 00500002
//TST DD DISP=SHR,DSN=*.P01.TST
//COPIES DD DISP=SHR,DSN=*.P01.COPIES
//ALTER DD DISP=OLD,DSN=*.P01.ALTER
//*---
//P04 EXEC PGM=IDCAMS
//SYSPRINT DD DISP=OLD,DSN=*.P01.ALOUT
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=*.P01.ALTER
//*---
//P05 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=*.P01.ALOUT
//SYSUT2 DD SYSOUT=*
//*---
//P06 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM=('%DB2COARC DBZF check')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DISP=SHR,DSN=TSO.RZ1.P0.PROD.EXEC
//TST DD DISP=SHR,DSN=*.P01.TST
//ALOUT DD DISP=SHR,DSN=*.P01.ALOUT
//*---
// IF (ABEND OR NOT (RC <= 4 AND P04.RUN AND P06.RUN)) THEN
//*
//P07 EXEC PGM=OS3550,COND=EVEN
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT Copy Archive: JobFehler QMW1003P RZ1 DBZF
// DD DISP=SHR,DSN=DBZF.DBAA.LCTL(QMW1000M)
// DD *
rz=RZ1, subsys=DBZF, job=QMW1003P
// ENDIF
}¢--- A540769.WK.JCL(QMW1007P) cre=2008-03-18 mod=2008-11-24-17.25.13 F540769 ---
//A5407698 JOB (CP00,KE50), 00010003
// 'CATALOG',MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M 00030000
//*MAIN CLASS=LOG 00040000
//JOBLIB DD DISP=SHR,DSN=MQM.QP00 00050000
//*--- 00060000
//*--- verantwortlich kiut 23 - Db2 Administration 00070000
//*--- bei Fehler oder Abend: 00080000
//*--- kein Pikett Aufgebot 00090000
//*--- Ticket nur, falls P07 kein Mail schicken konnte 00100000
//*--- 00110000
//P01 EXEC PGM=IEFBR14 00120000
//TST DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1007P.TST, 00130000
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140002
// RECFM=VB 00150000
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1007P.COPIES, 00160000
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170002
// RECFM=VB 00180000
//ALTER DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1007P.ALTER, 00190000
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00200002
// RECFM=FB,LRECL=80 00210000
//ALOUT DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1007P.ALOUT, 00220000
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00230002
// RECFM=VBA,LRECL=121 00240000
//*--- 00250000
//P02 EXEC PGM=IKJEFT01, 00260000
// DYNAMNBR=200, 00270000
// TIME=99 00280000
//SYSTSIN DD * 00290000
DSN SYSTEM(DBOC) 00300000
RUN PROGRAM(DSNTIAUL) PARMS('SQL') 00310000
END 00320000
//SYSTSPRT DD SYSOUT=* 00330000
//SYSPRINT DD SYSOUT=* 00340000
//SYSUDUMP DD SYSOUT=* 00350000
//SYSTERM DD DUMMY 00360000
//SYSPUNCH DD SYSOUT=* 00370000
//SYSIN DD DISP=SHR,DSN=DBOC.DBAA.LCTL(QMW10000) 00380000
//SYSREC00 DD DISP=OLD,DSN=DSN.QMW1007P.TST 00390000
//SYSREC01 DD DISP=OLD,DSN=DSN.QMW1007P.COPIES 00400000
//*--- 00410000
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00420000
// PARM=('%DB2COARC DBOC GEN') 00430001
//SYSIN DD DUMMY 00440000
//SYSTSIN DD DUMMY 00450000
//SYSTSPRT DD SYSOUT=* 00460000
//SYSPRINT DD SYSOUT=* 00470000
//SYSUDUMP DD SYSOUT=* 00480000
//SYSTERM DD DUMMY 00490000
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00500003
//TST DD DISP=SHR,DSN=*.P01.TST 00510000
//COPIES DD DISP=SHR,DSN=*.P01.COPIES 00520000
//ALTER DD DISP=OLD,DSN=*.P01.ALTER 00530000
//*--- 00540000
//P04 EXEC PGM=IDCAMS 00550000
//SYSPRINT DD DISP=OLD,DSN=*.P01.ALOUT 00560000
//CEEDUMP DD SYSOUT=* 00570000
//SYSABEND DD SYSOUT=* 00580000
//SYSIN DD DISP=SHR,DSN=*.P01.ALTER 00590000
//*--- 00600000
//P05 EXEC PGM=IEBGENER 00610000
//SYSPRINT DD SYSOUT=* 00620000
//SYSUT1 DD DISP=SHR,DSN=*.P01.ALOUT 00630000
//SYSUT2 DD SYSOUT=* 00640000
//*--- 00650000
//P06 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00660000
// PARM=('%DB2COARC DBOC check') 00670001
//SYSIN DD DUMMY 00680000
//SYSTSIN DD DUMMY 00690000
//SYSTSPRT DD SYSOUT=* 00700000
//SYSPRINT DD SYSOUT=* 00710000
//SYSUDUMP DD SYSOUT=* 00720000
//SYSTERM DD DUMMY 00730000
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00740003
//TST DD DISP=SHR,DSN=*.P01.TST 00750000
//ALOUT DD DISP=SHR,DSN=*.P01.ALOUT 00760000
//*--- 00770000
// IF (ABEND OR NOT (RC <= 4 AND P04.RUN AND P06.RUN)) THEN 00780001
//* 00790001
//P07 EXEC PGM=OS3550 00800001
//SYSPRINT DD SYSOUT=* 00810001
//IEMLOG DD SYSOUT=* 00820001
//IEMAPI DD * 00830001
SUBJECT Copy Archive: JobFehler QMW1002P RZ1 DBOC 00840001
// DD DISP=SHR,DSN=DBOC.DBAA.LCTL(QMW1000M) 00850001
// DD * 00860001
rz=RZ1, subsys=DBOC, job=QMW1007P 00870001
// ENDIF 00880001
}¢--- A540769.WK.JCL(QMW1008P) cre=2008-03-18 mod=2014-04-23-08.25.08 A540769 ---
//QMW1008P JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',
// MSGCLASS=E,
// SCHENV=DBOF
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
// DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=P2
//* %%SET %%SUBSYS = DBOF
//********************************************************************
//* JCLPREP 07/01/2013 16:03:21 F965472
//********************************************************************
//*
//P02 EXEC PGM=IEFBR14
//TST DD DSN=DSN.%%JOBNAME.TST,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=%%#SPC2,
// RECFM=VB
//COPIES DD DSN=DSN.%%JOBNAME.COPIES,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=%%#SPC2,
// RECFM=VB
//ALTER DD DSN=DSN.%%JOBNAME.ALTER,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=%%#SPC2,
// RECFM=FB,LRECL=80
//ALOUT DD DSN=DSN.%%JOBNAME.ALOUT,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=%%#SPC2,
// RECFM=VBA,LRECL=121
//*
// IF P02.RC = 0 THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=200
//SYSTSIN DD *
DSN SYSTEM(%%SUBSYS)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSIN DD DSN=%%SUBSYS.DBAA.LCTL(QMW10000),DISP=SHR
//SYSREC00 DD DSN=DSN.%%JOBNAME.TST,DISP=OLD
//SYSREC01 DD DSN=DSN.%%JOBNAME.COPIES,DISP=OLD
// ENDIF
//*
// IF P03.RC <= 4 THEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC %%SUBSYS GEN')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ%%RZ.P0.PROD.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//COPIES DD DSN=*.P02.COPIES,DISP=SHR
//ALTER DD DSN=*.P02.ALTER,DISP=OLD
// ENDIF
//*
// IF P04.RC = 0 THEN
//P05 EXEC PGM=IDCAMS
//SYSPRINT DD DSN=*.P02.ALOUT,DISP=OLD
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD DSN=*.P02.ALTER,DISP=SHR
// ENDIF
//*--------------------------------------------------------***
//* COPY TO SYSOUT
//*--------------------------------------------------------***
//*
// IF (ABEND) OR (P05.RC GE 0) THEN
//P06 EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=*.P02.ALOUT,DISP=SHR
//SYSUT2 DD SYSOUT=*
// ENDIF
//*
// IF P06.RC = 0 THEN
//P07 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC %%SUBSYS check')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ%%RZ.P0.PROD.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//ALOUT DD DSN=*.P02.ALOUT,DISP=SHR
// ENDIF
//*
// IF (ABEND OR RC > 4 OR NOT (P05.RUN AND P07.RUN)) THEN
//P08 EXEC PGM=OS3550
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT Copy Archive: JobFehler %%JOBNAME RZ%%RZ %%SUBSYS
// DD DSN=%%SUBSYS.DBAA.LCTL(QMW1000M),DISP=SHR
// DD *
rz=RZ%%RZ, subsys=%%SUBSYS, job=%%JOBNAME
// ENDIF
//*
// IF P08.RC > 0 THEN
//P08A EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT UNGUELTIGER EMAIL EMPFAENGER ODER FILE ZU GROSS %%JOBNAME
RECPLIST GGDB2
SENDERID GGDB2
// DD DSN=PCL.U0000.P0.RZ2AKT.PERM.@005.JNA(PUOS355P),DISP=SHR
// ENDIF
}¢--- A540769.WK.JCL(QMW1099P) cre=2008-03-25 mod=2008-11-24-17.25.13 F540769 ---
//QMW1000P JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',
// MSGCLASS=E
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ1AKT.PERM.@007.JVA %%INCMEM JOBLRZ1P
// DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=SUBT0
//* %%SET %%SUBSYS = DBTF
//********************************************************************
//* JCLPREP 25/03/2008 15:18:43 A965472
//********************************************************************
//*
//P02 EXEC PGM=IEFBR14
//TST DD DSN=DSN.%%JOBNAME.TST,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=%%#SPC2,
// RECFM=VB
//COPIES DD DSN=DSN.%%JOBNAME.COPIES,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=%%#SPC2,
// RECFM=VB
//ALTER DD DSN=DSN.%%JOBNAME.ALTER,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=%%#SPC2,
// RECFM=FB,LRECL=80
//ALOUT DD DSN=DSN.%%JOBNAME.ALOUT,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=%%#SPC2,
// RECFM=VBA,LRECL=121
//*
// IF P02.RC = 0 THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=200
//SYSTSIN DD *
DSN SYSTEM(%%SUBSYS)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSIN DD DSN=%%SUBSYS.DBAA.LCTL(QMW10000),DISP=SHR
//SYSREC00 DD DSN=DSN.%%JOBNAME.TST,DISP=OLD
//SYSREC01 DD DSN=DSN.%%JOBNAME.COPIES,DISP=OLD
// ENDIF
//*
// IF P03.RC = 0 THEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC %%SUBSYS GEN')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ%%RZ.P0.PROD.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//COPIES DD DSN=*.P02.COPIES,DISP=SHR
//ALTER DD DSN=*.P02.ALTER,DISP=OLD
// ENDIF
//*
// IF P04.RC = 0 THEN
//P05 EXEC PGM=IDCAMS
//SYSPRINT DD DSN=*.P02.ALOUT,DISP=OLD
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD DSN=*.P02.ALTER,DISP=SHR
// ENDIF
//*--------------------------------------------------------***
//* COPY TO SYSOUT
//*--------------------------------------------------------***
//*
// IF P05.RC = 0 THEN
//P06 EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=*.P02.ALOUT,DISP=SHR
//SYSUT2 DD SYSOUT=*
// ENDIF
//*
// IF P06.RC = 0 THEN
//P07 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC %%SUBSYS check')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ%%RZ.P0.PROD.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//ALOUT DD DSN=*.P02.ALOUT,DISP=SHR
// ENDIF
//*
// IF (ABEND OR RC > 4 OR NOT (P05.RUN AND P07.RUN)) THEN
//P08 EXEC PGM=OS3550
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT Copy Archive: JobFehler %%JOBNAME RZ%%RZ %%SUBSYS
// DD DSN=%%SUBSYS.DBAA.LCTL(QMW0000M),DISP=SHR
// DD *
rz=RZ%%RZ, subsys=%%SUBSYS, job=%%JOBNAME
// ENDIF
}¢--- A540769.WK.JCL(QMW1099Q) cre=2008-03-25 mod=2008-11-24-17.25.14 F540769 ---
//QMW1000S JOB (PD00,KE30,,SS00000000),
// 'DB2 CMD',
// MSGCLASS=T
//*---- SUBMITTED BY CONTROL-M (FROM MEMLIB) ODATE=080325
//*---- SCHEDULE (UNKNOWN)
//*---- SCHEDULED DUE TO TAG:
//*---- JCL JOB.U0000.S0.RZ2AKT.OVER.@005.JCO(QMW1000S)
//*---- CONTROL-M JOB IDENTIFICATION: ORDER ID=ZZZZZ RUN NO.=00001
//*---- OMS NET=
//******************************************* S K A - SYSTEMTEST SI7230
//* %%GLOBAL GLOBAL
//* %%INCLIB PCS.U0000.S0.RZ1AKT.PERM.@007.JVA %%INCMEM JOBLRZ1S
//*JOBFROM A540769
//JOBLIB DD DSN=PCL.U0000.S0.RZ1AKT.PROM.@008.LLB,DISP=SHR
// DD DSN=PCL.U0000.S0.RZ1AKT.PROM.@008.LLG,DISP=SHR
// DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLB,DISP=SHR
// DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLG,DISP=SHR
// DD DSN=MQM.QT00,DISP=SHR
//*MAIN CLASS=SUBT0
//* %%SET %%SUBSYS = DBAF
//********************************************************************
//* JCLPREP 25/03/2008 15:18:43 A965472
//********************************************************************
//*
//P02 EXEC PGM=IEFBR14
//TST DD DSN=DSN.QMW1000.DBAF.TST,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=VB
//COPIES DD DSN=DSN.QMW1000.DBAF.COPIES,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=VB
//ALTER DD DSN=DSN.QMW1000.DBAF.ALTER,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=80
//ALOUT DD DSN=DSN.QMW1000.DBAF.ALOUT,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=VBA,LRECL=121
//*
// IF P02.RC = 0 THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=200
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSIN DD DSN=DBAF.DBAA.LCTL(QMW10000),DISP=SHR
//SYSREC00 DD DSN=*.P02.TST,DISP=OLD
//SYSREC01 DD DSN=*.P02.COPIES,DISP=OLD
// ENDIF
//*
// IF P03.RC <= 4 THEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC DBAF GEN')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//COPIES DD DSN=*.P02.COPIES,DISP=SHR
//ALTER DD DSN=*.P02.ALTER,DISP=OLD
// ENDIF
//*
// IF P04.RC = 0 THEN
//P05 EXEC PGM=IDCAMS
//SYSPRINT DD DSN=*.P02.ALOUT,DISP=OLD
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD DSN=*.P02.ALTER,DISP=SHR
// ENDIF
//*--------------------------------------------------------***
//* COPY TO SYSOUT
//*--------------------------------------------------------***
//*
// IF P05.RC <= 4 THEN
//P06 EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=*.P02.ALOUT,DISP=SHR
//SYSUT2 DD SYSOUT=*
// ENDIF
//*
// IF P06.RC = 0 THEN
//P07 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC DBAF check')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//ALOUT DD DSN=*.P02.ALOUT,DISP=SHR
// ENDIF
//*
// IF (ABEND OR RC > 4 OR NOT (P05.RUN AND P07.RUN)) THEN
//P08 EXEC PGM=OS3550
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT Copy Archive: JobFehler QMW1000S RZ1 DBAF
// DD DSN=DBAF.DBAA.LCTL(QMW0000M),DISP=SHR
// DD *
rz=RZ1, subsys=DBAF, job=QMW1000S
// ENDIF
//* SI7400 25.03.08
//
}¢--- A540769.WK.JCL(QMW1900P) cre=2008-03-27 mod=2008-11-24-17.25.14 F540769 ---
//QMW1900P JOB (CP00,KE50),'COPY ARC STATS', 00010000
// MSGCLASS=E,TIME=1440, 00020000
// REGION=0M 00030000
//*MAIN CLASS=LOG ,DEADLINE=(24H,A),HOLD=YES 00020001
//P01 EXEC PGM=IEFBR14 00030001
//SYSPRINT DD SYSOUT=* 00040001
//SYSUT1 DD DISP=SHR,DSN=A540769.WK.JCL(QMW1900P) 00050001
//SYSUT2 DD DUMMY 00060001
//*YSUT2 DD SYSOUT=(A,INTRDR) 00060001
//TST DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1000.DBAF.TST, 00130001
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140001
// RECFM=VB 00150001
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1000.DBAF.COPIES, 00160002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170001
// RECFM=VB 00180001
//*--- 00250002
//P02 EXEC PGM=IKJEFT01, 00260002
// DYNAMNBR=200, 00270000
// TIME=99 00280000
//SYSTSIN DD * 00290002
DSN SYSTEM(DBAF) 00300001
RUN PROGRAM(DSNTIAUL) PARMS('SQL') 00310000
END 00320000
//SYSTSPRT DD SYSOUT=* 00330002
//SYSPRINT DD SYSOUT=* 00340002
//SYSUDUMP DD SYSOUT=* 00350002
//SYSTERM DD DUMMY 00360002
//SYSPUNCH DD SYSOUT=* 00370002
//SYSIN DD DISP=SHR,DSN=DBAF.DBAA.LCTL(QMW10000) 00380002
//SYSREC00 DD DISP=OLD,DSN=*.P01.TST 00390002
//SYSREC01 DD DISP=OLD,DSN=*.P01.COPIES 00400002
//*--- 00410002
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00420002
// PARM=('%DB2COARC DBAF DIST') 00430002
//SYSIN DD DUMMY 00440002
//SYSTSIN DD DUMMY 00450002
//SYSTSPRT DD SYSOUT=* 00460002
//SYSPRINT DD SYSOUT=* 00470002
//SYSUDUMP DD SYSOUT=* 00480002
//SYSTERM DD DUMMY 00490002
//SYSPROC DD DISP=SHR,DSN=TSO.RZ1.P0.PROD.EXEC 00500002
//TST DD DISP=SHR,DSN=*.P01.TST
//COPIES DD DISP=SHR,DSN=*.P01.COPIES
//*---
}¢--- A540769.WK.JCL(QMW1902P) cre=2008-03-27 mod=2008-11-24-17.25.14 F540769 ---
//QMW1902P JOB (CP00,KE50),'COPY ARC STATS', 00010000
// MSGCLASS=E,TIME=1440, 00020000
// REGION=0M 00030000
//*MAIN CLASS=LOG ,DEADLINE=(24H,A),HOLD=YES 00020001
//*01 EXEC PGM=IEBGENER 00030001
//P01 EXEC PGM=IEFBR14 00030001
//SYSPRINT DD SYSOUT=* 00040001
//SYSUT1 DD DISP=SHR,DSN=A540769.WK.JCL(QMW1902P) 00050001
//*YSUT2 DD DUMMY 00060001
//SYSUT2 DD SYSOUT=(A,INTRDR) 00060001
//TST DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1900.DBTF.TST, 00130001
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140001
// RECFM=VB 00150001
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1900.DBTF.COPIES, 00160002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170001
// RECFM=VB 00180001
//*--- 00250002
//P02 EXEC PGM=IKJEFT01, 00260002
// DYNAMNBR=200, 00270000
// TIME=99 00280000
//SYSTSIN DD * 00290002
DSN SYSTEM(DBTF) 00300001
RUN PROGRAM(DSNTIAUL) PARMS('SQL') 00310000
END 00320000
//SYSTSPRT DD SYSOUT=* 00330002
//SYSPRINT DD SYSOUT=* 00340002
//SYSUDUMP DD SYSOUT=* 00350002
//SYSTERM DD DUMMY 00360002
//SYSPUNCH DD SYSOUT=* 00370002
//*YSIN DD DISP=SHR,DSN=DBTF.DBAA.LCTL(QMW10000) 00380002
//SYSIN DD * 00380002
SELECT CURRENT TIMESTAMP - 3 MINUTES,
CHAR(' SUB#ADB1 OA1T.TADM62A1 ', 50)
FROM SYSIBM.SYSDUMMY1
;
SELECT C.DBNAME, C.TSNAME, C.DSNUM, C.TIMESTAMP, C.ICTYPE, C.DSNAME,
CHAR(C.COPYPAGESF * 1024 * S.PGSIZE) COPIED, JOBNAME
FROM SYSIBM.SYSCOPY C, SYSIBM.SYSTABLESPACE S
WHERE C.ICTYPE IN ('F', 'I')
AND S.DBNAME = C.DBNAME
AND S.NAME = C.TSNAME
ORDER BY 1, 2, 3, 4 DESC
WITH UR
;
//SYSREC00 DD DISP=OLD,DSN=*.P01.TST 00390002
//SYSREC01 DD DISP=OLD,DSN=*.P01.COPIES 00400002
//*--- 00410002
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00420002
// PARM=('%DB2COARC DBTF DIST') 00430002
//SYSIN DD DUMMY 00440002
//SYSTSIN DD DUMMY 00450002
//SYSTSPRT DD SYSOUT=* 00460002
//SYSPRINT DD SYSOUT=* 00470002
//SYSUDUMP DD SYSOUT=* 00480002
//SYSTERM DD DUMMY 00490002
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00500002
//TST DD DISP=SHR,DSN=*.P01.TST
//COPIES DD DISP=SHR,DSN=*.P01.COPIES
//*---
}¢--- A540769.WK.JCL(QMW1907P) cre=2008-03-27 mod=2008-11-24-17.25.14 F540769 ---
//QMW1907P JOB (CP00,KE50),'COPY ARC STATS', 00010000
// MSGCLASS=E,TIME=1440,REGION=0M 00020000
//*MAIN CLASS=LOG,DEADLINE=(24H,A),HOLD=YES 00020001
//P01 EXEC PGM=IEBGENER 00030001
//SYSPRINT DD SYSOUT=* 00040001
//SYSUT1 DD DISP=SHR,DSN=A540769.WK.JCL(QMW1907P) 00050001
//*YSUT2 DD DUMMY 00060001
//SYSUT2 DD SYSOUT=(A,INTRDR) 00060001
//TST DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1000.DBOC.TST, 00130001
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140001
// RECFM=VB 00150001
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1000.DBOC.COPIES, 00160002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170001
// RECFM=VB 00180001
//*--- 00250002
//P02 EXEC PGM=IKJEFT01, 00260002
// DYNAMNBR=200, 00270000
// TIME=99 00280000
//SYSTSIN DD * 00290002
DSN SYSTEM(DBOC) 00300001
RUN PROGRAM(DSNTIAUL) PARMS('SQL') 00310000
END 00320000
//SYSTSPRT DD SYSOUT=* 00330002
//SYSPRINT DD SYSOUT=* 00340002
//SYSUDUMP DD SYSOUT=* 00350002
//SYSTERM DD DUMMY 00360002
//SYSPUNCH DD SYSOUT=* 00370002
//SYSIN DD DISP=SHR,DSN=DBOC.DBAA.LCTL(QMW10000) 00380002
//SYSREC00 DD DISP=OLD,DSN=*.P01.TST 00390002
//SYSREC01 DD DISP=OLD,DSN=*.P01.COPIES 00400002
//*--- 00410002
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00420002
// PARM=('%DB2COARC DBOC DIST') 00430002
//SYSIN DD DUMMY 00440002
//SYSTSIN DD DUMMY 00450002
//SYSTSPRT DD SYSOUT=* 00460002
//SYSPRINT DD SYSOUT=* 00470002
//SYSUDUMP DD SYSOUT=* 00480002
//SYSTERM DD DUMMY 00490002
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00500002
//TST DD DISP=SHR,DSN=*.P01.TST
//COPIES DD DISP=SHR,DSN=*.P01.COPIES
//*---
}¢--- A540769.WK.JCL(QMW1908P) cre=2008-04-08 mod=2008-12-16-09.05.03 F540769 ---
//QMW1908P JOB (CP00,KE50),'COPY ARC STATS', 00010000
// MSGCLASS=E,TIME=1440, 00020000
// REGION=0M 00030000
//*MAIN CLASS=LOG,DEADLINE=(24H,A),HOLD=YES 00020001
//P01 EXEC PGM=IEBGENER 00030001
//SYSPRINT DD SYSOUT=* 00040001
//SYSUT1 DD DISP=SHR,DSN=A540769.WK.JCL(QMW1908P) 00050001
//*YSUT2 DD DUMMY 00060001
//SYSUT2 DD SYSOUT=(A,INTRDR) 00060001
//TST DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1000.DBOF.TST, 00130001
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140001
// RECFM=VB 00150001
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1000.DBOF.COPIES, 00160002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170001
// RECFM=VB 00180001
//*--- 00250002
//P02 EXEC PGM=IKJEFT01, 00260002
// DYNAMNBR=200, 00270000
// TIME=99 00280000
//SYSTSIN DD * 00290002
DSN SYSTEM(DBOF) 00300001
RUN PROGRAM(DSNTIAUL) PARMS('SQL') 00310000
END 00320000
//SYSTSPRT DD SYSOUT=* 00330002
//SYSPRINT DD SYSOUT=* 00340002
//SYSUDUMP DD SYSOUT=* 00350002
//SYSTERM DD DUMMY 00360002
//SYSPUNCH DD SYSOUT=* 00370002
//SYSIN DD DISP=SHR,DSN=DBOF.DBAA.LCTL(QMW10000) 00380002
//SYSREC00 DD DISP=OLD,DSN=*.P01.TST 00390002
//SYSREC01 DD DISP=OLD,DSN=*.P01.COPIES 00400002
//*--- 00410002
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00420002
// PARM=('%DB2COARC DBOF DIST') 00430002
//SYSIN DD DUMMY 00440002
//SYSTSIN DD DUMMY 00450002
//SYSTSPRT DD SYSOUT=* 00460002
//SYSPRINT DD SYSOUT=* 00470002
//SYSUDUMP DD SYSOUT=* 00480002
//SYSTERM DD DUMMY 00490002
//SYSPROC DD DISP=SHR,DSN=DSN.SOURCE.EXEC 00500002
//TST DD DISP=SHR,DSN=*.P01.TST
//COPIES DD DISP=SHR,DSN=*.P01.COPIES
//*---
}¢--- A540769.WK.JCL(QMW1913P) cre=2008-04-10 mod=2008-11-24-17.25.14 F540769 ---
//QMW1913P JOB (CP00,KE50),'COPY ARC STATS', 00010000
// MSGCLASS=E,TIME=1440, 00020000
// REGION=0M 00030000
//*MAIN CLASS=LOG,DEADLINE=(24H,A),HOLD=YES 00020001
//P01 EXEC PGM=IEBGENER 00030001
//SYSPRINT DD SYSOUT=* 00040001
//SYSUT1 DD DISP=SHR,DSN=A540769.WK.JCL(QMW1913P) 00050001
//*YSUT2 DD DUMMY 00060001
//SYSUT2 DD SYSOUT=(A,INTRDR) 00060001
//TST DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1000.DP2G.TST, 00130001
// SPACE=(CYL,(1,1)),MGMTCLAS=COM#A092, 00140001
// RECFM=VB 00150001
//COPIES DD DISP=(MOD,CATLG,CATLG),DSN=DSN.QMW1000.DP2G.COPIES, 00160002
// SPACE=(CYL,(20,100)),MGMTCLAS=COM#A092, 00170001
// RECFM=VB 00180001
//*--- 00250002
//P02 EXEC PGM=IKJEFT01, 00260002
// DYNAMNBR=200, 00270000
// TIME=99 00280000
//SYSTSIN DD * 00290002
DSN SYSTEM(DP2G) 00300001
RUN PROGRAM(DSNTIAUL) PARMS('SQL') 00310000
END 00320000
//SYSTSPRT DD SYSOUT=* 00330002
//SYSPRINT DD SYSOUT=* 00340002
//SYSUDUMP DD SYSOUT=* 00350002
//SYSTERM DD DUMMY 00360002
//SYSPUNCH DD SYSOUT=* 00370002
//SYSIN DD DISP=SHR,DSN=DP2G.DBAA.LCTL(QMW10000) 00380002
//SYSREC00 DD DISP=OLD,DSN=*.P01.TST 00390002
//SYSREC01 DD DISP=OLD,DSN=*.P01.COPIES 00400002
//*--- 00410002
//P03 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00420002
// PARM=('%DB2COARC DP2G DIST') 00430002
//SYSIN DD DUMMY 00440002
//SYSTSIN DD DUMMY 00450002
//SYSTSPRT DD SYSOUT=* 00460002
//SYSPRINT DD SYSOUT=* 00470002
//SYSUDUMP DD SYSOUT=* 00480002
//SYSTERM DD DUMMY 00490002
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX 00500002
//TST DD DISP=SHR,DSN=*.P01.TST
//COPIES DD DISP=SHR,DSN=*.P01.COPIES
//*---
}¢--- A540769.WK.JCL(QMW83) cre=2014-10-06 mod=2014-10-06-09.57.41 A540769 -----
$#@
m.dsl.1 = A540769.TSTLE.DBOF.TADM60A1.D14279.T085351
m.dsl.2 = A540769.TSTLE.DBOF.TADM63A1.D14279.T085351
m.dsl.3 = A540769.TSTLE.DBOF.TADM64A1.D14279.T085351
m.dsl.4 = A540769.TSTLE.DBOF.TADM65A1.D14279.T085352
m.dsl.0 = 4
$= ab = logExTst
$= rz = RZ2
$= dbSys= DBOF
$= now = f('%t s')
$<>
$>. fEdit()
$@=/job/
//QMW8300P JOB (CP00,KE50),'DB2 MVEXT',
// MSGCLASS=E,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=P2
//*
//* db2 log Extract ablauf $ab from $rz/$dbSys
//* generated by abub at $now
//*
$do dx=1 to m.dsl.0 $@/table/
$** .DE0G.TADM60A1.D14107.T080224
$=iDsn =- strip(m.dsl.dx)
d1 = right($iDsn, 29)
tb = substr(d1, 7, 8)
if \ (abbrev(d1, '.'$dbSys'.') & translate(right(d1, 15),
, 000000000, 123456789) == '.D00000.T000000') then $@¢
$$ //* bad dsn $iDsn
iterate
$! else if tb == 'TADM60A1' then $@¢
$= tb = A540769.TQZ060TIMEOUT
$! else if tb == 'TADM63A1' then $@¢
$= tb = A540769.TQZ063UOW
$! else if tb == 'TADM64A1' then $@¢
$= tb = A540769.TQZ064LOCKESCAL
$! else if tb == 'TADM65A1' then $@¢
$= tb = A540769.TQZ065ABEND
$! else $@¢
$$- '//* bad tb' tb 'in dsn' $iDsn
iterate
$!
$$- '//* dsn' $iDsn
$$- '//* tb' tb '==>' $tb
$=iDsn=- m.dsl.dx
if $rz = sysvar(sysnode) then
$= csm = $''
else
$= csm = SUBSYS=(CSM,'SYSTEM=$rz'),
$@=¢
//* ------ load $rz/$dbSys $iDsn
//L$dx EXEC PGM=DSNUTILB,
// PARM=(DP4G,'LOA#DELIMITER')
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//IN DD DISP=SHR,$csm
// DSN=$iDsn
//SYSIN DD *
EXEC SQL
delete from $tb -- WHERE RZ = '?'
ENDEXEC
LOAD DATA RESUME YES INDDN IN LOG YES
SHRLEVEL CHANGE
WORKDDN(TSYUTS,TSOUTS)
FORMAT DELIMITED COLDEL ','
INTO TABLE $tb
$!
if $tb == 'A540769.TQZ060TIMEOUT' then $@=¢
( TIMESTAMP
, SSID
, EVENT_TYPE
, VICTIM_PLAN
, VICTIM_CORR_ID
, VICTIM_CONN_ID
, HOLDER_PLAN
, HOLDER_CORR_ID
, HOLDER_CONN_ID
, REASON_CODE
, TYPE
, NAME
)
EXEC SQL
delete from $tb n
where rz = '?'
and exists (select 1 from $tb a
where rz = '$rz' and dbSys = '$dbSys'
and loadDate > current date - 50 days
and a.timestamp = n.timestamp and a.ssid = n.ssid
and a.event_type = n.event_type
and a.victim_corr_id = n.victim_corr_id
and a.holder_corr_id = n.holder_corr_id
and a.name = n.name)
ENDEXEC
$! else if $tb == 'A540769.TQZ063UOW' then $@=¢
( TIMESTAMP
, SSID
, EVENT_TYPE
, PLAN_NAME
, CORRID_ID
, CONN_ID
, AUTHID
, LOGREC
)
EXEC SQL
delete from $tb n
where rz = '?'
and exists (select 1 from $tb a
where rz = '$rz' and dbSys = '$dbSys'
and loadDate > current date - 50 days
and a.timestamp = n.timestamp and a.ssid = n.ssid
and a.event_type = n.event_type
and a.plan_name = n.plan_name
and a.corrid_id = n.corrid_ID
and a.logRec = n.logRec)
ENDEXEC
$! else if $tb == 'A540769.TQZ064LOCKESCAL' then $@=¢
( TIMESTAMP
, SSID
, EVENT_TYPE
, PLAN_NAME
, PACKAGE_NAME
, COLLECTION_ID
, CORRID_ID
, CONN_ID
, RESOURCE
, LOCK_STATE
, STATEMENT
)
EXEC SQL
delete from $tb n
where rz = '?'
and exists (select 1 from $tb a
where rz = '$rz' and dbSys = '$dbSys'
and loadDate > current date - 50 days
and a.timestamp = n.timestamp and a.ssid = n.ssid
and a.event_type = n.event_type
and a.plan_name = n.plan_name
and a.corrid_id = n.corrid_ID
and a.conn_id = n.conn_id
and a.package_name = n.package_name)
ENDEXEC
$! else if $tb == 'A540769.TQZ065ABEND' then $@=¢
( TIMESTAMP
, SSID
, EVENT_TYPE
, CORRID_ID
, JOBNAME
, CONN_ID
, AUTHID
, ASID
, TCB
,
)
EXEC SQL
delete from $tb n
where rz = '?'
and exists (select 1 from $tb a
where rz = '$rz' and dbSys = '$dbSys'
and loadDate > current date - 50 days
and a.timestamp = n.timestamp and a.ssid = n.ssid
and a.event_type = n.event_type
and a.jobname = n.jobname
and a.corrid_id = n.corrid_ID
and a.conn_id = n.conn_id
and a.authid = n.authid )
ENDEXEC
$! else $@=¢
implement table $tb in DSN.ABUB.A.SKELS(QMW83)
$!
$@=¢
EXEC SQL
update $tb
set rz = '$rz', dbSys = '$dbSys'
where rz = '?'
ENDEXEC
// IF L$dx.RUN AND (L$dx.RC = 0 OR L$dx.RC = 4) THEN
//D$dx EXEC PGM=IEFBR14
//DEL DD DISP=(OLD,DELETE),$csm
// DSN=$iDsn
// ENDIF
$!
$/table/
$/job/
}¢--- A540769.WK.JCL(QM0009P) cre=2014-03-28 mod=2014-03-28-11.43.58 A540769 ---
//QMW0009P JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',
// MSGCLASS=T,
// TIME=1440,
// SCHENV=DBOL
//*MAIN CLASS=LOG
//********************************************************************
//* JCLPREP 11/05/2013 08:36:56 F965472
//********************************************************************
//*
//P00 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL 'DSN.WOK.QMW0009P.DSNTEP2.SQL' NVSAM PURGE
DEL 'DSN.WOK.QMW0009P.DSNTEP2.OUT' NVSAM PURGE
DEL 'DSN.WOK.QMW0009P.SUMMARY.DATA' NVSAM PURGE
DEL 'DSN.WOK.QMW0009P.MAILHEAD.DATA' NVSAM PURGE
DEL 'DSN.WOK.QMW0009P.MAILTEXT.DATA' NVSAM PURGE
IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//P02 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ4.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=DSN.DB2.LCTL(RZ4SQL),DISP=SHR
//SQLSTMNT DD DSN=DSN.WOK.QMW0009P.DSNTEP2.SQL,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=80
//PRINT DD SYSOUT=*
//SYSTSIN DD *
%DB2CPG01 DBOL
// ENDIF
//*
// IF (P02.RC = 0 ) THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSIN DD DSN=*.P02.SQLSTMNT,DISP=SHR
//SYSTSIN DD *
DSN SYSTEM(DBOL)
RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
//SYSPRINT DD DSN=DSN.WOK.QMW0009P.DSNTEP2.OUT,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE)
//SYSUDUMP DD SYSOUT=*
// ENDIF
//* %%IF %%ENV EQ PROD
//*********PROD
//*
// IF (P02.RC = 0 & P03.RC < 12) THEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ4.P0.PROD.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDIN1 DD DSN=*.P03.SYSPRINT,DISP=SHR
//MAILHIN DD DSN=DBOL.DBAA.LCTL(QMW00091),DISP=SHR
//MAILHOUT DD DSN=DSN.WOK.QMW0009P.MAILHEAD.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//MAILHTXT DD DSN=DSN.WOK.QMW0009P.MAILTEXT.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//SUMMARY DD DSN=DSN.WOK.QMW0009P.SUMMARY.DATA,
// DISP=(,CATLG),
// MGMTCLAS=WORK,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=133
//PRINT DD SYSOUT=*
//SYSTSIN DD *
%DB2CPG02 RZ4 DBOL QMW0009P
// ENDIF
}¢--- A540769.WK.JCL(QM10016P) cre=2014-02-15 mod=2014-04-25-15.49.50 A540769 ---
//QMW1016P JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',
// MSGCLASS=T,
// SCHENV=TSO
//*MAIN CLASS=P2
//* %%SET DP4G = DP4G
//********************************************************************
//* JCLPREP 11/04/2013 14:20:21 F965472
//********************************************************************
//*
//P02 EXEC PGM=IEFBR14
//TST DD DSN=DSN.WOK.QMW1016P.TST,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=VB
//COPIES DD DSN=DSN.WOK.QMW1016P.COPIES,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=VB
//ALTER DD DSN=DSN.WOK.QMW1016P.ALTER,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=FB,LRECL=80
//ALOUT DD DSN=DSN.WOK.QMW1016P.ALOUT,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=(CYL,(15,75),RLSE),
// RECFM=VBA,LRECL=121
//*
// IF P02.RC = 0 THEN
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=200
//SYSTSIN DD *
DSN SYSTEM(DP4G)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSIN DD DSN=DP4G.DBAA.LCTL(QMW10000),DISP=SHR
//SYSREC00 DD DSN=DSN.WOK.QMW1016P.TST,DISP=OLD
//SYSREC01 DD DSN=DSN.WOK.QMW1016P.COPIES,DISP=OLD
// ENDIF
//*
// IF P03.RC <= 4 THEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC DP4G GEN')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ4.P0.PROD.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//COPIES DD DSN=*.P02.COPIES,DISP=SHR
//ALTER DD DSN=*.P02.ALTER,DISP=OLD
// ENDIF
//*
// IF P04.RC = 0 THEN
//P05 EXEC PGM=IDCAMS
//SYSPRINT DD DSN=*.P02.ALOUT,DISP=OLD
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD DSN=*.P02.ALTER,DISP=SHR
// ENDIF
//*--------------------------------------------------------***
//* COPY TO SYSOUT
//*--------------------------------------------------------***
//*
// IF (ABEND) OR (P05.RC GE 0) THEN
//P06 EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=*.P02.ALOUT,DISP=SHR
//SYSUT2 DD SYSOUT=*
// ENDIF
//*
// IF P06.RC = 0 THEN
//P07 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC DP4G check')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ4.P0.PROD.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//ALOUT DD DSN=*.P02.ALOUT,DISP=SHR
// ENDIF
//*
// IF (ABEND OR RC > 4 OR NOT (P05.RUN AND P07.RUN)) THEN
//P08 EXEC PGM=OS3550
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT Copy Archive: JobFehler QMW1016P RZ4 DP4G
// DD DSN=DP4G.DBAA.LCTL(QMW1000M),DISP=SHR
// DD *
rz=RZ4, subsys=DP4G, job=QMW1016P
// ENDIF
}¢--- A540769.WK.JCL(QM416A7P) cre=2013-09-05 mod=2013-09-13-16.03.23 A540769 ---
//QM416A7P JOB (PD00,KE50,,SP00000000),
// 'GB GRENZE',
// MSGCLASS=T,
// TIME=1440
//*MAIN CLASS=DBAF
//* ALLOC TEMPORARY DSNS
//********************************************************************
//* JCLPREP 07/15/2013 12:49:45 F965472
//********************************************************************
//*
//P00 EXEC PGM=IEFBR14
//M1 DD DSN=DSN.QM416A7P.MAIL1,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=BAT#WK,
// SPACE=(CYL,(1,1)),
// RECFM=VB,LRECL=133,BLKSIZE=13300
//M2 DD DSN=DSN.QM416A7P.MAIL2,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=BAT#WK,
// SPACE=(CYL,(1,1)),
// RECFM=FB,LRECL=80,BLKSIZE=800
//*
//P05 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DSN=DSN.QM416A7P.MAIL1,DISP=OLD
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBAF)
RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
END
//SYSIN DD DSN=DBAF.DBAA.LCTL(QM416204),DISP=SHR
//*YSIN DD DSN=A540769.WK.SQL(QM416204),DISP=SHR
//*
// IF RC < 5 THEN
//* FORMATIERT DEN E-MAIL OUTPUT
//P06 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPROC DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//IN DD DSN=DSN.QM416A7P.MAIL1,DISP=OLD
//OUT DD DSN=DSN.QM416A7P.MAIL2,DISP=OLD
//MAILIN DD DSN=DBAF.DBAA.LCTL(QM416205),DISP=SHR
//SYSTSIN DD *
%GB#V310
//* MAIL VERSENDEN
// ENDIF
//*
// IF RC < 5 THEN
//P07 EXEC PGM=OS3550
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD DSN=DSN.QM416A7P.MAIL2,DISP=SHR
// ENDIF
//*
// IF (ABEND OR RC GT 07) THEN
//P09 EXEC PGM=OS3550
//SYSPRINT DD SYSOUT=*
//IEMLOG DD SYSOUT=*
//IEMAPI DD DSN=DBAF.DBAA.LCTL(QM416206),DISP=SHR
// ENDIF
//*
// IF P07.RC > 0 | P09.RC > 0 THEN
//P10 EXEC PGM=OS3550
//IEMLOG DD SYSOUT=*
//IEMAPI DD *
SUBJECT UNGUELTIGER EMAIL EMPFAENGER ODER FILE ZU GROSS %%JOBNAME
RECPLIST A397559
// DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(PUOS355P),DISP=SHR
// ENDIF
}¢--- A540769.WK.JCL(QM416G0P) cre=2008-12-08 mod=2008-12-10-14.12.20 F540769 ---
//QM416G0P JOB (PD00,KE50,,SP00000000),
// 'GB GRENZE DP2G',
// MSGCLASS=T,
// TIME=1440
//*MAIN CLASS=LOG
//********************************************************************
//* JCLPREP 07/11/2008 13:03:30 A965472
//********************************************************************
//*
//P00 EXEC PGM=IEFBR14
//M1 DD DSN=A540769.QM46P.MAIL1,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=BAT#WK,
// SPACE=(CYL,(1,1)),
// RECFM=FBA,LRECL=133,BLKSIZE=13300
//M2 DD DSN=A540769.QM46P.MAIL2,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=BAT#WK,
// SPACE=(CYL,(1,1)),
// RECFM=FB,LRECL=80,BLKSIZE=800
//*
// IF P00.RC = 0 THEN
//P01 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DP2G)
RUN PROGRAM(DSNTEP2)
END
//SYSIN DD DSN=DP2G.DBAA.LCTL(QM416G01),DISP=SHR
//* DATEN VOM LISTCAT
// ENDIF
//*
// IF RC < 5 THEN
//P02 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSTSIN DD *
%GBGRENZE DP2G
//* FÜLLT DIE NEUNER TABELLE
// ENDIF
//*
// IF RC < 5 THEN
//P03 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DP2G)
RUN PROGRAM(DSNTEP2)
END
//SYSIN DD DSN=DP2G.DBAA.LCTL(QM416G02),DISP=SHR
//* RUNSTATS AUF TS
// ENDIF
//*
// IF RC < 5 THEN
//P04 EXEC PGM=DSNUTILB,
// PARM='DP2G'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//DSSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DSN=DP2G.DBAA.LCTL(QM416G03),DISP=SHR
//* ERGEBNIS DER VERSCHIEDENEN GB GRENZEN
// ENDIF
//*
// IF RC < 5 THEN
//P05 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DSN=A540769.QM46P.MAIL1,DISP=OLD
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DP2G)
RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
END
//SYSIN DD DSN=DP2G.DBAA.LCTL(QM416G04),DISP=SHR
// ENDIF
//* %%IF %%ENV EQ PROD
//*********PROD
//*
// IF RC < 5 THEN
//* FORMATIERT DEN E-MAIL OUTPUT
//P06 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPROC DD DSN=TSO.RZ2.P0.PROD.EXEC,DISP=SHR
//IN DD DSN=A540769.QM46P.MAIL1,DISP=OLD
//OUT DD DSN=A540769.QM46P.MAIL2,DISP=OLD
//MAILIN DD *
*---+----1----+----2----+----3----+----4----+----
SUBJECT GIGABYTE GRENZE DP2G: $SUB
RECPLIST GGDB2
DOCTEXT
GIGABYTE GRENZE DP2G, RZ2, JOBNAME %%JOBNAME
$@TEXT
DOCTEXTEND
//SYSTSIN DD *
%GB#V310
// ENDIF
}¢--- A540769.WK.JCL(QM41620P) cre=2007-10-23 mod=2008-12-10-12.50.35 F540769 ---
//QM41620P JOB (PD00,KE50,,SP00000000),
// 'GB GRENZE',
// MSGCLASS=T,
// TIME=1440
//*MAIN CLASS=LOG
//P00 EXEC PGM=IEFBR14
//M1 DD DSN=A540769.QM416.MAIL1,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=BAT#WK,
// SPACE=(CYL,(1,1)),
// RECFM=FBA,LRECL=133,BLKSIZE=13300
//M2 DD DSN=A540769.QM416.MAIL2,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=BAT#WK,
// SPACE=(CYL,(1,1)),
// RECFM=FB,LRECL=80,BLKSIZE=800
//*
//P01 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBOF)
RUN PROGRAM(DSNTEP2)
END
//SYSIN DD DSN=DBOF.DBAA.LCTL(QM416201),DISP=SHR
//* DATEN VOM LISTCAT
//*
// IF RC < 5 THEN
//P02 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSTSIN DD *
%GBGRENZE DBOF
//* FÜLLT DIE NEUNER TABELLE
// ENDIF
//*
// IF RC < 5 THEN
//P03 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBOF)
RUN PROGRAM(DSNTEP2)
END
//SYSIN DD DSN=DBOF.DBAA.LCTL(QM416202),DISP=SHR
//* RUNSTATS AUF TS
// ENDIF
//*
// IF RC < 5 THEN
//P04 EXEC PGM=DSNUTILB,
// PARM='DBOF'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//DSSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DSN=DBOF.DBAA.LCTL(QM416203),DISP=SHR
//* ERGEBNIS DER VERSCHIEDENEN GB GRENZEN
// ENDIF
//*
// IF RC < 5 THEN
//P05 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DSN=A540769.QM416.MAIL1,DISP=OLD
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBOF)
RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
END
//SYSIN DD DSN=DBOF.DBAA.LCTL(QM416204),DISP=SHR
// ENDIF
//* %%IF %%ENV EQ PROD
//*********PROD
//*
// IF RC < 5 THEN
//* FORMATIERT DEN E-MAIL OUTPUT
//P06 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPROC DD DSN=TSO.RZ2.P0.PROD.EXEC,DISP=SHR
//IN DD DSN=A540769.QM416.MAIL1,DISP=OLD
//OUT DD DSN=A540769.QM416.MAIL2,DISP=OLD
//MAILIN DD *
*---+----1----+----2----+----3----+----4----+----
SUBJECT GIGABYTE GRENZE DBOF: $SUB
RECPLIST GGDB2
DOCTEXT
GIGABYTE GRENZE DBOF, RZ2, JOBNAME %%JOBNAME
$@TEXT
DOCTEXTEND
//SYSTSIN DD *
%GB#V310
// ENDIF
}¢--- A540769.WK.JCL(QM41661P) cre=2008-12-08 mod=2008-12-10-14.06.20 F540769 ---
//QM41661P JOB (PD00,KE50,,SP00000000),
// 'GB GRENZE',
// MSGCLASS=T,
// TIME=1440
//*MAIN CLASS=LOG
//* ALLOC TEMPORARY DSNS
//********************************************************************
//* JCLPREP 04/11/2008 14:03:10 A965472
//********************************************************************
//*
//P00 EXEC PGM=IEFBR14
//M1 DD DSN=A540769.QM461.MAIL1,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=BAT#WK,
// SPACE=(CYL,(1,1)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=13300)
//M2 DD DSN=A540769.QM461.MAIL2,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=BAT#WK,
// SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//*
//P01 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2)
END
//SYSIN DD DSN=DVBP.DBAA.LCTL(QM416611),DISP=SHR
//* DATEN VOM LISTCAT
//*
// IF RC < 5 THEN
//P02 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSTSIN DD *
%GBGRENZE DVBP
//* FÜLLT DIE NEUNER TABELLE
// ENDIF
//*
// IF RC < 5 THEN
//P03 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM(DSNTEP2)
END
//SYSIN DD DSN=DVBP.DBAA.LCTL(QM416612),DISP=SHR
//* RUNSTATS AUF TS
// ENDIF
//*
// IF RC < 5 THEN
//P04 EXEC PGM=DSNUTILB,
// PARM='DVBP'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//DSSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DSN=DVBP.DBAA.LCTL(QM416613),DISP=SHR
//* ERGEBNIS DER VERSCHIEDENEN GB GRENZEN
// ENDIF
//*
// IF RC < 5 THEN
//P05 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DSN=A540769.QM461.MAIL1,DISP=OLD
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DVBP)
RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
END
//SYSIN DD DSN=DVBP.DBAA.LCTL(QM416614),DISP=SHR
// ENDIF
//* %%IF %%ENV EQ PROD
//*********PROD
//*
// IF RC < 5 THEN
//* FORMATIERT DEN E-MAIL OUTPUT
//P06 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPROC DD DSN=TSO.RZ2.P0.PROD.EXEC,DISP=SHR
//IN DD DSN=A540769.QM461.MAIL1,DISP=OLD
//OUT DD DSN=A540769.QM461.MAIL2,DISP=OLD
//MAILIN DD *
*---+----1----+----2----+----3----+----4----+----
SUBJECT GIGABYTE GRENZE DVBP: $SUB
RECPLIST GGDB2
DOCTEXT
GIGABYTE GRENZE DVBP, RZ2, JOBNAME %%JOBNAME
$@TEXT
DOCTEXTEND
//SYSTSIN DD *
%GB#V310
// ENDIF
}¢--- A540769.WK.JCL(QM65) cre=2014-10-13 mod=2014-10-22-10.33.01 A540769 ------
$#@
call iivPut 'RZ4/DP4G'
$=job = QM650${rzC}0P
$= rzD1 =- iirz2c($rzD)
$<>
$>. fedit()
$@=/job/
//$job JOB (PD00,KE50,,SP00000000),
// 'MAINVIEW IN BATCH',
// MSGCLASS=T,SCHENV=DB2
//*MAIN CLASS=P2
//********************************************************************
//* mainView extract for $rz job $job
//* generated at $-¢f('%t s')$!
//* by A540769.WK.JCL(QZT65)
//********************************************************************
//*
//P01 EXEC PGM=IKJEFT01,
// DYNAMNBR=300,
// REGION=64M
//SYSTSPRT DD SYSOUT=*
//ISPMLIB DD DSN=TSO.$rzD.P0.INST.MSGS,DISP=SHR
// DD DSN=TSO.$rzD.P0.PROD.MSGS,DISP=SHR
// DD DSN=ISP.SISPMENU,DISP=SHR
// DD DSN=SYS1.SBPXMENU,DISP=SHR
//ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR
// DD DSN=ISP.SISPSLIB,DISP=SHR
// DD DSN=TSO.$rzD.P0.PROD.SKELS,DISP=SHR
//ISPTLIB DD DSN=TSO.$rzD.P0.INST.TABLES,DISP=SHR
// DD DSN=ISP.SISPTENU,DISP=SHR
// DD DSN=TSO.$rzD.P0.PROD.TABLES,DISP=SHR
// DD DSN=SYS1.SBPXTENU,DISP=SHR
//ISPPLIB DD DSN=TSO.$rzD.P0.INST.PANELS,DISP=SHR
// DD DSN=ISP.SISPPENU,DISP=SHR
// DD DSN=TSO.$rzD.P0.PROD.PANELS,DISP=SHR
// DD DSN=SYS1.SBPXPENU,DISP=SHR
//SYSEXEC DD DSN=TSO.$rzD.P0.INST.EXEC,DISP=SHR
// DD DSN=ISP.SISPEXEC,DISP=SHR
// DD DSN=TSO.$rzD.P0.PROD.CEXEC,DISP=SHR
// DD DSN=TSO.$rzD.P0.PROD.EXEC,DISP=SHR
//ISPLOG DD SYSOUT=*,RECFM=VA,LRECL=125,BLKSIZE=129
//SYSPROC DD DSN=DSN.MVEXT.EXEC,DISP=SHR
//ISPLIST DD SYSOUT=*,RECFM=FBA,LRECL=121,BLKSIZE=1210 BAA0923
//ISPPROF DD DSN=&TMPPROF,
// DISP=(NEW,PASS),
// UNIT=VIO,
// SPACE=(TRK,(10,10,5)),
// RECFM=FB,LRECL=80,BLKSIZE=8880
//CMDLIST DD DSN=DSN.MVEXT.CMDLIST,
// DISP=(MOD,CATLG),
// MGMTCLAS=BAT#WK,
// SPACE=(CYL,(1,10)),
// RECFM=VBA,LRECL=2000,
// DSORG=PS
//SYSTSIN DD DSN=DSN.MVEXT.EXEC(QM650${rzD1}02),DISP=SHR
//*
// IF RC = 0 THEN
//P02 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM='%DB2MVEXT',
// TIME=99
//SYSPROC DD DSN=DSN.MVEXT.EXEC,DISP=SHR
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
// ENDIF
$/job/
$#out 20141022 10:20:57
$#out 20141014 17:11:19
}¢--- A540769.WK.JCL(QPB9201P) cre=2015-03-09 mod=2016-08-15-08.18.16 A540769 ---
//QPB9201P JOB (PD00,KE50,,SP00000000),
// 'DPRSMF',
// MSGCLASS=T,
// SCHENV=DP4G,
// CLASS=M1
//MYPROC JCLLIB ORDER=(DSN.PR.PLEXB.PARMS,
// JOBP.SYSA.PROC)
//P05 EXEC PR#SU1,
// JOB=QPB9201P,
// RZ=RZ2
}¢--- A540769.WK.JCL(QPB9201Q) cre=2016-08-15 mod=2016-09-30-12.31.48 A540769 ---
//QPB9201Q JOB (PD00,KE50,,SP00000000),
// 'DPRSMF',
// MSGCLASS=T,
// SCHENV=DP4G,
// CLASS=M1
//*******************************************************
//* nur wsh step aus qpb9201P
//********************************************************************
//* JCLPREP 12/18/2013 14:31:29 F965472
//********************************************************************
//*
// SET JOB=WKTEST
// SET SSID=DP4G
// SET RZ=RZ2
// SET LIB=DB2@.RZ4.P0.DSNLOAD
//PRSU1#1 EXEC PGM=IEFBR14
//LIB DD DISP=(MOD,CATLG,CATLG),DSN=DSN.JOBRUN.&JOB.,
// DATACLAS=UN0000E0,MGMTCLAS=BAT#AT,DSNTYPE=LIBRARY,
// DCB=(RECFM=FB,LRECL=80,DSORG=PO),SPACE=(CYL,(1,10))
//*--- WSH GENERATES UTILITY INPUT AND SQL -----------------------------
//PRSU1#2 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// PARM='WSH @ $=jn= &JOB. $=dbSy= &SSID. $=rz= &RZ. $#@'
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//UTIL DD DISP=SHR,DSN=DSN.JOBRUN.&JOB.(UTIL)
//SQL DD DISP=SHR,DSN=DSN.JOBRUN.&JOB.(SQL)
//WSH DD DISP=SHR,DSN=DSN.DB2.LCTL(PRSULOAW)
//
//*--- DB2 UTILITY -----------------------------------------------------
// IF PRSU1#2.RUN AND PRSU1#2.RC = 0 THEN
//PRSU1#3 EXEC PGM=DSNUTILB,PARM='&SSID.,&JOB..LOAD'
//STEPLIB DD DSN=&LIB,DISP=SHR
//SYSMAP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=&SSID..DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DISP=SHR,DSN=*.PRSU1#2.UTIL
// ENDIF
//*--- EXECUTE SQL -----------------------------------------------------
// IF PRSU1#3.RUN AND (PRSU1#3.RC = 0 OR PRSU1#3.RC= 4) THEN
//PRSU1#4 EXEC PGM=IKJEFT01,DYNAMNBR=20,PARM='END'
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSIN DD DSN=DSN.SKA.P0.PARM(DP4GTEP2),DISP=SHR
//SYSIN DD DISP=SHR,DSN=*.PRSU1#2.SQL
// ENDIF
// PEND
//P05 ?EXEC PR#SU1,
// JOB=QPB9201P,
// RZ=RZ2
}¢--- A540769.WK.JCL(QR03211P) cre=2006-09-14 mod=2008-11-24-17.25.15 F540769 ---
//QR03211P JOB (PD00,KE50,,SP00000000),
// 'DB2',
// MSGCLASS=E,
// TIME=1440
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
//*MAIN CLASS=SUBP2
//********************************************************************
//* JCLPREP 10/04/2006 10:51:29 A965472
//********************************************************************
//*
//P00 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL 'DSN.SYSPRINT.QR03211P' NVSAM PURGE
DEL 'DBOF.DBAA.LISTDEF.QR03211P' NVSAM PURGE
IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//* OBJEKTE AUS LISTDEF AUFLÖSEN
//P02 EXEC PGM=DSNUTILB,
// PARM='DBOF,QR03211P.PREVIEW'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD DSN=DSN.SYSPRINT.QR03211P,
// DISP=(NEW,CATLG)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBOF.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DBOF.DBAA.LISTDEF(QR032111),DISP=SHR
// ENDIF
//*
// IF RC < 9 THEN
//* SYSPRINT AUF SYSOUT UMKOPIEREN
//P03 EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DSN=DSN.SYSPRINT.QR03211P,DISP=SHR
//SYSUT2 DD SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* RTS FÜR TABLESPACES CHECKEN, OUTPUT ERSTELLEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ2.P0.USER.EXEC,DISP=SHR
//DDIN1 DD DSN=DSN.SYSPRINT.QR03211P,DISP=SHR
//DDIN2 DD DSN=DBOF.DBAA.LISTDEF(QR032111),DISP=SHR
//DDOUT1 DD DSN=DBOF.DBAA.LISTDEF.QR03211P,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD *
%CHECKRTS DBOF TS
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* REORG FÜR TABLESPACES AUSFÜHREN
//P05 EXEC PGM=DSNUTILB,
// PARM='DBOF,QR03211P.REORG'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBOF.DBAA.LISTDEF.QR03211P,DISP=SHR
// ENDIF
//*
// IF RC < 5 THEN
//* RTS FÜR INDEXE CHECKEN, OUTPUT ERSTELLEN
//P06 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ2.P0.USER.EXEC,DISP=SHR
//DDIN1 DD DSN=DSN.SYSPRINT.QR03211P,DISP=SHR
//DDIN2 DD DSN=DBOF.DBAA.LISTDEF(QR032111),DISP=SHR
//DDOUT1 DD DSN=DBOF.DBAA.LISTDEF.QR03211P,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD *
%CHECKRTS DBOF IX
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
//PLIDUMP DD SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* REORG FÜR INDEXE AUSFÜHREN
//P07 EXEC PGM=DSNUTILB,
// PARM='DBOF,QR03211P.REORG'
//STEPLIB DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DBOF.DBAA.LISTDEF.QR03211P,DISP=SHR
// ENDIF
//*
// IF ((ABEND) OR (P05.RC GT 4) OR (P07.RC GT 4)) THEN
//* TERM UTIL
//P08 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DSN=DBOF.DBAA.LCTL(QR032112),DISP=SHR
//* DISPLAY DATABASE
//*
//P09 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DSN=DBOF.DBAA.LCTL(QR032113),DISP=SHR
// ENDIF
}¢--- A540769.WK.JCL(QR78801P) cre=2015-01-29 mod=2015-01-29-13.36.21 A540769 ---
//QR78801P JOB (PD00,KE50,,SP00000000),
// 'REORG-DB2',
// MSGCLASS=T,
// TIME=1440,
// SCHENV=DP4G
//*MAIN CLASS=LOG
//********************************************************************
//* JCLPREP 11/05/2013 08:30:00 F965472
//********************************************************************
//*
//P00 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL 'DSN.SYSPRINT.QR78801P' NVSAM PURGE
DEL 'DP4G.DBAA.LISTDEF.QR78801P' NVSAM PURGE
IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//* OBJEKTE AUS LISTDEF AUFLÖSEN
//P02 EXEC PGM=DSNUTILB,
// PARM='DP4G,QR78801P.PREVIEW'
//STEPLIB DD DSN=DB2@.RZ4.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD DSN=DSN.SYSPRINT.QR78801P,
// DISP=(,CATLG)
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DP4G.DBAA.LISTDEF(OPTPREV),DISP=SHR
// DD DSN=DP4G.DBAA.LISTDEF(QR788011),DISP=SHR
// ENDIF
//*
// IF RC < 9 THEN
//* SYSPRINT AUF SYSOUT UMKOPIEREN
//P03 EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSUT1 DD DSN=DSN.SYSPRINT.QR78801P,DISP=SHR
//SYSUT2 DD SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* RTS FÜR TABLESPACES CHECKEN, OUTPUT ERSTELLEN
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ4.P0.USER.EXEC,DISP=SHR
//DDIN1 DD DSN=DSN.SYSPRINT.QR78801P,DISP=SHR
//DDIN2 DD DSN=DP4G.DBAA.LISTDEF(QR788011),DISP=SHR
//DDOUT1 DD DSN=DP4G.DBAA.LISTDEF.QR78801P,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD *
%CHECKRTS DP4G TS
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* REORG FÜR TABLESPACES AUSFÜHREN
//P05 EXEC PGM=DSNUTILB,
// PARM='DP4G,QR78801P.REORG'
//STEPLIB DD DSN=DB2@.RZ4.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DP4G.DBAA.LISTDEF.QR78801P,DISP=SHR
// ENDIF
//*
// IF RC < 5 THEN
//* RTS FÜR INDEXE CHECKEN, OUTPUT ERSTELLEN
//P06 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSEXEC DD DSN=TSO.RZ4.P0.USER.EXEC,DISP=SHR
//DDIN1 DD DSN=DSN.SYSPRINT.QR78801P,DISP=SHR
//DDIN2 DD DSN=DP4G.DBAA.LISTDEF(QR788011),DISP=SHR
//DDOUT1 DD DSN=DP4G.DBAA.LISTDEF.QR78801P,
// DISP=(MOD,CATLG,CATLG),
// MGMTCLAS=COM#E005,
// RECFM=FB,LRECL=80
//SYSTSIN DD *
%CHECKRTS DP4G IX
//SYSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* REORG FÜR INDEXE AUSFÜHREN
//P07 EXEC PGM=DSNUTILB,
// PARM='DP4G,QR78801P.REORG'
//STEPLIB DD DSN=DB2@.RZ4.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD DSN=DP4G.DBAA.LISTDEF.QR78801P,DISP=SHR
// ENDIF
//*
// IF ((ABEND) OR (P05.RC GT 4) OR (P07.RC GT 4)) THEN
//* TERM UTIL
//P08 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DSN=DP4G.DBAA.LCTL(QR788012),DISP=SHR
//* DISPLAY DATABASE
//*
//P09 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DSN=DP4G.DBAA.LCTL(QR788013),DISP=SHR
// ENDIF
}¢--- A540769.WK.JCL(QUICKFUN) cre= mod=-. -------------------------------------
//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
}¢--- A540769.WK.JCL(QXT0133P) cre=2006-04-18 mod=2008-11-24-17.25.15 F540769 ---
//QXT0133P JOB (PD00,KE50,,SP00000000),
// 'RLM-FILE-TRANS',
// MSGCLASS=E,
// REGION=99366K
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ4AKT.PERM.@007.JVA %%INCMEM JOBLRZ4P
//*MAIN CLASS=DBCP
//********************************************************************
//* JCLPREP 04/19/2006 10:34:31 A509191
//********************************************************************
//*
//P00 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL 'DBCP.LOGMAST.REPORT.OUT' SCR
IF MAXCC < 9 THEN SET MAXCC = 0
//*
// IF P00.RC = 0 THEN
//P01 EXEC PGM=IEFBR14
//DD1 DD DSN=DBCP.LOGMAST.REPORT.OUT,
// DISP=(,CATLG,DELETE),
// MGMTCLAS=COM#B091,STORCLAS=ANY,
// SPACE=(CYL,(5,1),RLSE),
// RECFM=FBA,LRECL=81,BLKSIZE=27945
// ENDIF
//*
// IF RC < 5 THEN
//P02 EXEC PGM=ALPMAIN,
// PARM='DBCP ,MSGLEVEL(2),ALPOPTS(ALP$OPTS)',
// REGION=0M
//STEPLIB DD DSN=DB2@.RZ4.P0.DSNLOAD,DISP=SHR
// DD DSN=DSN.BMC.RZ4.P0.RECOV.LOAD,DISP=SHR
//ALPPRINT DD SYSOUT=*
//SQLPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *,DLM=##
/* A251112.LOGSCAN */
/* DB2 LOGSCAN REVISION */
OPTION
FILTERREL AND EXECUTION MODE CURRENT
SORTOPTS
FILSZ NONE
HISTORY WRITE
WORKID A251112.LOGSCAN
DESC "DB2 LOGSCAN REVISION"
LOGSCAN
REPORT TYPE SUMMARY
ORDER BY PLAN NAME,
AUTH ID,
TABLE NAME
DATASET DBCP.LOGMAST.REPORT.OUT MOD
CYLINDERS SPACE(1,1) UNIT(SYSDA) RELEASE
FILSZ EST 50000 AVGRECLEN 225
DB2CATALOG NO
FROM DATE(-1) TIME(00.00.00.000000)
TO DATE(-0) TIME(00.00.00.000000)
WHERE
AUTH ID NOT LIKE 'S%'
AND AUTH ID <> 'BSDB2'
AND PLAN NAME <> 'DISTSERV'
AND TABLESPACE NAME <> 'DB2SAVE.XINFOLOG'
AND PLAN NAME NOT LIKE 'DQC%'
##
//SQLCODES DD DUMMY
// ENDIF
//*
// IF RC < 5 THEN
//P03 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPROC DD DSN=PCL.U0000.P0.RZ4AKT.PERM.@005.JPO,DISP=SHR
//REPORT DD DSN=DBCP.LOGMAST.REPORT.OUT,
// DISP=(OLD,DELETE,KEEP)
//LOGOUT DD DSN=DBCP.LOGMAST.REPORT.DATA,
// DISP=MOD
//SYSTSIN DD *
%Y4PLOGM1
// ENDIF
}¢--- A540769.WK.JCL(QXT0141P) cre=2006-05-05 mod=2006-06-06-15.03.04 F540769 ---
//QXT0141P JOB (PD00,KE50,,SP00000000),
// 'LOAD-INFO-TRANS',
// MSGCLASS=E
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ4AKT.PERM.@007.JVA %%INCMEM JOBLRZ4P
//*MAIN CLASS=DBCP
//********************************************************************
//* JCLPREP 05/08/2006 10:54:28 A965472
//********************************************************************
//*
//P02 EXEC PGM=IKJEFT01,
// PARM=('%DB2REVLO GET DBOL from DBOF DBOL DVBP DBII')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=TSO.RZ4.P0.PROD.EXEC,DISP=SHR
}¢--- A540769.WK.JCL(QZCDPUT) cre=2014-06-02 mod=2014-06-06-07.55.04 A540769 ---
$*(
set current sqlid = 'S100447';
alter tablespace CD03A1P A150A compress yes;
alter tablespace CD03A1P A152A compress yes;
commit
....
//A540769W JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//SEND EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,PARM=WSH
//SYSPROC DD DISP=SHR,DSN=A540769.WK.REXX
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//*UT DD SYSOUT=*
//SYSTSIN DD DUMMY
//WSH DD *
$*)
$#@
$=pkg=CMN.DIV.P0.DB2J.#000197
$=rz=RR2
if 1 then $@¢
call csmCopL $pkg".llb(qzcdPut)" ,
, $rz"/A540769.WK.llb"
call csmcopy $pkg".dbr(qzcdPut)", $rz"/A540769.WK.dbr"
$!
$;
$>$rz/intRdr
$@=¢
//A540769W JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//* bind
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DBRMLIB DD DISP=SHR,DSN=A540769.WK.DBR
//SYSTSIN DD *
DSN S(DBOF)
BIND PACKAGE(QZ) -
OWNER(CMNBATCH) -
QUALIFIER(OA1P) -
MEMBER(QZCDPUT) -
CURRENTDATA(NO) -
DEGREE(1) -
DYNAMICRULES(BIND) -
EXPLAIN(YES) -
FLAG(I) -
ISOLATION(CS) -
SQLERROR(NOPACKAGE) -
VALIDATE(BIND) - 00050800
ACTION(REPLACE) 00050900
$*(
//CURS152 EXEC PGM=QZCDPUT,PARM='E1' 00051000
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00052000
//SYSPRINT DD SYSOUT=* 00053000
//INTO152 EXEC PGM=QZCDPUT,PARM='F1' 00051000
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00052000
//SYSPRINT DD SYSOUT=* 00053000
$*)
//CURSCLPI EXEC PGM=QZCDPUT,PARM='P1' 00051000
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00052000
//SYSPRINT DD SYSOUT=* 00053000
//INTOCLPI EXEC PGM=QZCDPUT,PARM='Q1' 00051000
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00052000
//SYSPRINT DD SYSOUT=* 00053000
//INTOCLPI EXEC PGM=QZCDPUT,PARM='R1' 00051000
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00052000
//SYSPRINT DD SYSOUT=* 00053000
$!
$#out 20140606 07:52:20
$#out 20140606 07:51:18
$#out 20140606 07:49:52
$#out 20140606 07:44:27
$#out 20140604 16:08:47
$#out 20140604 15:27:39
}¢--- A540769.WK.JCL(QZCDPUTR) cre=2014-06-04 mod=2014-07-18-07.55.24 A540769 ---
//A540769S JOB (CP00,KE50),'DB2 reo',
// MSGCLASS=T,TIME=1440,SCHENV=DBOF,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//* ux utility generator reo
//* who RR2 DBOF A540769 2
//* 16.07.14 15:22:38 A540769S 09
//*
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBOF,'A540769S.UXUTIL'),
// REGION=0M
//DDL DD *
set current sqlid = 'S100447';
alter tablespace CD03A1P.A150A compress yes;
alter tablespace CD03A1P.A152A compress yes;
commit;
set current sqlid = 'S100447';
drop INDEX OA1$.ICD150A$1;
commit;
CREATE INDEX OA1$.ICD150A$1
ON OA1P.TCD150A1
(CD150001 ASC
,CD150002 ASC
,CD150003 ASC
,CD150005 ASC
,CD150006 ASC
,CD150011 ASC
)
not CLUSTER
DEFINE yes
COMPRESS NO
BUFFERPOOL BP3
CLOSE YES
DEFER yes
COPY NO
USING STOGROUP "GSMS "
PRIQTY -1
SECQTY -1
ERASE NO
FREEPAGE 10
PCTFREE 10
GBPCACHE CHANGED
PIECESIZE 2097152K;
commit;
//SYSPRINT DD SYSOUT=*
//*YSPRINT DD DSN=DSN.JOBRUN.A540769S.STEP1.#DT#,
//* DISP=(NEW,CATLG,CATLG),MGMTCLAS=BAT#NW,DSNTYPE=LARGE,
//* DCB=(RECFM=FB,LRECL=132,DSORG=PS),SPACE=(CYL,(1,1000))
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//INDUMMY DD DUMMY
//SYSIN DD *
LISTDEF TPLIST
INCLUDE TABLESPACE CD03A1P.A150A PARTLEVEL
INCLUDE TABLESPACE CD03A1P.A152A PARTLEVEL
---- reorg -------------------------------------------------------------
REORG TABLESPACE LIST TPLIST
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
-- Achtung mapping table zufällig gewählt|
MAPPINGTABLE S100447.MAPTAB09
DRAIN_WAIT 40
RETRY 20
RETRY_DELAY 180
MAXRO 40
DRAIN WRITERS
LONGLOG CONTINUE
DELAY 1200
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
}¢--- A540769.WK.JCL(QZCDPUT4) cre=2014-06-04 mod=2014-06-04-12.29.21 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
// SET PKG=CMN.DIV.P0.DB2J.#000197
//V3 EXEC PGM=QZCDPUT,PARM='A' 00051000
//STEPLIB DD DISP=SHR,DSN=&PKG..LLB 00052000
//SYSPRINT DD SYSOUT=* 00053000
}¢--- A540769.WK.JCL(QZDIT02) cre=2014-07-07 mod=2014-07-07-20.43.40 A540769 ---
$#@ 00190002
$=pgm=QZDIT02 00200002
$=pkg=CMN.DIV.P0.DB2J.#000197 00201002
$=rz=RR2 00210002
if 1 then $@¢ 00220002
CALL CSMCOPY $pkg".LLB("$pgm")" , 00230002
, $rz"/A540769.WK.llb" 00240002
CALL CSMCOPY $pkg".DBR("$pgm")", $rz"/A540769.WK.DBR" 00250002
$! 00260002
$; 00270002
$>$rz/intRdr 00280002
$@=¢ 00290002
//A540769W JOB (CP00,KE50),'DB2 REO', 00300002
// MSGCLASS=T,TIME=1440, 00310002
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00320002
//*MAIN CLASS=LOG 00330002
//* bind 00340002
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=30 00350002
//SYSTSPRT DD SYSOUT=* 00360002
//SYSPRINT DD SYSOUT=* 00370002
//DBRMLIB DD DISP=SHR,DSN=A540769.WK.DBR 00380002
//SYSTSIN DD * 00390002
DSN S(DBOF) 00400002
BIND PACKAGE(QZ) - 00410002
OWNER(CMNBATCH) - 00420002
QUALIFIER(OA1P) - 00430002
MEMBER($pgm) - 00440002
CURRENTDATA(NO) - 00450002
DEGREE(1) - 00460002
DYNAMICRULES(BIND) - 00470002
EXPLAIN(YES) - 00480002
FLAG(I) - 00490002
ISOLATION(CS) - 00500002
SQLERROR(NOPACKAGE) - 00510002
VALIDATE(BIND) - 00520002
ACTION(REPLACE) 00530002
//ORIG EXEC PGM=$pgm,PARM='O' 00550003
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00560002
//SYSPRINT DD SYSOUT=* 00570002
//FETFIR EXEC PGM=$pgm,PARM='F' 00570103
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00570203
//SYSPRINT DD SYSOUT=* 00570303
//ORIGH EXEC PGM=$pgm,PARM='hO' 00570403
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00570503
//SYSPRINT DD SYSOUT=* 00570603
//FETFIRH EXEC PGM=$pgm,PARM='hF' 00570703
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00570803
//SYSPRINT DD SYSOUT=* 00570903
$! 00710002
$#out 20140707 20:24:11 00710103
$#out 20140707 20:21:16 00710203
$#out 20140707 20:16:50 00710303
$#out 20140707 20:15:06 00710403
$#out 20140707 20:14:47 00710503
}¢--- A540769.WK.JCL(QZNZGFM) cre=2014-07-22 mod=2014-07-28-14.24.40 A540769 ---
$#@ 00190001
$=mbr= QZNZGFM 00191001
$=pkg=CMN.DIV.P0.DB2J.#000223 00200005
$=rz=RZ2 00210005
$=dbSys=DBOF 00211005
if 1 then $@¢ 00220001
call csmCopy $pkg".LLB("$mbr")" , 00230001
, $rz"/A540769.WK.llb" 00240001
call csmCopy $pkg".DBR("$mbr")", $rz"/A540769.WK.DBR" 00250001
$! 00260001
$; 00270001
$>$rz/intRdr 00280001
$@=¢ 00290001
//A540769W JOB (CP00,KE50),'DB2 REO', 00300001
// MSGCLASS=T,TIME=1440, 00310001
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00320001
//*MAIN CLASS=LOG 00330001
//* bind 00340001
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=30 00350001
//SYSTSPRT DD SYSOUT=* 00360001
//SYSPRINT DD SYSOUT=* 00370001
//DBRMLIB DD DISP=SHR,DSN=A540769.WK.DBR 00380001
//SYSTSIN DD * 00390001
DSN S($dbSys) 00400005
BIND PACKAGE(QZ) - 00410001
OWNER(CMNBATCH) - 00420001
QUALIFIER(OA1P) - 00430001
MEMBER($mbr) - 00440001
CURRENTDATA(NO) - 00450001
DEGREE(1) - 00460001
DYNAMICRULES(BIND) - 00470001
EXPLAIN(YES) - 00480001
FLAG(I) - 00490001
ISOLATION(CS) - 00500001
SQLERROR(NOPACKAGE) - 00510001
VALIDATE(BIND) - 00520001
ACTION(REPLACE) 00530001
//STA EXEC PGM=$mbr,PARM='S' 00620005
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00630001
//SYSPRINT DD SYSOUT=* 00640001
//MAR EXEC PGM=$mbr,PARM='M' 00640105
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00640205
//SYSPRINT DD SYSOUT=* 00640305
//CON EXEC PGM=$mbr,PARM='C' 00641005
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00642005
//SYSPRINT DD SYSOUT=* 00643005
//DYN EXEC PGM=$mbr,PARM='D' 00650005
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00660004
//SYSPRINT DD SYSOUT=* 00670004
//NUL EXEC PGM=$mbr,PARM='N' 00680005
//STEPLIB DD DISP=SHR,DSN=A540769.WK.LLB 00690005
//SYSPRINT DD SYSOUT=* 00700005
$! 00710001
$#out 20140728 11:24:07 00710105
$#out 20140728 11:20:07 00710205
$#out 20140728 11:04:49 00710305
}¢--- A540769.WK.JCL(QZPLB) cre=2014-04-29 mod=2015-02-27-13.44.56 A540769 -----
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
// SET PKG=CMN.DIV.P0.DB2J.#000237 00041003
//E01 EXEC PGM=IKJEFT01,DYNAMNBR=30 00049000
//SYSTSPRT DD SYSOUT=* 00049100
//DBRMLIB DD DISP=SHR,DSN=&PKG..DBR 00049200
//SYSTSIN DD * 00049500
DSN S(DP4G) 00049600
BIND PACKAGE(QZ) - 00049700
OWNER(CMNBATCH) - 00049800
QUALIFIER(OA1A) - 00049900
MEMBER(QZPLB) - 00050000
CURRENTDATA(NO) - 00050100
DEGREE(1) - 00050200
DYNAMICRULES(BIND) - 00050300
EXPLAIN(YES) - 00050400
FLAG(I) - 00050500
ISOLATION(CS) - 00050600
SQLERROR(NOPACKAGE) - 00050700
VALIDATE(BIND) - 00050800
ACTION(REPLACE) 00050900
// 00051003
//V3 EXEC PGM=QZPLB,PARM='A3' 00051101
//STEPLIB DD DISP=SHR,DSN=&PKG..LLB 00052001
//SYSPRINT DD SYSOUT=* 00053001
//V2 EXEC PGM=QZPLB,PARM='A2' 00080001
//STEPLIB DD DISP=SHR,DSN=&PKG..LLB 00090001
//SYSPRINT DD SYSOUT=* 00100001
//V1 EXEC PGM=QZPLB,PARM='A1' 00140001
//STEPLIB DD DISP=SHR,DSN=&PKG..LLB 00150001
//SYSPRINT DD SYSOUT=* 00160001
}¢--- A540769.WK.JCL(QZPLBREB) cre=2015-03-09 mod=2015-03-09-06.44.46 A540769 ---
//A540769W JOB (CP00,KE50),'DB2 REO', 00010001
// MSGCLASS=T,TIME=1440, 00020001
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030001
//*MAIN CLASS=LOG 00040001
// SET PKG=CMN.DIV.P0.DB2J.#000237 00041001
//E01 EXEC PGM=IKJEFT01,DYNAMNBR=30 00042001
//SYSTSPRT DD SYSOUT=* 00043001
//DBRMLIB DD DISP=SHR,DSN=&PKG..DBR 00044001
//SYSTSIN DD * 00045001
DSN S(DP4G) 00046001
REBIND PACKAGE(QZ.QZPLB.(DB2J000237)) - 00047001
EXPLAIN(ONLY) - 00048001
APREUSE(ERROR) - 00049001
APCOMPARE(WARN) 00050001
// 00060001
APREUSE(ERROR) - 00070001
}¢--- A540769.WK.JCL(QZRZ4) cre=2014-07-22 mod=2014-07-22-15.04.44 A540769 -----
//A540769W JOB (CP00,KE50),'DB2 REO', 00010000
// MSGCLASS=T,TIME=1440, 00020000
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030000
//*MAIN CLASS=LOG 00040000
// SET PKG=CMN.DIV.P0.DB2J.#000197 00041000
//E01 EXEC PGM=IEFBR14,DYNAMNBR=30 00049000
//*01 EXEC PGM=IKJEFT01,DYNAMNBR=30 00049100
//SYSTSPRT DD SYSOUT=* 00049200
//DBRMLIB DD DISP=SHR,DSN=&PKG..DBR 00049300
//SYSTSIN DD * 00049500
DSN S(DP4G) 00049600
BIND PACKAGE(QZ) - 00049700
OWNER(CMNBATCH) - 00049800
QUALIFIER(OA1A) - 00049900
MEMBER(QZNZGFM) - 00050000
CURRENTDATA(NO) - 00050100
DEGREE(1) - 00050200
DYNAMICRULES(BIND) - 00050300
EXPLAIN(YES) - 00050400
FLAG(I) - 00050500
ISOLATION(CS) - 00050600
SQLERROR(NOPACKAGE) - 00050700
VALIDATE(BIND) - 00050800
ACTION(REPLACE) 00050900
//V3 EXEC PGM=QZNZGFM,PARM='Q3' 00051000
//STEPLIB DD DISP=SHR,DSN=&PKG..LLB 00052000
//SYSPRINT DD SYSOUT=* 00053000
}¢--- A540769.WK.JCL(QZT00) cre=2015-01-05 mod=2016-08-12-17.40.10 A540769 -----
$#:
$*( wsh script fuer ControlSummary Job QZT00??P
|| Version 2015: ein jobName pro dbSys,
lctl in dsn.db2.lctl mit PlexChar in member ||
P02: tso, z.B. um Besenwagen zu starten
P03: dsnTep2: controlSummary SQL
$*)
rz = RZ4
dbSys = DP4G
rzP =- iiRz2P($rz)
dbC =- iidbSys2C($dbSys)
job = QZT000${dbC}P
l7 = QZT00$rzP$dbC
$;
$>. fEdit() $** ('A540769.tmp.tecsv('$-l7'P) ::f')
@=/jcl/
//$job JOB (PD00,KE50,,SP00000000),'DB2 tecSv',
// MSGCLASS=T,CLASS=M1,
// SCHENV=DB2
//*
//* ControlSummary job $job fuer $rz/$dbSys, lctl=$l7*
//*
//*------- tso, z.B. um Besenwagen zu starten -----------------------
//P02 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSEXEC DD DSN=DSN.DB2.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDOUT DD DSN=DSN.ABLF.TECSV.$dbSys.CONSUM,
// DISP=(MOD,DELETE)
//DDENV DD *
$rz $rzP $dbSys CONSUM $job $l7
//SYSTSIN DD DISP=SHR,DSN=DSN.DB2.LCTL(${l7}0)
//*
// IF (P02.RC = 0 ) THEN
//*
//*------- dsnTep2: controlSummary SQL ------------------------------
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DSN=*.P02.DDOUT,
// DISP=(,CATLG),
// MGMTCLAS=BAT#AT,
// SPACE=(CYL,(15,75),RLSE)
//SYSTSIN DD *
DSN SYSTEM($dbSys)
RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
//SYSIN DD DISP=SHR,DSN=DSN.DB2.LCTL(${l7}1)
// ENDIF
$/jcl/
$#out 20160812 17:37:31
$#out 20160812 17:37:07
$#out 20160808 11:57:05
$#out 20160805 21:48:39
$#out 20160425 17:11:12
$#out 20160417 11:58:56
$#out 20160417 11:58:22
$#out 20150113 11:55:50
$#out 20150113 11:55:40
$#out 20150112 09:35:37
$#out 20150112 09:35:19
$#out 20150112 09:34:41
$#out 20150105 10:58:22
$#out 20150105 10:40:45
$#out 20150105 10:06:48
}¢--- A540769.WK.JCL(QZT01) cre=2014-11-25 mod=2014-11-25-15.48.36 A540769 -----
$#:
$** wsh script fuer CopyArchivierungs Job QZT10??P
rz = RQ2
dbSys = DBOF
ctrlM = 1
usePlex = 1 $** 1=plex naming convention, 0=rz
rzC =- iiRz2C($rz)
rzP =- iiRz2P($rz)
dbC =- iidbSys2C($dbSys)
m7 = QZT10$rzP$dbC
j7 =- if($usePlex, QZT100$dbC, $m7)
$;
>. fEdit('dsn.source.tecSv.jcl'$-usePlex'('$-m7'P) ::f')
@/jcl/
$= rzAkt =- if($rz=RZ1 | $rz = RZ4, $rz, RZ2)'AKT'
if $ctrlM then $@¢
$=cJob= %%JOBNAME
$=cSpc2= %%#SPC2
$=cDbSys = %%SUBSYS
$=cRZ = RZ%%RZ
$! else $@¢
$=cJob=${j7}P
$=cSpc2= (CYL,(15,75),RLSE)
$=cDbSys = $dbSys
$=cRZ = $rz
$!
$@=¢
//${j7}P JOB (PD00,KE50,,SP00000000),
// 'DB2 CMD',
// MSGCLASS=E,
// SCHENV=$dbSys
$!
if $ctrlM then $@=¢
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA %%INCMEM JOBLRZ2P
//*MAIN CLASS=P2
//* %%SET %%SUBSYS = $dbSys
$! else $@=¢
$!
$@=¢
//*
//* Copy Archivierung fuer $rz/$dbSys
//*
//*------ allocate DSNs + tso fuer Spezielles -----------------------
//P02 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSEXEC DD DSN=DSN.DB2.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDENV DD *
$rz $dbSys COPYARC ${j7}P
//SYSTSIN DD DISP=SHR,DSN=$dbSys.DBAA.LCTL(${m7}0)
//DDOUT DD DSN=DSN.ABLF.TECSV.$dbSys.COPYARC.#DT#,
// DISP=(NEW,CATLG),MGMTCLAS=COM#E012
//TST DD DSN=DSN.$cJob.TST,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=$cSpc2,
// RECFM=VB
//COPIES DD DSN=DSN.$cJob.COPIES,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=$cSpc2,
// RECFM=VB
//ALTER DD DSN=DSN.$cJob.ALTER,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=$cSpc2,
// RECFM=FB,LRECL=80
//ALOUT DD DSN=DSN.$cJob.ALOUT,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=$cSpc2,
// RECFM=VBA,LRECL=121
//*
// IF P02.RC = 0 THEN
//*
//*------ select from sysIbm.sysCopy ---------------------------------
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=200
//SYSTSIN DD *
DSN SYSTEM($cDbSys)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSIN DD DSN=$cDbSys.DBAA.LCTL(${m7}1),DISP=SHR
//SYSREC00 DD DSN=DSN.$cJob.TST,DISP=OLD
//SYSREC01 DD DSN=DSN.$cJob.COPIES,DISP=OLD
// ENDIF
//*
// IF P03.RC <= 4 THEN
//*
//*------ generate alter statements ----------------------------------
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC $cDbSys GEN')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=DSN.DB2.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//COPIES DD DSN=*.P02.COPIES,DISP=SHR
//ALTER DD DSN=*.P02.ALTER,DISP=OLD
// ENDIF
//*
// IF P04.RC = 0 THEN
//*
//*------ execute alter statements -----------------------------------
//P05 EXEC PGM=IDCAMS
//SYSPRINT DD DSN=*.P02.ALOUT,DISP=OLD
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD DSN=*.P02.ALTER,DISP=SHR
// ENDIF
//*
// IF P05.ABEND OR P05.RUN THEN
//*
//*------ copy sysPrint to sysOut ------------------------------------
//P06 EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=*.P02.ALOUT,DISP=SHR
//SYSUT2 DD SYSOUT=*
// ENDIF
//*
// IF P05.RUN THEN
//*
//*------ check alter's and update table -----------------------------
//P07 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC $cDbSys check')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=DSN.DB2.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//ALOUT DD DSN=*.P02.ALOUT,DISP=SHR
// ENDIF
$!
$/jcl/
$#out 20141125 13:40:28
$#out 20141125 13:39:46
$#out 20141125 13:36:55
$#out 20141125 13:36:46
$#out 20141125 13:36:38
$#out 20141125 13:36:30
$#out 20141125 13:33:35
$#out 20141125 13:32:22
}¢--- A540769.WK.JCL(QZT10) cre=2014-04-23 mod=2016-08-05-21.48.28 A540769 -----
$#:
$** wsh script fuer CopyArchivierungs Job QZT10??P
rz = RZX
dbSys = DE0G
ctrlM = 0
rzC =- iiRz2C($rz)
dbC =- iidbSys2C($dbSys)
j7 = QZT10$rzC$dbC
$;
$** $>. fEdit('dsn.source.tecSv.jcl('$-j7'P) ::f')
>. fEdit()
@/jcl/
$= rzAkt =- if($rz=RZ1 | $rz = RZ4, $rz, RZ2)'AKT'
if $ctrlM then $@¢
$=cJob= %%JOBNAME
$=cSpc2= %%#SPC2
$=cDbSys = %%SUBSYS
$=cRZ = RZ%%RZ
$! else $@¢
$=cJob=${j7}P
$=cSpc2= (CYL,(15,75),RLSE)
$=cDbSys = $dbSys
$=cRZ = $rz
$!
$@=¢
//${j7}P JOB (PD00,KE50,,SP00000000),'db2 tecSv copyArc',
// MSGCLASS=T,CLASS=M1,
// SCHENV=$dbSys
$!
$@=¢
//*
//* Copy Archivierung fuer $rz/$dbSys
//*
//*------ allocate DSNs + tso fuer Spezielles -----------------------
//P02 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSEXEC DD DSN=DSN.DB2.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDENV DD *
$rz $dbSys COPYARC ${j7}P
//SYSTSIN DD DISP=SHR,DSN=$dbSys.DBAA.LCTL(${j7}0)
//DDOUT DD DSN=DSN.ABLF.TECSV.$dbSys.COPYARC.#DT#,
// DISP=(NEW,CATLG),MGMTCLAS=COM#E012
//TST DD DSN=DSN.$cJob.TST,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=$cSpc2,
// RECFM=VB
//COPIES DD DSN=DSN.$cJob.COPIES,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=$cSpc2,
// RECFM=VB
//ALTER DD DSN=DSN.$cJob.ALTER,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=$cSpc2,
// RECFM=FB,LRECL=80
//ALOUT DD DSN=DSN.$cJob.ALOUT,
// DISP=(MOD,CATLG),
// MGMTCLAS=COM#A092,
// SPACE=$cSpc2,
// RECFM=VBA,LRECL=121
//*
// IF P02.RC = 0 THEN
//*
//*------ select from sysIbm.sysCopy ---------------------------------
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=200
//SYSTSIN DD *
DSN SYSTEM($cDbSys)
RUN PROGRAM(DSNTIAUL) PARMS('SQL')
END
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPUNCH DD SYSOUT=*
//SYSIN DD DSN=$cDbSys.DBAA.LCTL(${j7}1),DISP=SHR
//SYSREC00 DD DSN=DSN.$cJob.TST,DISP=OLD
//SYSREC01 DD DSN=DSN.$cJob.COPIES,DISP=OLD
// ENDIF
//*
// IF P03.RC <= 4 THEN
//*
//*------ generate alter statements ----------------------------------
//P04 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC $cDbSys GEN')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=DSN.DB2.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//COPIES DD DSN=*.P02.COPIES,DISP=SHR
//ALTER DD DSN=*.P02.ALTER,DISP=OLD
// ENDIF
//*
// IF P04.RC = 0 THEN
//*
//*------ execute alter statements -----------------------------------
//P05 EXEC PGM=IDCAMS
//SYSPRINT DD DSN=*.P02.ALOUT,DISP=OLD
//CEEDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD DSN=*.P02.ALTER,DISP=SHR
// ENDIF
//*
// IF P05.ABEND OR P05.RUN THEN
//*
//*------ copy sysPrint to sysOut ------------------------------------
//P06 EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=*.P02.ALOUT,DISP=SHR
//SYSUT2 DD SYSOUT=*
// ENDIF
//*
// IF P05.RUN THEN
//*
//*------ check alter's and update table -----------------------------
//P07 EXEC PGM=IKJEFT01,
// DYNAMNBR=200,
// PARM=('%DB2COARC $cDbSys check')
//SYSIN DD DUMMY
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSPROC DD DSN=DSN.DB2.EXEC,DISP=SHR
//TST DD DSN=*.P02.TST,DISP=SHR
//ALOUT DD DSN=*.P02.ALOUT,DISP=SHR
// ENDIF
$!
$/jcl/
$#out 20160805 21:48:22
$#out 20150429 09:50:48
$#out 20140508 09:31:11
}¢--- A540769.WK.JCL(QZT31L) cre=2015-10-19 mod=2015-10-19-10.33.34 A540769 ----
$#=
$******************?????????
$>. fSub()
$=rz=RZX
$=dbSys=DPXG
$=nowM=- f('%t S')
$=now =- f('%tSs', $nowM)
$=ab=gbGr
$=ablfP=DSN.ABLF.GBGR.$dbSys
$=ablfRz=DSN.ABLF.GBGR.$dbSys.$rz
$************?????????????)
//QZT3100P JOB (CP00,KE50),'DB2 MVEXT',
// MSGCLASS=E,TIME=1440,CLASS=M1,
// REGION=0M,SCHENV=DB2
//*MAIN CLASS=P2
$@¢
if $rz = sysvar(sysnode) then $@¢
$= csm = $''
$= rzAblf = $ablfP
$! else $@¢
$= csm = SUBSYS=(CSM,'SYSTEM=$rz'),
$= rzAblf = $rz/$ablfP
$!
$=tb=OA1P.TQZ006GBGRTSSTATS
$!
//*
//* db2 gbGrenze ablauf $ab from $rz/$dbSys
//* load into $tb
//* generated by abub skels(QZT31L) at $now
//*
//* 19. 2.15 load Columns aus Punchfile holen, v11 Kolonnen
$*( history
//* 12.12.14 elar xb: nur partition die seit 1.12.14 noch wachsen
//* 25. 9.14 rz2/dvbp XB% bis ZS nov14 excluded
$*)
//* ------ load $rz/$dbSys into $tb part 1 mit ?/? (default)
//LOADTSS EXEC PGM=DSNUTILB,
// PARM=(DP4G,'QZT3100P.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SQL DD DSN=$ablfRz.SQL,
// DISP=(MOD,DELETE)
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//TSSTATS DD DISP=SHR,$csm
// DSN=$ablfP.TSSTATS
//SYSIN DD *
LOAD DATA LOG NO
WORKDDN(TSYUTS,TSOUTS)
SORTKEYS
SORTDEVT DISK
MAPDDN TMAPD ERRDDN TERRD
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
INTO TABLE $tb
PART 1 INDDN TSSTATS RESUME NO REPLACE COPYDDN(TCOPYD)
(
$@¢ call loadCols $<$rzAblf.TSPUNCH $!
)
//* ------ insert state='d' rows for newly deleted partitions
//LOADTSD EXEC PGM=DSNUTILB,
// PARM=(DP4G,'QZT3100P.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
insert into $tb
(state, loadTs, rz, dbSys, dbName, name, partition, instance
, tsType, tsTy, pgSize, segSize
, parts, maxParts, dsSize, dsGb, limGb, limPart
, obid, clone, tsInst, tbCr, tb, tbTy, tbObId
, dbid, psid, ibmReqD
, updateStatsTime)
with a as
(
select rz, dbSys, dbName, name
, partition, instance, max(loadTs) loadTs
from $tb a
where rz='$rz' and dbSys = '$dbSys'
group by rz, dbSys, dbName, name, partition, instance
)
, b as
(
select b.*
from $tb b join a
on b.rz = a.rz
and b.dbSys = a.dbSys
and b.dbName = a.dbName
and b.Name = a.Name
and b.partition = a.partition
and b.instance = a.instance
and b.loadTS = a.loadTs
)
select 'd', '$nowM'
, rz, dbSys, dbName, name, partition, instance
, tsType, tsTy, pgSize, segSize
, parts, maxParts, dsSize, dsGb, limGb, limPart
, obid, clone, tsInst, tbCr, tb, tbTy, tbObId
, dbid, psid, ibmReqD
, (select max(updateStatsTime)
from $tb n
where n.rz = '?' and n.dbSys = '?'
)
from b
where state <> 'd'
and not exists (select 1
from $tb n
where n.rz = '?' and n.dbSys = '?'
and n.dbName = b.dbName
and n.Name = b.Name
and n.partition = b.partition
and n.instance = b.instance
)
ENDEXEC
//* ------ insert state='a' rows for updated new partitions
//LOADTSI EXEC PGM=DSNUTILB,
// PARM=(DP4G,'QZT3100P.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
insert into $tb
select 'a' STATE
, '$rz' RZ
, '$dbSys' DBSYS
, '$nowM' LOADTS
, TSTYPE
, TSTY
, PGSIZE
, SEGSIZE
, PARTS
, MAXPARTS
, DSSIZE
, DSGB
, LIMGB
, LIMPART
, OBID
, CLONE
, TSINST
, TBCR
, TB
, TBTY
, TBOBID
, UPDATESTATSTIME
, NACTIVE
, NPAGES
, EXTENTS
, LOADRLASTTIME
, REORGLASTTIME
, REORGINSERTS
, REORGDELETES
, REORGUPDATES
, REORGUNCLUSTINS
, REORGDISORGLOB
, REORGMASSDELETE
, REORGNEARINDREF
, REORGFARINDREF
, STATSLASTTIME
, STATSINSERTS
, STATSDELETES
, STATSUPDATES
, STATSMASSDELETE
, COPYLASTTIME
, COPYUPDATEDPAGES
, COPYCHANGES
, COPYUPDATELRSN
, COPYUPDATETIME
, IBMREQD
, DBID
, PSID
, PARTITION
, INSTANCE
, SPACE
, TOTALROWS
, DATASIZE
, UNCOMPRESSEDDATASIZE
, DBNAME
, NAME
, REORGCLUSTERSENS
, REORGSCANACCESS
, REORGHASHACCESS
, HASHLASTUSED
, DRIVETYPE
, LPFACILITY
, STATS01
, UPDATESIZE
, LASTDATACHANGE
from $tb n
where n.rz = '?' and n.dbSys = '?'
and updatestatsTime <> value( ( select updateStatsTime
from $tb a
where a.rz='$rz' and a.dbSys = '$dbSys'
and n.dbName = a.dbName
and n.name = a.name
and n.partition = a.partition
and n.instance = a.instance
order by loadTs desc
fetch first 1 row only
)
, '1111-11-11-11.11.11')
ENDEXEC
// IF LOADTSS.RUN AND LOADTSD.RUN AND LOADTSI.RUN
// AND (RC=0 OR RC=4) THEN
//DELTSS EXEC PGM=IEFBR14
//DEL DD DISP=(OLD,DELETE),$csm
// DSN=$ablfP.TSSTATS
// ENDIF
$=tb=OA1P.TQZ007GBGRIXSTATS
//* ------ load $rz/$dbSys into $tb
//LOADIXS EXEC PGM=DSNUTILB,
// PARM=(DP4G,'QZT3100P.LOAD')
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//IXSTATS DD DISP=SHR,$csm
// DSN=$ablfP.IXSTATS
//SYSIN DD *
LOAD DATA LOG NO
WORKDDN(TSYUTS,TSOUTS)
SORTKEYS
SORTDEVT DISK
MAPDDN TMAPD ERRDDN TERRD
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
INTO TABLE $tb
PART 1 INDDN IXSTATS RESUME NO REPLACE COPYDDN(TCOPYD)
(
$@¢ call loadCols $<$rzAblf.IXPUNCH $!
)
//LOADIXD EXEC PGM=DSNUTILB,
// PARM=(DP4G,'QZT3100P.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
insert into $tb
( state, loadTs, rz, dbSys
, indexType, compress, ixParts, ixPgSz
, pieceSize, pieceGB, limGB
, tbCreator, tbName
, ts, tsTy, tsParts, tsClone, tsInst, tsDsSize, tsDsGb
, tsLimGb, tsLimPart, tsPgSz
, dbName, indexSpace, creator, name, partition, instance
, ibmReqD, dbid, isobid, psid
, updateStatsTime)
with a as
(
select rz, dbSys, dbName, ts, indexSpace
, partition, instance, max(loadTs) loadTs
from $tb a
where rz='$rz' and dbSys = '$dbSys'
group by rz, dbSys, dbName, ts, indexSpace, partition, instance
)
, b as
(
select b.*
from $tb b join a
on b.rz = a.rz
and b.dbSys = a.dbSys
and b.dbName = a.dbName
and b.ts = a.ts
and b.indexSpace= a.indexSpace
and b.partition = a.partition
and b.instance = a.instance
and b.loadTS = a.loadTs
)
select 'd', '$nowM', rz, dbSys
, indexType, compress, ixParts, ixPgSz
, pieceSize, pieceGB, limGB
, tbCreator, tbName
, ts, tsTy, tsParts, tsClone, tsInst, tsDsSize, tsDsGb
, tsLimGb, tsLimPart, tsPgSz
, dbName, indexSpace, creator, name, partition, instance
, ibmReqD, dbid, isobid, psid
, (select max(updateStatsTime)
from $tb n
where n.rz = '?' and n.dbSys = '?'
)
from b
where state <> 'd'
and not exists (select 1
from $tb n
where n.rz = '?' and n.dbSys = '?'
and n.dbName = b.dbName
and n.ts = b.ts
and n.indexSpace= b.indexSpace
and n.partition = b.partition
and n.instance = b.instance
)
ENDEXEC
//LOADIXI EXEC PGM=DSNUTILB,
// PARM=(DP4G,'QZT3100P.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
insert into $tb
select 'a' STATE
, '$rz' RZ
, '$dbSys' DBSYS
, '$nowM' LOADTS
, INDEXTYPE
, COMPRESS
, IXPARTS
, IXPGSZ
, PIECESIZE
, PIECEGB
, LIMGB
, TBCREATOR
, TBNAME
, TS
, TSTY
, TSPARTS
, TSCLONE
, TSINST
, TSDSSIZE
, TSDSGB
, TSLimGb
, TSLimPart
, TSPGSZ
, UPDATESTATSTIME
, NLEVELS
, NPAGES
, NLEAF
, NACTIVE
, SPACE
, EXTENTS
, LOADRLASTTIME
, REBUILDLASTTIME
, REORGLASTTIME
, REORGINSERTS
, REORGDELETES
, REORGAPPENDINSERT
, REORGPSEUDODELETES
, REORGMASSDELETE
, REORGLEAFNEAR
, REORGLEAFFAR
, REORGNUMLEVELS
, STATSLASTTIME
, STATSINSERTS
, STATSDELETES
, STATSMASSDELETE
, COPYLASTTIME
, COPYUPDATEDPAGES
, COPYCHANGES
, COPYUPDATELRSN
, COPYUPDATETIME
, LASTUSED
, IBMREQD
, DBID
, ISOBID
, PSID
, PARTITION
, INSTANCE
, TOTALENTRIES
, DBNAME
, NAME
, CREATOR
, INDEXSPACE
, REORGINDEXACCESS
, DRIVETYPE
, STATS101
from $tb n
where n.rz = '?' and n.dbSys = '?'
and updatestatsTime <> value(( select timestamp(substr(max(
char(loadTs) || char(updateStatsTime)), 27))
from $tb a
where a.rz='$rz' and a.dbSys = '$dbSys'
and n.dbName = a.dbName
and n.ts = a.ts
and n.indexSpace= a.indexSpace
and n.partition = a.partition
and n.instance = a.instance
)
, '1111-11-11-11.11.11')
ENDEXEC
// IF LOADIXS.RUN AND LOADIXI.RUN AND (RC=0 OR RC=4) THEN
//DELIXS EXEC PGM=IEFBR14
//DEL DD DISP=(OLD,DELETE),$csm
// DSN=$ablfP.IXSTATS
// ENDIF
// IF RC = 0 OR RC = 4 THEN
//SQL EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN DD *
DSN SYSTEM(DP4G)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DSN=*.LOADTSS.SQL,
// DISP=(,CATLG),
// MGMTCLAS=BAT#AT,
// SPACE=(CYL,(15,75),RLSE)
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
-- GigaByte Grenze
-- for $rz/$dbSys
-- at $now
-- source DSN.ABUB.A.SKELS(QZT31L)
--************************************************************
--$'$$' GigaByte Grenze überschrittene Schwellwerte:
--************************************************************
select substr(db, 1, 8) "db"
, substr(ts, 1, 8) "ts"
, substr(tsTy
|| case when tsClone = 'N' and inst = 1 and tsInst = 1 then ''
else case when inst=tsInst then 'b' else 'c' end
|| inst end, 1, 3) "yci"
, substr(ix, max(1, length(ix) - 7), 8) "...index"
, substr(case when part = 0 and tsParts = 0 then ''
else case when part is null then ' ---'
when part = 0 and ix <> ' --ts--' then ' npi'
when part = 0 and tsTy = 'G' then ' pbg'
when part = 0 then ' ???'
else right(' ' || part, 4)
end
||'/'|| value(right(' '|| tsParts, 4),'----')
end, 1, 9) "part/ tot"
, substr(right(case when actGB < 1000
then ' ' || dec(round(actGb, 2), 6, 2)
else ' ' || int(round(actGb, 0))
end, 7), 1, 7) "usedGB"
, substr(right(case when limGb/100*schwelle < 1000
then ' ' || dec(round(limGb/100*schwelle, 2), 6, 2)
else ' ' || int(round(limGb/100*schwelle, 0))
end, 7), 1, 7) "schwGB"
, substr(right(' ' || schwelle, 5), 1, 5) "schw%"
, substr(right(' ' || int(round(limGb)), 6), 1, 6) "limGB"
, date(updStats) "lastUpdate"
, substr(schwinfo, 23, 18) "schwellwert key"
from OA1P.vQZ006GbGrenze g
where rz = '$rz' and dbSys = '$dbSys'
and db <> 'DSNDB01' -- directory ist anders
and actGb > real(limGb / 100 * schwelle)
$@ if $dbSys = 'DVBP' then $@=¢
-- elar xb: nur partition die seit 1.12.14 noch wachsen
and ( db not like 'XB%'
or (updStats >= '2015-02-20-00.00.00'
and (nActive, nPages, REORGINSERTS
, space, totalRows, dataSize)
not in ( select z.nActive, z.nPages, z.REORGINSERTS
, z.space, z.totalRows, z.dataSize
from oa1p.tqz006GBGRTSSTATS z
where g.rz = z.rz
and g.dbSys = z.dbSys
and g.DB = z.DBNAME
and g.ts = z.NAME
and g.PART = z.PARTITION
and g.INST = z.INSTANCE
and z.loadTs < '2015-02-20-00.00.00'
order by z.loadTs desc
fetch first 1 row only
) ) )
$!
order by db, ts, inst, ix, part
;
--
-- db = Datenbank
-- ts = Tablespace
-- yci = ts type oder s=Segmented,i=Simple p=PartitionedClassic,
-- clone und Instance (falls geKlont)
-- part/ tot = betroffene PartitionsNummer / Total Partitonen des ts
-- ...index = index oder --ts--
-- usedGB = aktuelle benutzter Platz in GB
-- schwGB = Schwellwert in GB
-- schw% = Schwellwert in Prozent der Limite
-- limGB = physische Limite in GB
-- lastUpdate = letzter update aus RealTimeStats
-- Schwellwert key = key des Schwellwerts in oa1p.tqz008GbGrSchwelle
// ENDIF
}¢--- A540769.WK.JCL(QZT83) cre=2015-10-02 mod=2015-10-02-21.19.20 A540769 -----
//QZT8300P JOB (CP00,KE50),'DB2 REO', 00010001
// MSGCLASS=T,TIME=1440, 00020001
// NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2 00030001
//*MAIN CLASS=LOG 00040001
//L1 EXEC PGM=DSNUTILB, 00050001
// PARM=(DP4G,'LOA#DELIMITER') 00060001
//DSSPRINT DD SYSOUT=* 00070001
//SYSPRINT DD SYSOUT=* 00080001
//SYSUDUMP DD SYSOUT=* 00090001
//UTPRINT DD SYSOUT=* 00100001
//SYSOUT DD SYSOUT=* 00110001
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR 00120001
//IN DD DISP=SHR,SUBSYS=(CSM,'SYSTEM=RZ2'), 00130001
// DSN=A540769.TMP.LE.RZ2.TADM60A1.D15275.T211751 00140002
//SYSIN DD * 00150001
EXEC SQL 00160001
DELETE FROM OA1P.TQZ060TIMEOUT WHERE RZ = '?' 00170001
ENDEXEC 00180001
LOAD DATA RESUME YES INDDN IN LOG YES 00190001
SHRLEVEL CHANGE 00200001
WORKDDN(TSYUTS,TSOUTS) 00210001
FORMAT DELIMITED COLDEL ',' 00220001
INTO TABLE OA1P.TQZ060TIMEOUT 00230001
( 00240001
TIMESTAMP 00241001
, DBSYS 00242001
, SSID 00243001
, EVENT_TYPE 00244001
, VICTIM_PLAN 00246001
, VICTIM_CORR_ID 00247001
, VICTIM_CONN_ID 00248001
, HOLDER_PLAN 00249001
, HOLDER_CORR_ID 00249101
, HOLDER_CONN_ID 00249201
, REASON_CODE 00249301
, TYPE 00249401
, NAME 00249501
) 00260001
}¢--- A540769.WK.JCL(QZT84) cre=2014-12-12 mod=2014-12-12-10.10.14 A540769 -----
$#=
$*(
$>. fEdit()
$=rz=RZ2
$=dbSys=DBOF
$=nowM=- f('%t S')
$=now =- f('%tSs', $nowM)
$=ab=gbGr
$=ablfP=DSN.ABLF.GBGR.$dbSys
$=ablfRz=DSN.ABLF.GBGR.$dbSys.$rz
$*)
//QZT8400P JOB (CP00,KE50),'DB2 MVEXT',
// MSGCLASS=E,TIME=1440,
// REGION=0M,SCHENV=DB2
//*MAIN CLASS=P2
$@¢
if $rz = sysvar(sysnode) then
$= csm = $''
else
$= csm = SUBSYS=(CSM,'SYSTEM=$rz'),
$=tb=OA1P.TQZ006GBGRTSSTATS
$!
//*
//* db2 gbGrenze ablauf $ab from $rz/$dbSys
//* load into $tb
//* generated by abub at $now
//*
//* 12.12.14 elar xb: nur partition die seit 1.12.14 noch wachsen
$*(
//* 25. 9.14 rz2/dvbp XB% bis ZS nov14 excluded
$*)
//* ------ load $rz/$dbSys into $tb
//LOADTSS EXEC PGM=DSNUTILB,
// PARM=(DP4G,'QZT8400P.LOAD')
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SQL DD DSN=$ablfRz.SQL,
// DISP=(MOD,DELETE)
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//TSSTATS DD DISP=SHR,$csm
// DSN=$ablfP.TSSTATS
//SYSIN DD *
LOAD DATA LOG NO
WORKDDN(TSYUTS,TSOUTS)
SORTKEYS
SORTDEVT DISK
MAPDDN TMAPD ERRDDN TERRD
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
INTO TABLE $tb
PART 1 INDDN TSSTATS RESUME NO REPLACE COPYDDN(TCOPYD)
(
TSTYPE POSITION( 1 )
CHAR( 1) ,
TSTY POSITION( 2 )
CHAR( 1) ,
PGSIZE POSITION( 3 )
SMALLINT ,
SEGSIZE POSITION( 5 )
SMALLINT ,
PARTS POSITION( 7 )
SMALLINT ,
MAXPARTS POSITION( 9 )
SMALLINT ,
DSSIZE POSITION( 11 )
INTEGER ,
DSGB POSITION( 15 )
FLOAT( 21) ,
LIMGB POSITION( 19 )
FLOAT( 21) ,
LIMPART POSITION( 23 )
SMALLINT ,
OBID POSITION( 25 )
SMALLINT ,
CLONE POSITION( 27 )
CHAR( 1) ,
TSINST POSITION( 28 )
SMALLINT ,
TBCR POSITION( 30 )
VARCHAR ,
TB POSITION( 160 )
VARCHAR ,
TBTY POSITION( 290 )
VARCHAR ,
TBOBID POSITION( 293 )
SMALLINT ,
UPDATESTATSTIME POSITION( 295 )
TIMESTAMP EXTERNAL( 26) ,
NACTIVE POSITION( 321 )
INTEGER
NULLIF( 325)='?',
NPAGES POSITION( 326 )
INTEGER
NULLIF( 330)='?',
EXTENTS POSITION( 331 )
SMALLINT
NULLIF( 333)='?',
LOADRLASTTIME POSITION( 334 )
TIMESTAMP EXTERNAL( 26)
NULLIF( 360)='?',
REORGLASTTIME POSITION( 361 )
TIMESTAMP EXTERNAL( 26)
NULLIF( 387)='?',
REORGINSERTS POSITION( 388 )
INTEGER
NULLIF( 392)='?',
REORGDELETES POSITION( 393 )
INTEGER
NULLIF( 397)='?',
REORGUPDATES POSITION( 398 )
INTEGER
NULLIF( 402)='?',
REORGUNCLUSTINS POSITION( 403 )
INTEGER
NULLIF( 407)='?',
REORGDISORGLOB POSITION( 408 )
INTEGER
NULLIF( 412)='?',
REORGMASSDELETE POSITION( 413 )
INTEGER
NULLIF( 417)='?',
REORGNEARINDREF POSITION( 418 )
INTEGER
NULLIF( 422)='?',
REORGFARINDREF POSITION( 423 )
INTEGER
NULLIF( 427)='?',
STATSLASTTIME POSITION( 428 )
TIMESTAMP EXTERNAL( 26)
NULLIF( 454)='?',
STATSINSERTS POSITION( 455 )
INTEGER
NULLIF( 459)='?',
STATSDELETES POSITION( 460 )
INTEGER
NULLIF( 464)='?',
STATSUPDATES POSITION( 465 )
INTEGER
NULLIF( 469)='?',
STATSMASSDELETE POSITION( 470 )
INTEGER
NULLIF( 474)='?',
COPYLASTTIME POSITION( 475 )
TIMESTAMP EXTERNAL( 26)
NULLIF( 501)='?',
COPYUPDATEDPAGES POSITION( 502 )
INTEGER
NULLIF( 506)='?',
COPYCHANGES POSITION( 507 )
INTEGER
NULLIF( 511)='?',
COPYUPDATELRSN POSITION( 512 )
CHAR( 6)
NULLIF( 518)='?',
COPYUPDATETIME POSITION( 519 )
TIMESTAMP EXTERNAL( 26)
NULLIF( 545)='?',
IBMREQD POSITION( 546 )
CHAR( 1) ,
DBID POSITION( 547 )
SMALLINT ,
PSID POSITION( 549 )
SMALLINT ,
PARTITION POSITION( 551 )
SMALLINT ,
INSTANCE POSITION( 553 )
SMALLINT ,
SPACE POSITION( 555 )
BIGINT
NULLIF( 563)='?',
TOTALROWS POSITION( 564 )
BIGINT
NULLIF( 572)='?',
DATASIZE POSITION( 573 )
BIGINT
NULLIF( 581)='?',
UNCOMPRESSEDDATASIZE POSITION( 582 )
BIGINT
NULLIF( 590)='?',
DBNAME POSITION( 591 )
VARCHAR ,
NAME POSITION( 617 )
VARCHAR ,
REORGCLUSTERSENS POSITION( 643 )
BIGINT
NULLIF( 651)='?',
REORGSCANACCESS POSITION( 652 )
BIGINT
NULLIF( 660)='?',
REORGHASHACCESS POSITION( 661 )
BIGINT
NULLIF( 669)='?',
HASHLASTUSED POSITION( 670 )
DATE EXTERNAL( 10)
NULLIF( 680)='?',
DRIVETYPE POSITION( 681 )
CHAR( 3) ,
LPFACILITY POSITION( 684 )
CHAR( 1)
NULLIF( 685)='?',
STATS01 POSITION( 686 )
BIGINT
NULLIF( 694)='?'
)
//LOADTSD EXEC PGM=DSNUTILB,
// PARM=(DP4G,'QZT8400P.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
insert into $tb
(state, loadTs, rz, dbSys, dbName, name, partition, instance
, tsType, tsTy, pgSize, segSize
, parts, maxParts, dsSize, dsGb, limGb, limPart
, obid, clone, tsInst, tbCr, tb, tbTy, tbObId
, dbid, psid, ibmReqD
, updateStatsTime)
with a as
(
select rz, dbSys, dbName, name
, partition, instance, max(loadTs) loadTs
from $tb a
where rz='$rz' and dbSys = '$dbSys'
group by rz, dbSys, dbName, name, partition, instance
)
, b as
(
select b.*
from $tb b join a
on b.rz = a.rz
and b.dbSys = a.dbSys
and b.dbName = a.dbName
and b.Name = a.Name
and b.partition = a.partition
and b.instance = a.instance
and b.loadTS = a.loadTs
)
select 'd', '$nowM'
, rz, dbSys, dbName, name, partition, instance
, tsType, tsTy, pgSize, segSize
, parts, maxParts, dsSize, dsGb, limGb, limPart
, obid, clone, tsInst, tbCr, tb, tbTy, tbObId
, dbid, psid, ibmReqD
, (select max(updateStatsTime)
from $tb n
where n.rz = '?' and n.dbSys = '?'
)
from b
where state <> 'd'
and not exists (select 1
from $tb n
where n.rz = '?' and n.dbSys = '?'
and n.dbName = b.dbName
and n.Name = b.Name
and n.partition = b.partition
and n.instance = b.instance
)
ENDEXEC
//LOADTSI EXEC PGM=DSNUTILB,
// PARM=(DP4G,'QZT8400P.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
insert into $tb
select 'a' STATE
, '$rz' RZ
, '$dbSys' DBSYS
, '$nowM' LOADTS
, TSTYPE
, TSTY
, PGSIZE
, SEGSIZE
, PARTS
, MAXPARTS
, DSSIZE
, DSGB
, LIMGB
, LIMPART
, OBID
, CLONE
, TSINST
, TBCR
, TB
, TBTY
, TBOBID
, UPDATESTATSTIME
, NACTIVE
, NPAGES
, EXTENTS
, LOADRLASTTIME
, REORGLASTTIME
, REORGINSERTS
, REORGDELETES
, REORGUPDATES
, REORGUNCLUSTINS
, REORGDISORGLOB
, REORGMASSDELETE
, REORGNEARINDREF
, REORGFARINDREF
, STATSLASTTIME
, STATSINSERTS
, STATSDELETES
, STATSUPDATES
, STATSMASSDELETE
, COPYLASTTIME
, COPYUPDATEDPAGES
, COPYCHANGES
, COPYUPDATELRSN
, COPYUPDATETIME
, IBMREQD
, DBID
, PSID
, PARTITION
, INSTANCE
, SPACE
, TOTALROWS
, DATASIZE
, UNCOMPRESSEDDATASIZE
, DBNAME
, NAME
, REORGCLUSTERSENS
, REORGSCANACCESS
, REORGHASHACCESS
, HASHLASTUSED
, DRIVETYPE
, LPFACILITY
, STATS01
from $tb n
where n.rz = '?' and n.dbSys = '?'
and updatestatsTime <> value(( select timestamp(substr(max(
char(loadTs) || char(updateStatsTime)), 27))
from $tb a
where a.rz='$rz' and a.dbSys = '$dbSys'
and n.dbName = a.dbName
and n.name = a.name
and n.partition = a.partition
and n.instance = a.instance
)
, '1111-11-11-11.11.11')
ENDEXEC
// IF LOADTSS.RUN AND LOADTSI.RUN AND (RC=0 OR RC=4) THEN
//DELTSS EXEC PGM=IEFBR14
//DEL DD DISP=(OLD,DELETE),$csm
// DSN=$ablfP.TSSTATS
// ENDIF
$=tb=OA1P.TQZ007GBGRIXSTATS
//* ------ load $rz/$dbSys into $tb
//LOADIXS EXEC PGM=DSNUTILB,
// PARM=(DP4G,'QZT8400P.LOAD')
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//*SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//IXSTATS DD DISP=SHR,$csm
// DSN=$ablfP.IXSTATS
//SYSIN DD *
LOAD DATA LOG NO
WORKDDN(TSYUTS,TSOUTS)
SORTKEYS
SORTDEVT DISK
MAPDDN TMAPD ERRDDN TERRD
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
INTO TABLE $tb
PART 1 INDDN IXSTATS RESUME NO REPLACE COPYDDN(TCOPYD)
(
INDEXTYPE POSITION( 1 )
CHAR( 1) ,
COMPRESS POSITION( 2 )
CHAR( 1) ,
IXPARTS POSITION( 3 )
SMALLINT ,
IXPGSZ POSITION( 5 )
SMALLINT ,
PIECESIZE POSITION( 7 )
INTEGER ,
PIECEGB POSITION( 11 )
FLOAT( 21) ,
LIMGB POSITION( 15 )
FLOAT( 21) ,
TBCREATOR POSITION( 19 )
VARCHAR ,
TBNAME POSITION( 149 )
VARCHAR ,
TS POSITION( 279 )
VARCHAR ,
TSTY POSITION( 305 )
CHAR( 1) ,
TSPARTS POSITION( 306 )
SMALLINT ,
TSCLONE POSITION( 308 )
CHAR( 1) ,
TSINST POSITION( 309 )
SMALLINT ,
TSDSSIZE POSITION( 311 )
INTEGER ,
TSDSGB POSITION( 315 )
FLOAT( 21) ,
TSLIMGB POSITION( 319 )
FLOAT( 21) ,
TSLIMPART POSITION( 323 )
SMALLINT ,
TSPGSZ POSITION( 325 )
SMALLINT ,
UPDATESTATSTIME POSITION( 327 )
TIMESTAMP EXTERNAL( 26) ,
NLEVELS POSITION( 353 )
SMALLINT
NULLIF( 355)='?',
NPAGES POSITION( 356 )
INTEGER
NULLIF( 360)='?',
NLEAF POSITION( 361 )
INTEGER
NULLIF( 365)='?',
NACTIVE POSITION( 366 )
INTEGER
NULLIF( 370)='?',
SPACE POSITION( 371 )
INTEGER
NULLIF( 375)='?',
EXTENTS POSITION( 376 )
SMALLINT
NULLIF( 378)='?',
LOADRLASTTIME POSITION( 379 )
TIMESTAMP EXTERNAL( 26)
NULLIF( 405)='?',
REBUILDLASTTIME POSITION( 406 )
TIMESTAMP EXTERNAL( 26)
NULLIF( 432)='?',
REORGLASTTIME POSITION( 433 )
TIMESTAMP EXTERNAL( 26)
NULLIF( 459)='?',
REORGINSERTS POSITION( 460 )
INTEGER
NULLIF( 464)='?',
REORGDELETES POSITION( 465 )
INTEGER
NULLIF( 469)='?',
REORGAPPENDINSERT POSITION( 470 )
INTEGER
NULLIF( 474)='?',
REORGPSEUDODELETES POSITION( 475 )
INTEGER
NULLIF( 479)='?',
REORGMASSDELETE POSITION( 480 )
INTEGER
NULLIF( 484)='?',
REORGLEAFNEAR POSITION( 485 )
INTEGER
NULLIF( 489)='?',
REORGLEAFFAR POSITION( 490 )
INTEGER
NULLIF( 494)='?',
REORGNUMLEVELS POSITION( 495 )
INTEGER
NULLIF( 499)='?',
STATSLASTTIME POSITION( 500 )
TIMESTAMP EXTERNAL( 26)
NULLIF( 526)='?',
STATSINSERTS POSITION( 527 )
INTEGER
NULLIF( 531)='?',
STATSDELETES POSITION( 532 )
INTEGER
NULLIF( 536)='?',
STATSMASSDELETE POSITION( 537 )
INTEGER
NULLIF( 541)='?',
COPYLASTTIME POSITION( 542 )
TIMESTAMP EXTERNAL( 26)
NULLIF( 568)='?',
COPYUPDATEDPAGES POSITION( 569 )
INTEGER
NULLIF( 573)='?',
COPYCHANGES POSITION( 574 )
INTEGER
NULLIF( 578)='?',
COPYUPDATELRSN POSITION( 579 )
CHAR( 6)
NULLIF( 585)='?',
COPYUPDATETIME POSITION( 586 )
TIMESTAMP EXTERNAL( 26)
NULLIF( 612)='?',
LASTUSED POSITION( 613 )
DATE EXTERNAL( 10)
NULLIF( 623)='?',
IBMREQD POSITION( 624 )
CHAR( 1) ,
DBID POSITION( 625 )
SMALLINT ,
ISOBID POSITION( 627 )
SMALLINT ,
PSID POSITION( 629 )
SMALLINT ,
PARTITION POSITION( 631 )
SMALLINT ,
INSTANCE POSITION( 633 )
SMALLINT ,
TOTALENTRIES POSITION( 635 )
BIGINT
NULLIF( 643)='?',
DBNAME POSITION( 644 )
VARCHAR ,
NAME POSITION( 670 )
VARCHAR ,
CREATOR POSITION( 800 )
VARCHAR ,
INDEXSPACE POSITION( 930 )
VARCHAR ,
REORGINDEXACCESS POSITION( 956 )
BIGINT
NULLIF( 964)='?',
DRIVETYPE POSITION( 965 )
CHAR( 3) ,
STATS101 POSITION( 968 )
BIGINT
NULLIF( 976)='?'
)
//LOADIXD EXEC PGM=DSNUTILB,
// PARM=(DP4G,'QZT8400P.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
insert into $tb
( state, loadTs, rz, dbSys
, indexType, compress, ixParts, ixPgSz
, pieceSize, pieceGB, limGB
, tbCreator, tbName
, ts, tsTy, tsParts, tsClone, tsInst, tsDsSize, tsDsGb
, tsLimGb, tsLimPart, tsPgSz
, dbName, indexSpace, creator, name, partition, instance
, ibmReqD, dbid, isobid, psid
, updateStatsTime)
with a as
(
select rz, dbSys, dbName, ts, indexSpace
, partition, instance, max(loadTs) loadTs
from $tb a
where rz='$rz' and dbSys = '$dbSys'
group by rz, dbSys, dbName, ts, indexSpace, partition, instance
)
, b as
(
select b.*
from $tb b join a
on b.rz = a.rz
and b.dbSys = a.dbSys
and b.dbName = a.dbName
and b.ts = a.ts
and b.indexSpace= a.indexSpace
and b.partition = a.partition
and b.instance = a.instance
and b.loadTS = a.loadTs
)
select 'd', '$nowM', rz, dbSys
, indexType, compress, ixParts, ixPgSz
, pieceSize, pieceGB, limGB
, tbCreator, tbName
, ts, tsTy, tsParts, tsClone, tsInst, tsDsSize, tsDsGb
, tsLimGb, tsLimPart, tsPgSz
, dbName, indexSpace, creator, name, partition, instance
, ibmReqD, dbid, isobid, psid
, (select max(updateStatsTime)
from $tb n
where n.rz = '?' and n.dbSys = '?'
)
from b
where state <> 'd'
and not exists (select 1
from $tb n
where n.rz = '?' and n.dbSys = '?'
and n.dbName = b.dbName
and n.ts = b.ts
and n.indexSpace= b.indexSpace
and n.partition = b.partition
and n.instance = b.instance
)
ENDEXEC
//LOADIXI EXEC PGM=DSNUTILB,
// PARM=(DP4G,'QZT8400P.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
insert into $tb
select 'a' STATE
, '$rz' RZ
, '$dbSys' DBSYS
, '$nowM' LOADTS
, INDEXTYPE
, COMPRESS
, IXPARTS
, IXPGSZ
, PIECESIZE
, PIECEGB
, LIMGB
, TBCREATOR
, TBNAME
, TS
, TSTY
, TSPARTS
, TSCLONE
, TSINST
, TSDSSIZE
, TSDSGB
, TSLimGb
, TSLimPart
, TSPGSZ
, UPDATESTATSTIME
, NLEVELS
, NPAGES
, NLEAF
, NACTIVE
, SPACE
, EXTENTS
, LOADRLASTTIME
, REBUILDLASTTIME
, REORGLASTTIME
, REORGINSERTS
, REORGDELETES
, REORGAPPENDINSERT
, REORGPSEUDODELETES
, REORGMASSDELETE
, REORGLEAFNEAR
, REORGLEAFFAR
, REORGNUMLEVELS
, STATSLASTTIME
, STATSINSERTS
, STATSDELETES
, STATSMASSDELETE
, COPYLASTTIME
, COPYUPDATEDPAGES
, COPYCHANGES
, COPYUPDATELRSN
, COPYUPDATETIME
, LASTUSED
, IBMREQD
, DBID
, ISOBID
, PSID
, PARTITION
, INSTANCE
, TOTALENTRIES
, DBNAME
, NAME
, CREATOR
, INDEXSPACE
, REORGINDEXACCESS
, DRIVETYPE
, STATS101
from $tb n
where n.rz = '?' and n.dbSys = '?'
and updatestatsTime <> value(( select timestamp(substr(max(
char(loadTs) || char(updateStatsTime)), 27))
from $tb a
where a.rz='$rz' and a.dbSys = '$dbSys'
and n.dbName = a.dbName
and n.ts = a.ts
and n.indexSpace= a.indexSpace
and n.partition = a.partition
and n.instance = a.instance
)
, '1111-11-11-11.11.11')
ENDEXEC
// IF LOADIXS.RUN AND LOADIXI.RUN AND (RC=0 OR RC=4) THEN
//DELIXS EXEC PGM=IEFBR14
//DEL DD DISP=(OLD,DELETE),$csm
// DSN=$ablfP.IXSTATS
// ENDIF
// IF RC = 0 OR RC = 4 THEN
//SQL EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN DD *
DSN SYSTEM(DP4G)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DSN=*.LOADTSS.SQL,
// DISP=(,CATLG),
// MGMTCLAS=BAT#AT,
// SPACE=(CYL,(15,75),RLSE)
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//SYSIN DD *
-- GigaByte Grenze
-- for $rz/$dbSys
-- at $now
-- source DSN.ABUB.A.SKELS(QZT84)
--************************************************************
--$'$$' GigaByte Grenze überschrittene Schwellwerte:
--************************************************************
select substr(db, 1, 8) "db"
, substr(ts, 1, 8) "ts"
, substr(tsTy
|| case when tsClone = 'N' and inst = 1 and tsInst = 1 then ''
else case when inst=tsInst then 'b' else 'c' end
|| inst end, 1, 3) "yci"
, substr(ix, max(1, length(ix) - 7), 8) "...index"
, substr(case when part = 0 and tsParts = 0 then ''
else case when part is null then ' ---'
when part = 0 and ix <> ' --ts--' then ' npi'
when part = 0 and tsTy = 'G' then ' pbg'
when part = 0 then ' ???'
else right(' ' || part, 4)
end
||'/'|| value(right(' '|| tsParts, 4),'----')
end, 1, 9) "part/ tot"
, substr(right(case when actGB < 1000
then ' ' || dec(round(actGb, 2), 6, 2)
else ' ' || int(round(actGb, 0))
end, 7), 1, 7) "usedGB"
, substr(right(case when limGb/100*schwelle < 1000
then ' ' || dec(round(limGb/100*schwelle, 2), 6, 2)
else ' ' || int(round(limGb/100*schwelle, 0))
end, 7), 1, 7) "schwGB"
, substr(right(' ' || schwelle, 5), 1, 5) "schw%"
, substr(right(' ' || int(round(limGb)), 6), 1, 6) "limGB"
, date(updStats) "lastUpdate"
, substr(schwinfo, 23, 18) "schwellwert key"
from OA1P.vQZ006GbGrenze g
where rz = '$rz' and dbSys = '$dbSys'
and db <> 'DSNDB01' -- directory ist anders
and actGb > real(limGb / 100 * schwelle)
$@ if $dbSys = 'DVBP' | $dbSys = 'DEVG' then $@=¢
-- elar xb: nur partition die seit 1.12.14 noch wachsen
and ( db not like 'XB%'
or (updStats >= '2014-12-01-00.00.00'
and (nActive, nPages, REORGINSERTS
, space, totalRows, dataSize)
not in ( select z.nActive, z.nPages, z.REORGINSERTS
, z.space, z.totalRows, z.dataSize
from oa1p.tqz006GBGRTSSTATS z
where g.rz = z.rz
and g.dbSys = z.dbSys
and g.DB = z.DBNAME
and g.ts = z.NAME
and g.PART = z.PARTITION
and g.INST = z.INSTANCE
and z.loadTs < '2014-12-01-00.00.00'
order by z.loadTs desc
fetch first 1 row only
) ) )
$!
order by db, ts, inst, ix, part
;
--
-- db = Datenbank
-- ts = Tablespace
-- yci = ts type oder s=Segmented,i=Simple p=PartitionedClassic,
-- clone und Instance (falls geKlont)
-- part/ tot = betroffene PartitionsNummer / Total Partitonen des ts
-- ...index = index oder --ts--
-- usedGB = aktuelle benutzter Platz in GB
-- schwGB = Schwellwert in GB
-- schw% = Schwellwert in Prozent der Limite
-- limGB = physische Limite in GB
-- lastUpdate = letzter update aus RealTimeStats
-- Schwellwert key = key des Schwellwerts in oa1p.tqz008GbGrSchwelle
// ENDIF