如何存储用户输入的输入，然后将其用作DCL中的SQL输入——OpenVMS

Question

我的要求是——我需要从用户那里获取输入（将两个字段作为输入），然后我将输入存储在一个符号中。但问题是——我无法使用该符号在 SQL 查询中...

$ start:
$ INQUIRE REF "Enter Emp_ID"
$ DEFINE/NOLOG Report_file 'REF'
$       if f$type (REF) .nes. "INTEGER"
$       then
$                       call error_menu "Error: Integer value Expected"
$               wait 0:0:0.15
$               set term/width=132
$               goto START
$       endif
$       if f$length (REF) .lt. 5 .and. f$length (REF) .gt. 5
$       then

$                       call error_menu "Error: emp_id Should be 5 digits"
$               wait 0:0:0.15
$               set term/width=132
$               goto START
$ INQUIRE FILE "Enter year"
$ DEFINE/NOLOG Report_file 'FILE'
$       if f$type (FILE) .nes. "INTEGER"
$       then
$                       call error_menu "Error: NON Integer Value..Please enter numeric value"
$               wait 0:0:0.15
$               set term/width=132
$               goto START
$       endif
$ call error_menu "Checking whether emp_id is present in Database !!!"
$ sqlplus/
   set feedback on
    define IEMP_ID = '&REF';
    define IYEAR = '&FILE'; 
select emp_id from employee where emp_id=&IEMP_ID and year = &IYEAR;
exit;

任何人都可以帮助我..简而言之，我只需要输入一次，然后我需要将它用于各种目的（主要是在许多 sql 查询中）。有没有可能这样做？

Answer 1

可能sqlplus无法访问DCL符号。（数字命令语言，不要与数据库控制语言混淆。）另一种方法是将命令写入临时文件，然后将其用作 sqlplus 的输入。类似于：

$ ! Your code to get user input...
$ !
$ ! Generate a temporary file with the SQLplus commands.
$ open/write SQL Sys$Login:SQLCommands.tmp
$ write SQL "set feedback on"
$ write SQL "define IEMP_ID = '" + Ref + "';"
$ write SQL "define IYEAR = '" + File + "';"
$ write SQL "select emp_id from employee where emp_id=&IEMP_ID and year = &IYEAR;"
$ write SQL "exit;"
$ close SQL
$ !
$ ! Run the SQLplus commands.
$ assign/user_mode Sys$Login:SQLCommands.tmp Sys$Input
$ sqlplus
$ !
$ ! Houseclean the temporary file.
$ delete Sys$Login:SQLCommands.tmp;0
$ !
$ ! That is all.
$ exit

如何存储用户输入的输入，然后将其用作DCL中的SQL输入——OpenVMS

How to store the input entered by user and then use it as a SQL input in DCL -- OpenVMS

sql

shell

dcl

openvms