ISPF table update in REXX.



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

ISPF table update in REXX.

Postby Richard Eden » Thu Jul 19, 2012 5:02 pm

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.
Richard Eden
 
Posts: 10
Joined: Fri Nov 26, 2010 8:07 pm
Has thanked: 0 time
Been thanked: 0 time

Re: ISPF table update in REXX.

 

Re: ISPF table update in REXX.

Postby Robert Sample » Thu Jul 19, 2012 5:07 pm

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.
Robert Sample
Global moderator
 
Posts: 3443
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 242 times

Re: ISPF table update in REXX.

Postby Richard Eden » Mon Jul 23, 2012 4:12 pm

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.
Richard Eden
 
Posts: 10
Joined: Fri Nov 26, 2010 8:07 pm
Has thanked: 0 time
Been thanked: 0 time


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post