Re: Data structure gets populated for a junk value

"MD, Sadique" wrote:
> ...
> File2 defined as below
> 
> A          R REC1
> A            PACKED        11P 2
> A            NUM            4S 0
> 
> I have a RPG program as below
> 
> FFILE1   IF  E                    DISK
> IDS        EIDSFILE2
> 
> C                     READ FILE1                    80
> C           *IN80     DOWEQ*OFF
> C                     Z-ADDFLD1      PACKED
> C           DS        DSPLY
> ...
> 1) The problem is the data structure "DS" is populated with Junk value
> ...

If you want "DS" to have readable values for DSPLY, you can define it in
RPGLE like this:

D DS             DS
D   PACKED
D   NUM

Don't put in any type information, just list the names.  That way, the
packed fields will get defined as zoned decimal and the data structure
will look nice in DSPLY.

But if you are only using DSPLY for debugging purposes, I think you
would be better off just using the debugger.  Defining your data
structure with explicit field names is unnecessary hard-coding.  Or, if
you want a temporary DSPLY to debug something without using the
debugger, you could do it this way:
C           'PACKED'  DSPLY          PACKED
C           'NUM'     DSPLY          NUM