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

[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