70B CallCommand¶
Stub MON 70B (56 decimal) · Mnemonic COMMND · Group: Not grouped in manual
Available from: Background programs (manual compatibility box)
Emulation source: src/handlers/mon_70B_CallCommand.c
Description¶
Executes a SINTRAN III command from a program. The program terminates if an error occurs in the command.
- You are advised to use the newer monitor call, ExecuteCommand (UECOM), instead of CallCommand.
- Some commands may destroy your program. Use care with commands which affect your program's memory area.
- Note that the program may terminate if an error occurs. Use ExecuteCommand (UECOM) to avoid this problem.
- For commands with output, but without an output file as a parameter, e.g. @WHO, output is displayed automatically on the terminal of the user executing the program.
- Use SuspendProgram to wait a specified time interval between two CallCommands which depend on each other, e.g. CreateFile and OpenFile.
- The following commands are allowed from ND-500 programs: @DATCL, @COPY, @COPY-FILE, @SCHEDULE, @HOLD, @TERMINAL-MODE, @OPERATOR, @WAIT-FOR-OPERATOR, @SET-TERMINAL-TYPE, @GET-TERMINAL-TYPE, @CREATE-FILE, @EXPAND-FILE, @DELETE-FILE, @RENAME-FILE, @LIST-FILE, @FILE-STATISTICS, @OPEN-FILE, @CONNECT-FILE, @SET-FILE-ACCESS, @CLOSE-FILE, @LIST-OPEN-FILE, @SET-BLOCK-SIZE, @SET-PERMANENT-OPEN, @SET-BYTE-POINTER, @SET-BLOCK-POINTER, @APPEND-SPOOLING-FILE, @DELETE-SPOOLING-FILE, @SET-TEMPORARY-FILE, and @SCRATCH-OPEN.
Notes¶
- Version history: M-version increased the maximum length of the command buffer from 104 characters to 150 characters (ND-860230-7A-EN SINTRAN III - Release Information - M-Version.md:1085).
Parameters¶
| Name | Type | Direction | Description |
|---|---|---|---|
Command |
STRING | In | SINTRAN III command string to execute (up to 80 characters). |
Direction: In = the program supplies the value, Out = the call returns it, In/Out = both.
See also¶
ExecuteCommand, SetCommandBuffer. ExecuteCommand does not terminate the program if an error occurs
Compatibility¶
| Machines | Users | Programs |
|---|---|---|
| ND-100 and ND-500 | All users | Background 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 | Yes | No |
Examples¶
From the manual (OCR text, not corrected).
BYTES : Command(0:79)
...
Monitor_Call('CallCommand', Command)
CHARACTER Command*80
...
Monitor_Call('Call')Command', Command(1:80))
Command : PACKED ARRAY [0..79] OF CHAR;
...
CallCommand(Command);
01 Command PIC X(100).
...
MONITOR-CALL "CallCommand" USING Command.
Command : STRINGDATA 'CLOSE-FILE 102'''
ErrCode : W BLOCK 1
CallCommand : EQU 3789 + 70B
...
CALLG CallCommand, 1, Command
IF K GO Error
...
Error, W1 =: ErrCode
LDA (CMND %Address of string with command to be executed.
MON 70 %Monitor call CallCommand.
...
CMND, 'CLOSE-FILE 102' %Execute @CLOSE-FILE 102
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_70B_CallCommand |
| Code lines | 6 (non-blank, non-comment lines in the file) |
Source¶
SINTRAN III Monitor Calls (ND-860228.2 EN), page 99.