Re: Data area - not working

[Brian Parkins <parkib@xxxxxxxxxx>]

Data Structures are by definition of character data type.  Your Data Area 
is defined as numeric, (and hence contains just a single numeric value).

If my memory is correct, you cannot therefore map a Data Structure over a 
numeric Data Area. 

You CAN map a (packed) numeric subfield - or regular variable - over a 
numeric Data Area as follows:

     C           *NAMVAR   DEFN LAVGCL    AVGCLL  52 
     C                     IN   AVGCLL 
      * 
     C           AVGCLL    DSPLY'*EXT' 
     C                     MOVE *ON       *INLR 

or

     ILAVGCL      DS 
     I                                    P   1   32AVGCLL 
     C           *NAMVAR   DEFN LAVGCL    AVGCLL 
     C                     IN   AVGCLL 
      * 
     C           AVGCLL    DSPLY'*EXT' 
     C                     MOVE *ON       *INLR 

Incidentally, the 'U' in UDS just means the Data Area will be implicitly 
read in (and written out) during program initialisation (and termination). 
 This has nothing to do with the *LDA - unless you leave the Data 
Structure name blank - whereupon the *LDA is assumed.

Confusing?  RPG IV makes the rules much easier to follow through the use 
of the DTAARA keyword on the D-spec.

Brian Parkins