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

Modify the value of a extensionvariable in an ISPF-Table


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Wed Nov 14, 2018 11:48 pm
Reply with quote

Hi Experts,

I'm trying to modify the value of a extensionvariable of a ISPF table.
The table has no key-fields, only these extensionvariables.
The table has only one row.

After a TBGET i loop through all variable-names. For a specific variable i modify the value. At end i try to update the row with TBPUT .

TBGET EQQAPROF SAVENAME(UV) ...
VARNAMES = TRANSLATE(UV," ","()")
VARCOUNT = WORDS(VARNAMES)

DO VARINDX = 1 TO VARCOUNT
VAR = WORD(VARNAMES,VARINDX)
IF VAR = 'blablabla'
VAR = ZZSTRG ...new Value is in ZZSTRG
SAY LEFT(VAR,16,".")"--"VALUE(VAR) ...just to be sure
END

TBPUT EQQAPROF SAVE("VARNAMES") ORDER

So everything seams right, only the TBPUT gets an Error ISPS110
Saying that there are more than 254 variables in the variable-list.

OK, thats right, cause i have 697 extensionvariables in that [swear word deleted] table.

Doing a TBPUT directly after the modification of the specific variable with only the name of the variable destroys the table. Meaning it leaves the table with only the variable used in TBPUT, All others vanished.

So question is: How will i be able to update this table with all his 697
extensionvariables.

I tryed TBMOD, didn't work either. A TBMOD, in the lopp, directly after the check of the variable-name, with or without modifying the value, updates all extensionvariables but also adds some more rows to the table.

So hopefully someone can put me in the right direction to solve that problem.
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 416
Location: Denmark

PostPosted: Thu Nov 15, 2018 4:07 am
Reply with quote

Well, if the limit is 254 then that is it, no amount of cursing will change it.
Time for a rethink i.e. having just one variable with a separator between the values? Remember that you in REXX you can parse with a non-displayable separation character.
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Fri Nov 16, 2018 7:28 pm
Reply with quote

Thank's a lot Will Jensen.

But is there a way to update only a specific variable of that row with it's 697 extension variables.

Doing a TBPUT with only one variable seams to destroy the table.

It's been a while that i'm doing some Rexx, so perhaps i'm missing something.

Jjeg √łnsker Dem en god weekend
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 416
Location: Denmark

PostPosted: Fri Nov 16, 2018 7:45 pm
Reply with quote

No, that is what I am saying, you have a a maximum of 254 extension variables. If you need more than that you have to do it differently.
TBPUT with one variable does not technically destroy the table, it just rewrites the row with that one variable. Do you really need 697 variables in one row? You could transpose the table to 697 rows with one variable in each. Or as I suggested initially, use a delimiter and REXX PARSE with one variable in the row. i.e.:
Code:
 "tbcreate tbl1 names(var1) nowrite"   
 p1='Kilroy'                           
 p2='was'                               
 p3='here'                             
 dlm = 'ff'x                           
 var1 = p1 dlm p2 dlm p2               
 "tbadd tbl1"                           
 . . .                       
 "tbget tbl1"                           
 parse var var1 p1 (dlm) p2 (dlm) p2 
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Mon Nov 19, 2018 4:09 am
Reply with quote

Can you provide a trace?

My theory is that your list of variable names includes unexpected text.

I doubt that you could have created a table with so many extension variables if you cannot update it with the same number of variables.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2475
Location: Netherlands, Amstelveen

PostPosted: Mon Nov 19, 2018 11:55 am
Reply with quote

Table EQQAPROF is not created by the user as far as i remember.

To look at the specifics of the table use ISPF Dialog Test (option 7)
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Mon Nov 19, 2018 3:55 pm
Reply with quote

Morning gents !

As Peter Holland suspects, this is not my own table. EQQAPROF is a Profile table from OPC. Among many other things, the Job-Name variable is stored there.

My Intension was to pick up a jobname from a member, open in edit mode, via Rexx (Cursor Position - Point & shoot), open a new Screen and branch direclty into the OPC Panel where you could specify the Job you want to browse.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2475
Location: Netherlands, Amstelveen

PostPosted: Mon Nov 19, 2018 4:28 pm
Reply with quote

Among many other things, the Job-Name variable is stored there.


How do you know? Subsystem name, yes, but jobname ? Which jobname?

My Intension was to pick up a jobname from a member, open in edit mode, via Rexx (Cursor Position - Point & shoot), open a new Screen and branch direclty into the OPC Panel where you could specify the Job you want to browse.


I don't understand this.
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 416
Location: Denmark

PostPosted: Mon Nov 19, 2018 7:03 pm
Reply with quote

I did not note the table name in the original entry, sorry. Now I see that it belongs to TWS (OPC). This probably means that the table is created and updated from a program using the CALL with namelist interface. The documentation (zos 2.1) states a limit of 254 extension variable names also for a namelist, though I seem to remember that the limit was greater at some point in time. TWS, being an IBM product, might have access to an alternate interface, or the documentation could be wrong. In any case I think that you are stuck with the limit of 254 names when using REXX. You could try to write a program to test the CALL namelist interface.
By the way, good to see a description of what you are attempting.
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Mon Nov 19, 2018 11:15 pm
Reply with quote

Quote:
EQQAPROF is a Profile table from OPC

Instead of treating it like a table (which it is), treat it like a profile (which it is).

That is, start your rexx program with NEWAPPL and then use VGET PROFILE to retrieve the variables and VPUT PROFILE to set your variables.
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Mon Nov 19, 2018 11:21 pm
Reply with quote

Quote:
being an IBM product, might have access to an alternate interface


I worked for IBM for a number of years (retired now). I worked fairly closely with the developers of ISPF. I do not think there is an interface that was published within IBM for developers working on other teams.
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Tue Nov 20, 2018 5:23 pm
Reply with quote

@Peter: You could use 3.16 to view/edit the EQQAPROF table.
The variable where the jobname is stored is "oajob", used by EQQASELP Panel.

@Willy: Yes, seams that i'm stuck with the limit of 254 names.
I'm also thinking about a little Assembler Programm.

@Pedro: I retired four yeares ago. reactivated for a project since summer this year.

Thank's a lot
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Tue Nov 20, 2018 5:35 pm
Reply with quote

@Peter

Just think of a normal Member in a PO Dataset.

If you open this member in edit mode, you coud see lines where names of OPC applications with their associated Jobs are listed.

... APPL A#Appl01 XA001 XA002 XA003 XA004
... APPL B#Appl02 XB001 XB002 XB003 XB004

You Position the Cursor at the Job you would browse an press a defined pf key. Point-and-shoot. The rexx started via pf key extracts the jobname at curser Position and branches to OPC displaying Panel EQQASELP.

Hope i could make myself clear.

Fijne dag !
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


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

PostPosted: Tue Nov 20, 2018 5:51 pm
Reply with quote

If you are only using the table to point and shoot why is there a need to update it?
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2475
Location: Netherlands, Amstelveen

PostPosted: Tue Nov 20, 2018 6:05 pm
Reply with quote

Panel EQQASELP (Application List Criteria) as the name implies is used to select applications. Probably a jobname (generic?) can be used and probably that jobname is saved in the profile table.

It would be nice you show a screen print of that part of the profile table.

Somewhere in the back of my memory i seem to remember that some table data consisting of multiple records form in reality 1 long strong with variables.
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Tue Nov 20, 2018 8:23 pm
Reply with quote

As Peter describes, the TWS (OPC) application is reading this table to get all the needed variables. So only storing a variable with VPUT into the Profile pool doesn't work.

@Peter: Sorry, i didn't realy understand the last sentence, what's the meaning.
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 416
Location: Denmark

PostPosted: Tue Nov 20, 2018 8:49 pm
Reply with quote

Interesting, using profile vput allows me to add 800 extension variables to a profile, so Pedro's suggestion should help you achieve your goal.
My sampe pgm shows 1435 extension variables in the zzzz profile:
Code:
 address ispexec                           
 "vget zapplid"                           
 if zapplid<>'ZZZZ' then do               
   "select cmd(%ZZ) newpool newappl(ZZZZ)"
   exit 0                                 
 end                                       
                                           
 do n=1 to 800                             
   zz=Value('P'n,copies(n' ',4))           
   "vput P"n "profile"                     
   if rc<>0 then do                       
     say n 'put rc' rc zerrlm             
     exit 8                               
   end                                     
 end                                       
 say 'profile updated with' n 'variables' 
 "tbtop zzzzprof"                         
 "tbskip zzzzprof savename(names)"         
 say '#names='words(names)                 
 say names                                 
 drop p755                                 
 "vget p755 profile"                       
 say 'p755='p755                           
 exit 0                                     

So ISPF internally has a way of handling more than 254 extension variables.
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Tue Nov 20, 2018 10:09 pm
Reply with quote

Quote:
the TWS (OPC) application is reading this table to get all the needed variables. So only storing a variable with VPUT into the Profile pool doesn't work.


I probably was not clear earlier - I thought it was common knowledge: The ISPF profile information is saved in an ISPF table. But apparently they use an undocumented interface so that you and I cannot manipulate it as you would a table. You must use the interfaces provided for the profile.

I do not believe OPC 'reads this table' as you imply. It probably 'reads the table' through the use of VPUT and VGET services.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2475
Location: Netherlands, Amstelveen

PostPosted: Wed Nov 21, 2018 8:41 am
Reply with quote

@UmeySan

The meaning of the last sentence :

concatenating the table records to 1 long string
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 3:44 pm
Reply with quote

Thank's a lot gent's, i appreciate your help.

Perhaps my Alzheimer's symptoms are getting worse, so i can't follow up your hints in every step. Or i schall reduce the bottels of red wine at dinner to a limit of one.

And as beeing a programmer, normaly using Assembler, Cobol, db2 cics, ims, i'm no Guru of Rexx language.

@Willy: I can't really see where you're updating a specific table without using TBPUT or TBMOD or TBADD. And what does this &ZZ proc does?

@Pedro:
>> It probably 'reads the table' through the use of VPUT and VGET services

Would you be so Kind to explain that in Detail.

I would be delighted to here form you, so you could enligthen my lack of knowledge here.
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 416
Location: Denmark

PostPosted: Wed Nov 21, 2018 7:46 pm
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
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: 416
Location: Denmark

PostPosted: Thu Nov 22, 2018 3:16 am
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: 416
Location: Denmark

PostPosted: Thu Nov 22, 2018 3:06 pm
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
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
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts Modify Several JCLs at the Same Time JCL & VSAM 6
No new posts Need to read duplicate rows from tabl... DB2 3
No new posts ISPF Panel commands DDLIST /LISTBOX TSO/ISPF 11
No new posts Am Getting a vertical line in ISPF SC... TSO/ISPF 3
No new posts Hex Table COBOL Programming 2
Search our Forums:

Back to Top