Previous Topic: IN25SYMD Options

Next Topic: Maintaining a PROTSYM File

Examples

This section contains postprocessor IN25SYMD examples.

Example 1

Example 1

All of the programs with the prefix PAY are loaded into the PROTSYM file from a CA Librarian library, with all of the messages displayed in the REPORT file.

//STEP1    EXEC PGM=IN25SYMD,REGION=4M                                 
//STEPLIB  DD DISP=SHR,DSN=CAI.CAVHLOAD                        
//PROTSYM  DD DISP=SHR,DSN=USER.PROTSYM                       
//LISTLIB  DD DISP=SHR,DSN=USER.LIBRARIAN.LIBRARY
//REPORT   DD SYSOUT=*                                                 
//OPTIN    DD *                                                        
 LTYP=LIB,FROM=PAY*,MSG=ALL  
/*   
Example 2

Example 2

Program COBDEMO is loaded into the PROTSYM file from a sequential listing file, with messages suppressed. Note that the DD statement for the LISTLIB has been renamed to INPUT for LTYP=SEQ.

//STEP1    EXEC PGM=IN25SYMD,REGION=4M                                 
//STEPLIB  DD DISP=SHR,DSN=CAI.CAVHLOAD                        
//PROTSYM  DD DISP=SHR,DSN=USER.PROTSYM                       
//INPUT	   DD DISP=SHR,DSN=USER.SEQ.LISTING                               
//REPORT   DD SYSOUT=*                                                 
//OPTIN    DD *                                                        
 LTYP=SEQ,FROM=COBDEMO,MSG=NONE
/*   
Example 3

Example 3

Programs whose names begin with C, D, or E are loaded into the PROTSYM file from a partitioned data set. A one-line return code message is written to the REPORT file for each program.

//STEP1    EXEC PGM=IN25SYMD,REGION=4M                                 
//STEPLIB  DD DISP=SHR,DSN=CAI.CAVHLOAD                        
//PROTSYM  DD DISP=SHR,DSN=USER.PROTSYM                       
//LISTLIB  DD DISP=SHR,DSN=USER.PDS.LIBRARY                               
//REPORT   DD SYSOUT=*                                                 
//OPTIN    DD *                                                        
 LTYP=PDS,FROM=C,TO=E9999999,MSG=RC
/*