zOs/JCL/SOER3
//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 A2Q4OH1M
DSN('DSN.DBA.NI02090Q.ULD.T0002.P&PA.')
DISP(OLD,KEEP,KEEP)
LOAD DATA LOG NO RESUME NO REPLACE INDDN INCAT
EBCDIC CCSID(00500,00000,00000)
SORTKEYS 8758408
INTO TABLE "OA1A"."TNI203A101A"
WHEN(00001:00002) = X'0029'
( "NI203024"
POSITION( 00003:00023) CHAR(00021)
, "NI203156"
POSITION( 00024:00024) CHAR(00001)
, "NI203122"
POSITION( 00025:00069) CHAR(00045)
, "NI203115"
POSITION( 00070:00079) DATE EXTERNAL
, "NI203116"
POSITION( 00080:00089) DATE EXTERNAL
, "NI203239"
POSITION( 00090:00099) DATE EXTERNAL
, "NI203320"
POSITION( 00101:00116) DECIMAL
NULLIF(00100)=X'FF'
, "NI203091"
POSITION( 00118:00133) DECIMAL
NULLIF(00117)=X'FF'
, "NI203315"
POSITION( 00135:00150) DECIMAL
NULLIF(00134)=X'FF'
, "NI203094"
POSITION( 00152:00167) DECIMAL
NULLIF(00151)=X'FF'
, "NI203313"
POSITION( 00169:00184) DECIMAL
NULLIF(00168)=X'FF'
, "NI203092"
POSITION( 00186:00201) DECIMAL
NULLIF(00185)=X'FF'
, "NI203314"
POSITION( 00203:00218) DECIMAL
NULLIF(00202)=X'FF'
, "NI203093"
POSITION( 00220:00235) DECIMAL
NULLIF(00219)=X'FF'
, "NI203301"
POSITION( 00237:00252) DECIMAL
NULLIF(00236)=X'FF'
, "NI203001"
POSITION( 00254:00269) DECIMAL
NULLIF(00253)=X'FF'
, "NI203303"
POSITION( 00271:00286) DECIMAL
NULLIF(00270)=X'FF'
, "NI203004"
POSITION( 00288:00303) DECIMAL
NULLIF(00287)=X'FF'
, "NI203318"
POSITION( 00305:00320) DECIMAL
NULLIF(00304)=X'FF'
, "NI203002"
POSITION( 00322:00337) DECIMAL
NULLIF(00321)=X'FF'
, "NI203302"
POSITION( 00339:00354) DECIMAL
NULLIF(00338)=X'FF'
, "NI203003"
POSITION( 00356:00371) DECIMAL
NULLIF(00355)=X'FF'
, "NI203319"
POSITION( 00373:00380) DECIMAL
NULLIF(00372)=X'FF'
, "NI203140"
POSITION( 00382:00389) DECIMAL
NULLIF(00381)=X'FF'
, "NI203145"
POSITION( 00391:00398) DECIMAL
NULLIF(00390)=X'FF'
, "NI203146"
POSITION( 00400:00407) DECIMAL
NULLIF(00399)=X'FF'
, "NI203141"
POSITION( 00409:00416) DECIMAL
NULLIF(00408)=X'FF'
, "NI203142"
POSITION( 00418:00425) DECIMAL
NULLIF(00417)=X'FF'
, "NI203143"
POSITION( 00427:00434) DECIMAL
NULLIF(00426)=X'FF'
, "NI203144"
POSITION( 00436:00443) DECIMAL
NULLIF(00435)=X'FF'
, "NI203309"
POSITION( 00444:00451) DECIMAL
, "NI203068"
POSITION( 00452:00459) DECIMAL
, "NI203231"
POSITION( 00460:00467) DECIMAL
, "NI203071"
POSITION( 00468:00475) DECIMAL
, "NI203310"
POSITION( 00476:00483) DECIMAL
, "NI203069"
POSITION( 00484:00491) DECIMAL
, "NI203311"
POSITION( 00492:00499) DECIMAL
, "NI203070"
POSITION( 00500:00507) DECIMAL
)
SORTNUM 8 SORTDEVT DISK
ENFORCE NO
//INCAT DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00001
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00002
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00003
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00004
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00005
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00006
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00007
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00008
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00009
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00010
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00011
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00012
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00013
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00014
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00015
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00016
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00017
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00018
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00019
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00020
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00021
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00022
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00023
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00024
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00025
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00026
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00027
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00028
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00029
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00030
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00031
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00032
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00033
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00034
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00035
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00036
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00037
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00038
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00039
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00040
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00041
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00042
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00043
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00044
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00045
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00046
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00047
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00048
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00049
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00050
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00051
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00052
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00053
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00054
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00055
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00056
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00057
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00058
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00059
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00060
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00061
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00062
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00063
// DD DISP=SHR,DSN=DSN.DBA.NI02090Q.ULD.T0002.P00064
//
//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)