Re: Array of Packed Blanks in Alpha Field

[Alan Campin <alan0307d@xxxxxxxxx>]

Not sure I understand the problem. It is just

d aPackedDs...
d                            ds                         Qualified
d     OneValue...
d                                                5p 2   Dim(366)

d x...
d                            s                  10i 0
  /Free

   aPackedDs = InField;

    For x = 1 To 366;
       Monitor;
           aField = aPackedDs.OneValue(x);
       On-Error;
          Leave;
       EndMon;
   EndFor;


I assume that the problem is that not all the fields are initialized to some
value and have blanks in them?  I don't really like the monitor because it
will fill the logs with error messages but alternative is to just code a
function to check for numeric.



On Thu, Jun 2, 2011 at 9: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
>
> ****************
>
>
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.