Re: Alternating arrays as D-spec

[mlazarus <mlazarus@xxxxxxxx>]

Justin,

 Assuming the file is externally described (and globally available to 
your procedure) and the fields are named as you have them in the I 
specs, you can set up the arrays in a DS (or 2):

D                 ds
D OCAry
D  OC1                                              Overlay( OCAry )
D  OC2                                              Overlay( OCAry: *Next )
D  OC3                                              Overlay( OCAry: *Next )
D  OC4                                              Overlay( OCAry: *Next )
D  OC5                                              Overlay( OCAry: *Next )
...
D  OC50                                            Overlay( OCAry: *Next )
D   OC                                               Overlay( OCAry ) 
Dim( 50 ) Like( OC1 )

D OQAry
D  OQ1                                              Overlay( OQAry )
D  OQ2                                              Overlay( OQAry: *Next )
D  OQ3                                              Overlay( OQAry: *Next )
D  OQ4                                              Overlay( OQAry: *Next )
D  OQ5                                              Overlay( OQAry: *Next )
...
D  OQ50                                            Overlay( OQAry: *Next )
D   OQ                                               Overlay( OQAry ) 
Dim( 50 ) Like( OQ1 )

 -mark

On 10/30/2015 10:38 AM, Justin Taylor wrote:
> I have a non externally-described PF that contains two 50 element arrays, but they alternate.
>
> Example:
>       I                             P   11   14 0C1(1)
>       I                                 16   17 0Q1(1)
>       I                             P   18   21 0C1(2)
>       I                                 23   24 0Q1(2)
>       I                             P   25   28 0C1(3)
>       I                                 30   31 0Q1(3)
>       I                             P   32   35 0C1(4)
>       I                                 37   38 0Q1(4)
>       I                             P   39   42 0C1(5)
>       I                                 44   45 0Q1(5)
>
>
> I need to declare this PF in a procedure, but I'm not sure the best way to do it.  Any suggestions?
>