RE: RE: Copy book useage.

[jerickson@xxxxxxx]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
True,..  If you
CRTSRCPF FILE(QTEMP/QRPGLESRC) RCDLEN(112) MBR(*FILE)
RNMOBJ OBJ(QTEMP/QRPGLESRC) OBJTYPE(*FILE) NEWOBJ(SOURCEPF)
then you can define it externally and only run your program against source
files with the QRPGLESRC record format.

If you define SOURCEPF programatically, you can run the program againt
QMODSRC, QRPGLESRC, or any other source file of length defined in the
program.


Regards,
Jon A. Erickson
Sr. Programmer Analyst
800.COM Inc.
1516 NW Thurman St
Portland, OR  97209-2517

Direct: 503.944.3613
Fax: 503.943.9313
Web: http://www.800.com


-----Original Message-----
From: Mike Naughton [mailto:mnaughton@juddwire.com]
Sent: Thursday, August 30, 2001 12:44 PM
To: rpg400-l@midrange.com
Cc: rpg400-l@midrange.com
Subject: Re: RE: Copy book useage.


I think the problem is that different source files have different record
format names -- typically, it is the same as the name of the file, but not
always (I believe it may be the name of the file when it was first
created, so if you rename or copy your source file the new version will
have the old format name).

This means that if you override MYLIB/QRPGLESRC to YOURLIB/QRPGLESRC, you
won't have a problem, but if you try to override MYLIB/MYFILE to
YOURLIB/YOURFILE  you will. Defining the file in the program gets around
this. . . .

I'm sure someone will correct me if I'm wrong. . . . :-)

rpg400-l@midrange.com writes:
>I don't understand why this program has to have the file program defined.
>
>I've never had to program-define source files before so since that was the
>overwhelming recommendation I started to wonder.  I copied his code below,
>compiled it, and ran it.  Worked file.  I used his OVRDBF command, and
>substitutued &mllib for *LIBL, &mlfile for QRPGLESRC, and &mbr for
>TESTREAD.
>
>Please enlighten me!
>
>Thanks,
>
>Phil


Mike Naughton
Senior Programmer/Analyst
Judd Wire, Inc.
124 Turnpike Road
Turners Falls, MA  01376
413-863-4357 x444
mnaughton@juddwire.com

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.