From d017bd37253ae35b29d82e3277b9adcbb4517dd0 Mon Sep 17 00:00:00 2001 From: Michele Calgaro Date: Sat, 16 Jul 2022 15:18:45 +0900 Subject: Convert files to unix format. Convert C++ header names to C header names. Signed-off-by: Michele Calgaro --- indenters/example.cbl | 116 +++++++++++++++++++++++++------------------------- 1 file changed, 58 insertions(+), 58 deletions(-) (limited to 'indenters/example.cbl') 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 -- cgit v1.2.3