Figure 3.2. Example Of Transaction I/O Statements - IBM 5280 Programmer's Manual

IDENTIFICATION DIVISION.
PROGRAM-ID. ADD-NEW-EMPLOYEES.
AUTHOR. A NAME.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-J70.
OBJECT-COMPUTER. IBM-S280.
SPECIAL-NAMES.
EI
ATTRIBUTE-DATA IS TERMINAL-INFO.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
II
SELECT SCREEN-FILE-PRJ ASSIGN TO WORKSTATION 1920
ORGANIZATION IS TRANSACTION
II
001
002
004
006
008
010
012
014
016
018
II
001
II
001
II
001
II
001
B
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS TUBE-STAT
CONTROL-AREA IS WSTATION-CONTROL-AREA.
SELECT EMPMAS-FILE ASSIGN TO DISK
ORGANIZATION IS RELATIVE
ACCESS MODE IS RANDOM
RELATIVE KEY IS RKEY
FILE STATUS IS DISK-STAT.
DATA DIVISION.
FILE SECTION.
FD SCREEN-FILE-PRJ LABEL RECORDS ARE OMITTED.
01 SCREEN-RECORD PIC X(88).
FD
01
EMPMAS-FILE
VALUE OF OWNER-ID IS "BELL"
LABEL RECORDS ARE STANDARD.
COPY DDS-EMPRECD.
EMPRECD.
02 ACREC PIC X(00002).
02 EMPNO PIC X(OOOOS).
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.
COpy DDS-ERRMSG1.
01 ERRMSG1 PIC X.
COpy DDS-ERRMSG2.
01 ERRMSG2 PIC X.
COpy DDS-ERRMSGJ.
01
ERRMSGJ PIC X.
COPY DDS-PROMPT.
01 PROMPT PIC X.
01 LAST-RECORD-SAVE PIC X(88)
0' WSTATION-INFO.
02 TTYPE PIC X.
02 SSIZE PIC X.
02 LOCATION PIC X.
02 ON-OFF-LINE PIC X.
02 ALLOC-STATUS
PIC X.
02 INPUT-STATUS PIC X.
02 DATA-STATUS PIC X.
02 INQ-STATUS PIC X.
VALUE SPACES.
Figure 3.2. Example of transaction I/O statements (Part 1 of 5)
3- 8 IBM 5280 COBOL Programmer's Guide