RE: Accessing a source file.

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
OVRDBF renames the file, not the record format.  For example if I do a

OVRDBF FILE(SOURCE) TOFILE(ROB/QPGMSRC)
DSPFD FILE(SOURCE)
File SOURCE in library *LIBL not found.
DSPFD FILE(ROB/QPGMSRC) TYPE(*RCDFMT)
Format
QPGMSRC


Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin




"Feador, Jerry" <JFeador@Kiausa.com>
Sent by: rpg400-l-admin@midrange.com
05/09/2002 04:50 PM
Please respond to rpg400-l


        To:     "'rpg400-l@midrange.com'" <rpg400-l@midrange.com>
        cc:
        Fax to:
        Subject:        RE: Accessing a source file.


WOW, Thanks for everybody's response...
but I'm getting a CPF error :-(
Since other people are working on this I'll go into it...
=============================
I created a source file called 'SOURCE' with a record length of 112 (just
so
my RPG would compile.)
=============================
Here's my CL (PGM1) w/override...
I manually feed it 3 parms of a good library, source pf and a program
source...
----------------------------
PGM        PARM(&LIBRARY &FILE &MEMBER)

DCL        VAR(&LIBRARY) TYPE(*CHAR) LEN(10)
DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)
DCL        VAR(&MEMBER) TYPE(*CHAR) LEN(10)

OVRDBF     FILE(SOURCE) TOFILE(&LIBRARY/&FILE) +
             MBR(&MEMBER) LVLCHK(*NO)

CALL       PGM(PGM2)

ENDPGM
================================
Here's my RPG program (PGM2) which compiles fine...
------------------------------------------------
fSOURCE    IF   E             Disk    Rename(SOURCE:SOURCE_FMT)

C                   DoU       %EOF
C                   Read      SOURCE_FMT
C                   If        Not %EOF
   * Do stuff here with the source record...

C                   EndIf
C                   EndDo

C                   Eval      *InLR = *On
================================
Here's the job log error which occurs on the Read statement...
---------------------------------------------------------------
call Pgm1 Parm('DEVJF' 'QRPGLESRC' 'TEST')
Record format SOURCE not in member TEST.
I/O error CPF5152 was detected in file SOURCE.
================================
Source member 'TEST' does exist in SRCPF 'QRPGLESRC' in library 'DEVJF'
================================
I must be missing something - or I've got something skewed...
Capt.j

-----Original Message-----
From: Richard B Baird [mailto:rbaird@esourceconsulting.com]
Sent: Thursday, May 09, 2002 1:56 PM
To: rpg400-l@midrange.com
Subject: Re: Accessing a source file.



Jerry,

>Hi all,
>
>I've been searching and searching but...
>
>Can anybody supply the general rules for including, and reading, a source
>physical file in an RPGLE program.?
>
>I understand the requirements for the preceding CL override. It's the RPG
>setup that's throwing me...
>Can the file be defined as 'E'xternal or does it have to be 'F'ixed with
'I'
>specs? (I haven't used 'I' specs in so long...)

Either way.  If you use externally described, choose an RPGLE source file
(or similar) so that it will be the 'longest' record length you might be
apt to encounter.

when you do the override to the real source file, use LVLCHK(*NO).  This
way, any file/record name and record length source file can be used,
without encountering problems.

>Do I have to rename the record format? (since it's the same as the file
name
>and the compiler doesn't like that!)

yes, you will (if ext described).

>Thanks for your time and assistance,
>"The Captain"

glad to help.

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