LOC counter

[richard27]

Can anyone help me with REXX code to count the lines of code in COBOL program (excluding comments and blank lines).

Please help..I need this desperately

 

[mikrom]

If your cobol source is in stream file, simply process the stream file line by line (see e.g:

http://www.tek-tips.com/viewthread.cfm?qid=1485936&page=2)

and count the lines.

 

[mikrom]

If your cobol source is in member of source physical file, you have to use your platform specific command to read it from REXX.
For example on the iSeries (aka AS/400) I can use OVRDBF command to override STDIN with a LIB/FILE(MEMBER) and then use PARSE LINEIN to process STDIN.

 

[richard27]

Thanks.

Actually I am new to REXX and don't know about the commands you talking about.

The requirement is to read all the members from the source PDS on Z/OS and count LOC in each member and write it to an output file.

Thanks.

 

[mikrom]

I have no idea about z/OS, but I guess there are z/OS commands for working with source members.
And these commands you can then use from within your REXX program.

 

[rexxhead]

Whenever this question comes up, I always recommend working from the compiler listing rather than the source. The compiler has all kinds of function for calculating statements (which is really what you want, right?) and it makes no sense for anyone to re-do that work.

I mean: if I spread a single statement over 12 lines you want that counted as "1" rather than "12". The alternative is that I can manipulate your statistic to suit my personal needs.

Frank Clarke
--Is it time for another Boston Tea Party?

 

[richard27]

The requirement that I have is to generate an inventory list.
i.e for each COBOL source PDS, I need to know all the members name, the input and output files, total lines of code,etc.
Hence want to do so in a way which is quick and easy to use.

 

[rexxhead]

Inside each large problem is one or more smaller problems scrabbling to get out.


Frank Clarke
--Is it time for another Boston Tea Party?