home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / compiler / cobol650 / cobsrc / mainmenu.cob < prev    next >
Encoding:
Text File  |  1990-05-17  |  15.0 KB  |  307 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. MAIN01A.
  3.        ENVIRONMENT DIVISION.
  4.        CONFIGURATION SECTION.
  5.        SPECIAL-NAMES.
  6.            PRINTER IS PRINTER-DISPLAY.
  7.        DATA DIVISION.
  8.        WORKING-STORAGE SECTION.
  9.       *************************************************************
  10.       *                                                           *
  11.       *  KEY-SWITCH IS USED FOR THE RETURN VALUE OF INKEY         *
  12.       *                                                           *
  13.       *  KEY-SWITCH-? IS THE VALUE OF FUNCTION KEYS               *
  14.       *                                                           *
  15.       *************************************************************
  16.  
  17.        01 KEY-SWITCH-MENU                         PIC X.
  18.        01 KEY-SWITCH-F1                           PIC X
  19.                                                   VALUE ";".
  20.        01 KEY-SWITCH-F2                           PIC X
  21.                                                   VALUE "<".
  22.        01 KEY-SWITCH-F3                           PIC X
  23.                                                   VALUE "=".
  24.        01 KEY-SWITCH-F4                           PIC X
  25.                                                   VALUE ">".
  26.        01 KEY-SWITCH-F5                           PIC X
  27.                                                   VALUE "?".
  28.        01 KEY-SWITCH-F6                           PIC X
  29.                                                   VALUE "@".
  30.        01 KEY-SWITCH-F7                           PIC X
  31.                                                   VALUE "A".
  32.        01 KEY-SWITCH-F8                           PIC X
  33.                                                   VALUE "B".
  34.        01 KEY-SWITCH-F9                           PIC X
  35.                                                   VALUE "C".
  36.        01 KEY-SWITCH-F10                          PIC X
  37.                                                   VALUE "D".
  38.       **************************************************************
  39.       *                                                            *
  40.       *   SCRN-FUNC-KEYS ARE THE 24 LINE SCREEN MENU DISPLAY AREA  *
  41.       *                                                            *
  42.       *   MOVING THE APROP. COMMAND DISC IN THE FUNCTION KEY DISP  *
  43.       *                                                            *
  44.       *                                                            *
  45.       **************************************************************
  46.  
  47.        01 SCRN-FUNC-KEYS.
  48.           05 F1                                   PIC X(6)
  49.                                                   VALUE SPACES.
  50.           05 F2                                   PIC X(6)
  51.                                                   VALUE SPACES.
  52.           05 F3                                   PIC X(6)
  53.                                                   VALUE SPACES.
  54.           05 F4                                   PIC X(6)
  55.                                                   VALUE SPACES.
  56.           05 F5                                   PIC X(6)
  57.                                                   VALUE SPACES.
  58.           05 F6                                   PIC X(6)
  59.                                                   VALUE SPACES.
  60.           05 F7                                   PIC X(6)
  61.                                                   VALUE SPACES.
  62.           05 F8                                   PIC X(6)
  63.                                                   VALUE SPACES.
  64.           05 F9                                   PIC X(6)
  65.                                                   VALUE SPACES.
  66.           05 F10                                  PIC X(6)
  67.                                                   VALUE SPACES.
  68.           05 F1-25-L                              PIC X(6)
  69.                                                   VALUE SPACES.
  70.           05 F2-25-L                              PIC X(6)
  71.                                                   VALUE SPACES.
  72.           05 F3-25-L                              PIC X(6)
  73.                                                   VALUE SPACES.
  74.           05 F4-25-L                              PIC X(6)
  75.                                                   VALUE SPACES.
  76.           05 F5-25-L                              PIC X(6)
  77.                                                   VALUE SPACES.
  78.           05 F6-25-L                              PIC X(6)
  79.                                                   VALUE SPACES.
  80.           05 F7-25-L                              PIC X(6)
  81.                                                   VALUE SPACES.
  82.           05 F8-25-L                              PIC X(6)
  83.                                                   VALUE SPACES.
  84.           05 F9-25-L                              PIC X(6)
  85.                                                   VALUE SPACES.
  86.           05 F10-25-L                             PIC X(6)
  87.                                                   VALUE SPACES.
  88.  
  89.  
  90.       ***************************************************************
  91.       *                                                             *
  92.       *   WORK-NAMES-RECORD IS THE WORKING STORAGE COPY OF THE      *
  93.       *                                                             *
  94.       *   DATA FILE, ALL EDITING, DISPLAYING, AND DATA ENTRY USES   *
  95.       *                                                             *
  96.       *   THESE FIELDS.                                             *
  97.       ***************************************************************
  98.  
  99.  
  100.        01 PASSWORD-ACCESS-FLAG                   PIC X.
  101.        01 CALLING-PRGM-NAME                      PIC X(12)
  102.                                                  VALUE "MAINMENU.EXE".
  103.        SCREEN SECTION.
  104.  
  105.        01 SCREEN1-ADDRESS-ENTRY.
  106.           05 LINE 1 COLUMN 16       VALUE "L I B R A R Y"
  107.                                     HIGHLIGHT.
  108.           05 LINE 1 COLUMN 33       VALUE "M A N A G M E N T"
  109.                                     HIGHLIGHT.
  110.           05 LINE 1 COLUMN 57       VALUE "S Y S T E M"
  111.                                     HIGHLIGHT.
  112.           05 LINE 2 COLUMN 1        HIGHLIGHT
  113.              VALUE "****************************************".
  114.           05 LINE 2 COLUMN 41       HIGHLIGHT
  115.              VALUE "****************************************".
  116.  
  117.  
  118.        01 FUNC-KEYS.
  119.           05 LINE 23 COLUMN 2       FOREGROUND-COLOR 1
  120.                                     BACKGROUND-COLOR 7
  121.                                     VALUE "  F1  ".  
  122.           05 LINE 23 COLUMN 10      FOREGROUND-COLOR 1
  123.                                     BACKGROUND-COLOR 7
  124.                                     VALUE "  F2  ".  
  125.           05 LINE 23 COLUMN 18      FOREGROUND-COLOR 1
  126.                                     BACKGROUND-COLOR 7
  127.                                     VALUE "  F3  ".  
  128.           05 LINE 23 COLUMN 26      FOREGROUND-COLOR 1
  129.                                     BACKGROUND-COLOR 7
  130.                                     VALUE "  F4  ".  
  131.           05 LINE 23 COLUMN 34      FOREGROUND-COLOR 1
  132.                                     BACKGROUND-COLOR 7
  133.                                     VALUE "  F5  ".  
  134.           05 LINE 23 COLUMN 42      FOREGROUND-COLOR 1
  135.                                     BACKGROUND-COLOR 7
  136.                                     VALUE "  F6  ".  
  137.           05 LINE 23 COLUMN 50      FOREGROUND-COLOR 1
  138.                                     BACKGROUND-COLOR 7
  139.                                     VALUE "  F7  ".  
  140.           05 LINE 23 COLUMN 58      FOREGROUND-COLOR 1
  141.                                     BACKGROUND-COLOR 7
  142.                                     VALUE "  F8  ".  
  143.           05 LINE 23 COLUMN 66      FOREGROUND-COLOR 1
  144.                                     BACKGROUND-COLOR 7
  145.                                     VALUE "  F9  ".  
  146.           05 LINE 23 COLUMN 74      FOREGROUND-COLOR 1
  147.                                     BACKGROUND-COLOR 7
  148.                                     VALUE "  F10 ".  
  149.  
  150.  
  151.           05 LINE 24 COLUMN 2       FOREGROUND-COLOR 1
  152.                                     BACKGROUND-COLOR 7
  153.                                     PIC X(6)         
  154.                                     FROM F1.
  155.           05 LINE 24 COLUMN 10      FOREGROUND-COLOR 1
  156.                                     BACKGROUND-COLOR 7
  157.                                     PIC X(6)
  158.                                     FROM F2.
  159.           05 LINE 24 COLUMN 18      FOREGROUND-COLOR 1
  160.                                     BACKGROUND-COLOR 7
  161.                                     PIC X(6)
  162.                                     FROM F3.
  163.           05 LINE 24 COLUMN 26      FOREGROUND-COLOR 1
  164.                                     BACKGROUND-COLOR 7
  165.                                     PIC X(6)
  166.                                     FROM F4.
  167.           05 LINE 24 COLUMN 34      FOREGROUND-COLOR 1
  168.                                     BACKGROUND-COLOR 7
  169.                                     PIC X(6)
  170.                                     FROM F5.
  171.           05 LINE 24 COLUMN 42      FOREGROUND-COLOR 1
  172.                                     BACKGROUND-COLOR 7
  173.                                     PIC X(6)
  174.                                     FROM F6.
  175.           05 LINE 24 COLUMN 50      FOREGROUND-COLOR 1
  176.                                     BACKGROUND-COLOR 7
  177.                                     PIC X(6)
  178.                                     FROM F7.
  179.           05 LINE 24 COLUMN 58      FOREGROUND-COLOR 1
  180.                                     BACKGROUND-COLOR 7
  181.                                     PIC X(6)
  182.                                     FROM F8.
  183.           05 LINE 24 COLUMN 66      FOREGROUND-COLOR 1
  184.                                     BACKGROUND-COLOR 7
  185.                                     PIC X(6)
  186.                                     FROM F9.
  187.           05 LINE 24 COLUMN 74      FOREGROUND-COLOR 1
  188.                                     BACKGROUND-COLOR 7
  189.                                     PIC X(6)
  190.                                     FROM F10.
  191.  
  192.           05 LINE 25 COLUMN 2       FOREGROUND-COLOR 1
  193.                                     BACKGROUND-COLOR 7
  194.                                     PIC X(6)
  195.                                     FROM F1-25-L.
  196.           05 LINE 25 COLUMN 10      FOREGROUND-COLOR 1
  197.                                     BACKGROUND-COLOR 7
  198.                                     PIC X(6)
  199.                                     FROM F2-25-L.
  200.           05 LINE 25 COLUMN 18      FOREGROUND-COLOR 1
  201.                                     BACKGROUND-COLOR 7
  202.                                     PIC X(6)
  203.                                     FROM F3-25-L.
  204.           05 LINE 25 COLUMN 26      FOREGROUND-COLOR 1
  205.                                     BACKGROUND-COLOR 7
  206.                                     PIC X(6)
  207.                                     FROM F4-25-L.
  208.           05 LINE 25 COLUMN 34      FOREGROUND-COLOR 1
  209.                                     BACKGROUND-COLOR 7
  210.                                     PIC X(6)
  211.                                     FROM F5-25-L.
  212.           05 LINE 25 COLUMN 42      FOREGROUND-COLOR 1
  213.                                     BACKGROUND-COLOR 7
  214.                                     PIC X(6)
  215.                                     FROM F6-25-L.
  216.           05 LINE 25 COLUMN 50      FOREGROUND-COLOR 1
  217.                                     BACKGROUND-COLOR 7
  218.                                     PIC X(6)
  219.                                     FROM F7-25-L.
  220.           05 LINE 25 COLUMN 58      FOREGROUND-COLOR 1
  221.                                     BACKGROUND-COLOR 7
  222.                                     PIC X(6)
  223.                                     FROM F8-25-L.
  224.           05 LINE 25 COLUMN 66      FOREGROUND-COLOR 1
  225.                                     BACKGROUND-COLOR 7
  226.                                     PIC X(6)
  227.                                     FROM F9-25-L.
  228.           05 LINE 25 COLUMN 74      FOREGROUND-COLOR 1
  229.                                     BACKGROUND-COLOR 7
  230.                                     PIC X(6)
  231.                                     FROM F10-25-L.
  232.  
  233.  
  234.  
  235.        01 CLS.
  236.           05 FOREGROUND-COLOR 6   BACKGROUND-COLOR 1
  237.                                   BLANK SCREEN.
  238.  
  239.  
  240.        PROCEDURE DIVISION.
  241.        C000-MAIN-LINE SECTION.
  242.        C020-MAIN-LINE-LOGIC.
  243.            PERFORM DO-ACCEPT-1-COMMAND UNTIL KEY-SWITCH-MENU 
  244.                    EQUAL KEY-SWITCH-F10.
  245.            STOP RUN.
  246.        C200-DISPLAY-NEW-SCREEN.
  247.            DISPLAY CLS.
  248.            DISPLAY FUNC-KEYS.
  249.            DISPLAY SCREEN1-ADDRESS-ENTRY.
  250.        MENU-1-MAIN.
  251.            MOVE "  ADD " TO F1.
  252.            MOVE "  ADD " TO F2.
  253.            MOVE "      " TO F3.
  254.            MOVE "      " TO F4.
  255.            MOVE "      " TO F5.
  256.            MOVE "      " TO F6.
  257.            MOVE "      " TO F7.
  258.            MOVE "      " TO F8.
  259.            MOVE "      " TO F9.
  260.            MOVE " EXIT " TO F10.
  261.            MOVE "PATRON" TO F1-25-L.
  262.            MOVE " BOOKS" TO F2-25-L.
  263.            MOVE "      " TO F3-25-L.
  264.            MOVE "      " TO F4-25-L.
  265.            MOVE "      " TO F5-25-L.
  266.            MOVE "      " TO F6-25-L.
  267.            MOVE "      " TO F7-25-L.
  268.            MOVE "      " TO F8-25-L.
  269.            MOVE "      " TO F9-25-L.
  270.            MOVE "      " TO F10-25-L.
  271.  
  272.        DO-ACCEPT-1-COMMAND.
  273.            PERFORM MENU-1-MAIN.
  274.            PERFORM C200-DISPLAY-NEW-SCREEN.
  275.            PERFORM GET-IT.
  276.  
  277.        GET-IT.
  278.       ***************************************************************
  279.       *  BECAUSE OF AN ERROR IN THE COMPILER ON ESCAPE KEY FUNCTION *
  280.       *  I HAVE WRITTEN ASSMB CODE TO REPLACE ESCAPE KEY ENTRENCE IS*
  281.       *  CALL "INKEY" USING KEY-SWITCH                              *
  282.       *  IF A FUNCTION KEY IS PRESSED THE CHAR OF SUCH IS RETURNED  *
  283.       *  ELSE THE ORG VALUE IS MAINTAINED.                          *
  284.       *  VALUES ARE  F1 = <                                         *
  285.       *              F2 = =                                         *
  286.       *              F3 = >                                         *
  287.       *              F4 = ?                                         *
  288.       *              F5 = @                                         *
  289.       *              F6 = A                                         *
  290.       *              F7 = B                                         *
  291.       *              F8 = C                                         *
  292.       *              F9 = D                                         *
  293.       *              F10 = E                                         *
  294.       *  OTHER VALUES ARE VALID DEPENDING ON ALT AND CTRL COMBINES   *
  295.       ****************************************************************
  296.  
  297.  
  298.  
  299.            MOVE "1" TO PASSWORD-ACCESS-FLAG.
  300.            MOVE "N" TO KEY-SWITCH-MENU.
  301.            CALL "INKEY" USING KEY-SWITCH-MENU.
  302.            IF  KEY-SWITCH-MENU EQUAL KEY-SWITCH-F1
  303.                CHAIN "LIB0001A.EXE" USING PASSWORD-ACCESS-FLAG 
  304.                                    CALLING-PRGM-NAME
  305.            ELSE IF KEY-SWITCH-MENU EQUAL KEY-SWITCH-F2
  306.                DISPLAY "ENTRY NOT YET VALID".
  307.