Saving ISPF Panel entries

[acheait]

I coded an ISPF panel that submits a compiler using entries provided by the user. The panel itself is displayed from a rexx script and has several fields for user data entry(DSN, region,...). Currently, every time the script is called, the panel shows up with the default values.

I managed to write a script to save and retrieve the values entered by the user, however I am using a regular PDSE member instead of the user's ISPF profile. (ISPPROF)

Is there a function, IBM script, load module, that I can call to save/retrieve the data entered by the user in a panel? It must be something easy (and maybe well known to system programmers which I'm not) because most system panels save the last user entries (3.4 dslist, 3.14 search...)

Any help is appreciated, thanks.

 

[rexxhead]

I had exactly the same problem: what the user wants for this program is different than what s/he wants for that program.

I wound up modifiying my COMPILE routine to always call another routine, COMPARM, to fetch the user settings, and use the defaults if not found. When the process is done, COMPILE calls COMPARM to write the new settings back.

I used an ISPF table to hold the data keyed by programname. If you're interested\, I'll put it out on my website and you can pull it from there.

Frank Clarke
Support the Troops:
-- Bring them home.

http://www.RonPaul2008.com

 

[acheait]

That would be very helpful. I did some further research since I submitted this questions and I found the TB* series of command. I managed to write the data to my profile using TBADD, but I haven't figured out how to read it back to the panel.

 

[rexxhead]

OK, go to

http://web.tampabay.rr.com/mvsrexx/REXX/comparm.txt

and take a look at the code. It has examples of all the calls you'll need. You will not be able to click this link (something to do with Tek-Tips, I suspect), but you can cut and paste into a clean browser.


Frank Clarke
Support the Troops:
-- Bring them home.

http://www.RonPaul2008.com

 

[acheait]

It's a little out of my league, but it helped me figure out how to retrieve info from the profile using TBGET.

I'm using:
TBCREATE with NAME, WRITE, and REPLACE to create the table
TBADD to add a row
TBCLOSE to save and close the table
TBOPEN with NOWRITE to check if an old table exist
TBBOTTOM to point to the last(and only) row in the table
TBGET to retrieve the information

Works great.

Thanks for all your help