Prüfling: basedatasets.sas
Testabdeckung: 100%

Color Legend:
dummy Text
  Abgedeckter Quelltext
  Nicht abgedeckter Quelltext
  Kommentare
  Quelltext der von der Option MCOVERAGE als nicht abgedeckt markiert wurde


RowNumberOut pgmSourceColumn
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 */


Erzeugt am Freitag, 21. März 2014, 11:39:30 von SASUnit SASUnit Version 1.3.0 (320)