× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



I am trying to create a program to do this, but I am getting a (RNQ1011 
Undefined record type is found in file SOURCEPF)

Here is my Programs

First I do this ovrdbf,
OVRDBF     FILE(SOURCEPF) TOFILE(&MLLIB/&MLFILE) +
                         MBR(&MLNAME) LVLCHK(*NO)
Then I call the rpgle

FSOURCEPF  IF   E             DISK

C                   READ      SOURCEPF
C                   DOU       %EOF
C                   IF        %SUBST(SRCDTA:8:5) = '/COPY'

C                   ENDIF
C
C                   READ      SOURCEPF
C                   ENDDO



Any suggestion??

>>> mnaughton@juddwire.com 08/28/01 03:52PM >>>
I assume what you want is to print a report showing source code lines that
begin with "/COPY"? If so, one way would be:
1) DSPFD OPTION(*MBRLIST) your source files into an output file
2) Write an RPG program to read through a source file member looking for
the lines you want and printing them on the report
3) Since your program will only recognize one member of the file, either
a) write a CL program to loop through the outfile from the DSPFD command,
doing an OVRDBF and then calling the RPG program for each member, or b)
make the source file USROPN in the RPG program and then do basically the
same thing entirely within the RPG program (some people -- like my boss --
don't like CL for some reason :-).
Note that if you use the CL option & you want one long report, make sure
you leave LR *OFF at the end of the program; then when you're done, call
it with a special parm to set LR on.
Note also that if you're mixing ILE and OPM source code, you may have
different source file record formats, so you might need two (remarkably
similar) programs, one for each type of source.

hth -- it's kind of a quick overview, but if you have more questions I'll
be happy to try to help.

rpg400-l@midrange.com writes:
>Is there a way to find out (print a report) of all the programs that use
>a copy book, and what it is.  I don't want to use a option 25 in pdm, I
>have way to many programs to do that.
>
>
>
>Chris Beck


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




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.