home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
cobol
/
compiler
/
cobol600
/
lib0001a.cob
< prev
next >
Wrap
Text File
|
1990-05-17
|
34KB
|
678 lines
IDENTIFICATION DIVISION.
PROGRAM-ID. LIB001A .
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
PRINTER IS PRINTER-DISPLAY.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT NAMES-LIST ASSIGN TO DISK
ACCESS MODE RANDOM
ORGANIZATION INDEXED
RECORD KEY PATRON-NUMBER.
SELECT CONTROL-FILE ASSIGN TO DISK
ORGANIZATION IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD CONTROL-FILE
LABEL RECORDS STANDARD
VALUE OF FILE-ID "CONTROL.DAT".
01 RECORD-COUNTER PIC 9(9).
FD NAMES-LIST
LABEL RECORDS STANDARD
VALUE OF FILE-ID "PATRONS.MST".
01 NAMES-RECORD.
05 PATRON-NUMBER PIC X(5).
05 PATRON-NAME.
10 PATRON-NAME-FIRST PIC X(15).
10 PATRON-NAME-MIDDLE PIC X.
10 PATRON-NAME-LAST PIC X(20).
05 PATRON-ADDRESS.
10 PATRON-ADDRESS-ADD PIC X(30).
10 PATRON-ADDRESS-CITY PIC X(9).
10 PATRON-ADDRESS-STATE PIC X(2).
10 PATRON-ADDRESS-ZIP PIC 9(5).
05 PATRON-NEW-CARD-DATE.
10 PATRON-NEW-CARD-DATE-YY PIC 99.
10 PATRON-NEW-CARD-DATE-MM PIC 99.
10 PATRON-NEW-CARD-DATE-DD PIC 99.
05 PATRON-EXP-CARD-DATE.
10 PATRON-EXP-CARD-DATE-YY PIC 99.
10 PATRON-EXP-CARD-DATE-MM PIC 99.
10 PATRON-EXP-CARD-DATE-DD PIC 99.
05 PATRON-PHONE-NUMBER.
10 PATRON-PHONE-NUMBER-PRE PIC X(3).
10 PATRON-PHONE-NUMBER-SUF PIC X(4).
05 PATRON-LATE-BOOKS-FLAG PIC X.
05 PATRON-LATE-MOVIE-FLAG PIC X.
WORKING-STORAGE SECTION.
*************************************************************
* *
* KEY-SWITCH IS USED FOR THE RETURN VALUE OF INKEY *
* *
* KEY-SWITCH-? IS THE VALUE OF FUNCTION KEYS *
* *
*************************************************************
01 KEY-SWITCH PIC X.
01 KEY-SWITCH-F1 PIC X
VALUE ";".
01 KEY-SWITCH-F2 PIC X
VALUE "<".
01 KEY-SWITCH-F3 PIC X
VALUE "=".
01 KEY-SWITCH-F4 PIC X
VALUE ">".
01 KEY-SWITCH-F5 PIC X
VALUE "?".
01 KEY-SWITCH-F6 PIC X
VALUE "@".
01 KEY-SWITCH-F7 PIC X
VALUE "A".
01 KEY-SWITCH-F8 PIC X
VALUE "B".
01 KEY-SWITCH-F9 PIC X
VALUE "C".
01 KEY-SWITCH-F10 PIC X
VALUE "D".
**************************************************************
* *
* SCRN-FUNC-KEYS ARE THE 24 LINE SCREEN MENU DISPLAY AREA *
* *
* MOVING THE APROP. COMMAND DISC IN THE FUNCTION KEY DISP *
* *
* *
**************************************************************
01 SCRN-FUNC-KEYS.
05 F1 PIC X(6)
VALUE SPACES.
05 F2 PIC X(6)
VALUE SPACES.
05 F3 PIC X(6)
VALUE SPACES.
05 F4 PIC X(6)
VALUE SPACES.
05 F5 PIC X(6)
VALUE SPACES.
05 F6 PIC X(6)
VALUE SPACES.
05 F7 PIC X(6)
VALUE SPACES.
05 F8 PIC X(6)
VALUE SPACES.
05 F9 PIC X(6)
VALUE SPACES.
05 F10 PIC X(6)
VALUE SPACES.
05 F1-25-L PIC X(6)
VALUE SPACES.
05 F2-25-L PIC X(6)
VALUE SPACES.
05 F3-25-L PIC X(6)
VALUE SPACES.
05 F4-25-L PIC X(6)
VALUE SPACES.
05 F5-25-L PIC X(6)
VALUE SPACES.
05 F6-25-L PIC X(6)
VALUE SPACES.
05 F7-25-L PIC X(6)
VALUE SPACES.
05 F8-25-L PIC X(6)
VALUE SPACES.
05 F9-25-L PIC X(6)
VALUE SPACES.
05 F10-25-L PIC X(6)
VALUE SPACES.
***************************************************************
* *
* WORK-NAMES-RECORD IS THE WORKING STORAGE COPY OF THE *
* *
* DATA FILE, ALL EDITING, DISPLAYING, AND DATA ENTRY USES *
* *
* THESE FIELDS. *
***************************************************************
01 WORK-NAMES-RECORD.
05 WORK-PATRON-NUMBER PIC X(5).
05 WORK-PATRON-NAME.
10 WORK-PATRON-NAME-FIRST PIC X(15).
10 WORK-PATRON-NAME-MIDDLE PIC X.
10 WORK-PATRON-NAME-LAST PIC X(20).
05 WORK-PATRON-ADDRESS.
10 WORK-PATRON-ADDRESS-ADD PIC X(30).
10 WORK-PATRON-ADDRESS-CITY PIC X(9).
10 WORK-PATRON-ADDRESS-STATE PIC X(2).
10 WORK-PATRON-ADDRESS-ZIP PIC X(5).
05 WORK-PATRON-NEW-CARD-DATE.
10 WORK-PATRON-NEW-CARD-DATE-YY PIC 99.
10 WORK-PATRON-NEW-CARD-DATE-MM PIC 99.
10 WORK-PATRON-NEW-CARD-DATE-DD PIC 99.
05 WORK-PATRON-EXP-CARD-DATE.
10 WORK-PATRON-EXP-CARD-DATE-YY PIC 99.
10 WORK-PATRON-EXP-CARD-DATE-MM PIC 99.
10 WORK-PATRON-EXP-CARD-DATE-DD PIC 99.
05 WORK-PATRON-PHONE-NUMBER.
10 WORK-PATRON-PHONE-NUMBER-PRE PIC X(3).
10 WORK-PATRON-PHONE-NUMBER-SUF PIC X(4).
05 WORK-PATRON-LATE-BOOKS-FLAG PIC X.
05 WORK-PATRON-LATE-MOVIE-FLAG PIC X.
01 FILE-ACCESS-FLAG PIC 9 VALUE +0.
01 PASSWORD-ACCESS-FLAG PIC X.
01 CALLING-PRGM-NAME PIC X(12)
VALUE "LIB0001A.EXE".
01 CALLED-FROM-PRGM-NAME PIC X(12).
01 FILE-EOF-FLAG PIC 9(9).
01 WORKING-CONTROL PIC 9(9).
SCREEN SECTION.
01 SCREEN1-ADDRESS-ENTRY.
05 LINE 1 COLUMN 16 VALUE "P A T R O N S"
HIGHLIGHT.
05 LINE 1 COLUMN 33 VALUE "I N F O R M A T I O N"
HIGHLIGHT.
05 LINE 1 COLUMN 57 VALUE "E N T R Y"
HIGHLIGHT.
05 LINE 2 COLUMN 1 HIGHLIGHT
VALUE "****************************************".
05 LINE 2 COLUMN 41 HIGHLIGHT
VALUE "****************************************".
05 LINE 4 COLUMN 2 HIGHLIGHT
VALUE "PATRON CARD NUMBER".
05 LINE 4 COLUMN 30 HIGHLIGHT
VALUE "FIRST NAME".
05 LINE 4 COLUMN 47 HIGHLIGHT
VALUE "MIDDLE".
05 LINE 4 COLUMN 63 HIGHLIGHT
VALUE "LAST NAME".
05 CARD-NUMBER LINE 5 COLUMN 8
PIC X(5)
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
USING WORK-PATRON-NUMBER.
05 FIRST-NAME LINE 5 COLUMN 27
PIC X(15)
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
USING WORK-PATRON-NAME-FIRST.
05 MIDDLE-NAME LINE 5 COLUMN 50
PIC X
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
USING WORK-PATRON-NAME-MIDDLE.
05 LAST-NAME LINE 5 COLUMN 57
PIC X(20)
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
USING WORK-PATRON-NAME-LAST.
05 LINE 7 COLUMN 2 HIGHLIGHT
VALUE "CARD ISSUED".
05 LINE 7 COLUMN 14 HIGHLIGHT
VALUE "CARD EXPIRES".
05 LINE 8 COLUMN 4 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC 99
FROM WORK-PATRON-NEW-CARD-DATE-MM.
05 LINE 8 COLUMN 6 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
VALUE "/".
05 LINE 8 COLUMN 7 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC 99
FROM WORK-PATRON-NEW-CARD-DATE-DD.
05 LINE 8 COLUMN 9 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
VALUE "/".
05 LINE 8 COLUMN 10 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC 99
FROM WORK-PATRON-NEW-CARD-DATE-YY.
05 LINE 8 COLUMN 16 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC 99
FROM WORK-PATRON-EXP-CARD-DATE-MM.
05 LINE 8 COLUMN 18 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
VALUE "/".
05 LINE 8 COLUMN 19 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC 99
FROM WORK-PATRON-EXP-CARD-DATE-DD.
05 LINE 8 COLUMN 21 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
VALUE "/".
05 LINE 8 COLUMN 22 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC 99
FROM WORK-PATRON-EXP-CARD-DATE-YY.
05 LINE 10 COLUMN 11 HIGHLIGHT
VALUE "STREET ADDRESS".
05 STREET-ADDRESS LINE 11 COLUMN 2
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC X(30)
USING WORK-PATRON-ADDRESS-ADD.
05 LINE 10 COLUMN 40 HIGHLIGHT
VALUE "CITY".
05 CITY LINE 11 COLUMN 38
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC X(9)
USING WORK-PATRON-ADDRESS-CITY.
05 LINE 10 COLUMN 52 HIGHLIGHT
VALUE "STATE".
05 STATE LINE 11 COLUMN 54
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC X(2)
USING WORK-PATRON-ADDRESS-STATE.
05 LINE 10 COLUMN 61 HIGHLIGHT
VALUE "ZIPCODE".
05 ZIP LINE 11 COLUMN 62
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC X(5)
USING WORK-PATRON-ADDRESS-ZIP.
05 LINE 13 COLUMN 4 HIGHLIGHT
VALUE "PHONE NUMBER".
05 PREFIX-NUMBER LINE 14 COLUMN 5
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC X(3)
USING WORK-PATRON-PHONE-NUMBER-PRE.
05 LINE 14 COLUMN 8 HIGHLIGHT
VALUE "-".
05 SUFFIX-NUMBER LINE 14 COLUMN 9
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC X(4)
USING WORK-PATRON-PHONE-NUMBER-SUF.
05 LINE 17 COLUMN 5 HIGHLIGHT
VALUE "LATE BOOKS".
05 LATE-BOOKS-FLAG LINE 18 COLUMN 10
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC X
USING WORK-PATRON-LATE-BOOKS-FLAG.
05 LINE 17 COLUMN 20 HIGHLIGHT
VALUE "LATE MOVIES".
05 LATE-MOVIES-FLAG LINE 18 COLUMN 26
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC X
USING WORK-PATRON-LATE-MOVIE-FLAG.
01 SCREEN2-ADDRESS-ENTRY.
05 LINE 1 COLUMN 16 VALUE "P A T R O N S"
HIGHLIGHT.
05 LINE 1 COLUMN 33 VALUE "I N F O R M A T I O N"
HIGHLIGHT.
05 LINE 1 COLUMN 57 VALUE "E N T R Y"
HIGHLIGHT.
05 LINE 2 COLUMN 1 HIGHLIGHT
VALUE "****************************************".
05 LINE 2 COLUMN 41 HIGHLIGHT
VALUE "****************************************".
05 LINE 4 COLUMN 2 HIGHLIGHT
VALUE "PATRON CARD NUMBER".
05 LINE 4 COLUMN 30 HIGHLIGHT
VALUE "FIRST NAME".
05 LINE 4 COLUMN 47 HIGHLIGHT
VALUE "MIDDLE".
05 LINE 4 COLUMN 63 HIGHLIGHT
VALUE "LAST NAME".
05 CARD-NUMBER LINE 5 COLUMN 8
PIC X(5)
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
FROM WORK-PATRON-NUMBER.
05 FIRST-NAME LINE 5 COLUMN 27
PIC X(15)
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
FROM WORK-PATRON-NAME-FIRST.
05 MIDDLE-NAME LINE 5 COLUMN 50
PIC X
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
FROM WORK-PATRON-NAME-MIDDLE.
05 LAST-NAME LINE 5 COLUMN 57
PIC X(20)
FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
FROM WORK-PATRON-NAME-LAST.
05 LINE 7 COLUMN 2 HIGHLIGHT
VALUE "CARD ISSUED".
05 LINE 7 COLUMN 14 HIGHLIGHT
VALUE "CARD EXPIRES".
05 LINE 8 COLUMN 4 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC 99
USING WORK-PATRON-NEW-CARD-DATE-MM.
05 LINE 8 COLUMN 6 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
VALUE "/".
05 LINE 8 COLUMN 7 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC 99
USING WORK-PATRON-NEW-CARD-DATE-DD.
05 LINE 8 COLUMN 9 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
VALUE "/".
05 LINE 8 COLUMN 10 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC 99
USING WORK-PATRON-NEW-CARD-DATE-YY.
05 LINE 8 COLUMN 16 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC 99
FROM WORK-PATRON-EXP-CARD-DATE-MM.
05 LINE 8 COLUMN 18 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
VALUE "/".
05 LINE 8 COLUMN 19 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC 99
FROM WORK-PATRON-EXP-CARD-DATE-DD.
05 LINE 8 COLUMN 21 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
VALUE "/".
05 LINE 8 COLUMN 22 FOREGROUND-COLOR 7
BACKGROUND-COLOR 6
HIGHLIGHT
PIC 99
FROM WORK-PATRON-EXP-CARD-DATE-YY.
01 FUNC-KEYS.
05 LINE 23 COLUMN 2 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
VALUE " F1 ".
05 LINE 23 COLUMN 10 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
VALUE " F2 ".
05 LINE 23 COLUMN 18 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
VALUE " F3 ".
05 LINE 23 COLUMN 26 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
VALUE " F4 ".
05 LINE 23 COLUMN 34 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
VALUE " F5 ".
05 LINE 23 COLUMN 42 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
VALUE " F6 ".
05 LINE 23 COLUMN 50 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
VALUE " F7 ".
05 LINE 23 COLUMN 58 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
VALUE " F8 ".
05 LINE 23 COLUMN 66 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
VALUE " F9 ".
05 LINE 23 COLUMN 74 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
VALUE " F10 ".
05 LINE 24 COLUMN 2 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F1.
05 LINE 24 COLUMN 10 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F2.
05 LINE 24 COLUMN 18 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F3.
05 LINE 24 COLUMN 26 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F4.
05 LINE 24 COLUMN 34 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F5.
05 LINE 24 COLUMN 42 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F6.
05 LINE 24 COLUMN 50 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F7.
05 LINE 24 COLUMN 58 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F8.
05 LINE 24 COLUMN 66 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F9.
05 LINE 24 COLUMN 74 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F10.
05 LINE 25 COLUMN 2 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F1-25-L.
05 LINE 25 COLUMN 10 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F2-25-L.
05 LINE 25 COLUMN 18 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F3-25-L.
05 LINE 25 COLUMN 26 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F4-25-L.
05 LINE 25 COLUMN 34 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F5-25-L.
05 LINE 25 COLUMN 42 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F6-25-L.
05 LINE 25 COLUMN 50 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F7-25-L.
05 LINE 25 COLUMN 58 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F8-25-L.
05 LINE 25 COLUMN 66 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F9-25-L.
05 LINE 25 COLUMN 74 FOREGROUND-COLOR 1
BACKGROUND-COLOR 7
PIC X(6)
FROM F10-25-L.
01 CLS.
05 FOREGROUND-COLOR 6 BACKGROUND-COLOR 1
BLANK SCREEN.
PROCEDURE DIVISION CHAINING PASSWORD-ACCESS-FLAG
CALLED-FROM-PRGM-NAME.
C000-MAIN-LINE SECTION.
C020-MAIN-LINE-LOGIC.
OPEN INPUT CONTROL-FILE.
READ CONTROL-FILE.
MOVE RECORD-COUNTER TO WORKING-CONTROL.
CLOSE CONTROL-FILE.
PERFORM CALC-DATE.
PERFORM C200-DISPLAY-NEW-SCREEN.
OPEN OUTPUT NAMES-LIST.
MOVE WORK-NAMES-RECORD TO NAMES-RECORD.
CLOSE NAMES-LIST.
OPEN I-O NAMES-LIST.
MOVE 1 TO FILE-EOF-FLAG.
PERFORM READ-EOF UNTIL WORKING-CONTROL EQUAL FILE-EOF-FLAG.
PERFORM CALC-DATE.
PERFORM DO-ACCEPT-1-COMMAND UNTIL KEY-SWITCH
EQUAL KEY-SWITCH-F10.
CLOSE NAMES-LIST.
CHAIN CALLED-FROM-PRGM-NAME.
C200-DISPLAY-NEW-SCREEN.
DISPLAY CLS.
DISPLAY FUNC-KEYS.
MOVE SPACES TO WORK-PATRON-NUMBER
WORK-PATRON-NAME-FIRST
WORK-PATRON-NAME-MIDDLE
WORK-PATRON-NAME-LAST
WORK-PATRON-ADDRESS-ADD.
MOVE "JESUP" TO WORK-PATRON-ADDRESS-CITY.
MOVE "GA" TO WORK-PATRON-ADDRESS-STATE.
MOVE 31545 TO WORK-PATRON-ADDRESS-ZIP.
MOVE "427" TO WORK-PATRON-PHONE-NUMBER-PRE.
MOVE SPACES TO WORK-PATRON-PHONE-NUMBER-SUF.
MOVE "N" TO WORK-PATRON-LATE-BOOKS-FLAG
WORK-PATRON-LATE-MOVIE-FLAG.
DISPLAY SCREEN1-ADDRESS-ENTRY.
MENU-1-MAIN.
MOVE " DATE " TO F1.
MOVE " " TO F2.
MOVE " " TO F3.
MOVE " " TO F4.
MOVE " ADD " TO F5.
MOVE " " TO F6.
MOVE " " TO F7.
MOVE " " TO F8.
MOVE " " TO F9.
MOVE " EXIT " TO F10.
MOVE "CHANGE" TO F1-25-L.
MOVE " " TO F2-25-L.
MOVE " " TO F3-25-L.
MOVE " " TO F4-25-L.
MOVE "RECORD" TO F5-25-L.
MOVE " " TO F6-25-L.
MOVE " " TO F7-25-L.
MOVE " " TO F8-25-L.
MOVE " " TO F9-25-L.
MOVE " " TO F10-25-L.
DO-ACCEPT-1-COMMAND.
PERFORM MENU-1-MAIN.
PERFORM C200-DISPLAY-NEW-SCREEN.
PERFORM GET-IT.
GET-IT.
***************************************************************
* BECAUSE OF AN ERROR IN THE COMPILER ON ESCAPE KEY FUNCTION *
* I HAVE WRITTEN ASSMB CODE TO REPLACE ESCAPE KEY ENTRENCE IS*
* CALL "INKEY" USING KEY-SWITCH *
* IF A FUNCTION KEY IS PRESSED THE CHAR OF SUCH IS RETURNED *
* ELSE THE ORG VALUE IS MAINTAINED. *
* VALUES ARE F1 = < *
* F2 = = *
* F3 = > *
* F4 = ? *
* F5 = @ *
* F6 = A *
* F7 = B *
* F8 = C *
* F9 = D *
* F10 = E *
* OTHER VALUES ARE VALID DEPENDING ON ALT AND CTRL COMBINES *
****************************************************************
OPEN I-O CONTROL-FILE.
MOVE "N" TO KEY-SWITCH.
CALL "INKEY" USING KEY-SWITCH.
IF KEY-SWITCH EQUAL KEY-SWITCH-F1
DISPLAY SCREEN2-ADDRESS-ENTRY
ACCEPT SCREEN2-ADDRESS-ENTRY
PERFORM DO-UPDATE-DATE
DISPLAY SCREEN1-ADDRESS-ENTRY
ACCEPT SCREEN1-ADDRESS-ENTRY
MOVE WORK-NAMES-RECORD TO NAMES-RECORD
WRITE NAMES-RECORD
READ CONTROL-FILE
ADD 1 TO RECORD-COUNTER
REWRITE RECORD-COUNTER
CLOSE CONTROL-FILE
ELSE IF KEY-SWITCH EQUAL KEY-SWITCH-F5
DISPLAY SCREEN1-ADDRESS-ENTRY
ACCEPT SCREEN1-ADDRESS-ENTRY
MOVE WORK-NAMES-RECORD TO NAMES-RECORD
WRITE NAMES-RECORD
READ CONTROL-FILE
ADD 1 TO RECORD-COUNTER
REWRITE RECORD-COUNTER
CLOSE CONTROL-FILE.
CALC-DATE.
ACCEPT WORK-PATRON-NEW-CARD-DATE FROM DATE.
PERFORM DO-UPDATE-DATE.
DO-UPDATE-DATE.
MOVE WORK-PATRON-NEW-CARD-DATE TO WORK-PATRON-EXP-CARD-DATE.
ADD 1 TO WORK-PATRON-EXP-CARD-DATE-YY.
READ-EOF.
READ NAMES-LIST.
ADD 1 TO FILE-EOF-FLAG.