Google
 

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - cobol/source/ftdefs.mac
There are 9 other files named ftdefs.mac in the archive. Click here to see a list.
; UPD ID= 3575 on 6/9/81 at 7:03 PM by NIXON                            
UNIVERSAL FTDEFS FILE-TABLE DEFINIFITIONS FOR CBLIO AND SORT



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1975, 1981 BY DIGITAL EQUIPMENT CORPORATION


;****** REVISION HISTORY

; EDIT 545	STORE NO. OF CHARACTERS IN VAR. LEN. RECORD IN FILE TABLE.

;***** V11 *****
; EDIT 427	FIX STAND ALONE CSORT SO FILE TABLE IS SET UP PROPERLY
; EDIT 422	FIX STAND ALONE CSORT SO IT WON' T ALWAYS ASK THE 'IS FILE PRESENT' QUESTION

; GET ASSEMBLY SWITCHES

	SEARCH INTERM

%%FTDF==2	;EDIT NUMBER

	IFNDEF	ISTKS,<ISTKS==0>	;TYPE  # OF IN'S AND OUT'S

I16==16				;16 HAS POINTER TO FILE-TABLE

;DEVICE TABLE CONSTANTS		JUN-78 TABLE IS 40 WORDS LONG



D.CRC==-40	;RECORD COUNT FOR CHECKPOINT EVERY N RECORDS
D.SRCL==-37	; SAVED VALUE OF D.RCL AFTER DELETE/RERIT 
D.RMSP==-36	;ADDR OF AN RMS CONTROL BLOCK
		;NON-ZERO ONLY IF THIS FILE IS AN OPEN RMS FILE
		;THE CONTROL BLOCK ITSELF IS DESCRIBED IN LBLPRM.MAC
D.EXOF==-35	; REC SEQ OFFSET TO EXTENDED SECTION OF SIXBIT MTA FILE
D.CLRR==-34	;[545] NO. OF CHARACTERS IN LAST RECORD READ
D.WPR=-33	; NO. OF WORDS PER RECORD,RANDOM AND ISAM
D.CPR=-33	; CHARS PER RECORD ,NON-RANDOM/ISAM FILES (INCLUDING OVERHEAD)
D.LBN=-32	; LAST BLOCK OF SEQIO FILE
D.FCPL=-31	; FREE CHARS PER LOG-BLOCK
D.TCPL=-30	; TOTAL CHARS PER LOG-BLOCK
D.WCNV=-27	; THE WRITE CONVERSION INSTRUCTION
D.RCNV=-26	; THE READ CONVERSION INSTRUCTION

D.BPW=-25	;BYTES PER WORD
D.RD=-24	;RERUN DEVICE NAME IN SIXBIT
D.F1=-23	;0-17 FLG1 
D.IBL=-23	; [377]  18-35	ISAM SAVE AREA FOR SHARED BUFFER
D.IE=-22	;# OF INPUTS EXECUTED
D.OE=-21	;# OF OUTPUTS EXECUTED
D.LRS=-20	;18-35 LABEL RECORD SIZE
D.BL=-20	;0-17 BUFFER LOCATION
D.RFLG=-17	; 18-35 FLAGS, SASCII=1
D.HF=-17	;BIT-17 HUF FLAG
D.LF=-17	;BIT-16 LOCK FLAG
D.CN=-17	;12-15 IO CHANNEL NUMBER
D.RN=-17	;0-11 MAGTAPE REEL NUMBER
D.CBN=-16	;CURRENT PHYSCIAL BLOCK NUMBER
D.BPL=-15	;# OF BUFFERS PER LOGICAL BLOCK
D.BCL=-14	;# OF BUFFERS TO FILL CURRENT LOGICAL BLOCK
D.RCL=-13	;# OF RECORDS TO FILL CURRENT LOGICAL BLOCK
D.ICD=-12	;IOWD FOR CURRENT DEVICE
D.OBH=-11	;OUTPUT BUFFER HEADER
D.OBB=-10	;OUTPUT BUFFER BYTE POINTER
D.OBC=-7	;OUTPUT BUFFER BYTE COUNT
D.IBH=-6	;INPUT BUFFER HEADER
D.IBB=-5	;INPUT BUFFER BYTE POINTER
D.IBC=-4	;INPUT BUFFER BYTE COUNT
D.RRD=-3	;# OF RECORDS TO A RERUN DUMP
D.RP=-2		;# OF RECORDS PROCESSED
D.DC=-1		;DEVICE CHARACTERISTICS
D.OPT=-1	;-1 IF A "NOT-PRESENT" OPTIONAL ISAM FILE

DB.HF==1B17	;HUF (HEAD UNDER FILE) FLAG

F%BLF==POINT 1,D.LF(I16),16	;LOCK FLAG
F%BHF==POINT 1,D.HF(I16),17	;HUF FLAG
F%BCN==POINT 4,D.CN(I16),15	;CHANNEL NUMBER
F%BIBS==POINT 6,D.IBB(I16),11	;INPUT BUFFER BYTE SIZE
F%BOBS==POINT 6,D.OBB(I16),11	;OUTPUT BUFFER BYTE SIZE
F%BRN==POINT 12,D.RN(I16),11	;MTA REEL NUMBER
F%BRPT==POINT 1,D.RFLG(I16),31	;A TERMINATE HAS BEEN DONE FOR THIS REPORT FILE
;FILE TABLE CONSTANTS
F.SIZE==40			; SIZE OF FILE TABLE

F.WFNM==0			; 30 CHARACTER PROGRAM NAME - SIXBIT
F.WCVR==5			; COMPILER'S VERSION NUMBER
F.WBLC==5			; BUFFER LOCATION IS ASSIGNED - BUFLOC
F.WSDF==5			; SORT-DESCRIPTION FILE FLAG - SRTFIL
F.WDRM==5			; DEFAULT RECORDING MODE (I.E. NOT SET BY USER)
F.WNOD==5			; NUMBER OF DEVICES ASSIGNED TO FILE
F.WDNM==5			; ADR OF FIRST DEVICE NAME - SIXBIT
F.WNFL==6			; [68] NUMBER OF FILE LIMIT CLAUSES
F.WFAM==6			; [74] FILE ACCESS MODE
F.WLAB==6			; SYSTEM LABEL FORMAT (B9-B11)
F.WPMT==6			; FILE POSITION ON MAG-TAPE
F.RNFT==6			; LINK TO NEXT FILE TABLE
F.WNAB==7			; NUMBER OF ALTERNATE BUFFERS
F.WMRS==7			; MAXIMUM RECORD SIZE IN CHARS
F.RRRC==7			; NUMBER OF RECORDS BETWEEN RERUN DUMPS
F.WFLG==10			; FLAGS,,ADR OF RECORD AREA
F.RREC==10			; ADDRESS OF RECORD AREA
F.LNLS==11			; SIZE OF NON-STANDARD LABEL
F.RFSD==11			; LINK TO FILE-TABLE THAT SHARES DEVICE
F.WBKF==12			; THE BLOCKING FACTOR
F.RACK==12			; ADR OF ACTUAL KEY TABLE
F.WVID==13			; BYTE POINTER TO VALUE OF ID
F.WVDW==14			; BYTE POINTER TO VALUE OF DATE WRITTEN
F.LSBA==15			; LINK TO FILE-TABLE THAT SHARES BUFFER AREA
F.REUP==15			; ADR OF ERROR USE PROCEDURE

;[68] COBOL-68 ITEMS
F.LBBR==16			; BEFORE-BEGINNING-REEL USE PROCEDURE
F.RBBF==16			; BEFORE-BEGINNING-FILE USE PROCEDURE
F.LABR==17			; AFTER-BEGINNING-REEL USE PROCEDURE
F.RABF==17			; AFTER-BEGINNING-FILE USE PROCEDURE
F.LBER==20			; BEFORE-ENDING-REEL USE PROCEDURE
F.RBEF==20			; BEFORE-ENDING-FILE USE PROCEDURE
F.LAER==21			; AFTER-ENDING-REEL USE PROCEDURE
F.RAEF==21			; AFTER-ENDING-FILE USE PROCEDURE

;[74] COBOL-74 ITEMS
F.LCP==16			;LINAGE-COUNTER POINTER
F.LPP==17			;LINES PER PAGE (LHS)
F.WFA==17			;WITH FOOTING AT (RHS)
F.LAT==20			;LINES AT TOP (LHS)
F.LAB==20			;LINES AT BOTTOM (RHS)
F.LCI==21			;LINAGE COUNTER INITAILIZATION (RHS)
F.DEB==21			;DEBUGGING USE PROCEDURE (LHS)

F.AKS==20			; ***TEMP*** APPROX. KEY SIZE FOR START VERB

F.WDNS==22			; MAG-TAPE DENSITY
F.WDIO==22			; DEFERRED ISAM OUTPUT FLAG
F.WOUP==22			; OPEN USE-PROCEDURE WHEN ENTER FAILS
F.RPPN==22			; ADR OF USER-NUMBER
F.RMS==22			; RMS FLAG
F.WBM==22			; BYTE MODE
F.CKP==22			; CHECKPOINT FLAG
F.CRC==22			; CHECKPOINT RECORD COUNT

F.WBSK==23			; BYTE POINTER TO SYMBOLIC KEY
F.WBRK==24			; BYTE POINTER TO RECORD KEY
F.WIKD==25			; ISAM KEY DESCRIPTION WORD
F.WSMU==26			; 0-8= OWNER ACCESS 9-17= OTHERS ACCESS
				; 18-35= RETAINED REC COUNT
F.WPFS==27			; POINTER TO FILE-STATUS DATA-ITEM
F.WPEN==30			; POINTER TO ERROR-NUMBER DATA-ITEM
F.WPAC==31			; POINTER TO ACTION-CODE DATA-ITEM
F.WPID==32			; POINTER TO VALUE-OF-ID DATA-ITEM
F.WPBN==33			; POINTER TO BLOCK-NUMBER DATA-ITEM
F.WPRN==34			; POINTER TO RECORD-NUMBER DATA-ITEM
F.WPFN==35			; POINTER TO FILE-NAME DATA-ITEM
F.WPFT==36			; POINTER TO FILE-TABLE ADR DATA-ITEM
F.WLHL==37			; POINTER TO LOW,,HIGH FILE LIMIT

F%BCVR==POINT 6,F.WCVR(I16),5	; COMPILER'S VERSION NUMBER
F%BBLC==POINT 1,F.WBLC(I16),6	; BUFFER LOCATION IS ASSIGNED - BUFLOC
F%BSDF==POINT 1,F.WSDF(I16),7	; SORT-DESCRIPTION FILE FLAG - SRTFIL
F%BDRM==POINT 1,F.WDRM(I16),8	; DEFAULT RECORDING MODE
F%BNOD==POINT 6,F.WNOD(I16),17	; NUMBER OF DEVICES ASSIGNED TO FILE
F%BDNM==POINT 18,F.WDNM(I16),35	; ADR OF FIRST DEVICE NAME
F%BNFL==POINT 5,F.WNFL(I16),4	; [68] NUMBER OF FILE LIMIT CLAUSES
F%BFAM==POINT 2,F.WFAM(I16),4	; [74] FILE ACCESS MODE
F%BLBT==POINT 3,F.WLAB(I16),11	; SYSTEM LABEL TYPE
F%BLBU==POINT 1,F.WLAB(I16),5	; "U" FORMAT SYSTEM LABEL FLAG
F%BLBS==POINT 1,F.WLAB(I16),6	; "S" FORMAT SYSTEM LABEL FLAG
F%BLBD==POINT 1,F.WLAB(I16),7	; "D" FORMAT SYSTEM LABEL FLAG
F%BLBF==POINT 1,F.WLAB(I16),8	; "F" FORMAT SYSTEM LABEL FLAG
F%BFMT==POINT 4,F.WLAB(I16),8	; TO GET ALL 4 LABEL FORMAT BITS
F%BPMT==POINT 6,F.WPMT(I16),17	; FILE POSITION ON MAG-TAPE
F%BNFT==POINT 18,F.RNFT(I16),35	; LINK TO NEXT FILE-TABLE
F%BNAB==POINT 6,F.WNAB(I16),5	; NUMBER OF ALTERNATE BUFFERS
F%BMRS==POINT 12,F.WMRS(I16),17	; MAXIMUM RECORD SIZE IN CHARS
F%BLTP==POINT 2,F.WFLG(I16),3	; LABEL TYPE
F%BDDM==POINT 3,F.WFLG(I16),9	; DEVICE DATA MODE
F%BCDM==POINT 2,F.WFLG(I16),15	; CORE DATA MODE
F%BREC==POINT 18,F.RREC(I16),35	; ADR OF RECORD AREA
F%BNLS==POINT 18,F.LNLS(I16),17	; SIZE OF NON-STD-LABEL RECORD
F%BBKF==POINT 12,F.WBKF(I16),17	; THE BLOCKING FACTOR
F%BPPN==POINT 18,F.RPPN(I16),35	; ADR OF PPN
F%BDNS==POINT 3,F.WDNS(I16),2	; MAG-TAPE DENSITY
F%BPAR==POINT 1,F.WDNS(I16),4	; MAG-TAPE PARITY
F%BDIO==POINT 1,F.WDIO(I16),5	; DEFERRED ISAM OUTPUT FLAG
F%BOUP==POINT 1,F.WOUP(I16),6	; OPEN USE-PROCEDURE WHEN ENTER FAILS
F%BRMS==POINT 1,F.RMS(I16),7	; RMS FLAG
F%BBM==POINT 1,F.WBM(I16),8	; BYTE MODE FLAG
F%BCKP==POINT 1,F.CKP(I16),9	; CHECKPOINT FLAG
F%BCRC==POINT 8,F.CRC(I16),17	; CHECKPOINT RECORD COUNT
;FLAGS IN LEFT SIDE OF "F.WFLG(I16)" BEFORE RESET
BR%VLE==1B0		;VARIABLE LENGTH EBCDIC RECORDS
BR%NSL==1B2		;NON STANDARD LABELS
BR%STL==1B3		;STANDARD LABELS
BR%IO==1B6		;FILE IS AN INPUT/OUTPUT FILE
;BIT 7-9		;0 = SIXBIT DEVICE DATA MODE
			;1 = BINARY
			;2 = ASCII
			;3 = EBCDIC
			;4 = ASCII-8
			;5-7 NOT USED
BR%RER==1B10		;RERUN DUMP AT END-OF-REEL
BR%RRC==1B11		;RERUN DUMP VIA RECORD-COUNT
BR%OPF==1B13		;OPTIONAL FILE
;BIT 14-15		;0 = SIXBIT CORE DATA MODE
			;1 = BINARY
			;2 = ASCII
			;3 = EBCDIC
;BIT 16-17		;0 = SEQUENTIAL FILE
			;1 = RANDOM FILE
			;2 = INDEXED-SEQ FILE
			;3 = NOT USED


;[427] POINTERS TO THINGS AFTER RESET.
F%ADDM==POINT	4,F.WFLG(I16),3		;[427] DEVICE DATA MODE
;[427]		ASCII	10
;[427]		SIXBIT	04
;[427]		EBCDIC	02
;[427]		BINARY	01
F%ACDM==POINT	3,F.WFLG(I16),14	;[427] CORE DATA MODE.
;[427]		ASCII	4
;[427]		SIXBIT	2
;[427]		EBCDIC	1
;RANDOM ACCESS CONSTANTS

R.IOWD==0	; IOWRD FOR RANDOM/IO FILES
R.TERM==1	; IOWRD TERMINATOR
R.BPNR==2	; BYTE POINTER TO NEXT RECORD IN BUFFER
R.BPLR==3	; LAST RECORD
R.BPFR==4	; FIRST RECORD
R.DATA==6	; BUFFER HAS ACTIVE DATA TO BE WRITTEN OUT
R.WRIT==7	; LAST IO OPERATION FOR THIS FILE WAS A WRITE
R.FLMT==10	;[68] AOBJ POINTER TO FILE LIMITS
R.STRT==10	;[74] LAST IO OPERATION FOR THIS FILE WAS A START
R.DLRW==11	; [74] WORD TO SAVE CURRENT DSK BLK NUM WHILE A DELETE/RERIT
		; IS BEING DONE, SO THAT THE "CURRENT" POSITION CAN BE RESTORED

	; THE FOLLOWING DEFINES THE TABLE OFFSETS FOR FIELDS WITHIN
	; THE ISAM FILE STATISTICS BLOCK AND THE DATA AREA USED BY
	; LIBOL FOR CURRENT FILE STATIS
ADR==0
DEFINE	TABADR(N,L) <
N==ADR
ADR==ADR+L
>

TABADR	STAHDR,1	;SIZE OF STATISTICS BLOCK IN SIXBIT BYTES
TABADR	DDEVNM,1	;DATA FILE'S DEVICE NAME
TABADR	DFILNM,1	;DATA FILE'S FILE NAME
TABADR	DEXT,1		;DATA FILE'S EXTENSION
TABADR	DCDATE,1	;DATA FILE'S CREATION DATE
TABADR	DADATE,1	;DATA FILE'S ACCESS DATE
TABADR	MXLVL,1		;NUMBER OF LEVELS IN INDEX FILE
TABADR	DBF,1		;DATA FILE BLOCKING FACTOR
TABADR	DMTREC,1	;NUMBER OF EMPTY RECORDS PER DATA BLOCK
TABADR	EPIB,^D20	;TWO WORDS PER INDEX LEVEL
			;FIRST WORD:  NUMBER OF ENTRIES PER INDEX BLOCK
			;SECOND WORD:  NUMBER OF EMPTY ENTRIES
TABADR	DMXBLK,1	;TOTAL BLOCKS IN DATA FILE
TABADR	DMTBLK,1	;EMPTY BLOCKS IN DATA FILE
TABADR	IMXSCT,1	;TOTAL SECTORS IN INDEX FILE
TABADR	IMTSCT,1	;EMPTY SECTORS IN INDEX FILE
TABADR	FMTSCT,1	;FIRST EMPTY SECTOR IN INDEX FILE
TABADR	DMXREC,1	;MAXIMUM DATA RECORD SIZE IN WORDS
TABADR	DBPRK,1		;BYTE POINTER TO RECORD KEY RELATIVE TO DATA RECORD
TABADR	RWRSTA,1	;NUMBER OF READ, WRITE, REWRITE STATEMENTS SINCE INITIALIZATION
TABADR	IOUUOS,1	;NUMBER OF IN'S AND OUT'S SINCE INITIALIZATION
TABADR	SBLOC,1		;RELATIVE ADR OF FIRST SAT BLOCK
TABADR	SBTOT,1		;TOTAL SAT BLOCKS
TABADR	ISPB,1		;INDEX FILE, SECTORS PER LOGICAL BLOCK
TABADR	FILSIZ,1	;MAXIMUM POSSIBLE NUMBER OF DATA BLOCKS IN FILE
TABADR	KEYTYP,0	;KEY-TYPE IN LEFT HALF
TABADR	KEYDES,1	;DESCRIPTION OF RECORD KEY
TABADR	IESIZ,1		;INDEX ENTRY SIZE IN WORDS
TABADR	TOPIBN,1	;TOP INDEX BLOCK NUMBER
TABADR	%DAT,1		;% OF DATA FILE EMPTY
TABADR	%IDX,1		;% OF INDEX FILE EMPTY
TABADR	RECBYT,1	;SIZE OF LARGEST DATA BLOCK IN BYTES
TABADR	MAXSAT,1	;MAX # OF RECORDS FILE CAN BECOME
TABADR	ISAVER,1	;"ISAM" VERSION NUMBER
TABADR	PAGBUF,1	;I/O SW..	0 = SECTOR MULTIPLES, NONZERO = PAGES

STABL==ADR	;EQUALS SIZE OF STATISTICS BLOCK
TABADR	IOWRD,14+1	;TABLE OF DUMP MODE IOWD'S FOR EACH INDEX LEVEL
			;0 DATA BLOCK
			;1-12 INDEX BLOCKS
			;13 SAT BLOCK
			;14 STATISTICS BLOCK
TABADR	OMXLVL,1	;ORIGINAL MAX NUMBER OF LEVELS IN INDEX FILE
TABADR	OKEYDS,1	;[515] KEY DESCRIPTOR AT RESET TIME
TABADR	ORCBYT,1	;[515] RECORD SIZE AT RESET TIME
TABADR	OEPIB,1		;[515] ENTRIES PER INDEX BLOCK AT RESET TIME
TABADR	CORE0,1		;LAST,,FIRST -  CORE AREA CLEARED AT CLOSE
TABADR	ICHAN,1		;CHANNEL NUMBER FOR INDEX DEVICE
TABADR	USOBJ,14+1	;USETI/O OBJECT: DATA, 10 INDEX, SAT & STA
TABADR	CNTRY,14+1	;CURRENT INDEX ENTRY
TABADR	NNTRY,14+1	;FLAG, CNTRY POINTS TO NEXT ENTRY NOT CURRENT
TABADR	LIVE,1		;(-1) IF DATA NOT YET OUTPUT
TABADR	BRISK,1		;IF -1 OUTPUT ONLY WHEN INPUT IS EMINENT
TABADR	CLVL,1		;CURRENT LEVEL
IFN ANS74,<
TABADR	RWDLKY,1	; NNTRY,,ADDR OF CNTRY KEY COPYS FOR RWT/DEL
TABADR	RCARSZ,1	; RECORD AREA SIZE IN WORDS
TABADR	RWDLRT,1	; NNTRY,,ADDR OF RWDLKY DURING RETAIN
TABADR	SVNXRT,1	; SAVES D.RFLG DURING RETAIN, WHEN NONE ZERO FLAGS THAT
			;  RWDLKY POINTS TO RETAINS DEL/REWRT KEY SAVE AREA,
			;  THAT RWDLKY MUST BE RESTORED AT THE END OF RETAIN
>
TABADR	IAKBP,1		;INDEX ADJUSTED SYMBOLIC KEY BYTE-POINTER
TABADR	IAKBP1,1	;POINTER TO SECOND KEY WORD
TABADR	DAKBP,1		;DATA ADJUSTED SYMBOLIC KEY BP
TABADR	DAKBP1,1	;POINTER TO THE SECOND KEY WORD
TABADR	SINC,1		;BINARY SEARCH INCREMENT
TABADR	IBLEN,1		;INDEX BLOCK LENGTH NOT COUNTING HEADERS
TABADR	IKWCNT,1		;INDEX, NUMBER OF WORDS IN THE KEY
TABADR	DKWCNT,1		;DATA, NUMBER OF WORDS IN KEY
TABADR	FWMASK,1		;MASK FOR FIRST WORD OF DATA KEY
TABADR	LWMASK,1	;MASK FOR LAST WORD OF DATA KEY
TABADR	ICMP,1		;HOLDS ADR OF THE INDEX COMPARE ROUTINE
TABADR	DCMP,1		;HOLDS ADR OF DATA COMPARE OR CONVERT ROUTINE
TABADR	DCMP1,1		;HOLDS ADR OF DATA COMPARE ROUTINE IF KEY IS NUMERIC DISPLAY
TABADR	GDX.I,1		; ADR OF CONVERT ROUTINE -- SK VS INDEX-ENTRY
TABADR	GDX.D,1		; ADR OF CONVERT ROUTINE -- SK VS DATA FILE KEY
TABADR	GDPSK,1		;PARAMETER FOR SYM-KEY CONVERSION
TABADR	GDPRK,1		;PARAMETER FOR REC-KEY CONVERSION
TABADR	GDPRK1,1	;
TABADR	GETSET,1	;DISPATCH LOC: ADJKEY OR GD67 OR FPORFP
TABADR	RECBP,1		;RECORD AREA BYTE-POINTER
TABADR	RSBP,1		;BYTE POINTER TO RECORD SIZE IN BUFFER
TABADR	RSBP1,1		;ANOTHER BP TO RECORD SIZE
TABADR	LRW,1		;FIRST FREE RECORD WORD, USED BY SETLRW
IFN ISTKS,<
	TABADR	INSSS0,1	;EXP (LVL)INSSSS
	TABADR	OUTSS0,1	;EXP (LVL)OUTSSS
	TABADR	INSSSS,16	;NUMBER OF INS/LEVEL
	TABADR	OUTSSS,16	;NUMBER OF OUTS/LEVEL
>
TABADR	IOWRD0,1	;POINTS TO CURRENT IOWRD
TABADR	USOBJ0,1	;POINTS TO CURRENT USOBJ
TABADR	CNTRY0,1	;POINTS TO CURRENT CNTRY
TABADR	NNTRY0,1	;FLAG, CNTRY POINTS TO NEXT ENTRY
TABADR	BPSB,1		;NUMBER OF BITS PER SAT BLOCK
ITABL==ADR-STABL	;INDEX TABLE LEN 
TABADR	BA,0		;START OF BUFFER AREA
ISCLR1==IOWRD		;[432] [377] START OF ISAM SHARED BUFFER AREA TO SAVE
ISCLR2==ICHAN-1		; [377] END OF ISAM SHARED BUFFER TO SAVE
ISMCLR==ISCLR2-ISCLR1	; [377] DIFFERENCE OR SIZE OF AREA LESS 1 TO SAVE




END