Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Modify the value of a extensionvariable in an ISPF-Table
Goto page Previous  1, 2
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 373
Location: Denmark

PostPosted: Wed Nov 21, 2018 7:46 pm    Post subject:
Reply with quote

Sorry, should have mentioned that the REXX is called ZZ, it calls itself to have the correct applid.
Using applid 'ZZZZ' implies profile table ZZZZPROF. I do not use table access commands, as Pedro and others have said elsewhere in this topic you use 'VGET name PROFILE' and 'VPUT name PROFILE' to access profile variables. So in your case, make sure that you have applid EQQA, then you can access the variables that you need.
I strongly suggest that you read up on ISPF variables and application ids in the 'ISPF Dialog Developer's Guide and Reference' manual.
Back to top
View user's profile Send private message

UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Wed Nov 21, 2018 10:22 pm    Post subject:
Reply with quote

Hi Willy,

thanks, that was pointing me in the right direction.

From my "Point-&-Shoot" Rexx, i'm picking up the jobname. Then i execute another Rex via:

ADDRESS ISPEXEC "SELECT PGM(ISPSTRT) PARM(CMD(XX6))"

This one (XX6) looks like your example and is executing OPC.
So far so good.

After getting the EQQA applid in XX6 i can VGET the jobname, modify it with another value and VPUT it in the Profile. Later on in OPC i can see the modified jobname.

So my Problem now is, how to get my jobname-value from the starting rexx, wich uses another applid.

I remember there a three different pools. Shared-Pool, Profile-Pool and another one. And there was a way to transfer a variable from one applid to another. Or that there is a variable pool that could be acessed by different applids.

Hope i could make my jumbled thoughts a Little bit clear.

Hjertelige hilsener & mange tak

UmeySan
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 373
Location: Denmark

PostPosted: Thu Nov 22, 2018 3:16 am    Post subject:
Reply with quote

you can use ISPEXEC SELECT CMD('command(parms)') NEWAPPL('applid') NEWPOOL to start your 2nd REXX with a parameter and the desired appplid.
I appreciate your danish regards icon_biggrin.gif
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 373
Location: Denmark

PostPosted: Thu Nov 22, 2018 3:06 pm    Post subject:
Reply with quote

I really had a bad day yesterday, the correct syntax for starting a command with parameters is:
SELECT CMD(%cmdname the-parm-string) NEWPOOL NEWAPPL(applid)
Check the 'ISPF Services Guide' manual for details.
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Thu Nov 22, 2018 4:08 pm    Post subject:
Reply with quote

Hi Willy,

D'ont worry, i have bad weeks, bad month's, ...
As i say every morning: "your only good day was yesterday"

Yeah, i could remember the differenc between PGM and CMD Format.

So I did a instructed but i loose the content of the variable ZZSTRG by the re-entry in the rexx. That's really the last straw that breaks the camel's back. That really drive me nuts.

Perhaps you have the time to look at that [expletive deleted] little rexx of mine and could help me to break the vicious circle.

bij voorbaat dank !!!


This is rexx STROPC

ADDRESS ISPEXEC "VGET ZAPPLID"

IF ZAPPLID <> 'EQQA' THEN DO
ADDRESS ISPEXEC "VGET (ZZSTRG) PROFILE"
ADDRESS ISPEXEC "SELECT CMD(%STROPC ZZSTRG) NEW..."
EXIT 0
END

OAJOB = ZZSTRG ...Content lost
ADDRESS ISPEXEC "VPUT OAJOB PROFILE"

ADDRESS ISPEXEC "SELECT CMD(%OPC) NEWAPPL(EQQA) PASSLIB SCRNAME(UMOPC)"

EXIT
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 373
Location: Denmark

PostPosted: Thu Nov 22, 2018 4:22 pm    Post subject:
Reply with quote

Change the 'OAJOB=ZZSTRG' to 'OAJOB=ARG(1)' or add a 'ARG ZZSTRG' at the top.
Also you need to change the "SELECT CMD(%STROPC ZZSTRG) NEW..." to "SELECT CMD(%STROPC" ZZSTRG") NEW..." or you will just receive the string 'ZZSTRG'.
And you really should be careful about your language, you risk being blocked, which would be a shame.
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Thu Nov 22, 2018 5:24 pm    Post subject:
Reply with quote

That really was a difficult birth.
Now works like a charm.

Du gemte min Weekend, Willy Jensen !!!

So now, by doing that rexx coding on the side i could becalmed return to my main mission here in the projekt.

And sorry for the little rougth vocabulary.

Have a nice Weekend & many thanks to you
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 373
Location: Denmark

PostPosted: Thu Nov 22, 2018 6:47 pm    Post subject:
Reply with quote

Good to know.
By the way, be carefull with Google translate, 'you saved my weekend' does not translate correctly to danish. Not rude, just not right icon_biggrin.gif
Nice weekend to you too.
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Thu Nov 22, 2018 7:16 pm    Post subject:
Reply with quote

For good order's sake, i just have to get rid of something.

I appreciate the unconvential help of my colleagues herre to get a problem solved. Especially the help of Willy Jensen.

I think that's the real way of exchanging knowledge and helping sort something out. Specialists without frontiers.

No [expletive deleted] inqueries like why, how come, for waht reason, ...
No boaring comments like "what's in the manuel", bal-bla-bla, ...

Just comming straight to the point. That's the spirit.

Have nice Weekend, gent's
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2378
Location: Hampshire, UK

PostPosted: Fri Nov 23, 2018 3:29 am    Post subject: Reply to: Modify the value of a extensionvariable in an ISPF-Table
Reply with quote

That is 3 expletives removed. Watch out.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Goto page Previous  1, 2
Page 2 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ISPF Panel commands DDLIST /LISTBOX Wesley TSO/ISPF 6 Thu Aug 06, 2020 11:25 pm
No new posts Am Getting a vertical line in ISPF SC... Himansu22 TSO/ISPF 3 Fri Jul 31, 2020 11:58 pm
No new posts Hex Table josephineyeow COBOL Programming 2 Thu Jun 18, 2020 7:26 pm
No new posts ISPF Edit Macro with profile commands... Lynne Schuler TSO/ISPF 14 Thu Jun 18, 2020 7:25 pm
No new posts Catalog table SYSSTATSFEEDBACK beikircherw DB2 2 Tue May 19, 2020 12:20 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us