CA Datacom

Sample Program: Countsrc 

10-10-2014 10:19 AM

The attached application is a batch program which takes the output from a vlsutil library listing and produces a report of every program in the library and the number of lines of code it contains.  It also maintains a total of the lines of code counted.

                                         

SAMPLE JCL...                                               

                                                            

//    *  JOBCARD  *                                        

//PROCLIB  DD DSN=your.proclib,DISP=SHR                    

//STEP1    EXEC PGM=VLSUTIL                                

//STEPLIB DD DSN=your.ipc15.CAVQLOAD,DISP=SHR                

//VLSFILE DD DSN=your.source.library,DISP=SHR              

//AUXPRINT DD DSN=&&TEMP1,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE)

//            UNIT=SYSDA,DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330

//PRTLIST DD SYSOUT=*                                      

//SYSPRINT DD SYSOUT=*                                     

//SYSOUT  DD SYSOUT=*                                      

//SYSIN DD  *                                              

LIBRARY                                                    

//STEP2    EXEC IDLBATCH                                   

//VLSIN DD DSN=&&TEMP1,DISP=(OLD,DELETE)                   

//PRTLIST DD SYSOUT=*                                      

//SYSOUT  DD SYSOUT=*                                      

//AUXPRINT DD SYSOUT=*                                     

//SYSPRINT DD SYSOUT=*                                     

//SYSIN DD *                                               

SEL SYS sys                                                

RUN COUNTSRC VER n                                         

/*

 

You will need to IMPORT the attached program into one of your systems scuh as $ID.

 

//SYSIN    DD *                    

SET IMPORT SYS $ID                 

SET IMPORT DUPLICATE REPLACE       

IMPORT ALL                         

OFF                                

//                                

 

Note:  This program must be run in batch and  can only be run under CA Ideal r15 since it contains $TRANSLATE which is one of

the new functions in CA Ideal r15.

 

                                                      

Statistics
0 Favorited
0 Views
1 Files
0 Shares
0 Downloads
Attachment(s)
zip file
COUNTSRC.TXT.zip   3K   1 version
Uploaded - 05-29-2019

Tags and Keywords

Comments

10-10-2014 05:44 PM

Hi Julia,

 

Close but no cigar. You still have the obsolete suffix CAILIB instead of the current CAVQLOAD.

 

Cheers,

Owen

10-10-2014 02:56 PM

Hi Owen,

 

Your too quck.  It was being corrected as I received your email.

thanks,

Julia

10-10-2014 02:51 PM

Hi Julia,

 

Thank you for the interesting sample. I have one initial question. If, as you say, this sample relies on CA Ideal 15.0, which in turn relies on CA IPC 15.0, why do you have a reference to IPC 4.2 and the ancient "CAILIB" suffix in your STEPLIB?...

 

//STEPLIB DD DSN=your.ipc42.cailib,DISP=SHR  


For the benefit of any younger Ideal Administrators out there I suspect this should be...


//STEPLIB DD DSN=your.IPC150.CAVQLOAD,DISP=SHR  


Cheers,

Owen

Related Entries and Links

No Related Resource entered.