*--------------------------------------------------------------------
*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