! !*********************************************************************** !* * !* Declarations for shareable basegla * !* * !*********************************************************************** ! ! !*********************************************************************** !* * !* Constants * !* * !*********************************************************************** ! CONSTINTEGER MAXCONF = 96; ! This MUST be one less than some prime number. CONSTINTEGER MAXFD=48 CONSTINTEGER MAXPROMPTSIZE=108 CONSTINTEGER MAXSIGLEVEL = 7 CONSTINTEGER PCHARLIM = 615 CONSTINTEGER PRMLIM = 32; ! Max numbers of parameters for a command. CONSTINTEGER RPLIM = 512 CONSTINTEGER SOURCE LEVELS = 15 CONSTINTEGER STREAM MAXREC=256 ! !*********************************************************************** !* * !* Record Formats * !* * !*********************************************************************** ! RECORDFORMAT CONFF(STRING (18) FILE, C INTEGER CONAD, SIZE, HOLE, MODE, USE, FSYS) RECORDFORMAT DUFFGLAF(INTEGER FROM,TO) RECORDFORMAT FDF(INTEGER LINK, DSNUM, C BYTEINTEGER STATUS, ACCESSROUTE, VALID ACTION, CUR STATE, C BYTEINTEGER MODE OF USE, MODE, FILE ORG, DEV CODE, C BYTEINTEGER REC TYPE, FLAGS, LM, RM, C INTEGER ASVAR, AREC, RECSIZE, MINREC, MAXREC, MAXSIZE, C LASTREC, CONAD, CURREC, CUR, END, TRANSFERS, DARECNUM, C CURSIZE, DATASTART, C (STRING (31) IDEN OR STRING (27) TEMPIDEN, BYTEINTEGER F1,F2,F3,F4), C INTEGER KEYDESC0, KEYDESC1, RECSIZEDESC0, RECSIZEDESC1, C BYTE INTEGER F77FLAG, F77FORM, F77ACCESS, F77STATUS, C INTEGER F77RECL, F77NREC, IDADDR, C BYTE INTEGER F77BLANK, F77UFD, SPARE1, SPARE2) RECORDFORMAT IOSTATF(INTEGER INPOS, STRING (15) INTMESS) RECORDFORMAT ITF(INTEGER INBASE, INLENGTH, INPOINTER, OUTBASE, C OUTLENGTH, OUTPOINTER, OUTBUSY, OMWAITING, INTTWAITING, C JNBASE, JNCUR, JNMAX, LASTFREE, SPARE5, SPARE6, SPARE7) RECORDFORMAT LLINFOF(INTEGER TAB,GLA,ISTK) {Load level info held by LOADER} RECORDFORMAT PD(INTEGER BOUND,ADDRESS) RECORDFORMAT SCTABF(STRING (31) NAME, INTEGER I,J) RECORDFORMAT SD(INTEGER BOUND, ADDRESS, CURRENT OFFSET, CLASS, C INTEGER PARM COUNT, STRING ARRAY NAME KWDN, C RECORD (PD) ARRAY NAME PARM VAL DET) RECORDFORMAT SDIRF(STRING (31) NAME, INTEGER CONAD,TYPE) {While old/new} ! %RECORDFORMAT SDIRF(%STRING(31)NAME, %INTEGER CONAD) RECORDFORMAT SIGDATAF(INTEGER PC, LNB, CLASS, SUBCLASS, C INTEGERARRAY A(0 : 17)) RECORDFORMAT SSLF(INTEGER START,LEN) ! !*********************************************************************** !* * !* SSOWN Record Format * !* * !*********************************************************************** ! RECORDFORMAT SSOWNF( C {>> These long integers must not be moved from here. Addresses are fixed<<} C LONGINTEGER DYNDR {S#DYNAMICREF entry desc},UNSATDR {S#UNSATREF entry desc}, {..........TOTALS owns..........} C BYTEINTEGERARRAY INBUFF (0 : 255),INTMESS(1 : 9), OUTBUFF (0 : 133) {ALLOW ROOM FOR ADDED NL},PARSTRING(0 : 255), PCHAR (0:PCHARLIM-1),PINDEX (1 : PRMLIM) {MAX LIKELY NO OF PARAMS}, RPS (0:RPLIM), {**********} C INTEGER ABGLA {START OF BGLA},ACTIVE { CHECKS FOR LOOPS},ADCSL,AIOSTAT, AITBUFFER,ALLCOMMAND,ALLCONNECT,APAGETURNS, BCIBLANKS,BCIFREE,BCIOLDEST,BOPMESSSTART, BOPMESSLEN {FOR BROADCAST OPER MESSAGES},BROADCASTFILEBASE,CALLBCISTARTED,CONTROLMODE, CKBITS,CURFSYS,CURLENGTH,CURPAR,CURRKI, DATAECHO {FOR INPUT ECHO IN OBEY AND BATCH},DELIVERYCHANGED,DEVARRAYBASE,DFDFINSDC, DFDFOUTSDC,FDLEVEL,FEPMODE,FIRST { 1 while printing first stack frame, some other value for subsequent frames}, GCSTARTED {in GETCOMMAND},GLOBPTR,GLSL,ICRSA, ICRSE,INHIBITMESSAGES,INHIBITPSYSMES,INHIBITSPOOLER, INITFIO1,INITFIO2,INTINPROGRESS,INTQ, ITINLENGTH,ITOUTLENGTH,LASTEP,LASTMASTERREADCH, LASTSWEP,LATEST {IMPOSSIBLE VALUE - What is?},LOCATE PRMS,MAXDEVARRAY, MTCLOSEMODE {FULL UNLOAD BY DEFAULT},OLDPAGETURNS,OPERNO { NO OF OPER IN USE. INITIAL VALUE MUST BE VALID FOR 'OR'ING FOR DPON.}, OPMODE,PCOUNT,PMAP,QPARMF, RCHLIM,RCLB,RCLF,RPTR, RRCBASE,RRCTOP,RSYMLIM,SAVEIDPOINTER, SEQ {in NEXTTEMP},SESSKIC,SSADIRINF,SSARRAYDIAG, SSDATAECHO,SSINITWORKSIZE,SSINVOCATION,SSITWIDTH, SSJOURNAL,SSLASTDFN { Last non-zero director error number translated by DIRTOSS}, SSLDELIM,SSMONITOR,SSNOBLANKLINES {WHEN SET TO 1 SUPPRESS BLANK LINES ON I.T.}, SSNOTE,SSOPERNO {NO OF OPER STARTED FROM},SSOWNFSYS {FSYS FOR THIS USER}, SSRDELIM,SSREASON {REASON FOR STARTING 0=INTERACTIVE,1=STARTED FROM OPER,2=BATCH},SSTERMINALTYPE, SSTTHIDE, SSTTACT, SSTTKN { Used for INT:K control - must stay together and in this order}, STARTSECS,TIDYFSTARTED,TOPFD { HIGHEST FD USED SO FAR THIS SESSION},TTYPE, UNASSPATTERN,USEOPTSTARTED, {**********} C INTEGERARRAY GL IOCP PARM (1:3), GLOBAD(0:20), PAPTR (1:PRMLIM), SAVEIDATA (-2:20,0:3), SSFDMAP (1:99), {**********} C INTEGERNAME ICREVS, KINSTRS, PREVIC, RCODE {POINTS TO COMREG(24) RETURN CODE}, {**********} C LONGINTEGER SSINITPARMS {INITIAL PARMS OPTION}, {**********} C LONGREAL LASTCPUTIME,OLDCPUTIME, {**********} C RECORD (CONFF)ARRAY CONF (0 : MAXCONF), RECORD (FDF)ARRAY FD (1 : MAXFD), RECORD (SIGDATAF)ARRAY SIGDATA (1 : MAXSIGLEVEL), {**********} C RECORD (FDF)NAME INF, RECORD (IOSTATF)NAME IOSTAT {STATUS OF INPUT FROM FEP}, RECORD (ITF)NAME IT, RECORD (FDF)NAME OUTF, {**********} C STRING (1) ACTD, STRING (31) BASEFILE, STRING (8) BOUTPUTDEVICE, STRING (255) CLICOMM,CLIPARM,CSL { CONTROL STREAM LINE}, STRING (6) CURFOWNER, STRING (18) CURFILE, STRING (11) CURFNAME,CURMEMBER, STRING (255) EP6S {STRING FOR ENTRY POINT 6 - COMPILER INPUT}, STRING (11) HOLDAVD, STRING (50) LASTNAME, STRING (1) NULP, STRING (31) PDPREFIX, STRING (MAXPROMPTSIZE) PROMPTTEXT, STRING (255) RCLH, STRING (18) SESSMONFILE, STRING (11) SSCFAULTS {COMPILER FAULTS OPTION}, STRING (8) SSSTARTTIME, STRING (3) SSSUFFIX {ADDED TO NAMES OF TEMP FILES}, STRING (31) STARTFILE, {..........TOTALS externals..........} C INTEGER DIRDISCON,INDEFAULT,INITSTACKSIZE,LOADMONITOR, OUTDEFAULT,SCARCITYFOUND,SSADEFOPT {ADDRESS OF DEFAULT OPTION FILE IN BASEFILE}, SSASESSDIR,SSASTACKSIZE,SSATEMPDIR,SSAUXDR0,SSAUXDR1, SSCURAUX,SSCURBGLA {CURRENT TOP OF BGLA},SSDIRAD, SSINHIBIT, SSINTCOUNT {THESE TWO MUST STAY TOGETHER}, SSMAXAUX,SSMAXBGLA {LAST BYTE OF BGLA},SSMAXFSIZE {MAXIMUM FILE SIZE ALLOWED}, SSOPENUSED,SSSCCOUNT,SSSCTABLE {ADDRESS OF SCTABLE},SSUSTACKUSED, SSUSTACKSIZE,STOPPING,TEMPAVDSET {USED BY PLU PACKAGES}, {**********} C INTEGERARRAY SSCOMREG(0:60), {**********} C STRING (11) AVD { Active directory. **** N.B. Also used by SEPRTNS ****}, STRING (31) OPTIONSFILE, STRING (40) SSFNAME {NAME FOR PSYSMES}, STRING (6) SSOWNER, {..........LOADER owns..........} C INTEGER DYNDATAPC,DYNPC,EUDR0,EUDR1,LANG, MACRODR0,MACRODR1,MAINDR1,MAXUGLA, MONCONAD,SSDYNREFAD,SSTOPADIR,SSUGLASIZE,TEMPISTK, TOPSCT,UNSATPC,USEFORDESCAD {Descriptor ad used by USEFOR},USERSTACKLNB, {**********} C INTEGERARRAY AREASTART(1:7) {Starting addresses of obj file areas}, NEXTAD(1:3),SSLIBERR(1:4), {**********} C INTEGERARRAYNAME RLH,PLH,TLH,SLH, {**********} C INTEGERNAME PERMOFFSET {Nextfree in perm entry table - mapped on to NEXTAD(2)}, TEMPOFFSET { Nextfree in temp entry tables - mapped on to NEXTAD(3)}, {**********} C LONGREAL MONTIMEBASE, {**********} C RECORD (DUFFGLAF)ARRAY DUFFGLA(0:63), RECORD (SDIRF)ARRAY SSADIR(-1:16) {Search dir list}, RECORD (SSLF)ARRAY SSLOADTAB(0:3), {**********} C RECORD (SCTABF)ARRAYNAME SCT, {**********} C STRING (31) USEFORLASTNAME, {**********} C STRING (31)ARRAY PARTLOADED(0:2), {..........LOADER externals..........} C INTEGER LOADINPROGRESS,LOADLEVEL,MONFILEAD,MONFILETOP, NOWARNINGS,PERMISTK,USTB, {**********} C RECORD (LLINFOF)ARRAY LLINFO(-1:31), {**********} C STRING (31) MONFILE, {..........FILEOP owns..........} C BYTEINTEGERARRAY STINBUFF(1:Stream MAXREC) {for stream input }, STOUTBUFF (1:Stream MAXREC+2) {for stream output}, {**********} C INTEGER CURRENT FD,IRGAP {INTER-RECORD GAP}, {..........CLI owns..........} C INTEGER COMMENTF,SAVE BASE,WARNING NUMBER,SAVE LIM,SAVE PTR, ACCUMULATING,STATE,LAST PROMPT,CLI INITIALISED, {**********} C STRING (5) SPECHARS, STRING (3) CONTU,XSTMT, STRING (1) NULLSTRING, STRING (80) D DELIM 1, D DELIM 2, {**********} C RECORD (PD) ACCUMULATION, {..........CLI externals..........} C INTEGER BRACKET FLAG, {..........MACR owns..........} C INTEGER SCADDR,SHORT CUT,LIM,SCLIM,PERMANENCE,SLVL,WSP BASE,WSP LIM,WSP PTR, {**********} C RECORD (SD)ARRAY SOURCE DETAIL (0:SOURCE LEVELS+1), {**********} C INTEGERNAME OFFSET, {**********} C RECORD (SD)NAME CURRENT IN DETAILS, {..........MACR externals..........} C INTEGER IN SOURCE,IN CHAR ADDR,LAST CHAR READ,KWD MAX SIZE,MAC INITIALISED, {..........FDIAG owns - now spare..........} C INTEGERARRAY SPARE1(0:120), {Extra OWNS defined since format first constructed} C {Subsystem diagnostic monitoring owns} C INTEGER SSMONAD,DIAGMON,FULLDUMP, {Extras} C DYNREFSTART,DYNREFEND,PRELOADFAILED,UNSHAREDBGLA, OLDDCPU,OLDKINS, {SPARE FIELDS} C INTEGERARRAY SPARE(0:716)) ! ! CONSTRECORD (SSOWNF)NAME SSOWN=X'00100000'; ! In #STK ! !