|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 14078 (0x36fe)
Notes: pts_type(SC)
Names: »QIRDBS.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/QIRDBS.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/QIRDBS.SC«
IDENT QIRDBS DATABASE RECOVERY
DDUM DEMODD
PDIV
EXPROC ZAOPND
EXPROC ZBCLSD
EXPROC ZCRDD
EXPROC ZDRWRD
EXPROC ZEINSD
EXPROC ZGREA
EXPROC MASK
ENTRY QIRDBS
************************************************************************
* *
* DATABASE RECOVERY*
* - UPDATE THE LAST RECORD NUMBER OF THE DATABASE*
* - UPDATE SYSTEM RECORD VARIABLES:*
* YDLASSAV, YDLASCHQ, YDLASSEQ*
* - RESET THE STATUS OF ALL ACCOUNT RECORDS TO DEBLOCKED*
* *
************************************************************************
QIRDBS PROC
QI000
* *
* UPDATE THE LAST RECORD NUMBER OF THE DATABASE*
**
* TO DO THIS, THE RECORDS BEHIND THE LRN ARE RANDOMLY READ*
* BY 'RREAD', THEN THESE RECORDS ARE INDEXED DELETED*
* AND AFTER THAT INDEXED INSERTED AGAIN*
**