Return to test-031212.sas CVS log

Up to [Local Repository] / rleda

Import de rleda

    1: *Sortie de rleda version rleda-0.9 Programme de lecture de fichiers d'index au format LEDA convertis de l'EBCDIC en ASCII  *;
    2: libname index75 "";
    3: filename a "e:\ANN75\DTRIRDE";
    4: * Ci dessous a modifier *;
    5: options obs=200 ;
    6: 
    7: 
    8: 
    9: data index75.u0 ;
   10: infile a lrecl=500 ;
   11: input id 1. @; retain num_id0  0;
   12: 
   13: if id=0 then do;
   14:   output ;
   15: end ;
   16: ;
   17: 
   18: run ;
   19: 
   20: data index75.u1 ;
   21: infile a lrecl=500 ;
   22: input id 1. @; retain num_id1 0;
   23: 
   24: if id=1 then do;
   25:   num_id1=num_id1+1 ;
   26: end ; 
   27: 
   28: if id=1 then do;
   29:   input @9  FE $1. RE $2. DE $2. RF $2. DRF $2.    ;
   30:   output ;
   31: end ;
   32: ;
   33: 
   34: run ;
   35: 
   36: 
   37: 
   38: data index75.u2 ;
   39: infile a lrecl=500 ;
   40: input id 1. @; retain num_id1 num_id2  0;
   41: 
   42: if id=1 then do;
   43:   num_id1=num_id1+1 ;
   44: end ;
   45: 
   46: if id=2 then do;
   47:   num_id2=num_id2+1 ;
   48: end ;
   49: 
   50: if id=2 then do;
   51:   input @9  IN $2. DE $2. CE $3. SE $1. ANF $2.
   52:      DPNF $3. M $1. DRF $2. CRF $3. NF $2.
   53:      CSF $2. AM $2. LM $1. CSM $2. GA $1.
   54:      NGA $2. MI $2. JDR $2. MDR $2. ADR $2.
   55:      DG $2. JIN $2. MIN $2. R $1. TAA $4.
   56:      CI $1. A $1. FE $1. AF $2. DGC $2.
   57:      DM $2. MC $1. RE $2. RF $2. TAAS $4.
   58:      TUE $1. TUF $1. UUE $2. UUF $2. GAF $2.
   59:      NCF $1. NGAC $2. SEC $1. AFM $2. GAFM $2.
   60:      NPNF $3. NSF $3.;
   61:     output ;
   62: end ;
   63: ;
   64: 
   65: data index75.u3 ;
   66: infile a lrecl=500 ;
   67: input id 1. @; retain num_id1 num_id2 num_id3 0;
   68: 
   69: if id=1 then do;
   70:   num_id1=num_id1+1 ;
   71: end ;
   72: 
   73: if id=2 then do;
   74:   num_id2=num_id2+1 ;
   75: end ;
   76: 
   77: if id=3 then do;
   78:   num_id3=num_id3+1 ;
   79: end ;
   80: 
   81: if id=3 then do;
   82:   input @9  NI $1. AI $2. NUM1 $2. ;
   83:   output ;
   84: end;
   85: 
   86: else input;
   87: run;