Laut Doku geht mit dem aktuellen Release einiges:

Code:
/* If no record has matching key, write a new record      */
IF  COND(&NUM_BYTES *EQ 0) THEN(DO)
  CHGVAR  VAR(&DATA) VALUE(&DATAIN)
  CHGVAR  VAR(&MOREDATA) VALUE('          ')
  CALLPRC  PRC('_Rwrite') +
           PARM((&RFILE *BYVAL) (&RECORD) (&RECORDSIZE *BYVAL)) +
           RTNVAL(&FEEDBACK)
 ENDDO
/* Record was read successfully, update the existing record  */
 ELSE (DO)
  CHGVAR  VAR(&DATA) VALUE(&DATAIN)
  CALLPRC  PRC('_Rupdate') +
           PARM((&RFILE *BYVAL) (&RECORD) (&RECORDSIZE *BYVAL)) +
           RTNVAL(&FEEDBACK)
 ENDDO
Vermutlich daher auch löschen, habe es mir aber nicht genauer angesehen

GG