Using the Adapter for CA-IDMS Under z/OS

The adapter is provided on your FOCUS distribution tape. The files necessary to make the adapter operative will automatically be placed in the correct data sets as part of FOCUS installation.

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 DD(STEPLIB) DA('highlvl.DBA.LOADLIB'-
                     'highlvl.LOADLIB') SHR REUSE
ALLOC F(FOCEXEC) DA('prefix.FOCEXEC.DATA' -
                    'userid.FOCEXEC.DATA') SHR REUSE
ALLOC F(MASTER)  DA('prefix.MASTER.DATA' -
                    'userid.MASTER.DATA') SHR REUSE
ALLOC F(FOCIDMS) DA('prefix.ACCESS.DATA') SHR REUSE
ALLOC F(USERLIB) DA('prefix.IDMS.LOAD') SHR REUSE
ALLOC F(FOCLIB)  DA('prefix.FOCLIB.LOAD') SHR REUSE
ALLOC F(ERRORS)  DA('prefix.ERRNLS.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.
userid: Is the high-level qualifier for a private data set belonging to the user.

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 adapter in a batch job, 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' -
                    'userid.FOCEXEC.DATA') SHR REUSE
ALLOC F(MASTER)  DA('prefix.MASTER.DATA' -
                    'userid.MASTER.DATA') SHR REUSE
ALLOC F(FOCIDMS) DA('prefix.ACCESS.DATA') SHR REUSE
ALLOC F(USERLIB) DA('prefix.IDMS.LOAD') SHR REUSE
ALLOC F(FOCLIB)  DA('prefix.FOCLIB.LOAD') SHR REUSE
ALLOC F(ERRORS)  DA('prefix.ERRNLS.DATA' -
                    'prefix.ERRORS.DATA') SHR REUSE
ALLOC F(SYSJRNL) DUMMY
ALLOC F(SYSIDMS) DA('highlvl.SYSIDMS')     SHR REUSE
ALLOC F(FILE1)   DA('userid.IDMS.FILE1')     SHR REUSE
ALLOC F(FILE2)   DA('userid.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.
userid: Is the high-level qualifier for a private data set belonging to the user.

Central Version Batch Access

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

//job card goes here
//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
//ERRORS   DD  DSN=prefix.ERRNLS.DATA,DISP=SHR
//         DD  DSN=prefix.ERRORS.DATA,DISP=SHR
//MASTER   DD  DSN=prefix.MASTER.DATA,DISP=SHR
//         DD  DSN=userid.MASTER.DATA,DISP=SHR
//FOCIDMS  DD  DSN=prefix.ACCESS.DATA,DISP=SHR
//FOCEXEC  DD  DSN=prefix.FOCEXEC.DATA,DISP=SHR 
//         DD  DSN=userid.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.
userid: Is the high-level qualifier for a private data set belonging to the user.

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.ERRNLS.DATA,DISP=SHR
//         DD  DSN=prefix.ERRORS.DATA,DISP=SHR
//MASTER   DD  DSN=prefix.MASTER.DATA,DISP=SHR
//         DD  DSN=userid.MASTER.DATA,DISP=SHR
//FOCIDMS  DD  DSN=prefix.ACCESS.DATA,DISP=SHR
//FOCEXEC  DD  DSN=prefix.FOCEXEC.DATA,DISP=SHR 
//         DD  DSN=userid.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.