-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathexm8.cbl
122 lines (107 loc) · 4.57 KB
/
exm8.cbl
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
*****************************************************************
* *
* This software have been developed under GNU GPL v3 License. *
* That means, no closed distribution of this software is *
* allowed. *
* *
* Please refer to the License text here: *
* https://www.gnu.org/licenses/gpl-3.0.txt *
* *
* For any comment, suggestion or similar, you can reach me via *
* mail on "doscar.sole@gmail.com" *
* *
*****************************************************************
ID DIVISION.
PROGRAM-ID. EXM8.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 VARIABLES.
02 FECHA.
03 F-ANYO PIC 9(02).
02 OPERACION-1.
03 OP-A.
04 BASE PIC 9(01).
04 SUM1 PIC 9(02).
04 SUM2 PIC 9(02).
04 SUM3 PIC 9(09).
04 SUM4 PIC 9(09).
03 OP-B.
04 SUM5 PIC 9(01)V9.
02 OPERACION-2.
03 OP-A.
04 BASE PIC 9(01).
04 SUM1 PIC 9(02).
04 SUM2 PIC 9(02).
04 SUM3 PIC 9(09).
04 SUM4 PIC 9(09).
03 OP-B.
04 SUM5 PIC 9(01).
PROCEDURE DIVISION.
MAINLINE.
DISPLAY 'INICIO DEL PROGRAMA'.
MOVE 9 TO BASE OF OPERACION-1.
MOVE 10 TO SUM1 OF OPERACION-1.
MOVE 20 TO SUM2 OF OPERACION-1.
MOVE 30 TO SUM3 OF OPERACION-1.
MOVE 40 TO SUM4 OF OPERACION-1.
MOVE OP-A OF OPERACION-1 TO OP-A OF OPERACION-2.
MOVE 1.9 TO SUM5 OF OPERACION-1.
MOVE 1 TO SUM5 OF OPERACION-2
DISPLAY 'VALORES INICIALES-1: '
BASE OF OPERACION-1
' '
SUM1 OF OPERACION-1
' '
SUM2 OF OPERACION-1
' '
SUM3 OF OPERACION-1
' '
SUM4 OF OPERACION-1
' '
SUM5 OF OPERACION-1.
DISPLAY 'VALORES INICIALES-2: '
BASE OF OPERACION-2
' '
SUM1 OF OPERACION-2
' '
SUM2 OF OPERACION-2
' '
SUM3 OF OPERACION-2
' '
SUM4 OF OPERACION-2
' '
SUM5 OF OPERACION-2.
ADD BASE OF OPERACION-1 TO BASE OF OPERACION-2
ON SIZE ERROR MOVE 0 TO BASE OF OPERACION-2.
DISPLAY 'BASE: ' BASE OF OPERACION-2.
ADD CORRESPONDING OPERACION-1
TO OPERACION-2.
DISPLAY 'SUM5: ' SUM5 OF OPERACION-2.
MOVE 1.9 TO SUM5 OF OPERACION-1.
MOVE 1 TO SUM5 OF OPERACION-2.
ADD SUM5 OF OPERACION-1 TO SUM5 OF OPERACION-2 ROUNDED.
DISPLAY 'SUM5: ' SUM5 OF OPERACION-2.
DISPLAY 'VALORES FINALES-1: '
BASE OF OPERACION-1
' '
SUM1 OF OPERACION-1
' '
SUM2 OF OPERACION-1
' '
SUM3 OF OPERACION-1
' '
SUM4 OF OPERACION-1
' '
SUM5 OF OPERACION-1.
DISPLAY 'VALORES FINALES-2: '
BASE OF OPERACION-2
' '
SUM1 OF OPERACION-2
' '
SUM2 OF OPERACION-2
' '
SUM3 OF OPERACION-2
' '
SUM4 OF OPERACION-2
' '
SUM5 OF OPERACION-2.