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

HP OpenVMS Systems Documentation

Content starts here

OpenVMS �û��ֲ�


ǰҳ Ŀ¼ ����

13.6.3.1 ����

ִ���������ʱӦ����������:

  • ���������һ���޶�������ʼʱ��������ִ�й������� (@) ֮ǰ�����ո�
  • ���������һ��������ʼʱ��������ִ�й������� (@) ֮ǰ��һ���ո�

13.6.4 �Խ�����ʽִ���������

Ҫ������ִ��������̣�����һ��ִ�й������� (@) �������������̵��ļ�˵����

���磬�������ִ���� WORKDISK: ������ [MAINT.PROCEDURES] Ŀ¼�еĹ��� SETD.COM:


$ @WORKDISK:[MAINT.PROCEDURES]SETD [Return]

�����Զ���һ����ʾ�������еķ�������Ȼ��ʹ���������ִ��������̡�

Ҫʹ��һ������ִ����һ������չʾ��������̣������а���������ע�����������:


$ SETD == "@WORKDISK:[MAINT.PROCEDURES]SETD"

Ȼ��Ҫִ�й��� SETD.COM���������������������ͬ��������:


$ SETD [Return]

����Ĭ�ϣ�������ִ���������ʱ������ϵͳ�������ʾ���ն��ϡ�Ȼ����ִ������ʱʹ�� /OUTPUT �޶��ʿ��԰�����ض���һ���ļ���

���������������ض���һ���ļ�ʱ��������̰��κγ�����Ϣ���͵��ն˺ͽ���������ļ���

�������� SETD.COM �����д���ļ� RESULTS.TXT���������ն�:


$ @SETD/OUTPUT=RESULTS.TXT

���ǰ� /OUTPUT �޶��ʷ������������֮���м�û�пո񡣷���DCL ������޶��ʽ���Ϊ���ݸ����̵IJ�����

13.6.5 ��������ҵ��ʽִ���������

���ʹ�õ����������Ҫ�ܳ��Ĵ���ʱ�� (���磬��������ij���)����ô����Щ�����ύΪ������ҵ��������������������ʹ���նˡ�

Ҫ������ģʽִ��������̣����� DCL ���� SUBMIT �ɰ���������ύ�������� (һ���ȴ�ִ�е�������ҵ�б�)�����ύ��ҵʱ����������Ĭ�������� SYS$BATCH���ڴ��������ӵ��ȴ�ִ�е���ҵ����ĩ�ˡ�������֮ǰ����ҵ���ʱ����ִ��������ҵ���� OpenVMS ϵͳ�ϣ�����ͬʱִ�е�������ҵ����Ŀ��ϵͳ����Ա�ڽ������������ʱָ����

��������չʾ���ִ��������� JOB1.COM��SUBMIT ����ʹ��Ĭ���ļ����� .COM���������������ļ����� .COM ʱ�Ͳ��������ļ�����:


$ SUBMIT JOB1
Job JOB1 (queue SYS$BATCH, entry 651, started on SYS$BATCH))

13.6.5.1 Զ��������ҵ

�������ϵͳ�������һ���֣���ô���԰���������ύΪԶ�̽ڵ��ϵ�������ҵ������������У�������ʹ�� DCL ����򿪺͹ر�Զ�̽ڵ��ϵ��ļ�������ʹ����ֲ��ļ�һ����������޶��ʣ���ȡ��д����Щ�ļ��ļ�¼��

13.6.5.2 ��������������ҵ

����Ĭ�ϣ��������ҵ���֮ǰϵͳʧ�ܣ���ô������ҵ�ʹӵ�һ�п�ʼ����ִ�С�Ȼ�������������������ʹ�����·���ָ����ͬ������������:

  • $RESTART
    һ��ȫ�ַ��ţ������ִ��֮ǰ������ҵ����������һ�Σ����ȫ�ַ��ŵ�ֵ��Ϊ��ֵ����ҪΪ $RESTART ָ��ֵ��ϵͳ�������ʵ���ֵ��
  • BATCH$RESTART
    һ��ȫ�ַ��ţ�ʹ�� SET RESTART_VALUE �����ָ������ֵ��

ʹ�� $RESTART �� BATCH$RESTART

���¹����������ʹ�� $RESTART �� BATCH$RESTART ����:

���� ����
1 �ӱ�ſ�ʼ���̵�ÿ�����������㡣
2 ��Ϊÿ���εĵ�һ����ʹ�� SET RESTART_VALUE ����� BATCH$RESTART ��ֵ���������š�
3 �ڹ��̵Ŀ�ʼ������ $RESTART��
4 ��� $RESTART Ϊ�棬��ʹ�� BATCH$RESTART ��Ϊת�Ʊ�ŷ���һ�� GOTO ��䡣

����������̴�һ�����г�ȡ����ģ�顢������Щģ�飬Ȼ��������Ϊ������ļ�:


$! SORT_MODULES.COM
!
$! Set default to the directory containing
$! the library whose modules are to be sorted
$ SET DEFAULT WORKDISK:[ACCOUNTS.DATA83]
$!
$! Check for restarting
$ IF $RESTART THEN GOTO "BATCH$RESTART"
$!
$ EXTRACT_LIBRARIES:
$ SET RESTART_VALUE=EXTRACT_LIBRARIES
   .
   .
   .
$ CONCATENATE_LIBRARIES:
$ SET RESTART_VALUE=CONCATENATE_LIBRARIES
   .
   .
   .
$ SORT_FILE:
$ SET RESTART_VALUE=SORT_FILE
   .
   .
   .
$ EXIT

��������������쳣���������ʹ��ļ���ʼ���ӱ��Ϊ CONCATENATE_LIBRARIES �������ߴӱ��Ϊ SORT_FILE ���������ִ�У��� BATCH$RESTART ��ֵ�����������ȡ�����������ģ�飬�Ϳ�ʹÿ����ȡ��Ϊһ�������Ρ�

13.6.6 ִ�д��̺ʹŴ����ϵ��������

���¼����������ִ���ڴ��̺ʹŴ����ϵ�������̡�

13.6.6.1 ��ר�ô�����ִ��

�� SUBMIT �����ύ�������ʱ�����ܴ�ȡ���ѷ����豸�ϵ��ļ���Ȼ����������ִ��λ��ר�ô����ϵ�������̣�����ʹ�� /SHARE �޶���װ��������̡�

13.6.6.2 �ڴŴ�����ִ��

������ִ��פ���ڴŴ����ϵ�������̣����:

  • ������̲������κ��������̡�
  • ������̲������κ�ָ����� GOTO ����֮ǰ��ŵ� GOTO ���

���������Щ����֮һ��������¶�������ִ������������:

���� ����
1. ��������̸��Ƶ��������̾���
2. ִ������������̾��ϵ�������̡�

13.7 �˳����ж��������

ʹ�ñ����������κη����˳��������ʱ����Ҫ֪�������

����� DCL �����ͳ���������������ն���������ʱ��������� 0 ��������򵥽���������� (�� CLEANUP.COM) ����� 1 ִ�С������������ֹ���� DCL ��ʾ���³�������Ļ�ϣ����˻ص���� 0��

13.7.1 �˳�����

�����ַ����˳�����ִ�е��������:

  • �� EXIT ����������������
  • �� STOP ����������������
  • �ڳ���ִ���ڼ����� Ctrl/Y

ʹ�� EXIT �����˳�

����˳�ԭ���ǹ��̽������� EXIT �����ô���Ʒ�����һ�����ߵ��������һ��ֵָ��Ϊ EXIT ����IJ��������԰����״ֵ̬���ظ���һ�����ߵ������

����� DCL ������������� SUB���� SUB �ֵ��������г��� SUB1����ô������������:

  1. �˳� SUB1 �ͷ��ص� SUB �ڵ��� SUB1 ֮�����һ�������С�
  2. �˳� SUB �ͷ��ص� DCL �����

ʹ�� STOP �����˳�

����˳�ԭ���� STOP �����ô�������Ƿ��ص� DCL ���������ִ�е� STOP �������һ�������

�����������ҵ��ִ�� STOP ���������ҵ����ֹ��

ʹ�� Ctrl/Y �˳�

���� Ctrl/Y �����ж�������̣�Ȼ��ʹ�� EXIT �� STOP �������ֹ������̡�����������£�EXIT �� STOP ������ص� DCL ����

�����������У����� Ctrl/Y ���ж� TESTALL ���̡�EXIT ������ֹ������̵Ĵ����������ص� DCL ����(ע�⣬���жϹ��̺�Ҳ�������� STOP ���� ��)


$ @TESTALL[Return]
[Ctrl/Y]
$ EXIT[Return]
$

13.7.2 �˳��������г���

�ж��������ʱ������жϵ����� (��ӳ��) �����κ��˳��������г�����ô EXIT ���������Щ���г�����ơ�Ȼ����STOP ���ִ����Щ���г���

13.8 ��������

����Ĭ�ϣ�������������س���ʱ��������ͳ���ִ��һ�� EXIT �����ʹ�����˵���һ������������������ؼ� (�ɹ��������֪ͨ)��������̼�����

������ͳ�����������һ�����ⷽ����������������������һ����Ŷ������Ų����� (���磬����������� GOTO ERR1��������������� ERR1 û������һ�����)����ô GOTO �����һ�����沢���˳�������̡�

��ϵͳ����һ�� EXIT ������Ϊ�����������г����һ����ʱ������ $STATUS ��ֵ���ݸ���һ�������������һ�����ġ�������ͳ���� $STATUS �ĸ߶���������Ϊ 1���Ա�������ͳ��򲻻�������ʾ�����״ֵ̬��������Ϣ��

�����������У�������� TEST.COM ������ļ�˵���а���һ������:


$ CREATE DUMMY.DAT\
THIS IS A TEST FILE
$ SHOW TIME

ִ���������ʱ��CREATE ������ $STATUS ���ش��󣬲�����ʾ��Ӧ����Ϣ��Ȼ��������ͳ����� $STATUS ��ֵ��ȷ���ѷ������󣬷��� EXIT ������� $STATUS ��ֵ������������˳�ʱ�����������Ϣ����������ʾ����Ϊ CREATE �����Ѿ���ʾ��������Ϣһ�Ρ��� DCL ��������Բ鿴����������Ϣ�� $STATUS��������߶�����������Ϊ 1������:


$ @TEST
%CREATE-E-OPENOUT, error opening DUMMY.DAT\ as output
-RMS-F-SYN, file specification syntax error
%DCL-W-SKPDAT, image data (records not beginning with "$") ignored
$ SHOW SYMBOL $STATUS
  $STATUS = "%X109110A2"
$ WRITE SYS$OUTPUT F$MESSAGE(%X109110A2)
  %CREATE-E-OPENOUT, error opening !AS as output

13.8.1 Ĭ�ϳ�������

���±��������������������ִ�ж����������������� Ctrl/Y �ж�ʱ��ȡ��Ĭ�϶���������ʹ�� ON��SET [NO]ON �� SET [NO]CONTROL=Y ����ȡ����ЩĬ�϶�����

�ж� Ĭ�϶���
���������س��� �����˳�����һ�������
�� DCL �������� 1 ����Ctrl/Y  �жϹ��̣����û������ӳ��ǿ�����˳�����ô������̿��Լ�����
����� 1 ���°��� Ctrl/Y �����˳�����һ�����������

13.9 ����������������

���¼���������������������������

13.9.1 ON ����

�������һ�����ػ�����صij�������ô ON ����ָ��Ҫִ�еĶ�����������������ij�����ϵͳ��ȡ���¶���:

  • ִ�� ON ����ָ���Ķ�����
  • ���� $STATUS �� $SEVERITY ָ��ָ�� ON �����Ľ����һ����ԣ�$STATUS �� $SEVERITY ����Ϊ�ɹ���
  • ��������Ĭ�ϳ������� (������������س��������˳�)��

һ�� ON �����ִֻ��һ�Ρ���ˣ����������ִ�� ON ����ָ���Ķ���֮����Ĭ�ϳ����������������á�

ON ����ָ���Ķ���ֻӦ����ִ������������ڵ��������ˣ������һ��������һ�����̵Ĺ�����ִ��һ�� ON �����ô ON �������Ӧ����Ƕ�׵Ĺ��̡�

ON ����ĸ�ʽ������ʾ:


ON condition THEN [$] command

�ڴˣ�"condition" �����¹ؼ���֮һ:

ON �ؼ��� ��ȡ�Ķ���
WARNING ����о��桢���������س�����������̾�ִ��ָ���Ķ�����
ERROR ������������س������������ִ��ָ���Ķ���������о��棬����̼�����
SEVERE_ERROR ������� (������) �������������ִ��ָ���Ķ���������о�������������̼�����

���Ϊ�ض����ؼ����� ON ���������ô������ͬ��������صij���ʱ������ͳ����ִ��ָ���Ķ���������������ij���ʱ��������ͳ��������������ļ���

����: ʹ�� ON ����

��������������ȡ��Ĭ�ϳ����������Ա㵱�������桢���������س���ʱ�˳�����:


$ ON WARNING THEN EXIT

����: ������ָ�

���������̰�����������ô�����������ִ��ֱ�����������س���Ϊֹ:


$ ON ERROR THEN GOTO ERR1

������������ij�������ô������ ERR1 �ָ�ִ�С�$STATUS �� $SEVERITY ����Ϊ�ɹ�����Ĭ�ϳ����������������á��������һ�� ON �� SET NOON ����ִ��֮ǰ�����ڶ�����������ô��������˵���һ�������ON ����ָ���Ķ���ֻӦ����ִ�����������������ˣ������һ��������һ�����̵Ĺ�����ִ�� ON �����ô ON �������Ӧ����Ƕ�׵Ĺ��̡�

ͼ 13-1 ˵�� ON �������

ͼ 13-1 ON �����


  1. ��� ON ����ȡ��Ĭ������� (���ھ��棬���������ڳ��������س������˳�)��������� A.FOR ʱ���������س�������ô������̼�����һ�����
  2. �����һ�� ON ������Ч��Ĭ��������ͱ��������á������������� A.FOR �� B.FOR ʱ���������س�������ô������̾��˳���
  3. ������� C.FOR ʱ�������桢���������س�����������̾��˳���
  4. ������������һ������ִ��֮ǰ���˳���������������Ч��

����¼ B �е������������ FORTUSER.COM �� CALC.COM Ҳ˵��ʹ�� ON ������������� ��

13.10 ʹ�� SET NOON ����

�����������ʹ�� SET NOON ����� ON ��������Ϊ NO ״̬��������ֹ������ͳ����������ص�״̬��ʹ�� SET NOON ����ʱ��������ͳ��������ֵ���� $STATUS �� $SEVERITY������ִ���κγ�����顣ʹ�� SET ON ����� ON ������Իָ�������顣

�����̳����������ʱ������������������ִ��֮����ȷ�ؼ�� $STATUS ��ֵ��

�����������У��� RUN ����֮ǰ�� SET NOON ����ȷ��������� TESTA �� TESTB ����һ����������ʱ��������̾ͼ�����SET ON ����ָ�������ͳ����Ĭ�ϳ�����顣


$ SET NOON
$ RUN TESTA
$ RUN TESTB
$ SET ON

�����������У���һ�� IF ������ $STATUS �Ƿ�����ֵ (���������������ֵ)������У�FORTRAN ����ͳɹ����� LINK �����ִ�С��� LINK ����ִ��֮���ٴβ��� $STATUS����� $STATUS ��������RUN �����ִ�У�����RUN ���ִ�С�SET ON ����ָ���ǰ�� ON ��������������˵���� SET NOON ����ִ��֮ǰ��������Ч:


$ SET NOON
$ FORTRAN MYFILE
$ IF $STATUS THEN LINK MYFILE
$ IF $STATUS THEN RUN MYFILE
$ SET ON

SET ON �� SET NOON ����ֻӦ���ڵ�ǰ����������������ִ�е����������ڵ�����һ��������̵����������ʹ�� SET NOON �����ôĬ�ϳ��������ƽ���Ƕ�׵Ĺ�������Ч��ע�⣬�� DCL ���������� SET NOON û�����塣

13.11 ���� Ctrl/Y �ж�

����Ĭ�ϣ��������������ִ��ʱ���� Ctrl/Y��������ͳ�����һ���������� (��Ϊ Ctrl/Y ���) ��ʾ��������� Ctrl/Y ���������������������ͳ�����ִ�е� DCL ���Ȼ���� CONTINUE ����ָ�������̵�ִ�С����⣬����һ��ǿ���������ִֹͣ�е� DCL ���������ֹͣ������̡�

��������һЩȡ���������������ʹ�� ON ����� Ctrl/Y �жϡ�

13.11.1 ֹͣ�������

���� Ctrl/Y���������ж����ڽ���ִ�е�������̡������� Ctrl/Y ʱ��������ͳ�����һ�����������Ϊ Ctrl/Y ��������ʾ����������жϷ���ȡ��������ִ�е���������ʱ:

  • �������������������ͳ���ִ�� (���磬IF��GOTO ��ֵ���)����ô������ͳ����� Ctrl/Y ����ʾ��������֮ǰ�������������ִ�С�
  • ����������������һ������ӳ�� (����һ����ͬ��������ͳ����ӳ��)����ô�������жϣ�����������ͳ����� Ctrl/Y ����ʾ�������

�� Ctrl/Y ����������ͳ���洢������ǰ���������״̬��ʹ�����κ� Ctrl/Y �ж�֮�󶼿��Իָ�����ȷ��״̬��

���жϹ���֮������������������:

  • ������������ͳ�����ִ�е� DCL ���
    ��Щ������ SET VERIFY��SHOW TIME��SHOW TRANSLATION��ASSIGN��EXAMINE��DEPOSIT��SPAWN �� ATTACH ���������һ��������Щ����֮�󣬿����� CONTINUE ����ָ����̵�ִ�С��й���������ͳ�����ִ�е����������б�������� 14.7.2 ����
    ������ CONTINUE ����ʱ��������ָ̻�ִ���жϵ���������������ɵ������С�
  • ����ִ����һ��ӳ��� DCL ���
    ���������ӳ����κ�����ʱ��������ͳ��򷵻ص���� 0 ��ִ�������������ֹ������̵�ִ�С�����ӳ��ʼ֮ǰ������ִ���ж�ӳ��˵�����κ��˳���������
  • ���� EXIT �� STOP ������ֹ������̵�ִ�С�
    ���ʹ�� EXIT �����ô����ִ���ж�ӳ��˵�����˳���������Ȼ����STOP ���ִ����Щ���г���

ע��

����� Ctrl/Y ֮���˳�������� (��ȷ�ش����������Ϊ ON ���г����һ����)����ô���������һ�����������������̵��������н��͡����磬�������ڽ������������·���:


$ MAIL = "mail/edit=(send,reply,forward)"

��������� Ctrl/Y �ж�һ����������������������̣�Ȼ���������� MAIL ����һ����Ϣ���Ͳ����Զ��������ı༭����


ǰҳ ��ҳ Ŀ¼ ����