Skip to content

232B RenameFile

Stub   MON 232B (154 decimal) · Mnemonic MRNFI · Group: File Operations (manual section 2.4)

Available from: All programs (manual compatibility box)

Emulation source: src/handlers/mon_232B_RenameFile.c

Description

See also @RENAME-FILE.

Parameters

Name Type Direction Description
OldFileName STRING In Old file name.
NewFileName STRING In New file name with file type, e.g. ADDRESS-LIST:TEXT. Do not use the directory name, the user name, or the version number. You may change the file type only. For example, specify :SYMB only. Include the colon.

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

See also

@RENAME-FILE

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

BYTES : OldFileName(0:63), NewFileName(0:63)
...
ON ROUTINEERROR DO
&emsp; IF ErrCode >< 0 THEN ...
ENDON
Monitor_Call('RenameFile', OldFileName, NewFileName)

CHARACTER OldFileName*64, NewFileName*64
...
Monitor_Call('RenameFile', OldFileName(1:64), NewFileName(1:64))
IF (ErrCode .NE. 0) THEN ...

OldFileName, NewFileName : PACKED ARRAY [0..63] OF CHAR;
...
RenameFile(OldFileName, NewFileName);
IF ErrCode <> 0 THEN ...

01 OldFileName PIC X(64).
01 NewFileName PIC X(64).
01 ErrCode COMP.
...
MONITOR-CALL "RenameFile" USING OldFileName, NewFileName.
CALL "CbError" USING ErrCode.
IF ErrCode NOT = 0 GO ...

OldFileName : STRINGDATA 'TEXT:TEXT'
NewFileName : STRINGDATA 'EXAMPLE:SYMB'
ErrCode : W BLOCK 1
RenameFile : EQU 37B9 + 232B
...
CALLG RenameFile, 2, OldFileName, NewFileName
IF K GO ERROR
...
ERROR : W1 =: ErrCode &emsp;&emsp;&emsp; %ErrorCode in W1 register.

LDX &emsp;(OLDFI) &emsp;%Address of string with old file name.
LDA &emsp;(NEWFI) &emsp;%Address of string with new file name.
MON &emsp; 232 &emsp;&emsp; %Monitor call RenameFile.
JMP &emsp; ERROR &emsp;&emsp; %Error return from monitor call.
... &emsp;&emsp;&emsp;&emsp;&emsp;&emsp; %Normal return.
ERROR, ... &emsp;&emsp; %Error number in register A.

OLDFI, 'TEXT:TEXT' &emsp; %Change name of file TEXT:TEXT to EXAMPLE:SYMB.
NEWFI, 'EXAMPLE:SYMB'

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

Source

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