Can we find the total no. of lines in all members of a PDS?

[Angel]

Hi,

For one of the requirements, I'd need to find the total Lines of Code in a PDS. The PDS has got 1500 members. Is there any way to find the total number of lines using some tool? Can Sort be an optio for this too?

[enrico-sorichetti]

with a bit of lateral thinking ... YES

just run a SRCHFOR with a string that YOU KNOW does not exist

the summary will tell how many members searched and how many lines searched

Code: Select all

********************************* Top of Data **********************************
  ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF FOR z/OS
     SEARCH-FOR SUMMARY SECTION            SRCH DSN: ENRICO.ISPF.EXEC

LINES-FOUND  LINES-PROC  MEMBERS-W/LNS  MEMBERS-WO/LNS  COMPARE-COLS  LONGEST-LI
        0         3124            0             34           1:80           80

PROCESS OPTIONS USED: ANYC

THE FOLLOWING PROCESS STATEMENTS (USING COLUMNS 1:72) WERE PROCESSED:
   SRCHFOR  ' AM SURE THAT IT IS NOT THERE'

******************************** Bottom of Data ********************************

[zprogrammer]

Also what you could do is create a REXX script to display the number of lines MEMBER wise

[Anuj Dhawan]

Unless i missed the obvious: This should help -

ISPF option 3.4, bring up the PDS on a selection list, enter PX beside the PDS. This prints the member names and line counts along with total lines. In the command line type LIST. Choose option 3 (keep and continue with new).

A data set of name &PREFIX.SPFx.LIST should give you a detailed report on your PDS.

[Angel]

Also what you could do is create a REXX script to display the number of lines MEMBER wise

Thanks but I am not very comfortable with REXX.

[Angel]

with a bit of lateral thinking ... YES

just run a SRCHFOR with a string that YOU KNOW does not exist

the summary will tell how many members searched and how many lines searched

Code: Select all

********************************* Top of Data **********************************
  ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF FOR z/OS
     SEARCH-FOR SUMMARY SECTION            SRCH DSN: ENRICO.ISPF.EXEC

LINES-FOUND  LINES-PROC  MEMBERS-W/LNS  MEMBERS-WO/LNS  COMPARE-COLS  LONGEST-LI
        0         3124            0             34           1:80           80

PROCESS OPTIONS USED: ANYC

THE FOLLOWING PROCESS STATEMENTS (USING COLUMNS 1:72) WERE PROCESSED:
   SRCHFOR  ' AM SURE THAT IT IS NOT THERE'
  
******************************** Bottom of Data ********************************

Thanks enrico for the help but it tells the "total" lines searched but not the number of line for every member in the PDS. Or did I get it wrong?

[Angel]

Unless i missed the obvious: This should help -

ISPF option 3.4, bring up the PDS on a selection list, enter PX beside the PDS. This prints the member names and line counts along with total lines. In the command line type LIST. Choose option 3 (keep and continue with new).

A data set of name &PREFIX.SPFx.LIST should give you a detailed report on your PDS.

Thanks for the help Anuj!

[enrico-sorichetti]

I'd need to find the total Lines of Code in a PDS.

my reply and the results shown satisfy fully the original request.

... but it tells the "total" lines searched but not the number of line for every member in the PDS. Or did I get it wrong?

You asked the wrong question then

[Angel]

Sorry for the confusion enrico. Reading it again and yes, it indeed is wrong.

[prino]

For one of the requirements, I'd need to find the total Lines of Code in a PDS.

And which utterly imbecile PHB has come up with this utterly useless requirement?