-
Notifications
You must be signed in to change notification settings - Fork 0
/
02-record.cob
34 lines (28 loc) · 1.11 KB
/
02-record.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
IDENTIFICATION DIVISION.
PROGRAM-ID. Records.
AUTHOR. @HackVlix.
DATE-WRITTEN. August, 2023.
****************************
DATA DIVISION.
WORKING-STORAGE SECTION.
01 record-name.
05 y PIC X(10) VALUE "data".
05 sub-record-1.
10 x1 PIC XXXX.
10 x2 PIC 9999.
05 sub-record-2.
10 x1 PIC S9999.
10 x2 PIC AAAA VALUE "HiHo".
10 x3 PIC X VALUE x'9F'.
****************************
PROCEDURE DIVISION.
MOVE "9876" TO x1 IN sub-record-1 IN record-name.
MOVE 1234 TO x1 IN sub-record-1 IN record-name.
MOVE -1234 TO x1 IN sub-record-2 IN record-name.
DISPLAY y IN record-name.
DISPLAY x1 IN sub-record-1 IN record-name.
DISPLAY x2 IN sub-record-1 IN record-name.
DISPLAY x1 IN sub-record-2 IN record-name.
DISPLAY x2 IN sub-record-2 IN record-name.
DISPLAY x3.
STOP RUN.