zOs/JCL/FRANZLO9
//YFR24201 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=BS1
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YFR24201.LOAD'
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='SHR21.DIV.P021.A540769.NZ242.P'
// SET OLDSUF='.UNL1'
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC1 DD DISP=SHR,DSN=&OLDPREF.00001&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00002&OLDSUF
//REC2 DD DISP=SHR,DSN=&OLDPREF.00002&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00003&OLDSUF
//REC3 DD DISP=SHR,DSN=&OLDPREF.00003&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
INTO TABLE "A540769"."TNZ242A1" PART 1
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC1
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
)
INTO TABLE "A540769"."TNZ242A1" PART 2
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC2
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
)
INTO TABLE "A540769"."TNZ242A1" PART 3
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC3
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
)
//YFR24204 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=BS1
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YFR24204.LOAD'
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='SHR21.DIV.P021.A540769.NZ242.P'
// SET OLDSUF='.UNL1'
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC4 DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
//REC5 DD DISP=SHR,DSN=&OLDPREF.00004&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00005&OLDSUF
//REC6 DD DISP=SHR,DSN=&OLDPREF.00005&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00006&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
INTO TABLE "A540769"."TNZ242A1" PART 4
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC4
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
)
INTO TABLE "A540769"."TNZ242A1" PART 5
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC5
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
)
INTO TABLE "A540769"."TNZ242A1" PART 6
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC6
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
)
//YFR24207 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=BS1
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YFR24207.LOAD'
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(2000,3000)),
// DATACLAS=NULL30
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='SHR21.DIV.P021.A540769.NZ242.P'
// SET OLDSUF='.UNL1'
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC7 DD DISP=SHR,DSN=&OLDPREF.00006&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00007&OLDSUF
//REC8 DD DISP=SHR,DSN=&OLDPREF.00007&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00008&OLDSUF
//REC9 DD DISP=SHR,DSN=&OLDPREF.00008&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00009&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
INTO TABLE "A540769"."TNZ242A1" PART 7
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC7
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
)
INTO TABLE "A540769"."TNZ242A1" PART 8
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC8
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
)
INTO TABLE "A540769"."TNZ242A1" PART 9
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC9
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
)