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

Working With Entry-Sequenced Files
Working With Files
106160 Tandem Computers Incorporated 12–55
The following screen shows the results of executing the procedure:
(11:29) --------------------- OPERATOR CONTROL SERVICES ----------------------
START ZEX1204N $DATA2.JOHNNCLS.MESUDB
Creating file $DATA2.JOHNNCLS.MESUDB
Opening $DATA2.JOHNNCLS.MESUDB
8 Read, write, and delete access
Enter record 1 field 1
|NM1060 PROCEDURE ZEX1204N NCLID 25 PAUSED
Enter record 1 field 2
|NM1060 PROCEDURE ZEX1204N NCLID 25 PAUSED
Enter record 1 field 3
|NM1060 PROCEDURE ZEX1204N NCLID 25 PAUSED
Enter record 1 field 4
|NM1060 PROCEDURE ZEX1204N NCLID 25 PAUSED
Adding record 1 to $DATA2.JOHNNCLS.MESUDB
0 Record added
Enter record 2 field 1
|NM1060 PROCEDURE ZEX1204N NCLID 25 PAUSED
Enter record 2 field 2
|NM1060 PROCEDURE ZEX1204N NCLID 25 PAUSED
Enter record 2 field 3
|NM1060 PROCEDURE ZEX1204N NCLID 25 PAUSED
Enter record 2 field 4
AUTO HOLD ------------------ NonStop NET/MASTER D30 ---------------- --------
PM=>
Example—Getting Records From an Entry-Sequenced File
The following NCL procedure gets records from a mapped entry-sequenced file and
displays them at the OCS window:
zex1205n: PROCEDURE
/* Reads records from mapped entry-sequenced UDB */
ON ERROR FLUSH
IF &1 = "" THEN DO
SAY "Must enter file name as first parameter"
FLUSH
END /*do*/
ELSE
&filename = &1
&id = MESUDB
CALL open_file SHARE &filename,&id
CALL get_records SHARE &filename,&id
CALL close_file SHARE &filename,&id
EXIT
/* ==================== OPEN FILE ==================== */
open_file: PROCEDURE SHARE &filename,&id
/* Opens file for NonStop NET/MASTER and NCL */
SAY "Opening "&filename
INTCMD "UDBCTL OPEN="&filename" ID="&id
INTREAD
FILE OPEN ID=&id FORMAT=MAPPED MAP=$NCL
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"