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

[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