I do not succeed to make it write CM77 to the right hand of CM77000010 and subsequently 000010 to the right hand of CM77 so thread to the end of the piece, then to distribute from the column PACKAGE with the data of the second piece.
Joined: 26 Apr 2004 Posts: 4648 Location: Raleigh, NC, USA
My possible solution:
rec = ''
Do i = 1 To var.0
Parse Var var.i '<' ident '>' value '<' .
If ident = 'RESULT' Then rec = '|'
Else If ident = '/RESULT' Then Queue rec
Else rec = rec||value||'|'
"EXECIO "Queued()" DISKW OUT001 (FINIS"