Re: A short program

[david.kahn@xxxxxxxxxxxxxxxxxx]

"Roger Pence" <rp@rogerpence.com> wrote:

>Geeze, you guys. Cycle this.

>Since my direct plea to not go on endlessly and redundantly
>about the cycle didn't work, maybe I can distract you!

Roger (King Canute) Pence!

>Here is a contest for you all.

>Write the shortest program possible that can list its own
>source. You can use any language.

(snip)

>First prize: six cold ones on me.

>Anyone here smarter than, or as smart as, Bruce?

I somehow doubt it, but here's my modest submission in CL.

c a b a

The PGM and ENDPGM statements are missing, but this doesn't stop it from
compiling. The above statement is contained in member A of source file A. B
is a printer file duplicated from QSYS/QSYSPRT. C is a command duplicated
from QSYS/CPYF.

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
+---