IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Identifying cobol recompiles in Endevor


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
hiravibk
Warnings : 1

Active User


Joined: 14 Dec 2008
Posts: 107
Location: India

PostPosted: Mon Apr 22, 2013 8:45 pm
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

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Mon Apr 22, 2013 9:46 pm
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
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: 107
Location: India

PostPosted: Mon Apr 22, 2013 11:09 pm
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: 1788
Location: Bloomington, IL

PostPosted: Mon Apr 22, 2013 11:52 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
No new posts Generate random number from range of ... COBOL Programming 3
Search our Forums:

Back to Top