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 �������ļ�
�������ļ������������С���š�ע�͡��������ͱ�����
������̵�Ĭ���ļ������� .COM�������������ʱ�����ָ�� .COM
�ļ����ͣ���ôָֻ���ļ����Ϳ���ִ��������̡�SUBMIT ��ִ�й��� (@) ����ٶ��ļ������� .COM������ָ��������
����������������а�������Ľ���:
- ʹ����������ʵ��������ơ��⽫������ȷ����������� 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
�����д�һ����Ԫ����ʼ��
�� DCL
��������У�������ڱ��ѭ��������λ������г���Ŀ�ʼ��ʹ�ñ��ʱ��ע�����¹���:
- �ѱ�ŷ��ڵ���һ�У�ʹѭ���������г����������������ԡ�
- ʹ�ð������� 255 ���ַ�����û�пհո�ı������
- �ѱ�ŷ�����Ԫ�� ($)
֮���Ұ����ɿո��������֮ǰ���ɰѱ����������������
- ��һ��ð�Ž���ÿ����š�
- ����ɾ����š�
13.2.1 �ֲ����ű��еı��
��������ͳ����������ʱ�����ѱ�ŷ���ֲ����ű�������ڡ���ſ��õĿռ������ġ����һ���������ʹ��������ţ����Ұ��������ţ���ô������ͳ������������ű��Ŀռ������һ��������Ϣ�������������������������Ĺ����а��� DELETE/SYMBOL ����ɾ��������Ҫ�ķ��š�(Ȼ����Ҫע�ⲻ��ɾ����š�)
����������ʹ��ͬһ���һ�����ϣ��¶���ͻ��滻�ֲ����ű��е�����һ����
���ظ���Ŵ���ʱ��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
|
��ɹ��̡� |
��ѭ���²�������������:
���� |
���� |
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 �����˳�ѭ���� |
Ҫʹ����������������ά������д���ʱʹ���̵�ִ�дӵ�һ��������һ�����
���������ֵ�������������������ʹ�� 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"")
�ڡ�
�� 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
|
��������������ʱ��ע�����¸���:
- ��� IF �����Բ鿴�û���������� (COMMAND) �Ƿ���� "DELETE"����� COMMAND ���� DELETE����ô����������ִ����һ�����
- ������Ҳ����һ�� GOTO ���GOTO ����������ִ�������ĵ�������̵ı�š�����������£���� COMMAND ������ DELETE����ô���̽�ִ�� DIRECTORY ��š�
-
�������dz����������������������֮�����н��� DELETE ������Ҫ��ʵ�������滻��
- ����
DIRECTORY �����г���ı�š�ע�⣬��ʶÿ�������ı��������ѡ���б��е�����һ�������������� GOTO �����ʹ�÷��� COMMAND (�������û�������)��
- ��� IF �������Ƿ������� "TYPE"
������������ "TYPE"����������̽����
"This is the TYPE section"��Ȼ������Ϊ����������Ե�������������������� "TYPE"��������ʾһ��������Ϣ��
- ��������������������û���ҵ���Ч����������������� "You have entered an invalid command"��
|