MVSFORUMS.com

dcy · Posted: Mon Nov 06, 2006 10:21 am Post subject: ISPT038 Table structure error

Hello,

This is my first post so please bear with me.

We have an ISPF table that is being used for multiple users and jobs. Yes, I already know we shouldn't be doing this but I had nothing to do with the design. I am providing support only and trying hard to convince them to switch to db2.

My ongoing problem is that the system (very small system using REXX programs and clists) is starting to break down; over the last 3 months, we've spent many hours fixing problems with this table.

The current message I'm getting is:
"ISPT038 Table structure error -/-TBCLOSE for table LSC detected an invalid internal table structure."
The statement that was being executed is: "ISPEXEC TBCLOSE LSC"
There have been no changes to programs or clists other than my addition of the following trace statement: "TRACE R".

I looked up this message and it's pretty much telling me to restore the table. Has anyone run across this before?

much appreciated...
_________________
- dcy -

ofer71 · Posted: Mon Nov 06, 2006 4:06 pm Post subject:

Do you create this table dynamically in your REXX/CLIST?
Do you use literals for keys/names or variables (for example "TBCREATE LSC KEY(&KEY1)"?
Have you tried to run your application under Dialog Trace (option 7)?
Have you tried to run it with ISPVCALL?
Have you tried TBQUERY for the table's structure?

Good luck

O.
________
Ipad guides

dcy · Posted: Thu Nov 09, 2006 9:40 am Post subject:

1) No the table is not dynamically created. It's actually a PDS (not sure why it was done this way) and the REXX pgm does a TBADD to add more records. The other REXX pgm does a TBPUT to update a value on the table.
2) Here's an example of the code (the table is LSC, others are variable names):