IBM Mainframe Forum

[Richard Eden]

I'm using program IKJEFT01 to ISPSTART a REXX procedure to update an ISPF table.

All of these commands work OK and return RC 0:
address ISPEXEC "tbopen "tb_name" write library(SH4TLIB) share"
address ISPEXEC "tbtop "tb_name
address ISPEXEC "tbscan "tb_name" arglist(seq) condlist(EQ)"
address ISPEXEC "tbput" tb_name

But when I try to save the library with this command:
address ISPEXEC "tbclose SH4AUD00 library(SH4TLIB)"

I get System abend code C1300 and this message is written to my job log:
IEC153I C13-10,IFG0194A,JBPS11A,THEBIZ,SH4TLIB-0002,2B8C,TMP114,JSPBLK.GROUP.ISPTLIB

Anybody got any ideas how I can update this table?

Thanks for any help and advice.
Richard.

[Robert Sample]

Have you looked up the C13-10 or IEC15E8 message in the manual? The message explanation tells you EXACTLY what the problem is, as well as providing a hint about how to resolve it.

[Richard Eden]

Thanks for the response.

I should clarify the problem I've got.

If I allocate the table library like this:
//SH4TLIB DD DSN=JSPBLK.GROUP.ISPTLIB,DISP=SHR

the tbopen command returns this:
ISPT036 Table in use -/-TBOPEN issued for table SH4AUD00 that is in use, ENQUEUE failed.

If I allocate the table library like this:
//SH4TLIB DD RECFM=FB,LRECL=80,SPACE=(TRK,(1,0,1))
// DD DSN=JSPBLK.GROUP.ISPTLIB,DISP=SHR

the tbopen, tbscan, and tbput all return RC 0, but the tbclose fails. So, the basic problem is:
How can I update ISPF tables using IKJEFT01 to ISPSTART a REXX program?

Thanks for your help.
Richard.