$#@
$=parts=43
$;
$>.fEdit() $@=[
//Y4WI101L JOB (CP00,KE50),'DB2 WI101 LOAD', 00010001
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=A540769
//*MAIN CLASS=DBOF
//S1 EXEC PGM=DSNUTILB,PARM='DBOF,Y4WI101L.LOAD' 00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE INP
DSN('A540769.TMP.WI101.P&PA(3)..UNL')
-- tSyUtD: WORKDDN(1,) [SYSUT1] fuer check, load, merge
TEMPLATE TSYUTX DSN('&SSID..&DB..&SN..P&PART..&UNIQ..UT')
DATACLAS(ENN35) MGMTCLAS(COM#E005)
MAXPRIME 6000 SPACE(6000,6000) CYL
LOAD DATA LOG NO RESUME NO REPLACE
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
SORTKEYS
SORTDEVT DISK
WORKDDN(TSYUTX,TSOUTD)
$@do p=1 to $parts $@=[
INTO TABLE $'OA1P$.TWI101$1' PART $p INDDN INP
(
WI10101T POSITION( 1 )
CHAR( 4) ,
WI10101D POSITION( 5 )
CHAR( 8) ,
WI10101L POSITION( 13 )
CHAR( 5) ,
WI10101G POSITION( 18 )
CHAR( 2) ,
WI10101V POSITION( 20 )
CHAR( 4) ,
WI10101B POSITION( 24 )
CHAR( 2) ,
WI10101I POSITION( 26 )
TIMESTAMP EXTERNAL( 26) ,
WI10102A POSITION( 52 )
CHAR( 3) ,
WI10102S POSITION( 55 )
CHAR( 5) ,
WI10103 POSITION( 60 )
CHAR( 1) ,
WI10104 POSITION( 61 )
CHAR( 1) ,
WI10105 POSITION( 62 )
CHAR( 8) ,
WI10106 POSITION( 70 )
CHAR( 20) ,
WI10107 POSITION( 90 )
CHAR( 1) ,
WI10108 POSITION( 91 )
CHAR( 1) ,
WI10109 POSITION( 92 )
CHAR( 1) ,
WI10110 POSITION( 93 )
CHAR( 1) ,
WI10112 POSITION( 94 )
TIMESTAMP EXTERNAL( 26) ,
WI10113 POSITION( 120 )
CHAR( 2) ,
WI10114 POSITION( 122 )
CHAR( 1) ,
WI101PK POSITION( 123 )
SMALLINT
)
$]
LISTDEF LST INCLUDE TABLESPACE WI02A1P.$'A101$' PARTLEVEL
COPY LIST LST COPYDDN(TCOPYD)
PARALLEL SHRLEVEL REFERENCE
$]
$#out 20111025 08:25:02
$#out 20111025 04:01:26
$#out 20110819 14:47:43