(SYSLIB) Programming Reference Manual - Public Support Login ...

Example of Using RFTI$$
BSP$-Program File Basic Service Package
The following code fragment illustrates an RFTI$$ calling sequence:
L,U A0,FCT . Address of the File Control Table
L A1,(1,56) . BSP$ interface level 1, 56 word FCT
L,U A2,0100++4 . Initialize empty file to allow large
. element text and as a large program
. file (large LEPF)
I$BJ X11,CBRFTI$$ . Call common banked BSP$
J BSPERR . Error on FTI read/initialize
. Proceed on normal return
5.1.2. Read Program File Table
This table must be read into the calling buffer before any operations are performed on
the table. If any add delete, or change operations were completed, then the table must
be written back to the file with one of the WPFxxT$ calls.
The BSP$ entry points for reading program file tables are
(CB)RPFET$ Read Program File Element Table
(CB)RPFAPT$ Read Program File Assembler Procedure Table
(CB)RPFCPT$ Read Program File COBOL Procedure Table
(CB)RPFEPT$ Read Program File FORTRAN/PLUS Procedure Table
(CB)RPFEPT$ Read Program File Relocatable Element Entry Point Table
Calling Sequence
Auto Switch Common Bank or
Relocatable
L,U A0,address-of-FCT
L A1,(buffer, length)
LMJ X11,CBRPFxxT$-1
error return
normal return
L,U A0,address-of-FCT
L A1,(buffer, length)
I$BJ X11,CBRPFxxT$
error return
normal return
Relocatable
L,U A0,address-of-FCT
L,U A1,(buffer, length)
LMJ X11,RPFxxT$
error return
normal return
7833 1733–004 5–9