Hallo,

kenn mich noch nicht so mit rpg aus.

wie kann ich sätze von einer phy datei auslesn und in eine andere schreiben mit RPG?

Hätte so gedacht, aber der geht in meine if bedingung net rein -.-

Code:
FALADDR0 UF  E           K        DISK                      A 
F*                                                            
F*                                          
FVKKUND0 IF  E           K        DISK                        
 C           $KLAP     KLIST                
 C                     KFLD           IDEN01
 C                     READ VKKUNDR                  89 
 C*                                                     
 C           *IN89     DOWEQ'0'                         
 C*                                                     
 C                     MOVELKDNRKU    IDEN01            
 C*                                                     
 C           $KLAP    CHAINALADDRR              87     
 C           *IN87     IFEQ *OFF                        
 C*                                                     
 C                     MOVELFNA1KU    NAMEAD            
 C                     MOVELFNA2KU    VORNAD           
 C                     MOVELVSTRKU    STRAAD            
 C                     MOVELLANDKU    LANDAD            
 C                     MOVELFPLZKU    POLZAD            
 C                     MOVELVPSFKU    POFAAD            
 C                     MOVELPZPFKU    PLZPAD            
 C                     MOVELFORTKU    AORTAD            
 C                     MOVELTELFKU    TELEAD            
 C                     MOVELTELXKU    TFAXAD            
 C                     MOVELWTJJKU    GEBJAD            
 C                     MOVELWTTTKU    GEBTAD            
 C                     MOVELWTMMKU    GEBMAD            
 C                     MOVELURLKKU    WEBSAD            
 C                     MOVELEMAIKU    EMAIAD            
 C*                                                     
 C                     WRITEALADDRR                     
 C*                                                     
 C                     ENDIF                            
 C                     READ VKKUNDR                  89 
 C                     ENDDO 
 C           *LIKE     DEFN IDENAD    IDEN01
Vielen dank schonmal für eure antworten