Fortlaufende Felder bestücken - Ist das abkürzbar?

[dholtmann]

Mein letztendliches Ziel ist es, eine packed Zahl auszulesen.

D $$_Var        S            100A   Based(Pointereins)
D Feld5          S                5P 0 Based(pointer)
D AFeld5        S                3A

c                   eval      AFeld5 =  %subst($$_Var:1:byteleng)
c                   eval      pointer = %addr(AFeld5)

So bekomme ich den Wert in mein Feld5. Das funktioniert auch super.
Aber ich würde mir gerne sparen, für jede Größe ein einzelnes Feld zu definieren.

[BenderD]

... wenn man denn meint das so machen zu wollen, dann würde ich das in eine Subprocedure huddle2packed auslagern, die kriegt einen Parameter huddle 32 alfa varying und gibt result als 63 packed zurück. In der procedure braucht man nur den huddle per memcopy an die richtige Stelle zu kopieren (%length beachten!) und mit return zurückgeben.

D*B

[Pikachu]

Mal was als Diskussionsgrundlage ...

D                 DS                                                   
DAFELD                          32A                                    
DFELD                           63P 0 OVERLAY(AFELD)                   
DVAR              S            100A   INZ(X'123456789D1234')           
DSTART            S              3P 0 INZ(3)                           
DDIGITS           S              3P 0 INZ(5)                           
DLEN              S              3P 0 INZ                              
DMSG              S             52A   INZ                              
D                                                                      
C     DIGITS        ADD       1             LEN                        
C                   DIV(H)    2             LEN                        
C                   MOVEL     *ALLX'00'     AFELD                      
C                   EVAL      %SUBST(AFELD:%SIZE(AFELD)-LEN+1:LEN) =   
C                             %SUBST(VAR:START:LEN)                    
C                   EVAL      MSG = %CHAR(FELD)                        
C     MSG           DSPLY     '*REQUESTER'                             
C                   SETON                                        LR