Using a SAS Data Set as a Transaction File

1 *options $idmdbug;
2 data work.emp;
   input id $4.;

   datalines;
   0471
   0301
   0004
   0091
   1002
   ;
   data work.emp_empos;
     drop id chkrec nxtrec;
     length chkrec $ 29;
3   infile empss01 idms func=func record=recname
           ikeylen=keyl errstat=stat sequence=seq 
           set=inset ikey=ckey dbkey=dkey;

     /* BIND the records to be accessed */
4   if _n_ = 1 then do;
        func       = 'BIND';
        recname    = 'EMPLOYEE';
        input;
        if stat ne '0000' then go to staterr;

        recname    = 'EMPOSITION';
        input;
        if stat ne '0000' then go to staterr;
     end;


     /* OBTAIN EMPLOYEE records using CALC key  */
     /* from EMP data set */
5   set work.emp;
     func       = 'OBTAIN';
     ckey       = id;
     keyl       = 4;
     recname    = 'EMPLOYEE';
     input @;
     if stat not in ('0000', '0326') then go to 
        staterr;
     if stat = '0000' then do;
       input @1   employee_id     4.0
             @5   firstname       $char10.
             @15  lastname        $char15.
             @30  street          $char20.
             @50  city            $char15.
             @65  state           $char2.
             @67  zip             $char9.
             @76  phone           10.0
             @86  status          $char2.
             @88  ssnumber        $char9.
             @97  emp_start       yymmdd6.
             @103 emp_term        6.0
             @109 birthdate       yymmdd6.;


       /* OBTAIN LAST EMPOSITION record in */
       /* EMP-EMPOSITION set               */
6     func       = 'OBTAIN';
       seq        = 'LAST';
       ckey       = '    ';
       keyl       = 0;
       dkey      = ' ';
       recname    = 'EMPOSITION';
       inset      = 'EMP-EMPOSITION';
       input @;
       if stat not in ('0000', '0326') then go to 
           staterr;
       if stat = '0000' then do;
         chkrec = put(employee_id,z4.) ||firstname ||
            lastname;


      /* Process all EMPOSITION records for */
      /* current EMPLOYEE                   */
7      do until (nxtrec = chkrec);
           input @1   pos_start    yymmdd6.
                 @7   pos_finish   6.0
                 @13  salarygrade  2.0
                 @15  salary       pd5.2
                 @20  bonus        pd2.0
                 @22  commission   pd2.0
                 @24  overtime     pd2.0;
           output;


       /* ACCEPT CURRENCY for PRIOR record in  */
       /* EMP-EMPOSITION set                   */
8       func       = 'ACCEPT';
         dkey       = '    ';
         seq        = 'PRIOR  ';
         recname    = '          ';
         inset      = 'EMP-EMPOSITION';
         input;
         if stat eq '0000' then do;


    /* OBTAIN current record using the DBKEY */
9         func       = 'OBTAIN';
           seq        = '       ';
           inset      = '        ';
           input @1 nxtrec $29. @;
           if stat ne '0000' then go to staterr;
           end;
         end;
       end;
10     else do;
           put 'WARNING: No EMPOSITION record for 
                  EMPID= ' id;
           put 'WARNING: Execution continues with 
                  next EMPID.';
           _error_ = 0;
       end;
     end;
     else do;
          put 'WARNING: No EMPLOYEE record for EMPID= '
                  id;
          put 'WARNING: Execution continues with next
                  EMPID.';
          _error_ = 0;
     end;
   return;

11 staterr:
     put @1 'ERROR: ' @10 func @17 'RETURNED 
              STATUS =' @37 stat;
     put @1 'ERROR: INFILE parameter values are: ';
     put @1 'ERROR: ' recname= ckey= seq= inset= 
              keyl= dkey=;
     put @1 'ERROR: DATA step execution 
              terminating.';
     _error_ = 0;
     stop;
   run;

   proc print data=work.emp_empos;
      format emp_start birthdate pos_start
          date9. salary dollar12.2
      title1 'Positions Held by Specified 
          Employees';
      title2 'Listed in Ascending Order by
          Initdate/Termdate';
   run;