file browser

zOs/JCL/SOER

//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 A2Q4K2OA
  DSN('DSN.DBA.NI02090Q.ULD.T0001.P&PA.') DISP(OLD, KEEP, KEEP)
LOAD DATA LOG NO RESUME YES EBCDIC CCSID(500, 0, 0) SORTKEYS 4789109
  INTO TABLE "OA1A"."TNI201A101A" PART 1 INDDN A2Q4K2OA
      WHEN(1:2)=X'0027'
   ("NI201024" POSITION(3:23) CHAR(21),
    "NI201156" POSITION(24:24) CHAR(1),
    "NI201122" POSITION(25:69) CHAR(45),
    "NI201011" POSITION(70:79) DATE EXTERNAL,
    "NI201176" POSITION(80:95) DECIMAL,
    "NI201084" POSITION(97:112) DECIMAL NULLIF(96)=X'FF',
    "NI201087" POSITION(114:129) DECIMAL NULLIF(113)=X'FF',
    "NI201086" POSITION(131:146) DECIMAL NULLIF(130)=X'FF',
    "NI201304" POSITION(148:163) DECIMAL NULLIF(147)=X'FF',
    "NI201008" POSITION(165:180) DECIMAL NULLIF(164)=X'FF',
    "NI201007" POSITION(182:197) DECIMAL NULLIF(181)=X'FF',
    "NI201052" POSITION(198:204) DECIMAL,
    "NI201316" POSITION(205:212) DECIMAL,
    "NI201308" POSITION(213:213) CHAR(1),
    "NI201106" POSITION(214:229) DECIMAL,
    "NI201326" POSITION(230:230) CHAR(1),
    "NI201124" POSITION(231:237) DECIMAL,
    "NI201118" POSITION(238:247) DATE EXTERNAL,
    "NI201119" POSITION(248:250) CHAR(3),
    "NI201330" POSITION(251:254) CHAR(4),
    "NI201352" POSITION(255:262) FLOAT(53))
  INTO TABLE "OA1A"."TNI201A101A" PART 2 INDDN A2Q4K2OA
      WHEN(1:2)=X'0027'
   ("NI201024" POSITION(3:23) CHAR(21),
    "NI201156" POSITION(24:24) CHAR(1),
    "NI201122" POSITION(25:69) CHAR(45),
    "NI201011" POSITION(70:79) DATE EXTERNAL,
    "NI201176" POSITION(80:95) DECIMAL,
    "NI201084" POSITION(97:112) DECIMAL NULLIF(96)=X'FF',
    "NI201087" POSITION(114:129) DECIMAL NULLIF(113)=X'FF',
    "NI201086" POSITION(131:146) DECIMAL NULLIF(130)=X'FF',
    "NI201304" POSITION(148:163) DECIMAL NULLIF(147)=X'FF',
    "NI201008" POSITION(165:180) DECIMAL NULLIF(164)=X'FF',
    "NI201007" POSITION(182:197) DECIMAL NULLIF(181)=X'FF',
    "NI201052" POSITION(198:204) DECIMAL,
    "NI201316" POSITION(205:212) DECIMAL,
    "NI201308" POSITION(213:213) CHAR(1),
    "NI201106" POSITION(214:229) DECIMAL,
    "NI201326" POSITION(230:230) CHAR(1),
    "NI201124" POSITION(231:237) DECIMAL,
    "NI201118" POSITION(238:247) DATE EXTERNAL,
    "NI201119" POSITION(248:250) CHAR(3),
    "NI201330" POSITION(251:254) CHAR(4),
    "NI201352" POSITION(255:262) FLOAT(53))
  INTO TABLE "OA1A"."TNI201A101A" PART 3 INDDN A2Q4K2OA
      WHEN(1:2)=X'0027'
   ("NI201024" POSITION(3:23) CHAR(21),
    "NI201156" POSITION(24:24) CHAR(1),
    "NI201122" POSITION(25:69) CHAR(45),
    "NI201011" POSITION(70:79) DATE EXTERNAL,
    "NI201176" POSITION(80:95) DECIMAL,
    "NI201084" POSITION(97:112) DECIMAL NULLIF(96)=X'FF',
    "NI201087" POSITION(114:129) DECIMAL NULLIF(113)=X'FF',
    "NI201086" POSITION(131:146) DECIMAL NULLIF(130)=X'FF',
    "NI201304" POSITION(148:163) DECIMAL NULLIF(147)=X'FF',
    "NI201008" POSITION(165:180) DECIMAL NULLIF(164)=X'FF',
    "NI201007" POSITION(182:197) DECIMAL NULLIF(181)=X'FF',
    "NI201052" POSITION(198:204) DECIMAL,
    "NI201316" POSITION(205:212) DECIMAL,
    "NI201308" POSITION(213:213) CHAR(1),
    "NI201106" POSITION(214:229) DECIMAL,
    "NI201326" POSITION(230:230) CHAR(1),
    "NI201124" POSITION(231:237) DECIMAL,
    "NI201118" POSITION(238:247) DATE EXTERNAL,
    "NI201119" POSITION(248:250) CHAR(3),
    "NI201330" POSITION(251:254) CHAR(4),
    "NI201352" POSITION(255:262) FLOAT(53))
  SORTNUM 8 SORTDEVT DISK
  ENFORCE NO
//
//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)