-
Notifications
You must be signed in to change notification settings - Fork 0
/
02-renames.cob
38 lines (32 loc) · 1.2 KB
/
02-renames.cob
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
IDENTIFICATION DIVISION.
PROGRAM-ID. Renames.
****************************
DATA DIVISION.
WORKING-STORAGE SECTION.
01 personnel-record.
05 first-name PIC X(20).
05 last-name PIC X(20).
05 street PIC X(20).
05 city PIC X(20).
05 department PIC X(20).
05 salary PIC 9(7)v9(2).
66 full-name RENAMES first-name THROUGH last-name.
66 contact RENAMES first-name THROUGH city.
66 org RENAMES department.
****************************
PROCEDURE DIVISION.
MOVE "Homer" TO first-name.
MOVE "Simpsons" TO last-name.
MOVE "742 Evergreen Tce" TO street.
MOVE "Springfield" TO city.
MOVE 362.19 TO salary.
MOVE "Safety" TO department.
DISPLAY "Personnel record: "
DISPLAY personnel-record.
DISPLAY "Full name: "
DISPLAY full-name.
DISPLAY "Contact info: "
DISPLAY contact.
DISPLAY "Organisation: "
DISPLAY org.
STOP RUN.