In this section: |
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.
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.
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:
Is the high-level qualifier for Computer Associates supplied data sets.
Is the high-level qualifier for FOCUS production data sets.
Is the high-level qualifier for a private data set belonging to the user.
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:
Is the high-level qualifier for Computer Associates supplied data sets.
Is the high-level qualifier for FOCUS production data sets.
Is the high-level qualifier for a private data set belonging to the user.
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:
Is the high-level qualifier for Computer Associates supplied data sets.
Is the high-level qualifier for FOCUS production data sets.
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.
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:
Is the high-level qualifier for Computer Associates supplied data sets.
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.
Information Builders |