Re: A short program

[david.kahn@xxxxxxxxxxxxxxxxxx]

Something strange is going on. I've had 2 goes at sending this message now
and each time it's come back into by mailbox truncated in the same place.
I'm now trying a 3rd time with just the bit that should have followed the
last bit. It's directed to Hans.

Unfortunately you were the only one clever/academic enough to grasp the
true spirit of the challenge, including the task setter. :-)

As for the RPG only version (without reading input files) I can beat your
29 records by 6.

     FQSYSPRT O   F      80            PRINTER
     E                    @LN     1  12 80
     C                     MOVEL'**'      @LN,12
     C                     DO   2
     C                     DO   12        IX      30
     C                     EXCPT
     C                     ENDDO
     C                     MOVE *BLANK    @LN,12         LR
     C                     ENDDO
     OQSYSPRT E
     O                         @LN,IX    80
**
     FQSYSPRT O   F      80            PRINTER
     E                    @LN     1  12 80
     C                     MOVEL'**'      @LN,12
     C                     DO   2
     C                     DO   12        IX      30
     C                     EXCPT
     C                     ENDDO
     C                     MOVE *BLANK    @LN,12         LR
     C                     ENDDO
     OQSYSPRT E
     O                         @LN,IX    80

Any advances?

Dave Kahn, ABB Steward Ltd.


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---