diff options
Diffstat (limited to 'indenters/example.cbl')
-rwxr-xr-x | indenters/example.cbl | 116 |
1 files changed, 58 insertions, 58 deletions
diff --git a/indenters/example.cbl b/indenters/example.cbl index eb5b1aa..8b12b04 100755 --- a/indenters/example.cbl +++ b/indenters/example.cbl @@ -1,59 +1,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.
+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.
\ No newline at end of file |