CA VISION:Results and CA Datacom Database Transparency Option for VSAM
To set up CA VISION:Results to interface with the CA Datacom Database Transparency Option for VSAM, please note:
Our software development team has created a custom modification to enable use of the CA Datacom Database Transparency Option for VSAM. You can get the custom modification from our Support Team at 1-800-328-7463. You must apply this custom modification as a patch to the CA VISION:Results software product.
Although the CA VISION:Results programs you have created remain unchanged, you must add JCL pointing to various CA Datacom databases, files and libraries to the CA VISION:Results execution JCL stream. Here's a z/OS JCL example showing the additional JCL statements in bold lettering:
//STEP1 EXEC PGM=DYL280
//STEPLIB DD DSN=your.results.loadlib,DISP=SHR
// DD DSN=your.datacom.install.CUSLIB,DISP=SHR
// DD DSN=your.datacom.install.CAILIB,DISP=SHR
// DD DSN=your.ca90s.loadlib,DISP=SHR
//CUSTMR DD DISP=SHR,SUBSYS=(ssss,'VUTNM=DVVUTPR')
//DB$VSAMT DD DSN=your.VSAM.transparency.model,DISP=SHR
//SYSCOPY DD DSN=your.results.copylib,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYS004 DD UNIT=VIO,SPACE=(TRK,(5,5))
//SYSOUT DD SYSOUT=*
//SYS280R DD SYSOUT=*
//SYSIN DD *
FILE CUSTMR KSDS F 153
$COBOL
01 CUS-RECORD.
05 CUS-ID.
10 IND-CD PIC X(01).
10 CUST-NO PIC 9(04).
05 CUS-NAME PIC X(30).
05 CUS-ADDR-1 PIC X(30).
05 CUS-ADDR-2 PIC X(30).
05 CUS-CITY PIC X(15).
05 CUS-STATE PIC X(02).
05 CUS-ZIP.
10 CUS-ZIP-5 PIC X(05).
10 CUS-ZIP-4 PIC X(04).
05 CUS-CREDIT-IND PIC X(01).
05 CUS-PHONE.
10 CUS-PHONE-AREA PIC X(03).
10 CUS-PHONE-EXCH PIC X(03).
10 CUS-PHONE-NUMB PIC X(04).
05 CUS-OPEN-DOLLAR PIC S9(7)V99 USAGE IS COMP-3.
05 CUS-YTD-SALES PIC S9(7)V99 USAGE IS COMP-3.
10 ACT-YR PIC X(02).
10 ACT-MO PIC X(02).
10 ACT-DAY PIC X(02).
05 SLMN-ID PIC X(05).
$ECOBOL
REPORT 132 WIDE
LIST CUS_ID CUS_NAME CUS_YTD_SALES
/*
//