247B ReleaseDir¶

Stub MON 247B (167 decimal) · Mnemonic RLDIR · Group: File System Operations (manual section 2.9)

Available from: All programs (manual compatibility box)

Emulation source: src/handlers/mon_247B_ReleaseDir.c

Description¶

Releases a directory. The directory must have been reserved with ReserveDir.

Parameters¶

Name	Type	Direction	Description
`DirectoryIndex`	INTEGER	In	Directory index. Use @LIST-DIRECTORIES to find the directory index.

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	No	No	No

Examples¶

From the manual (OCR text, not corrected).

FORTRANPascalCOBOLASSEMBLY-500MAC

INTEGER DirectoryIndex
...
Monitor_Call('ReleaseDir', DirectoryIndex)
IF (ErrCode .NE. 0) THEN ...

DirectoryIndex : INTEGER2;
...
RelDirectory(DirectoryIndex);      [Note routine name.]
IF ErrCode <> 0 THEN ...

01 DirectoryIndex COMP.
01 ErrCode COMP.
...
MONITOR-CALL "ReleaseDir" USING DirectoryIndex.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

DirectoryIndex : W BLOCK 1
ErrCode : W BLOCK 1
ReleaseDir : EQU 3789 + 247B
...
CALLG ReleaseDir, 1, DirectoryIndex
IF K GO ERROR
...
ERROR : W1 =: ErrCode       %ErrorCode in W1 register.

LDT DIRIX      %Directory index.
MON 247        %Monitor call ReleaseDir.
JMP ERROR      %Error return from monitor call.
...            %Normal return.
ERROR, ...     %Error number in register A.
...
DIRIX, ...

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_247B_ReleaseDir`
Code lines	6 (non-blank, non-comment lines in the file)

Source¶

SINTRAN III Monitor Calls (ND-860228.2 EN), page 409.