![]() |
Software > OpenVMS Systems > Documentation > 731final > 6489 > hanzi ![]() HP OpenVMS Systems Documentation |
![]() |
OpenVMS �û��ֲ�
�� 14 ��
|
$ ! CENSUS.COM $ ! $ RUN CENSUS 1993 1994 1995 $ EXIT |
DCL ���������ϵ��ı�ֱ�Ӵ��ݸ�������̡� ��ˣ������������뷭������ݣ�����:
���¼�������Ϊ������̻���������ݵ���������������:
�±������Ѳ�����Ϊ���ݴ��ݸ�������̵�ָ��:
DCL �Ѵ��ݸ�������̵IJ�������ֲ����� P1 �� P8��P1 ��ֵΪ��һ������ֵ��P2 Ϊ�ڶ�����P3 Ϊ���������Դ����ơ����磬������������������ SUM.COM������ 8 ���������ݸ��������:
$ @SUM 34 52 664 89 2 72 87 3 |
ָ��һ��������Ϊ����ʱ������ת��Ϊ�ַ����������������У�P1 ���ַ���ֵ 24��P2 ���ַ���ֵ 25:
$ @ADDER 24 25 |
�������������ַ�������ʽ��ʹ�÷��� P1 �� P8��DCL �Զ�ִ�б�Ҫ��ת����
Ҫ���ַ����б��ֿո��Ʊ�����Сд��ĸ�ַ��������� (" ") ��������ַ���֮ǰ��֮������:
$ @DATA "Paul Cramer" |
�����������У�P1 �� Paul Cramer �� P2 Ϊ�ա����ʡ�����ţ���ôÿ���ַ���������Ϊ�����IJ���������:
$ @DATA Paul Cramer |
����������У��ַ��� Paul �� Cramer ��ת��Ϊ��д��ĸ��P1 �� PAUL �� P2 �� CRAMER��
����һ�����ӣ����������������� DATA.COM:
$ @DATA "Paul Cramer" 24 "(555) 111-1111") |
P1 �� P8 �� DATA.COM �������:
P1 = Paul Cramer
P2 = 24
P3 = (555) 111-1111
P4--P8 = null
Ҫ����һ�����ŵ�ֵ����ʡ�Ժŷ����������֮ǰ��֮��Ҫ���ַ���ֵ�еĿո��Ʊ�����Сд��ĸ�ַ�������������������Щֵ����Ҳ����ʹ���������Ű�����Ϊ�ַ���һ���ֵ����š�
��һ�����ǰ��ı����������ڣ������ڷ��ų��ִ�������ʡ�Ժŷ����������֮ǰ���Һ������һ��ʡ�Ժš�
�����������У����ڴ��ݷ��Ÿ��������ʱ DCL ��ȥ���ţ���� P1 �� Paul ���� P2 �� Cramer:
$ NAME = "Paul Cramer" $ @DATA 'NAME' |
�����������У�P1 �� "Paul Cramer" �� P2 Ϊ��:
$ NEW_NAME = """Paul Cramer""" $ @DATA 'NEW_NAME' |
�����������У�P1 ����Ϊ Paul Cramer:
$ ! DATA.COM $ @NAME "''P1'" |
Ҫ����һ���ղ��������������ַ�����ʹ��һ��������Ϊһ��ռλ���������������У����ݸ� DATA.COM �ĵ�һ��������һ���ղ���:
$ @DATA "" "Paul Cramer" |
����������У�P1 Ϊ�գ��� P2 �� Paul Cramer��
Ҫ�Ѳ������ݸ�������ģʽִ�е�������̣���ʹ�� SUBMIT �������� /PARAMETERS��
���Ҫʹ�õ��� SUBMIT ����ִ��һ������������̣���ôָ���IJ���������������ҵ�е�ÿ��������̡�
�����������У����������������������� ASK.COM �� GO.COM��������������ҵ��ʽִ��:
$ SUBMIT/PARAMETERS=(TODAY,TOMORROW,YESTERDAY) ASK.COM��GO.COM) |
������������SUBMIT ����������������������: LIBRARY.COM �� SORT.COM:
$ SUBMIT- _$ /PARAMETERS=(DISK:[ACCOUNT.BILLS]DATA.DAT,DISK:[ACCOUNT]NAME.DAT) - _$ LIBRARY.COM��SORT.COM |
������ҵ��ִ�о�������ע�Ტ��ִ��ÿ��������̡���� SUBMIT ����ִ��һ���������ʻ���ע���������ҵ��ִ��ע��������̣�Ȼ��ִ����������:
$ @LIBRARY DISK:[ACCOUNT.BILLS]DATA.DAT DISK:[ACCOUNT]NAME.DAT) $ @SORT DISK:[ACCOUNT.BILLS]DATA.DAT DISK:[ACCOUNT]NAME.DAT) |
����������а������ݣ����߰� SYS$INPUT ����Ϊһ���ļ�����Ҳ�������ݴ��ݸ�������ҵ��ָ���IJ���������������ҵ�е�ÿ��������̡�
�����Դ��ݶ�� 8 ��������Ƕ��������̡���Ƕ�����еľֲ����� P1 �� P8 ����ù��̵ľֲ����� P1 �� P8 �Dz���صġ�
�����������У�DATA.COM ����Ƕ��������� NAME.COM:
$ ! DATA.COM $ @NAME 'P1' Joe Cooper |
��� DATA.COM �е� P1 ���ַ��� Paul Cramer�������������ţ���ô����Ϊ�����������ݸ� NAME.COM���� NAME.COM �У�P1 �� P8 ��������:
P1 = PAUL
P2 = CRAMER
P3 = JOE
P4 = COOPER
P5--P8 = null
����� DATA.COM �е� P1 �� "Paul Cramer" (��������)����ô�� P1 ���� 3 �������ڿ������ֵ��Ϊһ���������ݸ� NAME.COM��������ʾ:
$ ! DATA.COM $ QUOTE = """ $ P1 = QUOTE + P1 + QUOTE $ @NAME 'P1' "Joe Cooper" |
����������У���������� NAME.COM �е� P1 �� Paul Cramer���� P2 �� Joe Cooper��
������ʹ�� INQUIRE ���� (���� 13 ������) �� READ ������ػ������������ݡ����������ʾ���벢��Ӧ��ֵ��һ�����š�
READ ���������·��治ͬ�� INQUIRE ����:
INQUIRE ����... | READ ����... |
---|---|
��ʾ����ֵ | ��ʾ����ֵ |
���ն˶�ȡֵ | �ӵ�һ������ָ������Դ��ȡֵ |
��һ�����Ÿ�ֵ | ����Ϊ�ڶ��������ķ��Ÿ�ֵ |
READ ������Ӧ��ʾʱ�������ն��ϼ������Ϊ��ȷ�ַ���ֵ �������ַ� (������ĸ��Сд���ո���Ʊ���)�����ʡ�� /PROMPT ���ʣ���ô READ ������ʾ Data: ��ΪĬ����ʾ��
��Ҳ���Ա�д������������̣������ǿ��Խ��ܲ����������û��ָ����Ҫ�IJ���ʱ����ʾ�û����롣
�����������У��������ʾ Filename: ���նˣ������� SYS$COMMAND (����Ĭ�ϣ��ն�) ָ������Դ��ȡӦ�𣬲��Ұ�Ӧ��ֵ������ FILE:
$ READ/PROMPT="Filename: " SYS$COMMAND FILE |
�����������У������̵���ʱ���û��ָ��һ���ļ���������ʾ�û�����һ���ļ���:
$ ! Prompt for a file name if name $ ! is not passed as a parameter $ IF P1 .EQS. "" THEN INQUIRE P1 "Filename" $ COPY 'P1' DISK5:[RESERVED]*.* $ EXIT |
������ύһ����Ϊ������ҵִ�е�������̣�DCL �� INQUIRE ����֮ǰ�������ж�ȡ�� INQUIRE ������ָ���ķ���ֵ������������������У����ű�����һ����ֵ�� |
������ó��������ϵͳӳ������� SYS$INPUT ָ������Դ������ǵ����룬����Ĭ�������� ������������У�SYS$INPUT ������Ϊ��������ļ�����Ҫ���ݵ������ӳ��Ҫ�ڴ��ļ���Ѱ�������С�Ȼ�����ض��� SYS$INPUT�������Դ��ն˻�Ӷ����������ļ��ṩ���ݡ�
������ SYS$INPUT ���¶���Ϊ�նˡ���������������̵��õ�ӳ���ý������룬�����Ǵ���������е������С�
ע�⣬�����Ҫ�����������ʹ����Ҫ��������� DCL ������ó������ SYS$INPUT ���¶���Ϊ�նˡ�
�����������У���������������������ṩ�����ӳ�� CENSUS.EXE:
$ ! Execute CENSUS getting data from the terminal $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND $ RUN CENSUS $ EXIT |
CENSUS.EXE ����ʱ��DEFINE/USER_MODE ������ʱ���¶��� SYS$INPUT����� CENSUS.EXE ���ն˻���������롣�� CENSUS.EXE ��� ֮��SYS$INPUT �ظ�������ԭʼ���� (��������ļ�)��
�����������У�������̰� EVE �����ı��༭����:
$ ! Obtain a list of your files $ DIRECTORY $ ! $ ! Get file name and invoke the EVE editor $ EDIT_LOOP: $ INQUIRE FILE "File to edit (Press Return to end)" $ IF FILE .EQS. "" THEN EXIT $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND $ EDIT/TPU 'FILE' $ GOTO EDIT_LOOP |
���������ʾ�����ļ�����ֱ������ Return ����ֹ���ѭ���������ļ���ʱ�������Զ����� EVE ���༭����ļ�����������༭����ʱ��SYS$INPUT ������Ϊ�նˣ�������Խ���������༭��
�� SYS$INPUT ����Ϊһ���ļ����������Ҳ���Դ��ļ�������롣ע�⣬DCL �����������У��������ֱ�Ӱ��������ϵ��ı����ݸ������ӳ��������������ϰ��� DCL ���Ż����ʽ��DCL �����滻������ŵ�ֵ������ֵ����ʽ���������������ʹ�ø�̾�� (!)����ô���������ݸ�����ӳ��ᴦ�������̾�� ��
�������ļ�������ָ��Ϊ SYS$INPUT����Ҳ���ѳ��������������ļ��С���±�������������̶�ȡ�������Ǵ���һ���ļ���
��������չʾһ��������̣�������һ�� FORTRAN ������Һ�������������:
$ FORTRAN/OBJECT=TESTER/LIST=TESTER SYS$INPUT C THIS IS A TEST PROGRAM A = 1 B = 2 STOP END $ PRINT TESTER.LIS $ EXIT |
FORTRAN ����ʹ������ SYS$INPUT ��ʶ������ļ������� SYS$INPUT ��ͬ�����������̣���� FORTRAN ������������� FORTRAN ����֮������ (ֱ����һ����ʼ����Ԫ����������)���������ʱ��������������ļ�: TESTER.OBJ �� TESTER.LIS��Ȼ��PRINT �����ӡ����ļ���
������̵�����������ݡ�������Ϣ��������У�飬���Ա�ָ�����ն˻������ļ���������������ָ������ķ���:
ʹ�� TYPE ������ʾ�м��г����Ҳ���Ҫ�����滻���ı���TYPE �������ָ���ļ�������д�� SYS$OUTPUT��
�����������У�SYS$INPUT ��ָ��Ϊ�����ļ���TYPE ����������ж�ȡ���ݣ������ն�����ʾ��Щ�С�
$ ! Using TYPE to display lines $ TYPE SYS$INPUT REPORT BY MARY JONES PREPARED APRIL 15, 2002 SUBJECT: Analysis of Tax Deductions for 2002 . . . $ EXIT |
ʹ�� WRITE ����д��������Ż�ʷ����������ݡ����ǰ������������� (" ") �ڣ����� WRITE �����Զ�ִ�з����滻��
Ҫʹ�� WRITE ������ַ�����ʾΪ�����ı������ַ����������� (" ") �ڡ�����:
$ WRITE SYS$OUTPUT "Two files are written." Two files are written. |
Ҫ���ַ����а������ţ�ʹ���������� ("" "")������:
$ WRITE SYS$OUTPUT "Summary of ""Q & A"" Session" Summary of "Q & A" Session |
Ҫ��һ�����ϼ���һ���ı�����һ���Ӻ� (+) �����ֺ� (-) �����������ַ���������:
$ WRITE SYS$OUTPUT "Report by Mary Jones" + - " Prepared April 15, 2002" Report by Mary Jones Prepared April 15, 2002 |
WRITE �����Զ�ִ�з����滻������ʾ���ŵ�ֵ��Ҫ���ַ�����ǿ�Ʒ����滻���ѷ�������ʡ�Ժ��ڡ�����:
$ AFILE = "STAT1.DAT" $ BFILE = "STAT2.DAT" $ WRITE SYS$OUTPUT "''AFILE' and ''BFILE' ready." STAT1.DAT and STAT2.DAT ready. |
����������У�STAT1.DAT �Ƿ��� AFILE �ķ��룻STAT2.DAT �Ƿ��� BFILE �ķ��롣
������ó��������ϵͳӳ������ǵ����д������ SYS$OUTPUT ָ������Դ������Ĭ�ϣ�SYS$OUTPUT ��ͬ���նˡ�Ȼ�����������·���֮һ�ض������:
�����������У�������̰� SHOW USERS ���������ض���һ���ļ���ֻ��ִ�� SHOW USERS ����ʱ��SYS$OUTPUT �¶������Ч��
$ DEFINE/USER_MODE SYS$OUTPUT SHOW_USER.DAT $ SHOW USERS $ ! $ ! Process the information in SHOW_USER.DAT $ OPEN/READ INFILE SHOW_USER.DAT $ READ INFILE RECORD . . . $ CLOSE INFILE $ EXIT |
�����������У�SYS$OUTPUT ����Ϊһ�����豸 (NL:)��
$ DEFINE/USER_MODE SYS$OUTPUT NL: $ APPEND NEW_DATA.DAT STATS.DAT . . . |
/USER_MODE ������������һ����ʱ������ֵ����ֻ������һ��ӳ�����֮ǰ����Ч�����������ִ��֮��SYS$OUTPUT �ظ���Ĭ�϶��� (ͨ�����ն�)��
������ʹ�� DEFINE/USER_MODE �����ض�����������ͳ�����ִ�е� DCL ������������Ϊ���棬ʹ�� DEFINE �������¶��� SYS$OUTPUT������ʹ�� DEASSIGN ����ɾ������ʹ�õĶ��塣
�±������г���������ͳ�����ִ�е� DCL ����:
= | ALLOCATE | ASSIGN |
ATTACH | CALL | CANCEL |
CLOSE | CONNECT | CONTINUE |
CREATE/LOGICAL_NAME_TABLE | DEALLOCATE | DEASSIGN |
DEBUG | DECK | DEFINE |
DEFINE/KEY | DELETE/SYMBOL | DISCONNECT |
ELSE | ENDIF | ENDSUBROUTINE |
EOD | EXAMINE | EXIT |
GOSUB | GOTO | IF |
INQUIRE | ON | OPEN |
READ | RECALL | RETURN |
SET CONTROL | SET DEFAULT | SET KEY |
SET ON | SET OUTPUT_RATE | SET PROMPT |
SET PROTECTION/DEFAULT | SET SYMBOL/SCOPE | SET UIC |
SET VERIFY | SHOW DEFAULT | SHOW KEY |
SHOW PROTECTION | SHOW QUOTA | SHOW STATUS |
SHOW SYMBOL | SHOW TIME | SHOW TRANSLATION |
SPAWN | STOP | SUBROUTINE |
THEN | WAIT | WRITE |
��������չʾ�������� SHOW TIME ���������ض����ļ� TIME.DAT ������ڽ����ֵ SYS$OUTPUT ֮�����ֻظ���Ĭ�϶��� (�ն�)��
$ DEFINE SYS$OUTPUT TIME.DAT $ SHOW TIME $ DEASSIGN SYS$OUTPUT |
ǰҳ | ��ҳ | Ŀ¼ | ���� |