zOs/TX/PER17LOI

//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 *
TEMPLATE TIN
     DSN('DBAF.MF01A1A.A150A.P&PA..D120206.REC')
     DISP(OLD,KEEP,KEEP)
LOAD DATA LOG NO
    WORKDDN(TSYUTS, TSOUTS)
    SORTDEVT DISK
 FORMAT INTERNAL
 INTO TABLE
 A540769.$TMF150A1
 PART 00004
    RESUME NO REPLACE COPYDDN(TCOPYS)
 INDDN TIN   NUMRECS  1950588
 INTO TABLE
 A540769.$TMF150A1
 PART 00009
    RESUME NO REPLACE COPYDDN(TCOPYS)
 INDDN TIN   NUMRECS  2032678
 INTO TABLE
 A540769.$TMF150A1
 PART 00014
    RESUME NO REPLACE COPYDDN(TCOPYS)
 INDDN TIN   NUMRECS  2197177
 INTO TABLE
 A540769.$TMF150A1
 PART 00020
    RESUME NO REPLACE COPYDDN(TCOPYS)
 INDDN TIN   NUMRECS  1961414
 INTO TABLE
 A540769.$TMF150A1
 PART 00051
    RESUME NO REPLACE COPYDDN(TCOPYS)
 INDDN TIN   NUMRECS  2543199
 INTO TABLE
 A540769.$TMF150A1
 PART 00056
    RESUME NO REPLACE COPYDDN(TCOPYS)
 INDDN TIN   NUMRECS  2487274
 INTO TABLE
 A540769.$TMF150A1
 PART 00061
    RESUME NO REPLACE COPYDDN(TCOPYS)
 INDDN TIN   NUMRECS  2317620
 INTO TABLE
 A540769.$TMF150A1
 PART 00066
    RESUME NO REPLACE COPYDDN(TCOPYS)
 INDDN TIN   NUMRECS  2455933
 INTO TABLE
 A540769.$TMF150A1
 PART 00071
    RESUME NO REPLACE COPYDDN(TCOPYS)
 INDDN TIN   NUMRECS  2219334
 INTO TABLE
 A540769.$TMF150A1
 PART 00098
    RESUME NO REPLACE COPYDDN(TCOPYS)
 INDDN TIN   NUMRECS  2200825