Data Definition Language (DDL) Reference Manual

Sample Schemas
Data Definition Language (DDL) Reference Manual—529431-004
B-3
Database Schema Listing
!***************************************************************
! FIELD DEFINITIONS
!***************************************************************
DEFINITION custnum PIC 9(4)
HEADING custnum-heading.
DEFINITION suppnum PIC 9(4)
HEADING suppnum-heading.
DEFINITION partnum PIC 9(4)
HEADING partnum-heading.
DEFINITION ordernum PIC 9(4)
HEADING ordernum-heading.
DEFINITION empnum PIC 9(4)
HEADING empnum-heading.
DEFINITION regnum PIC 9(2)
HEADING regnum-heading
MUST BE 1 THRU 99.
DEFINITION branchnum PIC 9(2)
HEADING branchnum-heading
MUST BE 1 THRU 99.
DEFINITION zip-cd PIC 9(5).
!***************************************************************
! GROUP DEFINITIONS
!***************************************************************
DEFINITION name.
02 last-name PIC X(12)
UPSHIFT.
02 first-name PIC X(8)
UPSHIFT.
02 midinit PIC X(2)
UPSHIFT.
END
DEFINITION addr.
02 address PIC X(22).
02 city PIC X(14).
02 state PIC X(2)
HELP "Enter 2-character code".
02 zip TYPE zip-cd.
END
DEFINITION mdy-date. DISPLAY mdy-date-display
HELP "Enter date as:"
"mm/dd/yy".
02 month PIC 99
MUST BE 1 THRU 12.
02 day-of-month PIC 99
MUST BE 1 THRU 31.
02 year PIC 99.
END
!***************************************************************
! RECORD DEFINITIONS
!***************************************************************
* Definition for CUSTOMER Record
DEFINITION custinfo.
02 custnum TYPE *.
02 custname TYPE name.
02 addr TYPE *.
END
Figure B-1. Database Schema Listing (page2of5)