Re: Did you know RRS had ISPF panels?

"Thomas Conley" <pinnacle@xxxxxxxxxxxx> wrote in message news:<013a01c65443$c48db0c0$6401a8c0@xxxxxxxxxxxxxxx>...
----- Original Message -----
From: "Mark Zelden" <mark.zelden@xxxxxxxxxxxx>
Newsgroups: bit.listserv.ibm-main
Sent: Thursday, March 30, 2006 4:14 PM
Subject: Re: Did you know RRS had ISPF panels?


Did you know RRS had panels?

TSO %RRS


PROC 0
ISPEXEC LIBDEF ISPMLIB DATASET ID('SYS1.SBLSMSG0')
ISPEXEC LIBDEF ISPPLIB DATASET ID('SYS1.SBLSPNL0')
ISPEXEC LIBDEF ISPTLIB DATASET ID('SYS1.SBLSKEL0')
ALTLIB ACTIVATE APPLICATION(CLIST) DATASET('SYS1.SBLSCLI0')
ISPEXEC SELECT PANEL(ATRFPCMN) NEWAPPL(RRSP) PASSLIB +
SCRNAME(RRS)
ALTLIB DEACTIVATE APPLICATION(CLIST)
ISPEXEC LIBDEF ISPMLIB
ISPEXEC LIBDEF ISPPLIB
ISPEXEC LIBDEF ISPTLIB


Haven't looked at Tom's Conley's dynamic ISPF "stuff" in a long
time since I use all my own "stuff", but I would think he has
this in there.


Mark is correct, @RRS:

/* rexx */ > /*trace i*/ > /*********************************************************************/ > /* This exec invokes IBM's RRS dialog. */ > /*********************************************************************/ > parse arg ztrail > address tso "ALTLIB ACT APPL(CLIST) DA('SYS1.SBLSCLI0')" > address ispexec "LIBDEF ISPMLIB DATASET ID('SYS1.SBLSMSG0') STACK" > address ispexec "LIBDEF ISPPLIB DATASET ID('SYS1.SBLSPNL0') STACK" > address ispexec "LIBDEF ISPTLIB DATASET ID('SYS1.SBLSTBL0') STACK" > address ispexec "SELECT PANEL(ATRFPCMN) OPT("ztrail") NEWAPPL(RRSP)", > "PASSLIB SCRNAME(RRS)" > address ispexec "LIBDEF ISPMLIB" > address ispe!
xec "LIBDEF ISPPLIB" > address ispexec "LIBDEF ISPTLIB" > address tso "ALTLIB DEACT APPL(CLIST)" >
Regards,
Tom Conley


I read it in the manual during RRS setup.
I added the following to the ISPF command table:
RRS ||0||SELECT PANEL(ATRFPCMN) NEWAPPL(RRSP)||RRS Resource Recovery System.

RRS on the commandline launches the application.

Kees.


**********************************************************************
For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt.
**********************************************************************

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
.