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

HP OpenVMS Systems Documentation

Content starts here

OpenVMS �û��ֲ�


ǰҳ Ŀ¼ ����

12.14.1 ʹ���Զ��ⲿ����

ע������:

  • �߼��� DCL$PATH �����������б������߼���
  • ֻʹ��ÿ���߼�������Ľڵ㡢�豸��Ŀ¼���֡�
  • �����������߼����ȡ�ͨ���û��Լ��Ķ��壬�û�����ȡ�� DCL$PATH ��ϵͳ���塣���ϵͳ������ڣ����û�����Ҫ������ԣ���ô�ö��� " " ȡ������߼����ص�����
  • DCL ���ʺͷ���������Ч�ַ�����ͬ���ļ�������Ч�ַ��������磬DCL ���Ų��ܰ������ֺ� (-) ��ʼ����Ԫ�� ($)�����ϣ��ִ�е�ӳ�����̲�����Ч�� DCL ����������ô����ͨ�����������ֱ�ӵ�������
  • DCL ���������������ñ����õ�ӳ��ִ���Լ���������������� C ����ʹ�� main() ���г���� "argc" �� "argv" �������������������Ա�д�ij��򣬵��� LIB$GET_FOREIGN �ɻ�����������У�Ȼ��ó�������������
  • ���һ��Ŀ¼����������̺Ϳ�ִ��ӳ����ô�����õ�һ�����ҵ����ļ����� OpenVMS ϵͳ�ϣ�Ŀ¼����ĸ˳���Ŀ�ļ���������� ".EXE" �ļ�֮ǰ�ҵ� ".COM" �ļ�������� DCL$PATH �߼�������һ��ָ��������������ϵͳ�ڵ�������ļ�˵����������� ".COM" �ļ�֮ǰ�ҵ� ".EXE" �ļ���
    ��Ϊ DCL ִ������ʱ����Ч���������ļ�˵������ "DCL$PATH:.*" ʹ��ΪĬ���ļ�˵������˿��������ֲ����ض��ļ��ķ��������߼��������磬������߼��� FOO ����Ϊ "FOO.EXE"�������� DCL ��ʾ�¼��� "FOO"����ô�;����ܵ��� FOO.COM����ֻ���� FOO.EXE��

����

���������Ȩ�û������Ұ�����Ĭ���豸��Ŀ¼����Ϊ�����û��ʻ����Ͳ�Ҫ�� "SYS$DISK:[]" ���� DCL$PATH �߼����Ķ����С���������ʹ DCL  ������ǰĿ¼�������������б��е����ִ����ǡ���ط��÷��뽫ʹ��ǰĿ¼���û�ӳ�󱻷��֣��������������Ȩ���á�

12.14.2 �Զ��ⲿ��������

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

  • �� OpenVMS ����ϵͳ V6.2 ֮ǰ���κΰ汾�У�����ʹ���Զ��ⲿ���
  • ��Ϊ�¶��ʿ������κ�ʱ�����ӵ� DCL �������ʹ���Զ��ⲿ����������Ժ�ijһ���������ʹ�á�
  • �Զ��ⲿ�������Բ�������������¶������������������������У�DCL (ֻ���κζ��ʵ�ǰ�ĸ��ַ�) ����ƥ�� SHOW ���� (SHOWME ��ǰ�ĸ���ĸ) ��ִ�� SHOW USERS ���������� SHOWME.COM ���̡������ SHOWME ����Ϊ DCL ���ţ���ô SHOWME ������� SHOWME.COM��


    $ DEFINE DCL$PATH SYS$SYSTEM,SYS$DISK:[]FOO
    $ TYPE SHOWME.COM
    $ SHOW SYMBOL P1
    $ EXIT
    $ SHOWME USERS
          OpenVMS �û������� MARCH 2��1999 01:40 PM
        �û����� = 1�� ������ = 11
    
     �û���             ����      �ӽ���   ����
     RSMITH              9         2
    


�� 13 ��
�����������

���������һ������ DCL ����� DCL ����ʹ�õ������е��ļ�����Щ��������̿���ֻ����һ�������� DCL ������ӵ�������̿������ӵļ��������һ�����С��������������ʱ��DCL ���ͳ����ȡ�ļ���ִ�������������

���ϵͳ����Ա������һ��ϵͳע�����������ע��ʱ����ִ�С�ϵͳע�����������ϵͳ����Աȷ�������������û�ע��ϵͳʱ��Ҫִ�е�ijЩ���

������ϵͳע��������̺�ϵͳ�����������Ի�ע��������� (�������)�����Ի�ע��������������û������㻷����ÿ��ע��ʱ��ִ�������������ע��ʱ��ϵͳ���Զ�ִ����������ע��������� (ȫϵͳ��ע��������̺����Լ���ע��������̣��������)��

Ϊ�������ʻ����˿��԰�ע��������̷������Ķ���Ŀ¼�����ע��������̲������Ķ���Ŀ¼����ô���Լ����Խ���һ������������Ϊ LOGIN.COM �������������Ķ���Ŀ¼������ϵͳ����Ա�������������������ע��ʱ�������������� LOGIN.COM �ļ���

���·�Ϊ���¼���:

  • ��д������̵Ļ�����Ϣ
  • ��д������̵IJ���
  • ִ���������
  • �˳����жϺͳ��������������
  • ע���������

������ DCL �������:

  • ��
    ����д����ִ��һ�� DCL ����
  • ����
    ִ�����Ƴ���Ĺ���

13.1 ��д������̵Ļ�����Ϣ

�����ַ��������������:

  • ʹ���ı��༭�������� EVE���������ļ�
  • ʹ�� DCL ���� CREATE �������ļ�

�������ļ����԰��������С���š�ע�͡��������ͱ�����

13.1.1 Ĭ���ļ�����

������̵�Ĭ���ļ������� .COM�������������ʱ�����ָ�� .COM �ļ����ͣ���ôָֻ���ļ����Ϳ���ִ��������̡�SUBMIT ��ִ�й��� (@) ����ٶ��ļ������� .COM������ָ��������

13.1.2 �����

����������������а�������Ľ���:

  • ʹ��������޶��ʵ��������ơ��⽫������ȷ����������� OpenVMS �Ľ������а汾���ݡ�
  • ʹ������ʹ���������Ķ���ע�⣬���в��ܴ���Ԫ����ʼ������:


    $ PRINT LAB.DAT   -
         /AFTER=17:00 -
         /COPIES=20   -
         /NAME="COMGUIDE"
    

13.1.3 �������

��д������ʱ:

  • ����ʹ��һ����Ԫ�� ($) ��ʼÿһ�У��������ע�ͻ��š�
  • �����Ҫ����һ���������ݵ��У���ô�ڸ���ʡ����Ԫ�� ($)��
  • �����Ҫ������һ����Ԫ�� ($) ��ʼ�������У�ʹ�� DCL ���� DECK �� EOD������:


          $ ! Everything between the commands DECK and EOD
          $ ! is written to the file WEATHER.COM
          $ !
          $ CREATE WEATHER.COM
          $ DECK
          $ FORTRAN SUMMER
          $ LINK SUMMER
          $ RUN SUMMER
          $ EOD
          $ !
          $ ! Now execute WEATHER.COM
          $ @WEATHER
          $ EXIT 
    ��

ע�⣬����һ����Ԫ����ʼ�������������� DCL ��ȷ�ؽ��ͣ����� Compaq ǿ�ҽ����κ� DCL �����д�һ����Ԫ����ʼ��

13.2 ����������ʹ�ñ��

�� DCL ��������У�������ڱ��ѭ��������λ������г���Ŀ�ʼ��ʹ�ñ��ʱ��ע�����¹���:

  • �ѱ�ŷ��ڵ���һ�У�ʹѭ���������г����������������ԡ�
  • ʹ�ð������� 255 ���ַ�����û�пհ׿ո�ı������
  • �ѱ�ŷ�����Ԫ�� ($) ֮���Ұ����ɿո��������֮ǰ���ɰѱ����������������
  • ��һ��ð�Ž���ÿ����š�
  • ����ɾ����š�

13.2.1 �ֲ����ű��еı��

��������ͳ����������ʱ�����ѱ�ŷ���ֲ����ű�������ڡ���ſ��õĿռ������޵ġ����һ���������ʹ��������ţ����Ұ��������ţ���ô������ͳ������������ű��Ŀռ������һ��������Ϣ�������������������������Ĺ����а��� DELETE/SYMBOL ����ɾ��������Ҫ�ķ��š�(Ȼ����Ҫע�ⲻ��ɾ����š�)

13.2.2 �ظ����

����������ʹ��ͬһ���һ�����ϣ��¶���ͻ��滻�ֲ����ű��е�����һ����

���ظ���Ŵ���ʱ��GOTO ����ѿ��ƴ��ݸ� DCL ��������ı�š������ظ����ʱ��GOTO ����Ҳʹ�����¹���:

  • ��������ظ������ GOTO ����֮ǰ���Ͱѿ��ƴ��ݸ��� GOTO ��������ı�š�
  • ��� GOTO �������ظ����֮�䣬�ѿ��ƴ��ݸ�ǰ����� GOTO ��������ı�š�
  • ��������ظ������ GOTO ����֮�󣬰ѿ��ƴ��ݸ��� GOTO ��������ı�š�

13.3 �����������ʹ��ע��

��ע�Ͱ���������������Ǻõı��ϰ�ߡ�������������̻�������ʱ��ע�������õġ�ע����;����:

  • �ڹ��̵Ŀ�ʼ�������̺ʹ��ݸ����IJ�����
  • ��ÿ������Ŀ�ʼ������ι��̡�
  • ʹ�ð�����Ԫ���͸�̾�� ($!) ���зֿ��������С���ʹ�������Ķ�������̵Ĵ�١��������հ��У���ô������ͳ���Ͱ����ǽ���Ϊ�����У����Ҳ���һ����Ϣ����������������ѱ����ԡ�

����������б�дע��ʱӦ�����¹���:

  • ʹ�ø�̾�� (!) ָ��ע�͵Ŀ�ʼ���������ִ��ʱ��������ͳ�����Ը�̾���ұߵ������ı���
  • Ҫ�����ָ�̾�Ű������������У��Ѹ�̾���������� (" ") �ڡ�

13.4 ��α�д�������

�ڿ�ʼ��д�������֮ǰ��������ִ��������̽�Ҫִ�е����񡣼����Ҫ������ʱ��ע��ʹ�õ��κα������������ͳ��ֵ��κ�ѭ����

���¼��ڰ�����д��������̵IJ��衣����Щ����ʹ�õ�������������� CLEANUP.COM��������̿����������Ŀ¼��

����

  • ����
    ÿ��ִ��������ĵ����ݡ�
  • ����
    ���Ա仯���κ�һ����һ��������ÿ��ִ������ʱ������ԡ�
  • ѭ��
    �ظ�ִ��ֱ�������������κ�һ����һ�����

13.5 ��д������̵IJ���

��ѭ���²����д�������:

���� ����
1 ���������̡�
2 ��ֵ�����Ͳ���������
3 ����ѭ����
4 ����������̡�
5 ���Ժ͵��Գ����߼���
6 �����������
7 ��ɹ��̡�

13.5.1 �� 1 ��: ����������

��ѭ���²�������������:
���� ����
1 �������̽�ִ��ʲô����
2 ȷ��������̽�Ҫʹ�õ��κα������Լ����װ�롣
3 ȷ�����������Ҫʲô�������Լ���β��ԡ�
4 ��������˳�������̡�

ijЩ����ͨ��������������ڼ�ִ�С��±��г���Щ���������ִ�е�����:

���� ִ�е�����
DIRECTORY ��ʾ��ǰĿ¼������
TYPE filespec ��ʾ�ļ�
PURGE filespec ����ļ�
DELETE filespec ɾ���ļ�
COPY filespec new-filespec �����ļ�

����

��ִ������ʱ���ĵ��κ������DZ��������������Ŀ¼�н�����ɾ���ļ�����ôÿ�����Ŀ¼ʱ���ļ����Dz�ͬ�ģ���ˣ��� CLEANUP.COM �е��ļ����DZ�����

����

ÿ��ִ���������ʱ������Ե��κ������Ϊ��������䡣��Ϊ��������Ҫִ�еIJ������� CLEANUP.COM �е��κλ���������Ҳ��ִ�У����ÿ��������������䡣

��ƾ���

ȷ������ CLEANUP.COM �������ʹ��ʲô����������֮�󣬱���������װ������������������˳�������̡����� CLEANUP.COM ������̣��������¾���:

���� ������
װ����� ������̴��ն˻���ļ�����
�������� �������:
  • ���ն˻����������������������ִ���ʵ�����䡣
  • ȷ������ÿ����������ǰ�����ַ��������� DELETE �� DIRECTORY ���
�˳�ѭ�� �������� EXIT �����˳�ѭ����

Ҫʹ����������������ά������д���ʱʹ���̵�ִ�дӵ�һ��������һ�����

13.5.2 �� 2 ��: ������ֵ����������

�����෽����ֵ�������������������ʹ�� INQUIRE ����й������������������ 14 ����

��ѭ���²��踳ֵ�������Ͳ�������:

���� ����
1 ʹ�� INQUIRE ���ֵ��������
2 ȷ��Ӧ�ò����ĸ�������
3 ʹ�� IF �� THEN ������������
4 ��д����׮�����������뵽���������Ϊ�����ռλ����
5 �����Ҫ����д������Ϣ��

13.5.2.1 ʹ�� INQUIRE ����

INQUIRE ������ʾһ��ֵ�����ն˶�ȡ���ֵ�������ֵ����һ�����š�

����Ĭ�ϣ�INQUIRE ����:

  • �ѻش�ת��Ϊ��д��ĸ
  • �õ����ո��滻����հ׺��Ʊ���
  • ��ȥǰ����β��ո�
  • ���Ӧ��������Ż�ʷ���������ִ�з����滻

�� CLEANUP.COM ��ʹ�õ�������������ʾ�û�����һ����������INQUIRE ����������ֵ������� COMMAND��


$ INQUIRE COMMAND-
  "Enter command (DELETE, DIRECTORY, PRINT, PURGE, TYPE)"

13.5.2.2 ���������ַ�

��ʹ�� INQUIRE ����ʱҪ����Сд��ĸ�ַ�������ո���Ʊ�������Ӧ���������� (" ") �ڡ�Ҫ�����Ű�����Ӧ���У��Ͱ����õ��ı��������� (""text"") �ڡ�

13.5.2.3 ʹ�� IF �� THEN ��������

�� INQUIRE ������ʾ���������������̱������һ�����ȷ��Ҫ��ȡʲô���������磬Ҫȷ��ִ���ĸ������������������а���һЩ��䣬��ÿ������������ʶ���û���������

Ҫ����һ�������Ƿ�Ϊ�棬ʹ�� IF �� THEN ����±�չʾ������ CLEANUP.COM �м��Ŀ�����:

If... Then...
�ҵ�һ��ƥ�䣬 ִ��������
û���ҵ�һ��ƥ�䣬 ������һ�����
�ڼ��������Ч�����û���ҵ�һ��ƥ�䣬 ���һ��������Ϣ��

13.5.2.4 ��д����׮

����׮��һ���ڲ������ʱ������ʹ�õ���ʱ����Ρ�ͨ��������׮���һ����Ϣ�������滻�ĺ�������ȫ����ƹ�������ȷ������ȷ�ı����滻ÿ��׮��

����: ��ֵ�����Ͳ�������

��������չʾ��θ�ֵ�����Ͳ�������:


$ INQUIRE COMMAND-
  "Enter command (DELETE, DIRECTORY, EXIT, PRINT, PURGE, TYPE)"
$ IF COMMAND .EQS. "EXIT" THEN EXIT
$!
$! Execute if user entered DELETE
$ DELETE:
$    IF COMMAND .NES "DELETE" THEN GOTO DIRECTORY         (1) (2)
$    WRITE SYS$OUTPUT "This is the DELETE section."       (3)
$! Execute if user entered DIRECTORY
$ DIRECTORY:                                              (4)
$    IF COMMAND .NES "DIRECTORY" THEN GOTO PRINT
$    WRITE SYS$OUTPUT "This is the DIRECTORY section."
   .
   .
   .
$! Execute if user entered TYPE
$ TYPE:
$    IF COMMAND .NES "TYPE" THEN GOTO ERROR               (5)
$    WRITE SYS$OUTPUT "This is the TYPE section."
$!
$ ERROR:
$    WRITE SYS$OUTPUT "You have entered an invalid command." (6)
$!
$ EXIT

��������������ʱ��ע�����¸���:

  1. ��� IF �����Բ鿴�û���������� (COMMAND) �Ƿ���� "DELETE"����� COMMAND ���� DELETE����ô����������ִ����һ�����
  2. ������Ҳ����һ�� GOTO ���GOTO ����������ִ�������ĵ�������̵ı�š�����������£���� COMMAND ������ DELETE����ô���̽�ִ�� DIRECTORY ��š�
  3. �������dz���׮������������߼�������֮�����н��� DELETE ������Ҫ��ʵ�������滻��
  4. ���� DIRECTORY �����г���ı�š�ע�⣬��ʶÿ�������ı��������ѡ���б��е�����һ�������������� GOTO �����ʹ�÷��� COMMAND (�������û�������)��
  5. ��� IF �������Ƿ������� "TYPE" ������������ "TYPE"����������̽���� "This is the TYPE section"��Ȼ������Ϊ����������Ե�������������������� "TYPE"��������ʾһ��������Ϣ��
  6. ��������������������û���ҵ���Ч����������������� "You have entered an invalid command"��


ǰҳ ��ҳ Ŀ¼ ����