Re: Stuck on what the free form equivalent shou;ld be

Well most of us wouldn't have used from/to to begin with which is perhaps why you are not seeing examples.

If you had coded it this way:

D ebcdicDS DS
D charChannel 1a
D ebcdicChanel 3u Overlay(charChannel)

The conversions is now a bit more obvious i.e.

Dcl-ds ebcdicDS;
charChannel char(1);
ebcdicChanel uns(3) Overlay(charChannel);
End-ds;

You know you have two spellings there for channel right?

Since you are in position 1 of the Ds you could also code both fields as being Pos(1) - but there's no need.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Jan 16, 2019, at 8:42 AM, Alan Shore <ashore@xxxxxxxx> wrote:

Hi everyone
We are on V7r3
I have vowed to use free form in anything new that I create or changes to any existing programs
However, I am at a loss as to the following data structure I have to use in a new program
From an existing program, the data structure is

D ebcdicDS ds
D charChannel 1 1a
D ebcdicChanel 1 1u 0


I would be very grateful for any help on this



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@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
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: https://amazon.midrange.com