47 lines
1.6 KiB
Plaintext
Executable File
47 lines
1.6 KiB
Plaintext
Executable File
*--------------------------------------------------------------------
|
|
*PGM NAME: GEN.COMMON
|
|
*PURPOSE: STANDARD INCLUDE RECORD WHICH CONTAINS COMMON
|
|
* VARIABLES AMONG THE MAJORITY OF 'CMS' PROGRAMS
|
|
*--------------------------------------------------------------------
|
|
COMMON CUR.MENU,LAST.MENU
|
|
COMMON GEN.REC(75),GEN.SCREEN,MODKEY,GENKEY
|
|
COMMON GEN.DETAIL,GEN.KEYS,GEN.DOC
|
|
COMMON RTCOD,SYSTEM.SETUP
|
|
COMMON PM,BA,LTR,PG,EVENT.FILE,FUND.FILE
|
|
COMMON PM.SUBSCRIPTIONS,PM.TRANS,PM.PLEDGES,INVENTORY
|
|
COMMON IT.MATCHCODE,IT.FAMILY,IT.ZIP,IT.LNAME
|
|
COMMON IT.SSN,IT.ENVELOPE,IT.PHONE
|
|
COMMON PM.ORDERS,PM.ORDERS.HISTORY,PM.LETTERS
|
|
COMMON PM.JOURNAL,MSEQ,PM.PRODUCTS
|
|
COMMON PM.DATA,BA.DATA,PT.DATA,PM.DATA.HOLD
|
|
COMMON DF.DATA,STSCODES,INDEXES,PASS
|
|
COMMON PART.KEY,FUNCT,RETURN.CODE,PROCESS,UPDATE
|
|
COMMON TRNS,PL.DATA,BA.KEY,NEW.TRANS,PLG.ARRAY,OEPOINT,INV.ARRAY
|
|
COMMON ORDER.FUNC,JNL,JNLSW,JNLCOMM,TRAN.TYPES
|
|
COMMON ORDERS(20),SUBSCRIPTIONS(10)
|
|
COMMON TOVERFLOW,PASSAREA,INV.TRANS,INV.ACTIVITY,INV.COST,INV.JOURNAL
|
|
COMMON FILE01,FILE02,FILE03,PM.LABELS,MTEK800INFO
|
|
COMMON PURGE.INQ
|
|
COMMON BT.TREE,BT.ROOTID,BT.SKEY,BT.INDAT,BT.STATUS
|
|
COMMON BT.N,BT.LOC.SEQ,BT.HEIGHT,BT.UPKEY,BT.UPDAT,BT.UPPTR
|
|
COMMON BT.START,BT.PREFIX,BT.POSTFIX,BT.KEYS,BT.LINES
|
|
COMMON BT.NOMORE,BT.NOLESS,BT.RETFLG,BT.MAX,BT.DATS
|
|
*
|
|
EQU BT$NUM TO 1
|
|
EQU BT$KEY TO 2
|
|
EQU BT$PTR TO 3
|
|
EQU BT$DAT TO 4
|
|
*
|
|
CS=@(-1) ; CR=@(-3) ; CL=@(-4) ; RV=@(-13) ; ERV=@(-14)
|
|
VM=CHAR(253) ; SVM=CHAR(252) ; AM=CHAR(254) ; BEEP=CHAR(7)
|
|
PF1='<' ; PF2='P' ; PF3='/'
|
|
PROMPT " "
|
|
*
|
|
IF SYSTEM(7)='viewpoint' THEN
|
|
HI=RV; EHI=ERV
|
|
COFF=CHAR(23); CON=CHAR(24)
|
|
END ELSE
|
|
HI=@(-15); EHI=@(-16)
|
|
COFF=''; CON=''
|
|
END
|