MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » May 2014

Re: Reading source files in RPGLE



fixed

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

Hi Rob,
I didn't see anything obvious in the posted code, but judging from the
sequence numbers, there are a lot of lines we didn't see. My guess is
that the problem lies there. This still works on my 7.1 system:

fqrpglesrc ip f 112 disk infds(infds)
fqsysprt o f 132 printer oflind(*inof)

dINFDS ds
d FILE_NAME 83 92
d LIBRARY 93 102
d MEMBER 129 138

d count s 10i 0

iqrpglesrc aa 01
i 1 6 2srcseq
i 7 12 0srcdat
i 13 112 srcdta

c add 1 count

oqsysprt t lr 2 03
o file_name 10
o library 21
o member 32
o count j 50

--buck





Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact