213B GetDirUserIndexes¶
Stub MON 213B (139 decimal) · Mnemonic MUIDI · Group: File System Operations (manual section 2.9)
Available from: All programs (manual compatibility box)
Emulation source: src/handlers/mon_213B_GetDirUserIndexes.c
Description¶
Gets a directory index and a user index. You have to specify a directory name and a user name.
- Use ExecutionInfo to get the user index and the directory index of the user executing a program.
Parameters¶
| Name | Type | Direction | Description |
|---|---|---|---|
UserName |
STRING | In | Directory and user name string (up to 16 chars), e.g. 'A-HANSEN'. |
DirIndex |
INTEGER | Out | Directory index. |
UserIndex |
INTEGER | Out | User index. |
Direction: In = the program supplies the value, Out = the call returns it, In/Out = both.
See also¶
GetDirNameIndexes, GetUserIndex, and GetAllFileIndexes
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).
BYTES : UserName(0:15)
INTEGER : DirIndex, UserIndex
...
ON ROUTINEERROR DO
IF ErrCode >< 0 THEN ...
ENDON
Monitor_Call('GetDirUserIndexes', UserName, DirIndex, UserIndex)
CHARACTER UserName*16
INTEGER DirIndex, UserIndex
...
Monitor Call('GetDirUserIndexes',UserName(1:16),DirIndex,UserIndex)
IF (ErrCode .NE. 0) THEN ...
UserName : PACKED ARRAY [0..15] OF CHAR;
DirIndex, UserIndex : INTEGER2;
...
GetDirUserIndexes(UserName, DirIndex, UserIndex);
IF ErrCode <> 0 THEN ...
01 UserName PIC X(16).
01 DirIndex COMP.
01 UserIndex COMP.
01 ErrCode COMP.
...
MONITOR-CALL "GetDirUserIndexes" USING UserName, DirIndex, UserIndex.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...
UserName : STRINGDATA 'A-HANSEN'''
DirIndex : W BLOCK 1
UserIndex : W BLOCK 1
ErrCode : W BLOCK 1
GetDirUserIndexes : EQU 37B9 + 213B
CALLG GetDirUserIndexes, 3, UserName, DirIndex, UserIndex
IF K GO ERROR
ERROR : W1 =: ErrCode
%ErrorCode in W1 register.
LDX (USER
%Address of string with directory and user name.
MON 213
%Monitor call GetDirUserIndexes.
JMP ERROR
%Error return from monitor call.
STT INDEX
%Normal return, store indexes.
ERROR, ...
%Error number in register A.
USER, 'A-HANSEN'
%Obtain indexes for A-HANSEN.
INDEX, 0
%Left byte: dir index. Right byte: user index.
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_213B_GetDirUserIndexes |
| Code lines | 6 (non-blank, non-comment lines in the file) |
Source¶
SINTRAN III Monitor Calls (ND-860228.2 EN), page 237.