55B GetSpoolingEntry¶

Stub MON 55B (45 decimal) · Mnemonic RSQPE · Group: Input and Output Monitor Calls (manual section 2.5)

Available from: All programs (manual compatibility box)

Emulation source: src/handlers/mon_55B_GetSpoolingEntry.c

Description¶

Gets the next spooling queue entry, that is, the next file to be printed. The entry is removed from the spooling queue.

Parameters¶

Name	Type	Direction	Description
`SpoolDevNumber`	INTEGER	In	Logical device number of the printer.
`Buffer`	ARRAY	Out	272-byte spooling entry: [0:1]=copies, [2:3]=apostrophe flag, [4:97]=filename, [98:255]=message.

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

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).

PLANCFORTRANPascalCOBOLASSEMBLY-500MAC

INTEGER : SpoolDevNumber
BYTES : Buffer(0:271)
...
ON ROUTINEERROR DO
    IF ErrCode > 0 THEN ...
ENDON
Monitor_Call('GetSpoolingEntry', SpoolDevNumber, Buffer(0))

INTEGER SpoolDevNumber
INTEGER Buffer(136)
...
Monitor Call('GetSpoolingEntry', SpoolDevNumber, Buffer(1))
IF (ErrCode .NE. 0) THEN ...

SpoolDevNumber : INTEGER2;
Buffer : ARRAY [0..8] OF RECORD...END;
...
GetSpoolingEntry(SpoolDevNumber, Buffer);
IF ErrCode <> 0 THEN ...

01 SpoolDevNumber COMP.
01 Buffer.
   02 array COMP OCCURS 136 TIMES.
01 ErrCode COMP.
...
MONITOR-CALL "GetSpoolingEntry" USING SpoolDevNumber, Buffer.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

SpoolDevNumber : W BLOCK 1
Buffer : BY BLOCK 1000B
ErrCode : W BLOCK 1
GetSpoolingEntry : EQU 37B9 + 55B
...
CALLG GetSpoolingEntry, 2, SpoolDevNumber, Buffer
IF K GO ERROR
...
ERROR : W1 =: ErrCode  %ErrorCode in W1 register.

LDX  (BUFF       %Address of buffer for receiving queue entry.
LDT  SPOOL       %Logical number of spooling device.
MON  55          %Monitor call GetSpoolingEntry.
JMP  ERROR       %Error return from monitor call.
...              %Normal return.
ERROR, ...       %Error number in register A.
...
SPOOL, 5         %Obtain spooling entry of line printer no. 1.
BUFF, 0
*+128/           %Make a buffer of 256 bytes.

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

Source¶

SINTRAN III Monitor Calls (ND-860228.2 EN), page 281.