diff options
| author | Michele Calgaro <[email protected]> | 2023-04-18 20:47:44 +0900 |
|---|---|---|
| committer | Michele Calgaro <[email protected]> | 2023-04-18 20:47:44 +0900 |
| commit | 425e16ad894fd23d7c5b061acffba6cd04a1b1db (patch) | |
| tree | e1f794e07812bcd59a4b518747bf9dc5c2a5a163 /indenters/__TODO/example.cbl | |
| parent | 11451cea9db07b2a257297de57d76a8dbb7e3a5e (diff) | |
| download | universal-indent-gui-tqt-425e16ad894fd23d7c5b061acffba6cd04a1b1db.tar.gz universal-indent-gui-tqt-425e16ad894fd23d7c5b061acffba6cd04a1b1db.zip | |
Added code to load last open file or an example or an untitled file.
Signed-off-by: Michele Calgaro <[email protected]>
Diffstat (limited to 'indenters/__TODO/example.cbl')
| -rwxr-xr-x | indenters/__TODO/example.cbl | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/indenters/__TODO/example.cbl b/indenters/__TODO/example.cbl new file mode 100755 index 0000000..8b12b04 --- /dev/null +++ b/indenters/__TODO/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 |