Bei meinem erten sql mit update werden die Felder nicht aktualisiert.
Der Select funktioniert und die UF-Felder werden mit den gewünschten Daten gefüllt. Aber die Dateifelder behalten ihren Ausgangewert.
Das Programm wurde mit commit *none umgewandelt.
Es kommt zu keiner Fehlermeldung.


Was hbe ich übersehen?

C UPDIN BEGSR
C************************************************* ***************
C/EXEC SQL
C+ Declare upzeig cursor for
C+ select prkhs, prfir, prdtjj, prdtmm, prdtdd, prart, przah,
C+ prsts, prsa, prtxt, prpro, prwer, prbis, prspe
C+ from preipf
C+ where prkhs = :cmnr and prfir = 3
C+ order by prfir, prart, przah
C/END-EXEC
C MOVE *ZEROS UFKHS 70
C MOVE *BLANKS UFTXT 70
C MOVE *BLANKS UFSTS 1
C MOVE *BLANKS UFSPE 1
C MOVE *ZEROS UFFIR 20
C MOVE *BLANKS UFSA 3
C MOVE *ZEROS UFDTMM 20
C MOVE *ZEROS UFDTDD 20
C MOVE *ZEROS UFDTJJ 40
C MOVE *ZEROS UFART 40
C MOVE *ZEROS UFZAH 30
C MOVE *ZEROS UFPRO 52
C MOVE *ZEROS UFWER 92
C MOVE *ZEROS UFBIS 92
C/EXEC SQL
C+ open upzeig
C/END-EXEC
C SQLCOD DOWNE100
C/EXEC SQL
C+ fetch upzeig into :ufkhs,
C+ :uffir, :ufdtjj, :ufdtmm, :ufdtdd, :ufart, :ufzah,
C+ :ufsts, :ufsa, :uftxt, :ufpro, :ufwer, :ufbis, :ufspe
C/END-EXEC
C SQLCOD CABEQ100 EUPD
C SELEC
C PRART WHEQ 10
C Z-ADDBKDA UFPRO
C Z-ADDBUEP UFWER
C HEUTE CAT USER UFTXT
C UFART WHEQ 101
C Z-ADDBAOP1 UFWER
C Z-ADDBAOHB1 UFBIS
C Z-ADDBPROV1 UFPRO
C MOVE BAUSL1 UFSTS
C ENDSL
C/EXEC SQL
C+ update preipf
C+ set PRPRO = :UFPRO, PRWER = :UFWER, PRBIS = :UFBIS,
C+ PRTXT = :UFTXT, PRSA = :UFSA,
C+ PRSTS = :UFSTS
C+ where current of upzeig
C/END-EXEC
C ENDDO
C EUPD TAG
C/EXEC SQL
C+ close upzeig
C/END-EXEC
C************************************************* ***************
C ENDSR