252B BackupClose¶

Stub MON 252B (170 decimal) · Mnemonic BCLOS · Group: File Operations (manual section 2.4)

Available from: All programs (manual compatibility box)

Emulation source: src/handlers/mon_252B_BackupClose.c

Description¶

Closes a file. The version number and the last date accessed are unchanged. The number of pages in temporary files and spooling files is not affected.

Notes¶

This monitor call is mainly used by the BACKUP-SYSTEM.

Parameters¶

Name	Type	Direction	Description
`FileNumber`	INTEGER	In	File number of the opened file. See OpenFile.
`Flag`	INTEGER	In	Modified flag. If 0, the file is not marked as modified.

Direction: In = the program supplies the value, Out = the call returns it, In/Out = both.

Compatibility¶

Machines	Users	Programs
ND-100 and ND-500	All users	All programs

The manual's compatibility box for this call, word for word.

Yes/no fields from the YAML extraction (not in the manual's words):

ND-100	ND-500	User programs	RT programs	System programs
Yes	Yes	Yes	Yes	No

Examples¶

From the manual (OCR text, not corrected).

PLANCFORTRANPascalCOBOLASSEMBLY-500MAC

INTEGER : FileNumber, Flag
...
ON ROUTINEERROR DO
    IF ErrCode <> 0 THEN ...
ENDON
Monitor_Call('BackupClose', FileNumber, Flag)

INTEGER FileNumber, Flag
...
Monitor_Call ('BackupClose', FileNumber, Flag)
IF (ErrCode .NE. 0) THEN ...

FileNumber, Flag : INTEGER2;
...
BackupClose(FileNumber, Flag);
IF ErrCode <> 0 THEN ...

01 FileNumber COMP.
01 Flag COMP.
01 ErrCode COMP.
...
MONITOR-CALL "BackupClose" USING FileNumber, Flag.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

FileNumber : W BLOCK 1
Flag : W BLOCK 1
ErrCode : W BLOCK 1
BackupClose : EQU 37B9 + 252B
...
CALLG BackupClose, 2, FileNumber, Flag
    IF K GO ERROR
...
ERROR : W1 =: ErrCode              %ErrorCode in W1 register.

LDT FILNO      %File number returned from earlier open.
LDA FLAG       %Reset modified flag.
MON 252        %Monitor call BackupClose.
JMP ERROR      %Error return from monitor call.
...            %Normal return.
ERROR, ...     %Error number in register A.
...
FILNO, ...
FLAG, ...

ndmonlib implementation¶

Stub Registered MON_STATUS_NOT_IMPLEMENTED: the handler is a stub. mon_dispatch() in src/core/mon_dispatch.c reports the call as unimplemented without calling it.


Handler	`mon_252B_BackupClose`
Code lines	7 (non-blank, non-comment lines in the file)

Source¶

SINTRAN III Monitor Calls (ND-860228.2 EN).