| View previous topic :: View next topic |
| Author |
Message |
srinivasan_srisailan
Beginner
Joined: 18 May 2004
Posts: 11
Topics: 3
|
 Posted: Fri May 28, 2004 8:57 pm Post subject: REXX / Librarian |
 |
|
I understand that ELIPS Librarian Master is not a PDS. Can REXX be used to access ELIPS Librarian members in the same way as PDS Members are accessed? If so, please provide the details of the same.
Regards,
Srinivasan |
|
| Back to top |
|
 |
Mervyn
Moderator
Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
|
| Posted: Sat May 29, 2004 2:01 pm Post subject: |
|
|
If you know the name of the member you want to access, then you can read it the same as any other file using SUBSYS=LAM, e.g.:
| Code: | //INFILE DD DSN=YOUR.PDS(BLAHBLAH),DISP=SHR,SUBSYS=LAM
|
_________________
The day you stop learning the dinosaur becomes extinct |
|
| Back to top |
|
|
srinivasan_srisailan
Beginner
Joined: 18 May 2004
Posts: 11
Topics: 3
|
| Posted: Sat May 29, 2004 2:55 pm Post subject: |
|
|
Hi Mervyn,
The probem occurs when I try the following:
"alloc dd(infile) dsn('MY.LIBRARY(SAMPLE)') shr reuse"
"execio * diskr infile (input. finis"
Here MY.LIBRARY is an ELIPS library.
The following error is obtained:
IRX0553E The input or output file OUT must be allocated to a sequential data set, or single member of a partitioned data set.
How can I use the above command for ELIPS library members?
Cheers,
Srini |
|
| Back to top |
|
|
Mervyn
Moderator
Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
|
| Posted: Sun May 30, 2004 12:45 pm Post subject: |
|
|
Srini, the Librarian manual contains this useful snippet:
| Quote: | | The TSO ALLOCATE command does not currently support the SUBSYS parameter, therefore, LIB/AM cannot be used with the TSO ALLOCATE command. Use a UCR program, LAMALLOC, instead. |
Google doesn't help too much with UCR or LAMALLOC, but maybe another member knows something about this.
Try running your Rexx program in batch, using a DD for INFILE with SUBSYS=LAM as I first suggested.
_________________
The day you stop learning the dinosaur becomes extinct |
|
| Back to top |
|
|
Mervyn
Moderator
Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
|
| Posted: Sun May 30, 2004 1:14 pm Post subject: |
|
|
OK, I've done a little more digging. "UCR" stands for "User Contributed Routine", and a bunch of these routines are included on the Librarian distribution library. One of them is called "LAMTSO" (not "LAMALLOC") and works like this:
| Quote: |
3.9 LAMTSO
Module Name: LAMTSO
Language: Assembler
Description: LAMTSO is a sample Assembler program that allows online use of LIB/AM under TSO. You cannot currently run LIB/AM online because the TSO ALLOC command does not allow specification of a subsystem. The solution is to pre-allocate the LIB/AM files by issuing an SVC99 from in a program like LAMTSO. The XCTL macro runs the program that uses the LIB/AM files. Other required files might be allocated from in the LAMTSO program, from a CLIST that calls LAMTSO, or from the TSO session.
Installation: The UCR target library member INSTUCR contains sample JCL to install LAMTSO. Modify the following statements in the member to correctly reflect your environment:
DSN of the UCR target library (CAI.CLJ43UCR).
DSN of your systems macro library (SYS1.MACLIB).
DSN of the CA-Librarian target macro library (CAI.CAIMAC).
DSN of the CA-Librarian target load library (CAI.CAILIB).
DSN of your load library to where this UCR is link edited (YOUR.EXEC.LIB).
Specify the link-edit attributes of: 'XREF,LIST,NORENT'
Specify the name of the UCR routine, LAMTSO.
Execution: If you were running IEBGENER using TSO online, you might issue the following TSO commands to allocate non-LIB/AM files and to call LAMTSO for the allocation of a LIB/AM file:
ALLOC FILE(SYSIN) DUMMY
ALLOC FILE (SYSUT2) DS('PDS(MEMBER)')
ALLOC FILE (SYSPRINT) DS (*)
CALL 'your.load.library(LAMTSO)' 'dsn(member)'
The dsn(member) parameter is required. It identifies a CA-Librarian data set and member. Use a fully qualified data set name. LAMTSO pre-allocates it as SYSUT1 for IEBGENER and then runs the IEBGENER using the XCTL macro.
|
The example doesn't look quite right to me. I don't know where LAMTSO gets the DD name from. Maybe you could experiment a little? It would also be a very good idea to talk to your systems programmers. They generally handle installations, after all.
The documentation above comes from the CA-Librarian 4.3 Systems Services Guide.
_________________
The day you stop learning the dinosaur becomes extinct |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
