Problem

getting the following when trying to access the IMS Database
IEC161I IT4V.IMS.CSM.DPYCRATE.CLUS,IT4V.IMS.CSM.DPYCRATE.D ATA,
IEC161I SYS2.CSM.DEV.UCAT02
+DFS0730I UNABLE TO OPEN DATA SET WITH DDNAME DPYCPD1 FOR REASON O,A8,
DATABASE,DPYCRATE,PSB CSESOFT IMS4
DFS0730I UNABLE TO OPEN/CLOSE DATASET WITH DDNAME ddname FOR REASON x,
yy,z DATABASE dbdname programid
Explanation: DL/I encountered an error while attempting to OPEN or CLOSE
a database. ddname is the DD statement name of the data set on which
the error occurred. x, yy are the major and minor reason codes as explained
below. The data set ddname is a part of the DBD dbdname. If DL/I
encountered an error while attempting to open a database programid
appears in the message. When an SMB is present, programid is 'TRN trancode'.
When an SMB is not present, programid is 'PSB psbname'.
System Action: Processing of the DL/I call is terminated and a status
code of 'AI' is returned in the PCB. In addition, the ddname from the
message is stored in the segment name.
A,yy
Explanation: An attempt was made to OPEN an OSAM data set. The OSAM
OPEN routine returned an error indication. 'yy' is the hexadecimal error code
returned in register 15.
Code (Hex) Meaning
00 This is a normal condition.
04 The DCB is already being opened or closed.
08 The DCB is already open.

Resolution
This appears to be very straightforward. The error received just means that the IMS database is already open. This is either a DBCTL or DBDC environment and the database was created so that the online system holds it exclusively. It is not always possible to use IMS-DLI while the online system is running Ė it depends on the site. At this site, they donít appear to have the share options required to make this work. In this case they should use the other variants of the IMS driver Ė either IMS-DBDC or IMS-DBCTL.