Warning, /include/fatmen/fatpara.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/07 15:17:57 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_FATMEN_FATPARA_INC
0010 #define CERNLIB_FATMEN_FATPARA_INC
0011 *
0012 *
0013 * fatpara.inc
0014 *
0015 * Start of FATMEN sequence FATPARA
0016 #include "fatmen/fttpara.inc"
0017 *
0018 ** *** Data set bank mnemonics
0019 *
0020 * Keys
0021 PARAMETER ( MKSRFA= 1, MKFNFA= 2, MKCLFA=7, MKMTFA=8
0022 1 ,MKLCFA= 9, MKNBFA=10, NKDSFA=10,MKDRFA=2)
0023 *
0024 ** *** Bank offsets
0025 *
0026 PARAMETER ( MFQNFA= 1, MHSNFA= 65, MCPLFA= 67, MDRPFA= 67
0027 1 ,MMTPFA= 68, MLOCFA= 69, MHSTFA= 70, MHOSFA= 74
0028 2 ,MVSNFA= 77, MVIDFA= 79, MVIPFA= 81, MDENFA= 82
0029 3 ,MVSQFA= 83, MFSQFA= 84, MSRDFA= 85, MERDFA= 86
0030 4 ,MSBLFA= 87, MEBLFA= 88, MRFMFA= 89, MRLNFA= 90
0031 5 ,MBLNFA= 91, MFLFFA= 92, MFUTFA= 93, MCRTFA= 94
0032 6 ,MCTTFA= 95, MLATFA= 96, MCURFA= 97, MCIDFA= 99
0033 7 ,MCNIFA=101, MCJIFA=103, MFPRFA=105, MSYWFA=106
0034 8 ,MUSWFA=116, MUCMFA=126, NWDSFA=145
0035 9 ,MFSZFA=MSYWFA,MUSCFA=MSYWFA+1)
0036
0037 *
0038 ** *** Lengths of character fields in bytes
0039 *
0040 PARAMETER ( NFQNFA = (MHSNFA-MFQNFA)*4,
0041 + NHSNFA = (MCPLFA-MHSNFA)*4,
0042 + NHSTFA = (MHOSFA-MHSTFA)*4,
0043 + NHOSFA = (MVSNFA-MHOSFA)*4,
0044 + NVSNFA = (MVIDFA-MVSNFA)*4,
0045 + NVIDFA = (MVIPFA-MVIDFA)*4,
0046 + NRFMFA = (MRLNFA-MRFMFA)*4,
0047 + NFLFFA = (MFUTFA-MFLFFA)*4,
0048 + NFUTFA = (MCRTFA-MFUTFA)*4,
0049 + NCURFA = (MCIDFA-MCURFA)*4,
0050 + NCIDFA = (MCNIFA-MCIDFA)*4,
0051 + NCNIFA = (MCJIFA-MCNIFA)*4,
0052 + NCJIFA = (MFPRFA-MCJIFA)*4,
0053 + NUCMFA = (NWDSFA-MUCMFA)*4)
0054 *
0055 ** *** Lengths of integer fields in words
0056 *
0057 PARAMETER ( NCPLFA = 1 )
0058 PARAMETER ( NMTPFA = 1 )
0059 PARAMETER ( NLOCFA = 1 )
0060 PARAMETER ( NVIPFA = 1 )
0061 PARAMETER ( NDENFA = 1 )
0062 PARAMETER ( NVSQFA = 1 )
0063 PARAMETER ( NFSQFA = 1 )
0064 PARAMETER ( NSRDFA = 1 )
0065 PARAMETER ( NERDFA = 1 )
0066 PARAMETER ( NSBLFA = 1 )
0067 PARAMETER ( NEBLFA = 1 )
0068 PARAMETER ( NRLNFA = 1 )
0069 PARAMETER ( NBLNFA = 1 )
0070 PARAMETER ( NCRTFA = 1 )
0071 PARAMETER ( NCTTFA = 1 )
0072 PARAMETER ( NLATFA = 1 )
0073 PARAMETER ( NFPRFA = 1 )
0074 PARAMETER ( NFSZFA = 1 )
0075 PARAMETER ( NUSCFA = 1 )
0076 PARAMETER ( NUSWFA = 10 )
0077 PARAMETER ( NSYWFA = 10 )
0078 *
0079 * Definitions of 'Copy Level' (i.e. Data representation)
0080 * These definitions adhere to those used in FPACK
0081 *
0082 * PARAMETER (MFIEEE= 1, MFEEEI= 5, MFIBM =2, MFCRAY= 4,
0083 PARAMETER (MFIEEE= 1, MFEEEI= 4, MFIBM =2, MFCRAY= 5,
0084 + MFVAX = 3)
0085
0086 *
0087 * Maximum # of location codes, copy levels, media types and luns
0088 *
0089 PARAMETER (KMXLOC=99, KMXCPL=99, KMXMTP=99, KMXLUN=99)
0090 PARAMETER (KMXKEY=99)
0091
0092 INTEGER IBTYPE(35)
0093 INTEGER IBOFFS(35)
0094 INTEGER IBLENG(35)
0095 CHARACTER*6 CHBANK(35)
0096 * End of FATMEN sequence FATPARA
0097
0098 #endif
