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