|
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: 990 (0x3de)
Types: TextFile
Names: »MY_ENT.TXT«
└─⟦6a1b9f2c5⟧ Bits:30005310/disk3.imd Open Access II v2.10 (dansk)
└─⟦this⟧ »MY_ENT.TXT«
!=============================================================ø
!my_ent: Modified for speed -- view definition and use ø
! done only in main file. The use in the procedure ø
! is done only when a record is entered and the view ø
! must be updated. ø
!=============================================================!
!Assume data view already defined and used.
NEW data !set Current Field values to 0
GET data !allow user to enter record
data.updated = SYSDATE !make sure updated is set to today
message = 'Add this record?'
DO my_veri
IF do_it !IF ok to add record, then:
INSERT data !add the new record to database
USE data DISPLAY cust !reactivate view
END IF
!____________________________________________________________________________