|
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: 11130 (0x2b7a)
Notes: pts_type(SC)
Names: »QIRDBS.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/QIRDBS.SC«
IDENT QIRDBS DATABASE RECOVERY
DDUM DEMODD
PDIV
EXPROC ZAOPND
EXPROC ZBCLSD
EXPROC ZCRDD
EXPROC ZDRWRD
EXPROC ZEINSD
EXPROC ZGREA
EXPROC MASK
EXT GETLRN
EXT PUTLRN PHYSICAL UPDATE LRN
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*
* UNTIL THE FIRST RECORD WITH NO DATA
* THEN THE NEW LRN IS WRITTEN TO DISK
*
MOVE WC1STRG8,='DATABA ' DATABASE NAME
MOVE WCSTRG6,='DSC000' ARBITRARY VOLUM E NAME
XCOPY WCSTRG6,KW3,KW3,VCVOLNR1,KW0 CURRENT VOLNR
CALL GETLRN,WC1STRG8,1,WCSTRG6,WW1,NWXSTAT
MOVE NDLRN2,WW1 CONVERT TO DECIMAL
**