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

HP OpenVMS Systems Documentation

Content starts here

OpenVMS �û��ֲ�


ǰҳ Ŀ¼ ����

12.6.4 �Ƚ��ַ���

�Ƚ������ַ���ʱ���ַ�����һ���ַ�����һ���ַ����бȽϡ���ͬ���ȵ��ַ����Dz���ͬ�� (���磬"dogs" ���� "dog")��

�Ƚ�׼�����ַ��� ASCII ֵ��������Щ׼������ 0 �� 9 С�ڴ�д��ĸ A �� Z������д��ĸ A �� Z С��Сд��ĸ a �� z������������һ������Ϊ��ʱ���ͽ����ַ����Ƚ�:

  • �ѱȽ������ַ�����������ĸ��Сд������ַ�������ͬ�ġ�
  • ���ֵ�һ����ƥ�䡣

�� 12-1 �г���ͬ���͵��ַ����Ƚϡ�

�� 12-1 �ַ����Ƚ�
�Ƚ� ����� ����
���� .EQS. ��һ���ַ�������һ�����бȽϣ�����Ƿ���ͬ��
���ڻ���� .GES. ��һ���ַ�������һ�����бȽϣ�����Ƿ��һ��ָ���ַ������нϴ��ֵ������ͬ��
���� .GTS. ��һ���ַ�������һ�����бȽϣ�����Ƿ��һ��ָ���ַ������нϴ��ֵ��
С�ڻ���� .LES. ��һ���ַ�������һ�����бȽϣ�����Ƿ��һ��ָ���ַ������н�С��ֵ������ͬ��
С�� .LTS. ��һ���ַ�������һ�����бȽϣ�����Ƿ��һ��ָ���ַ������н�С��ֵ��
���� .NES. ��һ���ַ�������һ�����бȽϣ�����Ƿ�ͬ��

���������������У��ٶ����� LAST_NAME ֵΪ "WHITFIELD"��

  • �����������У����� TEST_NAME ��ֵΪ 0 (��)������ LAST_NAME ��ֵ���������� "HILL":


    $ TEST_NAME = LAST_NAME .EQS. "Hill"
    $ SHOW SYMBOL TEST_NAME
      TEST_NAME = 0   ...
    
  • �����������У����� TEST_NAME ��ֵΪ 1 (��)������ LAST_NAME ��ֵ���ڻ�������� "HILL":


    $ TEST_NAME = LAST_NAME .GES. "HILL"
    $ SHOW SYMBOL TEST_NAME
      TEST_NAME = 1   ...
    
  • �����������У����� TEST_NAME ��ֵΪ 1 (��)������ LAST_NAME ��ֵ�������� "HILL":


    $ TEST_NAME = LAST_NAME .GTS. "HILL"
    $ SHOW SYMBOL TEST_NAME
      TEST_NAME = 1   ...
    
  • �����������У����� TEST_NAME ��ֵΪ 0 (��)������ LAST_NAME ��ֵ��С�ڻ�������� "HILL":


    $ TEST_NAME = LAST_NAME .LES. "HILL"
    $ SHOW SYMBOL TEST_NAME
      TEST_NAME = 0   ...
    
  • �����������У����� TEST_NAME ��ֵΪ 0 (��)������ LAST_NAME ��ֵ��С������ "HILL":


    $ TEST_NAME = LAST_NAME .LTS. "HILL"
    $ SHOW SYMBOL TEST_NAME
      TEST_NAME = 0   ...
    
  • �����������У����� TEST_NAME ��ֵΪ 1 (��)������ LAST_NAME ��ֵ���������� "HILL":


    $ TEST_NAME = LAST_NAME .NES. "HILL"
    $ SHOW SYMBOL TEST_NAME
      TEST_NAME = 1   ...
    

12.6.5 �滻�Ӵ�

ָ���滻�ַ�����λ�úʹ�С����������һ���ַ����滻һ���ַ�����һ���֡��ֲ����ŵĸ�ʽ��:


symbol-name[offset,size] := replacement-string

ȫ�ַ��ŵĸ�ʽ��:


symbol-name[offset,size] :== replacement-string

��Ԫ��������ʾ:

offset һ��������ָ���滻�ַ��������ԭʼ�ַ�����λ�ַ���λ�á�ƫ�� 0 ��ָ���ŵ���λ�ַ���ƫ�� 1 ��ָ�ڶ����ַ����Դ����ơ�
size һ��������ָ���滻�ַ����ij��ȡ�

Ҫ�滻�Ӵ����������¹���:

  • ����������Ҫ�ķ��š��ڷ���������������֮�䲻�����пո�
  • ��С��ƫ��ֵ������ֵ��Χ���Դ� 0 �� 768��
  • �滻�ַ���������һ���ַ��� ��
  • ָ���ķ��������������δ����ġ���ֵ��佨��������������б�Ҫ���ڷ���ֵ���ṩǰ����β��ո�
  • ����ָ��ƫ�ƺʹ�С������һ����ʾ�հ��еķ��š�

�������м�¼ʹ�б������ڶ�ȡ�����򡣿���ʹ�������ʽָ����δ洢���ݡ�

�����������У���һ����ֵ���Ϊ���� A ����ֵ PACKRAT���ڶ������ָ�� MUSK �滻 A ֵ��ǰ�ĸ��ַ��������� A ��Ϊ MUSKRAT��


$ A := PACKRAT
$ A[0,4] := MUSK
$ SHOW SYMBOL A
   A = "MUSKRAT"

�����������У����� B ��ǰû��ֵ�������������һ��ǰ�� �ĸ��ո�β�� RAT ��ֵ:


$ B[4,3] := RAT

�����������У�һ�� 80 ���հ׿ո��ֵ��ֵ������ LINE:


$ LINE[0,80]:= " "

�����������У���һ�����ʹ�� NAME ��ֵ��� DATA ��ǰ 15 �С��ڶ�������� GRADE ��ֵ���� 18 �С��� 16 �� 17 �а����հ�:


$ DATA[0,15] := 'NAME'
$ DATA[17,1] := 'GRADE'

12.7 ʹ����ֵ�ͱ���ʽ

һ��������������ֵ:

  • ʮ���� --- ASCII �ַ� 0 �� 9
  • ʮ������ --- ASCII �ַ� 0 �� 9 �� A �� F
  • �˽��� --- ASCII �ַ� 0 �� 7

��ֵ�����ŵ�����Χ������ --2147483648 �� 2147483647 (ʮ����)�����һ��ָ���Ļ����������������Χ���򲻻ᱨ�����������ó�һ�������� ��

12.7.1 ָ����

�� DCL ���������������У�������ʾָ��һ����:

  • ����
    �����ʵ�������ָ��һ��������
  • ����
    �ڸ���֮ǰ��һ������ ( - )��
  • ����
    ���� (�����Ǽ���) ֮ǰΪʮ��������ǰ�� %X ��Ϊ�˽�����ǰ�� %0��ָ��һ����ʮ����Ϊ��������
  • С��
    һ�������ܰ���ʮ����С���㡣�ڼ����У�С�����ֱ���ȡ�����磬8 �� 3 ���� 2��

�����������У��� 13 ��ֵ������ DOG_COUNT:


$ DOG_COUNT = 13
$ SHOW SYMBOL DOG_COUNT
  DOG_COUNT = 13   Hex = 0000000D  Octal = 00000000015

�����������У����� ( -15237 ) �ü��� ( - ) ��ʾ:


$ BALANCE = -15237
$ SHOW SYMBOL BALANCE
  BALANCE = -15237   Hex = FFFFC47B  Octal = 37777742173

�����������У�ʮ�������� D ��ǰ׺ %X ��ʾ:


$ DOG_COUNT = %XD
$ SHOW SYMBOL DOG_COUNT
  DOG_COUNT = 13   Hex = 0000000D  Octal = 00000000015
$ BALANCE = -%X3B85
$ SHOW SYMBOL BALANCE
  BALANCE = -15237   Hex = FFFFC47B  Octal = 37777742173

12.7.2 �����ڲ��洢

�����ڲ��洢Ϊ�з��ŵ� 4 �ֽ���������Ϊ���֣�������ֵ �� 0 �� 2147483647����������ֵΪ 4294967296 ��ȥ���������ֵ�����磬�� -15237 �洢Ϊ 4294952059������ ASCII ��ʮ������ʾ������ת�ؼ��Ÿ�ʽ��Ȼ��������ʮ�����ƺͰ˽�����ʾ�������Dz�ת���ġ����磬�� -15237 ��ʾΪʮ������ FFFFC47B (ʮ���� 4294952059)��������ʮ������ -00003B85��

ʹ�� ASCII ���������ִ���ʽ�����洢���ı��ļ��� (���磬���� 1 �д洢ֵ 49)��

�����ֱ���ʽ�У�������ֵ������������ (���� 3) �����ֵ�ķ��š����⣬����ʹ�ñ�ʾ�����ַ��� (���磬"23" �� "-51")�������һ������һ���ַ���֮��ִ��һ��������Ƚϣ�DCL ���ַ���ת��Ϊһ������

���ֱ���ʽ�������ֵ (��Ϊ����������):

  • ����������:


    $  COUNT = 1
    
  • ��ֵΪ�����Ĵʷ�����������:


    $  B = F$INTEGER("-9" + 23)
    
  • ������ֵ�ķ��š�����:


    $  A = B - 6
    

    ��ǰ��������У����� B ��ʾ F$INTEGER �������ص�����ֵ ( -923 )��

��Щ��������������ͨ���������߼��ͱȽ������������һ�������¼���������

12.7.3 ִ����������

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

  • �˷�
    �Ǻ� (*) ����������
  • ����
    б�� (/) �õڶ���ָ����ȥ����һ��ָ���������һ����������������ô��ʧȥ���������������롣
  • �ӷ�
    �Ӻ� (+) ����������
  • ����
    ���� (-) �ӵ�һ��ָ������ȥ�ڶ���ָ������
  • һԪ�Ӽ�
    �Ӻźͼ��Ÿ���������֮������ķ��š�

����

  • ��������ʾ������ֵһ������ʱʹ�ó˷�:


    $ BALANCE = 142 * 14
    $ SHOW SYMBOL BALANCE
      BALANCE = 1988   Hex = 000007C4  Octal = 00000003704
    
  • ��������ʾ������ֵһ������ʱʹ�ó���:


    $ BALANCE = BALANCE / 14
    $ SHOW SYMBOL BALANCE
      BALANCE = 142   Hex = 0000008E  Octal = 00000000216
    
  • ��������ʾ������ֵһ������ʱʹ�üӷ�:


    $ BALANCE = BALANCE + 37
    $ SHOW SYMBOL BALANCE
      BALANCE = 179   Hex = 000000B3  Octal = 00000000263
    
  • ��������ʾ������ֵһ������ʱʹ�ü���:


    $ BALANCE = BALANCE - 15416
    $ SHOW SYMBOL BALANCE
      BALANCE = -15237   Hex = FFFFC47B  Octal = 00000142173
    
  • ��������ʾ��ʹ��һԪ�����Ÿ����� -142 �ķ���:


    $ BALANCE = -(- a142)
    $ SHOW SYMBOL BALANCE
      BALANCE = 142   Hex = 0000008E   Octal = 00000000216
    

12.7.4 �Ƚ���

�� 12-2 �г���ͬ���͵����ֱȽϡ�

�� 12-2 ���ֱȽ�
�Ƚ� ����� ����
���� .EQ. ��һ��������һ�������бȽϣ�����Ƿ���ͬ��
���ڻ���� .GE. ��һ��������һ�������бȽϣ�����Ƿ��һ�����нϴ��ֵ������ͬ��
���� .GT. ��һ��������һ�������бȽϣ�����Ƿ��һ�����нϴ��ֵ��
С�ڻ���� .LE. ��һ��������һ�������бȽϣ�����Ƿ��һ�����н�С��ֵ������ͬ��
С�� .LT. ��һ��������һ�������бȽϣ�����Ƿ��һ�����н�С��ֵ��
�� ���� .NE. ��һ��������һ�������бȽϣ�����Ƿ�ͬ��

�����������У��ٶ����� BALANCE ��ֵ -15237��

  • �����������У�TEST_BALANCE ��ֵΪ 1 (��)��BALANCE ���� -15237:


    $ TEST_BALANCE = BALANCE .EQ. -15237
    $ SHOW SYMBOL TEST_BALANCE
      TEST_BALANCE = 1   ...
    
  • �����������У�TEST_BALANCE ��ֵΪ 1 (��)��BALANCE ���ڻ���� -15237:


    $ TEST_BALANCE = BALANCE .GE. -15237
    $ SHOW SYMBOL TEST_BALANCE
      TEST_BALANCE = 1   ...
    
  • �����������У�TEST_BALANCE ��ֵΪ 0 (��)��BALANCE ������ -15237:


    $ TEST_BALANCE = BALANCE .GT. -15237
    $ SHOW SYMBOL TEST_BALANCE
      TEST_BALANCE = 0  ...
    
  • �����������У�TEST_BALANCE ��ֵΪ 1 (��)��BALANCE С�ڻ���� -15237:


    $ TEST_BALANCE = BALANCE .LE. -15237
    $ SHOW SYMBOL TEST_BALANCE
      TEST_BALANCE = 1   ...
    
  • �����������У�TEST_BALANCE ��ֵΪ 0 (��)��BALANCE ��С�� -15237:


    $ TEST_BALANCE = BALANCE .LT. -15237
    $ SHOW SYMBOL TEST_BALANCE
      TEST_BALANCE = 0   ...
    
  • �����������У�TEST_BALANCE ��ֵΪ 0 (��)��BALANCE ���� -15237:


    $ TEST_BALANCE = BALANCE .NE. -15237
    $ SHOW SYMBOL TEST_BALANCE
      TEST_BALANCE = 0   ...
    

12.7.5 ִ�����ָ���

ʹ�ø�ֵ���������ʽ�����ԶԵ�ǰ����ִֵ�ж����� (λ��) ���ǡ����ھֲ����ţ���ʽ��:


symbol-name[bit-position,size] = replacement-expression

����ȫ�ַ��ţ���ʽ��:


symbol-name[bit-position,size] == replacement-expression

��Ԫ��������ʾ:

bit-position һ��������ָ���������ǵ������λ 0 ��λ�á�
size һ��������ָ�����ǵ�λ����

Ҫʹ�����ָ��ǣ��������¹���:

  • ������ ([]) ����Ҫ�ķ��š��������ڷ���������������֮���пո�
  • ����ֵ�ٶ�Ϊʮ��������
  • ��С (size) ����󳤶��� 32 λ��
  • �滻����ʽ������һ�����ֱ���ʽ��
  • �� symbol-name δ��������Ѷ���Ϊ�ַ���ʱ�����ǵĽ�����ַ��������򣬽����������

���������ж������ BELL ��ֵΪ 7��BELL �ĵ�λ�ֽ��ж�����ֵ 00000111����ƫ�� 5 �� 0 ����Ϊ 1 (�� 0 ��ʼ�����ҵ������λ��)�����Խ���������ֵ 00100111 (ʮ����ֵ 39):


$ BELL = 7
$ BELL[5,1] = 1
$ SHOW SYMBOL BELL
 BELL = 39   Hex = 00000027   Octal = 00000000047

12.8 ʹ���߼�ֵ�ͱ���ʽ

���¼����������ʹ���߼�ֵ�ͱ���ʽ��

12.8.1 �߼�����

��Щ�����������ַ�������Ϊ��ֵ���߼����ݣ�������ʾ:

  • ��ֵ
    ���һ���������� (�������λ�� 1)����������߼���ֵ������ַ�������λ�ַ��Ǵ�д��ĸ��Сд��ĸ�� T �� Y����ô����ַ������߼���ֵ��
  • ��ֵ
    ���һ������ż�� (�������λ�� 0)����������߼���ֵ������ַ�������λ�ַ����Ǵ�д��ĸ��Сд��ĸ�� T �� Y����ô����ַ������߼���ֵ��

�����������У�DOG_COUNT ��ֵΪ 13��IF STATUS ��ζ����� STATUS ���߼�ֵΪ�档


$ STATUS = 1
$ IF STATUS THEN DOG_COUNT = 13


$ STATUS = "TRUE"
$ IF STATUS THEN DOG_COUNT = 13

12.8.2 �߼�����ʽ

�߼�����Ӱ�������������λ���߼�����ʽ��ֵ�����������������ʽ�Ľ��Ҳ��������������߼�����ʽ��ָ��һ���ַ���ֵ����ô�ڱ���ʽ��ֵ֮ǰ�ַ���ת��Ϊһ��������

ͨ����ʹ���߼�����ʽ��ֵ�߼�ֵ�����λ������˵��Ҫȷ����ֵ�Ƿ�Ϊ���Ϊ�١�����ָ�������߼�����:

  • .NOT.
    ����� .NOT. ʹ�߼�ֵ��λ���÷���һ����ֵ��Ϊ�١���һ����ֵ��Ϊ�档
  • .AND.
    ����� .AND. ��������߼�ֵ��������ʾ:
    λ�� ʵ�弶
    1 .AND. 1 = 1 true .AND. true = true
    1 .AND. 0 = 0 true .AND. false = false
    0 .AND. 1 = 0 false .AND. true = false
    0 .AND. 0 = 0 false .AND. false = false
  • .OR.
    ����� .OR. ��������߼�ֵ��������ʾ:
    λ�� ʵ�弶
    1 .OR. 1 = 1 true .OR. true = true
    1 .OR. 0 = 1 true .OR. false = true
    0 .OR. 1 = 1 false .OR. true = true
    0 .OR. 0 = 0 false .OR. false = false

�������Ӱ���ֵ����Ϊ�١�����ʽ��ֵΪ -2����ֵ��ż�������Ϊ��:


$ SHOW SYMBOL STATUS
  STATUS = 1   Hex = 00000001  Octal = 00000000001
$ STATUS = .NOT. STATUS
$ SHOW SYMBOL STATUS
  STATUS = -2   Hex = FFFFFFFE  Octal = 37777777776

�������ӽ��һ����ֵ��һ����ֵ���Ӷ�����һ����ֵ:


$ STAT1 = "TRUE"
$ STAT2 = "FALSE"
$ STATUS = STAT1 .AND. STAT2
$ SHOW SYMBOL STATUS
  STATUS = 0   Hex = 00000000  Octal = 00000000000

�������ӽ��һ����ֵ��һ����ֵ���Ӷ�����һ����ֵ:


$ STAT1 = "TRUE"
$ STAT2 = "FALSE"
$ STATUS = STAT1 .OR. STAT2
$ SHOW SYMBOL STATUS
  STATUS = 1   Hex = 00000001  Octal = 00000000001


ǰҳ ��ҳ Ŀ¼ ����