Step 2:- FT1_COM.INC

This routine sets up the FT1 link access and constants in a common block.

*file member=ft1_com library=snoman language=inc date=24:Nov:1994
 
                      :
                      :
                      :
                    HEADER
                      :
                      :
                      :
 
*     Address mnemonics for titles bank TFT1.
      integer           KTFT1_MIN_PMT,
     +                  KTFT1_MAX_RMS
      parameter        (KTFT1_MIN_PMT = 1,
     +                  KTFT1_MAX_RMS = 2)
 
*     Link Access Block for titles bank TFT1.
      integer           latft1(8) , ltft1 , ldtft1
      equivalence       (latft1(6) , ltft1) , (latft1(7) , ldtft1)
 
*     Bank definitions for data structure banks FT1, FT1V and FT1T.
      integer           mmft1(5) , mmft1v(5) , mmft1t(5)
 
*     Processing statistics.
      integer           ift1_retcs(KSU_NOOP:KSU_FAILED)
 
      common /ft1_com/   latft1, mmft1, mmft1v, mmft1t, ift1_retcs
 
*endfile member=ft1_com

The first block of this include file sets up the address mnemonics for the constants of the TFT1 titles bank described in the previous section. For instance the mnemonic KTFT1_MIN_PMT is set up and assigned by the parameter statement to point to the first constant of the TFT1 titles bank. A glance at the code in the previous section will show that this constant specifies the minimum number of PMT hits for a fit to proceed. The user should specify their own mnemonics here and set them to point to the appropriate words in the TFT1 titles bank.

The remainder of the file sets up link access and bank definition arrays for the titles and data structure banks and requires no alteration.