C C COMMON DEFINITION FILE FOR SGA, 'INCLUDE'D IN AUTHORIZED SUBROUTINES IMPLICIT INTEGER (A-Z) !ALL VARIABLES DEFAULT TO INTEGER* C C THE FOLLOWING ARE THE FIELD DEFINITIONS FOR COMMON C PARAMETER SGASIZ=5120 !SGA SIZE IN BYTES DIMENSION SGACOM(SGASIZ/2) !ALLOCATION FOR ENTIRE COMMON AREA C INTEGER*4 DBHCLL !COUNT OF DBH CALLS INTEGER*2 PRJTID(2) !ASCII-PROJECT ID INTEGER*2 PRJTNM(10) !ASCII-PROJECT NAME INTEGER*2 PRTYNO(20) !PROPERTY NUMBER INTEGER*4 TODAY !SYSTEM TODAY'S DATE INTEGER*4 PREVME !PREVIOUS MONTHEND DATE INTEGER*2 NEXTIR !NEXT ISSUE REQUEST NUMBER INTEGER*2 NEXDVS !NEXT DVS MESSAGE NUMBER INTEGER*2 NEXTRN !NEXT TRANSACTION NUMBER INTEGER*4 YSTRDY !YESTERDAY'S DATE INTEGER*2 PIKLCK !PICKING FILE LOCK INTEGER*2 RPILCK !RUSH PICKING FILE LOCK INTEGER*2 RGENCT !ACTIVE REPORT GENERATOR COUNT INTEGER*2 MAXRGN !MAXIMUM REPORT GENERATOR COUNT INTEGER*2 TERTIM !TERMINAL READ TIME OUT INTERVAL INTEGER*4 LMUPDT !DATE OF LAST MONTHLY UPDATE INTEGER*4 LQUPDT !DATE OF LAST QUARTERLY UPDATE REAL*4 PCVRNC !PERCENT VARIANCE INTEGER*2 GLA !GLA - 3 BYTE FIELD + 1 BYTE BLANK REAL*4 FEDTAX !FEDERAL TAX RATE REAL*4 PRVTAX !PROV. TAX RATE INTEGER*2 MXRBAT !MAXIMUM BATCH RPGS ALLOWED INTEGER*2 UNUSD1 !UNUSED WORD INTEGER*2 RBATCT !ACTIVE BATCH RPGS INTEGER*2 ALLDLY !WORD 38 - ALLOWABLE DELAY (PRM 3) REAL*4 FEDREF !FEDERAL TAX REFUND INTEGER*4 DBHRDS !COUNT OF DBH READS INTEGER*4 DBHWTS !COUNT OF DBH WRITES INTEGER*4 SCLKWT !COUNT OF WAITS FOR SECTOR LOCK REAL*4 FEDCLM !MICS FEDERAL TAX EXTRACTION INTEGER*2 UNUSD2(5) !UNUSED WORDS INTEGER*2 DMPIND !WORD 82 IS DUMP INDICATOR INTEGER*2 UPDLOK(4) !UPDATE LOCKS FOR COMMON INTEGER*2 DATLOG !DATA LOGGING FLAG INTEGER*2 ENDDAY !END OF DAY FLAG INTEGER*2 LCKOUT !LOCK TIMEOUT INTERVAL INTEGER*2 DBHNAM(2) !RAD50-DATA BASE HANDLER NAME INTEGER*2 CMLKWT !COUNT OF WAITS FOR COMMON LOCK INTEGER*2 NFILOP !NUMBER OF FILES OPEN INTEGER*2 NSECLK !NUMBER OF SECTORS LOCKED INTEGER*2 FIOPTR !STARTING POSITION OF FILE OPEN LIST INTEGER*2 SLKPTR !STARTING POSITION OF SECTOR LOCK LIST C PARAMETER USRLCK =1 !INDEX OF USER PARTITION PARAMETER FLDLCK =2 !INDEX OF FILE DEFINTION PARTITION PARAMETER OPNLCK =3 !INDEX OF OPEN TABLE PARTITION PARAMETER SECLCK =4 !INDEX OF SECTOR LOCK LIST PARTITION C C DIMENSION FILDEF(608) !ALLOCATION FOR FILE DEFINITION TABLE C C DIMENSION FILDFT(19,32) !2-DIMENSION REDEFINE OF FILDEF EQUIVALENCE (FILDEF(1),FILDFT(1,1)) C C THE FOLLOWING ARE SUBFIELD INDEXES FOR FILE DEFINITION TABLE C REFERENCE AS FOLLOWS - IHOLE=FILDEF((ENTRY-1)*FDSIZE+HOLPTR) C PARAMETER FLDFSZ=608 !TOTAL 'FILE DEFINITION' TABLE SIZE PARAMETER FDSIZE=19 !FILE DEFINITION TABLE ENTRY SIZE PARAMETER DISKNO=1 !DISC NUMBER PARAMETER FDFLNU=1 !SPI - FILE NUMBER PARAMETER FDFLNA=2 !ASCII (6 CHARS) - FILE NAME PARAMETER STSECN=5 !DPI - STARTING SECTOR NUMBER PARAMETER ENDSCN=7 !DPI - ENDING SECTOR NUMBER PARAMETER HOLPTR=9 !DPI - RECORD NUMBER OF FIRST AVAILABLE HOLE PARAMETER DSPLCE=11 !DPI - WRAPAROUND FILE DISPLACEMENT PARAMETER LDRPTR=13 !DPI - WRAPPAROUND FILE LEADING RECORD NUMBER PARAMETER TLRPTR=15 !DPI - WRAPAROUND FILE TRAILING RECORD NUMBER PARAMETER KEYLEN=17 !SPI - RECORD KEYLENGTH (BYTES) PARAMETER RECSIZ=18 !SPI - RECORD LENGTH (BYTES) PARAMETER BLKFAC=19 !SPI - BLOCKING FACTOR (IE OF RECS PER SECTOR) C DIMENSION FILOPN(420) !ALLOCATION FOR FILE OPEN TABLE C DIMENSION FILOPT(7,60) !2-DIMENSION REDEFINE OF FILOPN EQUIVALENCE (FILOPN(1),FILOPT(1,1)) C C THE FOLLOWING ARE SUBFIELD INDEXES FOR FILE OPEN TABLE C REFERENCE AS FOLLOWS - IBUFR=FILOPN((ENTRY-1)*FOSIZE+FOBUF) C PARAMETER FOTABL=420 !TOTAL 'FILE OPEN' TABLE SIZE PARAMETER FOSIZE=7 !FILE OPEN TABLE ENTRY SIZE PARAMETER FOFLN=1 !SPI - FILE NUMBER PARAMETER FOTSK=2 !RAD50 (4 CHARS) - TASK NAME PARAMETER FOTI=4 !SPI - TI NUMBER (IE PUD ADDRESS) PARAMETER FOFCB=5 !SPI - VIRTUAL CORE ADDRESS OF DBFCB PARAMETER FOBUF=6 !SPI - VIRTUAL CORE ADDRESS OF ASSOCIATED BUFFER PARAMETER FOTIME=7 !SPI - TIME FILE WAS OPENED IN 10'S OF SECONDS C DIMENSION SECLKL(480) !ALLOCATION FOR SECTOR LOCK LIST C DIMENSION SECLKT(8,60) !2-DIMENSION REDEFINE OF SECLKL EQUIVALENCE (SECLKL(1),SECLKT(1,1)) C C THE FOLLOWING ARE SUBFIELD INDEXES FOR SECTOR LOCK LIST C REFERENCE AS FOLLOWS - ISECT=SECLKL((ENTRY-1)*SLSIZE+SECTOR) C PARAMETER SLTABL=480 !TOTAL 'SECTOR LOCK' TABLE SIZE PARAMETER SLSIZE=8 !SECTOR LOCK LIST ENTRY SIZE PARAMETER SLFLN=1 !SPI - FILE NUMBER PARAMETER SLTSK=2 !RAD50 (4 CHARS) - TASK NAME PARAMETER SLTI=4 !SPI - TI NUMBER PARAMETER SLSECT=5 !DPI - LOCKED SECTOR NUMBER PARAMETER SLFCB=7 !SPI - VIRTUAL CORE ADDRESS OF DBFCB PARAMETER SLTIME=8 !SPI - TIME SECTOR WAS LOCKED IN 10'S OF SECONDS C C DATA BASE HANDLER WORK SPACE C C DIMENSION DBHWRK(960) !DATA BASE HANDLER WORK AREA C INTEGER*2 UFCB(57,2) !POOL OF TWO FCBS INTEGER*2 UFCB1(57) !USER FCB CONTAINS DBFCB PASSED BY DBHTRF INTEGER*2 UFCB2(57) !SCRATCH INTEGER*2 UREC(256) !CONTAINS NEW RECORD BUFFER (INSERT ONLY) INTEGER*2 UBUF(256,2) !POOL OF TWO SECTOR BUFFERS INTEGER*2 UBUF1(256) !FIRST BUFFER CONTAINS SECTOR FOR FIRST DBFCB INTEGER*2 UBUF2(256) !SCRATCH INTEGER*2 DBIMSG(4) !BUFFER FOR MESSAGE FROM DBI TO DBH INTEGER*2 DBITSK(2) !RAD50 TASKNAME INTEGER*2 DBIFCB !VIRTUAL ADDRESS OF DBFCB IN DBI TASK INTEGER*2 DBITI !TI OF DBI TASK INTEGER*2 DBHFIL(74) !SCRATCH EQUIVALENCE (DBHWRK(1),UFCB(1,1)) EQUIVALENCE (UFCB(1,1),UFCB1(1)) EQUIVALENCE (UFCB(1,2),UFCB2(1)) EQUIVALENCE (DBHWRK(115),UREC(1)) EQUIVALENCE (DBHWRK(371),UBUF(1,1)) EQUIVALENCE (UBUF(1,1),UBUF1(1)) EQUIVALENCE (UBUF(1,2),UBUF2(1)) EQUIVALENCE (DBHWRK(883),DBIMSG(1)) EQUIVALENCE (DBIMSG(1),DBITSK(1)) EQUIVALENCE (DBIMSG(3),DBIFCB) EQUIVALENCE (DBIMSG(4),DBITI) EQUIVALENCE (DBHWRK(887),DBHFIL(1)) C C C EQUIVALENCE (SGACOM(001),DBHCLL),(SGACOM(003),PRJTNM) EQUIVALENCE (SGACOM(013),TODAY),(SGACOM(015),PREVME) EQUIVALENCE (SGACOM(017),NEXTIR),(SGACOM(018),NEXDVS) EQUIVALENCE (SGACOM(019),NEXTRN),(SGACOM(020),YSTRDY) EQUIVALENCE (SGACOM(022),PIKLCK),(SGACOM(023),RPILCK) EQUIVALENCE (SGACOM(024),RGENCT),(SGACOM(025),MAXRGN) EQUIVALENCE (SGACOM(26),TERTIM),(SGACOM(27),LMUPDT) EQUIVALENCE (SGACOM(29),LQUPDT) EQUIVALENCE (SGACOM(31),PCVRNC) EQUIVALENCE (SGACOM(33),GLA) EQUIVALENCE (SGACOM(35),MXRBAT),(SGACOM(36),UNUSD1) EQUIVALENCE (SGACOM(37),RBATCT),(SGACOM(38),ALLDLY) EQUIVALENCE (SGACOM(39),FEDTAX),(SGACOM(41),PRVTAX) EQUIVALENCE (SGACOM(047),PRTYNO(1)),(SGACOM(043),UPDLOK(1)) EQUIVALENCE (PRTYNO,PRJTID),(SGACOM(67),UNUSD2) EQUIVALENCE (SGACOM(72),FEDCLM) EQUIVALENCE (SGACOM(74),FEDFEF) EQUIVALENCE (SGACOM(76),DBHRDS) EQUIVALENCE (SGACOM(78),DBHWTS),(SGACOM(80),SCLKWT) EQUIVALENCE (SGACOM(82),DMPIND) EQUIVALENCE (SGACOM(083),DATLOG),(SGACOM(084),ENDDAY) EQUIVALENCE (SGACOM(085),LCKOUT),(SGACOM(086),DBHNAM) EQUIVALENCE (SGACOM(088),CMLKWT),(SGACOM(089),NFILOP) EQUIVALENCE (SGACOM(090),NSECLK),(SGACOM(091),FIOPTR) EQUIVALENCE (SGACOM(092),SLKPTR),(SGACOM(093),FILDEF) EQUIVALENCE (SGACOM(0701),FILOPN),(SGACOM(1121),SECLKL) EQUIVALENCE (SGACOM(1601),DBHWRK(1)) C C C C