× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Uh....  Correct me if I'm wrong (I've been wrong once this year), but
isn't the only difference between /COPY and /INCLUDE _other than_ it
taking three extra keystrokes... that it avoids being processed by the
SQL pre-processor?  ...

So... you must do alot of SQL pre-processing?  


On Tue, 12 Oct 2004 15:19:59 -0500, Christen, Duane J.
<dchristen@xxxxxxxxxxxxx> wrote:
> /COPY is dead... Long Live /Include.....
> 
> There is a point at which /COPY should be feared. I have seen programs where
> the only line of code NOT contained in a copybook was MOVE *ON  *INLR.
> 
> Duane
> 
> 
> 
> > -----Original Message-----
> > From: Holden Tommy [mailto:Tommy.Holden@xxxxxxx]
> > Sent: Tuesday, October 12, 2004 1:57 PM
> > To: 'RPG programming on the AS400 / iSeries'
> > Subject: RE: Converting to ILE
> >
> >
> > lONG LIVE /COPY!!!!!!
> >
> > (or include....)
> >
> > Thanks,
> > Tommy Holden
> >
> >
> >
> > -----Original Message-----
> > From: Bob Cozzi [mailto:cozzi@xxxxxxxxx]
> > Sent: Tuesday, October 12, 2004 1:45 PM
> > To: 'RPG programming on the AS400 / iSeries'
> > Subject: RE: Converting to ILE
> >
> >
> > Please put it in a /COPY if you like.
> > I get so much grief from programmers who are /COPY phobic
> > that I tend to
> > yield on this one a bit.
> > -Bob
> >
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> > On Behalf Of rob@xxxxxxxxx
> > Sent: Tuesday, October 12, 2004 1:11 PM
> > To: RPG programming on the AS400 / iSeries
> > Subject: RE: Converting to ILE
> >
> > I like that, but, does *CRTBNDRPG get used when you use CRTSQLRPGI
> > OBJTYPE(*PGM) and not when you use CRTSQLRPGI OBJTYPE(*MODULE) or
> > CRTSQLRPGI OBJTYPE(*SRVPGM)?
> >
> > Why put all that in each program versus a /copy of the whole hspec?
> >
> > I forget why I started using *USA.  I suppose I should have
> > commented that
> > like I did the other keyword.
> >
> > Rob Berendt
> > --
> > Group Dekko Services, LLC
> > Dept 01.073
> > PO Box 2000
> > Dock 108
> > 6928N 400E
> > Kendallville, IN 46755
> > http://www.dekko.com
> >
> >
> >
> >
> >
> > "Bob Cozzi" <cozzi@xxxxxxxxx>
> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> > 10/12/2004 12:47 PM
> > Please respond to
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> >
> >
> > To
> > "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
> > cc
> >
> > Fax to
> >
> > Subject
> > RE: Converting to ILE
> >
> >
> >
> >
> >
> >
> > I always use the following:
> >
> >      H BNDDIR('QC2LE':'XTOOLS') OPTION(*SRCSTMT:*NODEBUGIO)
> >       /IF DEFINED(*CRTBNDRPG)
> >      H DFTACTGRP(*NO) ACTGRP('MYCOMPANY')
> >      H/ENDIF
> >       /INCLUDE qcpysrc,copyright
> >
> > This way the source compiles even if you use CRTBNDRPG or CRTRPGMOD.
> > Also, by /COPYing the COPYRIGHT member, you can change it in one place
> > should the company ever get sold.
> >
> > Using DATFMT(*USA) is a typical mistake (my view) that people
> > make when
> > moving to RPG IV. Eventually you will learn to always use
> > DATFMT(*ISO) for
> > everything and then move it to an output field (PRTF or DSPF)
> > that is in
> > the
> > alternate format (such as *USA) as needed.  The format of
> > date literals,
> > such as initial values MUST be in the DATFMT syntax, regardless of the
> > individual date field's DATFMT keyword. This is a big issue for most
> > people.
> > For example:
> >   H  DATFMT(*USA)
> >   D  myDAte         S           D  DATFMT(*YMD) Inz(D'04/07/23')
> >
> > You'll get a compiler error here, because the D'04/07/23' is
> > not in *USA
> > format. Even though myDate is in *YMD format, its initial value (if
> > specified) must be in *USA format.
> > I always recommend using DATFMT(*ISO) on the header spec (which is the
> > language default) and for date work fields unless you
> > specifically need
> > one
> > in a specific format.
> > -Bob Cozzi
> >
> >
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> > On Behalf Of rob@xxxxxxxxx
> > Sent: Tuesday, October 12, 2004 12:00 PM
> > To: RPG programming on the AS400 / iSeries
> > Subject: RE: Converting to ILE
> >
> > Would putting in the following on each converted program be a
> > good idea?
> >       /COPY ROUTINES/QRPGLESRC,HSPEC
> > Then you would be able to modify the member HSPEC to put
> > anything in there
> >
> > that you later find is a good idea.  Possibilities include:
> >      H Bnddir('ROUTINES/SRVPGM':'QC2LE')
> >      H ActGrp(*CALLER)
> >      H DftActGrp(*NO)
> >      H Datfmt(*USA)
> >      H Copyright('(C) Copyright Group Dekko Services, LLC')
> >      H ExprOpts(*RESDECPOS)
> >      H* EXTBININT will change (B)inary to (I)nteger.
> >      H EXTBININT(*YES)
> > Some of these will change based on whether you are doing a
> > service program
> >
> > versus a standard program.  Some of these will change if you
> > want to set
> > up different activation groups.  But, in general, beats the
> > snot out of
> > having to remember options on the compile command.  We break
> > ours down
> > because of the service program vs standard program thingy.
> >
> > HSPEC contains
> >       /DEFINE HSpec
> >       /COPY ROUTINES/QRPGLESRC,HSPEC2
> >       /COPY ROUTINES/QRPGLESRC,HSPEC1
> >       /UNDEFINE HSpec
> > HSPEC1 contains
> >       /DEFINE HSpec
> >      H Bnddir('ROUTINES/SRVPGM':'QC2LE')
> >      H ActGrp(*CALLER)
> >      H DftActGrp(*NO)
> >       /UNDEFINE HSpec
> > HSPEC2 contains
> >      H Datfmt(*USA)
> >      H Copyright('(C) Copyright Group Dekko Services, LLC')
> >      H ExprOpts(*RESDECPOS)
> >      H* EXTBININT will change (B)inary to (I)nteger.
> >      H EXTBININT(*YES)
> >
> > Rob Berendt
> > --
> > Group Dekko Services, LLC
> > Dept 01.073
> > PO Box 2000
> > Dock 108
> > 6928N 400E
> > Kendallville, IN 46755
> > http://www.dekko.com
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> > mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> >
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> > mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> > mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> >
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> > mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> > mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> 
> 
> NOTICE: This electronic mail transmission may contain confidential
> information and is intended only for the person(s) named.  Any use, copying
> or disclosure by any other person is strictly prohibited. If you have
> received this transmission in error, please notify the sender via e-mail.
> 
> 
> 
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 


-- 
"Enter any 11-digit prime number to continue..."

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.