|
View previous topic :: View next topic
|
| Author |
Message |
surya.kalyan
New User
Joined: 09 Jan 2007
Posts: 20
Location: Mumbai
|
|
|
|
I want to write a REXX tool which would extract the copybook names of a program and present a nice report.
Can anyone suggest me a method to extract copybook names if they are separated by more than one spaces?
e.g.
COPY MYCOPY1.
COPY MYCOPY2. |
|
| Back to top |
|
 |
surya.kalyan
New User
Joined: 09 Jan 2007
Posts: 20
Location: Mumbai
|
|
|
|
Please assume that in the second statement
COPY MYCOPY2.
COPY and MYCOPY2 are separated by more than one spaces. |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
I believe an ISPF edit macro, combined with REXX's PARSE instruction will do the job.
O. |
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
With REXX, that's easy...
| Code: |
/* load cobol program in memory (FCBLPGM allocated to member)*/
"EXECIO * DISKR FCBLPGM (FINIS STEM PgmSrc."
/* loop on program contents scanning for COPY */
Do P = 1 To PgmSrc.0
Parse Upper Var PgmSrc.P 1 . 7 Comment 8 CblLine 73 .
If Comment = '*' Then Iterate
If Word(CblLine,1) <> 'COPY' Then Iterate
CopyName = Strip(Word(CblLine,2),'.')
Say "Found COPY. Name is "CopyName
End |
|
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland
|
|
|
|
Perhaps use ICEMAN/ICETOOL to:
..... extract the lines with substring " COPY "
..... process the results in workfile.
..... produce your "nice report" from the workfile ?
Regards,
Garry. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
|
|
