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

Working With KeySequenced Files in a UDB Pair
Working With Files
106160 Tandem Computers Incorporated 12–91
CMDLINE "-GO ID="&SYS.NCLID _
PAUSE VARS=&key PARSE=NO SEGMENT=6
/* Construct and add record */
ASSIGN MDO=&rec. MAP=$NCL FROM VARS=&field*
SAY "Adding record "&rno" with key "&key" to "&distfile
FILE ADD KEY=&key MDO=&rec.
SAY "Key is "&SYS.FILE.KEY
SELECT &SYS.FILE.RC
WHEN 0 THEN SAY "0 Record added"
WHEN 4 THEN SAY "4 Record exists, not added"
WHEN 8 THEN SAY "8 Error "&SYS.FILE.ERROR
WHEN 16 THEN SAY "16 "&SYSMSG
OTHERWISE
SAY Unexpected error
END /*select*/
END /*&rno do*/
END add_records
/* ==================== CLOSE FILE ==================== */
close_file: PROCEDURE SHARE &distfile,&id
/* Close file from NCL and NonStop NET/MASTER */
SAY "Closing "&distfile
FILE CLOSE ID=&id
SELECT &SYS.FILE.RC
WHEN 16 THEN SAY "16 Closed"
OTHERWISE
SAY Unexpected error
END /*select*/
INTCMD "UDBCTL CLOSE="&distfile
INTREAD
INTCONT
END close_file
END zex1211n
The following screen shows the results of executing the procedure:
(11:24) --------------------- OPERATOR CONTROL SERVICES ----------------------
START ZEX1211N $DATA2.JOHNNCLS.CUSTFILE $DATA2.JOHNNCLS.DISTFILE
Creating file $DATA2.JOHNNCLS.CUSTFILE
NNM1468 File Utility Program - T9074D30 - (12FEB93) System \SYS1
NNM1468 Copyright Tandem Computers Incorporated 1981, 1983, 1985-1993
NNM1456 CREATED - $DATA2.JOHNNCLS.CUSTFILE
NNM0999 *END*
Creating file $DATA2.JOHNNCLS.DISTFILE
NNM1456 CREATED - $DATA2.JOHNNCLS.DISTFILE
NNM0999 *END*
NNM1469 Kill command processed
Opening $DATA2.JOHNNCLS.DISTFILE
NNM0999 *END*
8 Read, write, and delete access
Enter record 1 field 1
|NM1060 PROCEDURE ZEX1211N NCLID 2502 PAUSED
Enter record 1 field 2
|NM1060 PROCEDURE ZEX1211N NCLID 2502 PAUSED
Enter record 1 field 3
|NM1060 PROCEDURE ZEX1211N NCLID 2502 PAUSED
Enter record 1 field 4
NNM1060 PROCEDURE ZEX1211N NCLID 2502 PAUSED
---------- ------------------ NonStop NET/MASTER D30 ---------------- --------
PM=> -GO ID=2502