Using the CA-IDMS Data Adapter Under MVS

The data adapter is provided on your FOCUS distribution tape. The files necessary to make the data adapter operative will automatically be placed on the FOCUS production disk by following the standard FOCUS installation instructions.

Instructions for accessing IDMS data sources differ for Local Mode access and Central Version (CV) access.

Accessing Central Version and Local Mode

The IDMS load modules, IDMS and IDMSINTB, must be made available at run-time and assigned to ddname STEPLIB.

When using a CLIST, the STEPLIB ddname is not valid. You can either assign these load module members to the link list or you can allocate them in the TSO logon procedure. Contact your systems programmer to add these members.

The member names of the FOCUS Master and Access Files to read the subschema must be identically named and made available at run time.

The SYSIDMS ddname should be allocated to identify the DMCL.

Central Version Access in TSO

The ddname SYSCTL must be allocated to the SYSCTL data set corresponding to the Central Version desired. No allocation of IDMS data sources or subschema/DMCL load modules is needed when running CV.

The IDMS functions will take place in the IDMS CV address space. The subschema load modules can reside in either the dictionary load area (DDLDCLOD) or a load library. If the load modules reside in both places, IDMS uses the first one it finds based on the IDMS LOADLIST and dictionary established for your session. Contact your IDMS database administrator for additional assistance.

Use the following CLIST as a model for accessing FOCUS in Central Version:

ALLOC F(FOCEXEC) DA('prefix.FOCEXEC.DATA') SHR REUSE
ALLOC F(MASTER)  DA('prefix.MASTER.DATA')  SHR REUSE
ALLOC F(FOCIDMS) DA('prefix.ACCESS.DATA')  SHR REUSE
ALLOC F(USERLIB) DA('prefix.IDMS.LOAD' -
                    'prefix.FUSELIB.LOAD') SHR REUSE
ALLOC F(FOCLIB)  DA('prefix.FOCLIB.LOAD')  SHR REUSE
ALLOC F(ERRORS)  DA('prefix.IDMS.DATA' -
                    'prefix.ERRORS.DATA')  SHR REUSE
ALLOC F(SYSCTL)  DA('highlvl.SYSCTL')      SHR REUSE
ALLOC F(SYSIDMS) DA('highlvl.SYSIDMS')     SHR REUSE
CALL 'prefix.FOCLIB.LOAD(FOCUS)'                

where:

highlvl

Is the high-level qualifier for Computer Associates supplied data sets.

prefix

Is the high-level qualifier for FOCUS production data sets.

Local Mode Access in TSO

The user must allocate all IDMS data sources. These data sources must be assigned to the ddnames that are assigned in the IDMS application schema/segment. Note that when you access IDMS in local mode from a CLIST, you have batch access to the data sources. Updates to the data that occur after you issue a retrieval request will not be reflected in your answer set until you issue another retrieval request.

All journal files and the default local mode tape journal file, SYSJRNL, must be specified and assigned to DD DUMMY.

When running the data adapter in a batch job or from an MSO server, the load modules must be allocated to ddname STEPLIB.

Use the following CLIST as a model for accessing FOCUS in local mode:

ALLOC F(FOCEXEC) DA('prefix.FOCEXEC.DATA') SHR REUSE
ALLOC F(MASTER)  DA('prefix.MASTER.DATA')  SHR REUSE
ALLOC F(FOCIDMS) DA('prefix.ACCESS.DATA')  SHR REUSE
ALLOC F(USERLIB) DA('prefix.IDMS.LOAD' -
                    'prefix.FUSELIB.LOAD') SHR REUSE
ALLOC F(FOCLIB)  DA('prefix.FOCLIB.LOAD')  SHR REUSE
ALLOC F(ERRORS)  DA('prefix.IDMS.DATA' -
                    'prefix.ERRORS.DATA')  SHR REUSE
ALLOC F(SYSJRNL) DUMMY
ALLOC F(SYSIDMS) DA('highlvl.SYSIDMS')     SHR REUSE
ALLOC F(FILE1)   DA('user.IDMS.FILE1')     SHR REUSE
ALLOC F(FILE2)   DA('user.IDMS.FILE2')     SHR REUSE
CALL 'prefix.FOCLIB.LOAD(FOCUS)'                

where:

highlvl

Is the high-level qualifier for Computer Associates supplied data sets.

prefix

Is the high-level qualifier for FOCUS production data sets.

user

Is the high-level qualifier for a user's data source.

Interactive Access From MSO

For interactive access in MSO, modify the MSO startup JCL to include the following allocations. See the Multi-Session Option Installation and Technical Reference Guide for further information.

//STEPLIB  DD   DSN=highlvl.DBA.LOADLIB,DISP=SHR
//         DD   DSN=prefix.IDMS.LOAD,DISP=SHR
//         DD   DSN=highlvl.LOADLIB,DISP=SHR
//ERRORS   DD   DSN=prefix.IDMS.DATA,DISP=SHR
//         DD   DSN=prefix.ERRORS.DATA,DISP=SHR
//MASTER   DD   DSN=prefix.MASTER.DATA,DISP=SHR
//FOCIDMS  DD   DSN=prefix.ACCESS.DATA,DISP=SHR
//FOCEXEC  DD   DSN=prefix.FOCEXEC.DATA,DISP=SHR
//SYSCTL   DD   DSN=highlvl.SYSCTL,DISP=SHR
//SYSIDMS  DD   DSN=highlvl.SYSIDMS,DISP=SHR

where:

highlvl

Is the high-level qualifier for Computer Associates supplied data sets.

prefix

Is the high-level qualifier for FOCUS production data sets.

Note: In most cases, there are two CA-IDMS load libraries that must be assigned to STEPLIB.

Central Version Batch Access

For batch access in Central Version, use the following JCL as a model:

//IDMSCV   EXEC PGM=FOCUS
//STEPLIB  DD  DSN=highlvl.DBA.LOADLIB,DISP=SHR
//         DD  DSN=highlvl.LOADLIB,DISP=SHR
//         DD  DSN=prefix.IDMS.LOAD,DISP=SHR
//         DD  DSN=prefix.FOCLIB.LOAD,DISP=SHR
//         DD  DSN=prefix.FUSELIB.LOAD,DISP=SHR
//ERRORS   DD  DSN=prefix.IDMS.DATA,DISP=SHR
//         DD  DSN=prefix.ERRORS.DATA,DISP=SHR
//MASTER   DD  DSN=prefix.MASTER.DATA,DISP=SHR
//FOCIDMS  DD  DSN=prefix.ACCESS.DATA,DISP=SHR
//FOCEXEC  DD  DSN=prefix.FOCEXEC.DATA,DISP=SHR 
//SYSCTL   DD  DSN=highlvl.SYSCTL,DISP=SHR
//SYSIDMS  DD  DSN=highlvl.SYSIDMS,DISP=SHR
//SYSIN    DD   *
? REL
TABLE FILE EMPFILE
PRINT EMP_NAME_0415
END
FIN

where:

highlvl

Is the high-level qualifier for Computer Associates supplied data sets.

prefix

Is the high-level qualifier for FOCUS production data sets.

In most cases, there are two CA-IDMS load libraries that need to be assigned to STEPLIB.

Although in the sample JCL DDNAME SYSIN is allocated to in-stream input commands, it could have been allocated to a PDS member or sequential file.

Local Mode Batch Access

For batch access in Local Mode, use the following JCL as a model:

//IDMSLC   EXEC PGM=FOCUS
//STEPLIB  DD  DSN=highlvl.DBA.LOADLIB,DISP=SHR
//         DD  DSN=highlvl.LOADLIB,DISP=SHR
//         DD  DSN=prefix.IDMS.LOAD,DISP=SHR
//         DD  DSN=prefix.FOCLIB.LOAD,DISP=SHR
//         DD  DSN=prefix.FUSELIB.LOAD,DISP=SHR
//ERRORS   DD  DSN=prefix.IDMS.DATA,DISP=SHR
//         DD  DSN=prefix.ERRORS.DATA,DISP=SHR
//MASTER   DD  DSN=prefix.MASTER.DATA,DISP=SHR
//FOCIDMS  DD  DSN=prefix.ACCESS.DATA,DISP=SHR
//FOCEXEC  DD  DSN=prefix.FOCEXEC.DATA,DISP=SHR 
//SYSJRNL  DD  DUMMY
//SYSIDMS  DD  DSN=highlvl.SYSIDMS,DISP=SHR
//FILE1    DD  DSN=user.IDMS.FILE1,DISP=SHR
//FILE2    DD  DSN=user.IDMS.FILE2,DISP=SHR
//SYSIN    DD   *
? REL
TABLE FILE EMPFILE
PRINT EMP_NAME_0415
END
FIN

where:

highlvl

Is the high-level qualifier for Computer Associates supplied data sets.

prefix

Is the high-level qualifier for FOCUS production data sets.

In most cases there are two CA-IDMS load libraries that need to be assigned to STEPLIB.

Although in the sample JCL DDNAME SYSIN is allocated to in-stream input commands, it could have been allocated to a PDS member or sequential file.

The user must allocate all IDMS data sources. These data sources must be allocated to the ddnames that are assigned in the IDMS application schema/segment. All journal files and the default local mode tape journal file, SYSJRNL, must be allocated to DD DUMMY. There is no allocation for ddname SYSCTL in local mode.