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