| View previous topic :: View next topic |
| Author |
Message |
vmbigot
Beginner
Joined: 17 Jun 2004
Posts: 36
Topics: 14
Location: westminster, california
|
 Posted: Mon Oct 30, 2006 7:01 pm Post subject: tso command listcat output redirection |
 |
|
How do I redirect the output from a LISTCAT ENTRIES (/) ALL command entered in the ISPF 3.4 dataset list panel to a flat file?
_________________
Inside every older man is a young boy asking this question. What the heck happened?!? |
|
| Back to top |
|
 |
semigeezer
Supermod
Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis
|
|
| Back to top |
|
|
vmbigot
Beginner
Joined: 17 Jun 2004
Posts: 36
Topics: 14
Location: westminster, california
|
| Posted: Tue Oct 31, 2006 7:39 pm Post subject: |
|
|
Semigeezer, that is outstanding! I created a little REXX program to perform an IDCAMS LISTCAT command entered against a file in the ISPF 3.4 dataset list. It was suggested that I put the output into a browse panel to allow scrolling, but I couldn't figure out how to trap the output. Your suggestion and supplied link were the pieces that I was missing.
Thanks!!!
_________________
Inside every older man is a young boy asking this question. What the heck happened?!? |
|
| Back to top |
|
|
semigeezer
Supermod
Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis
|
| Posted: Tue Oct 31, 2006 10:34 pm Post subject: |
|
|
glad to help. In a "production" level application, the ddname generation could be much improved so that people using recursive ISPF screens could still use this, but I only use this occasionally so I never made it fool proof. A better, if not perfect method of getting the ddname would be something like: | Code: | Do suffix = 0 to 9999 Until rc = 4
Address ispexec "QBASELIB BTSO" || right(suffix,4,"0") " ID(X)"
End
ddname = "BTSO" || right(suffix,4,"0") |
|
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
