IMS DATA Step Examples

1  data distribc;
2     length  $11;
3     keep ziprange
            check_amount
            balrange;
4     retain ssa1 'CUSTOMER*D '
              ssa2 'CHCKACCT ';
5     infile acctsam dli ssa=(ssa1,ssa2) status=st 
            pcbno=3;
6     input @162 zip_code      $char10.
             @238 check_amount  pd5.2;
7     if st ¬= '  ' and
          st ¬= 'CC' and
          st ¬= 'GA' and
          st ¬= 'GK' then
8       if st = 'GE' then
            do;
               _error_ = 0;
               stop;
            end;
9     else
        do;
           file log;
           put _all_;
10         abort;
        end;
11     balrange=check_amount;
12     ziprange=substr(zip_code,1,4)
         ||'0-'||substr(zip_code,1,4)||'9';
       title 'Checking Account Balance Distribution 
              By ZIP Code';
13  proc format;
      value balrang
      low-249.99 = 'under $250'
      250.00-1000.00 = '$250 - $1000'
      1000.01-high = 'over $1000';
14  proc tabulate data=distribc;
      class ziprange balrange;
      var check_amount;
      label balrange='balance range';
      label ziprange='ZIP code range';
      format ziprange $char11. balrange balrange.;
      keylabel sum= '$ total' mean ='$ average' 
        n='# of accounts';
      table ziprange*(balrange all),
            check_amount*(sum*f=14.2 mean*f=10.2 n*f=4);
   run;

filename tranrept '<your.sas.tranrept>' disp=old;
data _null_;
1 length ssa1 $ 9;
2 infile acctsam dli ssa=ssa1 call=func pcbno=4 
       status=st;
3 func = 'GHN ';
4 ssa1 = 'CUSTOMER';
5 input @12   customer_name  $char40.
         @140  state         $char2.
         @142  country       $char20.;
6 if st ¬= '  ' and
      st ¬= 'CC' and
      st ¬= 'GA' and
      st ¬= 'GK' then
     link abendit;
7 if country ¬= 'UNITED STATES' &
      state < 'Z ' &
      state > 'A ' then
     do;
8      oldland = country;
9      country = 'UNITED STATES';
10      file acctsam dli;
11      func = 'REPL';
12      ssa1 = '  ';
13      put @1   _infile_
            @142 country;
14      if st ¬= '  ' then
          link abendit;
15      file tranrept header=newpage notitles;
16      put @10 customer_name
            @60 state
            @65 oldland;
17     end;
18   return;
19   newpage: put / @15
           'Customers Whose Country was Changed to 
               UNITED STATES'
           // @17 'Name' @58 'State' @65 'old
Country';
20   return;

    abendit:
      file log;
      put _all_;
      abort;
run;
filename tranrept clear;

1 data balances;
2   length ssa1 $9;
3   keep soc_sec_number
          chck_bal
          save_bal;
4   chck_bal = 0;
     save_bal = 0;
5   infile acctsam dli pcbno=4 call=func ssa=ssa1
     status=st;
6   func = 'GN  ';
7   ssa1 = 'CUSTOMER ';
8   input @;
9   if st ¬= '  ' and
       st ¬= 'CC' and
       st ¬= 'GA' and
       st ¬= 'GK' then
      link abendit;
10  input @1 soc_sec_number $char11.;
11  st = '  ';
12  func = 'GNP ';
13  ssa1 = 'CHCKACCT ';
14  do while (st = '  ');
15    input @;
16    if st = '  ' then
        do;
17          input @13 check_amount pd5.2;
18          chck_bal=chck_bal + check_amount;
19      end;
20   end;
21
   if st ¬= 'GE' then
      link abendit;
22   st = '  ';
23   _error_ = 0;
24   input;
25   ssa1 = 'SAVEACCT ';
26   do while (st = '  ');
        input @;
        if st = '  ' then
           do;
              input @13 savings_amount pd5.2;
              save_bal = save_bal + savings_amount;
          end;
     end;

     if st = 'GE' then
        _error_ = 0;
     else
        link abendit;
     return;
27 abendit:
     file log;
     put _all_;
     abort;
  run;
28  proc print data=balances;
     title2 'Customer Balances';
  run;

filename tranrept 'your.sas.tranrept' disp=old;
data _null_;
1   retain ssa1 'CHCKACCT*D '
           ssa2 'CHCKDEBT(DEBTDATE =032895) ';
2   infile acctsam dli ssa=(ssa1,ssa2) status=st 
            pcbno=4;
3   input @1   check_account_number $char12.
           @13  check_amount         pd5.2
           @18  check_date           mmddyy8.
           @26  check_balance        pd5.2
           @41  check_debit_amount   pd5.2
           @46  check_debit_date     mmddyy8.
           @54  check_debit_time     time8.
           @62  check_debit_desc     $char40.;
4   if st ¬= '  ' and
        st ¬= 'CC' and
        st ¬= 'GA' and
        st ¬= 'GK' then
5         if st = 'GB' | st = 'GE' then
            do;
               _error_ = 0;
               stop;
            end;
6         else
            do;
               file log;
               put _all_;
7             abort;
            end;
8   file tranrept header=newpage notitles;
9   put @10 check_account_number
         @30 check_debit_amount dollar13.2
         @45 check_debit_time   time8.
         @55 check_debit_desc;
10   return;
11  newpage: put / @15 'Checking Account Debits 
                  Occurring on 03/28/95'
                // @08 'Account Number' @37 'Amount' 
                   @49 'Time' @55 'Description' //;
12   return;
run;
filename tranrept clear;