421B GetActiveSegment¶

Stub MON 421B (273 decimal) · Mnemonic GASGM · Group: Segment Administration (manual section 2.12)

Available from: All programs (manual compatibility box)

Emulation source: src/handlers/mon_421B_GetActiveSegment.c

Description¶

Gets the name of the segments in your domain. A 2048 byte buffer is returned. It contains 32 pointers to segment names in the buffer. Each pointer consists of 12 bytes. The first four is an address. The second four is the offset from this address to the start of the segment name. The last four are the offset to the end of the segment name.

Notes¶

Unused segments have the address 0.

Parameters¶

Name	Type	Direction	Description
`Buffer`	INTEGER2[1024]	Out	A 2048 byte buffer (1 page) containing 32 pointers to segment names.

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

Compatibility¶

Machines	Users	Programs
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
No	No	Yes	Yes	No

Disagreement

The manual box says ND-500, but the yes/no fields say ND-100 = No, ND-500 = No. The manual box is the source.

Examples¶

From the manual (OCR text, not corrected).

PLANCFORTRANPascalCOBOLASSEMBLY-500

BYTES : Buffer(0:2047)
...
Monitor_Call('GetActiveSegment', Buffer(0))

INTEGER Buffer(1024)
...
Monitor_Call('GetActiveSegment', Buffer(1))

Buffer : ARRAY [0..31] OF RECORD...END;
...
GetActiveSegment(Buffer);

01 Buffer.
   02 array COMP OCCURS 1024 TIMES.
   ...
MONITOR-CALL "GetActiveSegment" USING Buffer.

Buffer : W BLOCK 1024
GetActiveSegment : EQU 37B9 + 421B
...
CALLG GetActiveSegment, 1, Buffer

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

Source¶

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