So könnte es gehen:
Code:
D TEXT            S              4A   INZ('0034')                      
D SIZE            S              2S 0 INZ(%SIZE(TEXT))                 
D COUNT           S              3S 0                                  
D**********************************************************************
C     '0'           CHECK     TEXT          COUNT                      
C     COUNT         IFEQ      *ZERO                                    
C                   ADD       SIZE          COUNT                      
C                   ENDIF                                              
C                   SUBST(P)  TEXT:COUNT    TEXT                       
C                   SUB       1             COUNT                      
C     ''            CAT       TEXT:COUNT    TEXT                       
C                   SETON                                        LR