RE: Converting to ILE -- RPG400-L

/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.