1 files changed, 59 insertions, 0 deletions
diff --git a/indenters/examples/example.cbl b/indenters/examples/example.cbl
new file mode 100755
index 0000000..8b12b04
--- /dev/null
+++ b/indenters/examples/example.cbl
@@ -0,0 +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.
+         exit.
+\ No newline at end of file