johnblood/tldm-2503
1
0
Fork 0
Code Pull Requests Actions Packages Releases Wiki Activity

added CMS folder

Browse Source
This commit is contained in:
John Paul Wohlscheid
2025-03-31 19:00:48 -04:00
parent c04bc757d9
commit 33048897a7
17778 changed files with 586914 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
CMS/BP.CLOCK/GEN.COMMON Executable file
View File

@@ -0,0 +1,28 @@
*------------------------------------------------------------------------*
*
* MASTER SOFTWARE DESIGN, INC.
*
* STANDARD 'GEN-UTILITY' MENU COMMON STATEMENTS
*
* 'GEN.COMMON' IS A STANDARD COPYBOOK (OR $INCLUDE) RECORD WHICH
* IS USED ON THE MAJORITY OF 'CMS' PROGRAMS
*
COMMON CUR.MENU,LAST.MENU
COMMON GEN.REC(75),GEN.SCREEN,MODKEY,GENKEY,GEN.DETAIL,GEN.KEYS,GEN.DOC
COMMON RTCOD,SYSTEM.SETUP
*
* CMS - COMMON PARAMATERS
*
COMMON PM,BA,LTR,PG,EVENT.FILE,FUND.FILE,IT,PM.TRANS,PM.PLEDGES,INVENTORY
COMMON PM.DATA,BA.DATA,PT.DATA,PM.DATA.HOLD,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 ORDERS,JNL,JNLSW,JNLCOMM,TRAN.TYPES ;* ADDED 'JNL' 8.1.89
COMMON PM.LETTERS,PM.JOURNAL,NOTES.FILE
*
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 " "
*
*------------------------------------------------------------------------*