blob: 8b12b04deb0d572ba9a92507f3c41abf14447fee (
plain)
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
|
000000* An example illustrating the use of a programmer defined paragraphs
* and perform-thru
identification division.
program-id. level88.
author. kik.
environment division.
configuration section.
special-names.
console is crt
decimal-point is comma.
data division.
working-storage section.
77 transaction-kode pic 99.
88 valid-kode value 4, 8 thru 15.
88 create value 10.
88 destroy value 15.
procedure division.
main section.
*
* Some code leading to "transacion-kode" getting a value
*
move 10 to transaction-kode.
*
* Testing the conditions
*
if valid-kode then
if create then
perform p-create thru p-create-end
else
if destroy then
perform p-destroy thru p-destroy-end
else
perform ordinary-transaction
thru ordinary-transaction-end.
*
p-create.
* some creation code
p-create-end.
exit.
p-destroy.
* some destruction code
p-destroy-end.
exit.
ordinary-transaction.
* some ordinary data processing code
ord-trns-1.
ord-trns-2.
ordinary-transaction-end.
exit.
|
