top - download
⟦6f1ebd261⟧ Wang Wps File
Length: 632 (0x278)
Types: Wang Wps File
Notes: Spelunked
Names: »~ORPHAN04.05«
Derivation
└─⟦c333b847f⟧ Bits:30005811 8" Wang WCS floppy, CR 0118A
└─ ⟦this⟧ »~ORPHAN04.05«
WangText
Open CIF 4.1.5.2
- Close CIF 4.1.5.3
a) S̲t̲o̲r̲e̲
N̲a̲r̲r̲a̲t̲i̲v̲e̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
Refer 4.2.3.4.1.1
Flowgram: Refer figure 4.2.3.4.1.5-1…86…1…02… …02… …02… …02… …02…
PROCEDURE STORE
INCREMENT(NUMBER ̲OF ̲STORE ̲CALLS)
CASE GET ̲CIF( )(CIFCB,VCB,CC):ERROR ̲OK
ERROR?
END CASE
CASE OPEN ̲CIF(CIFCB,FALSE)(LOCK,CC):ERROR ̲OK
ERROR ?
END CASE
CIFCB.CHECKPOINT ̲STATUS EQ FALSE OR ? CC = STORE ̲NOT ̲ALLOWED
CIFCB.FIELD ̲GROUP ̲TYPES EQ 0
CIFCB.SECURITY ̲PROFILE NOT
CONTAINED IN STORE PROFILE ?
VCB.STORAGE ̲STATUS = TRUE
CIFCB.STORE ̲TIME = CURRENT ̲TIME
Put CIFCB.CIF ̲ID
