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

Opening a UDB or UDB Pair for Access by NCL
Working With Files
106160 Tandem Computers Incorporated 12–23
&found = POS("CREATED -",&text)
IF &found > 0 THEN DO
/* FUP has created a new file */
SAY "Opening UDB for system-wide access"
INTCLEAR
INTCMD "UDBCTL OPEN="&filename" ID=ZEX1201N"
INTREAD
INTCONT
SAY "Opening UDB from NCL"
FILE OPEN ID=ZEX1201N
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*/
SAY "Closing UDB from NCL"
FILE CLOSE ID=ZEX1201N
SAY "Closing UDB for system-wide access"
INTCLEAR
INTCMD "UDBCTL CLOSE="&filename
INTREAD
INTCONT
END /*if*/
END /*do until*/
END zex1201n
The following screen shows the results of executing the procedure:
(08:06) --------------------- OPERATOR CONTROL SERVICES ------------------------
START ZEX1201N $DATA2.JOHNNCLS.JNFILE
Opening UDB for system-wide access
NNM0300 OPEN REQUEST COMPLETE
Opening UDB from NCL
8 Read, write, and delete access
Closing UDB from NCL
Closing UDB for system-wide access
NNM0300 CLOSE REQUEST COMPLETE
NNM1005 START ZEX1201N PROCESSING COMPLETE. NCLID 000506
_____________________________________________________________________________
--
-------- ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>