A fix is available
APAR status
Closed as new function.
Error description
This service provides ODBA CIMS CONNECT support for IMS V10. Keywords IMSV11COEX/K IMSV12COEX/K
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All IMS V10 ODBA users * **************************************************************** * PROBLEM DESCRIPTION: ODBA CIMS CONNECT support * **************************************************************** * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF * **************************************************************** ODBA CIMS CONNECT support
Problem conclusion
Temporary fix
Comments
******************************************************* POSTREQ PK79204 REPINNED RP09/01/22 (ATXT) TO ADD POSTREQ PK79204 INFO. **** PE09/01/22 PTF IN ERROR. SEE APAR PK79204 FOR DESCRIPTION. POSTREQ PK82475 REPINNED RP09/03/12 (ATXT) TO ADD POSTREQ PK82475 INFO. **** PE09/03/12 PTF IN ERROR. SEE APAR PK82475 FOR DESCRIPTION. POSTREQ PK87839 REPINNED RP09/07/08 (ATXT) TO ADD POSTREQ PK87839 INFO. **** PE09/07/08 PTF IN ERROR. SEE APAR PK87839 FOR DESCRIPTION. POSTREQ PM03182 REPINNED RP10/03/02 (ATXT) TO ADD POSTREQ PM03182 INFO. **** PE10/03/02 PTF IN ERROR. SEE APAR PM03182 for description. ******************************************************* CONNECT is a new subfunction of the CIMS request. It allows an application to connect to one or more IMS datastores in a single call. CIMS CONNECT will perform initialization of the ODBA environment in the application address space if a CIMS INIT has not been issued. ****************** DOC CHANGES ************** Application Programming API Reference (SC18-9699) FORMAT: CIMS---aib---| PARAMETERS: aib Specifies the application interface block (AIB) that is used for the call. This parameter is an input and output parameter. The following fields must be initialized in the AIB AIBID Eye-catcher. This 8 byte field must contain 'DFSAIB ' AIBLEN AIB length. This field must contain the actual length of the AIB that the application program obtained. AIBSFUNC Subfunction code. This field must contain the 8 byte subfunction code: 'CONNECT ' CONNECT AIBRSA1 Address of the CONNECT parameter list. Table - CIMS CONNECT parameter list format +-------+--------+-------+------------------------------------+ |Offset | Length | Field | Usage description | +-------+--------+-------+------------------------------------+ | X'00' | X'04' | Input | Count of connect request table | | | | entries | +-------+--------+-------+------------------------------------+ | X'04' | X'04' | Input | Address of the connect request table | +-------+--------+-------+------------------------------------+ Table - CIMS CONNECT Table entry format +-------+--------+--------+-----------------------------------+ |Offset | Length | Field | Usage Description | +-------+--------+--------+-----------------------------------+ | X'00' | X'04' | Input | 1 to 4 character IMS alias name | (cccc) from the startup properties | table DFScccc0 where cccc is the | alias name +-------+--------+--------+-----------------------------------+ | X'04' | X'04' | Input | 0 or Address of ODBA startup | properties table | | | | Value of 0 indicates that ODBA is | to load | | | | startup properties table named | DFScccc0 | | | | where cccc is the alias name | supplied. | | | | | | | | | An address indicates that the | caller is | | | | supplying the startup properties | table. | | | | The table is mapped by the DFSPRP macro. +-------+--------+--------+-----------------------------------+ | X'08' | X'04' | Output | Connect request return code for | this entry +-------+--------+--------+-----------------------------------+ | X'0C' | X'04' | Output | Connect request reason code for | this entry +-------+--------+--------+-----------------------------------+ | X'10' | X'04' | Output | Connect request error extension | code for this entry | | +-------+--------+--------+-----------------------------------+ USAGE: Use the CIMS CONNECT call to initialize the ODBA environment within the ODBA address space and subsequently connect to 1 or more IMS DBCTL and/or DB/TM subsystems. CIMS CONNECT may be issued instead of or in addition to CIMS INIT. CIMS CONNECT will perform ODBA initialization if it has not already been done. CIMS CONNECT may be issued with AIBRSA1 set to -1 (X'FFFFFFFF') to perform initialization only. The connect request table contains 1 or more connect request entries in contiguous storage. Each entry contains: A 1 to 4 character alias name, left justified, padded on the right with blanks. The alias name is the cccc name from the startup properties table DFScccc0. This parameter is required. The 4 byte address of the connection properties table (DFSPRP) or 0. 0 - indicates that ODBA is to load DFScccc0 to obtain the IMS connection properties. This member is constructed by specifying the DFSPRP macro in DFScccc0 then assembling and linking the member. This member must be in the STEPLIB or JOBLIB of the ODBA application job. Non 0 - indicates the caller is passing the address of the connection properties parameter table. The connection properties parameters are mapped by macro DFSPRP. 4 byte field to contain the connection request return code Return codes are those documented for AIBRETRN 4 byte field to contain the connection request reason code Return codes are those documented for AIBREASN 4 byte field to contain the connection request error extension information code Error extension may contain additional diagnostic information specific to the return and reason codes. Messages and Codes Reference, Volume 4: IMS Component Codes (GC18-9715) Chapter 8. DL/I Codes Table 24. System Service Calls +------------+------------+------------+--------------------+ |Return |Reason Code | System |Description |Code |Code | Service | | | | Calls | |------------+------------+------------+--------------------+ |X'00000000' |X'00000000' | ... |Call was completed | | | CIMS |successfully. Proceed | | | CONNECT | |------------+------------+------------+--------------------+ |X'00000100' |X'00000204' | CIMS |All connect requests | | | CONNECT |were unsuccessful. |------------+------------+------------+--------------------+ |X'00000100' |X'00000208' | CIMS |Mixed results. At | | | CONNECT |least one request | | | |succeeded, at least | | | |one request failed. | | | |Check request return, | | | |reason and error | | | |extension codes for | | | |further information. |------------+------------+------------+--------------------+ |X'00000104' |X'00000218' | CIMS |Invalid function | | | CONNECT |(internal ODBA error) |------------+------------+------------+--------------------+ |X'00000104' |X'00000240' | CIMS |Invalid AIBRSA1 | | | CONNECT |parameter |------------+------------+------------+--------------------+ |X'00000104' |X'00001104' | CIMS |Invalid Alias name | | | CONNECT |supplied by caller |------------+------------+------------+--------------------+ |X'00000104' |X'00001108' | CIMS |Invalid CONNECT count | | | CONNECT | |------------+------------+------------+--------------------+ |X'00000104' |X'0000110C' | CIMS |CONNECT request list | | | CONNECT |with no CONNECT count |------------+------------+------------+--------------------+ |X'00000104' |X'00000404' | ... |Invalid subfunction | | | CIMS |specified | | | CONNECT | |------------+------------+------------+--------------------+ |X'00000104' |X'00001104' | CIMS |Invalid alias name | | | CONNECT |specified for this | | | |entry |------------+------------+------------+--------------------+ |X'00000108' |X'00000010' | ... |Unable to obtain | | | CIMS |private storage. | | | CONNECT | |------------+------------+------------+--------------------+ |X'00000108' |X'0000002C' | ... |Name token service | | | CIMS |call failed. Return | | | CONNECT |code from Name Token | | | |services is saved in | | | |AIBERRXT |------------+------------+------------+--------------------+ |X'00000108' |X'00000540' | ... |IMS Connection not | | | CIMS |active | | | CONNECT | |------------+------------+------------+--------------------+ |X'00000108' |X'00000020' | ... |Load of a required | | | CIMS |ODBA module failed. | | | CONNECT |Error extension | | | |contains the 4 chars | | | |that follow DFS in | | | |the module name. |------------+------------+------------+--------------------+ |X'00000108' |X'00000214' | ... |Invalid PRP parameter | | | CIMS |Error extension | | | CONNECT |contains further | | | |diagnostic information | | | |to determine the | | | |cause of the error. +------------+------------+------------+--------------------+ Messages and Codes Reference, Volume 3: IMS Abend Codes (GC18-9714) Chapter 5. 0791, add the following information: For DFSAERG0: X'2C' - Failed to attach DFSAERM0 For DFSAERM0: X'30' - INIT parm error X'34' - Failed to obtain AERMWORK area X'38' - Failed to establish ESTAE ×**** PE09/01/22 FIX IN ERROR. SEE APAR PK79204 FOR DESCRIPTION ×**** PE09/07/08 FIX IN ERROR. SEE APAR PK87839 FOR DESCRIPTION ×**** PE09/09/10 FIX IN ERROR. SEE APAR PK82475 FOR DESCRIPTION ×**** PE10/03/02 FIX IN ERROR. SEE APAR PM03182 FOR DESCRIPTION
APAR Information
APAR number
PK66022
Reported component name
IMS V10
Reported component ID
5635A0100
Reported release
010
Status
CLOSED UR1
PE
NoPE
HIPER
NoHIPER
Special Attention
YesSpecatt / New Function / Xsystem
Submitted date
2008-05-13
Closed date
2008-12-11
Last modified date
2010-10-07
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK42410
Modules/Macros
DBFCPY00 DBFIRC10 DFSABND0 DFSAERA0 DFSAERC0 DFSAERG0 DFSAERI0 DFSAERM0 DFSAERN0 DFSAERT0 DFSAIB DFSAIBEQ DFSAPST0 DFSASK00 DFSBCK00 DFSCBT10 DFSCBT20 DFSCBT30 DFSCBT40 DFSCBT50 DFSCDMP0 DFSCPY00 DFSCPY50 DFSCPY70 DFSDASC0 DFSDASD0 DFSDASG0 DFSDASI0 DFSDASP0 DFSDASR0 DFSDASS0 DFSDAST0 DFSDAWE DFSDCPY0 DFSDLA30 DFSDTTA0 DFSEF00F DFSESAB0 DFSESCT0 DFSESD20 DFSESD50 DFSESD60 DFSESD80 DFSESFM0 DFSESGL0 DFSESI30 DFSESI50 DFSESI60 DFSESP10 DFSESP20 DFSESP30 DFSESSO0 DFSESS10 DFSESS20 DFSESS30 DFSESS40 DFSEXM00 DFSFDMP0 DFSFPAT0 DFSFPRA0 DFSISI00 DFSLCRE DFSLOG08 DFSMINI0 DFSOBMP0 DFSODMWK DFSORP10 DFSPAC DFSPAPL DFSPAT20 DFSPCC20 DFSPCJB0 DFSPCJM0 DFSPINI0 DFSPRA10 DFSPRA20 DFSPRA30 DFSPRA50 DFSPRRA0 DFSPSCH0 DFSPSTB0 DFSPTTH0 DFSPUSC0 DFSRCJB0 DFSRCJM0 DFSRRA00 DFSRRC10 DFSRRC40 DFSRRSI0 DFSSABN0 DFSSBMP0 DFSSDA20 DFSSDA30 DFSSJBP0 DFSSJMP0 DFSSMSC0 DFSSSOB DFSTMAD0 DFSUICC0 DFSVCI00 DFSVES00 IPST
GC18971500 | SC18969900 | GC18971400 |
Fix information
Fixed component name
IMS V10
Fixed component ID
5635A0100
Applicable component levels
R010 PSY UK42410
UP08/12/19 P F812
Fix is available
Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.
[{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"10.1","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU048","label":"IBM Software"},"Product":{"code":"SSCVRBJ","label":"System Services"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"10.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
07 October 2010