Code to count number of lines in a PDS

Akash Sharma · New User Joined: 13 Jan 2009 Posts: 36 Location: India

Hi All,

Is it possible to write a code in REXX or CLIST which would could perform following operation:

1. Input: PDS Name

2. Functionality: Compute number of lines of code for each member in that PDS.

3. Output: A report in following format.

superk · Posted: Fri Apr 17, 2009 4:21 pm

Yes, of course. It'll have to be up to you to determine what constitutes a "line of code" and how to count it.

superk · Posted: Fri Apr 17, 2009 4:22 pm

Search for "LOC" to find other similar topics.

dbzTHEdinosauer · Posted: Fri Apr 17, 2009 4:33 pm

yes, suggest you read some of the documentation provided by this link:

www-01.ibm.com/software/awdtools/ispf/library/

and look for rexx documentation at:

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/library

as well as search this forum for similarly titled exercises.

or if you are only looking for someone to provide you code in order to avoid learning something:

www.lbdsoftware.com/ispftools.html

home.roadrunner.com/~mvsrexx/REXX/

or

or mainipulate the data presented by a pds index listing

Akash Sharma · New User Joined: 13 Jan 2009 Posts: 36 Location: India

HI Dick,

Thanks a lot for the effort and time u have put in replying to the query.
Well, a beginner just expects that some pro could give him a clue whether it is possible or not. I have looked into previous posts for LOC and then posted a new one.
Thanks anyway. Help is much appreciated.

Pedro · Posted: Fri Apr 17, 2009 9:34 pm

Akash Sharma · New User Joined: 13 Jan 2009 Posts: 36 Location: India

Hi Pedro,

Pedro · Posted: Tue Apr 21, 2009 5:26 am

LMMLIST relies on the ISPF statistics being turned on. Sometimes they are not.

prasadvrk · Posted: Fri May 15, 2009 1:46 pm

Akash,

Though belated I think I have solution for your problem, let me know if this solves your problem

/*REXX*/
/*ARG DSN */
DSN='XXXX.YYYY.ZZZZ'
DSN0='AAAA.BBBB.CCCC'
ADDRESS TSO "ALLOC DA('"DSN0"') DD(OUTDD) MOD REUSE"
"EXECIO 0 DISKW OUTDD (OPEN" /* OPEN INDD */
X = OUTTRAP('VAR.')
"LISTDS '"DSN"' MEMBERS"
G = 0
/*SAY 'THE NUMBER OF LINES TRAPPED IS' VAR.0 */
DO I = 7 TO VAR.0
MEM=DSN || '(' || STRIP(VAR.I) || ')'
DSE=SYSDSN("'"MEM"'")
IF DSE <> 'OK' THEN
"FREE DD(INDD)"
ADDRESS TSO "ALLOC DA('"MEM"') DD(INDD) SHR REUSE"
EOFFLAG = 2 /* RETURN CODE TO INDICATE END-OF-FILE */
RETURN_CODE = 0 /* INITIALIZE RETURN CODE */
IN_CTR = 0 /* INITIALIZE # OF LINES READ */
"EXECIO 0 DISKR INDD (OPEN" /* OPEN INDD */
DO WHILE (RETURN_CODE ¬ = EOFFLAG) /* LOOP WHILE NOT END-OF-FILE */
'EXECIO 1 DISKR INDD' /* READ 1 LINE TO THE DATA STACK */
RETURN_CODE = RC /* SAVE EXECIO RC */
IF RETURN_CODE = 0 THEN /* GET A LINE OK? */
DO /* YES */
IN_CTR = IN_CTR + 1 /* INCREMENT INPUT LINE CTR */
PARSE PULL LINE.1 /* PULL LINE JUST READ FROM STACK*/
END
END
SAY IN_CTR
G = G + 1
REPORT.G = MEM || ''LINES OF CODE'' IN_CTR
"EXECIO 0 DISKR INDD (FINIS" /* CLOSE THE INPUT FILE, INDD */
"FREE FI(INDD)"
END
X = OUTTRAP('OFF')
DO M = 1 TO G
END
'EXECIO 'G 'DISKW OUTDD(FINIS STEM 'REPORT.
"FREE FI(OUTDD)"
EXIT
END

Akash Sharma · New User Joined: 13 Jan 2009 Posts: 36 Location: India

Prasad,

Thanks a lot for the code.
In the meantime i was too working on it.
The below code which i wrote is working too...

I have also written an ISPF Panel from where im taking the PDS name as input...performing some validations on it.