It's out matter but, I'm working with legacy
modernization. The company I work deals with
legacy modernization. Mainly in mainframes
[ ]
At 19:40 7/5/2009, you wrote:
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.n...@ntlworld.com (David W Noon)
=======================================================================
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
