Re: Convert DS to Free Format

[Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>]

Generally speaking, MOVEA is one of those things that requires work (or 
an orphan C-spec, depending on your development goals).

The JCR data structure is an exact match to the fixed-format original, 
that's not the problem.  The problem is that you can't do MOVEA, so you 
have to do a straight EVAL to an array in the same position.    You've 
created the correct array, now let's see how you move the data.

Wait a sec!  Looking at your array, you actually created a 900-byte 
array!  It's 30 elements of 30 characters!

Change it to "s1con char(1) pos(1) dim(30);" and all should be well.



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.