* Program lri184;                                                      00010001
   Options errors=1 nodate;                                             00020001
                                                                        00030001
   data direct1;                                                        00040001
    set out1.direct (keep=pool wgt actv f9214 f9219 ldc f9216-f9217);   00050001
    facility='MODS    ';                                                00060001
   data direct2;                                                        00070001
    set out4.direct (keep=pool wgt actv f9214 f9219 f9216-f9217);       00080001
    facility='BMCS   ';                                                 00090001
   data direct3;                                                        00100001
    set out2.direct (keep=pool wgt actv f9214 f9219 f9216-f9217);       00110001
    facility='NONMODS';                                                 00120001
                                                                        00130001
    data direct;                                                        00140001
    set direct1 direct2 direct3;                                        00150001
        dkgroup='direct  ';                                             00160001
        dollar = wgt ;                                                  00170001
                                                                        00180001
         if 'A'<=f9214<='P' then                                        00190001
            dkgr='direct Item     ';                                    00200001
    else if 'A'<=f9219<='J' then                                        00210001
            dkgr='direct Container' ;                                   00220001
    else    dkgr='direct pieces' ;                                      00230001
                                                                        00240001
   data itempc1;                                                        00250001
    set out1.itempc;                                                    00260001
    facility='MODS    ';                                                00270001
   data itempc2;                                                        00280001
    set out4.itempc;                                                    00290001
    facility='BMCS   ';                                                 00300001
   data itempc3;                                                        00310001
    set out2.itempc;                                                    00320001
    facility='NONMODS';                                                 00330001
                                                                        00340001
   data itempc;                                                         00350001
    set itempc1 itempc2 itempc3;                                        00360001
        dkgroup='mixed   ';                                             00370001
         if 'A'<=f9214<='P' then do;                                    00380001
            if f9215='Y' then dkgr ='mixed item empty';                 00390001
                         else dkgr ='mixed item uncnt';                 00400001
                                end;                                    00410001
          else do;                                                      00420001
              if substr(type,1,2)='PC' then dkgr='mix cont pieces';     00430001
              else                          dkgr='mix cont Items ';     00440001
                                end;                                    00450001
                                                                        00460001
   data partial1;                                                       00470001
    set out1.contemp;                                                   00480001
    facility='MODS    ';                                                00490001
   data partial2;                                                       00500001
    set out4.contemp;                                                   00510001
    facility='BMCS   ';                                                 00520001
   data partial3;                                                       00530001
    set out2.contemp;                                                   00540001
    facility='NONMODS';                                                 00550001
                                                                        00560001
   data partial;                                                        00570001
   set partial1 partial2 partial3;                                      00580001
        dkgroup='mixed   ';                                             00590001
            if f9220='Y' then dkgr ='Container empty ';                 00600001
                         else dkgr ='Container unid  ';                 00610001
                                                                        00620001
     DATA noth1;                                                        00630001
       set out1.Nothand;                                                00640001
    facility='MODS    ';                                                00650001
     DATA noth2;                                                        00660001
       set out4.Nothand;                                                00670001
    facility='BMCS   ';                                                 00680001
     DATA noth3;                                                        00690001
       set out2.Nothand;                                                00700001
    facility='NONMODS';                                                 00710001
                                                                        00720001
      data noth;                                                        00730001
      set noth1 noth2 noth3;                                            00740001
        dkgroup='NOT HAND';                                             00750001
        dkgr   ='NOT HANDLING    ';                                     00760001
        dollar = wgt ;                                                  00770001
                                                                        00780001
    data all ;                                                          00790001
     set direct itempc partial notH;                                    00800001
     if facility='MODS' then do;                                        00810001
     %include 'xxxxxx.xxxxxxxx.xxxxxxxx(dolwgt)' /source2;              00820001
                             end;                                       00830001
                                                                        00840001
     fpool = v||" "||pool  ;                                            00850001
                                                                        00860001
         proc freq data=all;                                            00870001
         tables dkgr*facility/missing;                                  00880001
         weight wgt   ;                                                 00890001
     title1 'BY98 Mail Processing Costs - IOCS$';                       00900001
         proc sort data=all;                                            00910001
         by facility;                                                   00920001
         proc freq data=all;                                            00930001
         tables dkgr*fpool/missing;                                     00940001
         weight wgt   ;                                                 00950001
         by facility;                                                   00960001