[fpc-pascal] A complex trouble(at least for me)

[David W Noon]

On Thu, 2009-05-07 at 18:12 -0300, Arí Ricardo Ody wrote:

> Suppose the following structure:
> 
> 01 a-1.
>    03 b-1 pic xxx.
>    03 b-2 pic 999.
>    03 b-3.
>       05 c-1 pic aaa.
>       05 c-2.
>          07 d-1 pic zzz.
>          07 d-2 pic xxx.
>       05 c-3 pic 99.
>    03 b-4 pic zzz.
>    03 b-5.
>       05 e-1 pic zzz.
> 
> All line not containing the word pic I would call a group item and the
> other lines will be elementary items.

This is loosely COBOL source code.
> 
> I would like to wrote a routine(or program) that save each group item
> and the elementary items contained in a StringList. Admit that the
> pattern of the structure is random. The example above is only an
> example.
> 
> In this example:
> StringList1 will contain 'a-1' '03 b-1 pic xxx.' '03 b-2 pic 999.' '03
> b-4 pic zzz.'
> StringList2 will contain 'b-3' '05 c-1 pic aaa.' '05 c-3 pic 99.'
> StringList3 will contain 'c-2' '07 d-1 pic zzz.' '07 d-2 pic xxx.'
> StringList4 will contain 'b-5' '05 e-1 pic zzz.'

Do you want to put the COBOL source into a TStringList?
> 
Are you trying to write a COBOL compiler?

If not, what are you trying to do?

-- 
Regards,

Dave  [RLU #314465]
=======================================================================
david.w.noon at ntlworld.com (David W Noon)
=======================================================================