|
�i�ϐ��̒�`�j |
|
�i���Z�q�j |
|
�i���l����j |
|
�i������j |
|
�i���t����j |
|
�i�^�̕ϊ��j |
|
�i�t�@�C������j |
|
�iCALL���[�`���j |
|
�@ |
�{�͂́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 |
|
|
SAS�ł͈ȉ��̎l�����Z�q��p���邱�Ƃ��o���܂��B
|
|
�{ |
���Z |
�| |
���Z |
�� |
��Z |
�^ |
���Z |
���� |
�ׂ��� |
|
|
�@ |
|
|
��r���Z�q�͕ϐ���l�܂��͑��̕ϐ��Ɣ�r���܂��B |
|
=�@EQ |
������ |
NE |
�������Ȃ� |
>�@GT |
���傫�� |
<�@LT |
��菬���� |
>=�@GE |
�ȏ� |
<=�@LE |
�ȉ� |
|
|
�@ |
|
|
AND |
�_���� |
OR |
�_���a |
NOT |
�_���ے� |
|
|
�@ |
|
|
�����l���w�肵���p�^�[���Ɣ�r���܂��B
�@LIKE '�p�^�[��'�G |
|
% |
�C�ӂ̕�������u�������� |
_ |
�P������u�������� |
|
|
�@ |
�i���l�����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 |
|
|
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��Ԃ� |
�@ |
|
|
�@ |
|
|
������������́@|| �i�o�[�e�B�J���o�[�j��p���čs���܂��B
ex.
�@atena = sei || mei || �f���܁f |
|
�@ |
|
|
SAS��FAQ�T�C�g Technical Support Frequently Asked Questions �ɋL�ڂ�����܂� |
|
�@ |
|
|
Magazines �FSAS Technical News�@Spring 2006 �́uQ&A�v���Q�Ƃ��Ă������� |
|
�@ |
|
|
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�Ƃ��Ă������� |
|
�@ |
|
|
SCAN���𗘗p�������ϐ��l�̈ꕔ�𒊏o���܂�
�@������ |
|
�@ |
|
|
�����ϐ��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; |
|
�@ |
|
|
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 |
|
|
�� |
����/���@ |
�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�ɂ́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; |
|
�@ |
|
|
SAS��FAQ�T�C�g Technical Support Frequently Asked Questions �ɋL�ڂ�����܂� |
�@ |
|
|
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 |
|
|
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
|
|
�@ |
|
|
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 |
|
|
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; |
|
�@ |
|
|
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 |
|
|
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 |
|
�@ |
|
|
�����̕ϐ��Ɍ����l���Z�b�g���܂��B
�@CALL MISSING(�ϐ���1<,�ϐ���2, ...>); |
|
�@ |
�@ |