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

User-Defined Maps
Standard and User-Defined Maps
11–36 106160 Tandem Computers Incorporated
/* sequenced file. The UDBCTL OPEN command opens a */
/* file for access by NonStop NET/MASTER.) */
/* It is recommended that KEYEXTR is equal to NO for */
/* files mapped with a user-defined map. */
FILE OPEN FORMAT=MAPPED MAP=&usermap ID=&id KEYEXTR=NO
SELECT &SYS.FILE.RC
WHEN 0 THEN SAY "0 Read-only access"
WHEN 4 THEN SAY "4 Read and write access"
WHEN 8 THEN SAY "8 Read, write, and delete access"
WHEN 12 THEN SAY "12 No access"
WHEN 16 THEN SAY "16 "&SYSMSG
OTHERWISE
SAY Unexpected error
END /*select*/
EXIT &SYS.FILE.RC
END open_file
/* ==================== ADD RECORD ==================== */
add_record: PROCEDURE SHARE &usermap
/* Adds one record, mapped by a user-defined map. */
ASSIGN MDO=&addmdo. MAP=&usermap
&addmdo.empcode = 77
&addmdo.empname.lastname = Smith
&addmdo.empname.firstname = John
&addmdo.empname.midinit = ABC
&addmdo.empaddr.street = 99 Spring St
&addmdo.empaddr.city = Mycity
&addmdo.empaddr.state = Mystate
&addmdo.empaddr.zip = 12345
&addmdo.empbday = 15May59
&addmdo.empsex = m
&addmdo.empdep.depnum.regnum = 9
&addmdo.empdep.depnum.branchnum = 5
&addmdo.empdep.deptype = education
&addmdo.emppay{1}.day = 31
&addmdo.emppay{1}.month = Jan
&addmdo.emppay{1}.year = 99
&addmdo.emppay{2} =
&addmdo.emppay{3} = 31Mar99
&addmdo.emppay{4} =
&addmdo.emppay{5} = 31May99
&addmdo.emppay{6} =
&addmdo.emppay{7} = 31Jul99
&addmdo.emppay{8} =
&addmdo.emppay{9} = 30Sep99
&addmdo.emppay{10} =
&addmdo.emppay{11} = 30Nov99
&addmdo.emppay{12} =
FILE PUT MDO=&addmdo. KEY=&addmdo.empcode
SELECT &SYS.FILE.RC
WHEN 0 THEN DO
SAY "0 Record added"
SAY "PUT KEY operand value is |"&addmdo.empcode"|"
SAY "PUT &SYS.FILE.KEY value is |"&SYS.FILE.KEY"|"
END /*do*/
WHEN 4 THEN SAY "4 Record exists, not added"
WHEN 8 THEN SAY "8 Error "&SYS.FILE.ERROR