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

HP OpenVMS Systems Documentation

Content starts here

OpenVMS �û��ֲ�


ǰҳ Ŀ¼ ����


�� 12 ��
������š�����ͱ���ʽ

�����DZ�ʾ���֡��ַ����߼�ֵ (��������) �����ơ��� DCL ��������ʹ��һ������ʱ��DCL ��ִ���������֮ǰ������ֵ�滻���š�

�����������������޶��ʺ�ֵ�� DCL �����п�����Ҫ�ܶ���벢�ҿ��ܺķѺܶ�ʱ�䡣Ҫ���� DCL �Ľ�������ʡʱ�䣬���Խ�������������Ƶ���ؼ������

��Ҳ���������������ʹ�÷������ռ����洢�ʹ���ijЩ���͵����ݡ��й�������̵����飬������� 13 ������ 14 ����

��������:

  • ʹ�÷���
  • ��ʾ����
  • ����������һ��ʹ�÷���
  • ʹ�÷��Ŵ洢�ʹ�������
  • �ַ���
  • ʹ����ֵ�ͱ���ʽ
  • ʹ���߼�ֵ�ͱ���ʽ
  • �ڱ���ʽ��ת��ֵ������
  • ������ű�
  • ���η���ֵ
  • ��������滻
  • ���������������׶�
  • ʹ�÷��ŵı��÷���: �Զ��ⲿ����

�й����飬���������:

  • OpenVMS DCL Dictionary���йط��ź�ʹ�õ�����
  • OpenVMS Command Definition, Librarian, and Message Utilities Manual���йض��������������

12.1 ���ڷ���

�����������·���ʹ�÷���:

  • ��Ϊ��������������е�ͬ��ʡ�������볤�����У������Խ�������ʹ�õķ��š�
  • ����һ���ⲿ���������ֻ����������Ϳ�ִ��һ��ӳ�󡣸������� "�ⲿ��"����Ϊ���� DCL ��˵������δ֪�ġ�
  • ����������ļ��У�ִ�б������������ִ�кͱ����滻��
    ����ʹ�÷�����Ϊ����ʽ�еı��������ߴ��Ͳ�����������̺ʹ�������̴��ء����⣬DCL ���� (�� READ��WRITE �� INQUIRE) ��ʹ�÷����������ݼ�¼��

�����������У�����һ�����ţ�����������Ϊ������ȡ��Ĭ��Ŀ¼����Щ����չʾ��ζ����ʹ�÷��� WORK ��Ĭ��Ŀ¼����Ϊ WORK1:[JONES.WORK] Ŀ¼:


$  WORK :== SET DEFAULT DISK1:[JONES.WORK]
$  WORK
$  SHOW DEFAULT
   DISK1:[JONES.WORK]

12.1.1 �Ƚ��߼����ͷ���

��Ȼ�߼����ͷ������ƣ������ǵ�ʹ�ò�ͬ�����±���Ƚ��߼����ͷ��ŵĹ��ܡ�ʹ�ú���������:

���� �߼��� ����
���� ��ʾ�豸��Ŀ¼���ļ������к�����ϵͳ����˵���� ��ʾ����򲿷������
ʹ�� ���ڴ����κ��������豸��Ŀ¼���ļ������л�����ϵͳ����˵�����߼��������������������һ���֣��Ա㴫�͸��ļ�ϵͳ���롣 ���ڴ����κ���������ű������������ַ����еĵ�һ���֣��Ա��������Խ��ͳ����롣
�洢 �洢�ڽ��̡���ҵ�����ϵͳ�߼������ڡ������ 11.10 ���� �洢��ȫ�ֻ�ֲ����ű�������� 12.10 ����
���� ʹ�� ASSIGN �� DEFINE ������߼���������� 11.3 ���� ʹ�ø�ֵ��� (= �� ==) �������š������ 12.2 ����
��ʾ ʹ�� SHOW LOGICAL �� SHOW TRANSLATION ������ʾ�߼���������� 11.6 ���� ʹ�� SHOW SYMBOL ������ʾ���š������ 12.3 ����
ɾ�� ʹ�� DEASSIGN ����ɾ���߼���������� 11.4 ���� ʹ�� DELETE/SYMBOL ����ɾ�����š������ 12.2.5 ����

12.2 ʹ�÷���

�����Խ���������ţ��ֲ���ȫ�֡��ֲ������ɴӵ�ǰ����͵�ǰ���ִ�е���������д�ȡ��ȫ�ַ�����ɴ����������ȡ��

��������һ���ַ����������ʷ��������߼�ֵ����һ�����Ŷ���һ�����š������������� 1 �� 255 ���ַ��������ұ��뿪ʼ��һ����ĸ���»��� (_) ����Ԫ�� ($)���ڷ������У�Сд�ʹ�д��ĸ��������Ϊ��д��ĸ��

Ҫ����һ�����ţ�ʹ����ֵ��� (= �� ==) ���ַ�����ֵ (:= �� ::=��=)����ʹ���ַ�����ֵʱ��������ĸ�ַ���ת��Ϊ��д��ĸ��������ո���Ʊ�����ѹ��Ϊ�����ո񡣿���ʹ���ַ�����ֵ������һ����ʾ DCL ��������ⲿ����ķ��� (ע�⣬���κ�һ������£����� 255 ���ַ���������)��Ҫ��һ���ַ�����ֵ��ʹ�ַ������У�ʹ��һ�����ֺš�

��Ҳ����ʹ�� READ �� INQUIRE ��������� (������� 13 ������ 14 ��)��

�����ֲ�����

�����������У��ֲ����� SS ����ֵΪ DCL ���� SHOW SYMBOL:


$ SS = "SHOW SYMBOL"

�����������У��ֲ����� DB ��ֵΪ DCL ���� DIRECTORY ACCOUNTS:[BOLIVAR]:


$ DB := DIRECTORY ACCOUNTS:[BOLIVAR]

����ȫ�ַ���

�����������У�ȫ�ַ��� DC ������ʾһ�� DCL �����С����������������ʱ��DCL ���� DIRECTORY ��ָ���޶���ִ��:


$ DC == "DIRECTORY/SIZE=ALL DISK1:[JONES.TAX]MONEY.LIS"

�����������У�ȫ�ַ��� READY ������ʾһ�� DCL �����С����������������ʱ��DCL ���� PRINT ��ָ���޶���ִ��:


$ READY :== PRINT/CONFIRM/QUEUE=AKI$LN03/NOTIFY/RESTART
$ READY FILE.DAT

12.2.1 ʹ�÷��ű�ʾ DCL ����

��������ע�������ļ� (LOGIN.COM) ���� DCL �������ض���һ����ʾ DCL ����ķ��š���ע�������ļ��ж������ʱ���Ϳ���ÿ��ע��ʱʹ��������ţ����������ض������ʱ��ֻ�����ڵ�ǰ�����ڼ�ʹ��������š�

�������ķ����� DCL ����ͬ�������Ķ��彫ȡ����� DCL �����������磬����ѷ��� HELP ����Ϊ���� TYPE HELP.LST����ô���� HELP ʱ�Ϳ��Բ��ٵ���ϵͳ�� Help ���ó���

12.2.2 ������д

ʹ���Ǻ� (*) ����һ��������д�ķ��š�һ����ԣ�����������ʹ�÷��ŵ��κ�������ʹ����д���Ŷ��塣�����Ӵ��滻�ķ�����һ�����⡣�й����飬����� 12.6.5 ����

ע�⣬���еķ���Ҳ����ȡ�������һ�����з�����ȷƥ����Ǻŵ��·��ţ���ô�·��Ž��滻���еķ��š����⣬���ܶ�����һ�������Ʋ���ƥ���ڴ��Ǻŵ����з��ŵķ��š�

�������ӽ����ֲ����� PRINT����������дΪ PR��PRI �� PRIN:


$ PR*INT = "PRINT/CONFIRM/QUEUE=AKI$LN03/NOTIFY/RESTART"

Ҫ��ָ���޶���ִ����� DCL ���� PRINT����������������Ż������κ���д��

12.2.3 �����ⲿ����

�����һ���� DCL ӳ����ļ�˵����ͬ��һ�����ţ���������������Ϳ����������ӳ��һ������ӳ��ķ��ű���Ϊһ���ⲿ����ⲿ������һ��ӳ��������������ͳ���ʶ��Ϊ DCL ���(ע�⣬�� DCL ����һ�����ⲿ����Ҳ�� 255 ���ַ��������ơ�)

�ѷ��Ŷ���Ϊ�ⲿ����ĸ�ʽ������ʾ:

symbol-name :=[=] $image-file-spec
symbol-name =[=] "$image-file-spec"

ע�⣬�ڷ��Ŷ���Ŀ�ʼ����Ԫ�� ($) ���ļ�˵��֮ǰ��������Ԫ�����ļ�˵��֮�䲻���κοո�ʱ����ζ�������������ӳ��

����ӳ���ļ�˵����Ĭ���豸��Ŀ¼���� SYS$SYSTEM��Ĭ���ļ������� .EXE����Ĭ���ļ��汾������߰汾��

ʹ���ⲿ�������һ��������ʹ�� Command Definition ���ó�����������й����飬����� OpenVMS Command Definition, Librarian, and Message Utilities Manual��

Ҳ���Զ�ִ���ⲿ�����һ�ַ���������ָ�����š��й����飬����� 12.14 ����

�����������У�����ȫ�ַ��� PRINTALL ִ��ӳ�� DISK1:[ACCOUNTS]PRINTALL.EXE:


$ PRINTALL :==   $[ACCOUNTS]PRINTALL

���������У�PRINTALL ������Ը���һ��������

�����������У��ļ�˵�� RAT.DAT ��һ�����͸� PRINTALL �����ӳ��IJ���:


$ PRINTALL RAT.DAT

12.2.4 �����滻

������ͳ���Ѱ������ʡ�Ժ� (') �ڵķ��ţ����������ǡ���������ʹ��ǰ�����ʡ�Ժ�ָ�������ķ��Ż�ʷ��������ͷ��������滻 (����� 12.12 ��)������������ͳ��򲻷�����һ�С�ӳ������ò���������ִ�������е��κ���������ֵ��

12.2.5 ɾ������

DELETE/SYMBOL ����ɾ�����š�Ҫɾ��ȫ�ַ��ţ��ɰ��� /GLOBAL �޶��ʡ����磬Ҫɾ��ȫ�ַ��� TEMP��������������:


$ DELETE/SYMBOL/GLOBAL TEMP

12.3 ��ʾ����

SHOW SYMBOL ������ʾ���ŵ�ֵ��Ҫ��ʾ�ض����ŵ�ֵ������ SHOW SYMBOL ������Һ������������ŵ����ơ�Ҫ��ʾ�ض�ȫ�ַ��ŵ�ֵ��Ҫ���� /GLOBAL �޶��ʡ�SHOW SYMBOL/ALL ������ʾ���оֲ����š����� SHOW SYMBOL/ALL/GLOBAL ��ʾ����ȫ�ַ��š�

ע�⣬������������ֵʱ��SHOW SYMBOL ������ʮ���ơ�ʮ�����ƺͰ˽��Ʒ�����ʾ���ֵ��

�����������У���ʾ���� PR:


$  SHOW SYMBOL PR
PR*INT = "PRINT/CONFIRM/COPIES=2/QUEUE=DOC$LN03/NOTIFY/RESTART"

�����������У���ʾ���� TOTAL ������ֵ:


$ SHOW SYMBOL TOTAL
  TOTAL = 4   Hex = 00000004  Octal = 00000000004

12.4 ����������һ��ʹ�÷���

�ڶ�����һ�����ź󣬿���ʹ������Ϊ��һ�����Ŷ����һ���֡�DCL �ѷ��Ž���Ϊһ���ַ�����һ�����֣���ʹ�÷��ŵĻ���������

�����������У�����ֵ 3 ��ֵ������ COUNT:


$ COUNT = 3

Ȼ��COUNT ��ֵ����ʹ����������ֵ����С����磬����� COUNT ��ֵ�� 1:


$ TOTAL = COUNT + 1

��� (4) �ǵ��ڷ��� TOTAL��

12.4.1 ���Ŵ���

ʹ�üӺ� (+)�����԰Ѽ�������������������һ�����ַ�����ʹ��ʡ�Ժ� (') ��סÿ����������Ҳ�����������������ķ��š�

�й���������滻�����飬����� 12.12.2 ����

�����������У�ʹ�÷��� "Saturday" �� "Sunday" �������� "WEEKEND":


$ DAY1 = "Saturday, "
$ DAY2 = "Sunday"
$ WEEKEND = DAY1 + DAY2
$ SHOW SYMBOL WEEKEND
   WEEKEND = "Saturday, Sunday"

�����������У�ʡ�Ժ��������ӷ��� NAME �� TYPE:


$ NAME = "MYFILE"
$ TYPE = ".DAT"
$ PRINT 'NAME''TYPE'

PRINT �����ӡ MYFILE.DAT ��һ��������

12.4.2 ���ַ�����ֵ�а�������

Ҫ���ַ�����ֵ�а����ֲ����ţ�ʹ��һ��ð�ź�һ���Ⱥ� (:=)��Ҫ���ַ�����ֵ�а���ȫ�ַ��ţ�ʹ��һ��ð�ź������Ⱥ� (:==)����������һ����� (�ֲ���ȫ��)���ѷ�������ʡ�Ժ� (' ') �ڡ�����DCL ��������ʶ��Ϊ���š�

���Ϊһ�����Ŷ���һ�����ַ�������ô������ŵ�ֵ�� 0��

�����������У����� COUNT ������һ���ַ�����ֵ�����:


$ BARK := P'COUNT'

����һ�������У�COUNT ����ֵΪ����ֵ 3������������У�COUNT ��ת��Ϊһ���ַ���ֵ�����Ҹ������ַ� P ֮�󡣾ֲ����� BARK ���ڵ�ֵ�� P3��

�����������У����� A Ϊ��:


$ A = ""
$ B = 2
$ C = A + B
$ SHOW SYMBOL C
   C = 2  Hex = 00000002  Octal = 00000000002

12.5 ʹ�÷��Ŵ洢�ʹ�������

����������У����԰ѷ�����������������ӵ�����������䲻ͬ������ֵ��ֵ�����磬���԰Ѵʷ�������ֵ��������������߰��ļ���¼��ֵ���������

����ʽ��ֵ�Ļ�ϡ�����������У�����ʽ���ڷ��Ÿ�ֵ��� (�ڵȺŵ��ұ�)��IF ��䡢WRITE ����ʹʷ������ı�Ԫ��

����һ������ʱ����ֵ������߶������������ֵ�����ұ߰�������ʽ������ʽ�е�ÿ��ֵ (Ҳ��Ϊ������) ����ͨ����������ӵ���һ��ֵ��DCL �����ʽ��ֵ�����ѽ����������š��������ʽ��ֵΪ�ַ�������ô�������ַ���ֵ��

�����������У��ֲ����� BARK ����һ�����������ı���ʽ:


$ BARK = 1 + 2 + 3

�������� 1��2 �� 3��������ǼӺ� (+)����ֵ�ı���ʽ�����������������һ������ֵ��

12.6 �ַ���

�ַ������԰����κο��Դ�ӡ���ַ�����¼ A ���� ASCII �ַ����� DEC ����ַ����ı�����Щ���г��������ַ����а������ַ���

�ַ���Ҫ��Ϊ����:

  • ��ĸ�����ַ�
    ��д��ĸ A �� Z��Сд��ĸ a �� z������ 1 �� 9����Ԫ�� ($)���»��� (_) �����ֺ� (-)��
  • �����ַ�
    ���п�����ʾ���ӡ�������ַ�: ��̾�� (!)������ (")�����ַ��� (#)���ȵȡ�
  • ���ɴ�ӡ���ַ�
    ���в��ܴ�ӡ����ʾ���ַ���һ����ԣ���ʾ�ʹ�ӡʱ�����Բ��ɴ�ӡ���ַ���Ȼ�����м������ɴ�ӡ���ַ����п��ƹ��ܣ�������ʾ:
    �ַ� ����
    HT ����һ��ˮƽ�Ʊ�����ʼ��ӡ����� 
    LF ����һ�п�ʼ��ӡ�����
    FF ����һҳ������ʼ��ӡ�����
    CR ��ͬһ�е�һ���ո񴦿�ʼ��ӡ�����
    ESC �����ն˻����
    SP ����һ���ո�

12.6.1 �����ַ���

��һ���ַ����������� (" ") �ڿ��Զ������������ַ������з��Ÿ�ֵʱ��������ĸ��Сд�Ϳո�ע�����¼���:

  • Ҫ���ַ����ڰ������� (")�����������������š�
  • Ҫʹ�ַ������У�ʹ��һ���Ӻ� (�����ַ�������) ��һ�����ֺ� (��������)��
    �����õ��ַ����ڣ�����ʹ�����ֺ������ַ���

�����������У��ַ��� "YES" �����ã�����������������ڶ���:


$ PROMPT = "Type ""YES"" or ""NO"""
$ SHOW SYMBOL PROMPT
  PROMPT = "Type "YES" or "NO""

�����������У��ַ�������:


$ HEAD = "MONTHLY REPORT FOR" + -
_$ " DECEMBER 1999"
$ SHOW SYMBOL HEAD
  HEAD = "MONTHLY REPORT FOR DECEMBER 1999"

12.6.2 �ַ�������ʽ

�ַ�������ʽ���԰����ַ�������ֵΪ�ַ����Ĵʷ����������ַ���ֵ�ķ��š��ڱ���ʽ��ʹ���ַ���ʱ����������������� (" ") �ڡ������ʹ�����ţ�DCL ���ַ�������Ϊ���š�

�ַ�������ʽ�������ֵ (��Ϊ�ַ���������):

  • ��������������ڵ��ַ���
  • ��ʾ�ַ����ķ���
  • ��ֵΪ�ַ����Ĵʷ�����

�����һ���ַ�����һ����֮��ִ��һ��������Ƚϣ���ô DCL �����ַ���ת��Ϊһ������

�ַ����������������� (�ַ�������)����ȥ (�ַ�������)���Ƚϻ��������ַ����滻��������С��������

�����������У��ַ��� "CAT" ���������������:


$  TEMP = "CAT"

�����������У����� TEMP ��ʾ�ַ��� "CAT"������ TOPIC ���ַ��� "THE" �ͷ��� TEMP ��ʾ���ַ��� ("CAT") �Ĵ����������� "THE CAT"��


$  TOPIC = "THE" + TEMP

�����������У����� COUNT ��ʾ�ʷ����� F$STRING(65):


$  COUNT = F$STRING(65)

12.6.3 �ַ�������

����ָ�������ַ�������:

  • ���� --- �Ӻ����������ַ�����
  • ���� --- ���Ŵӵ�һ���ַ�����ȥ�ڶ����ַ�����
    ����ڶ����ַ����ڵ�һ���ַ����г���һ�����ϣ���ôֻ��ȥ����ַ����ĵ�һ�γ��֡�

�����������У��Ӻ� (+) �������������ַ���:


$ COLOR = "light brown"
$ WEIGHT = "30 lbs."
$ DOG2 = "No tag, " + COLOR + ", " + WEIGHT
$ SHOW SYMBOL DOG2
  DOG2 = "No tag, light brown, 30 lbs."

�����������У����� (-) ������ȥһ���ַ���:


$ SHOW SYMBOL DOG2
  DOG2 = "No tag, light brown, 30 lbs."
$ DOG2 = DOG2 - ", 30 lbs."
$ SHOW SYMBOL DOG2
  DOG2 = "No tag, light brown"


ǰҳ ��ҳ Ŀ¼ ����