Does anyone have an example of using REXX to do a Listcat in TSO under
option 3.4?  Thank you.

>>>>>>>>>>>>>>>>>> Urspr=FCngliche Nachricht <<<<<<<<<<<<<<<<<<

Am 16.09.04, 13:58:16, schrieb c62ap90@yahoo.com (Gary) zum Thema REXX=20=

Listcat example in TSO 3.4 option?:


> Does anyone have an example of using REXX to do a Listcat in TSO under=

> option 3.4?  Thank you.

Hi

if you want to list the infos enter:

LISTC (/) ALL

if you want to page up and down:

MYCMD (on the line) or MYCMD (/)

	MYCMD must contain:

		parsing of the datasetname
		alloc a tempfile
		do a listcat writing the tempfile
		browse, edit or view the tempfile
		exit

thats all

Einen schoenen Tag
Andreas Lerch

In article <a74756b8.0409160558.6d4a736a@posting.google.com>,
   Gary <c62ap90@yahoo.com> wrote:
> Does anyone have an example of using REXX to do a Listcat in TSO under
> option 3.4?  Thank you.

What do you mean?  LISTC is a TSO command which you could execute from
the commandline anywhere in ispf.  Option 3.4 provides vtoc or catalog
search with wildcarded datasetnames, but doesn't use LISTC to do it.

If you want from within a rexx exec to provide equivalent function to
option 3.4, I think it's possible using certain ispf services - and I
think this has been covered on the tso and ispf mailing lists and/or
the bit/listserv.ibm-main & bit.listserv.ispf-l newsgroups fairly
recently.

-- 
Jeremy C B Nicoll - my opinions are my own.

In <a74756b8.0409160558.6d4a736a@posting.google.com>, on 09/16/2004
   at 06:58 AM, c62ap90@yahoo.com (Gary) said:

>Does anyone have an example of using REXX to do a Listcat in TSO
>under option 3.4?  Thank you.

 /* REXX */
 arg dsn
 listcat ent'('dsn')'

You'll probably get better answers for that type of question on
ISPF-L, TSO-REXX or IBM-MAIN.

-- 
Shmuel (Seymour J.) Metz, SysProg and JOAT  <http://patriot.net/~shmuel>

Unsolicited bulk E-mail subject to legal action.  I reserve the
right to publicly post or ridicule any abusive E-mail.  Reply to
domain Patriot dot net user shmuel+news to contact me.  Do not
reply to spamtrap@library.lspace.org

Option 3.4 isn't a TSO LISTCAT but an ISPF/PDF wrapper around LMDDISP. If
you want to process the result rather than display the list, use LMDINIT,
LMDLIST and LMDFREE. See the ISPF/PDF Reference for details.

"Gary" <c62ap90@yahoo.com> wrote in message
news:a74756b8.0409160558.6d4a736a@posting.google.com...
> Does anyone have an example of using REXX to do a Listcat in TSO under
> option 3.4?  Thank you.

Thanks for all your suggestions but none of them worked for what I was
looking for.  Let's see if I can show you an example of what I am
looking for...
 
In TSO 3.4:
 
DSLIST - Data Sets Matching TSO.VSAM.CLUSTER   Row 1 of 1
Command ===>                              Scroll ===> CSR
                                                        
Command - Enter "/" to select action   Message     Volume
---------------------------------------------------------
????????  TSO.VSAM.CLUSTER                         *VSAM*
*********************** End of Data Set list ************

In the 3.4 example above, I would like to enter a REXX Command located
where the '????????" is and get, for example, a listcat of DSN
TSO.VSAM.CLUSTER.
Currently I run a batch job to get a listcat.
//IDCAMS   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUD   DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN    DD *
   LISTCAT ENTRIES (TSO.VSAM.CLUSTER)  ALL
//

So in the VSAM file example above, I would be looking for EXACTLY the
information a batch Listcat would give me but just in 3.4 to be
displayed.  I know there is a way!  Thanks for any help.

c62ap90@yahoo.com (Gary) wrote in message news:<a74756b8.0409160558.6d4a736a@posting.google.com>...
> Does anyone have an example of using REXX to do a Listcat in TSO under
> option 3.4?  Thank you.

In article <a74756b8.0409210947.764830da@posting.google.com>,
   Gary <c62ap90@yahoo.com> wrote:
> Thanks for all your suggestions but none of them worked for what I was
> looking for.  Let's see if I can show you an example of what I am
> looking for...

type in   abc  where the ??? are, and tso should try to execute a clist
or exec called abc, so make sure you have one in your clist/rexx exec
library (ie SYSPROC or SYSEXEC etc).

Assuming it's in rexx:

/* REXX */

parse args allargs
say allargs
exit

should get you started, to see what parameters are passed to th 'abc'
rexx exec.  I think it's simply dsname and maybe volume?

Alternatively iirc you can type, where the ??? are: 

   LISTC ENT(/)

and that will plug the dsn into a LISTC command.  Try reading the help
panels for option 3.4!

-- 
Jeremy C B Nicoll - my opinions are my own.

In <a74756b8.0409210947.764830da@posting.google.com>, on 09/21/2004
   at 10:47 AM, c62ap90@yahoo.com (Gary) said:

>In the 3.4 example above, I would like to enter a REXX Command
>located where the '????????" is and get, for example, a listcat of
>DSN TSO.VSAM.CLUSTER.

Type LISTC  ENT(/) ALL with a trailing space. You can also type
cmmands on more than one line, and they need not be the same.

-- 
Shmuel (Seymour J.) Metz, SysProg and JOAT  <http://patriot.net/~shmuel>

Unsolicited bulk E-mail subject to legal action.  I reserve the
right to publicly post or ridicule any abusive E-mail.  Reply to
domain Patriot dot net user shmuel+news to contact me.  Do not
reply to spamtrap@library.lspace.org

"Shmuel (Seymour J.) Metz" <spamtrap@library.lspace.org.invalid> wrote in message news:<4151d12e$9$fuzhry+tra$mr2ice@news.patriot.net>...
> In <a74756b8.0409210947.764830da@posting.google.com>, on 09/21/2004
>    at 10:47 AM, c62ap90@yahoo.com (Gary) said:
> 
> >In the 3.4 example above, I would like to enter a REXX Command
> >located where the '????????" is and get, for example, a listcat of
> >DSN TSO.VSAM.CLUSTER.
> 
> Type LISTC  ENT(/) ALL with a trailing space. You can also type
> cmmands on more than one line, and they need not be the same.

I did finally find what I was looking for.  The code for the REXX
Listcat is as follows:
/* REXX */
/*                           */
/* AUTHOR: MARK ZELDEN       */
/*                           */
 /* =================================================== */
 /* LISTCAT LINE COMMAND FOR DSN PANEL OPTION 3.4       */
 /* ALSO AN ISPF COMMAND IN THE ISPF COMMAND TABLE      */
 /* =================================================== */
 /* ADDRESS ISPEXEC "VGET ZDLDSN SHARED"  */
 /* "LISTC ALL ENT("ZDLDSN")"             */
/* TRACE ?I */
arg NAME
address TSO
if NAME = '' then do
  say 'PLEASE ENTER DATASET NAME TO LIST:'
  parse upper pull NAME
end
address ISPEXEC "CONTROL ERRORS RETURN"
ddnm = 'DD'random(1,99999)    /* choose random ddname  */
junk = msg(off)
"ALLOC FILE("ddnm") UNIT(VIO) NEW TRACKS SPACE(5,5) DELETE",
" REUSE LRECL(132) RECFM(F B) BLKSIZE(8976)"
junk = msg(on)
/*                                     */
/*  issue listcat cmd and trap output  */
/*                                     */
junk=outtrap(LINE.)
"LISTC ALL ENT("name")"
retcode = rc
junk=outtrap('off')
/*                                     */
"EXECIO" line.0  "DISKW" ddnm "(STEM LINE. FINIS"
address ISPEXEC "LMINIT DATAID(LIST) DDNAME("ddnm")"
address ISPEXEC "BROWSE DATAID("list")"
address ISPEXEC "LMFREE DATAID("list")"
junk = msg(off)
"FREE FI("ddnm")"
zdlmsg = 'LISTED RC='retcode
address ispexec "VPUT ZDLMSG SHARED"