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

Opening a UDB or UDB Pair for Access by NCL
Working With Files
12–28 106160 Tandem Computers Incorporated
IF &found > 0 THEN DO
/* FUP has created a new file */
SAY "Opening UDB for system-wide access"
INTCLEAR
INTCMD "UDBCTL OPEN="&filename" ID="&id
INTREAD
INTCONT
SAY "Opening UDB from NCL"
FILE OPEN UDBID=&id ID=LOCAL_1
SAY UDBID is &id ID is &SYS.FILE.ID
FILE OPEN UDBID=&id ID=LOCAL_2
SAY UDBID is &id ID is &SYS.FILE.ID
FILE OPEN UDBID=&id ID=LOCAL_3
SAY UDBID is &id ID is &SYS.FILE.ID
SAY "Closing UDB from NCL"
FILE CLOSE ALL
SAY "Closing UDB for system-wide access"
INTCLEAR
INTCMD "UDBCTL CLOSE="&filename
INTREAD
INTCONT
END /*do*/
END /*do until*/
END zex1202n
The following screen shows the results of executing the procedure:
(13:04) --------------------- OPERATOR CONTROL SERVICES ----------------------
START ZEX1202N $DATA2.JOHNNCLS.MYFILE
Opening UDB for system-wide access
NNM0300 OPEN REQUEST COMPLETE
Opening UDB from NCL
UDBID is ZEX1202N ID is LOCAL_1
UDBID is ZEX1202N ID is LOCAL_2
UDBID is ZEX1202N ID is LOCAL_3
Closing UDB from NCL
Closing UDB for system-wide access
NNM0300 CLOSE REQUEST COMPLETE
NNM1005 START ZEX1202N PROCESSING COMPLETE. NCLID 001536
_____________________________________________________________________________
---------- ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>
The name of the file, $DATA2.JOHNNCLS.MYFILE, is entered as the first parameter.