Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Endevor: Need to know the source lib PDS name

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
Ankit Kumar Gupta

New User


Joined: 08 Jan 2011
Posts: 16
Location: India

PostPosted: Sat Jan 22, 2011 12:35 pm    Post subject: Endevor: Need to know the source lib PDS name
Reply with quote

Hi,

we use endevor for JCLs, PROCs, SOURCE. The question is I know where all the PROD, QA, DEV JCLs endevor will store or refers from which PDS but I am not able to find the PDS for the source codes which we see in endevor.

Anybody can tell me where Endevor will put the source pgm or from where it refers the source of PGM....
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Sat Jan 22, 2011 1:32 pm    Post subject: Reply to: Endevor: Need to know the source lib PDS name
Reply with quote

the only people who can tell are those who customized Your endevor environment!
Back to top
View user's profile Send private message
Kjeld

Active User


Joined: 15 Dec 2009
Posts: 365
Location: Denmark

PostPosted: Tue Jan 25, 2011 4:13 pm    Post subject:
Reply with quote

Endevor does not store your source code in PDSs. Like other repository software it use a database to store a base version of your source and all subsequent versions as delta records.

JCL and other noncompiled objects will be generated into PDSs or possibly other libraries suitable for the environment.
Back to top
View user's profile Send private message
Ankit Kumar Gupta

New User


Joined: 08 Jan 2011
Posts: 16
Location: India

PostPosted: Tue Jan 25, 2011 8:16 pm    Post subject:
Reply with quote

Kjeld,

Thanks a lot for the info. I am actually planning to code a rexx which can search some location for the pgm name entered by the user and open the program for the user.

If you think, we can access that database of Endevor indirectly then please explain.

Thanks in advance!
Back to top
View user's profile Send private message
Kjeld

Active User


Joined: 15 Dec 2009
Posts: 365
Location: Denmark

PostPosted: Tue Jan 25, 2011 8:58 pm    Post subject:
Reply with quote

If you want a copy of source code for processing you will have to retrieve source objects out from Endevor into a PDS using a batch Endevor job step, where you can use predefined SCL or dynamically generated SCL statements.

Don't try to access Endevor libraries directly. The format is proprietary to the vendor, the risk of corrupting something is imminent, and you will face enqueing/locking problems with other Endevor operations icon_exclaim.gif
Back to top
View user's profile Send private message
Ankit Kumar Gupta

New User


Joined: 08 Jan 2011
Posts: 16
Location: India

PostPosted: Wed Jan 26, 2011 10:55 pm    Post subject:
Reply with quote

Kjeld,

Thanks, that was very useful information/idea for me.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6967
Location: porcelain throne

PostPosted: Thu Jan 27, 2011 3:07 pm    Post subject:
Reply with quote

when I want a module from endevor without retrieving,
I browse the element (my browse option is set to VIEW),
and invoke the following ISPF edit macro, (which i call vendev)
which will convert the endevor presented element into an 80 column source program,
then I just do a 'CREATE' and place the module in the desired PDS (or PS).

Code:

/* REXX */
/*                                                  */
/* MODIFIES ENDEVOR VIEW LISTING INTO 80 COLUMN     */
/* FORMAT.  SHIFTS THE SOURCE CODE LEFT.            */
/*                                                  */
ADDRESS ISREDIT
/*  TRACE ?R       */
'MACRO'
'NUMBER OFF'
'BOUNDS'
'TOP'
/*                                                     */
/*  THIS IS TOP                                        */
/*                                                     */
    /* REXX */
    ADDRESS ISREDIT
    'MACRO'
    'UP MAX'
    EXIT
/*                                                     */
'FIND "IDENTIFICATION"   FIRST'
IF  RC > 0 THEN
  DO
   SAY 'TELL DICK THAT HIS MACRO DOES NOT WORK'
   SAY 'NO IDENTIFICATION DIVISION STMT'
   SAY 'IF YOUR ARE USING ID DIVISION, CHANGE IT'
   EXIT
'(CURLN,CURCOL) =  CURSOR'
CURLN = CURLN - 1
'CURSOR = (CURLN,CURCOL)'
'DTOP'
/*                                                     */
/*         THIS IS DTOP                                */
/*                                                     */
/*  /* REXX */                                         */
/*  ADDRESS ISREDIT                                    */
/*  "MACRO"                                            */
/*  "DELETE ALL" .ZFIRST .ZCSR                         */
/*  EXIT                                               */
/*                                                     */
'(CURLN) = LINENUM .ZFIRST'
'(LSTLN) = LINENUM .ZLAST'
/*  ADD 1 TO LSTLN FOR FOLLOWING LOOP */
LSTLN  = LSTLN + 1
/*  CURRENTLY, HAVE TO SHIFT 09 TO THE LEFT TO GET PROPER ALLIGNMENT */
NUM_COL_TO_SHIFT =  9
DO WHILE CURLN < LSTLN
    'SHIFT (' CURLN NUM_COL_TO_SHIFT
    CURLN = CURLN + 1
END
'CLEANL'
/*                                                     */
/* THIS IS THE SCRIPT FOR CLEANL                       */
/*                                                     */
/*  /*  REXX  */                                       */
/*  ISREDIT MACRO                                      */
/*  ISREDIT "NUM OFF"                                  */
/*  ISREDIT "BOUNDS 1 80"                              */
/*  ISREDIT "CHG ALL  P'=' ' '  1  6"                  */
/*  ISREDIT "CHG ALL  P'=' ' '  73 80"                 */
/*  EXIT                                               */
/*                                                     */
'RESET'
CURLN = 1
CURCOL = 1
'CURSOR = (CURLN,CURCOL)'
EXIT
Back to top
View user's profile Send private message
Ankit Kumar Gupta

New User


Joined: 08 Jan 2011
Posts: 16
Location: India

PostPosted: Thu Jan 27, 2011 8:12 pm    Post subject:
Reply with quote

dbzTHEdinosauer,

Thanks for sharing the information and code. But requirement is like User is in a JCL's view/edit mode and in one step of that JCL, we have a PGM=HCCC step. Then, if user give VPGM on cmd line and put cursor on PGM name then hit enter there.

The macro should search the PGM and open the dataset for the user. After this, he don't have to go to ENDEVOR and browse the dataset. For this, the point is we need the path for ENDEVOR which is a database as mentioned by 'Kjeld'

He suggested a possible way to access it also.

Anyways thanks both of you :-)
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6967
Location: porcelain throne

PostPosted: Thu Jan 27, 2011 8:18 pm    Post subject:
Reply with quote

our endevor environment has ispf pds's defined to hold elements at different stages. that is an extra and need to extend endevor for that facility.

as a result, we have ispf pds's containing modules, copybooks, loads, and we can use our ispf edit macros and the ispf library services to perform the functions to which you have refered.

without that, the user has to have two sessions, one to look at the jcl,
the other to use the endevor menus to access the source data.
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 -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts CA-Endevor Admin - 3 years minimum vasanthz Mainframe Jobs 0 Tue Apr 04, 2017 5:36 am
No new posts Endevor error C1UU999E during cast Musab Ahmed CA Products 3 Wed Jun 29, 2016 12:41 pm
No new posts SE37 while adding element to endevor kalyan.v CA Products 5 Mon Apr 25, 2016 6:05 pm
This topic is locked: you cannot edit posts or make replies. Locating the source code. Raghur CLIST & REXX 17 Mon Apr 04, 2016 2:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us