Data Definition Language (DDL) Reference Manual

Definitions and Records
Data Definition Language (DDL) Reference Manual—529431-004
5-20
Examples
Example 5-7. Qualifying Alternate Key Fields Whose Names Are the Same
RECORD phones .
FILE IS "\dallas.$data.sales.person"
KEY-SEQUENCED.
02 social-security PIC 9(9).
02 home-phone TYPE phone.
02 work-phone TYPE phone.
KEY IS social-security.
KEY "hc" IS home-phone.area-code.
KEY "wc" IS work-phone.area-code.
END
Example 5-8. Creating an Alternate Key File
DDL Source Code:
RECORD test-1.
FILE IS "Test1".
02 f-1 TYPE BINARY.
02 f-2 PIC X(10).
02 f-3 TYPE COMPLEX.
KEY "KY" IS f-2 FILE IS "AltKy" UPDATE NOT ALLOWED.
END.
FUP Output:
RESET
SET ALTKEY ("KY", KEYOFF 2, KEYLEN 10, FILE 0, NO UPDATE)
SET NO ALTCREATE
SET ALTFILE (0, AltKy)
SET TYPE R
SET REC 20
SET BLOCK 4096
SET EXT(4, 32)
SET MAXEXTENTS 100
CREATE Test1
RESET
SET TYPE K
SET KEYLEN 12
SET REC 16
SET BLOCK 4096
SET IBLOCK 4096
SET EXT(4, 32)
SET MAXEXTENTS 100
CREATE AltKy