233B SetTemporaryFile¶

Stub MON 233B (155 decimal) · Mnemonic STEFI · Group: File Operations (manual section 2.4)

Available from: All programs (manual compatibility box)

Emulation source: src/handlers/mon_233B_SetTemporaryFile.c

Description¶

Defines a file to store information temporarily. The file can be read once. When it is closed, its contents are deleted. The empty file will still exist.

GetObjectEntry and @FILE-STATISTICS shows whether a file is temporary or not.
Files to be printed are commonly defined as temporary. Their contents exist until they have been printed.

Parameters¶

Name	Type	Direction	Description
`FileName`	STRING	In	File name.

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	Yes	Yes	No

Examples¶

From the manual (OCR text, not corrected).

PLANCFORTRANPascalCOBOLASSEMBLY-500MAC

BYTES : FileName(0:63)
...
ON ROUTINEERROR DO
    IF ErrCode > 0 THEN ...
ENDON
Monitor_Call('SetTemporaryFile', FileName)

CHARACTER FileName*64
...
Monitor_Call('SetTemporaryFile', FileName(1:64))
IF (ErrCode .NE. 0) THEN ...

FileName : PACKED ARRAY [0..63] OF CHAR;
...
SetTemporaryFile(FileName);
IF ErrCode <> 0 THEN ...

01 FileName PIC X(64).
01 ErrCode COMP.
...
MONITOR-CALL "SetTemporaryFile" USING FileName.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

FileName : STRINGDATA 'TEMP-FILE:SYMB''
ErrCode  : W BLOCK 1
SetTemporaryFile : EQU 37B9 + 233B
...
    CALLG SetTemporaryFile, 1, FileName
    IF K GO ERROR
...
ERROR : W1 =: ErrCode    %ErrorCode in W1 register.

LDX  (FILE          %Address of string with file name.
MON 233            %Monitor call SetTemporaryFile.
JMP ERROR          %Error return from monitor call.
...                %Normal return.
ERROR, ...         %Error number in register A.
...
FILE, 'TEMP-FILE:SYMB' %Treat TEMP-FILE:SYMB as a temporary file.

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

Source¶

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