RE: [EXTERNAL] RE: File having an array using new free form

[dlclark@xxxxxxxxxxxxxxxx]

David L Clark/it/crp/WinWholesale wrote on 06/13/2018 11:08:37 AM:
>  OK, just so we're clear...  and at the risk of sounding like Captain 
Obvious
> ...  Using this example:
>
> dcl-ds MyRecord extname('MyFile') qualified end-ds;
>
> dcl-s  MyAryPtr pointer inz(%addr(MyRecord.Field1));
> dcl-s  MyArray  like(MyRecord.Field1) dim(32) based(MyAryPtr);
>
>  Just make sure you're reading the data into your version of the 
> MyRecord data structure shown above -- whether you're using SQL or 
> RLA.  The free-form RLA example is as follows:
>
> read(e) MyFile MyRecord;


        By the way...  That all assumes a single record-format file.  The 
"extname" keyword has additional parameters for handling multiple record 
formats as separate data structures.


Sincerely,

Dave Clark