Modify the value of a extensionvariable in an ISPF-Table

Willy Jensen · Posted: Wed Nov 21, 2018 7:46 pm

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.

UmeySan · Posted: Wed Nov 21, 2018 10:22 pm

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

Willy Jensen · Posted: Thu Nov 22, 2018 3:16 am

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

Willy Jensen · Posted: Thu Nov 22, 2018 3:06 pm

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.

UmeySan · Posted: Thu Nov 22, 2018 4:08 pm

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

Willy Jensen · Posted: Thu Nov 22, 2018 4:22 pm

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.

UmeySan · Posted: Thu Nov 22, 2018 5:24 pm

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

Willy Jensen · Posted: Thu Nov 22, 2018 6:47 pm

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

Nice weekend to you too.

UmeySan · Posted: Thu Nov 22, 2018 7:16 pm

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

Nic Clouston · Posted: Fri Nov 23, 2018 3:29 am

That is 3 expletives removed. Watch out.