Pronto is a 4gl loosely based on COBOL.(pronto.com.au) used in their ERP product. Editor looks good even without code folding.(I have paid for it, waiting for key)
small explanation: the end conditions can be either endcommand or end-command. If you can do both, terrific. If not then use the hyphenated version
Code: Select all
Extension: .spl
Line Comment: //
Block Comment: none
Begin: if
End: endif
Begin: for
End: endfor / end-for
Begin: procedure
End: endprocedure / end-procedure
Begin: extract
End: endextract / end-extract
Begin: repeat
End: endrepeat / end-repeat
Begin: while
End: endwhile / end-while
Begin: switch
End: endswitch / end-switch Code: Select all
procedure this-is-a-test
if test = true
extract data-table
on index 'xyz'
key 'ddd'
detail
repeat
do this-procedure-initially
until data = 'eee'
do this-proc-when-true
endrepeat
endextract
while x = y
for i = 1 to 20
do something
endfor
endwhile
endif
switch on 'abc'
case 'a'
do a-proc
case 'b'
set ws-item = 678.98
case 'c'
do c-proc
else
panic
endswitch
endif
endprocedurehope it makes sense when it arrives.
Thanks
BGS