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
 
Extract CCID of endevor elements using SCL

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

New User


Joined: 09 Nov 2006
Posts: 2

PostPosted: Wed Nov 11, 2009 4:07 pm    Post subject: Extract CCID of endevor elements using SCL
Reply with quote

Hi,

I want to write a SCL that can display the CCID, userid, current date and generate date of an endevor element.

This is the SCL I used:
LIST ELEMENT '*'
FROM ENVIRONMENT 'PROD'
SYSTEM 'ABC'
SUBSYSTEM 'ABCDEF'
TYPE '*'
STAGE '6' .

But this SCL is only returning me the element name and version number.
Is it possible for me to extract the other details like CCID, current date and generate date as well.

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

kgrimes

New User


Joined: 28 Sep 2009
Posts: 22
Location: Columbia, SC

PostPosted: Wed Nov 11, 2009 10:02 pm    Post subject: Reply to: Extract CCID of endevor elements using SCL
Reply with quote

Hi nishmija,

There are several ways to get the information that you are looking for. Two of the best ways are the Endevor CSV (Comma Separated Value) Utility and the Endevor List Element API.

You could use the Endevor CSV Utility to create a file in Comma Separated Value format that you could download to a PC and open with Microsoft Excel (or any other program that can read a CSV file). Then you can filter, sort, print, etc.

Another easier and quicker way to get the information is from the Endevor List Element API. Endevor already comes with some fully functional sample API programs including a program named ENTBJAPI that allows you to execute inventory function calls based on control cards. Look in the Endevor JCLLIB for a job called BC1JAAPI or ask your Endevor Administrator for help in setting up the JCL and control cards for this batch job.

Code:
//jobname JOB (acct info),'name',CLASS=x                           
//*
//*-------------------------------------------------------------------*
//*                                                                   *
//* NAME: BC1JAAPI                                                    *
//*                                                                   *
//*    PURPOSE  - EXECUTE ENDEVOR API PROGRAM: ENTBJAPI               *
//*                                                                   *
//*-------------------------------------------------------------------*
//STEP01   EXEC PGM=NDVRC1,PARM='ENTBJAPI',REGION=4096K
//STEPLIB  DD  DISP=SHR,DSN=your.user.authlib
//         DD  DISP=SHR,DSN=your.authlib
//CONLIB   DD  DISP=SHR,DSN=your.conlib
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//BSTERR   DD  SYSOUT=*
//BSTAPI   DD  SYSOUT=*
//SYMDUMP  DD  DUMMY
//SYSUDUMP DD  SYSOUT=*
//MSG3FILE DD  SYSOUT=*,DCB=(RECFM=FB,LRECL=133,BLKSIZE=13300)
//EXT1ELM  DD  DSN=your.output.file,DISP=(NEW,PASS),
//             UNIT=SRTDA,SPACE=(TRK,(5,5)),
//             DCB=(RECFM=VB,LRECL=2048,BLKSIZE=22800)
//SYSIN    DD  *
* RECORD ID IS IN COLUMNS 1-5
*
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
*****  AACTL = CONTROL STRUCTURE INFORMATION
*    V - COLUMN 6 = SHUTDOWN FLAG STRUCTURE
*     VVVVVVVV - COLUMN 7-14 IS THE MSG FILE DDNAME
*             VVVVVVVV - COLUMN 15-22 OUTPUT DATA FILE DDNAME
*
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
* FOR MANY REQUESTS, THE FOLLOWING SETTINGS ARE APPROPRIATE
*    V - COLUMN 6 = PATH SETTING
*      = ' ' FOR LOGICAL
*      = 'L' FOR LOGICAL
*      = 'P' FOR PHYSICAL
*     V - COLUMN 7 = RETURN SETTING
*       = ' ' FOR FIRST FOUND
*       = 'F' FOR FIRST FOUND
*       = 'A' FOR ALL FOUND
*      V - COLUMN 8 = SEARCH SETTING
*       = ' ' FOR FIRST
*       = 'A' FOR ALL
*       = 'B' FOR BETWEEN
*       = 'E' FOR NEXT
*       = 'N' FOR NO
*       = 'R' FOR RANGE
*       V - COLUMN 9 = UNUSED
*
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
***** ALELM = LIST ELEMENT STRUCTURE INFORMATION
*    V - COLUMN 6 = PATH SETTING
*     V - COLUMN 7 = RETURN SETTING
*      V - COLUMN 8 = SEARCH SETTING
*       V - COLUMN 9 = UNUSED
*        VVVVVVVV - COLUMN 10-17 ENVIRONMENT NAME
*                V - COLUMN 18 = STAGE ID
*                 VVVVVVVV - COLUMN 19-26 SYSTEM NAME
*                         VVVVVVVV - COLUMN 27-34 SUBSYSTEM NAME
*    COLUMN 35-44 = ELEMENT NAME  VVVVVVVVVV
*    COLUMN 45-52 = TYPE NAME               VVVVVVVV
*    COLUMN 53-60 = TO-ENV NAME                     VVVVVVVV
*    COLUMN 61    = TO-STAGE ID                             V
*    COLUMN 62-71 = THRU-ELEMENT NAME                        VVVVVVVVVV
* NOTE: IF BETWEEN/RANGE SETTINGS ARE USED, YOU NEED TO SPECIFY
*       TO-ENV AND TO-STAGE, OTHERWISE LEAVE BLANK.
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
*
AACTL MSG3FILEEXT1ELM                                                   
ALELMLFN PROD    6ABC     ABCDEF  *         *       * *                 
RUN                                                                     
* LAST CALL, ENSURE THAT THE API SERVER IS SHUTDOWN.
AACTLY                                                                 
RUN                                                                     
QUIT                                                                   
//*


Regards,
Kevin
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
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 Extract Data till prev hour balaji81_k DB2 16 Fri Aug 25, 2017 9:25 pm
No new posts What is the Extract Function in JCL dharmaraok JCL & VSAM 3 Wed Jun 14, 2017 9:12 am
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
No new posts Group elements using ICETOOL Learncoholic DFSORT/ICETOOL 2 Fri Apr 14, 2017 11:01 am

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