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

HP OpenVMS Systems Documentation

Content starts here

OpenVMS �û��ֲ�


ǰҳ Ŀ¼ ����

12.8.3 �߼��������

���±���ʾ��������λ�������ֵ��߼�������������߼������У��Ӵ�д��ĸ��Сд��ĸ T �� Y ��ʼ���ַ�������Ϊ�� 1�����κ������ַ���ʼ���ַ�������Ϊ�� 0�����߼������У�����Ϊ��ֵ����ż������Ϊ��ֵ��

����: �� �� �����:
λ A λ B �� .NOT. A A .AND. B A .OR. B
1 1   0 1 1
1 0   0 0 1
0 1   1 0 1
0 0   1 0 0
����: �� �� �����:
�� A �� B �� .NOT. A A .AND. B A .OR. B
�� ��   ż �� ��
�� ż   ż ż ��
ż ��   �� ż ��
ż ż   �� ż ż

12.8.4 ʹ�ôʷ������ķ���ֵ

�ʷ�����ͨ�������������ʹ�ã�����ϵͳ������Ϣ�������й�ϵͳ���̡������ʹ�ӡ���к��û����̵���Ϣ��Ҳ����ʹ�ôʷ����������ַ����ͷ����߼���������һ���ʷ�������ֵ��һ������ʱ��������ž͵�������ʷ��������ص���Ϣ (���磬һ�������ַ���)��Ȼ���� DCL ���������� DCL ���� SHOW SYMBOL ��ʾ�����Ϣ������������У��洢�ڷ����ϵ���Ϣ�Ժ����ʹ���ڹ����С��йشʷ����������飬������� 15 ����

Ҫʹ�ôʷ���������ָ���ʷ����������� (�����Ǵ� F$ ��ʼ) �����ı�Ԫ�б���ʹ�����¸�ʽ:


F$function-name(args[,...])

��Ԫ�б����溯���������Դ��κ���Ŀ�IJ���ո���Ʊ�����

��ʹ�ôʷ�����ʱ���������¹���:

  • �ѱ�Ԫ�б�����Բ�����ڡ�
  • ������б��У���׼ȷ����ָ����Ԫ�������ö��ŷֿ�����ʹʡ�Կ�ѡ��Ԫ��Ҳ����ʡ�Զ��š�
  • �������Ҫ��Ԫ����ô����յ�Բ���š�
  • ��ѭ���¹����д����ʽ: ���ַ������������ڣ��������������źʹʷ��������������ڡ�

��ʹ���ַ����������ͷ���ͬ���ķ���ʹ�ôʷ��������ڱ���ʽ��ʹ�ôʷ�����ʱ��DCL �Զ����������ֵ���������ķ���ֵ�滻���������

�����������У�F$LENGTH ��������ָ��Ϊ��Ԫ�� BUMBLEBEE ��ֵ���ȡ�DCL �Զ�ȷ������ֵ (9)����ʹ�����ֵ���������ʽ��ֵ��
��ˣ�����ʽ (9 + 1) �Ľ���� 10�����Ұ����ֵ�������� SUM:


$ SUM = F$LENGTH("BUMBLEBEE") + 1
$ SHOW SYMBOL SUM
  SUM = 10   Hex = 0000000A  Octal = 00000000012

ע�⣬ÿ���ʷ��������ص���Ϣ��һ������������һ���ַ��������⣬����Ϊ�ʷ�����ָ��һ����ʾ�������ַ����ı�Ԫ��

���磬F$LENGTH ������Ҫһ���ַ�������ʽ�ı�Ԫ������������ֵ������һ�������У���Ԫ "BUMBLEBEE" ���ַ�������ʽ��������ֵ (9) ��������

������ʹ�÷��ŵ��κ�λ��ʹ�ôʷ��������ڷ����滻��λ�ã�����ǿ�ưѷ�������ʡ�Ժ��� (����� 12.12 ��)���ʷ�������ֵ����ǿ�ưѴʷ���������ʡ�Ժ��ڡ��ʷ�����Ҳ�������������ʷ������ı�Ԫֵ��

��������չʾ����Ϊ F$LENGTH ����ָ����Ԫ�IJ�ͬ��������ÿ�������У���Ԫ���ַ�������ʽ��

  • ��������չʾһ��������Ԫ�ķ���:


    $ BUG = "BUMBLEBEE"
    $ LEN = F$LENGTH(BUG)
    $ SHOW SYMBOL LEN
      LEN = 9   Hex = 00000009  Octal = 00000000011
    

    �ѷ��� BUG ������Ԫʱ������������ס�����ʷ������Զ���ֵ "BUMBLEBEE" ���� BUG��ȷ���䳤�ȣ�������ֵ 9��
  • ��������չʾ�������ź��ַ����ı�Ԫ:


    $ BUG = "BUMBLEBEE"
    $ LEN = F$LENGTH(BUG)
    $ SHOW SYMBOL LEN
      LEN = 9   Hex = 00000009  Octal = 00000000011
    $ LEN = F$LENGTH(BUG + "S")
    $ SHOW SYMBOL LEN
      LEN = 10   Hex = 0000000A  Octal = 00000000012
    

    ���� BUG ���������ţ����ַ��� "S" Ҫ���롣��Ԫ������ F$LENGTH ��������ȷ���䳤��֮ǰ��ֵ������ BUG ��ʾ��ֵ ("BUMBLEBEE") ���ַ��� "S" ���ӣ������� "BUMBLEBEES"��F$LENGTH ����ȷ���ַ��� "BUMBLEBEES" �ij��Ȳ�����ֵ 10��
  • ��������Ϊ F$LENGTH ����ʹ����һ���ʷ�������Ϊ��Ԫ��F$DIRECTORY �������ص�ǰĬ��Ŀ¼�����ƣ����Ұ��������š������������У���ǰĬ��Ŀ¼�� [SALMON]��


    $ LEN = F$LENGTH(F$DIRECTORY())
    $ SHOW SYMBOL LEN
      LEN = 8   Hex = 00000008  Octal = 00000000010
    

�� F$DIRECTORY ����������Ԫʱ������ʹ�����ţ���������Զ���ֵ��F$DIRECTORY �����Ľ�������� F$LENGTH ��������ȷ���䳤��֮ǰ���ء�Ȼ��F$LENGTH ����ȷ��Ĭ��Ŀ¼�ij��ȣ����Ұ��������š�

12.8.5 ��������

һ������ʽ���԰����ܶ�����ͱȽϡ�����ڱ���ʽ������������������ʱ���ǵ���ֵ������±���������г�������������Ȩ���������Ȩ������˵���ڱ�������������ڵײ��������֮ǰִ�С�

����Ȩ ����
7 һԪ�� (+) ��һԪ�� (-)
6 �˷� (*) �ͳ��� (/)
5 �ַ����� (����) �ͼ� (����)
4 �������ֺ��ַ��Ƚ�
3 �߼� .NOT. ����
2 �߼� .AND. ����
1 �߼� .OR. ����

�������ʽ��������ͬ������Ȩ��������������ô�����Ǵ�������ִ�С���Ҫ��ִ�е��������Բ�����ڣ�����ȡ������������Ȩ���� (����ͱȽ���ֵ�Ĵ���)��Բ����Ҳ����Ƕ�� ��

�����������У�Բ����ǿ�Ƽӷ��ڳ˷�֮ǰִ�С��������Բ���ţ���ô�˷���ִ�У������ 26:


$ RESULT = 4 * (6 + 2)
$ SHOW SYMBOL RESULT
  RESULT = 32   Hex = 00000020  Octal = 00000000040

12.8.6 ��ֵ����������

DCL �Է��ŵ���ֵ������ַ�������������ֵ�����ŵ��������� (�ַ�������) �ɵ�ǰ��ֵ����������ȷ�������������Ͳ������õ�: ���ֵ�������������ͣ���ô����Ҳ�������������͡�

����ʽ�������������ַ���ֵ����ȡ����ֵ�����ͺ�ʹ�õ����������

�����������У��ֲ����� NUM �ȸ���һ���ַ�ֵ��Ȼ�󵱸�ֵһ����������ʽʱת��Ϊһ������ֵ:


$ NUM = "ABC"
$ NUM = 2 + 5

���±������ DCL ��ζԱ���ʽ��ֵ����һ���г�����ʽ���԰����IJ�ֵͬ�������������ÿ��������ڶ��и�����������ʽ����ʲô���ڱ��У��κ�ֵ�����ַ�����������

����ʽ ���
ֵ����
����ֵ ����
�ַ���ֵ �ַ���
�����ʷ����� ����
�ַ����ʷ����� �ַ���
�������� ����
�ַ������� �ַ���
+��- �� .NOT. �κ�ֵ ����
�κ�ֵ .AND. �� .OR. �κ�ֵ ����
�ַ��� + �� - �ַ��� �ַ���
���� + �� - �κ�ֵ ����
�κ�ֵ + �� - ���� ����
�κ�ֵ * �� / �κ�ֵ ����
�κ�ֵ (�ַ����Ƚ�) �κ�ֵ ����
�κ�ֵ (���ֱȽ�) �κ�ֵ ����

12.9 �ڱ���ʽ��ת��ֵ������

�� DCL ������ֵ����ʽ֮ǰ���ڱ���ʽ�е����в������������ͬ����ֵ�������͡�ֵ���ַ����������������͡��ַ������ݰ����ַ��������ַ���ֵ�ķ��źͷ����ַ���ֵ�Ĵʷ��������������ݰ���������������ֵ�ķ��źͷ�������ֵ�Ĵʷ�������������ʽ���������ַ���������ʱ��DCL �������ַ���ת��Ϊ���������߰���������ת��Ϊ�ַ�����

һ����ԣ����ʹ���ַ���������ֵ����ô�ַ���ֵת��Ϊ������Ψһ�������ǵ� DCL ִ���ַ����Ƚ�ʱ������Щ�Ƚ��У�����ת��Ϊ�ַ�����

���⣬���´ʷ�����ȷ������ı���ʽ��ֵ:

  • F$TYPE --- ȷ�����ŵĵ�ǰֵ����
  • F$INTEGER --- ���ַ�������ʽת��Ϊ����ֵ
  • F$STRING --- �����ͱ���ʽת��Ϊ�ַ���ֵ

12.9.1 ���ַ���ת��Ϊ����

�����·������ַ���ת��Ϊ����:

  • ���������ַ���ת��Ϊ���ǵ�����ֵ�����磬�ַ��� "45" ת��Ϊ���� 45��
  • ����ַ����� T��t��Y �� y ��ʼ����ô����ת��Ϊ���� 1��
  • ����ַ������κ�������ĸ��ʼ������ת��Ϊ���� 0��

�±�չʾ�ַ���ת��Ϊ����ֵ������:

�ַ��� ��Ϊ���������
"123" 123
"12XY" 0 (��)
"Test" 1 (��)
"hello" 0 (��)

12.9.2 ������ת��Ϊ�ַ���

��������ת��Ϊ�ַ���ʱ����Ϊ������ַ���������Ӧ������ֵ�������±�չʾ������α�ת��Ϊ�ַ���ֵ:

���� ��Ϊ������ַ���
123 "123"
1 "1"
0 "0"

12.10 ������ű�

���Ŵ洢�ھֲ���ȫ�ַ��ű��������ɲ���ϵͳά����

12.10.1 �ֲ����ű�

DCL ά��һ���ֲ����ű�������������Ҫ���̺͵�ִ��һ��������̡�ʹ�� CALL ������ύ������ҵʱ������ÿ��������������ֲ�����ʱ��DCL �ѷ��ŷ��뵱ǰ����ľֲ����ű����������������ڼ䣬DCL Ϊ������ά�� ����ֲ����ű�����һ��������ٻʱ�����ľֲ����ű� (�������������з���) ��ɾ�����йؽ��̡�������̺�������ҵ�����飬������� 16 ����

���������ľֲ�����֮�⣬�ֲ����ű����� DCL ά���� 8 �����š���Щ���ţ�����Ϊ P1��P2���Դ����ƣ�ֱ�� P8�����ڴ��Ͳ�����������̡����͸�������̵IJ����������ַ���������P1 �� P8 ����Ϊ���ַ��� ("")�����Ǵ洢�ھֲ����ű��С�

12.10.2 ȫ�ַ��ű�

DCL �ڽ����ڼ�ֻά��һ��ȫ�ַ��ű�����������ȫ�ַ��ŷ���������С�����������ȫ�ַ���֮�⣬ȫ�ַ��ű�����������ȫ�ַ��š���Щȫ�ַ��Ÿ����йس������������Լ�ϵͳָ��͹��ó����״̬��Ϣ��

$STATUS ������ȫ�ַ���

$STATUS �Ǵ�������ִ������ص��������롣���� $STATUS ���� OpenVMS ����ϵͳ��Ϣ����ĸ�ʽ��Ӧ�ó����һ������ֵ������ EXIT �����У���������ȫ�ַ��� $STATUS ��ֵ��ϵͳʹ�� $STATUS ��ֵȷ����ʾ��һ����Ϣ (�������)����ȷ���Ƿ�����һ�������������ִ�� ��$STATUS �������λ��ֵ����ȫ�ַ��� $SEVERITY �С�

$SEVERITY ������ȫ�ַ���

$SEVERITY �Ǵ�������ִ������ص�������������ؼ������� $SEVERITY ���� $STATUS �������λ������������ֵ:

0 ����
1 �ɹ�
2 ����
3 ��Ϣ
4 ���ص� (����) ����

$RESTART ������ȫ�ַ���

���һ��������ҵ��ϵͳʧ���жϺ�������������ô $RESTART ��ֵ TRUE������$RESTART ��ֵ FALSE��

12.10.3 ���ű���������

��������ͳ���ȷ��һ�����ŵ�ֵʱ���������´����������ű�:

  1. ��ǰ����ľֲ����ű�
  2. ÿ����һ����ľֲ����ű�����ǰ���������
  3. ȫ�ַ��ű�

12.11 ���η��ŵ�ֵ

���¼��������������ֵ���š�

12.11.1 SET SYMBOL ����

����Ĭ�ϣ����з��� (ȫ�ֺ;ֲ�) �������ڲ����̼��ɴ�ȡ���ⲿ������̼���Ȼ����ʹ�� SET SYMBOL ������԰�������̵ľֲ���ȫ�ַ��Ŵ�����������̶���ķ��Ÿ��������SET SYMBOL �������ξֲ���ȫ�ַ��ŵ�ֵ������ɾ�����ǡ���������һ���������ִ����һ��������̣������ڵڶ���������ָ�� SET SYMBOL ������Ϳ���������������ʹ��ͬ���ķ�������

SET SYMBOL ����Ҳ���� DCL �Ƿ��ڴ���������֮ǰ���԰Ѷ����ַ��� (���������еĵ�һ����) ����Ϊһ�����š���Ĭ����Ϊ�dz��Է��롣���������Ϊ���ŵ��ǵ�һ��������̵���һ������ʱ���������ܵ��ⲿ���̼�������Ӱ�졣

12.11.2 ����������״̬

������������ֲ����ź�ȫ�ַ����Dz�ͬ�������˳�һ�����̼����ص���һ������ʱ����Ϊ�ֲ����ź�ȫ�ַ��Żָ���һ�����������������ġ�

Ҫ��ʾ��ǰ��һ��ķ���������״̬��ʹ�ôʷ����� F$ENVIRONMENT("SYMBOL_SCOPE")��Ҫ��ʾ��ǰ����������״̬��ʹ�ôʷ����� F$ENVIRONMENT("VERB_SCOPE")��

�ֲ�����������

�ֲ����������ڹ��̼���������ⲿ���̼�����һ���ֲ����ţ�������ſ������κ��ڲ����̼�����ȡ (������д��)�������һ��ֵ����һ���ⲿ���̼��ľֲ����ţ����ڵ�ǰ���̼�����һ���·��š�Ȼ�������ⲿ���̼����������û�б��޸ġ�

SET SYMBOL/SCOPE=NOLOCAL ����ʹ��ǰ���̼����κ��ڲ������ɴ�ȡ�������ⲿ���̼������оֲ����š����磬����ڹ��̼� 2 �� 4 ָ�� SET SYMBOL/SCOPE=NOLOCAL����ô:

  • ���̼� 2 ֻ���Զ�ȡ��д�뼶 2 �ľֲ����š�
  • ���̼� 3 ���Զ�ȡ (���Dz���д��) �� 2 �ľֲ����š��� 3 Ҳ���Զ�ȡ��д�뼶 3 �ľֲ����š�
  • ���̼� 4 ֻ���Զ�ȡ��д�뼶 4 �ľֲ����š�

ȫ�ַ���������

ȫ�ַ�������̼��޹ء���ǰȫ�ַ����������������Ժ��Ӧ�������й��̼���

/SCOPE=NOGLOBAL �޶���ʹ���к�������ɴ�ȡ����ȫ�ַ��ţ�ֱ��ָ�� /SCOPE=GLOBAL �޶��ʻ����˳�������̵��ɴ�ȡȫ�ַ��ŵ���һ�������⣬ָ�� /SCOPE=NOGLOBAL �޶���ʹ�����ܽ����κ��µ�ȫ�ַ��ţ�ֱ��ָ�� /SCOPE=GLOBAL �޶��ʡ�


ǰҳ ��ҳ Ŀ¼ ����