316B SetRemoteAccess¶
Stub MON 316B (206 decimal) · Mnemonic SRLMO · Group: File System Operations (manual section 2.9)
Available from: All programs (manual compatibility box)
Emulation source: src/handlers/mon_316B_SetRemoteAccess.c
Description¶
Switches remote file access on and off. The COSMOS network allows you to access files in remote computers directly. Use DefaultRemoteSystem or QSET-DEFAULT-REMOTE-SYSTEM to specify a default remote system. If a file does not exist in the local system, the default remote system is searched. SetRemoteAccess switches this function on and off.
- You may include a remote system identification in the file name. Only the specified system is searched.
- This monitor call is only available with COSMOS.
Parameters¶
| Name | Type | Direction | Description |
|---|---|---|---|
Mode |
INTEGER2 | In | Remote mode flag. Use 0 to switch remote mode off. Switch it on with 1. |
Direction: In = the program supplies the value, Out = the call returns it, In/Out = both.
See also¶
QSET-LOCAL-MODE or QSET-REMOTE-MODE
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).
INTEGER : Mode
...
ON ROUTINEERROR DO
IF ErrCode > 0 THEN ...
ENDON
Monitor_Call('SetRemoteAccess', Mode)
INTEGER Mode
...
Monitor Call('SetRemoteAccess', Mode)
IF (ErrCode .NE. 0) THEN ...
Mode : INTEGER2;
...
SetRemoteAccess(Mode);
IF ErrCode <> 0 THEN ...
01 Mode COMP.
01 ErrCode COMP.
...
MONITOR-CALL "SetRemoteAccess" USING Mode.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...
Mode : W BLOCK 1
SetRemoteAccess : EQU 37B9 + 316B
...
CALLG SetRemoteAccess, 1, Mode
LDA | MODE | %Local / Remote Flag.
--- | --- | ---
MON | 316 | %Monitor call SetRemoteAccess.
... | ... | ...
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_316B_SetRemoteAccess |
| Code lines | 6 (non-blank, non-comment lines in the file) |
Source¶
SINTRAN III Monitor Calls (ND-860228.2 EN), page 465.