RE: imbedded CL in RPG

["Bob Cozzi" <cozzi@xxxxxxxxx>]

How about this instead:


 C        CALLP    Runcmd('OVRPRTF QPRINT OUTQ(whse1)')


You can do this today with Prototypes and procedures.

Bob Cozzi

http://www.RPGIV.com




> -----Original Message-----
> From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
> Behalf Of Rob Berendt
> Sent: Wednesday, August 04, 1999 11:20 AM
> To: RPG400-L@midrange.com
> Subject: Re: imbedded CL in RPG
>
>
> I agree that this sample could have been prettied up.  For example:
> C/CLEXEC
> C+
> C+     OVRPRTF   FILE(QSYSPRT)
> C+               HOLD(*YES)
> C+
> C/ENDCLEXEC
>
> Imbedded SQL can be prettied up.  I think that imbedded SQL is
> much, much, much more
> readable than OPNQRYF.
>
> We probably won't see imbedded CL commands in RPG.  Code/400
> limitation, (duck!).
> I've heard that command prompting for CL in Code/400 is kind of
> kludgy versus SEU.
> Does Code/400 support SQL prompting in imbedded RPG?
>
>
>
>
>
>
>
> jpcarr@tredegar.com on 08/04/99 09:14:04 AM
> Please respond to RPG400-L@midrange.com@Internet
> To:   RPG400-L@midrange.com@Internet
> cc:
> Fax to:
> Subject:      Re: RPG IV and CF-spec OR CL II
>
>
>
>
>       >>>Howabout a compiler directive like /SQL... Something like
>       >>>      C/CLEXEC OVRPRTF
>       >>>      C+  FILE(Qsysprt) HOLD(*YES)
>       >>>      C/ENDCLEXEC
>
>       > I think it's an ugly, cumbersome implementation.  It's one of the
> reasons
>       >I don't like embedded SQL.
>       > -mark
>
>       C'mon mark  It's beautiful.   It's free format.     Look how
> readible it is.
>       It's meaning literally leaps off the page to you.   The only thing
> that could
>       make it better is to have about 1000 lines of this stuff all
> together with no
>       blank lines or anything,  ya know,  Left Adjusted(compressed).
>
>       Hmm,  It would look like most CLP's I guess. <VBG>
>
>       Ok, Ok,  I'm taking my tongue out of my cheek now.
>       It was just to easy/good to pass up.
>
>       John Carr
>
>
>
>
>
>
>
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---END
>
>
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---END
>
>

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