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 ]
Chris,

Here's a version that will work for you with your override,... Yes the file
requires programmed described.

Forgive my embellishments,....

fSourcePF  IP   f  112        DISK

d Srcfds        e ds                  extname(qrpglesrc)
d  SrcDirective                  5    Overlay(Srcfds : 19)
d  SrcXlate                      1    Dim(4) Overlay(SrcDirective : 2)

d Copybook        s             52
d Idx             s             10i 0

d Low             c                   'abcdefghijklmnopqrstuvwxyz'
d Up              c                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'

iSourcePF  NS  01
i                                  1  112  Srcfds

c                   If        %Subst(Srcdta : 6 : 1) <> '*' And
c                             SrcDirective <> *Blanks
c                   For       Idx = 1 to 4
c     Low:Up        Xlate     SrcXlate(Idx) SrcXlate(Idx)
c                   EndFor

c                   If        SrcDirective = '/COPY'
c                   Eval      Copybook = %Subst(Srcdta : 7)
c     Copybook      Dsply
c                   EndIf
c                   EndIf

HTH,

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: Chris Beck [mailto:CBeck@good-sam.com]
Sent: Thursday, August 30, 2001 7:54 AM
To: rpg400-l@midrange.com
Subject: Re: Copy book useage.


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


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