zOs/JCL/FRANZLO1
//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=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='.UNLD'
//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
//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
//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
//REC10 DD DISP=SHR,DSN=&OLDPREF.00009&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00010&OLDSUF
//REC11 DD DISP=SHR,DSN=&OLDPREF.00010&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00011&OLDSUF
//REC12 DD DISP=SHR,DSN=&OLDPREF.00011&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00012&OLDSUF
//REC13 DD DISP=SHR,DSN=&OLDPREF.00012&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00013&OLDSUF
//REC14 DD DISP=SHR,DSN=&OLDPREF.00013&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00014&OLDSUF
//REC15 DD DISP=SHR,DSN=&OLDPREF.00014&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00015&OLDSUF
//REC16 DD DISP=SHR,DSN=&OLDPREF.00015&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00016&OLDSUF
//REC17 DD DISP=SHR,DSN=&OLDPREF.00016&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00017&OLDSUF
//REC18 DD DISP=SHR,DSN=&OLDPREF.00017&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00018&OLDSUF
//REC19 DD DISP=SHR,DSN=&OLDPREF.00018&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00019&OLDSUF
//REC20 DD DISP=SHR,DSN=&OLDPREF.00019&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00020&OLDSUF
//REC21 DD DISP=SHR,DSN=&OLDPREF.00020&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00021&OLDSUF
//REC22 DD DISP=SHR,DSN=&OLDPREF.00021&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00022&OLDSUF
//REC23 DD DISP=SHR,DSN=&OLDPREF.00022&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00023&OLDSUF
//REC24 DD DISP=SHR,DSN=&OLDPREF.00023&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00024&OLDSUF
//REC25 DD DISP=SHR,DSN=&OLDPREF.00024&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00025&OLDSUF
//REC26 DD DISP=SHR,DSN=&OLDPREF.00025&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00026&OLDSUF
//REC27 DD DISP=SHR,DSN=&OLDPREF.00026&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00027&OLDSUF
//REC28 DD DISP=SHR,DSN=&OLDPREF.00027&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00028&OLDSUF
//REC29 DD DISP=SHR,DSN=&OLDPREF.00028&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00029&OLDSUF
//REC30 DD DISP=SHR,DSN=&OLDPREF.00029&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00030&OLDSUF
//REC31 DD DISP=SHR,DSN=&OLDPREF.00030&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00031&OLDSUF
//REC32 DD DISP=SHR,DSN=&OLDPREF.00031&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00032&OLDSUF
//REC33 DD DISP=SHR,DSN=&OLDPREF.00032&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00033&OLDSUF
//REC34 DD DISP=SHR,DSN=&OLDPREF.00033&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00034&OLDSUF
//REC35 DD DISP=SHR,DSN=&OLDPREF.00034&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00035&OLDSUF
//REC36 DD DISP=SHR,DSN=&OLDPREF.00035&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00036&OLDSUF
//REC37 DD DISP=SHR,DSN=&OLDPREF.00036&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00037&OLDSUF
//REC38 DD DISP=SHR,DSN=&OLDPREF.00037&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00038&OLDSUF
//REC39 DD DISP=SHR,DSN=&OLDPREF.00038&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00039&OLDSUF
//REC40 DD DISP=SHR,DSN=&OLDPREF.00039&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00040&OLDSUF
//REC41 DD DISP=SHR,DSN=&OLDPREF.00040&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00041&OLDSUF
//REC42 DD DISP=SHR,DSN=&OLDPREF.00041&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00042&OLDSUF
//REC43 DD DISP=SHR,DSN=&OLDPREF.00042&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00043&OLDSUF
//REC44 DD DISP=SHR,DSN=&OLDPREF.00043&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00044&OLDSUF
//REC45 DD DISP=SHR,DSN=&OLDPREF.00044&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00045&OLDSUF
//REC46 DD DISP=SHR,DSN=&OLDPREF.00045&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00046&OLDSUF
//REC47 DD DISP=SHR,DSN=&OLDPREF.00046&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00047&OLDSUF
//REC48 DD DISP=SHR,DSN=&OLDPREF.00047&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00048&OLDSUF
//REC49 DD DISP=SHR,DSN=&OLDPREF.00048&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00049&OLDSUF
//REC50 DD DISP=SHR,DSN=&OLDPREF.00049&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00050&OLDSUF
//REC51 DD DISP=SHR,DSN=&OLDPREF.00050&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00051&OLDSUF
//REC52 DD DISP=SHR,DSN=&OLDPREF.00051&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00052&OLDSUF
//REC53 DD DISP=SHR,DSN=&OLDPREF.00052&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00053&OLDSUF
//REC54 DD DISP=SHR,DSN=&OLDPREF.00053&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00054&OLDSUF
//REC55 DD DISP=SHR,DSN=&OLDPREF.00054&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00055&OLDSUF
//REC56 DD DISP=SHR,DSN=&OLDPREF.00055&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00056&OLDSUF
//REC57 DD DISP=SHR,DSN=&OLDPREF.00056&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00057&OLDSUF
//REC58 DD DISP=SHR,DSN=&OLDPREF.00057&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00058&OLDSUF
//REC59 DD DISP=SHR,DSN=&OLDPREF.00058&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00059&OLDSUF
//REC60 DD DISP=SHR,DSN=&OLDPREF.00059&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC61 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC62 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC63 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC64 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//REC65 DD DISP=SHR,DSN=&OLDPREF.00060&OLDSUF
//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 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
)
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
)
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
)
INTO TABLE A540769."TNZ242A1" PART 10
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC10
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 11
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC11
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 12
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC12
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 13
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC13
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 14
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC14
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 15
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC15
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 16
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC16
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 17
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC17
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 18
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC18
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 19
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC19
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 20
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC20
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 21
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC21
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 22
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC22
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 23
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC23
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 24
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC24
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 25
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC25
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 26
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC26
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 27
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC27
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 28
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC28
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 29
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC29
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 30
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC30
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 31
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC31
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 32
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC32
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 33
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC33
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 34
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC34
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 35
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC35
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 36
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC36
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 37
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC37
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 38
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC38
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 39
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC39
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 40
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC40
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 41
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC41
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 42
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC42
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 43
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC43
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 44
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC44
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 45
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC45
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 46
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC46
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 47
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC47
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 48
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC48
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 49
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC49
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 50
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC50
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 51
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC51
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 52
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC52
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 53
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC53
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 54
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC54
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 55
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC55
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 56
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC56
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 57
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC57
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 58
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC58
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 59
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC59
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 60
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC60
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 61
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC61
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 62
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC62
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 63
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC63
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 64
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC64
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 65
RESUME NO REPLACE COPYDDN(TCOPYD) INDDN REC65
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
)