Install the AUTODATACOM Facility

To install the AUTODATACOM facility, you must perform the following steps:

1. Unload the AUTODATACOM members.
2. Create the Datacom URT to access the dictionary structures.
3. Create the URT Access Module for AUTODATACOM.
4. Optionally, customize the default data sets.

Unload the AUTODATACOM Members

Unload and rename the AUTODATACOM members with the following steps:

1. For FOCUS Version 7.0 Release 9 and below, you must download two members from the Information Builders FTP site, ftp.informationbuilders.com. FTP them in alphanumeric mode into the 'prefix.DATACOM.DATA' data set.

Note: In FOCUS releases later than Version 7.0 Release 9, the required members are unloaded from the distribution tape as part of the normal installation. If you are running a FOCUS release later than Version 7.0 Release 9, continue with Step 2.

Since the procedure to FTP at your site may be different, use the following procedure as a general guideline only. The FTP commands on MVS are not case sensitive but are shown in upper case in this example:

1. Issue the following command from the TSO Ready prompt to enter FTP mode and connect to the Information Builders FTP site:

FTP FTP.INFORMATIONBUILDERS.COM 

When asked, enter your user ID and password.

2. Issue the following command to change to the correct directory:

CD PUB/PMS/IBMDIV/DATACOM

3. Issue the following commands to transfer the DTCMRELX and AUTDTCMX members from the FTP site to your DATACOM.DATA data set and rename them:

GET DTCMRELX 'prefix.DATACOM.DATA(DTCMRELM)' (REPLACE
GET AUTDTCMX 'prefix.DATACOM.DATA(AUTODTCM)' (REPLACE

where prefix is the high-level qualifier for your FOCUS production data sets. Enclose fully qualified names in single quotation marks. Use the REPLACE option to replace the existing members in your data set.

4. Enter the following command to exit FTP:

quit

2. Uncomment the last four copy statements in the following JCL (member GENFADTC in the 'prefix.DATACOM.DATA' data set) by spacing over the asterisks in column 1, edit the JCL to conform to your site's standards, and submit it:

//job card goes here
//COPYPDS EXEC  PGM=IEBCOPY
//SYSPRINT  DD SYSOUT=*
//INDD1  DD DSN=prefix.DATACOM.DATA,DISP=SHR
//OUTDD1 DD DSN=prefix.MASTER.DATA,DISP=SHR
//OUTDD2 DD DSN=prefix.ACCESS.DATA,DISP=SHR
//OUTDD3 DD DSN=prefix.FOCEXEC.DATA,DISP=SHR
//SYSIN  DD  *
 COPY INDD=INDD1,OUTDD=OUTDD1
      SELECT MEMBER=((DTCMAGRM,DTCMAGR))
 COPY INDD=INDD1,OUTDD=OUTDD1
      SELECT MEMBER=((DTCMRELM,DTCMREL))
 COPY INDD=INDD1,OUTDD=OUTDD1
      SELECT MEMBER=((DTCMKEYM,DTCMKEY))
 COPY INDD=INDD1,OUTDD=OUTDD1
      SELECT MEMBER=((DTCMFLDM,DTCMFLDS))
 COPY INDD=INDD1,OUTDD=OUTDD2
      SELECT MEMBER=((DTCMAGRA,DTCMAGR))
 COPY INDD=INDD1,OUTDD=OUTDD2
      SELECT MEMBER=((DTCMRELA,DTCMREL))
 COPY INDD=INDD1,OUTDD=OUTDD2
      SELECT MEMBER=((DTCMKEYA,DTCMKEY))
 COPY INDD=INDD1,OUTDD=OUTDD2
      SELECT MEMBER=((DTCMFLDA,DTCMFLDS))
 COPY INDD=INDD1,OUTDD=OUTDD3
      SELECT MEMBER=((AUTODTCM,,R))
*COPY INDD=INDD1,OUTDD=OUTDD1
*     SELECT MEMBER=((DTCMK81M,DTCMKEY,R))
*COPY INDD=INDD1,OUTDD=OUTDD2
*     SELECT MEMBER=((DTCMK81A,DTCMKEY,R))
/*

where:

prefix

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

Create the Datacom URT to Access the Dictionary Structures

Member DTCMURT1 in 'prefix.DATACOM.DATA' contains JCL to create the DATACOM URT (AUTOURT1) needed to access the dictionary structures.

You must make the following changes to the DTCMURT1 JCL before submitting it:

• Supply a valid JOB card.

• Supply the high-level qualifier for the DATACOM macro library on the SYSLIB DD card.

• Provide the name of any valid PDS on the SYSLIN DD card in the ASMBL step. Also provide the name of the same PDS on the TEMPLIB DD card in the LINKEDIT step. The assembly step allocates and creates a member named URT in this PDS. The URT member is later referenced by the link-edit step. The URT member is not deleted after the job runs; it is used in the next step, job DTCMURT2.

• Provide the name of the data adapter load library, 'prefix.DATACOM.LOAD' on the SYSLMOD DD card in the LINKEDIT step.

Create the URT Access Module for AUTODATACOM

Member DTCMURT2 in 'prefix.DATACOM.DATA' contains the JCL to create the FOCUS URT Access Module (AUTOURT) that is referenced in the AUTODATACOM Access files. You must submit member DTCMURT1 before member DTCMURT2. It is recommended that you keep the library allocations of these two members consistent to avoid problems.

You must make the following changes to the DTCMURT2 JCL before submitting it:

• Supply a valid JOB card.

• Supply the name of the DATACOM macro library on the SYSLIB DD card.

• Provide the name of any valid PDS on the SYSLIN DD card in the ASMBL step. Also provide the name of the same PDS on the TEMPLIB DD card in the LINKEDIT step. The SYSLIN DD card allocates member named URT in this PDS, which was created in the DTCMURT1 job. The URT member is later referenced by the link-edit step. The URT member is not deleted after the job runs. You can delete this member after the job completes successfully.

• Provide the name of the data adapter source library, 'prefix.DATACOM.DATA' on the OLDMOD DD card in the LINKEDIT step.

• Provide the name of the data adapter load library, 'prefix.DATACOM.LOAD' on the SYSLMOD DD card in the LINKEDIT step.

Customize the Default Data Sets (Optional) in Datacom

You can control the DATASET names that display on the AUTODTCM menu screen by changing the default output data set names to conform to site-specific standards. The defaults for FOCUS and EDA are contained in member AUTODTCM of the 'prefix.FOCEXEC.DATA' data set. To make a change to the AUTDTCM FOCEXEC, scan for the line that specifies CHANGE THIS SET OF DEFAULTS. The total length of each value must be exactly 44 characters (&USERID accounts for 8 characters):

-* Change this set of defaults for FOCUS access.

-SET &DSNP0=&USERID ZZ124ZZZZ124ZZ'.FOCSQL.DATA                        '; 
-SET &DSNM0=&USERID ZZ124ZZZZ124ZZ'.MASTER.DATA                        '; 
-SET &DSNF0=&USERID ZZ124ZZZZ124ZZ'.FOCSQL.DATA                        '; 
-SET &DSND0=&USERID ZZ124ZZZZ124ZZ'.FOCDEF.DATA                        '; 
-IF &EDAAFD_DSN EQ ' ' GOTO DSN_DONE;
-*------------------------------------------------------------

-* Change this set of defaults for EDA access.

-SET &DSNP0=&USERID ZZ124ZZZZ124ZZ'.EDAAFD.DATA                        '; 
-SET &DSNM0=&USERID ZZ124ZZZZ124ZZ'.EDAMFD.DATA                        '; 
-SET &DSNF0=&USERID ZZ124ZZZZ124ZZ'.EDAAFD.DATA                        '; 
-SET &DSND0=&USERID ZZ124ZZZZ124ZZ'.FOCDEF.DATA                        ';