View previous topic :: View next topic
|
Author |
Message |
Ankit Kumar Gupta
New User
Joined: 08 Jan 2011 Posts: 16 Location: India
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
the only people who can tell are those who customized Your endevor environment! |
|
Back to top |
|
|
Kjeld
Active User
Joined: 15 Dec 2009 Posts: 365 Location: Denmark
|
|
|
|
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 |
|
|
Ankit Kumar Gupta
New User
Joined: 08 Jan 2011 Posts: 16 Location: India
|
|
|
|
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 |
|
|
Kjeld
Active User
Joined: 15 Dec 2009 Posts: 365 Location: Denmark
|
|
|
|
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 |
|
Back to top |
|
|
Ankit Kumar Gupta
New User
Joined: 08 Jan 2011 Posts: 16 Location: India
|
|
|
|
Kjeld,
Thanks, that was very useful information/idea for me. |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
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 |
|
|
Ankit Kumar Gupta
New User
Joined: 08 Jan 2011 Posts: 16 Location: India
|
|
|
|
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 |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
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 |
|
|
|