SHOWTIOT - display TIOT entries

[Gilbert Saint-Flour]

Hello:

Below, please find the SHOWTIOT exec which display TIOT entries and uses the
SWAREA routine to support 31-bit SWA addresses. SWAREQ is available here:
http://gsf-soft.com/Freeware/

The TIOT entries are something you get in ISPF with the DDLIST command, but
still, SHOWTIOT is useful. And, of course, it shouldn't too difficult to
convert it to COBOL or PL/I.
--
 Gilbert Saint-Flour
 GSF Software
 http://gsf-soft.com/
mailto:***@pobox.com


tcb = C2D(STORAGE(21C,4)) /* TCB PSATOLD */
tiot= C2D(STORAGE(D2X(tcb+12),4)) /* TIOT TCBTIO */
n=0
NUMERIC DIGITS 10
Do Until sva='000000'X
sva = STORAGE(D2X(tiot+24+12),3) /* First JFCB TIOEJFCB */
jfcb=SWAREQ(sva) /* convert SVA to 31-bit addr */
ddn=STORAGE(D2X(tiot+24+4),8) /* DDname IOCBDSNM */
If jfcb>16 & Left(ddn,1)>'00'x Then Do
dsn=STORAGE(D2X(jfcb),44) /* dsname JFCBDSNM */
vol=STORAGE(D2X(jfcb+118),6) /* volser JFCBVOLS */
SAY 'sva='C2X(sva) 'ddn='ddn 'jfcb='D2X(jfcb) 'dsn='dsn 'vol='vol
End
tiot=tiot+20
n=n+1; if n=99 then exit /* prevent endless loop */
END

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX

[Fogg, George C]

Gilbert, I didn't find SWAREA or SWAREQ at your web site.


George Fogg
Boeing Company
z/OS Enterprise Server Design/Build
MS: 7M-RE PH: [phone]
email: ***@boeing.com

-----Original Message-----
From: Gilbert Saint-Flour [mailto:***@YAHOO.COM]
Sent: Wednesday, July 29, 2009 7:43 AM
To: TSO-***@VM.MARIST.EDU
Subject: SHOWTIOT - display TIOT entries

Hello:

Below, please find the SHOWTIOT exec which display TIOT entries and uses the SWAREA routine to support 31-bit SWA addresses. SWAREQ is available here:
http://gsf-soft.com/Freeware/

The TIOT entries are something you get in ISPF with the DDLIST command, but still, SHOWTIOT is useful. And, of course, it shouldn't too difficult to convert it to COBOL or PL/I.
--
 Gilbert Saint-Flour
 GSF Software
 http://gsf-soft.com/
mailto:***@pobox.com


tcb = C2D(STORAGE(21C,4)) /* TCB PSATOLD */
tiot= C2D(STORAGE(D2X(tcb+12),4)) /* TIOT TCBTIO */
n=0
NUMERIC DIGITS 10
Do Until sva='000000'X
sva = STORAGE(D2X(tiot+24+12),3) /* First JFCB TIOEJFCB */
jfcb=SWAREQ(sva) /* convert SVA to 31-bit addr */
ddn=STORAGE(D2X(tiot+24+4),8) /* DDname IOCBDSNM */
If jfcb>16 & Left(ddn,1)>'00'x Then Do
dsn=STORAGE(D2X(jfcb),44) /* dsname JFCBDSNM */
vol=STORAGE(D2X(jfcb+118),6) /* volser JFCBVOLS */
SAY 'sva='C2X(sva) 'ddn='ddn 'jfcb='D2X(jfcb) 'dsn='dsn 'vol='vol
End
tiot=tiot+20
n=n+1; if n=99 then exit /* prevent endless loop */
END

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX

[Gilbert Saint-Flour]

Post by Fogg, George C
Gilbert, I didn't find SWAREA or SWAREQ at your web site.

SWAREQ is one of the members contained in file183.pds which is available here:
http://gsf-soft.com/Freeware/

As for SWAREA, it's a typo. Sorrree. Taïpos are maï spesheltea ;)

The TSOFS (TSO Full-Screen) command is the best way to invoke SHOWTIOT
under ISPF. TSOFS traps the output from a REXX EXEC and displays it using the
ISPF BROWSE service (BRIF). When you enter the V command, it switches to
VIEW (VIIF) and you can enter CUT, ROUTE, or another command.

If you do not currently use TSOFS, I suggest you to look at the FASTPATH
program which is available in file183.pds and documented here:
http://gsf-soft.com/Freeware/FASTPATH.shtml

I use FASTPATH commands 50 times per hour, perhaps more. The ones I know
I use the most frequently are BR ED VI WP SD UT TSOFS FSHELP FSPASTE EXEC
MACLIB SHOWMVS SHOWJPAQ PARMLIB ICS .......

If you don't have much authority in TSO/ISPF, look at the USERCMDS and FILE183
members which make it easier to install FASTPATH-related commands.