How to locate load libraries used within Endevor Processors to convert to PDSE format

Products

• Endevor

Issue/Introduction

Many sites are in process or converting to Cobol 5.X or COBOL 6.x. 

Part of the conversion is converting PDS load libraries to PDSE format.

 

How can the COBOL Load libraries used within Endevor Processors be located?

 

Environment

Release:   18.0  18.1
Component: ENDBAS

Resolution

Using the Endevor LIST command is the best way to located the libraries used within Endevor.

The SCL to use would be similar to:

    //LSTELMNT EXEC PGM=NDVRC1,DYNAMNBR=1500,
    //              PARM='C1BM3000',REGION=4096K    
    //C1PRINT  DD SYSOUT=*              
    //C1MSGS1  DD SYSOUT=*             
    //SYSOUT   DD SYSOUT=*        
    //SYMDUMP  DD DUMMY                  
    //SYSUDUMP DD SYSOUT=*         
    //BSTIPT01 DD *
      LIST ELEMENT *
      FROM ENV ENV1 
           SYSTEM * 
           SUBSYSTEM * 
           TYPE PROCESS 
           STAGE NUM *
      TO DSNAME 'hlq.mlq.some.library' MEMBER LSTPROCS
      WHERE TEXT EQ 'SYSLMOD'
      OPTION REPLACE MEMBER
             SHOW TEXT PLUS 1 LINE.
    /*

The C1MSGS1 output file will list the Processors that contain a SYSLMOD character string and in this example, 1 line before and 1 line after the line SYSLMOD was found on. 

 

In this example, the COBLII Processor has 2 SYSLMOD statements in it 

and COBLNK  has 1 SYSLOD:

 

SET FROM ENVIRONMENT  ENV1      SYSTEM  sys1   SUBSYSTEM  subs1         
         TYPE  PROCESS   STAGE NUMBER 1 .                                    
                                                                             
     &&ACTION ELEMENT   COBLII       VERSION 01   LEVEL 02  .               
                                                                    
    541: //SYSUT1   DD   UNIT=&WRKUNIT,SPACE=(12100,(&WRKPRIMM,&WRKSECOM))   
                                                                             
*   542: //SYSLMOD  DD   DISP=(,PASS),UNIT=&WRKUNIT,DSN=&&LOADLC(&C1ELEMENT),
                                                                             
    543: //              SPACE=(13300,(&WRKPRIMS,&WRKSECOS,1)),              
                                                                             
                                                                             
    590: //SYSUT1   DD   UNIT=&WRKUNIT,SPACE=(12100,(&WRKPRIMM,&WRKSECOM))   
                                                                             
*   591: //SYSLMOD  DD   DISP=(,PASS),UNIT=&WRKUNIT,DSN=&&LOADLB(&C1ELEMENT),
                                                                             
    592: //              SPACE=(13300,(&WRKPRIMS,&WRKSECOS,1)),              
                                                                             
     &&ACTION ELEMENT   COBLNK        VERSION 01   LEVEL 19  .                                                                                    
                                                                             
    119: //           DISP=SHR,MONITOR=COMPONENTS                            
                                                                             
*   120: //SYSLMOD  DD  DSN=&LOADLIB(&MEMBER),                               
                                                                             
    121: //             MONITOR=&MONITOR,                                    

 

Note:   You can control the number of lines printed out via the SHOW TEXT PLUS X LINE option.

 

The LSTPROCS member in   DSNAME 'hlq.mlq.some.library'  contains a series of SET and &&ACTION statements:

SET FROM ENVIRONMENT 'ENV1    ' SYSTEM 'sys1 ' SUBSYSTEM 'subs1 '
         TYPE 'PROCESS ' STAGE NUMBER 1 .                             
     &&ACTION ELEMENT  'COBII     '   VERSION 01   LEVEL 02  .        
     &&ACTION ELEMENT  'COBLNK    '   VERSION 01   LEVEL 19  .        
     &&ACTION ELEMENT  'XXXCOB    '   VERSION 01   LEVEL 00  .        
     &&ACTION ELEMENT  'ENXMOVE   '   VERSION 01   LEVEL 00  .        
     &&ACTION ELEMENT  'FGCIINBL  '   VERSION 01   LEVEL 06  .        
     &&ACTION ELEMENT  'GCIINBL   '   VERSION 01   LEVEL 00  .        
     &&ACTION ELEMENT  'GCOBEXIT  '   VERSION 01   LEVEL 01  .        
     &&ACTION ELEMENT  'GCOBOL    '   VERSION 01   LEVEL 02  .        
     &&ACTION ELEMENT  'IGYWCL    '   VERSION 01   LEVEL 31  .        
     &&ACTION ELEMENT  'P2324317  '   VERSION 01   LEVEL 01  .        

The Elements listed in the LSTPROCS member can be printed out for a more detailed review by -

1)  Edit the LSTPROCS member and add the following SET statement before the first SET FROM statement:

             SET ACTION PRINT  . 
    

2)  Run the following job:

     //ACTPRINT  EXEC PGM=NDVRC1,PARM='C1BM3000',          
     //         DYNAMNBR=1500,REGION=4096K                       
     //C1PRINT  DD SYSOUT=*                               
     //C1MSGS1  DD SYSOUT=*                               
     //SYSOUT   DD SYSOUT=*                               
     //SYMDUMP  DD DUMMY                                  
     //SYSUDUMP DD SYSOUT=*                               
     //*                                                  
     //BSTIPT01 DD DISP=SHR,DSN=hlq.mlq.some.library(LSTPROCS)
/*

                                               

Note :  The C1PRINT data set contains the Printout of the Processor and can be directed to a sequential file or PDS/PDSE member if desired.

 

Additional Information

For more information see:

   LIST FROM 

   SET ACTION   

   ACTION Statement 

   PRINT ELEMENT