Previous Topic Next topic Print topic


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
Previous Topic Next topic Print topic