TI output having the problem

[mincharug.shulft]

i have the following n-no.of elements in my dimension so i what it omit the whichever element having "CO" and
other elements alone i want it for that i am using following condition
even though its not coming without "CO" elemenets .can someone help please?

ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02
ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02.CP-305.CB-285
ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02.CP-305.CB-285.CO-01
ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02.CP-305.CB-285
ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02.CP-305.CB-285.CO-01
ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02.CP-305.CB-285.CO-01
ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02.PC-305.CN-286
ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02.NC-305.CN-282
ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02.CP-305.CB-285.CO-01
ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02.CP-305.CN-289
ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02.PC-305.CF-285
ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02.CP-305.CT-288
ZC0000043.ZP002-01.ZN01-01.ZL018-01.ZI0628_00-02.CP-305.CB-285.CO-01



eles=DIMSIZ('ZC0000043');
k=1;
while(k<=eles);
elementname=DIMNM('ZC0000043',k);
length=LONG(elementname);
j=1;
while(j<=length);
id=SUBST(elementname,length1-j,j);
IF((SUBST(id,1,2) )@<>'CO') );
asciioutput('text.txt',elementname);

endif;
j=j+1;
end;
k=k+1;
end;

[Martin Ryan]

Sorry, I can't follow exactly what you're asking, but I think the solution to your problem is the "scan" function.