zOs/JCL/FRANZLOA

//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
 )