Figure 5.7. Creating A Relative File - IBM 5280 Programmer's Manual

2
4
5
6
8
10
11
12
13
14
14
14
14
14
15
16
17
17
18
18 000001
19
000002
20 000004
21 000006
22 000008
23 000010
24 000012
25 000016
26
000018
27 000020
28
29
30
31
32
33
34
35
36
37
37
37
38
39
39
39
40
41
42
43
44
45
46
47
48
49
50
51
RELA riVE Organization
IDENTIFICATION DIVISION.
PROGRAM-ID. LOADIT.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-5280.
SPECIAL-NAMES.
CONSOLE IS SCREEN.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT EMPMAS-FILE ASSIGN TO DISK
ORGANIZATION IS RELATIVE
ACCESS MODE IS SEQUENTIAL
RELATIVE KEY IS RKEY
FILE STATUS IS STATUS-KEY.
DATA DIVISION.
FILE SECTION.
FD EMPMAS-FILE
LABEL RECORDS ARE STANDARD.
COPY DDS-EMPRECD.
01 EMPRECD.
02 ACREC PIC X(00002).
02
EMPNO PIC S9(05)V.
02 ENAME
PIC X(00020) .
02 STRAD
PIC X( 00020) .
02 CTYST PIC X(00020) .
02 ZIPCD PIC X(00005) .
02 BEGDT PIC X(00006) .
02 SOSNO PIC X(00009).
02
MARST PIC X(00001).
WORKING-STORAGE SECTION.
77 STATUS-KEY PIC X(2).
77 RKEY PIC 9(5) VALUE 1.
77 DEMPNO PIC 9(5) VALUE O.
PROCEDURE DIVISION.
BEGIN.
OPEN OUTPUT EMPMAS-FILE.
MOVE SPACES TO EMPRECD.
MOVE "F" TO ACREC.
DISPLAY
"EMPLOYEE MASTER FILE BEING CREATED."
FIN.
UPON SCREEN.
PERFORM LOAD 1000 TIMES.
DISPLAY
"MASTER FILE CREATED. READY FOR UPDATE RECORDS"
UPON SCREEN.
CLOSE EMPMAS-FILE.
STOP RUN.
LOAD.
ADD RKEY 1000 GIVING DEMPNO.
MOVE DEMPNO TO EMPNO.
WRITE EMPRECD INVALID KEY
DISPLAY "
DISPLAY "
DISPLAY "
DISPLAY "
GO TO FIN.
EMPLOYMENT NUMBER IS " EMPNO.
INVALID KEY IS " RKEY.
DEMPNO IS " DEMPNO.
STATUS KEY IS " STATUS-KEY.
Figure 5.7. Creating a relative file
Chapter 5. Diskette Input/Output 5- 17