00001 |
/** |
00002 |
\file |
00003 |
\ingroup SASUNIT_EXAMPLES_PGM |
00004 |
|
00005 |
\brief Create base datasets for a database |
00006 |
|
00007 |
|
00008 |
\version \$Revision: 315 $ |
00009 |
\author \$Author: klandwich $ |
00010 |
\date \$Date: 2014-02-28 10:25:18 +0100 (Fr, 28 Feb 2014) $ |
00011 |
\sa For further information please refer to SASUnit User's Guide |
00012 |
\sa \$HeadURL: https://svn.code.sf.net/p/sasunit/code/trunk/example/saspgm/basedatasets.sas $ |
00013 |
\copyright Copyright 2010, 2012 HMS Analytical Software GmbH. |
00014 |
This file is part of SASUnit, the Unit testing framework for SAS(R) programs. |
00015 |
For terms of usage under the GPL license see included file readme.txt |
00016 |
or https://sourceforge.net/p/sasunit/wiki/readme.v1.2/. |
00017 |
|
00018 |
*/ /** \cond */ |
00019 |
|
00020 |
%MACRO basedatasets; |
00021 |
|
00022 |
data work.Customer; |
00023 |
do i=1 to 5; |
00024 |
CustomerNumber=i; |
00025 |
CustomerName="Customer " !! put (i,z2.); |
00026 |
output; |
00027 |
end; |
00028 |
drop i; |
00029 |
run; |
00030 |
|
00031 |
data work.Contracts; |
00032 |
do i=1 to 8; |
00033 |
ContractNumber=i; |
00034 |
ContractType=mod (i,3)+1; |
00035 |
output; |
00036 |
end; |
00037 |
drop i; |
00038 |
run; |
00039 |
|
00040 |
data work.CustomerContracts; |
00041 |
do i=1 to 8; |
00042 |
ContractNumber=i; |
00043 |
CustomerNumber=mod (i,5)+1; |
00044 |
output; |
00045 |
end; |
00046 |
drop i; |
00047 |
run; |
00048 |
|
00049 |
%MEND basedatasets; |
00050 |
/** \endcond */ |