314B DefaultRemoteSystem¶
Stub MON 314B (204 decimal) · Mnemonic SRUSI · Group: Data Communication (manual section 2.13)
Available from: All programs (manual compatibility box)
Emulation source: src/handlers/mon_314B_DefaultRemoteSystem.c
Description¶
Sets default values for COSMOS remote file access. You can specify the default remote system, the remote user, and the remote user's passwords. The specified values are used when you omit values in a remote file access.
- Empty parameters remove previous default values. Default values are then the local user's name and passwords.
- SetRemoteMode switches the remote search on and off.
Parameters¶
| Name | Type | Direction | Description |
|---|---|---|---|
SystemName |
STRING | In | Remote system name. |
UserName |
STRING | In | User owning the files in the remote system. |
Password |
STRING | In | The user's password. |
ProjPassword |
STRING | In | The user's project password. |
Direction: In = the program supplies the value, Out = the call returns it, In/Out = both.
See also¶
@SET-DEFAULT-REMOTE-SYSTEM, @RESET-DEFAULT-REMOTE-SYSTEM
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).
BYTES : SystemName(0:15), UserName(0:15), Password(0:15), ProjPassword(0:15)
...
ON ROUTINEERROR DO
IF ErrCode > 0 THEN ...
ENDON
Monitor_Call('DefaultRemoteSystem', SystemName, UserName, &
Password, ProjPassword)
CHARACTER SystemName*16
CHARACTER UserName*16, Password*16, ProjPassword*16
...
Monitor_Call('DefaultRemoteSystem', SystemName(1:16),
UserName(1:16), Password(1:16), ProjPassword(1:16))
IF (ErrCode .NE. 0) THEN ...
SystemName: PACKED ARRAY [0..15] OF CHAR;
UserName, Password, ProjPassword : PACKED ARRAY [0..15] OF CHAR;
...
DefaultRemoteSystem(SystemName, UserName, Password, ProjPassword);
IF ErrCode <> 0 THEN ...
01 SystemName PIC X(16).
01 UserName PIC X(16).
01 Password PIC X(16).
01 ProjPassword PIC X(16).
01 ErrCode COMP.
...
MONITOR-CALL "DefaultRemoteSystem" USING SystemName, UserName,
Password, ProjPassword.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...
SystemName : STRINGDATA 'STORE'...
UserName : STRINGDATA 'A-HANSEN'''
Password : STRINGDATA 'MAY'''
ProjPassword : STRINGDATA 'CHEESE'''
ErrCode : W BLOCK 1
DefaultRemoteSystem : EQU 37B9 + 314B
...
CALLG DefaultRemoteSystem, 4, SystemName, UserName, &
Password, ProjPassword
IF K GO ERROR
...
ERROR : W1 =: ErrCode %ErrorCode in W1 register.
| LDX | (SYS) | %Address of remote system name. |
| --- | --- | --- |
| LDT | (USER) | %Address of remote user identifier string. |
| LDA | (PROJP) | %Address of remote project password string. |
| COPY | SA DD | |
| LDA | (PASSW) | %Address of remote user password string. |
| MON | 314 | %Monitor call DefaultRemoteSystem. |
| JMP | ERROR | %Error return from monitor call. |
| ... | | %Normal return. |
| ERROR, ... | | %Error number in register A. |
SYS, 'STORE' %Set up STORE as default remote system.
USER, 'A-HANSEN' %Set up A-HANSEN as default remote user.
PASSW, 'MAY' %Set up MAY as default remote user password.
PROJP, 'CHEESE' %Set up CHEESE as default remote project password.
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_314B_DefaultRemoteSystem |
| Code lines | 9 (non-blank, non-comment lines in the file) |
Source¶
SINTRAN III Monitor Calls (ND-860228.2 EN), page 133.