50 lines
2.3 KiB
Plaintext
50 lines
2.3 KiB
Plaintext
Compile Insert labelled.commons
|
|
|
|
* 08-10-16 rjc Copeid from Arev BP
|
|
|
|
!
|
|
COMMON /KEY/ KEYS , EXEC.POINTER ,OLD.POINTER , PASSING ,TRANSFER.TO, LINKED.GROUPS, EXEC.GROUP, PUPD, PRIMARY, MODE.FLAG, WINDOW.ON, TRANSFER.POP
|
|
!
|
|
* KEYS array Equates
|
|
EQU K.VIDS$ TO 1 ;* Voc Id
|
|
EQU K.SCANS$ TO 2 ;* Function Key's Scan Codes
|
|
EQU K.KEYS$ TO 3 ;* Function Key's Name
|
|
EQU K.TEMPLATES$ TO 4 ;* Name of the Record in the associated K.STORAGE$ File.
|
|
EQU K.TITLES$ TO 5 ;* Title for the Template
|
|
EQU K.FILES$ TO 6 ;* Name of the File the Template Accesses
|
|
EQU K.PT.FILES$ TO 7 ;* Names of the files to pass the keys to
|
|
EQU K.STORAGE$ TO 8 ;* Name of the file where the template is stored.
|
|
|
|
* PRIMARY array Equates
|
|
EQU P.FILES$ TO 1 ;* Files with Primary Data Entry Screens
|
|
EQU P.VIDS$ TO 2 ;* Voc Ids of the Primary Screens by file
|
|
EQU P.ACT.MSGS$ TO 3 ;* Action Messages
|
|
EQU P.ALT.MSGS$ TO 4 ;* Alternative Messages
|
|
EQU P.CORREX$ TO 5 ;* List Of screens with Correction Mode - No longer Used
|
|
|
|
* LINKED.GROUPS array Equates
|
|
EQU LG.NAMES TO 1 ;* Names of the Link Groups
|
|
EQU LG.VIDS TO 2 ;* Lists of Voc Ids in Each Group in Order of Execution
|
|
*
|
|
EQU KEY.IX$ TO '@KEYS@'
|
|
EQU KEY.US$ TO "@KEYS.":@USERNAME:"@"
|
|
EQU PRI.IX$ TO '@PRIMARY@'
|
|
EQU LNK.IX$ TO '@LINK.GROUPS@'
|
|
EQU LNK.US$ TO '@LINK.GROUPS.':@USERNAME:'@'
|
|
|
|
* EXEC.POINTER - Pointer to the position in the KEYS array for Executing Template
|
|
* OLD.POINTER - Pointer to the previos Template when transfering Betwwen Templates
|
|
* PASSING - Variable contains the key from the last screen
|
|
* TRANSFER.TO - If has a value when Program Terminates, the Value will get
|
|
* Executed - Actual Transfer Mechanism
|
|
* EXEC.GROUP - Link Group currently Active
|
|
* PUPD - if True - Permanent Update Mode is ON
|
|
* MODE.FLAG - if True - Corections Mode is ON
|
|
* WINDOW.ON - flag for MMI.MFS to indicate the call comes from a WINDOW
|
|
* TRANSFER.POP - A list constructed and cached in TRANSFER of the valid keys
|
|
|
|
* Source Date : 09:08:02 13 DEC 1989 - User : PJM - Product : HR-1
|
|
* Copy Date : 09:17:11 04 APR 1990 - User : AG - Product : HR-1
|
|
* Copy Date : 16:03:30 06 MAY 1992 - User : AG - Product : - V6.00
|
|
* Originally BP LABELLED.COMMONS -- Moved by V5.5 upgrade 20:48:12 18 NOV 1992
|