We use a 4GL called QUIZ by COGNOS. Here's an example:

ACCESS DB-NAME
CHOOSE KEY-FIELD "VALUE"
REPORT TAB 1 KEY-FIELD TAB 20 NUM-FIELD PIC "^^^^^"
SET REPORT DEVICE LASER NAME OUTPRT PRIORITY 3 COPIES 4
GO

You can also create indexed KSAM files on-the-fly:

ACCESS MAST-SET LINK KEY-FIELD TO KEY-FIELD OF DTL-SET
CHOOSE KEY-FIELD "VALUE"
SORT ON KEY-FIELD
SET SUBFILE NAME OUT1 INDEX KEY-FIELD
REPORT SUMMARY KEY-FIELD DTL-NUMBER SUBTOTAL
GO

You can also get a screen editor called QUICK and a volume processor
called QTP.