215B GetObjectEntry¶

Stub MON 215B (141 decimal) · Mnemonic DROBJ · Group: File System Operations (manual section 2.9)

Available from: All programs (manual compatibility box)

Emulation source: src/handlers/mon_215B_GetObjectEntry.c

Description¶

Gets information about a file. An object entry describes each file. It contains the file name, the access rights, the date last opened for read and write, the size, and more. See the file system description in appendix C. You specify the directory index, the user index, and the object index.

There is one object entry for each version of a file.
Only user SYSTEM can get the object entry of a file without read or write access to the file.
You may access files on remote computer systems. The computers must be connected through a COSMOS network.

Parameters¶

Name	Type	Direction	Description
`Buffer`	INTEGER2[32]	Out	The 64 byte object entry.
`DirIndex`	INTEGER2	In	The directory index. See GetAllFileIndexes.
`UserIndex`	INTEGER2	In	The user index. See GetAllFileIndexes.
`ObjectIndex`	INTEGER2	In	The object index. See GetAllFileIndexes.

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 : DirIndex, UserIndex, ObjIndex, RemoteFlag
BYTES : RemoteSystem(0:63)
BYTES : Buffer(0:63)
...
ON ROUTINEERROR DO
  IF ErrCode > 0 THEN ...
ENDON
Monitor_Call('GetObjectEntry', Buffer(0), DirIndex, UserIndex, ObjIndex,&
             RemoteFlag, RemoteSystem)

INTEGER DirIndex, UserIndex, ObjectIndex, RemoteFlag
CHARACTER RemoteSystem*64
INTEGER Buffer(32)
...
Monitor_Call('GetObjectEntry', Buffer(1), DirIndex, UserIndex,
   ObjectIndex, RemoteFlag, RemoteSystem(1:64))
IF (ErrCode .NE. 0) THEN ...

DirIndex, UserIndex, ObjectIndex : INTEGER2;
Buffer : ARRAY [0..1] OF RECORD...END;
...
GetObjectEntry(Buffer, DirIndex, UserIndex, ObjectIndex);
IF ErrCode <> 0 THEN ...

01 DirIndex COMP.
01 UserIndex COMP.
01 ObjectIndex COMP.
01 RemoteFlag COMP.
01 RemoteSystem PIC X(64).
01 Buffer.
   02 array COMP OCCURS 32 TIMES.
01 ErrCode COMP.
...
MONITOR-CALL "GetObjectEntry" USING Buffer, DirIndex, UserIndex,
   ObjectIndex, RemoteFlag, RemoteSystem)
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

DirIndex : W BLOCK 1
UserIndex : W BLOCK 1
ObjectIndex : W BLOCK 1
Buffer : STRING 208
SysId : STRING 16 %Optional parameter if bit 7 in DirIndex set.
ErrCode : W BLOCK 1
GetObjectEntry : EQU 3789 + 215B

...
CALLG GetObjectEntry, 4, Buffer, DirIndex, UserIndex ObjectIndex
IF K GO ERROR
...

ERROR : W1 =: ErrCode %ErrorCode in W1 register.

LDA (REMID      %Remote identification in register D.
COPY SA DD      %Set bit 15 in register T if remote file.
LDA (BUFF       %Address of buffer for returned object entry.
LDT INDEX       %Left byte: Dir index. Right byte: User index.
LDX OBJIX       %Object index.
MON 215         %Monitor call GetObjectEntry.
JMP ERROR       %Error return from monitor call.
...             %Normal return.
ERROR, ...      %Error number in register A.
  ...
BUFF, 0
*+40/           %Make a buffer of 32 words.
INDEX, ...      %Set bit 15 if remote object entry.
OBJIX, ...
REMID, 0        %Remote identification string..
*+40/           %Make a buffer of 32 words.




Scanned by Jonny Oddene for Sintran Data © 2020

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

Source¶

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