altes rpg, in einem string was tauschen

[dibe]

Wieso Lochkarten?
Wir haben die alten Programme auf Streifen!
Danke für das Beispiel. Das 'können' wir auch.
Unser Problem ist, das wir halt nicht wissen WO im String wir was einfügen sollen. Das suchen wir vorher mit scan. Wir haben, auf anraten von Robi, das nun in ein ILE Pgm ausgelagert was wir rufen.

Danke
DB

[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