|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M 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)
└─⟦6a1b9f2c5⟧ Bits:30002675 Open Access II v2.10 Disk 3/5 - Dansk - RC Partner
└─⟦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
!____________________________________________________________________________