![]() |
Software > OpenVMS Systems > Documentation > 731final > 6489 > hanzi ![]() HP OpenVMS Systems Documentation |
![]() |
OpenVMS �û��ֲ�
14.20.2 ʹ�� PIPE ����ִ����ˮ����ˮ����һ�����ܵ����ӵ���ˮ�߶�����Դ�ֱ�� (|) �ָ�����ʾ����ˮ�߶������dz�������ˮ���е� DCL ����ܵ���һ����ˮ�߶������ SYS$OUTPUT ���ӵ���һ������� SYS$INPUT����ˮ�ߵĸ�ʽ������ʾ:
ÿ����ˮ�߶�������һ�������ӽ��������У����� SYS$OUTPUT ���ӵ���һ����ˮ�߶������ SYS$INPUT����Щ�ӽ��̲���ִ�У�Ȼ��������ͬ�������̶ֳȣ�����һ��֮�⣬ÿ����ˮ�߶������ȡ��һ���ı������Ϊ���ı����롣�����һ����ˮ�߶��������ʱ����ˮ�߾�ִ����ɡ� ����ˮ����ʹ�� "ɸѡӦ�ó���" �Ǻ���ͨ�ġ�ɸѡӦ�ó���������һ���������� SYS$INPUT ��ȡ���ݣ����ض������ı�����Ȼ�����д�� SYS$OUTPUT�� DCL ������Щ���������ˮ�ߵ���������������ͬ������:
14.20.3 ʹ�� PIPE ����ִ��������������һ�������÷ָ����ָ����������У���������Բ�����С�����ǵĸ�ʽ������ʾ:
����ǵ������������ӽ��̻�����ִ�С���ִ����һ����������֮ǰ��DCL �ȴ��������ɡ�( ) �ָ��������� SPAWN/WAIT ��� �������ʽʹ�� PIPE ����ʱ��ҪС�ĵش��������滻���ڶ�����ź����Ժ������������֮ǰʹ�úͺ� (&) �ӳٷ����滻����������滻��������������ĵ�һ���ڼ䣬�������ʱ����Ŷ����Dz��ɿ��ġ� 14.20.4 ʹ�� PIPE ����ִ�к�̨����ʹ�����¸�ʽ���������п������ӽ��̻�����ִ��:
DCL ���ȴ�����������ɡ�һ��������̨�ӽ��̣��Ͱѿ��ƴ��ݻ� DCL�� 14.20.5 ʹ�� PIPE �����ض�������/���������ִ���ڼ䣬�������п������� SYS$INPUT��SYS$OUTPUT �� SYS$ERROR �ض���һ���ļ���������ʾ:
��ˮ�߶�����Ҳ�����ض������� SYS$INPUT��SYS$OUTPUT �� SYS$ERROR��Ȼ����ֻ�������һ����ˮ�߶������ض��� SYS$OUTPUT������ֻ������һ����ˮ�߶������ض��� SYS$INPUT�� ע�⣬PIPE �����ض�����ͬ��ʹ�� DEFINE �� ASSIGN ��������ض�����������:
�� SYS$OUTPUT �ض���ʱ�����ǽ����ض��������ļ������������������Ƿ�ʵ����д�� SYS$OUTPUT������Ѿ��������ض�������ļ�ͬ�����ļ��汾����ô�ͽ�������ļ����°汾��(�����Ϊ���ڼල����ģʽ��ʹ�� DEFINE �� ASSIGN �������¶��� SYS$OUTPUT һ����) ע�⣬�ض�����ļ��������������ִ��֮ǰ���ѽ���������ض�����ļ�Ҳ���������˳����ʹ�ã���ô��������ʧ�ܣ�������������ʾ:
�� SYS$ERROR ���ض���ʱ���ض���ij����ļ�ֻ������������ִ���ڼ�ʵ��д�� SYS$ERROR ʱ�Ž���������û�������ļ����ض���ij����ļ�ͬ����������ض�������ļ�ͬ�����ļ��Ѿ����ڣ���ô����ļ��ͱ���Ϊ�ض���ij����ļ���Ȼ������������в����ij�����������ӵ��ض�������ļ���ĩ�ˡ�(�����Ϊ���ڼල����ģʽ��ʹ�� DEFINE �� ASSIGN �������¶��� SYS$OUTPUT һ����) 14.20.6 �ж� PIPE �������� Ctrl/Y�������ж� PIPE ������ PIPE ����������ˮ�����������������ִ�У�����������к� PIPE ����ͻᱻɾ��������������£��������жϺ����� CONTINUE �������ָ� PIPE �����ִ�С� ��� PIPE ��������ִ��һ���������У�����������ǻ���ˮ���������У���ô DCL ��ʱ������������еĴ�������һ������ PIPE ����ʵ� DCL ������ұ� Ctrl/Y �жϡ��й� Ctrl/Y �жϵ����飬����� 13.11 ���� 14.20.7 �Ľ��ӽ��̵IJ���������ִ���ڼ䣬PIPE ������Բ��������ӽ��̡�ͨ�������������е��õ�Ӧ�ó��������ڽ��������ͷ�����������������£�ʹ�� /NOLOGICAL_NAMES �� /NOSYMBOLS ���ʿ��Լ����ӽ��̵��������������ưѽ��������ͷ��Ŵ��ݸ� PIPE ��������ӽ��̡� ��������ʹ�� PIPE ����:
�� 15 ��
|
$ DIR_NAME = F$ENVIRONMENT("DEFAULT") $ SET DEFAULT DISK4:[TEST] . . . $ SET DEFAULT 'DIR_NAME' |
$! Redirect the output of the SHOW DEFAULT command to a file. $ DEFINE/SUPERVISOR_MODE SYS$OUTPUT DISK4:[TEST]TEMPFILE.DAT $ SHOW DEFAULT $ DEASSIGN SYS$OUTPUT $! $ OPEN/READ DIR_FILE DISK4:[TEST]TEMPFILE.DAT ! Open the file. $ READ DIR_FILE DIR_NAME, ! Read the file. $ SET DEFAULT 'DIR_NAME' ! Reset the directory. $ CLOSE DIR_FILE ! Close the file. $ DELETE DISK4:[TEST]TEMPFILE.DAT;* ! Delete the file. |
����������о�����Ҫ���Ľ���������Ȼ��ʹ֮�ָ���������ʹ�����´ʷ�������ý�����Ϣ:
F$DIRECTORY | ���ص�ǰĬ��Ŀ¼�ַ����� |
F$ENVIRONMENT | ���ؽ��̵����������Ϣ�� |
F$GETJPI | �����й����Ľ��̻�ϵͳ�ϵ��������̵ļ��ʡ�״̬�ͱ�ʶ��Ϣ�� |
F$MODE | չʾ����ִ�е�ģʽ�� |
F$PRIVILEGE | ָ�������Ƿ���ָ����Ȩ�� |
F$PROCESS | ���ؽ��̵����ơ� |
F$SETPRV | ����ָ����Ȩ���������Ҳָ��ָ����Ȩ�Ƿ���ʹ����� F$SETPRV ����֮ǰ������ |
F$USER | �����û���ʶ�� (UIC)�� |
F$VERIFY | ָ���Ƿ�У�顣 |
�±�չʾ��������������и��ĵĽ�������������Ҳ����������Щ�����Ĵʷ������ͻָ���ԭʼ���õ� DCL ���
���� | ���� | �����ʷ����� |
---|---|---|
�����ַ� | ���� | F$ENVIRONMENT("CONTROL") |
�ָ� | SET CONTROL | |
DCL ��ʾ | ���� | F$ENVIRONMENT("PROMPT") |
�ָ� | SET PROMPT | |
Ĭ�ϱ��� | ���� | F$ENVIRONMENT("PROTECTION") |
�ָ� | SET PROTECTION/DEFAULT | |
��״̬ | ���� | F$ENVIRONMENT("KEY_STATE") |
�ָ� | SET KEY | |
��Ϣ��ʽ | ���� | F$ENVIRONMENT("MESSAGE") |
�ָ� | SET MESSAGE | |
��Ȩ | ���� | F$PRIVILEGE �� F$SETPRV |
�ָ� | F$SETPRV �� SET PROCESS/PRIVILEGES | |
�� | ���� | F$VERIFY �� F$ENVIRONMENT |
�ָ� | F$VERIFY �� SET VERIFY |
���Ҫ�����������������ȷ��һ�������� Ctrl/Y �жϲ�����������ڻָ���ԭʼ����֮ǰ�˳���(�йس��������� Ctrl/Y �жϵ����飬������� 13 ����)
������ʹ�� F$VERIFY �ʷ�������������������ڼ��У�顣����ֹ�û���ִ�й����ڼ���ʾ���̵����ݡ�
��������:
����Ĭ�ϣ�SET [NO]VERIFY ����� F$VERIFY �������û�ͣ���������У�顣һ����ԣ��ڹ����й��̺�ӳ��У��������һ���� (���������ã���������ͣ��)��Ȼ���������������������ã���ô�ֱ𱣴�ÿ��У�����á�
�����������У����� TEMP ���������ͳ���У��:
$ ! Enable verification $ ! $ TEMP = F$VERIFY(1) $ LOOP: $ INQUIRE FILE "File name" $ IF FILE .EQS."" THEN EXIT $ PRINT 'FILE' $ GOTO LOOP $ ! Disable verification $ ! $ TEMP = F$VERIFY(0) $ EXIT |
����������������������:
$ ! Save each verification state $ ! Turn both states off $ SAVE_VERIFY_IMAGE = F$ENVIRONMENT("VERIFY_IMAGE") $ SAVE_VERIFY_PROCEDURE = F$VERIFY(0) . . . $ ! Restore original verification states $ SAVE_VERIFY_IMAGE = F$VERIFY(SAVE_VERIFY_PROCEDURE,- SAVE_VERIFY_IMAGE) |
F$ENVIRONMENT �������ص�ǰӳ��У�����ã��������ֵ������� SAVE_VERIFY_IMAGE��Ȼ��F$VERIFY �������ص�ǰ����У�����ã��������ֵ������� SAVE_VERIFY_PROCEDURE��F$VERIFY ��������������ӳ�����У�顣���� F$VERIFY ����У��֮ǰ������ʹ�� F$ENVIRONMENT ������ù���У�����á�Ȼ������һ����������ʹ�� F$VERIFY �������������Ĵ���϶̣�����һ��������ʾ��
��������̵�ĩ�ˣ�F$VERIFY �����ָ���ԭʼ���� (�ɷ��� SAVE_VERIFY_PROCEDURE �� SAVE_VERIFY_IMAGE ָ����)
���ʹ��ʱ�����Ҫ��סֻ������У��ʱ��Ӧ�������й�ʱ����� SET PREFIX ��������飬����� OpenVMS DCL Dictionary �� DCL ������ |
ǰҳ | ��ҳ | Ŀ¼ | ���� |