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
 
Accessing ELIPS thru CLIST or ELIPS

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

New User


Joined: 08 Jun 2006
Posts: 22

PostPosted: Mon Aug 14, 2006 8:50 pm    Post subject: Accessing ELIPS thru CLIST or ELIPS
Reply with quote

Accessing ELIPS( Extended LIBRARIAN Interactive Productivity ) thru CLIST , i need to PDS from ELIPS to my own PDS like " userid.test1.test1", how can i open any PDS which in on ELIPS in brows mode thru CLIST or REXX
Back to top
View user's profile Send private message

cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Mon Aug 14, 2006 11:30 pm    Post subject: Re: Accessing ELIPS thru CLIST or ELIPS
Reply with quote

I have a shortcut REXX program for all the PDS libraries I access. Here is the code for one of them:

Code:

/*************************REXX***********/
PARSE UPPER ARG JOBFIND                                               
DSN1= "('PDS.DATASET.HERE')"                                         
IF JOBFIND ?= "" THEN SIGNAL FINDJOB                                 
ISPEXEC "EDIT DATASET"||DSN1                                         
EXIT                                                                 
FINDJOB:                                                             
   DSN1= "('PDS.DATASET.HERE("||JOBFIND||")')"                       
   ISPEXEC "EDIT DATASET"||DSN1                                       
   EXIT                                                               
END                                                                   


You must value PDS.DATASET.HERE with your PDS name. You must store this REXX program in your REXX PDS library with a name (MYPDS) or whatever.

Entering on the command line:

TSO MYPDS - takes you to all the members of your PDS
TSO MYPDS MEMNAME - takes you directly to the member called MEMNAME
TSO MYPDS ABC* - displays all members in your PDS starting with ABC*
TSO MYPDS BLANK - if BLANK does not exist, it puts you in a empty member called BLANK

When you back out of your PDS or PDS member, you will be right back within ELIPS browse where you started.
Back to top
View user's profile Send private message
smilingashutosh

New User


Joined: 08 Jun 2006
Posts: 22

PostPosted: Fri Aug 18, 2006 5:13 pm    Post subject: Accessing ELIPS thru CLIST or ELIPS
Reply with quote

thanks for the quick reply actually what i want to do is

1) i m in ISPF panel main screen which comes just after login to tso.from where on typing elips i will get prompted to ELIPS library fromwhere with the option i can brows or edit any pds stored in ELIPS library(like mastfile or production file PDS) and can also copy it to my own pds(like nbk56gf.file.input )
2) what i want is to make a tool in REXX or CLIST which can copy from mastfile to my own PDS(created automatically) with/without the timestamp

plz help me out if you know anything
Back to top
View user's profile Send private message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Fri Aug 18, 2006 7:47 pm    Post subject: Re: Accessing ELIPS thru CLIST or ELIPS
Reply with quote

You could easily write a REXX to copy one member of a PDS to another, however, datasets within ELIPS have a DSORG of DA (direct access). The ELIPS application allows you to access members of a direct access file. I don't think a REXX program has the capacity to read these type of files in order to perform a copy.
Back to top
View user's profile Send private message
smilingashutosh

New User


Joined: 08 Jun 2006
Posts: 22

PostPosted: Sat Aug 19, 2006 6:03 pm    Post subject: Accessing ELIPS thru CLIST or ELIPS
Reply with quote

hi dear,

thanks for the quick reply.
i got some info on this please go thru and see if any help is possible.
Elips can be accessed thru lambaste command or not?

elips is the ca-librarian.
refer to ca homepage for documentation...
ca: computer associates

LAMBASTE DATASET(dataset-name) FILE(dd-name)
[VOLUME(vol-ser)] [UNIT[unit-name]]
PROGRAM(program-name) <PARMS(program-parms)>
<CLOSEFREE> <LAM<lam-parms>>

Required Operands:

DATASET(dataset-name) or DSNAME(dataset-name)

Specifies the DATASET name to allocate. If the dataset-name is fully
qualified, the name must be enclosed in quotes. If the dataset-name is
not in quotes, the dataset-name is qualified with the current TSO
profile prefix.

FILE(dd-name) or DDNAME(dd-name)

Specifies the DDNAME to which the file is allocated.

PROGRAM(program-name)

Is a required parameter that specifies the name of the program to be
executed immediately after successful allocation.

Optional Operands:

VOLUME(vol-ser)

Specifies the volume that contains the dataset. If the dataset is
not cataloged, the VOLUME(vol-ser) parameter is required.

UNIT(unit-name)

Specifies the unit name of the volume. If a unit name is not specified, a
default specification of SYSALLDA is used.

PARMS(program-parms)

Specifies free-form parameters to be passed to the program specified
by program-name. The free-form parameters must follow standard OS
parameter conventions.

CLOSEFREE

Is the equivalent of coding "FREE=CLOSE" in JCL.

If the program specified by program-name opens and closes the LAM file
more than once, do not use CLOSEFREE, or an abend will result. Leaving
out the CLOSEFREE parameter and using the default will always work.

LAM(lam-parms)

Specifies sub-keywords and sub-parameters that activate LAM features.
LAM features supported in the OS JCL have corresponding
sub-keywords that can be entered in their place, as lam-parms, as
follows:

LAM([PSWD(password)] [NOINC] [{VAR│NOVAR}]

[ARC={date│Lx│-y}] [ARCINC={date│Lx│-y}] [ARCALL={date│Lx│-y}])

where:

password
Specifies a four-letter, LIBRARIAN member password consisting of
strictly alphabetic characters.

date
Specifies a date in the form of YYMMDDHHMMSS. An even number of
digits can be omitted from the right. LIB/AM assumes the highest
possible value for omitted digits.

x
Specifies the numeric absolute level of an archived member. The
letter L must preceed the absolute level number.

y
Specifies the numeric relative level of an archived member. A
minus sign (-) must preceed the relative level number.

For more explanation of these LAM sub-keywords, see the CA-LIBRARIAN User
Guide. If you were using TSO online, you could issue the following TSO
commands to list a CA-LIBRARIAN member, for example,
LIBR.DEMO(COBPGM), using IEBGENER:

ALLOC F(SYSIN) DUMMY
ALLOC F(SYSPRINT) DUMMY
ALLOC F(SYSUT2) DS(*)
LAMBASTE F(SYSUT1) DS('LIBR.DEMO(COBPGM)') PGM(IEBGENER)
FREE F(SYSIN SYSPRINT SYSUT2)

Notes:

1. LAMBASTE enforces LAM sub-parameter syntax and ignores a LAM
sub-parameter that is mutually exclusive with another LAM
sub-parameter scanned first.

2. LAMBASTE forces the allocation dataset to be input only. The LRECL is
set to 80, the BLKSIZE to 3120, and the RECFM to 'FB'. These
settings are for LAM use only, and do not change the DCB attributes
of the CA-LIBRARIAN Master file. The program can always reblock
the records.

3. LAMBASTE always frees the specified ddname before allocating it,
there is no need to free it beforehand.

4. LAMBASTE always frees the specified ddname after execution of the
specified program.

5. Dynamic concatenation is currently not supported by LAM, so
concatenation support is not coded in LAMBASTE.

6. LAMBASTE is coded to couple allocation and program invocation in a
single execution of LAMBASTE.

7. If you use the LAMBASTE command in a CLIST, you may want to turn-on
prompting with the "CONTROL PROMPT" statement.

8. The LAMBASTE command supports standard TSO abbreviations of command
syntax. Therefore, DATASET or DSNAME can be abbreviated DS,
FILE or DDNAME can be abbreviated F, and PROGRAM can be
abbreviated PGM.


martin9
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 Calling CLIST through job and REXX Sahasra K CLIST & REXX 19 Tue Aug 01, 2017 10:25 am
No new posts Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am
No new posts Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm
No new posts Accessing first bit of PD value rajatbagga DFSORT/ICETOOL 11 Wed May 03, 2017 6:03 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am

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