Return to test-031212.sas CVS log

Up to [Local Repository] / rleda

Annotation of rleda/test-031212.sas, revision 1.1.1.1

1.1       brouard     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;