Re: Array of Packed Blanks in Alpha Field

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

I don't understand why MOVEA wouldn't work...  but honestly, I haven't 
used MOVEA in like 15 years, so I don't remember it very well.

My instinct would be to do something like this:

     D                 DS
     D SCDLP
     D DLP                            5p 2 dim(366)
     D                                     overlay(SCDLP)

(This assumes SCDLP is the field from the file.)  To me, it's the most 
obvious solution -- you can clearly see that DLP is an array that's 
overlaying the SCDLP field.

If for some reason you can't put SCDLP in a data structure (because it's 
parameter, or you want it used in another DS, such as a LIKEREC or 
EXTNAME) then I'd do something like this:

     D dsDLP           DS
     D   DLP                          5p 2 dim(366) overlay(SCDLP)

And simply copy the SCDLP field to the DS.

     eval dsDLP = scDLP;

You could also use pointers -- but it's probably best to avoid them.

Hope that helps.


On 6/2/2011 10:22 AM, THarteau@xxxxxxxxxxxxxxxxxx wrote:
> Hi,
>          I have a file I have no control over. one of the fields is defined
> as 1098 long, alpha. What is actually is, is an 366 element array of
> packed 5.2 numbers.  I thought MOVEA used to work when trying to convert
> something like this, but it does not anymore. My program is in RPGLE.  I
> have tried different combinations of EVAL, MOVE, MOVEA, data structures&
> the %DEC bif.  The closest I have gotten is to have packed blanks in my
> numeric field. Any ideas on how to get 366 numeric fields?  Here is my
> code ( a bit cluttered because of the different things I have tried).
>
> D                 DS
> D  DLPA                          3
> D  DLPN                          5P 2
> D WkD             S              3    DIM(366)
> D DLP             S              5P 2 DIM(366)
>
> C                   IF        SCDLP<>  *blanks
> C                   MOVEA     SCDLP         WkD
> C                   EVAL      X = 0
> C*
> C                   DOU       X>= 366
> C                   EVAL      X = X + 1
> C                   MOVE      WkD(X)        DLPA
> C                   MOVE      WkD(X)        DLPN
> C                   EVAL      DLPA = WkD(X)
> C                   IF        DLPN<>  0
> C                   EVAL      DLP(X) = DLPN
> C                   ENDIF
> C                   ENDDO
> C*
> C                   ENDIF
> <===================================================>
>
> Terri Harteau
> Felker Brothers Corporation
> ****************
> "Do not follow where the path may lead. Go instead where there is no path
> and leave a trail."
> Ralph Waldo Emerson
>
> ****************