326B LogInStart¶

Stub MON 326B (214 decimal) · Mnemonic MLOGI · Group: Not grouped in manual

Available from: not known - no compatibility box captured from the manual

Emulation source: src/handlers/mon_326B_LogInStart.c

Description¶

Logs in a user on a terminal and starts a subsystem.

Notes¶

The terminal must be free.
The subsystem must be reentrant. See @DUMP-PROGRAM-REENTRANT.

Parameters¶

Name	Type	Direction	Description
`TermNo`	INTEGER	In	Logical device number of a terminal.
`UserName`	STRING	In
`Password`	STRING	In
`ProjPassword`	STRING	In	Project password.
`Subsystem`	STRING	In
`UserParam`	ARRAY	In	The 5 user parameters. See SetUserParam. Array of 5 elements.
`Status`	INTEGER	Out	Return status. Unsuccessful log in returns -1.

Direction: In = the program supplies the value, Out = the call returns it, In/Out = both.

Compatibility¶

ND-100	ND-500	User programs	RT programs	System programs
Yes	No	Yes	Yes	Yes

From the YAML extraction; this call's page in the manual had no compatibility box that was captured.

Examples¶

From the manual (OCR text, not corrected).

PLANCFORTRANPascalCOBOLMAC

INTEGER : TermNo
BYTES : UserName(0:63), Password(0:15), ProjPassword(0:15), Subsystem(0:31)
INTEGER ARRAY UserParam(0:4)
...
ON ROUTINEERROR DO
IF ErrCode <> 0 THEN ...
ENDON
Monitor_Call('LogInStart', TermNo, UserName, Password, ProjPassword, &
    Subsystem, UserParam(0))

INTEGER TermNo
CHARACTER UserName*64, Password*16, ProjPassword*16, Subsystem*32
INTEGER UserParam(5)
...
Monitor_Call('LogInStart', TermNo, UserName(1:64), Password(1:16), ProjPassword(1:16), Subsystem(1:32), UserParam(1))
IF (ErrCode .NE. 0) THEN ...

TermNo : INTEGER2;
UserName : PACKED ARRAY [0..63] OF CHAR;
Password, ProjPassword : PACKED ARRAY [0..15] OF CHAR;
Subsystem : PACKED ARRAY [0..31] OF CHAR;
UserParam : RECORD END;
...
LogInStart(TermNo, UserName, Password, ProjPassword, Subsystem, UserParam);
IF ErrCode <> 0 THEN ...

01 TermNo COMP.
01 UserName PIC X(64).
01 Password PIC X(16).
01 ProjPassword PIC X(16).
01 Subsystem PIC X(32).
01 UserParam.
02 array COMP OCCURS 5 TIMES.
01 ErrCode COMP.
...
MONITOR-CALL "LogInStart" USING TermNo, UserName, Password, ProjPassword, Subsystem, UserParam.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

LDA (PAR                 %Load register A with address of parameter list.
MON 326                 %Monitor call LogInStart.
JMP ERROR               %Handle error if STAT is negative.
...
PAR, TERNO,             %Terminal number
USER,                   %User name
PASSW,                  %Password.
PROJP,                  %Project password.
SUBSYS,                 %Subsystem
USRPAR,                 %User parameter.
STAT,                   %Status returned.
...
USER, 'A-HANSEN'        %Login user A-HANSEN.
PASSW, 'MAY'            %Use MAY as password.
PROJP, 'CHEESE'         %Use CHEESE as a project password.
SUBSYS, 'NOTIS-WP'      %Use NOTIS-WP as a subsystem.
STAT, 0                 %
ERROR, ...              %Error number in register A.

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

Source¶

SINTRAN III Monitor Calls (ND-860228.2 EN).