BEAGLE-HC iAË@̌EJ@|[^TCg
�@���݈ʒu �F�@HOME�@���@�h�s�̊��p�@�� �v���O���~���O�@���@SAS �R�[�h���C�u�����A���i�f�[�^����j
������̂���
�@���Ö�̍őO��
�f�[�^�u�b�N
�@�w���X�P�A�s��
�@�f�[�^�u�b�N
�@(���ド���L���O)
�j���[�X
�@��ƃj���[�X
�@(�߲��ײ�ƭ��)
�@(�����E���Zƭ��)
�@(�l���`�j���[�X)
�@���f�B�A�j���[�X
�h�s�̊��p
�@�o���f�[�V����
�@�Z�L�����e�B
�@WORD�����̍쐬
�@�v���O���~���O
�@�iWord/VBA�j
�@�iExcel/VBA�j
�@�iAccess/VBA�j
�@�iSAS�j
�@�iSQL�j
�C�x���g
�@�C�x���g�����
�����Ќ���
�@������
�@�����Ќ���
�@���Z�Z�M�ꗗ
�@
�@
�i�ϐ��̒�`�j
���ϐ��̒�`
���ϐ��̏�����
�i���Z�q�j
���Z�p���Z�q
����r���Z�q
���_�����Z�q
��LIKE���Z�q
�i���l����j
�����l����i�֐��̎g�p�j
�i�����񑀍�j
�������񑀍�i�֐��̎g�p�j
��������̌���
�������_�ȉ��̌������w�肵�Đ؂�̂Ă��s�Ȃ�
���f�[�^���琔�l�܂��́A���������𒊏o����
�������̕ϐ��Ɍ����l���Z�b�g�i�������j����
�������ϐ��l�̈ꕔ�𒊏o����
�������l�𔻒肷��
�����K�\���֐��ɂ��p�^�[���ƍ�
�i���t����j
�����t����i�֐��̎g�p�j
���N����v�Z����
��������t�����̌��̑扽�T�ł��邩���Z�o����
��n������̓������t���擾����
�i�^�̕ϊ��j
�������^�̐����𐔒l�^�ɕϊ�����
�����l�𕶎��l�ɕϊ�����
�i�t�@�C������j
��LABEL�̒l���擾����i�֐��̎g�p�j
���ϐ��̌^���擾����i�֐��̎g�p�j
�iCALL���[�`���j
��CALL SYMPUT���[�`��
��CALL MISSING���[�`��
�@
�{�͂́A�f�[�^����Ɋւ���R�[�h�T���v����Ꭶ���Ă��܂��B
�@
�i�ϐ��̒�`�j
�ϐ��̒�` ���@�����߰�ނ̍ŏ���
�y�ϐ��̐����F�ÖٓI��`�z
�V�����ϐ����쐬����ɂ́C�����̍��ӂɂ��̕ϐ��������āC�E�ӂ̎��̒l�����蓖�Ă܂�

�@�@msg= ' ���b�Z�[�W�E�E�E�E';�@�@�@
/*�������́u�ŏ��ɑ�����ꂽ�����̒����v�ɂ���Č��肳��܂�*/

�y�ϐ��̖����I��`�z
DATA �X�e�b�v�ɂ�����ϐ��̖��O�ƌ^�𖾎��I�ɒ�`���܂��B
��`���ꂽ�ϐ��́ADATA���Ő錾����o�̓f�[�^�Z�b�g�i_NULL_�͏����j�̃I�u�U�x�[�V�����ɒlj�����܂��B
�@�������ADROP�X�e�[�g�����g�Ŏw�肵���ϐ��͒lj�����܂���B


DATA _NULL_;
�@�@LENGTH fname $ 100;�@�@�@
/*�P�O�O�����̕����^�ϐ��𖾎��I�ɒ�`�@1�`32767�o�C�g�܂ʼn”\ */
�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@ �@
/*�ϐ����̌���$��t����ƕ����^�ƂȂ�*/
�@�@LENGTH counter 4;�@�@�@ �@/*4�o�C�g���̐����^�ϐ��𖾎��I�ɒ�` �f�t�H���g��8�o�C�g */
RUN;
�@
�ϐ��̏����� ���@�����߰�ނ̍ŏ���
DATA �X�e�b�v���ɒ�`�����ϐ��i�����^�A�����^�j�́A�e�I�u�U�x�[�V�����̏����̍ŏ��ɁA���ꂼ��̌^���Ƃɏ������i�����l�j����܂��B
�@�������ARETAIN�X�e�[�g�����g�Ŏw�肵���ϐ��͏���������܂���B
�@
�i���Z�q�j
�Z�p���Z�q ���@�����߰�ނ̍ŏ���
SAS�ł͈ȉ��̎l�����Z�q��p���邱�Ƃ��o���܂��B
�{ ���Z
�| ���Z
�� ��Z
�^ ���Z
���� �ׂ���
�@
��r���Z�q ���@�����߰�ނ̍ŏ���
��r���Z�q�͕ϐ���l�܂��͑��̕ϐ��Ɣ�r���܂��B
=�@EQ ������
NE �������Ȃ�
>�@GT ���傫��
<�@LT ��菬����
>=�@GE �ȏ�
<=�@LE �ȉ�
�@
�_�����Z�q ���@�����߰�ނ̍ŏ���
AND �_����
OR �_���a
NOT �_���ے�
�@
LIKE���Z�q ���@�����߰�ނ̍ŏ���
�����l���w�肵���p�^�[���Ɣ�r���܂��B

�@LIKE '�p�^�[��'�G
% �C�ӂ̕�������u��������
_ �P������u��������
�@
�i���l�����j
���l����i�֐��̎g�p�j ���@�����߰�ނ̍ŏ���
SAS�ł͊֐���p���Čv�Z���s�����Ƃ����Ƃ��o���܂��B�֐��͌����l���v�Z�̑Ώۂ���͂����Čv�Z���܂��B
SUM(�����P,����2,�E�E�E) ���v�l�����߂�
MEAN(�����P,����2,�E�E�E) ���ϒl�����߂�
MAX(�����P,����2,�E�E�E) �ő�l�����߂�
MIN(�����P,����2,�E�E�E) �ŏ��l�����߂�
LARGEST(n, �����P,����2,�E�E�E) n�Ԗڂɑ傫���l���擾����
ROUND(�����P,�l�̌ܓ��̈ʒu) �l�̌ܓ�����
ABS(x); ��Βl
MOD(x,100); ����Z�̗]���Ԃ�
SIGN(-156); ������Ԃ�
CEIL(x); �����l�ɐ؂�グ
FLOOR(x); �����l�ɐ؂�̂�
INT(x); �������������o��
�@
�i�����񑀍�j
�����񑀍�i�֐��̎g�p�j ���@�����߰�ނ̍ŏ���
SAS�ł͈ȉ��̊֐���p���ĕ����񑀍�����邱�Ƃ��o���܂��B
�֐� ���� ���@ �g�p��
C�`�s �����Ŏw�肵��������i�����ϐ��j������ CAT(�ϐ�1,�ϐ�2,�E�E,�ϐ�n); CAT(" aa "," bb "," cc ")
���ʁFaabbcc
CATS �����Ŏw�肵��������i�����ϐ��j���A���ꂼ��̍ŏ��ƍŌ�Ɍ��ꂽ�u�����N����菜���Č��� CATX(�ϐ�1,�ϐ�2,�E�E,�ϐ�n); CATS(" a a "," b b "," c c ")
���ʁFaab bcc
CATT �����Ŏw�肵��������i�����ϐ��j���A���ꂼ��̍Ō�Ɍ��ꂽ�u�����N�݂̂���菜���Č��� CATT(�ϐ�1,�ϐ�2,�E�E,�ϐ�n); CATS(" a a "," b b "," c c ")
���ʁFaabbcc
C�`�s�w �����Ŏw�肵��������i�����ϐ��j���A���ꂼ��̍ŏ��ƍŌ�Ɍ��ꂽ�u�����N����菜���A ��1�����Ŏw�肵���f���~�^�i��؂蕶���j��t�����Č��� CATX('-',�ϐ�1,�ϐ�2,�E�E,�ϐ�n); CATX(" a a "," b b "," c c ")
���ʁF-aab bcc
COMPRESS �C�ӂ̕������폜 COMPRESS�i�ϐ���,�폜�����܂��͕�����j x='A.B (C=D);';
y=compress(x,'.;()');
����y�FAB C=D
COUNT ������Ɋ܂܂��C�ӂ̕����܂��͕�����̏o���񐔂��J�E���g COUNT(�ϐ�,'�C�ӕ���'); �ϐ���='A1-100'
cnt=COUNT(�ϐ���,'-');
LEFT ���� LEFT(�ϐ���) a='�@�@DUE DATE';
b=left(a);
����b=DUE DATE
MISSING �����ϐ��A���l�ϐ����킸�A�����l�𔻒� MISSING(�ϐ���) �����l�ł����1
�����łȂ����0��Ԃ�
RIGHT �E�� RIGHT(�ϐ���) a='DUE DATE�@�@';
b=right(a);
����b=DUE DATE
INDEX �����񒆂̈ʒu�����߂�
�i���v�����ŏ��̈ʒu�j
INDEX(�ϐ���,bbb)) a='ABC.DEF (X=Y)';
b='X=Y';
x=index(a,b);
����x=10
INDEXC �����񒆂̈ʒu�����߂�
�i1�����ł����v�����ŏ��̈ʒu�j
INDEXC(�ϐ�,������,������n) a='ABC.DEP (X2=Y1)';
x=indexc(a,'0123',';()=.');
����x=4
INPUT �����l�𐔒l�ɕϊ�����B
���l��SAS���t�l�ɂ��ϊ�����B�߂�l�͐��l
�ϊ��Ɏ��s�����ꍇ�͌����l���Ԃ����
INPUT(���̕ϐ�,informat�`��); prechar='50';
char1=INPUT(prechar,best12.);
best12.�͓K�؂Ȑ��l�ɕϊ�����t�H�[�}�b�g
sas���t=INPUT(������, yymmdd6.);
LENGTH ������̒��������߂� LENGTH(�ϐ���) len=length('ABCDEF');
����len=6
PUT �w�肵���t�H�[�}�b�g�Œl��ϊ��B�߂�l�͕����� PUT(�����ϐ�,format�`��); num1=100
char1 = PUT(num1,Z5.);
Zw.d�t�H�[�}�b�g
���l�f�[�^�̑O�Ƀ[�����‚��ďo�́B
w�͑S�̂̕\�������i�o�C�g���j�Ad�͏����̌���
REVERSE �t���ɕ��ׂ� REVERSE(�ϐ���) backward=reverse('xyz ');
����backward=zyx
SCAN �����ϐ��l�̈ꕔ�𒊏o���� SCAN(�ϐ���,n,'������')
������ŕϐ����̒l����؂�An�Ԗڂ̌�𒊏o
SCAN(id,1,'-');
id��'-'�ŋ�؂�1�Ԗڂ̌�𒊏o
id�̒l��A-1�̂Ƃ�A�𒊏o����
SUBSTR b�Ԗڂ̕�������uc�v���������o�� SUBSTR(�ϐ���,bbb,cccc) a='KIDNAP';
substr(a,1,3)='CAT';
a��1-3������'CAT';�ɒu��������
TRIM ���̋󔒂��폜 TRIM(�ϐ�) a='apple '
b='sauce '
noblank=trim(a)||b;
����noblank=applesauce
UPCASE �啶���ɕϊ� UPCASE(������ϐ�) name=upcase('John B. Smith');
���ʁFJOHN B. SMITH
VERIFY �����l�̌��� VERIFY(���ؕ��� , '0123456789'); �w�肵�������ȊO�̕������o������ʒu��߂��A�w�肷�镶���݂̂����݂���ꍇ�́u0�v��߂�
�@
2�o�C�g�����j�ɑΉ������֐�
http://www.sas.com/offices/asiapacific/japan/service/technical/faq/list/body/ba184.html

�֐��ƍ\�� �@�\
KCOMPARE(source, <pos, <count,>> findstr) ������̔�r���ʂ�Ԃ�
KCOMPRESS(source <,characters-to-remove>) �����񂩂����̕������폜����
KCOUNT(source) ���������2�o�C�g�����̐���Ԃ�
KINDEX(source, excerpt) �������̕��������������
KINDEXC(source, excerpt-1<, ...excerpt-n>) �������������̕�������������
KLEFT(argument) �s�v�ȑO�uDBCS�u�����N��SO/SI���폜���āASAS���������������ɂ���
KLENGTH(argument) �����̒�����Ԃ�
KLOWCASE(argument) �����̂��ׂĂ�1�o�C�g�������������ɕϊ�����
KREVERSE(argument) �������𔽓]����
KRIGHT(argument) ��uDBCS�u�����N��SO/SI���폜���āA���������E�����ɂ���
KSCAN(argument, n<, delimiters>) ������������̌��I������
KSTRCAT(argument-1, argument-2<, ...argument-n>) 2�ˆȏ�̕������A������
KSUBSTR(argument, position<, n>) ��������C�ӂ�DBCS����������𒊏o����
KSUBSTRB(argument, position<, n>) �o�C�g�ʒu�Ɋ�Â���������C�ӂ�DBCS����������𒊏o����
KTRANSLATE(source, to-1, from-1<, ...to-n, from-n>) �������Ɋ܂܂�����̕�����u������
KTRIM(argument) ��uDBCS�u�����N��SO/SI�𕶎�������폜����
KTRUNCATE(number, length) �w�肵�������ɐ��l��؂�̂Ă�
KUPCASE(argument) �����̂��ׂĂ�1�o�C�g������啶���ɕϊ�����
KUPDATE(argument, position, n<, characters-to-replace>)
KUPDATE(argument, position<, n>, characters-to-replace)
�����l�̓��e��}���A�폜�A�u������
KUPDATEB(argument, position, n<, characters-to-replace>)
KUPDATEB(argument, position<, n>, characters-to-replace)
�o�C�g�P�ʂɊ�Â������l�̓��e��}���A�폜�A�u������
KVERIFY(source, excerpt-1<, ...excerpt-n>) ���ɌŗL�ȍŏ��̕����̈ʒu��Ԃ�
�@
�Q�l�T�C�g�FFunctions and CALL Routines
�@
�����񑀍�i������̌����j ���@�����߰�ނ̍ŏ���
������������́@|| �i�o�[�e�B�J���o�[�j��p���čs���܂��B

ex.
�@atena = sei || mei || �f���܁f
�@
�����_�ȉ��̌������w�肵�Đ؂�̂Ă��s�Ȃ� ���@�����߰�ނ̍ŏ���
SAS��FAQ�T�C�g Technical Support Frequently Asked Questions �ɋL�ڂ�����܂�
�@
�f�[�^���琔�l�܂��́A���������𒊏o���� ���@�����߰�ނ̍ŏ���
Magazines �FSAS Technical News�@Spring 2006 �́uQ&A�v���Q�Ƃ��Ă�������
�@
�����̕ϐ��Ɍ����l���Z�b�g�i�������j���� ���@�����߰�ނ̍ŏ���
SAS9�ȍ~�ł́ACALL MISSING���[�`�����g�p���āA�����̕ϐ��Ɍ����l���Z�b�g���邱�Ƃ��ł��܂��B

�@CALL MISSING(�ϐ���1<,�ϐ���2, ...>);

Magazines �FSAS Technical News�@Summer 2005 �́uQ&A�v���Q�Ƃ��Ă�������
�@
�����ϐ��l�̈ꕔ�𒊏o���� ���@�����߰�ނ̍ŏ���
SCAN�֐��𗘗p�������ϐ��l�̈ꕔ�𒊏o���܂�

�@������
�@
�����l�𔻒肷�� ���@�����߰�ނ̍ŏ���
�����ϐ��A���l�ϐ����킸�A�����l�𔻒肵�܂�
MISSING�֐��́A�����l���ǂ������`�F�b�N���āA�����l�ł����1���A�����łȂ����0��Ԃ��܂��B

�g�p��
�@IF MISSING(�ϐ���) THEN DO;
�@�@�@�E�E�E
�@END;
�@
���K�\���֐��ɂ��p�^�[���ƍ� ���@�����߰�ނ̍ŏ���
PRXMATCH�֐����g�p�������K�\���ɂ�镶����̃p�^�[�����o

�@���@
�@PRXMATCH (regular-expression-id | perl-regular-expression, source)

�@�@�@prxmatch�@�F�@�߂�l�͏ƍ��ł����ŏ��̃o�C�g�ʒu��Ԃ�
�@�@�@regular-expression-id �G�@�ƍ�������������̌`�����w�肵�����́iPerl�d�l�̐��K�\���j
�@�@�@source�@�F�@������A�ϐ�

�@�g�p��
�@�@data _null_;
�@�@�@�@position=prxmatch('/world/', 'Hello world!');
�@�@�@�@put position=;
�@�@run;

�@LOG���ʁ@�F�@position=7

�@�悭�g���p�^�[����
���K�\�� ���e
\d{3}-\d{4} ������̌`���� nnn-nnnn �ł��邱�Ɓin�͐����j
[0-9]{3}[-]{1}[0-9]{4} ����
[1-2][9|0][0-9][0-9]/[0-1][0-9]/[0-3][0-9] ������̌`���� YYYY/MM/DD �ł��邱�Ɓi���t�j
\d+ ������� ���ׂĐ����ł��邱��
[^\x20-\x7E|�-�]+ ������ɂ� ���p�������Ȃ�����
[0-9]?[0-9][0-9]\.[0-9] ������̌`���� nnn.n �ł��邱�Ɓi�g���j
[0-9]{1,2}.[0-9]{1} ������̌`���� nn.n �ł��邱�Ɓi�̉��j
[0-9]?[0-9][0-9] ������̌`����3���ȓ��̐����ł��邱�Ɓi�����A�������j
[0-9]{1,3} ����
[0-9]{5} ������̌`����5���̐����ł��邱��
00|15|30|45 �������00�A15�A30�A45�ł��邱�Ɓi���j
[0-2][0-9]:[0-5][0-9] �������24���ԕ\����'hh:mm'�Ƃ����`���ł��邱�Ɓi���ԁj

PRXCHANGE�֐������K�\���ɂ�镶������u�����s��

�@�@���@
�@PRXCHANGE(perl-regular-expression | regular-expression-id, times, source)


�@���K�\���̎Q�l�T�C�g
�@
�i���t����j
���t����i�֐��̎g�p�j ���@�����߰�ނ̍ŏ���
�֐� ����/���@ �g�p��
DATE �����̓��t��Ԃ��i1960�N�P���P�����N�_�Ƃ����o�ߓ����j�ATODAY�Ɠ��� today=date();
DATEIF �J�n���t����I�����t�܂ł̓������v�Z����
���@
����= DATDIF(�J�nSAS���t�l,�I��SAS���t�l,�\���`��) ;
�\���`��
�@ACT/ACT �@�N�E���Ƃ����ۂ̓����Ōv�Z
�@30/360 �@�@1����30���A1�N��360���Ōv�Z
�@ACT/360 �@1�������ۂ̓����A
�@�@�@�@�@�@�@�@�@1�N��360���Ōv�Z
�@ACT/365 �@1�������ۂ̓����A
�@�@�@�@�@�@�@�@�@1�N��365���Ōv�Z
DATA _null_;
�@sdate = '16oct78'd;
�@edate = '16feb96'd;
�@actual = DATDIF(sdate, edate, 'act/act');
�@days360 = DATDIF(sdate, edate, '30/360');
�@PUT actual= ;
/* ���ۂ̓����Ōv�Z*/
�@PUT days360= ; /* 1����30���A1�N��360���Ōv�Z*/
RUN ;
DATEJUL �W�����A�����t�l�\������W���̓��t�l�ɕϊ� d=DATEJUL(2008366);
DATEPART �����l������t�l���������o�� date=DATEPART("01JAN2008:12:10:00"DT);
DATETIME ���݂̓����l��Ԃ��i1960�N�P���P�����N�_�Ƃ����o�ߕb���j now=DATETIME();
DAY ���t�l�܂��͓����l��������������o�� day=DAY("10AUG2008"D);
DHMS ���t�A���A���A�b��������l���쐬 val=DHMS("10AUG2008"D,12,10,30);
HOUR ���Ԓl�܂��͓����l���玞�ԕ��������o�� h=HOUR("01JAN2008:12:10:00"DT);
INTCK �J�n���_����I�����_�܂ł̌o�ߎ��Ԃ����܂��܂Ȏ��ԒP�ʂŌv�Z keika_month=INTCK"month","10JAN2008"D,"25AUG2008"D);
INTNX SAS���t��N���̒P�ʂňړ�������
�in������̓������t���擾����j

INTNX('MONTH',����t,1); �@/*1�P����̏���*/
INTNX('MONTH',����t,2);�@/*2�P����̏���*/
after=INTNX("month","10JAN2008"D,3,"END");
JULDATE ���t�l��5���̃W�����A�����t�l�`��(yyddd)�ɕϊ� juldate=JULDATE("01JAN2008"D);
JULDATE7 ���t�l���V���̃W�����A�����t�l�`��(yyyyddd)�ɕϊ� juldate=JULDATE7("01JAN2008"D);
MDY ���A���A�N������t�l���쐬 date1=MDY(12,31,2007);
MINUTE ���Ԓl�܂��͓����l���番���������o�� m=MINUTE("01JAN2008:12:10:00"DT);
MONTH ���t�l�܂��͓����l���番���������o�� month=MONTH("01JAN2008:12:10:00"DT);
QTR ���t�l�܂��͓����l����l�������������o�� qtr=QTR("10AUG2008"D);
SECOND ���Ԓl�܂��͓����l����b���������o�� s=SECOND("01JAN2008:12:10:00"DT);
TIME ���݂̎��Ԓl��Ԃ� now=TIME();
TIMEPART �����l���玞�ԕ��������o�� time=TIMEPART("01JAN2008:12:10:00"DT);
TODAY �����̓��t��Ԃ��i1960�N�P���P�����N�_�Ƃ����o�ߓ����j�ADATE�̕ʖ� today=TODAY();
WEEKDAY ���t����j�������߂�

���@
�@WEEKDAY(date)
�@
�@date��SAS���t�l��������SAS���t�l��\����
�@�߂�l
�@�@1 ���j��
�@�@2 ���j��
�@�@3 �Ηj��
�@�@4 ���j��
�@�@5 �ؗj��
�@�@6 ���j��
�@�@7 �y�j��
DATA _NULL_;
�@�@date = '01apr2006'd;
�@�@day = WEEKDAY(date);
�@�@PUT day=;
RUN;

����
day=7
YEAR ���t�l�܂��͓����l����N���������o�� year=YEAR("10AUG2008"D);
YRDIF �J�n���t����I�����t�܂ł̔N�����v�Z����

�N��= YRDIF(�J�nSAS���t�l,�I��SAS���t�l,�\���`��) ;
�\���`��
�@ACT/ACT �@�N�E���Ƃ����ۂ̓����Ōv�Z
�@30/360 �@�@1����30���A1�N��360���Ōv�Z
�@ACT/360 �@1�������ۂ̓����A
�@�@�@�@�@�@�@�@�@1�N��360���Ōv�Z
�@ACT/365 �@1�������ۂ̓����A
�@�@�@�@�@�@�@�@�@1�N��365���Ōv�Z
DATA _NULL_;
�@sdate = '16oct1998'd;
�@edate = '16feb2003'd;
/* 1����30���A1�N��360���Ōv�Z*/
�@y30360 = YRDIF(sdate, edate, '30/360');
/* ���ۂ̓����Ōv�Z*/
�@yactact = YRDIF(sdate, edate, 'ACT/ACT');
/* 1�N��360���Ōv�Z*/
�@yact360 = YRDIF(sdate, edate, 'ACT/360');
/* 1�N��365���Ōv�Z*/
�@yact365 = YRDIF(sdate, edate, 'ACT/365');
�@PUT y30360=
�@yactact=
�@yact360=
�@yact365= ;
RUN ;
YYQ �N�A�l����������t�l���쐬 yyq=YYQ(2008,1);
��SAS�ɂ́ASAS���t�l��SAS���Ԓl�����SAS�����l�Ƃ����T�O������܂��B���t�l�́A1960�N1��1�����0���Ƃ��āA1�����Ƃ�1�‚��‘����܂��B
�@
�N����v�Z���� ���@�����߰�ނ̍ŏ���
�N��̌v�Z�ɂ́AINTCK�֐��𗘗p����ƕ֗��ł��B
INTCK�֐��́A��‚�SAS���t�l�̊Ԃɉ���A�N�i���͌��j���z���������߂���̂ł��B

data _null_;
�@�@year=intck('YEAR', '31Dec1999'd, '1Jan2000'd);
�@�@put year=;
run;
�@
������t�����̌��̑扽�T�ł��邩���Z�o���� ���@�����߰�ނ̍ŏ���
SAS��FAQ�T�C�g Technical Support Frequently Asked Questions �ɋL�ڂ�����܂�
�@
n������̓������t���擾���� ���@�����߰�ނ̍ŏ���
SAS���t��N���̒P�ʂňړ�������֐��ɂ́AINTNX�֐�������܂��B
INTNX�֐��́A��ƂȂ���t�ɑ΂��A�ȉ��̍\���Ŏw�肵�܂��B

�@�@INTNX('MONTH',����t,1);�@�@�@/*1������*/
�@�@INTNX('MONTH',����t,2);�@�@�@/*2������*/

�@�@monthafter = INTNX('MONTH', '2011/12/25', 1)�@�@�@/*1������*/

������INTNX�֐��́A�f�t�H���g�ł�n������̌��̏�����Ԃ��܂��B
���������āAn������̓������t�����߂�ɂ͏����H�v���K�v�ɂȂ�܂��B

DATA days;
�@INPUT hizuke YYMMDD10.;
�@CARDS;
�@2004/01/01
�@2000/02/29
�@2003/02/28
�@2004/12/02
�@2004/12/25
�@;
/* 1������̓��t�v�Z */
�@DATA temp;
�@SET days;
�@daydiff = DAY(hizuke)-1;
�@monthafter = INTNX('MONTH', hizuke, 1) + daydiff;

�@FORMAT hizuke YYMMDD8.
�@monthafter YYMMDD8.;
RUN;

�^����ꂽ����t hizuke�����̌���1�����牽����ł��邩�����߁Adaydiff�Ɋi�[���܂��Bhizuke ��2004�N11��26���Ȃ�΁Adaydiff��25�ƂȂ�܂��B


Magazines �FSAS Technical News�@Spring 2005 �́uQ&A�v
���Q�Ƃ��Ă�������
�@
�i�^�̕ϊ��j
�����^�̐��l�𐔒l�^�ɕϊ����� ���@�����߰�ނ̍ŏ���
INPUT�֐��ɂ��A�����l�𐔒l�ɕϊ����邱�Ƃ��ł��܂��B
�@�@input(���̕ϐ�,informats);

�@var1=input(prevar1,best12.)�@�@�@/* best12.�͓K�؂Ȑ��l�ɕϊ�����t�H�[�}�b�g */;
�@var2=input(prevar2,YYMMDDS10. .);�@�@�@/* yyyy/mm/dd�`�������t�𐔒l�^�ɕϊ�*/

�@informats �̏ڍׂ����������Q��

�ȉ��ł��ǂ�
�@�@num�@=�@char + 0�G�@�@�܂���
�@�@num�@=�@char * 1�G
�@
���l�𕶎��l�ɕϊ����� ���@�����߰�ނ̍ŏ���
PUT�֐��ɂ��A���l�𕶎��l�ɕϊ����邱�Ƃ��ł��܂��B

�@var1=put(prevar1,best12.)�@�@�@/* best12.�͓K�؂ȕ����l�ɕϊ�����t�H�[�}�b�g */;
�@var2=put(prevar2,YYMMDDS10. .);�@�@�@/* ���l�^�����t�f�[�^��yyyy/mm/dd�`���������l�ɕϊ�*/

�@informats �̏ڍׂ����������Q��
�@
�i�t�@�C�������j
LABEL�̒l���擾����i�֐��j ���@�����߰�ނ̍ŏ���
DATA _NULL_;
�@SET SAS�f�[�^�Z�b�g��;
�@IF _N_ = 1 THEN DO;�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@
/* 1�I�u�U�x�[�V�����ڂ̂ݏ���*/
�@�@lab_id = VLABEL(id); �@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@
/* �ϐ�id�̃��x���l���擾*/
�@�@lab_var = VLABEL(var); �@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@
/* �ϐ�var�̃��x���l���擾*/
�@END;
RUN;
�@
�ϐ��̌^���擾����i�֐��j ���@�����߰�ނ̍ŏ���
DATA _NULL_;
�@SET SAS�f�[�^�Z�b�g��;
�@IF _N_ = 1 THEN DO;�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@
/* 1�I�u�U�x�[�V�����ڂ̂ݏ���*/
�@�@type1 = VTYPE(id); �@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@
/* �ϐ�id�̌^���擾*/
�@�@type2 = VTYPE(var); �@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@�@
/* �ϐ�var�̌^���擾*/
�@END;
RUN;

���l�ϐ��̏ꍇ��N�A�����ϐ��̏ꍇ��C���A���ꂼ��߂�l�Ƃ��ĕԂ��܂��B
�@
�iCALL���[�`���j
CALL SYMPUT���[�`�� ���@�����߰�ނ̍ŏ���
DATA�X�e�b�v�ϐ��̒l���}�N���ϐ��Ƃ��č쐬���i�[���܂��B
�}�N���ϐ��̓O���[�o���ϐ��Ȃ̂ŁA�v���O�����̂ǂ�����ł��Q�Ƃł��܂��B
CALL SYMPUT���[�`����DATA�X�e�b�v�̋@�\�ł��B


�@CALL SYMPUT('�ϐ���', �ݒ�l); �@�@
/*�ϐ������}�N���ϐ��Ƃ��Ďw�肳��A���g���ݒ�l������*/

�g�p��
�@DATA _NULL_;
�@�@�@CALL SYMPUT('DATE',PUT(TODAY(),YYMMDD6.));
�@�@�@CALL SYMPUT('TIME',PUT(HOUR(TIME()),Z2.)||":"||PUT(MINUTE(TIME()),Z2.));
�@RUN;

�����t�Ǝ��Ԃ��O���[�o���ϐ��Ƃ��Ď擾���Ă��܂��B����ł��‚ł��Ăяo�����Ƃ��”\�ɂȂ�܂��B
�@�@�}�N���ϐ��̎Q�Ƃ́A%DATE ��@%TIME�@�Ƃ��čs���܂��B

�Ȃ��ACALL SYMPUTX���[�`���ŁA�}�N���ϐ��쐬���̑O��̃u�����N���l������v���O�������ȑf���ł���悤�ɂȂ��Ă��܂��B
�@
CALL MISSING���[�`�� ���@�����߰�ނ̍ŏ���
�����̕ϐ��Ɍ����l���Z�b�g���܂��B

�@CALL MISSING(�ϐ���1<,�ϐ���2, ...>);
�@
�@
�@
PHARCISiwXPAŐV񋟁j
Facebook for PHARCIS
ClinMark8
�A�N�Z�X�����L���O
�i2013�N5���j

1�� ��ƃj���[�X
2�� ���ド���L���O
3�� ���f�B�A�j���[�X
4�� ������
5�� ���Ö�̍őO��
6�� ���Z�Z�M�ꗗ
7�� �f�[�^�u�b�N
8�� �����Ќ���
9�� �C�x���g�J�����_
10�� �߲��ײ݃j���[�X
�@
�@
�@