|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 832 (0x340)
Types: TextFile
Names: »MY_MOD.TXT«
└─⟦6a1b9f2c5⟧ Bits:30005310/disk3.imd Open Access II v2.10 (dansk)
└─⟦this⟧ »MY_MOD.TXT«
!==============================================================ø
! my_mod: Allows user to select and modify record. Assumes ø
! view already defined and used in main program. ø
! Calls my_veri before adding record to database. ø
!==============================================================ø
LIST data !LIST's records, like the database RETRIEVE command
GET data !Allow user to change record
data.updated = SYSDATE !Make sure updated field is set to today
message = 'Modify this record.'
DO my_veri
IF do_it
REPLACE data !Write record to database file
USE data DISPLAY cust !Activates the View
END IF
!____________________________________________________________________________