From 5bb4d4359a52e9caf331f6001b953dc553df64df Mon Sep 17 00:00:00 2001 From: Michele Calgaro Date: Sun, 10 Jul 2022 00:23:24 +0900 Subject: Initial import of UniversalIndentGUI 1.2.0 from Debian snapshot (https://snapshot.debian.org/package/universalindentgui/1.2.0-1.1). The code is available under GPL2 licence. Signed-off-by: Michele Calgaro --- indenters/example.cbl | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) create mode 100755 indenters/example.cbl (limited to 'indenters/example.cbl') diff --git a/indenters/example.cbl b/indenters/example.cbl new file mode 100755 index 0000000..eb5b1aa --- /dev/null +++ b/indenters/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 -- cgit v1.2.1