chrisssiie
13-06-07, 14:08
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 -.-
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 ;)
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 -.-
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 ;)