Re: Reading source files in RPGLE

Many thanks to everyone for their various contributions, and, even when the
thread did wander a little, I learnt something new - about code.midrange.com.
More importantly the posts of code allowed me to solve my problem.

I changed the input fields from I specs to a D spec DS, changed the name of
the DS by putting an "A' on the end and on the read instruction put that
name as the result field.

0106.11 D ERPGLESRCA DS
0106.12 D SRCSEQ 1 6 2
0106.13 D SRCDAT 7 12
0106.14 D SRCDTA 13 112

0496.36 C Read ERPGLESRC ERPGLESRCA
5152

At last it works. Many thanks.

I am not sure that I understand why since Buck's code did not include this
but it did the trick

Rob



On 20 May 2014 13:59, Robert Clay <zreclay@xxxxxxxxx> wrote:

I'm not sure at this point whether you got an answer. It appears that the
thread wondered off-course.

If you're open to an SQL solution, just create an ALIAS for the member and
read the alias instead:

1. CREATE ALIAS YourLib.YourAlias FOR YourLib.YourSRCPF (member_name)

2. SELECT * FROM YourLib.YourAlias

3. DROP ALIAS YourLib.YourAlias

For example, if you have a source member PRODLIB.QRPGLESRC.PROG001,

CREATE ALIAS PRODLIB.TempAlias FOR PRODLIB.QRPGLESRC (PROG001);
SELECT * FROM PRODLIB.TempAlias;
DROP ALIAS PRODLIB.TempAlias;


Of course, you could create the alias in QTEMP and then the DROP statement
might not be necessary as QTEMP would be destroyed when the job ends.

HTH,
Robert

"Contrariwise, if it was so, it might be; and if it were so, it would be;
but as it isn't, it ain't. That's logic."--Tweedledee


On 05/19/2014 2:19 PM, Rob Dixon wrote:

I haven't needed to read a source file for about 24 years and didn't have
any problems reading them with OPM RPG.

Now I need to do it again and am using RPGLE. I can open the file and
read
records but the fields are all empty. I must be doing something pretty
dumb. I am on V5R1. Can anyone help please? I have tried with both
externally described and program described files.

The code below is for the program described version

The file is defined in the program with

0001.10 FERPGLESRC IF F 112 DISK
0001.11 F USROPN

It is a full procedural file

The Input fields are

0248.39 IERPGLESRC DS
0248.40 I 1 6 2SRCSEQ
0248.41 I 7 12 SRCDAT
0248.42 I 13 112 SRCDTA

and the file statements are

0496.32 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * *
0496.33 C/SPACE
1
0496.34 C FNPEXT
BEGSR
0496.35 C/SPACE
1
0496.36 C Read ERPGLESRC
5152
0496.37 C/SPACE
1
0496.38 C
ENDSR
0496.39 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
0496.40 C/SPACE
1
0496.41 C FNP#1O
BEGSR
0496.42 C/SPACE
1
0496.43 * This subroutine opens the source
file
0496.44 C OPEN ERPGLESRC
51
0496.45 C MOVE 'Y'
OPNSRC
0497.08 C/SPACE
1
0497.09 C
ENDSR
0497.10 C/SPACE
1
0497.65 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*


I then do an override before calling the program

OVRDBF FILE(ERPGLESRC) TOFILE(E290PRDSRC/QRPGLESRC) MBR(E29RPP)
POSITION(*START)


I do a debug after the read statement and all the fields are empty but the
correct file member is open - I have checked the job using WRKACTJOB

I shall probably be embarrassed by the simplicity of the answer

Many thanks.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.