[?29h[2"z     UIF300   User Interface Main Program.
      
      
     Purpose:
      
         This program insulates the user from VMS and allows him to
         run applications either from a menu or by entering a trans-
         action name.  It also provides transparent security based on
         username.
      
     Options:
      
         Allows either batch or interactive processing.
      
     Logic:
      
         The program calls a routine (UTL560) to get the username of
         the person running the program.  It then reads the User file
         to get the generic username and top level menu name.  It then
         reads the Master file to get the top level menu record.  If
         either of the above records doesn't exist message is dis-
         played to the user and the program halts with a fatal error.
         Otherwise, it calls the screen handler subroutine (UIF310),
         passing the generic username, top level menu name, the top
         level menu record, and a status switch.  The screen handler
         displays menus by calling itself recursively or calls the
         transaction processor depending upon the users choice, until
         the user responds that he is done.  It then returns to the
         main program.  The program determines which of the above
         conditions occurred.  An error is treated as above.  If the
         status switch indicates that the user is done, the program
         exits. Otherwise, the program calls the screen handler pass-
         ing it the same parameters as above.
      
      
     Subprograms:
      
         1.  UTL560:  Get Username.
              Calling Sequence:
                   CALL "UTL560" USING USERNAME 
                        GIVING SUBROUTINE-RETURN-STATUS.
         where:
              USERNAME - is PIC X(12) and is the Username defined in
              USERNAME
         the System User Authorization File.
      
              SUBROUTINE-RETURN-STATUS - is PIC S9(09) COMP. This
              SUBROUTINE-RETURN-STATUS
         variable is the VMS System completion status of UTL560.
      











     Revised: 30-Oct-84                                         Page 1






         2.  UIF310:  Screen handler.
              Calling Sequence:
                   CALL "UIF310" USING MASTER-RECORD, USER-RECORD, 
                        EXIT-SW GIVING  SUBROUTINE-RETURN-STATUS.
         where:
              MASTER-RECORD - is in the CDD under UIF_MASTER_RECORD
              MASTER-RECORD
         and contains menu and/or transaction information.
      
              WS-USER-RECORD - is PIC X(21) and contains the top level
              WS-USER-RECORD
         menu name and the generic username.
      
              EXIT-SW - is a switch PIC X(01) with the following
              EXIT-SW
         values:
                   NOT-DONE - "N";
                   TOP-LEVEL-MENU - "T";
                   FIRST-TIME - "F";
                   DONE - "Y".
      
              SUBROUTINE-RETURN-STATUS - is PIC S9(09) COMP. This
              SUBROUTINE-RETURN-STATUS
         variable is the VMS System completion status of UIF310.
      
     Files:
      
        File Id       File Name                    Usage
      
        UIF340.MAS    User Interface Master File   Input
        UIF340.USR    User Interface Username File Input
      
     Display Messages:
      
         Message:
      
              "UTL560 - E(F) ERROR GETTING USER NAME - CONTACT DP
              IMMEDIATELY".
      
         Response:
      
              There was an error in UTL560.  
      
         Message:
      
              "UIF300 - F - USER NOT IN USER FILE.  CONTACT DP.".
      
         Response:
      
              An invalid key condition was detected reading
              UIF340.USR.
      











     Revised: 30-Oct-84                                         Page 2






         Message:
      
              "UIF300 - F - ERROR READING UIF-MASTER.  CONTACT DP.".
      
         Response:
      
              An invalid key condition was detected reading
              UIF340.MAS.



















































     Revised: 30-Oct-84                                         Page 3