RE: File having an array using new free form

Thanks for the reply Justin
The answer to your question is - I don't know
Im having a complete moronic time at the moment

I have a file called CHNLANALP that has this
dcl-ds CHA Extname('CHNLANALP') qualified end-ds;
In the program
The last 32 fields on this file need to be redefined as
Indfield DIM(32)

But I just cannot see what I need to do

Hope that makes sense



Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill


-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Justin Taylor
Sent: Tuesday, June 12, 2018 1:54 PM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: [EXTERNAL] RE: File having an array using new free form

Assuming you're asking about RPG, can't you just define you I/O data structure to contain an array?



-----Original Message-----
From: Alan Shore [mailto:ashore@xxxxxxxx]
Sent: Tuesday, June 12, 2018 12:33 PM
To: midrange-l@xxxxxxxxxxxx
Subject: File having an array using new free form

Hi everyone
Before I forget - we are on V7r1

Here is my situation - hope that it makes sense

I have defined a file where the last 32 fields on the record are all the same size Fields 1 through 31 represent the day of the month, with field 32 being the total of fields 1 through 31

How can I define these fields within my program (using new free-form) so that these 32 fields are an array That way, I can use the day of the month to determine which occurrence I need to deal with

Like I said - I hope my question makes sense

As always - all answers gratefully accepted

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD