zOs/WK/NZ25LOAD
//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.001&OLDSUF
// DD DISP=SHR,DSN=&OLDPREF.002&OLDSUF
//REC003 DD DISP=SHR,DSN=&OLDPREF.002&OLDSUF
//REC004 DD DISP=SHR,DSN=&OLDPREF.003&OLDSUF
//REC005 DD DISP=SHR,DSN=&OLDPREF.003&OLDSUF
//REC006 DD DISP=SHR,DSN=&OLDPREF.004&OLDSUF
//REC007 DD DISP=SHR,DSN=&OLDPREF.004&OLDSUF
//REC008 DD DISP=SHR,DSN=&OLDPREF.004&OLDSUF
//REC009 DD DISP=SHR,DSN=&OLDPREF.004&OLDSUF
//REC010 DD DISP=SHR,DSN=&OLDPREF.005&OLDSUF
//REC011 DD DISP=SHR,DSN=&OLDPREF.005&OLDSUF
//REC012 DD DISP=SHR,DSN=&OLDPREF.006&OLDSUF
//REC013 DD DISP=SHR,DSN=&OLDPREF.006&OLDSUF
//REC014 DD DISP=SHR,DSN=&OLDPREF.007&OLDSUF
//REC015 DD DISP=SHR,DSN=&OLDPREF.007&OLDSUF
//REC016 DD DISP=SHR,DSN=&OLDPREF.008&OLDSUF
//REC017 DD DISP=SHR,DSN=&OLDPREF.008&OLDSUF
//REC018 DD DISP=SHR,DSN=&OLDPREF.009&OLDSUF
//REC019 DD DISP=SHR,DSN=&OLDPREF.009&OLDSUF
//REC020 DD DISP=SHR,DSN=&OLDPREF.010&OLDSUF
//REC021 DD DISP=SHR,DSN=&OLDPREF.010&OLDSUF
//REC022 DD DISP=SHR,DSN=&OLDPREF.011&OLDSUF
//REC023 DD DISP=SHR,DSN=&OLDPREF.011&OLDSUF
//REC024 DD DISP=SHR,DSN=&OLDPREF.012&OLDSUF
//REC025 DD DISP=SHR,DSN=&OLDPREF.012&OLDSUF
//REC026 DD DISP=SHR,DSN=&OLDPREF.013&OLDSUF
//REC027 DD DISP=SHR,DSN=&OLDPREF.013&OLDSUF
//REC028 DD DISP=SHR,DSN=&OLDPREF.014&OLDSUF
//REC029 DD DISP=SHR,DSN=&OLDPREF.014&OLDSUF
//REC030 DD DISP=SHR,DSN=&OLDPREF.015&OLDSUF
//REC031 DD DISP=SHR,DSN=&OLDPREF.015&OLDSUF
//REC032 DD DISP=SHR,DSN=&OLDPREF.016&OLDSUF
//REC033 DD DISP=SHR,DSN=&OLDPREF.016&OLDSUF
//REC034 DD DISP=SHR,DSN=&OLDPREF.017&OLDSUF
//REC035 DD DISP=SHR,DSN=&OLDPREF.017&OLDSUF
//REC036 DD DISP=SHR,DSN=&OLDPREF.018&OLDSUF
//REC037 DD DISP=SHR,DSN=&OLDPREF.018&OLDSUF
//REC038 DD DISP=SHR,DSN=&OLDPREF.019&OLDSUF
//REC039 DD DISP=SHR,DSN=&OLDPREF.019&OLDSUF
//REC040 DD DISP=SHR,DSN=&OLDPREF.020&OLDSUF
//REC041 DD DISP=SHR,DSN=&OLDPREF.020&OLDSUF
//REC042 DD DISP=SHR,DSN=&OLDPREF.021&OLDSUF
//REC043 DD DISP=SHR,DSN=&OLDPREF.021&OLDSUF
//REC044 DD DISP=SHR,DSN=&OLDPREF.022&OLDSUF
//REC045 DD DISP=SHR,DSN=&OLDPREF.022&OLDSUF
//REC046 DD DISP=SHR,DSN=&OLDPREF.023&OLDSUF
//REC047 DD DISP=SHR,DSN=&OLDPREF.023&OLDSUF
//REC048 DD DISP=SHR,DSN=&OLDPREF.024&OLDSUF
//REC049 DD DISP=SHR,DSN=&OLDPREF.024&OLDSUF
//REC050 DD DISP=SHR,DSN=&OLDPREF.025&OLDSUF
//REC051 DD DISP=SHR,DSN=&OLDPREF.025&OLDSUF
//REC052 DD DISP=SHR,DSN=&OLDPREF.026&OLDSUF
//REC053 DD DISP=SHR,DSN=&OLDPREF.026&OLDSUF
//REC054 DD DISP=SHR,DSN=&OLDPREF.027&OLDSUF
//REC055 DD DISP=SHR,DSN=&OLDPREF.027&OLDSUF
//REC056 DD DISP=SHR,DSN=&OLDPREF.028&OLDSUF
//REC057 DD DISP=SHR,DSN=&OLDPREF.028&OLDSUF
//REC058 DD DISP=SHR,DSN=&OLDPREF.029&OLDSUF
//REC059 DD DISP=SHR,DSN=&OLDPREF.029&OLDSUF
//REC060 DD DISP=SHR,DSN=&OLDPREF.030&OLDSUF
//REC061 DD DISP=SHR,DSN=&OLDPREF.030&OLDSUF
//REC062 DD DISP=SHR,DSN=&OLDPREF.031&OLDSUF
//REC063 DD DISP=SHR,DSN=&OLDPREF.031&OLDSUF
//REC064 DD DISP=SHR,DSN=&OLDPREF.032&OLDSUF
//REC065 DD DISP=SHR,DSN=&OLDPREF.032&OLDSUF
//REC066 DD DISP=SHR,DSN=&OLDPREF.033&OLDSUF
//REC067 DD DISP=SHR,DSN=&OLDPREF.033&OLDSUF
//REC068 DD DISP=SHR,DSN=&OLDPREF.034&OLDSUF
//REC069 DD DISP=SHR,DSN=&OLDPREF.034&OLDSUF
//REC070 DD DISP=SHR,DSN=&OLDPREF.035&OLDSUF
//REC071 DD DISP=SHR,DSN=&OLDPREF.035&OLDSUF
//REC072 DD DISP=SHR,DSN=&OLDPREF.036&OLDSUF
//REC073 DD DISP=SHR,DSN=&OLDPREF.036&OLDSUF
//REC074 DD DISP=SHR,DSN=&OLDPREF.037&OLDSUF
//REC075 DD DISP=SHR,DSN=&OLDPREF.037&OLDSUF
//REC076 DD DISP=SHR,DSN=&OLDPREF.038&OLDSUF
//REC077 DD DISP=SHR,DSN=&OLDPREF.038&OLDSUF
//REC078 DD DISP=SHR,DSN=&OLDPREF.039&OLDSUF
//REC079 DD DISP=SHR,DSN=&OLDPREF.039&OLDSUF
//REC080 DD DISP=SHR,DSN=&OLDPREF.040&OLDSUF
//REC081 DD DISP=SHR,DSN=&OLDPREF.040&OLDSUF
//REC082 DD DISP=SHR,DSN=&OLDPREF.041&OLDSUF
//REC083 DD DISP=SHR,DSN=&OLDPREF.041&OLDSUF
//REC084 DD DISP=SHR,DSN=&OLDPREF.042&OLDSUF
//REC085 DD DISP=SHR,DSN=&OLDPREF.042&OLDSUF
//REC086 DD DISP=SHR,DSN=&OLDPREF.043&OLDSUF
//REC087 DD DISP=SHR,DSN=&OLDPREF.043&OLDSUF
//REC088 DD DISP=SHR,DSN=&OLDPREF.044&OLDSUF
//REC089 DD DISP=SHR,DSN=&OLDPREF.044&OLDSUF
//REC090 DD DISP=SHR,DSN=&OLDPREF.045&OLDSUF
//REC091 DD DISP=SHR,DSN=&OLDPREF.045&OLDSUF
//REC092 DD DISP=SHR,DSN=&OLDPREF.046&OLDSUF
//REC093 DD DISP=SHR,DSN=&OLDPREF.046&OLDSUF
//REC094 DD DISP=SHR,DSN=&OLDPREF.047&OLDSUF
//REC095 DD DISP=SHR,DSN=&OLDPREF.047&OLDSUF
//REC096 DD DISP=SHR,DSN=&OLDPREF.048&OLDSUF
//REC097 DD DISP=SHR,DSN=&OLDPREF.048&OLDSUF
//REC098 DD DISP=SHR,DSN=&OLDPREF.049&OLDSUF
//REC099 DD DISP=SHR,DSN=&OLDPREF.049&OLDSUF
//REC100 DD DISP=SHR,DSN=&OLDPREF.050&OLDSUF
//REC101 DD DISP=SHR,DSN=&OLDPREF.050&OLDSUF
//REC102 DD DISP=SHR,DSN=&OLDPREF.051&OLDSUF
//REC103 DD DISP=SHR,DSN=&OLDPREF.051&OLDSUF
//REC104 DD DISP=SHR,DSN=&OLDPREF.052&OLDSUF
//REC105 DD DISP=SHR,DSN=&OLDPREF.052&OLDSUF
//REC106 DD DISP=SHR,DSN=&OLDPREF.053&OLDSUF
//REC107 DD DISP=SHR,DSN=&OLDPREF.053&OLDSUF
//REC108 DD DISP=SHR,DSN=&OLDPREF.054&OLDSUF
//REC109 DD DISP=SHR,DSN=&OLDPREF.054&OLDSUF
//REC110 DD DISP=SHR,DSN=&OLDPREF.055&OLDSUF
//REC111 DD DISP=SHR,DSN=&OLDPREF.055&OLDSUF
//REC112 DD DISP=SHR,DSN=&OLDPREF.056&OLDSUF
//REC113 DD DISP=SHR,DSN=&OLDPREF.056&OLDSUF
//REC114 DD DISP=SHR,DSN=&OLDPREF.057&OLDSUF
//REC115 DD DISP=SHR,DSN=&OLDPREF.057&OLDSUF
//REC116 DD DISP=SHR,DSN=&OLDPREF.058&OLDSUF
//REC117 DD DISP=SHR,DSN=&OLDPREF.058&OLDSUF
//REC118 DD DISP=SHR,DSN=&OLDPREF.059&OLDSUF
//REC119 DD DISP=SHR,DSN=&OLDPREF.059&OLDSUF
//REC120 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//REC121 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//REC122 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//REC123 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//REC124 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//REC125 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//REC126 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//REC127 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//REC128 DD DISP=SHR,DSN=&OLDPREF.060&OLDSUF
//SYSIN DD *
-- tSyUtD: WORKDDN(1,) [SYSUT1] fuer check, load, merge
TEMPLATE TSYUTL DSN('&SSID..&DB..&SN..P&PART..&UNIQ..UT')
DATACLAS(ENN35) MGMTCLAS(COM#E005)
SPACE TRK MAXPRIME 60000
-- tSOutD: WORKDDN(,2) [SORTOUT] fuer checkData, load
TEMPLATE TSOUTL DSN('&SSID..&DB..&SN..P&PART..&UNIQ..SRT')
DATACLAS(ENN35) MGMTCLAS(COM#E005)
SPACE TRK MAXPRIME 60000
LOAD DATA LOG NO EBCDIC CCSID(00500,00000,00000)
ENFORCE NO
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
WORKDDN(TSYUTL,TSOUTL)
SORTKEYS
SORTDEVT DISK
-- SORTNUM 160
INDEXDEFER NPI
----------------- 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'
)
----------------- part --------------------
INTO TABLE A540769.TPER21A1 PART 065
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC065
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 066
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC066
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 067
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC067
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 068
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC068
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 069
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC069
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 070
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC070
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 071
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC071
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 072
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC072
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 073
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC073
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 074
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC074
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 075
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC075
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 076
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC076
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 077
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC077
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 078
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC078
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 079
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC079
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 080
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC080
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 081
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC081
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 082
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC082
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 083
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC083
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 084
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC084
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 085
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC085
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 086
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC086
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 087
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC087
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 088
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC088
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 089
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC089
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 090
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC090
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 091
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC091
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 092
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC092
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 093
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC093
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 094
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC094
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 095
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC095
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 096
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC096
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 097
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC097
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 098
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC098
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 099
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC099
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 100
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC100
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 101
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC101
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 102
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC102
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 103
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC103
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 104
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC104
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 105
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC105
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 106
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC106
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 107
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC107
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 108
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC108
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 109
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC109
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 110
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC110
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 111
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC111
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 112
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC112
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 113
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC113
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 114
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC114
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 115
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC115
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 116
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC116
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 117
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC117
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 118
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC118
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 119
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC119
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 120
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC120
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 121
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC121
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 122
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC122
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 123
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC123
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 124
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC124
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 125
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC125
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 126
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC126
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 127
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC127
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 128
RESUME NO REPLACE COPYDDN(TCOPYS) INDDN REC128
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'
)