Re: converting to new free form

There are actually at least two ways to do it.

Dcl-ds newLineNumDS;
newLineNumTmp zoned(4) Pos(1);
newLineNumLin zoned(10) Pos(1);
End-ds;

Although I would probably code it this way because I don't like using absolute positions unless I have to.

Dcl-ds newLineNumDS;
newLineNumLin zoned(10);
newLineNumTmp zoned(4) Overlay(newLineNumLin);
End-ds;

Not quite sure why you are doing this though unless you want to put in a 10 digit field and take out the first four digits. It won't work the other way round 'cos the zone of the 4 digit number will mess-up the 10 digit one.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Mar 12, 2019, at 9:12 AM, Alan Shore via MIDRANGE-L <midrange-l@xxxxxxxxxxxxxxxxxx> wrote:

Hi everyone
Before I forget - we are on V7r3

I am drawing a blank on converting this code to free form

D newLineNumDS DS 10
D newLineNumTmp 4s 0 Overlay(newLineNumDS)
D newLineNumLin 10s 0 Overlay(newLineNumDS)

Any help would be 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@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