Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Identifying cobol recompiles in Endevor

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
hiravibk
Warnings : 1

Active User


Joined: 14 Dec 2008
Posts: 103
Location: India

PostPosted: Mon Apr 22, 2013 8:45 pm    Post subject: Identifying cobol recompiles in Endevor
Reply with quote

Hi,

Is there a way in endevor or any easier way in ISPF to identify list of programs which make static calls to a program i am changing, or list of programs which use a copybook i am changing. In short, it is to identify recompiles that i will have to do when i change a program or copybook.

I understand that i can submit a batch job giving text search of the program/copybook i am changing using the endevor program NDVRC1. I was checking if ACMQ in endevor helps in identifying this but could not understand what it does. Please help.

Thank you.
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10309
Location: italy

PostPosted: Mon Apr 22, 2013 9:46 pm    Post subject: Reply to: Identifying cobol recompiles in Endevor
Reply with quote

If things have been setup properly a change in one of the <components> will automatically force a rebuild of the object using it

or You can try ISPF option 4.12 ( member parts list )
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Mon Apr 22, 2013 9:54 pm    Post subject:
Reply with quote

This was the Endevor batch JCL I used in another IT shop and maybe you can make it work for your shop.
Code:
//*--  NOTES:   - CHANGE "BSTIPT01" BELOW FOR SCAN CRITERIA
//*-----------------------------------------------------------------
//*
//*******************************************************************
//*  ENDEVOR JCL STATEMENTS
//*******************************************************************
//NDVRBAT  EXEC PGM=NDVRC1,DYNAMNBR=1500,REGION=4096K,
//  PARM='C1BM3000'
//STEPLIB  DD DSN=OS.ENDEVOR.USERLIB.EE,DISP=SHR
//SSN$NDVR DD DUMMY
//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=*
//C1PRINT  DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171)
//SYSABEND DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//BSTIPT01 DD *
LIST ELE 'A*' THRU 'Z*'
  FROM ENVIRONMENT 'PROD' SYSTEM 'PAYROLL' SUBSYSTEM 'TAXES'
    TYPE 'PROC' STAGE 'P'
  TO SYSOUT
  OPTIONS SHOWING TEXT
  WHERE TEXT EQ
'FIELD-1'
    COLUMNS 008 072
 .
//


=> Multiple field search example:

  WHERE TEXT ((EQ ‘FIELD-1’
    COLUMNS 008 072)
OR (EQ ‘FIELD-2’
    COLUMNS 008 072)
OR (EQ ‘FIELD-3’
    COLUMNS 008 072)
)
Back to top
View user's profile Send private message
hiravibk
Warnings : 1

Active User


Joined: 14 Dec 2008
Posts: 103
Location: India

PostPosted: Mon Apr 22, 2013 11:09 pm    Post subject: Identifying cobol recompiles in Endevor
Reply with quote

Option 4 in ISPF does not seem to be working. I am getting the below error:

Code:
******************************************************************************
* ISPD014                                                                    *
*                                                                            *
* Data set not cataloged                                                     *
* 'SYS1.REXX.SFANPENU' was not found in catalog.                             *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
* Current dialog statement:                                                  *
* LIBDEF ISPPLIB DATASET ID( 'SYS1.REXX.SFANPENU' 'SYS1.CBC.SCBCPNL')        *
*                                                                            *
* Enter HELP command for further information regarding this error.           *
* Press ENTER key to terminate the dialog.                                   *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1775
Location: Bloomington, IL

PostPosted: Mon Apr 22, 2013 11:52 pm    Post subject: Re: Identifying cobol recompiles in Endevor
Reply with quote

hiravibk wrote:
Option 4 in ISPF does not seem to be working. I am getting the below error:

Code:
******************************************************************************
* ISPD014                                                                    *
*                                                                            *
* Data set not cataloged                                                     *
* 'SYS1.REXX.SFANPENU' was not found in catalog.                             *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
* Current dialog statement:                                                  *
* LIBDEF ISPPLIB DATASET ID( 'SYS1.REXX.SFANPENU' 'SYS1.CBC.SCBCPNL')        *
*                                                                            *
* Enter HELP command for further information regarding this error.           *
* Press ENTER key to terminate the dialog.                                   *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *

So you'll want to talk to your in-house support groups about why this menu is incorrect, yes?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts ALPHABETIC check in COBOL vidyaa COBOL Programming 8 Thu Aug 17, 2017 7:13 pm
No new posts XML Parse for COBOL 5.2 Bhanu Praveen COBOL Programming 1 Sat Jul 08, 2017 8:58 pm
No new posts Dynamic output file creation in cobol... smileheal COBOL Programming 7 Thu Jun 15, 2017 10:53 pm
No new posts Search utility(3.14) using JCl and Cobol RKS3 COBOL Programming 12 Sat Jun 10, 2017 10:24 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us