Dattatraya - in unibasic almost any string handling task is possible! Hmm - funny how the original topic of this thread and the subsequent discussion of specifications, or lack of, seems to have come full circle.
Starting with REC - as read from disk. Presume REC has one or more multivalued fields. REC is to be written to the output file multiple times, subsequent lines taking the 1st, 2nd etc multivalue where the attribute is multivalued and taking the entire attribute otherwise. * Count how many multivalues are in each attribute MV.COUNT = "" NUM.ATTRS = DCOUNT(REC,@AM) FOR A = 1 TO NUM.ATTRS MV.COUNT<1,A> = DCOUNT(REC<A>,@VM) NEXT A * And find the highest number MAX.MVS = MAXIMUM(MV.COUNT) * Convert specific attributes to date format. * Note the OCONVS handles multivalued data - it converts each value separately. REC<9> = OCONVS(REC<9>,"D2/") * Now output a line for each multivalue FOR A = 1 TO MAX.MVS OUT.LINE = "" FOR B = 1 TO NUM.ATTRS IF MV.COUNT<1,A> EQ 1 THEN OUT.LINE<1,B> = REC<B> ELSE OUT.LINE<1,B> = REC<B,A> NEXT B WRITESEQ OUT.LINE ... NEXT A OUT.LINE = CHANGE(OUT.LINE,@VM,",") * Hope this helps - I've not compiled it so it might need a bit of tweaking to get it working. Ed -----Original Message----- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude Sent: 16 October 2009 05:20 To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Many Thanks George Now output is giving following way Jones, Bob,123 E. 23rd St.,Arvada,CO,80276,3037768854,V4341,9611,D C R,7,6 Frobisher, Kamal,P.O. Box 9845 ,Denver,CO,80209-4444,3037780880,,,K O,33,204 But I want following way ( D,C,R are multivalue ) , date output also showing 9611 which is (04/24/94) is it possible? Jones, Bob,123 E. 23rd St.,Arvada,CO,80276,3037768854,V4341,9611,D,7,6 Jones, Bob,123 E. 23rd St.,Arvada,CO,80276,3037768854,V4341,9611,C,7,6 Jones, Bob,123 E. 23rd St.,Arvada,CO,80276,3037768854,V4341,9611,R,7,6 Thanks & Regards, Dattatraya Walgude -----Original Message----- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of George Gallen Sent: Thursday, October 15, 2009 6:54 PM To: U2 Users List Subject: Re: [U2] Unibasic: Sample program - to extract data from Table Try first starting with: LINE = '' : CHANGE(CHANGE(REC,@AM,','),@VM,CHAR(10)) : ',':ID I think that the LF character might give you want you want George > -----Original Message----- > From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users- > boun...@listserver.u2ug.org] On Behalf Of Dattatraya Walgude > Sent: Thursday, October 15, 2009 1:59 AM > To: U2 Users List > Subject: Re: [U2] Unibasic: Sample program - to extract data from Table > > Sorry Symeon and all for asking such silly question. > > I manage @ID column in output.csv in following way, now I want > multivalue columns in new lines with all columns (now its comes in one > row/line) > > LINE = '' : CHANGE(CHANGE(REC,@AM,','),@VM,',') : ',':ID > > > Thanks & Regards, > Dattatraya Walgude > DBA Team _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users **************** Disclaimer ***************** This mail, including any attachments contains confidential and privileged information for the sole use of the addressee(s). If you are not the intended recipient, please notify the sender by e-mail and delete the original message. Any unauthorized review, use, disclosure, dissemination, forwarding, printing or copying of this email or any action taken in reliance on this e-mail is strictly prohibited and are unlawful. This e-mail may contain viruses. R Systems International Limited has taken every reasonable precaution to minimize this risk. R Systems International Limited is not liable for any damage you may sustain as a result of any virus in this e-mail. Before opening the e-mail or attachment, You should carry out your own virus checks. R Systems International Limited reserves the right to record, monitor, and inspect all email communications through its internal and external networks. R Systems International Ltd prohibits its information systems from being used to view, store or forward offensive or discriminatory material. ******** End of Disclaimer ******** _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ------------------------------------------------------------------------------------------- Please remember to recycle wherever possible. Reduce, reuse, recycle, think do you need to print this e-mail? ------------------------------------------------------------------------------------------- This e-mail and any attachment(s), is confidential and may be legally privileged. It is intended solely for the addressee. If you are not the addressee, dissemination, copying or use of this e-mail or any of its content is prohibited and may be unlawful. If you are not the intended recipient please inform the sender immediately and destroy the e-mail, any attachment(s) and any copies. All liability for viruses is excluded to the fullest extent permitted by law. It is your responsibility to scan or otherwise check this email and any attachment(s). Unless otherwise stated (i) views expressed in this message are those of the individual sender (ii) no contract may be construed by this e-mail. Emails may be monitored and you are taken to consent to this monitoring. Civica Services Limited, Company No. 02374268; Civica UK Limited, Company No. 01628868 Both companies are registered in England and Wales and each has its registered office at 2 Burston Road, Putney, London, SW15 6AR. ------------------------------------------------------------------------------------------- _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users