home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / compiler / cobol600 / lib0001a.cob < prev    next >
Text File  |  1990-05-17  |  34KB  |  678 lines

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