Finden und Löschen

[Pikachu]

DPOS              S             10S 0 INZ                              
DFELD             S            100A   INZ('770.35.008.000')            
D**********************************************************************
C     '.'           SCAN      FELD          POS                    7778
C     *IN78         DOWEQ     *ON                                      
C                   EVAL      FELD = %REPLACE('':FELD:POS:1)           
C     '.'           SCAN      FELD:POS      POS                    7778
C                   ENDDO                                              
C                   SETON                                            LR