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

BSP$-Program File Basic Service Package
Example of Using CPTNL$
The following example uses CPTNL$ to search the COBOL procedure table:
$INCLUDE 'MAXR$' .
$(0) .
FCT $RES 34 . File control table
CPTBL $RES 252 . Buffer for COBOL procedure table
FILENAME ‘FILE ‘ . Program file name
CPTNUM $EQUF,H2 0213,X1 . Number of 4 word blocks
$(1) .
START .
DL A6,FILENAME . Get file name
DS A6,FCT . Put it in first two words of FCT
L,U A0,FCT . Get address of FCT
LMJ X11,RFTI$ . Read FTI
J BSPERR . Error return
.
L,U A0,FCT . Get address of FCT
L A1,(CPTBL,252) . Get address, length of buffer
LMJ X11,RPFCPT$ . Read COBOL procedure table
J BSPERR . Error return
.
L,U X1,CPTBL . Get address of buffer for CPTNUM
LA,U A7,0 . Initialize loop counter to zero
LOOP .
L,U A0,FCT . Get address of FCT
AA,U A7,1 . Increment loop counter
L A1,A7 . Set sequence number
LMJ X11,CPTNL$ . Get COBOL item for sequence number
J BSPERR . Error return
.
L,S1 A3,3,A0 . Get continuation indicator bit
TOP,U A3,020 . Is it set?
J 4WORDITEM . No, handle 4 word item
AA,U A7,1 . 8 word item, increment loop counter
. to skip reading next 4-word block
. .
. . handle 8-word item
. .
J CHKLOOP . Check for loop termination
4WORDITEM .
. .
. . handle 4-word item
. .
CHKLOOP . Loop termination code
TE A7,CPTNUM . Last 4-word block reached?
J LOOP . No, keep reading
. .
. .
. .
5–20 7833 1733–004