RE: [EXTERNAL] Convert DS to Free Format

[Alan Shore <ashore@xxxxxxxx>]

Every now and again - I get one

The only reason why I was able to recognize this is that I have done this myself - WAAAAAAAYYYY too many times

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: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Joe Pluta
Sent: Tuesday, January 7, 2020 3:00 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: [EXTERNAL] Convert DS to Free Format

Great minds, Alan... :)  Your message showed up just as I sent my second one.

On 1/7/2020 1:39 PM, Alan Shore via RPG400-L wrote:
> Hi Greg
> I believe the data structure should be
>
>     dcl-ds *n;
>       s1con              char(1) pos(1) dim(30);
>       s1cn01             char(9)  pos(1);
>       s1cn02             char(9)  pos(10);
>       s1cn03             char(4)  pos(19);
>       s1cn04             char(4)  pos(23);
>       s1cn05             char(4)  pos(27);
>     end-ds;
> your way - S1con was 900 characters - 30 x 30 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