[an error occurred while processing this directive]
Software  >  OpenVMS Systems > Documentation > 731final > 6489 > hanzi

HP OpenVMS Systems Documentation

Content starts here

OpenVMS �û��ֲ�


ǰҳ Ŀ¼ ����

13.11.2 ֹͣ��Ȩӳ��

���ж�ִ����Ȩӳ��ʱ�����Ҫ����ӳ��������Ŀ������� CONTINUE��SPAWN �� ATTACH �����������κ��������� (���������򸽼��ӽ����ڵ�����֮��)����Ȩӳ��ͱ�ǿ���˳���

13.12 ���� Ctrl/Y ���������

���¼�������������� Ctrl/Y �������г���

13.12.1 ʹ�� ON ����

ON ������ڳ�������²�ȡ�Ķ��������ṩһ������Ϊ���������ִ���ڼ䷢���� Ctrl/Y �ж϶���һ���������г�����ָ���Ķ���ȡ��Ĭ�� Ctrl/Y ���� (���� Ctrl/Y �����ʾ��������)������:


$ ON CONTROL_Y THEN EXIT

�������ִ����� ON �����ô�ڹ���ִ���ڼ�ĺ��� Ctrl/Y �ж�ʹ��������˳������Ʊ����ݸ���һ�������

������ Ctrl/Y �ж�ʹ�� ON CONTROL_Y �Ĺ���ʱ����ȡ���¶���:

  • �����ǰִ�е���������������ͳ�����ִ�е�����������������ȡ Ctrl/Y ������
  • �����ǰ����������ͨ��һ��ӳ��ִ�У�������������ͳ������ӳ��ͱ�ǿ���˳�����ȡ Ctrl/Y ������Ȼ����������ӳ��������һ���˳�����������ô����˳�����������ڲ�ȡ Ctrl/Y ����֮ǰִ�С��� Ctrl/Y ����֮���ܼ������ӳ��

13.12.2 ���� Ctrl/Y ����

ִ�� Ctrl/Y �����Զ���������Ĭ�ϵ� Ctrl/Y ���� (���� Ctrl/Y �����ʾ��������)��Ctrl/Y ����������Чֱ��������������֮һ:

  • ������ֹ (���ư��� Ctrl/Y��ִ�� EXIT �� STOP �����Ĭ�ϳ����������������Ľ��)��
  • ִ����һ�� ON CONTROL_Y ���
  • ִ�� SET NOCONTROL=Y ����Ĺ��� (����� 13.13 ��)��

Ctrl/Y ����������ÿ������ָ��������ֻӰ��ָ���������

��������չʾ���������ִ��ʱ��ÿ�� Ctrl/Y �жϵ���ִ�� SHOW TIME �����ÿ�� SHOW TIME ����ִ��֮�󣬹��ָ̻�ִ�����ж�����֮������


$ ON CONTROL_Y THEN SHOW TIME

ͼ 13-2 ˵�� Ctrl/Y �ж�����ִ������

ͼ 13-2 Ctrl/Y �������ִ����


  1. ��ִ�� TYPE �����ڼ䷢�� Ctrl/Y �жϡ�
  2. Ȼ�󣬿��ƴ��ݵ���� CLEAN_UP��
  3. ��ִ��������г���֮����������˳������ص����������
  4. �� TYPE ����ִ���ڼ䷢�� Ctrl/Y �жϡ�
  5. ִ���� ON ������ָ���� WRITE ���
  6. ������̼���ִ�����ж�����֮������

ͼ 13-3 ˵����Ƕ���������ִ���ڼ䰴�� Ctrl/Y ʱ�ᷢ��ʲô���顣

ͼ 13-3 ��Ƕ�׹����е� Ctrl/Y


  1. ִ�� SEARCH.COM ʱ��������� Ctrl/Y �жϣ���ô���Ʊ����ݵ���� CLEAN_UP��
  2. ִ�� SUBSEARCH.COM ʱ��������� Ctrl/Y �жϣ������򱻴��ݵ� SEARCH.COM �еı�� NEXT_STEP��
  3. ��Ϊ�� SUBSEARCH.COM ��û��ָ�� Ctrl/Y ��������˷��� Ctrl/Y �ж�ʱ�������˵���һ�������
  4. ִ�� SUBSUB.COM ʱ��������� Ctrl/Y �жϣ���ִ�� SHOW TIME��

13.13 ���������� Ctrl/Y �ж�

���¼���������γ��������� Ctrl/Y �жϡ�

13.13.1 ʹ�� SET NOCONTROL=Y

SET NOCONTROL=Y ����� Ctrl/Y ����������˵������������ִ�� SET NOCONTROL=Y ������� Ctrl/Y ��û��Ч����

SET NOCONTROL=Y ����Ҳȡ����ǰ�� ON CONTROL_Y ������� Ctrl/Y ������Ҫ���½���Ĭ�� Ctrl/Y ������ʹ��������������:


$ SET NOCONTROL=Y
$ SET CONTROL=Y

SET NOCONTROL=Y ����� Ctrl/Y ��������ȡ����ǰ ON CONTROL_Y ������SET CONTROL=Y �������� Ctrl/Y ����������һ���ϣ�Ĭ�϶����ͱ���ԭ������˵������ڹ���ִ���ڼ䰴�� Ctrl/Y����ô������ͳ������ Ctrl/Y �����ʾ�������

�������κ����ʹ�� SET NOCONTROL=Y �����Ӱ�����������ֱ�� SET CONTROL=Y ������������ Ctrl/Y ������

13.13.2 ʹ�� SET CONTROL=Y

ON CONTROL_Y �������Ч��ֱ��ִ����һ�� ON CONTROL_Y �� SET NOCONTROL=Y ���������������˳���

�� Ctrl/Y ����ʱ��Ҫ�˳��޾�ѭ���������һ���ն�ʹ�� DCL ���� STOP ɾ�����Ľ��̡��������Ĭ�� Ctrl/Y �������;���������������Ҫ��������Ĭ�� Ctrl/Y ��������ִ�� SET NOCONTROL=Y ���������� SET CONTROL=Y ���

�������������У����ļ����ڱ�����ʱ���� Ctrl/Y �Ͱѿ��ƴ��ݸ���� END_TYPE:


   .
   .
   .
$! Type a file
$ IF COMMAND .NES. "TY" THEN GOTO END_TYPE
$ ON CONTROL_Y THEN GOTO END_TYPE
$ TYPE 'FILESPEC'
$END_TYPE:
$!
$! Reset default
$ SET NOCONTROL=Y
$ SET CONTROL=Y
   .
   .
   .

ע��

ON CONTROL_Y �� SET NOCONTROL=Y �������������Ӧ�ó���һ����ԣ�Compaq ������������ Ctrl/Y �жϡ��� Ctrl/Y ����ʱҪ�˳�һ���޾�ѭ��������ɾ�� (����һ���ն�) ִ�����ѭ�����̵Ľ��̡�

13.14 �����������ʹ�������������

����������е�ÿ�� DCL ����ִ�����ʱ��������ͳ��򱣴�����������ֹԭ����������롣����������ָ���ɹ���ɣ����߱�ʶһ��֪ͨ�������Ϣ��

������ͳ�������ִ��������̵�ÿ������֮����������롣�������һ����Ҫ���⶯���ij�����ϵͳ��ִ���������������ִ�й��̵���һ�����

13.14.1 ��ʾ������ ($STATUS)

������ͳ�����������뱣��Ϊ�ڱ���ȫ�ַ��� $STATUS �е� 32 λ���֡�$STATUS ���ŷ���ϵͳ��������ĸ�ʽ��������ʾ:

  • λ 0--2 ������Ϣ�����ؼ���
  • λ 3--15 ������Ϣ��š�
  • λ 16--27 �����������Ϣ����ʩ����������
  • λ 28--31 �����ڲ��Ŀ��Ʊ�ǡ�

����ɹ����ʱ��$STATUS ��һ������ֵ��(λ 0--2 ���� 1 �� 3��) �����κ����͵ľ�������ʱ��$STATUS ��һ��ż��ֵ��(λ 0--2 ���� 0��2 �� 4��) ������ͳ���ά������ʾ $STATUS ��ǰ��ʮ������ֵ��ͨ������ SHOW SYMBOL $STATUS ���������ʾ $STATUS �� ASCII ���롣

�����������У��ļ��� (%FRED.LIS) �������:


$ CREATE %FILE.LIS
%CREATE-E-OPENOUT, error opening %FRED.LIS; as output
-RMS-F-WLD, invalid wildcard operation
$ SHOW SYMBOL $STATUS
  $STATUS = " %X109110A2"
$ WRITE SYS$OUTPUT F$MESSAGE(%X109110A2)
  %CREATE-E-OPENOUT, error opening !AS as output

13.14.2 ʹ�� EXIT �����������

��������˳�ʱ��������ͳ����� $STATUS �з�����һ��������������롣���������ṩ�й���������Ƿ�ɹ�ִ�е���Ϣ��

�����������ʹ�� EXIT ����ʱ������ָ��һ��ֵȡ�� DCL ������ $STATUS ��ֵ�����ֵ������Ϊ״̬�룬����ָ��Ϊһ�����ͱ���ʽ��

������̰���������������Ƕ�׹���ʱ������ʹ�� EXIT �����һ����ȷȡ��Ĭ���������ֵ��

������������������:


$! This is file A.COM
$!
$ @B
   .
   .
   .


$! This is file B.COM
$!
$ ON WARNING THEN GOTO ERROR
   .
   .
   .
$ ERROR:
$ EXIT 1 

B.COM �е� ON ������ζ�ţ��� B.COM ִ��ʱ������κξ��桢���������س�����������̾ͱ�ָ������� ERROR���������������ȷ����Ϊ 1��ָ���ɹ�����ˣ��� B.COM ��ֹʱ��������һ���ɹ������ A.COM���������Ƿ������

13.14.3 �������ؼ�

$STATUS �ĵͶ� 3 λ��ʾ����������ֹ�����������ԡ��ⲿ��������������ڱ�����ȫ�ַ��� $SEVERITY �С�$SEVERITY ���ŵ�ֵ������ 0 �� 4 ������ÿ��ֵ��ʾ�������ؼ�֮һ:

ֵ ������
0 ����
1 �ɹ�
2 ����
3 ֪ͨ
4 ������ (���ص�) ����

ע�⣬�ɹ���֪ͨ����������ֵ��������ͳ���������ż��ֵ��

13.14.4 ���Գɹ����

ʹ�ö� $SEVERITY �� $STATUS ִ���߼����Ե� IF ������Բ��������Ƿ�ɹ���ɣ�������ʾ:


$ IF $SEVERITY THEN GOTO OKAY
$ IF $STATUS THEN GOTO OKAY

��� $SEVERITY �� $STATUS ���� (��) ֵ�� ��Щ IF ����Ͱѿ�����ת�Ƶ���� OKAY���� $SEVERITY �� $STATUS �ĵ�ǰֵ������ʱ����������ͳɹ���ɡ������������û�гɹ���ɣ���ô $SEVERITY �� $STATUS ����ż������ˣ�IF ����ʽΪ�١�

������������Ƿ�Ϊ�棬�����Բ������Ƿ��Ǽ١�����:


$ IF .NOT. $STATUS THEN ...

������ͳ���ʹ��������������ؼ�ȷ���Ƿ��ȡ ON �����Ķ������� 13.9 �� ������

13.15 ʹ�ò����� $STATUS ������

����ϵͳ���ó���Ĵ���� DCL �������ʱ�����״ֵ̬�ͳ�����Ϣ��Ȼ�����м�������ɹ����ʱ������ $STATUS �� $SEVERITY ��ֵ����Щ����������ʾ:

CONTINUE DECK DEPOSIT
EOD EXAMINE GOTO
IF RECALL SET SYMBOL/SCOPE
SHOW STATUS SHOW SYMBOL STOP
WAIT    

�����Щ���������һ�����²��ɹ�״̬����ô���������뽫������ $STATUS���������ؼ������� $SEVERITY��

13.16 ע���������

ע�����������һ��ÿ��ע��ʱ����ϵͳ�ͻ��Զ�ִ�е�������̡����ύ��ÿ��������ҵ��ʼʱ��ϵͳҲִ��������̡�

������ע���������:

  • ȫϵͳ�� (���鶨���)
  • ���˵�

13.16.1 ȫϵͳע���������

ȫϵͳע�������������������:

  • ȫϵͳע��������������ĸ���ע���������֮ǰִ�С�
  • ��ȫϵͳע�����������ֹʱ���ù��̰ѿ��ƴ��ݸ����ĸ���ע��������̡�
  • ȫϵͳע�������������ϵͳ����Աȷ��ijЩ������������ע��ʱִ�С�

Ҫ����ȫϵͳע��������̣�����ϵͳ����Աʹ�߼��� SYS$SYLOGIN ��ͬ���ʵ���ע��������̡�ϵͳ����Ա����ָ�����ע�����������������ϵͳ�û���ijЩ�û��顣

13.16.2 ����ע���������

�����Խ���һ������ע���������ʹÿ��ע��ʱִ��ͬ�������

ϵͳ����ԱΪע��������̷����ļ�˵�����ڴ������װ�У�ע��������̱���Ϊ LOGIN.COM����ˣ�Ӧ�ð�ע�������������Ϊ LOGIN.COM������ϵͳ����Ա�����������ļ�����

������һ�� LOGIN.COM ���̵�����:


$IF F$MODE() .NES. "INTERACTIVE" THEN EXIT
$SET TERMINAL/INSERT
$DIR :== DIR/DATE/SIZE
$EDIT :== EDIT/EDT
$EXIT

13.16.3 ��Լ���ʻ���ע���������

������������̵����Ʒ������������ʻ��� LGICMD �ֶΣ�����ϵͳ����Ա����������Լ���ʻ������ע�ᵽһ����Լ���ʻ�����ô�����������ֻ����ִ��Ϊ���ʻ�ָ���Ĺ��ܣ�����ʹ��ȫ���� DCL ����й���Լ���ʻ������飬����� OpenVMS System Manager's Manual��

13.17 ��չ�ļ�˵���ͷ�����ʽ

��Ҫ�ض��ļ���������ʽ��������̿����ڹ����а���ת����ʽ���������������̱��浱ǰ������ʽ�����÷�����ʽΪ TRADITIONAL��ִ�� (δָ����) ���Ȼ��ָ��ѱ���ķ�����ʽ��


$ original_style= f$getjpi("","parse_style_perm")
$ SET PROCESS/PARSE_STYLE=TRADITIONAL
   .
   .
   .
$ SET PROCESS/PARSE_STYLE='original_style'

��һ������ʹ 'original_style' ��ͬ�ڵ�ǰ������ʽ���ڶ�������ѷ�����ʽ����Ϊ TRADITIONAL�����һ������ѷ�����ʽ��������Ϊ��ԭʼ��ʽ��

13.18 �� DCL ���������ʹ����չ�ļ���

�� ODS-5 �����£�ʹ���ļ�����Ϊ������������̿��Բ�����ͬ�Ľ����

�����Դ� TRADITIONAL ת��Ϊ EXTENDED ������ʽ���������ѡ����ô��������Ӱ���������� (��������):

  • ��������ļ�˵��
  • ��ĸ��Сд������ $FILE
  • �ͺ��滻��ʡ�Ժ��滻

�й�ת��������ʽ�����飬����� 5.3 ����

13.18.1 ��������ļ�˵��

���ʹ�ü��������̣�������Ҫ��������סһЩ���̱�Ԫ��

��������չʾ��ʹ��ͬһ�����ļ� SS.COM ʱ��TRADITIONAL �� EXTENDED ������ʽ��������:


       $ create ss.com
       $ if p1 .nes. "" then write sys$output "p1 = ",p1
       $ if p2 .nes. "" then write sys$output "p2 = ",p2
       $ if p3 .nes. "" then write sys$output "p3 = ",p3
  • ���÷�����ʽΪ TRADITIONAL ������ SS.COM �ɲ����������:


           $ set process/parse_style=traditional
           $ @ss ^ parg2 parg3
           p1 = ^
           p2 = PARG2
           p3 = PARG3
    

    ע�⣬�������� (^) �ǵ�һ����Ԫ (���ǻ����)�����Ҷ��� p2 �� p3 ���̱�Ԫ����ĸ��Сд�Dz����ֵġ�
  • ���÷�����ʽΪ EXTENDED��������ͬһ�������ʱ�����������:


           $ set process/parse_style=extended
           $ @ss ^ parg2 parg3
           p1 = ^ PARG2
           p2 = PARG3
    

    ע�⣬������̰��������� (^) ʶ��Ϊ��������ѿո��ʶΪ�����ַ������DZ�Ԫ�ָ��������� "^ PARG2" �ǵ�һ����Ԫ��Ҳ��������ĸ��Сд��
  • Ϊ�������� (^) �������Ų������½��:


           $ @ss "^" parg2 parg3
           p1 = ^
           p2 = PARG2
           p3 = PARG3
    

    ��Ϊ�������� (^) �������õ��ַ����ڣ�����������Ϊһ���������
  • ���������ӵ� p3 ��Ԫ���������½��:


           $ @ss "^" parg2 "parg3"
           p1 = ^
           p2 = PARG2
           p3 = parg3
    

    ע�⣬Ϊ p3 ���̱�Ԫ������ĸ��Сд��
  • ������ʽ����Ϊ TRADITIONAL ʱ������������������� (^) �� parg2 �� parg3 �ַ�������Ϊ���̱�Ԫ������������̲������½��:


           $ set process/parse_style=traditional
           $ @ss^ parg2 parg3
           p1 = ^
           p2 = PARG2
           p3 = PARG3
    
  • ������ʽ����Ϊ EXTENDED ʱ���������� (^) ����Ϊ��������ѿո��ʶΪһ�������ַ���������չʾ�������У�DCL Ѱ���ļ� "SS^_PARG2.COM"���������:



           $ set process/parse_style=extended 
           $ @ss^ parg2 parg3 
           -RMS-E-FNF, file not found 

13.18.2 ��ĸ��Сд������ $FILE

DCL ���Ա����ļ�˵������ĸ��Сд��ֻ��������幫�ó��� (CDU) ������������������һ�㡣DCL ������������ļ� (.CLD) ��ʹ�� $FILE �������Ͷ�����κ���Ŀ����ĸ��Сд��

�й����飬����� OpenVMS Command Definition, Librarian, and Message Utilities Manual��

13.18.3 �ͺ��滻��ʡ�Ժ��滻

��ʡ�Ժ��滻��ͬ������ʹ�úͺ� (&) �滻�ڴ�ͳ�����б�����ĸ��Сд��

���´�ͳ��������չʾһ�������ַ�����ĸ��Сд������:



       $ set process/parse_style=traditional 
       $ x = "string" 
       $ define y 'x' 
       $ sho log y 
          "Y" = "STRING" (LNM$PROCESS_TABLE) 
       $ define y &x 
       %DCL-I-SUPERSEDE, previous value of Y has been superseded 
       $ sho log y 
          "Y" = "string" (LNM$PROCESS_TABLE) 

ע�⣬ʹ�úͺ� (&) ���ָ�ֵ�� x �������ַ�����ĸ��Сд��

ʡ�Ժ��滻����������������Ϊ��д��ĸ֮ǰ�����ͺ��滻����������������Ϊ��д��ĸ֮��

������չ��������չʾͬ����һ������:


     $ set process/parse_style=extended
       $ define y 'x'
       %DCL-I-SUPERSEDE, previous value of Y has been superseded
       $ sho log y
          "Y" = "string" (LNM$PROCESS_TABLE)
       $ define y &x
       %DCL-I-SUPERSEDE, previous value of Y has been superseded
       $ sho log y
          "Y" = "string" (LNM$PROCESS_TABLE)

ע�⣬y �����������ַ���������Сд��ĸ��������Ϊ DEFINE ����ʹ�� $FILE����������ĸ��Сд��

��ˣ��ͺ��滻��������ָ����չ�ļ�������ʹ������ʽ����Ϊ TRADITIONAL��������������ʾ:


$ set process/parse=extended
$ cre file^ name.doc
Contents of an ODS5 file
 Exit

$ set process/parse=traditional
$ a = "file^ name.doc"
$ type file^ name.doc
%DCL-W-PARMDEL, invalid parameter delimiter - check use of special characters
 \^NAME\
$ type 'a'
%DCL-W-PARMDEL, invalid parameter delimiter - check use of special characters
 \^NAME\
$ type &a
Contents of an ODS5 file 

ע��

�ͺ��滻���������ⲿ���


ǰҳ ��ҳ Ŀ¼ ����