DDI statements - VSAM

Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

The following four types of DDI statements specify your VSAM files, record indexes, and COBOL record descriptions.

Description and Syntax:

Statement Type	Description andSyntax
*DDI VSM	Specifies the VSAM file external ddname. Identifies VSAM file attributes.
	*DDI VSM DDN=`extddn`, TYPE=K\|E\|R, VSPREFIX=`fileprefix`, [CYL\|TRK\|REC(`size)`], CISZ(`cntlintrvalsize)`, VOL(`volname)`, CAT=`catname`, [`idcamskeywrds`]
*DDI REC	Specifies the copybook record name with the longest MAXLEN. Each copybook record must have a *DDI REC statement.
	*DDI REC NAME=`recname`, SHORT=`shrtrecname`, COPY=`mbrname`, SOURCE=P\|C\|, `MAXLEN=maxreclen`, AVGLEN=`avgreclen`
*DDI IDX	Required for keyed files. Specifies the keyed field name and copybook file name. Must immediately follow the *DDI REC statement. Write overlapping record keys as ordinary DDI IDX statements. AMB generates IDCAMS KEYS keywords according to the OFFSET and KEYLEN keywords on the DDI IDX statement.
	*DDI IDX NAME=`cpylibreckeyfldname`, [ALIAS=`redefinefld`], TYPE=P\|U\|D, KEYLEN=`keyfldlen`, OFFSET=`position`, DDN=`indxddname`, PIC=`number`,[`idcamskeywrds`]
*DDI SUB	Specifies the copybook record name(s) used by AMB programs, record processing, batch options, and VSAM file external ddname. Defines a data view for the VSAM file. Note: To define a data view with multiple VSAM files, assign DDI SUB statement parameters for each VSAM file.
	*DDI SUB NAME=`subschemaname`, RECORD=`recname`, PROCOPT=A\|G\|I\|D\|R, [ACCESS=`opt`], [BLOCK=0], [LABEL=STANDARD], [ASSIGN=`extddname`

Parameters:

DDI Statement	Argument	Value	Len	Req	Default
*DDI VSM	DDN	File external `ddname`	8	yes	none
	TYPE	K(eyed)E(ntry)R(elative)	1	yes	K
	VSPREFIX	File prefix	NA	yes	none
	CYL,TRK or REC	Choose one	NA	yes	none
	CISZ	ControlInterval Size	NA	yes	4096
	VOL	Volume name	NA	yes	none
	CAT	Catalog name	NA	yes	none
	Other IDCAMS keywords	IDCAMS syntax	NA	no	none
*DDI REC	NAME	Recname	30	yes	none
	SHORT	Shrtrecname	8	yes
	COPY	Membername	8	yes
	SOURCE	Method used to put copybook members in program. P=via an %INCLUDE statement; C=via COBOL COPY command	1	yes	none
	MAXLEN	Maximum record length	NA	yes	none
	AVGLEN	Average record length	NA	yes	MAXLEN
*DDI IDX	NAME	copybook record key field name	30	yes	none
	ALIAS	File that uses multiple copybook records. The name of the field that redefines NAME	30	no	none
	TYPE	Index type--P(rimary) first index must be P; U(nique);D(uplicate)	1	yes	none
	KEYLEN	Length of key field	4	yes	none
	OFFSET	Offset position of the field relative to the beginning of the record. The first position is 0	4	yes	none
	DDN	`Ddname` of the index	24	yes	Primary=`ddname`
	PIC	`Ddname` of the index	24	yes	alphanumeric
	IDCAMS overrides	IDCAMS syntax	NA	no	none
*DDI SUB	NAME	Unique data view name	8	yes	none
	RECORD	Value of the first (or only) DDI REC statement NAME keyword	30	yes	none
	PROCOPT	Process control optionsA(ll)G(et)I(nsert)D(elete)R(eplace)	1	no	A
	ACCESS or ACC	Batch access options	NA	no	dynamic for KSDS files; sequential for ESDS/RRDS
	BLOCK	0	NA	no	0
	LABEL	STANDARD	NA	no	STANDARD
	ASSIGN or AS	VSAM file external `ddname`	8	no	value of DDN parm in the DDI VSM statement

Comments:

Code a DDI VSM statement to correspond to the VSAM file external ddname. This statement identifies VSAM file attributes.
Code a DDI REC statement for each copybook record to correspond to the copybook record name and copybook filename with the longest MAXLEN.
If the top-level copybook records do not begin with 01, set the global flags &VS-GEN-01-USING-RECNAMES and GEN-DB-REC-01-NAMES in AMB CNTL files APVSAMIN and APSDBDC respectively to yes.
If the VSAM file is keyed, write a DDI IDX statement for each index that corresponds to keyed copybook field name and copybook file name. All DDI IDX statements must immediately follow the DDI REC statement. Write overlapping record keys as ordinary DDI IDX statements. AMB generates IDCAMS KEYS keyword according to the OFFSET and KEYLEN keywords on the DDI IDX statement
Code a DDI SUB statement to correspond to the copybook record name(s) and VSAM file external ddname. This statement defines a data view for the VSAM file.
To define a data view with multiple VSAM files, assign a RECORD keyword to each VSAM file you want to include.
For mixed target data views, the names of the SQL and VSAM or IMS data views must be identical. That is, the CREATE SUBSCHEMA name or SQLDDL\filename must be identical to either the VSAM DDI statement value DDI SUB=subschemaname or the IMS DDI statement value DDI DBD=dbdname.

Example: DDI for Fixed-length keyed sequential (KSDS) File

*DDI VSM DDN=EMPLOYEE
*DDI       TYPE=K,VSPREFIX=VQAC6550.APS17X,
*DDI       TRK(100 10),CISZ(8192),VOL(SAGE03),
*DDI       REPLICATE,FSPC(15 15),SHR(1 3),NOIMBED
*DDI REC NAME=EMPLOYEE-RECORD,SHORT=EMPL,
*DDI       COPY=EMPLOYEE,SOURCE=P,
*DDI       MAXLEN=56
*DDI IDX NAME=EMPL-EMP-NUM,TYPE=P,KEYLEN=6,OFFSET=0,
*DDI       DDN=EMPLOYEE,TRK(5 5),VOL(SAGE03)
*DDI IDX NAME=EMPL-SOURCE-CODE,TYPE=D,
*DDI       KEYLEN=6,OFFSET=30,DDN=EMPLOYE1,
*DDI       TRK(3 3),VOL(SAGE03),NOIMBED
*DDI IDX NAME=EMPL-SALARY,TYPE=D,
*DDI       KEYLEN=4,OFFSET=36,DDN=EMPLOYEZ,
*DDI       PIC=9(7)COMP-3,TRK(3 3),VOL(SAGE03)
*DDI SUB NAME=SAMPPGM,RECORD=EMPLOYEE-RECORD,PROCOPT=A,
*DDI       LABEL=STANDARD,BLOCK=200,ASSIGN=EMPLOYEE

Example: Copybook for a Variable-length KSDS file (with one index accessing multiple records)

% * CICS RECORDS ARE REDEFINED FOR WORKING-STORAGE.
% * Z/OS RECORDS NOT REDEFINED;ARE PLACED DIRECTLY UNDER FD.
% IF &APS-MDC = "CICS-TP"
    &VSSUF = "  REDEFINES ORDER-RECORD"
% ELSE
    &VSSUF = ""
01  ORDER-RECORD.
    05  ORDER-KEY                   PIC X(05).
    05  ORDER-RECORD-TYPE           PIC X(01).
    05  ORDER-CUST-NUMBER           PIC X(07).
    05  ORDER-PART-NUMBER           PIC X(07).
    05  ORDER-QUANTITY-ORDERED      PIC 9(05).
    05  ORDER-QUANTITY-TYPE         PIC X(10).
    05  ORDER-ORDER-AMOUNT          PIC 9(05)V99.
    05  ORDER-ORDER-STATUS          PIC X(04).
01  ORDER-PART-RECORD &VSSUF.
    05  FILLER                      PIC X(06).
    05  PART-NAME                   PIC X(05).
    05  PART-DESCRIPTION            PIC X(25).
    05  PART-SUPPLIER-NBR           PIC X(07).
    05  PART-SUPPLIER-NAME          PIC X(25).
01  ORDER-DELV-RECORD &VSSUF.
    05  FILLER                      PIC X(06).
    05  DELV-CONTACT-NAME           PIC X(30).
    05  DELV-CONTACT-PHONE          PIC X(12).
    05  DELV-ADDRESS                PIC X(35).
    05  DELV-SPECIAL-INSTRUCTIONS   PIC X(50).

Example: DDI for Variable-Length KSDS Files

*DDI VSM DDN=ORDER
*DDI REC NAME=ORDER-RECORD,SHORT=ORDER,COPY=ORDER,SOURCE=P,
*DDI     MAXLEN=133,AVGLEN=46
*DDI IDX NAME=ORDER-KEY,TYPE=P,KEYLEN=5,OFFSET=0,DDN=ORDER
*DDI REC NAME=ORDER-PART-RECORD,SHORT=PART,MAXLEN=68
*DDI REC NAME=ORDER-DELV-RECORD,SHORT=DELV,MAXLEN=133
*DDI SUB NAME=ORDERSS,
*DDI     RECORD=ORDER-RECORD,PROCOPT=A,
*DDI     LABEL=STANDARD,BLOCK=0,ASSIGN=ORDER

Example: DDI Statements for Generating DDISYMB

*DDI VSM DDN=PERSON
*DDI     TYPE=K,VSPREFIX=VAPS6550,
*DDI     CISZ(4096),VOL(PDVL02),TRK(5 5)
*DDI REC NAME=PERSONNEL-RECORD,SHORT=PERSONEL,
*DDI     COPY=PERSONEL,SOURCE=P,MAXLEN=80,PREFIX=PER
*DDI IDX NAME=SSA,ALIAS=SSA-X,TYPE=P,KEYLEN=9,
*DDI     OFFSET=0,DDN=PERSON,
*DDI     TRK(5,5),VOL(PDVL02)
*DDI IDX NAME=LAST-NAME,TYPE=D,KEYLEN=15,
*DDI     OFFSET=9,DDN=PERSON1,
*DDI     TRK(5,5),REUSE,VOL(PDVL02)
*DDI IDX NAME=TITLE,TYPE=D,KEYLEN=15,
*DDI     OFFSET=24,DDN=PERSON2,
*DDI     TRK(5,5),REUSE,VOL(PDVL02)
*DDI SUB NAME=SAMPLE,RECORD=PERSONNEL-RECORD,
*DDI     PROCOPT=A

Example: DDI for Data Views Containing Multiple VSAM Files

*DDI VSM DDN=DMOPART
*DDI     TYPE=K,VSPREFIX=CTSAPS.DEMO,TRK(10 10),VOL(WIN004),
*DDI     CISZ(4096)
*DDI REC NAME=PART-MASTER-REC,SHORT=DMOPART,COPY=DMOPART
*DDI     SOURCE=P,MAXLEN=80
*DDI IDX NAME=PM-PART-NO,TYPE=P,KEYLEN=8,OFFSET=0,
         DDN=DMOPART,TRK(1,1)
*DDI VSM DDN=DMOSTCK
*DDI     TYPE=K,VSPREFIX=CTSAPS.DEMO,TRK(10 10),VOL(WIN004),
*DDI     CISZ(4096)
*DDI REC NAME=PART-STOCK-REC,SHORT=DMOSTCK,COPY=DMOSTCK
*DDI     SOURCE=P,MAXLEN=80
*DDI IDX NAME=PS-STOCK-KEY,TYPE=P,KEYLEN=20,OFFSET=0,
*DDI     DDN=DMOSTCK,TRK(1,1)
*DDI IDX NAME=PS-PART-NO,TYPE=D,KEYLEN=8,OFFSET=0,
*DDI     DDN=DMOSTCKX,TRK(1,1)
*DDI SUB NAME=DMVMNU,RECORD=PART-MASTER-REC,PROCOPT=G,
*DDI     ACC=DYNAMIC,AS=DMOPART
*DDI SUB NAME=DMVINQ,RECORD=PART-MASTER-REC,PROCOPT=A,
*DDI     ACC=DYNAMIC,AS=DMOPART
*DDI SUB NAME=DMVUPD,RECORD=PART-MASTER-REC,PROCOPT=A,
*DDI     ACC=DYNAMIC,AS=DMOPART
*DDI SUB NAME=DMVLST,RECORD=PART-STOCK-REC,PROCOPT=A,
*DDI     ACC=DYNAMIC,AS=DMOSTCK

*DDI      RECORD=PART-MASTER-REC,PROCOPT=A,ACC=DYNAMIC,
*DDI      AS=DMOPART