home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / compiler / cobol650 / cobsrc / lib0001a.cob < prev    next >
Encoding:
Text File  |  1990-08-14  |  31.6 KB  |  651 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. LIB001A .
  3.        ENVIRONMENT DIVISION.
  4.        CONFIGURATION SECTION.
  5.        SPECIAL-NAMES.
  6.            PRINTER IS PRINTER-DISPLAY.
  7.  
  8.  
  9.  
  10.        INPUT-OUTPUT SECTION.
  11.        FILE-CONTROL.
  12.            SELECT NAMES-LIST ASSIGN TO DISK
  13.            ACCESS MODE RANDOM
  14.            ORGANIZATION INDEXED
  15.            RECORD KEY PATRON-NUMBER.
  16.            SELECT CONTROL-FILE ASSIGN TO DISK
  17.            ORGANIZATION IS SEQUENTIAL.
  18.        DATA DIVISION.
  19.        FILE SECTION.
  20.  
  21.        copy test.cb1.
  22.  
  23.  
  24.        WORKING-STORAGE SECTION.
  25.       *************************************************************
  26.       *                                                           *
  27.       *  KEY-SWITCH IS USED FOR THE RETURN VALUE OF INKEY         *
  28.       *                                                           *
  29.       *  KEY-SWITCH-? IS THE VALUE OF FUNCTION KEYS               *
  30.       *                                                           *
  31.       *************************************************************
  32.  
  33.        01 KEY-SWITCH                              PIC X.
  34.        01 KEY-SWITCH-F1                           PIC X
  35.                                                   VALUE ";".
  36.        01 KEY-SWITCH-F2                           PIC X
  37.                                                   VALUE "<".
  38.        01 KEY-SWITCH-F3                           PIC X
  39.                                                   VALUE "=".
  40.        01 KEY-SWITCH-F4                           PIC X
  41.                                                   VALUE ">".
  42.        01 KEY-SWITCH-F5                           PIC X
  43.                                                   VALUE "?".
  44.        01 KEY-SWITCH-F6                           PIC X
  45.                                                   VALUE "@".
  46.        01 KEY-SWITCH-F7                           PIC X
  47.                                                   VALUE "A".
  48.        01 KEY-SWITCH-F8                           PIC X
  49.                                                   VALUE "B".
  50.        01 KEY-SWITCH-F9                           PIC X
  51.                                                   VALUE "C".
  52.        01 KEY-SWITCH-F10                          PIC X
  53.                                                   VALUE "D".
  54.       **************************************************************
  55.       *                                                            *
  56.       *   SCRN-FUNC-KEYS ARE THE 24 LINE SCREEN MENU DISPLAY AREA  *
  57.       *                                                            *
  58.       *   MOVING THE APROP. COMMAND DISC IN THE FUNCTION KEY DISP  *
  59.       *                                                            *
  60.       *                                                            *
  61.       **************************************************************
  62.  
  63.        01 SCRN-FUNC-KEYS.
  64.           05 F1                                   PIC X(6)
  65.                                                   VALUE SPACES.
  66.           05 F2                                   PIC X(6)
  67.                                                   VALUE SPACES.
  68.           05 F3                                   PIC X(6)
  69.                                                   VALUE SPACES.
  70.           05 F4                                   PIC X(6)
  71.                                                   VALUE SPACES.
  72.           05 F5                                   PIC X(6)
  73.                                                   VALUE SPACES.
  74.           05 F6                                   PIC X(6)
  75.                                                   VALUE SPACES.
  76.           05 F7                                   PIC X(6)
  77.                                                   VALUE SPACES.
  78.           05 F8                                   PIC X(6)
  79.                                                   VALUE SPACES.
  80.           05 F9                                   PIC X(6)
  81.                                                   VALUE SPACES.
  82.           05 F10                                  PIC X(6)
  83.                                                   VALUE SPACES.
  84.           05 F1-25-L                              PIC X(6)
  85.                                                   VALUE SPACES.
  86.           05 F2-25-L                              PIC X(6)
  87.                                                   VALUE SPACES.
  88.           05 F3-25-L                              PIC X(6)
  89.                                                   VALUE SPACES.
  90.           05 F4-25-L                              PIC X(6)
  91.                                                   VALUE SPACES.
  92.           05 F5-25-L                              PIC X(6)
  93.                                                   VALUE SPACES.
  94.           05 F6-25-L                              PIC X(6)
  95.                                                   VALUE SPACES.
  96.           05 F7-25-L                              PIC X(6)
  97.                                                   VALUE SPACES.
  98.           05 F8-25-L                              PIC X(6)
  99.                                                   VALUE SPACES.
  100.           05 F9-25-L                              PIC X(6)
  101.                                                   VALUE SPACES.
  102.           05 F10-25-L                             PIC X(6)
  103.                                                   VALUE SPACES.
  104.  
  105.  
  106.       ***************************************************************
  107.       *                                                             *
  108.       *   WORK-NAMES-RECORD IS THE WORKING STORAGE COPY OF THE      *
  109.       *                                                             *
  110.       *   DATA FILE, ALL EDITING, DISPLAYING, AND DATA ENTRY USES   *
  111.       *                                                             *
  112.       *   THESE FIELDS.                                             *
  113.       ***************************************************************
  114.  
  115.  
  116.        01 WORK-NAMES-RECORD.
  117.           05 WORK-PATRON-NUMBER                       PIC X(5).
  118.           05 WORK-PATRON-NAME.
  119.              10 WORK-PATRON-NAME-FIRST                PIC X(15).
  120.              10 WORK-PATRON-NAME-MIDDLE               PIC X.
  121.              10 WORK-PATRON-NAME-LAST                 PIC X(20).
  122.           05 WORK-PATRON-ADDRESS.
  123.              10 WORK-PATRON-ADDRESS-ADD               PIC X(30).
  124.              10 WORK-PATRON-ADDRESS-CITY              PIC X(9).
  125.              10 WORK-PATRON-ADDRESS-STATE             PIC X(2).
  126.              10 WORK-PATRON-ADDRESS-ZIP               PIC X(5).
  127.           05 WORK-PATRON-NEW-CARD-DATE.
  128.              10 WORK-PATRON-NEW-CARD-DATE-YY          PIC 99.
  129.              10 WORK-PATRON-NEW-CARD-DATE-MM          PIC 99.
  130.              10 WORK-PATRON-NEW-CARD-DATE-DD          PIC 99.
  131.           05 WORK-PATRON-EXP-CARD-DATE.
  132.              10 WORK-PATRON-EXP-CARD-DATE-YY          PIC 99.
  133.              10 WORK-PATRON-EXP-CARD-DATE-MM          PIC 99.
  134.              10 WORK-PATRON-EXP-CARD-DATE-DD          PIC 99.
  135.           05 WORK-PATRON-PHONE-NUMBER.
  136.              10 WORK-PATRON-PHONE-NUMBER-PRE          PIC X(3).
  137.              10 WORK-PATRON-PHONE-NUMBER-SUF          PIC X(4).
  138.           05 WORK-PATRON-LATE-BOOKS-FLAG              PIC X.
  139.           05 WORK-PATRON-LATE-MOVIE-FLAG              PIC X.
  140.        01 FILE-ACCESS-FLAG                       PIC 9 VALUE +0.
  141.        01 PASSWORD-ACCESS-FLAG                   PIC X.
  142.        01 CALLING-PRGM-NAME                      PIC X(12)
  143.                                                  VALUE "LIB0001A.EXE".
  144.        01 CALLED-FROM-PRGM-NAME                  PIC X(12).
  145.        01 FILE-EOF-FLAG                          PIC 9(9).
  146.        01 WORKING-CONTROL                        PIC 9(9).
  147.        SCREEN SECTION.
  148.  
  149.        01 SCREEN1-ADDRESS-ENTRY.
  150.           05 LINE 1 COLUMN 16       VALUE "P A T R O N S"
  151.                                     HIGHLIGHT.
  152.           05 LINE 1 COLUMN 33       VALUE "I N F O R M A T I O N"
  153.                                     HIGHLIGHT.
  154.           05 LINE 1 COLUMN 57       VALUE "E N T R Y"
  155.                                     HIGHLIGHT.
  156.           05 LINE 2 COLUMN 1        HIGHLIGHT
  157.              VALUE "****************************************".
  158.           05 LINE 2 COLUMN 41       HIGHLIGHT
  159.              VALUE "****************************************".
  160.           05 LINE 4 COLUMN 2        HIGHLIGHT
  161.              VALUE "PATRON CARD NUMBER".
  162.           05 LINE 4 COLUMN 30       HIGHLIGHT
  163.              VALUE "FIRST NAME".
  164.           05 LINE 4 COLUMN 47       HIGHLIGHT
  165.              VALUE "MIDDLE".
  166.           05 LINE 4 COLUMN 63       HIGHLIGHT
  167.              VALUE "LAST NAME".
  168.  
  169.           05 CARD-NUMBER            LINE 5 COLUMN 8
  170.                                     PIC X(5)
  171.                                     FOREGROUND-COLOR 7 
  172.                                     BACKGROUND-COLOR 6
  173.                                     HIGHLIGHT
  174.                                     USING WORK-PATRON-NUMBER.
  175.           05 FIRST-NAME             LINE 5 COLUMN 27
  176.                                     PIC X(15)
  177.                                     FOREGROUND-COLOR 7 
  178.                                     BACKGROUND-COLOR 6
  179.                                     HIGHLIGHT
  180.                                     USING WORK-PATRON-NAME-FIRST.
  181.           05 MIDDLE-NAME            LINE 5 COLUMN 50
  182.                                     PIC X
  183.                                     FOREGROUND-COLOR 7 
  184.                                     BACKGROUND-COLOR 6
  185.                                     HIGHLIGHT
  186.                                     USING WORK-PATRON-NAME-MIDDLE.
  187.           05 LAST-NAME              LINE 5 COLUMN 57
  188.                                     PIC X(20)
  189.                                     FOREGROUND-COLOR 7 
  190.                                     BACKGROUND-COLOR 6
  191.                                     HIGHLIGHT
  192.                                     USING WORK-PATRON-NAME-LAST.
  193.           05 LINE 7 COLUMN 2        HIGHLIGHT
  194.                                     VALUE "CARD ISSUED".
  195.           05 LINE 7 COLUMN 14       HIGHLIGHT
  196.                                     VALUE "CARD EXPIRES". 
  197.           05 LINE 8 COLUMN 4        FOREGROUND-COLOR 7
  198.                                     BACKGROUND-COLOR 6
  199.                                     HIGHLIGHT
  200.                                     PIC 99
  201.                                     FROM WORK-PATRON-NEW-CARD-DATE-MM.
  202.           05 LINE 8 COLUMN 6        FOREGROUND-COLOR 7
  203.                                     BACKGROUND-COLOR 6
  204.                                     HIGHLIGHT
  205.                                     VALUE "/".
  206.           05 LINE 8 COLUMN 7        FOREGROUND-COLOR 7
  207.                                     BACKGROUND-COLOR 6
  208.                                     HIGHLIGHT
  209.                                     PIC 99
  210.                                     FROM WORK-PATRON-NEW-CARD-DATE-DD.
  211.           05 LINE 8 COLUMN 9        FOREGROUND-COLOR 7
  212.                                     BACKGROUND-COLOR 6
  213.                                     HIGHLIGHT
  214.                                     VALUE "/".
  215.           05 LINE 8 COLUMN 10       FOREGROUND-COLOR 7
  216.                                     BACKGROUND-COLOR 6
  217.                                     HIGHLIGHT
  218.                                     PIC 99
  219.                                     FROM WORK-PATRON-NEW-CARD-DATE-YY.
  220.  
  221.           05 LINE 8 COLUMN 16       FOREGROUND-COLOR 7
  222.                                     BACKGROUND-COLOR 6
  223.                                     HIGHLIGHT
  224.                                     PIC 99
  225.                                     FROM WORK-PATRON-EXP-CARD-DATE-MM.
  226.           05 LINE 8 COLUMN 18        FOREGROUND-COLOR 7
  227.                                     BACKGROUND-COLOR 6
  228.                                     HIGHLIGHT
  229.                                     VALUE "/".
  230.           05 LINE 8 COLUMN 19        FOREGROUND-COLOR 7
  231.                                     BACKGROUND-COLOR 6
  232.                                     HIGHLIGHT
  233.                                     PIC 99
  234.                                     FROM WORK-PATRON-EXP-CARD-DATE-DD.
  235.           05 LINE 8 COLUMN 21        FOREGROUND-COLOR 7
  236.                                     BACKGROUND-COLOR 6
  237.                                     HIGHLIGHT
  238.                                     VALUE "/".
  239.           05 LINE 8 COLUMN 22        FOREGROUND-COLOR 7
  240.                                     BACKGROUND-COLOR 6
  241.                                     HIGHLIGHT
  242.                                     PIC 99
  243.                                     FROM WORK-PATRON-EXP-CARD-DATE-YY.
  244.           05 LINE 10 COLUMN 11       HIGHLIGHT
  245.                                     VALUE "STREET ADDRESS".
  246.           05 STREET-ADDRESS         LINE 11 COLUMN 2
  247.                                     FOREGROUND-COLOR 7
  248.                                     BACKGROUND-COLOR 6
  249.                                     HIGHLIGHT
  250.                                     PIC X(30)
  251.                                     USING WORK-PATRON-ADDRESS-ADD.
  252.           05 LINE 10 COLUMN 40      HIGHLIGHT
  253.                                     VALUE "CITY".
  254.           05 CITY                   LINE 11 COLUMN 38
  255.                                     FOREGROUND-COLOR 7
  256.                                     BACKGROUND-COLOR 6
  257.                                     HIGHLIGHT
  258.                                     PIC X(9)
  259.                                     USING WORK-PATRON-ADDRESS-CITY.
  260.           05 LINE 10 COLUMN 52      HIGHLIGHT
  261.                                     VALUE "STATE".
  262.           05 STATE                  LINE 11 COLUMN 54
  263.                                     FOREGROUND-COLOR 7
  264.                                     BACKGROUND-COLOR 6
  265.                                     HIGHLIGHT
  266.                                     PIC X(2)
  267.                                     USING WORK-PATRON-ADDRESS-STATE.
  268.           05 LINE 10 COLUMN 61      HIGHLIGHT
  269.                                     VALUE "ZIPCODE".
  270.           05 ZIP                    LINE 11 COLUMN 62
  271.                                     FOREGROUND-COLOR 7
  272.                                     BACKGROUND-COLOR 6
  273.                                     HIGHLIGHT
  274.                                     PIC X(5)
  275.                                     USING WORK-PATRON-ADDRESS-ZIP.
  276.           05 LINE 13 COLUMN 4       HIGHLIGHT
  277.                                     VALUE "PHONE NUMBER".
  278.           05 PREFIX-NUMBER          LINE 14 COLUMN 5
  279.                                     FOREGROUND-COLOR 7
  280.                                     BACKGROUND-COLOR 6
  281.                                     HIGHLIGHT
  282.                                     PIC X(3)                                   
  283.                                     USING WORK-PATRON-PHONE-NUMBER-PRE.
  284.           05 LINE 14 COLUMN 8       HIGHLIGHT
  285.                                     VALUE "-".
  286.           05 SUFFIX-NUMBER          LINE 14 COLUMN 9
  287.                                     FOREGROUND-COLOR 7
  288.                                     BACKGROUND-COLOR 6
  289.                                     HIGHLIGHT
  290.                                     PIC X(4)
  291.                                     USING WORK-PATRON-PHONE-NUMBER-SUF.
  292.           05 LINE 17 COLUMN 5       HIGHLIGHT
  293.                                     VALUE "LATE BOOKS".
  294.           05 LATE-BOOKS-FLAG        LINE 18 COLUMN 10
  295.                                     FOREGROUND-COLOR 7
  296.                                     BACKGROUND-COLOR 6
  297.                                     HIGHLIGHT
  298.                                     PIC X
  299.                                     USING WORK-PATRON-LATE-BOOKS-FLAG.
  300.           05 LINE 17 COLUMN 20      HIGHLIGHT
  301.                                     VALUE "LATE MOVIES".
  302.           05 LATE-MOVIES-FLAG       LINE 18 COLUMN 26
  303.                                     FOREGROUND-COLOR 7
  304.                                     BACKGROUND-COLOR 6
  305.                                     HIGHLIGHT
  306.                                     PIC X
  307.                                     USING WORK-PATRON-LATE-MOVIE-FLAG.
  308.  
  309.  
  310.  
  311.        01 SCREEN2-ADDRESS-ENTRY.
  312.           05 LINE 1 COLUMN 16       VALUE "P A T R O N S"
  313.                                     HIGHLIGHT.
  314.           05 LINE 1 COLUMN 33       VALUE "I N F O R M A T I O N"
  315.                                     HIGHLIGHT.
  316.           05 LINE 1 COLUMN 57       VALUE "E N T R Y"
  317.                                     HIGHLIGHT.
  318.           05 LINE 2 COLUMN 1        HIGHLIGHT
  319.              VALUE "****************************************".
  320.           05 LINE 2 COLUMN 41       HIGHLIGHT
  321.              VALUE "****************************************".
  322.           05 LINE 4 COLUMN 2        HIGHLIGHT
  323.              VALUE "PATRON CARD NUMBER".
  324.           05 LINE 4 COLUMN 30       HIGHLIGHT
  325.              VALUE "FIRST NAME".
  326.           05 LINE 4 COLUMN 47       HIGHLIGHT
  327.              VALUE "MIDDLE".
  328.           05 LINE 4 COLUMN 63       HIGHLIGHT
  329.              VALUE "LAST NAME".
  330.  
  331.           05 CARD-NUMBER            LINE 5 COLUMN 8
  332.                                     PIC X(5)
  333.                                     FOREGROUND-COLOR 7 
  334.                                     BACKGROUND-COLOR 6
  335.                                     HIGHLIGHT
  336.                                     FROM WORK-PATRON-NUMBER.
  337.           05 FIRST-NAME             LINE 5 COLUMN 27
  338.                                     PIC X(15)
  339.                                     FOREGROUND-COLOR 7 
  340.                                     BACKGROUND-COLOR 6
  341.                                     HIGHLIGHT
  342.                                     FROM  WORK-PATRON-NAME-FIRST.
  343.           05 MIDDLE-NAME            LINE 5 COLUMN 50
  344.                                     PIC X
  345.                                     FOREGROUND-COLOR 7 
  346.                                     BACKGROUND-COLOR 6
  347.                                     HIGHLIGHT
  348.                                     FROM  WORK-PATRON-NAME-MIDDLE.
  349.           05 LAST-NAME              LINE 5 COLUMN 57
  350.                                     PIC X(20)
  351.                                     FOREGROUND-COLOR 7 
  352.                                     BACKGROUND-COLOR 6
  353.                                     HIGHLIGHT
  354.                                     FROM  WORK-PATRON-NAME-LAST.
  355.           05 LINE 7 COLUMN 2        HIGHLIGHT
  356.                                     VALUE "CARD ISSUED".
  357.           05 LINE 7 COLUMN 14       HIGHLIGHT
  358.                                     VALUE "CARD EXPIRES". 
  359.           05 LINE 8 COLUMN 4        FOREGROUND-COLOR 7
  360.                                     BACKGROUND-COLOR 6
  361.                                     HIGHLIGHT
  362.                                     PIC 99
  363.                                     USING  WORK-PATRON-NEW-CARD-DATE-MM.
  364.           05 LINE 8 COLUMN 6        FOREGROUND-COLOR 7
  365.                                     BACKGROUND-COLOR 6
  366.                                     HIGHLIGHT
  367.                                     VALUE "/".
  368.           05 LINE 8 COLUMN 7        FOREGROUND-COLOR 7
  369.                                     BACKGROUND-COLOR 6
  370.                                     HIGHLIGHT
  371.                                     PIC 99
  372.                                     USING WORK-PATRON-NEW-CARD-DATE-DD.
  373.           05 LINE 8 COLUMN 9        FOREGROUND-COLOR 7
  374.                                     BACKGROUND-COLOR 6
  375.                                     HIGHLIGHT
  376.                                     VALUE "/".
  377.           05 LINE 8 COLUMN 10       FOREGROUND-COLOR 7
  378.                                     BACKGROUND-COLOR 6
  379.                                     HIGHLIGHT
  380.                                     PIC 99
  381.                                     USING WORK-PATRON-NEW-CARD-DATE-YY.
  382.  
  383.           05 LINE 8 COLUMN 16       FOREGROUND-COLOR 7
  384.                                     BACKGROUND-COLOR 6
  385.                                     HIGHLIGHT
  386.                                     PIC 99
  387.                                     FROM WORK-PATRON-EXP-CARD-DATE-MM.
  388.           05 LINE 8 COLUMN 18        FOREGROUND-COLOR 7
  389.                                     BACKGROUND-COLOR 6
  390.                                     HIGHLIGHT
  391.                                     VALUE "/".
  392.           05 LINE 8 COLUMN 19        FOREGROUND-COLOR 7
  393.                                     BACKGROUND-COLOR 6
  394.                                     HIGHLIGHT
  395.                                     PIC 99
  396.                                     FROM WORK-PATRON-EXP-CARD-DATE-DD.
  397.           05 LINE 8 COLUMN 21        FOREGROUND-COLOR 7
  398.                                     BACKGROUND-COLOR 6
  399.                                     HIGHLIGHT
  400.                                     VALUE "/".
  401.           05 LINE 8 COLUMN 22        FOREGROUND-COLOR 7
  402.                                     BACKGROUND-COLOR 6
  403.                                     HIGHLIGHT
  404.                                     PIC 99
  405.                                     FROM WORK-PATRON-EXP-CARD-DATE-YY.
  406.           
  407.  
  408.        01 FUNC-KEYS.
  409.           05 LINE 23 COLUMN 2       FOREGROUND-COLOR 1
  410.                                     BACKGROUND-COLOR 7
  411.                                     VALUE "  F1  ".  
  412.           05 LINE 23 COLUMN 10      FOREGROUND-COLOR 1
  413.                                     BACKGROUND-COLOR 7
  414.                                     VALUE "  F2  ".  
  415.           05 LINE 23 COLUMN 18      FOREGROUND-COLOR 1
  416.                                     BACKGROUND-COLOR 7
  417.                                     VALUE "  F3  ".  
  418.           05 LINE 23 COLUMN 26      FOREGROUND-COLOR 1
  419.                                     BACKGROUND-COLOR 7
  420.                                     VALUE "  F4  ".  
  421.           05 LINE 23 COLUMN 34      FOREGROUND-COLOR 1
  422.                                     BACKGROUND-COLOR 7
  423.                                     VALUE "  F5  ".  
  424.           05 LINE 23 COLUMN 42      FOREGROUND-COLOR 1
  425.                                     BACKGROUND-COLOR 7
  426.                                     VALUE "  F6  ".  
  427.           05 LINE 23 COLUMN 50      FOREGROUND-COLOR 1
  428.                                     BACKGROUND-COLOR 7
  429.                                     VALUE "  F7  ".  
  430.           05 LINE 23 COLUMN 58      FOREGROUND-COLOR 1
  431.                                     BACKGROUND-COLOR 7
  432.                                     VALUE "  F8  ".  
  433.           05 LINE 23 COLUMN 66      FOREGROUND-COLOR 1
  434.                                     BACKGROUND-COLOR 7
  435.                                     VALUE "  F9  ".  
  436.           05 LINE 23 COLUMN 74      FOREGROUND-COLOR 1
  437.                                     BACKGROUND-COLOR 7
  438.                                     VALUE "  F10 ".  
  439.  
  440.  
  441.           05 LINE 24 COLUMN 2       FOREGROUND-COLOR 1
  442.                                     BACKGROUND-COLOR 7
  443.                                     PIC X(6)         
  444.                                     FROM F1.
  445.           05 LINE 24 COLUMN 10      FOREGROUND-COLOR 1
  446.                                     BACKGROUND-COLOR 7
  447.                                     PIC X(6)
  448.                                     FROM F2.
  449.           05 LINE 24 COLUMN 18      FOREGROUND-COLOR 1
  450.                                     BACKGROUND-COLOR 7
  451.                                     PIC X(6)
  452.                                     FROM F3.
  453.           05 LINE 24 COLUMN 26      FOREGROUND-COLOR 1
  454.                                     BACKGROUND-COLOR 7
  455.                                     PIC X(6)
  456.                                     FROM F4.
  457.           05 LINE 24 COLUMN 34      FOREGROUND-COLOR 1
  458.                                     BACKGROUND-COLOR 7
  459.                                     PIC X(6)
  460.                                     FROM F5.
  461.           05 LINE 24 COLUMN 42      FOREGROUND-COLOR 1
  462.                                     BACKGROUND-COLOR 7
  463.                                     PIC X(6)
  464.                                     FROM F6.
  465.           05 LINE 24 COLUMN 50      FOREGROUND-COLOR 1
  466.                                     BACKGROUND-COLOR 7
  467.                                     PIC X(6)
  468.                                     FROM F7.
  469.           05 LINE 24 COLUMN 58      FOREGROUND-COLOR 1
  470.                                     BACKGROUND-COLOR 7
  471.                                     PIC X(6)
  472.                                     FROM F8.
  473.           05 LINE 24 COLUMN 66      FOREGROUND-COLOR 1
  474.                                     BACKGROUND-COLOR 7
  475.                                     PIC X(6)
  476.                                     FROM F9.
  477.           05 LINE 24 COLUMN 74      FOREGROUND-COLOR 1
  478.                                     BACKGROUND-COLOR 7
  479.                                     PIC X(6)
  480.                                     FROM F10.
  481.  
  482.           05 LINE 25 COLUMN 2       FOREGROUND-COLOR 1
  483.                                     BACKGROUND-COLOR 7
  484.                                     PIC X(6)
  485.                                     FROM F1-25-L.
  486.           05 LINE 25 COLUMN 10      FOREGROUND-COLOR 1
  487.                                     BACKGROUND-COLOR 7
  488.                                     PIC X(6)
  489.                                     FROM F2-25-L.
  490.           05 LINE 25 COLUMN 18      FOREGROUND-COLOR 1
  491.                                     BACKGROUND-COLOR 7
  492.                                     PIC X(6)
  493.                                     FROM F3-25-L.
  494.           05 LINE 25 COLUMN 26      FOREGROUND-COLOR 1
  495.                                     BACKGROUND-COLOR 7
  496.                                     PIC X(6)
  497.                                     FROM F4-25-L.
  498.           05 LINE 25 COLUMN 34      FOREGROUND-COLOR 1
  499.                                     BACKGROUND-COLOR 7
  500.                                     PIC X(6)
  501.                                     FROM F5-25-L.
  502.           05 LINE 25 COLUMN 42      FOREGROUND-COLOR 1
  503.                                     BACKGROUND-COLOR 7
  504.                                     PIC X(6)
  505.                                     FROM F6-25-L.
  506.           05 LINE 25 COLUMN 50      FOREGROUND-COLOR 1
  507.                                     BACKGROUND-COLOR 7
  508.                                     PIC X(6)
  509.                                     FROM F7-25-L.
  510.           05 LINE 25 COLUMN 58      FOREGROUND-COLOR 1
  511.                                     BACKGROUND-COLOR 7
  512.                                     PIC X(6)
  513.                                     FROM F8-25-L.
  514.           05 LINE 25 COLUMN 66      FOREGROUND-COLOR 1
  515.                                     BACKGROUND-COLOR 7
  516.                                     PIC X(6)
  517.                                     FROM F9-25-L.
  518.           05 LINE 25 COLUMN 74      FOREGROUND-COLOR 1
  519.                                     BACKGROUND-COLOR 7
  520.                                     PIC X(6)
  521.                                     FROM F10-25-L.
  522.  
  523.  
  524.  
  525.        01 CLS.
  526.           05 FOREGROUND-COLOR 6   BACKGROUND-COLOR 1
  527.                                   BLANK SCREEN.
  528.  
  529.  
  530.        PROCEDURE DIVISION CHAINING PASSWORD-ACCESS-FLAG 
  531.                                    CALLED-FROM-PRGM-NAME.
  532.        C000-MAIN-LINE SECTION.
  533.        C020-MAIN-LINE-LOGIC.
  534.            OPEN INPUT CONTROL-FILE.
  535.            READ CONTROL-FILE.
  536.            MOVE RECORD-COUNTER TO WORKING-CONTROL.
  537.            CLOSE CONTROL-FILE.
  538.            PERFORM CALC-DATE.
  539.            PERFORM C200-DISPLAY-NEW-SCREEN.
  540.            OPEN OUTPUT NAMES-LIST.
  541.            MOVE WORK-NAMES-RECORD TO NAMES-RECORD.
  542.            CLOSE NAMES-LIST.
  543.            OPEN I-O NAMES-LIST.
  544.            MOVE 1 TO FILE-EOF-FLAG.
  545.            PERFORM READ-EOF UNTIL WORKING-CONTROL EQUAL FILE-EOF-FLAG.
  546.            PERFORM CALC-DATE.
  547.            PERFORM DO-ACCEPT-1-COMMAND UNTIL KEY-SWITCH 
  548.                    EQUAL KEY-SWITCH-F10.
  549.            CLOSE NAMES-LIST.
  550.            CHAIN CALLED-FROM-PRGM-NAME.
  551.        C200-DISPLAY-NEW-SCREEN.
  552.      
  553.            DISPLAY CLS.
  554.            DISPLAY FUNC-KEYS.
  555.            MOVE SPACES TO        WORK-PATRON-NUMBER
  556.                                  WORK-PATRON-NAME-FIRST
  557.                                  WORK-PATRON-NAME-MIDDLE
  558.                                  WORK-PATRON-NAME-LAST
  559.                                  WORK-PATRON-ADDRESS-ADD. 
  560.            MOVE "JESUP" TO       WORK-PATRON-ADDRESS-CITY.
  561.            MOVE "GA" TO          WORK-PATRON-ADDRESS-STATE.
  562.            MOVE 31545 TO         WORK-PATRON-ADDRESS-ZIP.
  563.            MOVE "427" TO         WORK-PATRON-PHONE-NUMBER-PRE.
  564.            MOVE SPACES TO        WORK-PATRON-PHONE-NUMBER-SUF.
  565.            MOVE "N" TO           WORK-PATRON-LATE-BOOKS-FLAG
  566.                                  WORK-PATRON-LATE-MOVIE-FLAG.        
  567.            DISPLAY SCREEN1-ADDRESS-ENTRY.
  568.        MENU-1-MAIN.
  569.            MOVE " DATE " TO F1.
  570.            MOVE "      " TO F2.
  571.            MOVE "      " TO F3.
  572.            MOVE "      " TO F4.
  573.            MOVE "  ADD " TO F5.
  574.            MOVE "      " TO F6.
  575.            MOVE "      " TO F7.
  576.            MOVE "      " TO F8.
  577.            MOVE "      " TO F9.
  578.            MOVE " EXIT " TO F10.
  579.            MOVE "CHANGE" TO F1-25-L.
  580.            MOVE "      " TO F2-25-L.
  581.            MOVE "      " TO F3-25-L.
  582.            MOVE "      " TO F4-25-L.
  583.            MOVE "RECORD" TO F5-25-L.
  584.            MOVE "      " TO F6-25-L.
  585.            MOVE "      " TO F7-25-L.
  586.            MOVE "      " TO F8-25-L.
  587.            MOVE "      " TO F9-25-L.
  588.            MOVE "      " TO F10-25-L.
  589.  
  590.        DO-ACCEPT-1-COMMAND.
  591.            PERFORM MENU-1-MAIN.
  592.            PERFORM C200-DISPLAY-NEW-SCREEN.
  593.            PERFORM GET-IT.
  594.  
  595.        GET-IT.
  596.       ***************************************************************
  597.       *  BECAUSE OF AN ERROR IN THE COMPILER ON ESCAPE KEY FUNCTION *
  598.       *  I HAVE WRITTEN ASSMB CODE TO REPLACE ESCAPE KEY ENTRENCE IS*
  599.       *  CALL "INKEY" USING KEY-SWITCH                              *
  600.       *  IF A FUNCTION KEY IS PRESSED THE CHAR OF SUCH IS RETURNED  *
  601.       *  ELSE THE ORG VALUE IS MAINTAINED.                          *
  602.       *  VALUES ARE  F1 = <                                         *
  603.       *              F2 = =                                         *
  604.       *              F3 = >                                         *
  605.       *              F4 = ?                                         *
  606.       *              F5 = @                                         *
  607.       *              F6 = A                                         *
  608.       *              F7 = B                                         *
  609.       *              F8 = C                                         *
  610.       *              F9 = D                                         *
  611.       *              F10 = E                                         *
  612.       *  OTHER VALUES ARE VALID DEPENDING ON ALT AND CTRL COMBINES   *
  613.       ****************************************************************
  614.  
  615.  
  616.  
  617.            OPEN I-O CONTROL-FILE. 
  618.            MOVE "N" TO KEY-SWITCH.
  619.            CALL "INKEY" USING KEY-SWITCH.
  620.            IF  KEY-SWITCH EQUAL KEY-SWITCH-F1
  621.                DISPLAY SCREEN2-ADDRESS-ENTRY
  622.                ACCEPT SCREEN2-ADDRESS-ENTRY
  623.                PERFORM DO-UPDATE-DATE
  624.                DISPLAY SCREEN1-ADDRESS-ENTRY
  625.                ACCEPT SCREEN1-ADDRESS-ENTRY 
  626.                MOVE WORK-NAMES-RECORD TO NAMES-RECORD
  627.                WRITE NAMES-RECORD
  628.                READ CONTROL-FILE
  629.                ADD 1 TO RECORD-COUNTER
  630.                REWRITE RECORD-COUNTER
  631.                CLOSE CONTROL-FILE
  632.            ELSE IF KEY-SWITCH EQUAL KEY-SWITCH-F5
  633.                DISPLAY SCREEN1-ADDRESS-ENTRY
  634.                ACCEPT SCREEN1-ADDRESS-ENTRY
  635.                MOVE WORK-NAMES-RECORD TO NAMES-RECORD
  636.                WRITE NAMES-RECORD
  637.                READ CONTROL-FILE
  638.                ADD 1 TO RECORD-COUNTER
  639.                REWRITE RECORD-COUNTER
  640.                CLOSE CONTROL-FILE.
  641.  
  642.        CALC-DATE.
  643.            ACCEPT WORK-PATRON-NEW-CARD-DATE FROM DATE.
  644.            PERFORM DO-UPDATE-DATE.
  645.        DO-UPDATE-DATE.
  646.            MOVE WORK-PATRON-NEW-CARD-DATE TO WORK-PATRON-EXP-CARD-DATE.
  647.            ADD 1 TO WORK-PATRON-EXP-CARD-DATE-YY.
  648.        READ-EOF.
  649.            READ NAMES-LIST.
  650.            ADD 1 TO FILE-EOF-FLAG.
  651.