-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathexm9.cbl
109 lines (101 loc) · 4.2 KB
/
exm9.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
*****************************************************************
* *
* 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. EXM9.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 VARIABLES.
02 OPERACION-1.
03 OP-A.
04 BASE PIC 9(01).
04 SUB1 PIC 9(02).
04 SUB2 PIC 9(02).
04 SUB3 PIC 9(09).
04 SUB4 PIC 9(09).
03 OP-B.
04 SUB5 PIC 9(09)V9.
02 OPERACION-2.
03 OP-C.
04 BASE PIC 9(01).
04 SUB1 PIC 9(02).
04 SUB2 PIC 9(02).
04 SUB3 PIC 9(09).
04 SUB4 PIC 9(09).
03 OP-D.
04 SUB5 PIC 9(09).
PROCEDURE DIVISION.
MAINLINE.
DISPLAY 'INICIO DEL PROGRAMA'.
MOVE 10 TO SUB1 OF OP-A.
MOVE 11 TO SUB1 OF OP-C.
MOVE 20 TO SUB2 OF OP-A.
MOVE 05 TO SUB2 OF OP-C.
MOVE 27 TO SUB3 OF OP-A.
MOVE 01 TO SUB3 OF OP-C.
MOVE 05 TO SUB4 OF OP-A.
MOVE 15 TO SUB4 OF OP-C.
DISPLAY 'VALORES INICIALES-1: '
BASE OF OPERACION-1
' '
SUB1 OF OPERACION-1
' '
SUB2 OF OPERACION-1
' '
SUB3 OF OPERACION-1
' '
SUB4 OF OPERACION-1
' '
SUB5 OF OPERACION-1.
DISPLAY 'VALORES INICIALES-2: '
BASE OF OPERACION-2
' '
SUB1 OF OPERACION-2
' '
SUB2 OF OPERACION-2
' '
SUB3 OF OPERACION-2
' '
SUB4 OF OPERACION-2
' '
SUB5 OF OPERACION-2.
SUBTRACT SUB1 OF OP-A FROM SUB1 OF OP-C.
SUBTRACT SUB2 OF OP-A FROM SUB2 OF OP-C.
SUBTRACT SUB3 OF OP-A FROM SUB3 OF OP-C
ON SIZE ERROR DISPLAY 'ERROR!'.
SUBTRACT SUB4 OF OP-A FROM SUB4 OF OP-C
GIVING SUB5 OF OP-B.
DISPLAY 'VALORES FINALES-1: '
BASE OF OPERACION-1
' '
SUB1 OF OPERACION-1
' '
SUB2 OF OPERACION-1
' '
SUB3 OF OPERACION-1
' '
SUB4 OF OPERACION-1
' '
SUB5 OF OPERACION-1.
DISPLAY 'VALORES FINALES-2: '
BASE OF OPERACION-2
' '
SUB1 OF OPERACION-2
' '
SUB2 OF OPERACION-2
' '
SUB3 OF OPERACION-2
' '
SUB4 OF OPERACION-2
' '
SUB5 OF OPERACION-2.