Return to test-031212.sas CVS log

Up to [Local Repository] / rleda

Annotation of rleda/test-031212.sas, revision 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;