You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
59 lines
1.5 KiB
59 lines
1.5 KiB
2 years ago
|
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.
|
||
|
2 years ago
|
exit.
|