zOs/WK/NZ24LOAD
//YRPAL001 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG0
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,YRPAL001.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
// SET OLDPREF='A540769.TMPUL.PER21.P00'
// SET OLDSUF='.UNL'
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//REC001 DD DISP=SHR,DSN=&OLDPREF.001&OLDSUF
//REC002 DD DISP=SHR,DSN=&OLDPREF.002&OLDSUF
//REC003 DD DISP=SHR,DSN=&OLDPREF.003&OLDSUF
//REC004 DD DISP=SHR,DSN=&OLDPREF.004&OLDSUF
//REC005 DD DISP=SHR,DSN=&OLDPREF.005&OLDSUF
//REC006 DD DISP=SHR,DSN=&OLDPREF.006&OLDSUF
//REC007 DD DISP=SHR,DSN=&OLDPREF.007&OLDSUF
//REC008 DD DISP=SHR,DSN=&OLDPREF.008&OLDSUF
//REC009 DD DISP=SHR,DSN=&OLDPREF.009&OLDSUF
//REC010 DD DISP=SHR,DSN=&OLDPREF.010&OLDSUF
//REC011 DD DISP=SHR,DSN=&OLDPREF.011&OLDSUF
//REC012 DD DISP=SHR,DSN=&OLDPREF.012&OLDSUF
//REC013 DD DISP=SHR,DSN=&OLDPREF.013&OLDSUF
//REC014 DD DISP=SHR,DSN=&OLDPREF.014&OLDSUF
//REC015 DD DISP=SHR,DSN=&OLDPREF.015&OLDSUF
//REC016 DD DISP=SHR,DSN=&OLDPREF.016&OLDSUF
//REC017 DD DISP=SHR,DSN=&OLDPREF.017&OLDSUF
//REC018 DD DISP=SHR,DSN=&OLDPREF.018&OLDSUF
//REC019 DD DISP=SHR,DSN=&OLDPREF.019&OLDSUF
//REC020 DD DISP=SHR,DSN=&OLDPREF.020&OLDSUF
//REC021 DD DISP=SHR,DSN=&OLDPREF.021&OLDSUF
//REC022 DD DISP=SHR,DSN=&OLDPREF.022&OLDSUF
//REC023 DD DISP=SHR,DSN=&OLDPREF.023&OLDSUF
//REC024 DD DISP=SHR,DSN=&OLDPREF.024&OLDSUF
//REC025 DD DISP=SHR,DSN=&OLDPREF.025&OLDSUF
//REC026 DD DISP=SHR,DSN=&OLDPREF.026&OLDSUF
//REC027 DD DISP=SHR,DSN=&OLDPREF.027&OLDSUF
//REC028 DD DISP=SHR,DSN=&OLDPREF.028&OLDSUF
//REC029 DD DISP=SHR,DSN=&OLDPREF.029&OLDSUF
//REC030 DD DISP=SHR,DSN=&OLDPREF.030&OLDSUF
//REC031 DD DISP=SHR,DSN=&OLDPREF.031&OLDSUF
//REC032 DD DISP=SHR,DSN=&OLDPREF.032&OLDSUF
//REC033 DD DISP=SHR,DSN=&OLDPREF.033&OLDSUF
//REC034 DD DISP=SHR,DSN=&OLDPREF.034&OLDSUF
//REC035 DD DISP=SHR,DSN=&OLDPREF.035&OLDSUF
//REC036 DD DISP=SHR,DSN=&OLDPREF.036&OLDSUF
//REC037 DD DISP=SHR,DSN=&OLDPREF.037&OLDSUF
//REC038 DD DISP=SHR,DSN=&OLDPREF.038&OLDSUF
//REC039 DD DISP=SHR,DSN=&OLDPREF.039&OLDSUF
//REC040 DD DISP=SHR,DSN=&OLDPREF.040&OLDSUF
//REC041 DD DISP=SHR,DSN=&OLDPREF.041&OLDSUF
//REC042 DD DISP=SHR,DSN=&OLDPREF.042&OLDSUF
//REC043 DD DISP=SHR,DSN=&OLDPREF.043&OLDSUF
//REC044 DD DISP=SHR,DSN=&OLDPREF.044&OLDSUF
//REC045 DD DISP=SHR,DSN=&OLDPREF.045&OLDSUF
//REC046 DD DISP=SHR,DSN=&OLDPREF.046&OLDSUF
//REC047 DD DISP=SHR,DSN=&OLDPREF.047&OLDSUF
//REC048 DD DISP=SHR,DSN=&OLDPREF.048&OLDSUF
//REC049 DD DISP=SHR,DSN=&OLDPREF.049&OLDSUF
//REC050 DD DISP=SHR,DSN=&OLDPREF.050&OLDSUF
//REC051 DD DISP=SHR,DSN=&OLDPREF.051&OLDSUF
//REC052 DD DISP=SHR,DSN=&OLDPREF.052&OLDSUF
//REC053 DD DISP=SHR,DSN=&OLDPREF.053&OLDSUF
//REC054 DD DISP=SHR,DSN=&OLDPREF.054&OLDSUF
//REC055 DD DISP=SHR,DSN=&OLDPREF.055&OLDSUF
//REC056 DD DISP=SHR,DSN=&OLDPREF.056&OLDSUF
//REC057 DD DISP=SHR,DSN=&OLDPREF.057&OLDSUF
//REC058 DD DISP=SHR,DSN=&OLDPREF.058&OLDSUF
//REC059 DD DISP=SHR,DSN=&OLDPREF.059&OLDSUF
//REC060 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//REC061 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//REC062 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//REC063 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//REC064 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//SYSIN DD *
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
WORKDDN(TSYUTD,TSOUTD)
SORTKEYS
SORTDEVT DISK
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 001
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC001
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 002
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC002
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 003
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC003
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 004
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC004
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 005
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC005
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 006
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC006
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 007
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC007
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 008
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC008
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 009
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC009
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 010
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC010
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 011
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC011
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 012
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC012
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 013
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC013
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 014
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC014
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 015
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC015
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 016
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC016
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 017
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC017
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 018
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC018
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 019
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC019
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 020
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC020
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 021
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC021
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 022
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC022
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 023
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC023
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 024
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC024
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 025
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC025
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 026
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC026
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 027
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC027
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 028
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC028
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 029
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC029
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 030
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC030
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 031
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC031
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 032
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC032
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 033
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC033
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 034
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC034
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 035
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC035
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 036
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC036
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 037
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC037
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 038
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC038
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 039
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC039
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 040
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC040
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 041
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC041
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 042
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC042
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 043
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC043
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 044
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC044
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 045
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC045
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 046
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC046
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 047
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC047
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 048
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC048
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 049
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC049
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 050
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC050
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 051
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC051
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 052
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC052
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 053
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC053
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 054
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC054
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 055
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC055
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 056
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC056
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 057
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC057
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 058
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC058
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 059
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC059
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 060
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC060
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 061
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC061
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 062
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC062
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 063
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC063
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 064
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC064
WHEN(00001:00002) = X'002D'
NUMRECS 0
( "NZ240001"
POSITION( 00003:00052) CHAR(00050)
, "NZ240002"
POSITION( 00053:00102) CHAR(00050)
, "NZ240003"
POSITION( 00103:00122) CHAR(00020)
, "NZ240004"
POSITION( 00123:00142) CHAR(00020)
, "NZ240005"
POSITION( 00143:00162) CHAR(00020)
, "NZ240006"
POSITION( 00163:00182) CHAR(00020)
, "NZ240007"
POSITION( 00183:00202) CHAR(00020)
, "NZ240008"
POSITION( 00203:00222) CHAR(00020)
, "NZ240009"
POSITION( 00223:00242) CHAR(00020)
, "NZ240010"
POSITION( 00243:00292) CHAR(00050)
, "NZ240011"
POSITION( 00293:00312) CHAR(00020)
, "NZ240012"
POSITION( 00313:00362) CHAR(00050)
, "NZ240013"
POSITION( 00363:00382) CHAR(00020)
, "NZ240014"
POSITION( 00383:00432) CHAR(00050)
, "NZ240015"
POSITION( 00433:00452) CHAR(00020)
, "NZ240016"
POSITION( 00453:00502) CHAR(00050)
, "NZ240017"
POSITION( 00503:00522) CHAR(00020)
, "NZ240018"
POSITION( 00523:00572) CHAR(00050)
, "NZ240019"
POSITION( 00573:00592) CHAR(00020)
, "NZ240020"
POSITION( 00593:00642) CHAR(00050)
, "NZ240021"
POSITION( 00643:00662) CHAR(00020)
, "NZ240022"
POSITION( 00663:00712) CHAR(00050)
, "NZ240023"
POSITION( 00713:00732) CHAR(00020)
, "NZ240024"
POSITION( 00733:00782) CHAR(00050)
, "NZ240025"
POSITION( 00783:00802) CHAR(00020)
, "NZ240026"
POSITION( 00803:00852) CHAR(00050)
, "NZ240027"
POSITION( 00853:00872) CHAR(00020)
, "NZ240028"
POSITION( 00873:00922) CHAR(00050)
, "NZ240029"
POSITION( 00923:00942) CHAR(00020)
, "NZ240030"
POSITION( 00943:00968) CHAR(00026)
, "NZ240031"
POSITION( 00969:00994) CHAR(00026)
, "NZ240032"
POSITION( 00995:01014) CHAR(00020)
, "NZ240033"
POSITION( 01015:01034) CHAR(00020)
, "NZ240034"
POSITION( 01035:01044) CHAR(00010)
, "NZ240035"
POSITION( 01045:02046) VARCHAR
, "NZ240036"
POSITION( 02048:02057) DATE EXTERNAL
NULLIF(02047)=X'FF'
)