RE: File having an array using new free form

Nice

-----Original Message-----
From: Barbara Morris [mailto:bmorris@xxxxxxxxxx]
Sent: Thursday, June 14, 2018 5:32 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: File having an array using new free form

On 2018-06-13 1:06 PM, Justin Taylor wrote:

EXTNAME brings in the external columns, so that won't allow you to make an array. My thought was to manually define your DS, rather than use EXTNAME. Plan B would be to define a second DS and just move your I/O DS to/from the second DS.

You can define additional subfields for an EXTNAME DS.

dcl-ds x extname('MYFILE');
array like(field1) dim(32) pos(whatever);
another_subfield_that_follows_the_external_subfields char(10); end-ds;

You could do that in fixed-form too.

D x e ds extname('MYFILE')
D array like(field1) dim(32)
D overlay(x:whatever)

--
Barbara