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

Working With KeySequenced Files in a UDB Pair
Working With Files
12–100 106160 Tandem Computers Incorporated
WHEN 4 THEN SAY "4 Record not found or EOF"
WHEN 8 THEN SAY "8 Error "&SYS.FILE.ERROR
WHEN 16 THEN SAY "16 "&SYSMSG
OTHERWISE
SAY Unexpected error
END /*select*/
END /*do while*/
END get_records
/* ================= DELETE RECORD ==================== */
delete_record: PROCEDURE SHARE &key
/* Delete a record */
&answer = N
SAY "Delete record? (Y/N) Default=N"
CMDLINE "-GO ID="&SYS.NCLID _N
PAUSE VARS=&answer PARSE=NO SEGMENT=1
IF UPPER(&answer) = Y THEN DO
FILE DEL KEY=&key
SELECT &SYS.FILE.RC
WHEN 0 THEN SAY "0 Record deleted"
WHEN 4 THEN SAY "4 Record not found"
WHEN 8 THEN SAY "8 Error "&SYS.FILE.ERROR
WHEN 16 THEN SAY "16 "&SYSMSG
OTHERWISE
SAY Unexpected error
END /*select*/
END /*do*/
&key = ""
RETURN &key
END delete_record
/* ==================== CLOSE FILE ==================== */
close_file: PROCEDURE SHARE &custfile,&distfile,&id
/* Close UDB pair from NCL and NonStop NET/MASTER */
SAY "Closing "&custfile &distfile
FILE CLOSE ID=&id
SELECT &SYS.FILE.RC
WHEN 16 THEN SAY "16 Closed"
OTHERWISE
SAY Unexpected error
END /*select*/
INTCMD "UDBCTL CLOSE=("&custfile","&distfile")"
INTREAD
INTCONT
END close_file
END zex1216n