OPSLOG : ISPF Table error and ENQUEUE message
search cancel

OPSLOG : ISPF Table error and ENQUEUE message

book

Article ID: 96362

calendar_today

Updated On:

Products

OPS/MVS Event Management & Automation

Issue/Introduction

When in OPSVIEW Option 0.4 or Option1 for OPSLOG, issuing END after updating the PROFILE commands, gives this error:

Address ISPEXEC TBSAVE &OPBOTBL - RC=16 

Library not allocated ISPTABL library is not allocated.
Error in PROGRAM OPBOPRO1 line 446

address ISPEXEC TBCLOSE &OPBOTBL - RC=16

Library not allocated ISPTABL library is not allocated.
Error in PROGRAM OPBOPRO1 line 447

If  another user goes to look at his profile, he gets the following ISPF error: 

ISPF error:
* ISPT036                                                                    *
*                                                                            *
* Table in use         

Table in use TBCREATE issued for table OPBOPRTB that is in use, ENQUEUE failed.
Current dialog statements:

TBCREATE OPBPTRTB KEYS(OPBPRID) NAMES(OPBOJOB OPBOJOB2 OPBOJOB3 OPBOJOB4 .

In addition there can be also MIM contention messages looking like the following:

 @MIM1038I TASK1 TSU87220 A=00AC T=8D4360 contention with TASK2 A=02D9 T=9D6
360 OWNS EXCL on SYSTEMA                                                      
@MIM1039I TASK1 TSU87220 A=00AC T=8D4360 needs EXCL QNAME rname.dataset(member)

How to fix this error situation.                                                         

Environment

Release: All
Component: OPSMVS

Resolution

The ISPTABL DD statement must point to either a unique table output data set or the user ISPF profile data set name.
Sample code to be added to the CLIST that invokes OPSVIEW:

Prefix="prefix of the OPS datasets" 
user = Sysvar("SYSUID")                                      
Usrpfx=user              /* Saving OPSLOG PROFILE settings */

"LIBDEF ISPTLIB DATASET ID('"usrpfx".ISPF.ISPPROF'" ,                     
                          "'"prefix".CCLXTENU')"        /* Table in  */   
"LIBDEF ISPTABL DATASET ID('"usrpfx".ISPF.ISPPROF')"   /* Table out */    

This code will get the userid dynamically. The ISPF profile may have a different pattern name at your site.

Additional Information