Sample JCL to do Endevor Scan in Mainframe

Endevor is a mainframe source code management tool. We can access endeavor function through ISPF panel(E). Endeavor maintains each element with the code name, system, subsystem and type. Suppose, you are doing analysis or design and you need to refer some code which has some text like report ABC or the program which uses certain file name etc. There can be certain instances when you don't have much time to go and open each and every code in Endevor and search for the certain text which you want. In that situation the JCL below can help you to do Endevor Scan:

//AAAAAA   JOB (BBBB,CCCC),MSGCLASS=X,CLASS=C,                        
//          MSGLEVEL=(1,1),NOTIFY= DDDD
//*********************************************************************
//*  ENDEVOR JCL STATEMENTS                                           *
//*********************************************************************
//NDVRBAT  EXEC PGM=NDVRC1,DYNAMNBR=1500,REGION=4096K,
//  PARM='C1BM3000'
//SYSPRINT DD SYSOUT=*
//*********************************************************************
//*             SORT WORK FILES                                       *
//*********************************************************************
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(1,2))
//C1TPDD01 DD UNIT=SYSDA,SPACE=(CYL,5),
//            DCB=(RECFM=VB,LRECL=260,BLKSIZE=6160)
//C1TPDD02 DD UNIT=SYSDA,SPACE=(CYL,5),
//            DCB=(RECFM=VB,LRECL=260,BLKSIZE=6160)
//*********************************************************************
//*             PANVALET SUPPORT                                      *
//*********************************************************************
//C1TPLSIN DD UNIT=SYSDA,SPACE=(CYL,5),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//C1TPLSOU DD UNIT=SYSDA,SPACE=(CYL,5)
//C1PLMSGS DD SYSOUT=*
//*********************************************************************
//*  OUTPUT DATA SETS                                                 *
//*********************************************************************
//C1MSGS1  DD SYSOUT=*
//C1MSGS2  DD SYSOUT=*
//C1PRINT  DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171)
//SYSUDUMP DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//*********************************************************************
//* REQUEST DATA SET (BSTIPT01 CONTAIN THE NDVR SCL) 
//*********************************************************************
//BSTIPT01 DD *
LIST ELEMENT '*'
FROM ENVIRONMENT 'EEEE' SYSTEM 'FFF' SUBSYSTEM 'GGG'
TYPE 'HHHH' STAGE X
OPTIONS SHOWING TEXT NOSEARCH
WHERE TEXT EQ
'IIIIIIIII JJJJJ KKKKK LLLLLL’
COLUMNS 001 080
BUILD ACTION LIST
.



where AAAAAA is the job name
           BBBB is accounting information
           CCCC is name of the programmer
           DDDD is User id or &SYSUID
           EEEE is environment like PROD, TEST, AHOC etc
           FFF is the system’s name,platform or domain on which you are working 
           GGG is the subsystem’s name if any
           HHHH is the type of the program whether its COBOL DB2,COBOL,CICS DB2,ADHOC        
etc
           X is the stage where program resides like X,P(Production, Test etc)
           IIIIIIIII JJJJJ KKKKK LLLLLL is the texts which you need to search

        


No comments:

Post a Comment