NET/MASTER Network Control Language (NCL) Programmer's Guide

User-Defined Maps
Standard and User-Defined Maps
11–30 106160 Tandem Computers Incorporated
02 midinit PIC X(1).
END
DEF address.
02 street PIC X(25).
02 city PIC X(14).
02 state PIC X(3).
02 zip PIC 9(5).
END
DEF date.
02 day PIC 9(2).
02 month PIC X(3).
02 year PIC 9(2).
END
DEF department.
02 depnum.
04 regnum PIC 9.
04 branchnum PIC 9.
02 deptype TYPE ENUM.
89 sales.
89 marketing.
89 admin.
89 education.
89 development.
END
DEF empdef.
02 empcode PIC 9(4).
02 empname TYPE name.
02 empaddr TYPE address.
02 empbday TYPE date.
02 empsex PIC X.
02 empdep TYPE department.
02 emppay OCCURS payperiod TIMES
TYPE date.
END
RECORD emprec.
FILE IS "$DATA2.UDDL.EMPFILE" KEY-SEQUENCED.
DEF IS empdef.
KEY IS emprec.empcode.
END
The source schema file has one constant (PAYPERIOD) with a value of 12. This is used
in the definition of the EMPPAY field to determine the number of occurrences of the
field.
The schema defines five definitions (NAME, ADDRESS, DATE, DEPARTMENT, and
EMPDEF). The NAME, ADDRESS, and DATE groups are defined with fields at the
same level. The DEPARTMENT group is defined with one group (DEPNUM) and one