home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / FINALBASE1_1.DMS / in.adf / Fbase / beispiel.rx03 < prev    next >
Encoding:
Text File  |  1993-09-06  |  788 b   |  27 lines
  1. /*    Datenfelder für die gesamte Datei ändern     */
  2.  
  3. AutoSicherung 0
  4.  
  5. SuchPara         /* Suchparameter übergeben         */
  6.   5 77777         /* im Feld 5 (PLZ) soll  Wert '77777'  */
  7. EndPara          /* gesucht werden                */
  8.  
  9. xrc = 0          /* Variable für Returncodeprüfung initialisieren  */
  10.  
  11. do while xrc = 0     /* ausführen, solange Returncode = 0, d. h solange */
  12.              /* kein Fehler auftritt                */
  13.  
  14.    Suchen         /* Datensatz prüfen         */
  15.    xrc = xrc + rc    /* evtl. Fehler-Code merken     */
  16.    if rc = 50         /* Bei Dateiende "Ändern" überspringen*/
  17.       then iterate
  18.  
  19.    SatzAendern         /* Wenn zutreffender Datensatz gefunden wurde    */
  20.       5 78787         /* wird PLZ geändert in '78787'                    */
  21.    EndPara
  22.    xrc = xrc + rc    /* evtl. Fehler-Code merken     */
  23.  
  24. end
  25. exit
  26.  
  27.