Nomads Simple File Maintenance tutorial
The following is a short tutorial to develop a simple file maintenance program using Nomads.
Maintenance Program listing |
!
custmaint --- Created on Wednesday, July 5 2006 by Mike
King ! ! PREDISPLAY_CUSTMAINT: arcust=hfn; open (arcust)"arcust" return ! PROCESS_CUST: read (arcust,key=cust$,dom=BADID)cust$,name$,address$,owes return BADID: \ msgbox "Invalid key" return ! PROCESS_REMOVE: remove (arcust,key=cust$,dom=BADID) msgbox "Record removed" return ! PROCESS_WRITE: write (arcust)cust$,name$,address$,owes return ! PROCESS_NEXT: cust$=key(arcust,end=ATEND) gosub PROCESS_CUST return ATEND: msgbox "At end of file" return ! PROCESS_PRIOR: cust$=kep(arcust,end=ATEND) gosub PROCESS_CUST return |