Re: Convert DS to Free Format

[Booth Martin <booth@xxxxxxxxxxxx>]

What happens if you name the DS itself  as   S1CON dim(30) and remove 
all of the pos() ?


On 1/7/2020 1:35 PM, Greg Wilburn wrote:
> I give up... I've been pulling my hair out trying to convert this to free format:
>
>       D                 DS
>       D  S1CON                  1     30
>       D  S1CN01                 1      9
>       D  S1CN02                10     18
>       D  S1CN03                19     22
>       D  S1CN04                23     26
>       D  S1CN05                27     30
>       D*
>
>
> Using the JCR Tools, it converted to this:
>
>
>     dcl-ds *n;
>       s1con              char(30) pos(1);
>       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;
>
> I had to add DIM(30) to the S1CON so the program logic would work (the old code used MOVEA to move an array into S1CON)
>
>     dcl-ds *n;
>       s1con              char(30) 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;
>
> No matter what I do... I get 1 character in S1CN01 and nothing more.