IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Point & shoot panel using rex


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
John Alexander1

New User


Joined: 22 Sep 2009
Posts: 7
Location: Sydney Australia

PostPosted: Thu Sep 24, 2009 7:07 am
Reply with quote

Hi
I am trying to setup a point & shoot panel or panel menu that will call
a rex program when the cursor is placed on the point & shoot field , I am
not sure if this is possible, the ISPF manual does not say it can not be
done, but I can not find any examples or write ups on it.
If you have been able to do this, then i would be grateful if you would
share the panel syntax.

Many thanks in advance
john
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales

PostPosted: Thu Sep 24, 2009 11:56 am
Reply with quote

I am pretty certain that this has been discussed at one time on the forum.

Good luck with the search as I for one can't recall a single keyword used in that topic
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Thu Sep 24, 2009 12:00 pm
Reply with quote

just look at one of the ISPF panels (ISR.PRIM) and clone....
Back to top
View user's profile Send private message
John Alexander1

New User


Joined: 22 Sep 2009
Posts: 7
Location: Sydney Australia

PostPosted: Thu Sep 24, 2009 12:39 pm
Reply with quote

Many thanks for taking time to reply.

I did search the archives on a few keywords, but will have to do a more thorough search.


Regards
john
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Thu Sep 24, 2009 7:35 pm
Reply with quote

The Primary Menu can be customized by each user to add a user-created list of point and shoot tasks. It replaces the Calendar or whatever you have in the User area in upper right section of the menu.

You assign the task (REXX, CLIST or PGM) to be started when user puts the cursor there and hits ENTER.

Look in the ISPF UsersGuide Vol II, Chapter 1 for info.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2594
Location: Silicon Valley

PostPosted: Thu Sep 24, 2009 9:22 pm
Reply with quote

Quote:
just look at one of the ISPF panels (ISR.PRIM) and clone....

I agree ISR@PRIM would be a good example. But it is still non-trivial to do. I suggest also to read the 'Defining the point-and-shoot' section in the ISPF Dialog Developers Guide and Reference.

With regard to calling a rexx program... the point and shoot is merely a way to make a field selection. For example, if you have a menu with three choices, where the user has to type 1, 2, or 3, then the point and shoot simplifies it by providing the numeric value in the correct field. To the rest of the application, it is as if the user had typed the number and pressed the Enter key.

So if you have the capability in your dialog to call a rexx program, you can improve it by adding a point and shoot capability. So my suggestion is to get the call to rexx working first.

You might also get by by using the .CURSOR function in the panel. It will tell you what field the cursor was in.
Back to top
View user's profile Send private message
RazVorox

New User


Joined: 19 Oct 2022
Posts: 32
Location: Israel

PostPosted: Mon Dec 04, 2023 8:33 pm
Reply with quote

14 years later, and i still cant find a decent pnts example..
guess I'll have to post one myself or something once i get it,
coz between the IBM terrible manual and that one single example,
I'm really having a hard time..
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 734
Location: Denmark

PostPosted: Tue Dec 05, 2023 1:48 am
Reply with quote

14 years, perhaps you should have opened a new topic.
Anyway, it can certainly be done, and pretty simple even, using the power of panel REXX as shown in this sample:
Code:
)ATTR                                                     
 + type(text) color(green) skip(on)                       
 ! type(text) color(turq ) skip(on)                       
 % type(text) color(white) skip(on)                       
 # type(input ) color(turq  ) hilite(uscore) caps(on)     
 @ type(input ) color(turq  ) hilite(uscore) caps(off)     
)Body expand(\\)                                           
%\ \Test REXX Point-and-Shoot handler for selection\ \+   
%Cmd =>_zcmd \ \                                           
+                                                         
+                                                         
%Select                                                   
                                                           
 % 1 !View        + Display source data or listings       
 % 2 !Edit        + Create or change source data           
 % 3 !Utilities   + Perform utility functions             
                                                           
)Init                                                     
)Proc                                                     
*REXX(*,zscreeni,zscreenc,zscreenw)                       
 scrw = 80                                                 
 scrl = (zscreenc%scrw)                                   
 if scrl>0 then do                                         
   sel=word(strip(substr(zscreeni,scrl*scrw,scrw-2)),1)   
   if datatype(sel)='NUM' then zcmd=word(sel,1)           
 end                                                       
*ENDREXX                                                   
 &zq   = trunc(&zcmd,'.')                                 
 &zsel = trans( &zq                                       
                0,'PANEL(ISPOPTA)'                         
                1,'PGM(ISRBRO) PARM(ISRBRO01)'             
                2,'PGM(ISREDIT) PARM(P,ISREDM01)'         
                3,'PANEL(ISRUTIL)'                         
              ' ',' '                                     
                *,'?')                                     
)End                                                       
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2594
Location: Silicon Valley

PostPosted: Tue Dec 05, 2023 2:56 am
Reply with quote

re: " that one single example"

It is not clear if you refer to ISR@PRIM as the example...

I found this example in the ISPF Dialog Developer's Guide and
Reference, but IMHO the manual does not provide a good description of what it is supposed to do.

Code:
)PANEL
)ATTR
 $ TYPE(PIN)
 } TYPE(PS)
 + TYPE(NT)
 | AREA(SCRL) EXTEND(ON)
 ! TYPE(OUTPUT) PAS(ON) COLOR(RED)
 * TYPE(OUTPUT) PAS(ON) COLOR(BLUE)
 @ TYPE(TEXT) INTENS(LOW) COLOR(RED) PAD(NULLS)
 ø TYPE(TEXT) INTENS(LOW) COLOR(BLUE) PAD(NULLS)
)BODY WINDOW(60,23)
$
%COMMAND ===>_ZCMD
$
$ Press }DEFAULTS$to reinstate defaults
$
+
|S1 |
)AREA S1
+ +
+ +
+ øBLUE  . . . .*BLUE1 +
+ @RED . . . . .!RED1 +
)INIT
 .CURSOR = blue1
 &blue1 = ' '
)PROC
 REFRESH(*)
)PNTS
 FIELD(BLUE1) VAR(RED1) VAL(RED)
 FIELD(ZPS00001) VAR(BLUE1) VAL(DEFAULT)
)END


Though, in my opinion, it is also not a simple enough example. It shows two different definitions of point and shoot fields. The panel instruction has text defined as TYPE(PS) and an output field in the panel uses the PAS(ON) attribute. That is, you can click on the word 'defaults' or click on the 'blue' input field.
Back to top
View user's profile Send private message
RazVorox

New User


Joined: 19 Oct 2022
Posts: 32
Location: Israel

PostPosted: Tue Dec 05, 2023 11:17 am
Reply with quote

I was, actually, talking about the ispf manual example.
its all nice and dandy, but has no explanation.

I guess that guys that's been around for some time, got used to the way IBM does their info sharing and manuals and what-not.

As an experienced but "open" guy, whos takling the documentation, history, and MF paradigm for the first time, those methods seem.. somewhat cumbersome.

Like grouping commands by the index, or by the letter, and not by concise topic or purpose.

I guess it's all about getting used to it.
Translating from one paradigm, to another.
Thats the key word here - paradigm shift.

Willy is right. I'll open a new topic.
write a short tut, just to sort things in my head.

I will also just mention the one other example that I found,
that actually hellped me, in stackoverflow - "panel doesnt execute )PNTS Sections". for whomever comes across it.

Thanx guys.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2594
Location: Silicon Valley

PostPosted: Tue Dec 05, 2023 12:35 pm
Reply with quote

re: "talking about the ispf manual example"

FYI. There are several manuals and numerous examples. <irony> In complaining about the manuals not being concise, you also were vague in your comment.</irony>

------
The ISPF Dialog Developer's Guide and Reference, SC19-3619-30, has a section for "How to send your comments to IBM". Earlier today, I sent an email asking for improvements on the description of figure 60, which shows the point and shoot usage.

I also do not particularly like the manuals. I have sent numerous "reader's comments" to IBM over the years. They usually are fairly responsive. Though, I did have one instance where an assembler program example abended and was told that "it was only an example". I had to escalate that to get a better response.
Back to top
View user's profile Send private message
RazVorox

New User


Joined: 19 Oct 2022
Posts: 32
Location: Israel

PostPosted: Tue Dec 05, 2023 3:36 pm
Reply with quote

Dude.. srsly.

If i don't know what exists, what I'm looking for,
and if i cant find it on google, or any form of a-to-z tut,
than its not irony. That's just frustrating.

Thought of explaining myself,
but I just don't see the point.

TL;DR - on ANY system/IDE in the open, in under a month,
you are able to do stuff. It takes under a day, to find a multitude (!)
of tuts, ppl, community, and whatnot.
And they're all willing and welcoming.
They take pride in their community,
and try to grow, and help one-another.

MF has a 50 yo history, dominated by ppl that mostly send you to RTFM.
That is not an answer.
(I'm NOT talking about you specifically, just to clarify.)
In most cases, I don't even know what manuals are out there.
tso, ispf, sdsf, rexx, jobs, jcl.. and you need to grasp them all,
(insert pokemon catch-em-all pun here)
just to hit "hello world" panel,
and that's BEFORE you realize that every sysplex and location,
has its own.. definitions, commands, and.. stuff.

So.. no.
Not irony.
Frustration.

A cold, un-welcoming, harsh, resource poor, closed community,
mostly held together by secret guarding boomers,
In an age of global info-sharing,
gen-z, millennials, and other snowflakes.

Almost 2 years around here, and still feels that way.

But its cool.
I'll be the change, I want to see in others.

Posted a funny-punny POS panel tut for dummies.
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2141
Location: USA

PostPosted: Tue Dec 05, 2023 6:31 pm
Reply with quote

RazVorox wrote:
MF has a 50 yo history, dominated by ppl that mostly send you to RTFM.
That is not an answer.

Not exactly.

Sending to RTFM usually follows the questions in this style:
Quote:
I have the requirement to calculate the value of 2+2 using JCL and VSAM.
Please, give me any hint!

In this case "any hint" is always equivalent to "please, write the code to perform my task from start to finish, and send it here"

AFAIR, no RTFM is usually mentioned when the TS obviously has tried to do the initial work, but just faced a sort of misunderstanding.
Back to top
View user's profile Send private message
RazVorox

New User


Joined: 19 Oct 2022
Posts: 32
Location: Israel

PostPosted: Tue Dec 05, 2023 7:11 pm
Reply with quote

Thats exactly my point.

How can you face misunderstanding,
when you don't even know what you're looking for?.

Not all. again.
You, Pedro, Willy, and a few others where great help,
to me. specifically.
But you are not the majority.
And you don't set the overall tone.
and the tone is what community is all about..

don't assume he wants the answer.
assume he has no idea what vsam is, or how to write jcl.
maybe he learned Cobol, and hit the mainframe without the background of batch.vs.online, or he's an sql guy that got a request from the boss. or perhaps, like many others - he learns from clear, explained, code examples,
which are close to none existent, and very specific.

I wouldn't bust you RTFM if you'd ask me -
"how do I RACF my user?"
I'd try to explain the concept behind security architecture, maybe hint you to the SAF, and the on-chip architecture,
perhaps try and make the connection to SMF..
In any case, i wouldn't -
"that is not a thing. try again and explain what you want."
how can you explain something you don't know?
I'd try to help. not to show you how stupid you are,
by leveraging how smart I am.
(even though technically - there isn't such a thing.)

and you know what,
if you would ask for something simple like
a "2+2" rexx, I'd give you the code, with a short
explanation, and how to EXEC it,
and I'de explain how to jobcard it,
and point you to the 3 ways, and than to how to find that job. and I would use these words.
not sdsf s;st batch job rtfm ispf tso acronyms.

and if i dont feel like it,
I would rather say nothing, than -
"You're stupid, you don't know anything."
He already knows that.
Thats why he's here.

P.S.
Imagine going to the doc, saying your knee hurts,
and he starts making fun of you, saying -
"Thats not a thing "me knee hurt", come back when
you know whats your problem. oh. and also - here is the entire body encyclopedia pdf. go RTFM."
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 734
Location: Denmark

PostPosted: Tue Dec 05, 2023 7:17 pm
Reply with quote

Agree wholeheartedly. I certainly cannot remember a single instance in my rather long career that someone was helped by being told that s/he was stupid.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2594
Location: Silicon Valley

PostPosted: Tue Dec 05, 2023 7:49 pm
Reply with quote

My comment about irony was specifically about this statement:
"between the IBM terrible manual and that one single example"

IMHO, in that situation you should have provided concise information with the title and publication number as well as the page that you referenced so that we can all look at it and maybe provide advice.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 734
Location: Denmark

PostPosted: Wed Dec 06, 2023 12:54 am
Reply with quote

Finding the proper manual can be, as you say, a challenge. Try this link: zossearch.living-mainframe.de (z/OS Manual Search)
Back to top
View user's profile Send private message
RazVorox

New User


Joined: 19 Oct 2022
Posts: 32
Location: Israel

PostPosted: Wed Dec 06, 2023 1:04 pm
Reply with quote

Pedro - You are correct.
That is my bad.
I -DID- should have been more specific.
Especially considering the circumstances.

My frustration is general,
and in no way directed towards you, individually.
On the contrary - You have helped me before when others were jerks.

If it came across as personal, in any way
- my sincere and honest apologies,
it was meant as a rant to a friend, not a foe.


as for you, Willy -

~OMG~ 😱😱😱😱😱

What is this miraculous beauty ?!?!??
Its like the IBM doc lib and openAI had a baby !!!

Wait.. 😏
Thats exactly what this is.. isn't it ?...

Damn.
Thats a bit of a game changer for newbs

THNX !!!

Bottom line, I owe you guys a beer. or steak.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Preserve changes to ISPF Panel Variables TSO/ISPF 5
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts Point and Shoot )PTNS TSO/ISPF 0
No new posts Call program, directly from panel CLIST & REXX 9
No new posts A directory in the pathname was not f... ABENDS & Debugging 0
Search our Forums:

Back to Top