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 ��ֵ:
�����������У�һ�� 80 ���հո��ֵ��ֵ������ LINE:
�����������У���һ�����ʹ�� 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 (ʮ����)�����һ��ָ���Ļ����������������Χ���ᱨ�����������ó�һ��������
��
�� 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 ���ַ���ת��Ϊһ������
���ֱ���ʽ�������ֵ (��Ϊ����������):
- ����������:
- ��ֵΪ�����Ĵʷ�����������:
$ B = F$INTEGER("-9" + 23)
|
- ������ֵ�ķ��š�����:
��ǰ��������У����� B ��ʾ F$INTEGER �������ص�����ֵ
( -923 )��
��Щ��������������ͨ�����������ͱȽ������������һ�������¼���������
����ָ��������������:
- �˷�
�Ǻ� (*) ����������
- ����
б�� (/) �õڶ���ָ����ȥ����һ��ָ���������һ����������������ô��ʧȥ���������������롣 - �ӷ�
�Ӻ� (+) ���������� -
����
���� (-) �ӵ�һ��ָ������ȥ�ڶ���ָ������ - һԪ�Ӽ�
�Ӻźͼ��Ÿ���������֮������ķ��š�
����
- ��������ʾ������ֵһ������ʱʹ�ó˷�:
$ 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 ʹ����ֵ�ͱ���ʽ
���¼����������ʹ����ֵ�ͱ���ʽ��
��Щ�����������ַ�������Ϊ��ֵ�������ݣ�������ʾ:
- ��ֵ
���һ���������� (�������λ�� 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
|
|