272B DeletePage¶

Stub MON 272B (186 decimal) · Mnemonic DELPG · Group: File Operations (manual section 2.4)

Available from: All programs (manual compatibility box)

Emulation source: src/handlers/mon_272B_DeletePage.c

Description¶

Deletes pages from a file. Pages between two page numbers are removed.

The file must be opened.

Parameters¶

Name	Type	Direction	Description
`FileNo`	INTEGER2	In	File number.
`FirstPage`	INTEGER2	In	First page to be deleted.
`LastPage`	INTEGER2	In	Last page to be deleted. The value -1 means delete to end of the file.
`NoOfPages`	INTEGER2	Out	Number of pages deleted.

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 : FileNo
INTEGER4 : FirstPage, LastPage, NoOfPages
...
ON ROUTINEERROR DO
  IF ErrCode > 0 THEN ...
ENDON
Monitor_Call('DeletePage', FileNo, FirstPage, LastPage, NoOfPages)

INTEGER FileNo
INTEGER*4 FirstPage, LastPage, NoOfPages
...
Monitor Call1('DeletePage', FileNo, FirstPage, LastPage, NoOfPages)
IF (ErrCode .NE. 0) THEN ...

FileNo : INTEGER2;
FirstPage, LastPage, NoOfPages : LONGINT;
...
DeletePage(FileNo, FirstPage, LastPage, NoOfPages);
IF ErrCode <> 0 THEN ...

01 FileNo COMP.
01 FirstPage COMP PIC S9(10).
01 LastPage COMP PIC S9(10).
01 NoOfPages COMP PIC S9(10).
    ErrCode COMP.
    ...
    MONITOR-CALL "DeletePage" USING FileNo, FirstPage, LastPage, NoOfPages.
    CALL "CbError" USING ErrCode.
    IF ErrCode NOT = 0 GO ...

FileNo : W BLOCK 1
FirstPage : W BLOCK 1
LastPage : W BLOCK 1
NoOfPages : W BLOCK 1
ErrCode : W BLOCK 1
DeletePage : EQU 37B9 + 272B
...
CALLG DeletePage, 4, FileNo, FirstPage, LastPage, NoOfPages
  IF K GO ERROR
...
ERROR : W1 =: ErrCode           %ErrorCode in W1 register.

LDT FILNO               %File number.
LDA (FIRST              %Address of double word with first page.
LDX (LAST               %Address of double word with last page.
MON 272                 %Monitor call DeletePage.
JMP ERROR               %Error return from monitor call.
STD NODEL               %Normal return, store the number of pages deleted.

ERROR, ...              %Error number in register A.
...
FILNO, ...
FIRST, ...             %A double word.
    ...                %
LAST, ...              %A double word.
    ...                %
NODEL, 0               %A double word.
0                      %

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

Source¶

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