altes rpg, in einem string was tauschen

[malzusrex]

ILE ist natürlich besser,
im 36er-Code geht es auch. Das mit dem nicht genau wissen wo und suchen war mir so nicht ersichtlich.

     E                    ARA        16  1             
     E                    ARB        20  1             
      *                                                
     C                     MOVEL'ABCDEFGH'TEXT   16    
     C                     MOVE 'IJKLMNOP'TEXT         
     C                     MOVE 'XXXX'    TEXT4   4    
      *                                                
     C                     MOVEATEXT      ARA          
     C           'DE'      SCAN TEXT      P       20   
     C           P         ADD  1         BIS     20   
     C           1         DO   BIS       I       20   
     C                     MOVEAARA,I     HILFE   1    
     C                     MOVEAHILFE     ARB,I        
     C                     ENDDO                       
     C                     MOVEATEXT4     ARB,I        
     C           I         ADD  4         P            
     C                     MOVEAARA,I     ARB,P        
     C                     MOVEAARB       TEXT20 20 
      *                                                
     C                     SETON                     LR 

In diesem Beispiel wird nach 'DE' in TEXT gesucht.
Nach dem DE wird wieder die 4*XXXX eingefügt

Gruß
Ronald

gar nicht mehr so einfach in dem alten Code zu denken..

[ExAzubi]

Es gibt auch in RPT den befehl SUBST

C      LEN    SUBST    BASIS       ZZTEXT 
C               CHECKR  VARIAB      L1 
C               CAT       VARIAB:0   ZZTEXT
C               SUBST    BASIS:L1   ZZTXT1
C               CAT       ZZTXT1:0   ZZTEXT

So sollte es gehen :-)

I Love The Basics