CA Ideal IDADERRP15E MEM format error on IDDAT

Products

• Datacom
• DATACOM - AD
• Ideal
• CIS
• COMMON SERVICES FOR Z/OS
• 90S SERVICES
• DATABASE MANAGEMENT SOLUTIONS FOR DB2 FOR Z/OS
• COMMON PRODUCT SERVICES COMPONENT
• Common Services
• CA ECOMETER SERVER COMPONENT FOC
• Easytrieve Report Generator for Common Services
• INFOCAI MAINTENANCE
• IPC
• UNICENTER JCLCHECK COMMON COMPONENT
• Mainframe VM Product Manager
• CHORUS SOFTWARE MANAGER
• CA ON DEMAND PORTAL
• CA Service Desk Manager - Unified Self Service
• PAM CLIENT FOR LINUX ON MAINFRAME
• MAINFRAME CONNECTOR FOR LINUX ON MAINFRAME
• GRAPHICAL MANAGEMENT INTERFACE
• WEB ADMINISTRATOR FOR TOP SECRET
• Xpertware

Issue/Introduction

Doing a DISPLAY INDEX MEMBER  in CA IDEAL fails with error:

IDADERRP15E - INTERR: MEM format error, LIB=IDDAT               
                                                                  
SRVC=VLS FUNC=RMP      RC=004-32 PGM=ADXDIB  14.0 +134C           
CALPGM=                   CURACT=   ACTTYP=  USER=58M ERRID=      
SYS=RCP ENTTYP=MEM ENTNAM=                   ENTVER=000  ENTSTAT= 
LIB=IDDAT    MEM=        

 

Environment

Release: DATABB00200-14.0-Datacom/AD
Component:

Cause

The error can be caused by corruption in the VLS file index.
This can be confirmed by running the VLSUTIL LIBRARY function to list the VLS index.
Examine the output and look for unprintable characters in the report.
Sample JCL:

 

//* LIBRARY LISTING OF IDDAT VLS FILE 
//* 
//LIBRARY  EXEC PGM=VLSUTIL 
//STEPLIB  DD DSN=ipc.CAVQLOAD,DISP=SHR 
//SYSPRINT DD SYSOUT=* 
//AUXPRINT DD SYSOUT=* 
//VLSFILE  DD DSN=IDDAT_file,DISP=SHR 
//SYSIN    DD * 
LIBRARY 
/*

Resolution

There are some CA IPC PTFs to resolve problems with VLS index corruption, these should be applied first.
If using CA IPC 14.0 apply PTFs RO69919 and RO72605.
If using CA IPC 15.0 apply PTF RO75397.

Once the corruptions occurs, to resolve the problem perform the following steps:

1. Run VLSUTIL to do a BACKUP of the IDDAT file

   //* BACKUP IDDAT VLS FILE 
   //* 
   //BACKUP   EXEC PGM=VLSUTIL 
   //STEPLIB  DD DSN=ipc.CAVQLOAD,DISP=SHR 
   //SYSPRINT DD SYSOUT=* 
   //AUXPRINT DD SYSOUT=* 
   //VLSFILE  DD DSN=IDDAT_file,DISP=SHR 
   //VLSBKUP  DD DSN=IDDAT_backup_file, 
   //         DISP=(,CATLG,KEEP), 
   //         SPACE=(CYL,(10,5)),UNIT=SYSDA 
   //SYSIN    DD * 
   BACKUP 
   LIBRARY 
   /*

2. Run another step to do a VLSUTIL FORMAT and RESTORE of the file. 

   //* FORMAT AND RESTORE IDDAT VLS FILE 
   //* 
   //RESTORE  EXEC PGM=VLSUTIL 
   //STEPLIB  DD DSN=ipc.CAVQLOAD,DISP=SHR 
   //SYSPRINT DD SYSOUT=* 
   //AUXPRINT DD SYSOUT=* 
   //VLSFILE  DD DSN=IDDAT_file,DISP=SHR 
   //VLSBKUP  DD DSN=IDDAT_backup_file,DISP=SHR 
   //SYSIN    DD * 
   FORMAT BLKSIZE=1960,NAMELEN=24 
   RESTORE 
   LIBRARY 
   /* 

Note: if the index corruption is in a different VLS file, check the INSTJCL member ILNEW02 to get the correct BLKSIZE and NAMELEN for the VLS file.

Additional Information

See DocOps sections BACKUP Function, FORMAT Function and RESTORE Function