RE: A short program

["Stone, Brad V (TC)" <bvstone@xxxxxxxxxxxxxx>]

              PGM        PARM(&PGM)                               
              DCL        VAR(&PGM) TYPE(*CHAR) LEN(10)            
              DSPPFM     FILE(QCLSRC) MBR(&PGM)                   
              ENDPGM                                              

Call the program with it's program name as the parameter.. done deal.  :)

Bradley V. Stone
Taylor Corporation - OASIS Programmer/Analyst   
bvstone@taylorcorp.com


> -----Original Message-----
> From: Roger Pence [SMTP:rp@rogerpence.com]
> Sent: Wednesday, April 07, 1999 8:27 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      A short program
> 
> >I love doing this with small one time use programs.  It's fun trying
> >to see how few lines of code I can get by with.  One time I had a
> >three line program.  One F spec for the primary file opened for
> >update, a C spec to plug a value into a field, and a C spec for the
> >update.  Does anyone remember the old game show "Name That Tune"?
> >"I can write that program with 4 lines!"
> 
> 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!
> 
> Here is a contest for you all.
> 
> Write the shortest program possible that can list its own source. You can
> use any language.
> 
> This was originally a contest at a NEWS/400 tech editor meeting. It may
> actually be a long-standing programmer riddle, but I had never heard of
> it.
> At the time, Paul Contest refereed the contest and AS/400 rockest
> scientist
> extraordinare Bruce Lesnick won first place. Bruce's answer was
> exceedingly
> clever.
> 
> First prize: six cold ones on me.
> 
> Anyone here smarter than, or as smart as, Bruce?
> 
> rp
> 
> +---
> | 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
> +---
+---
| 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
+---