*Sortie de rleda version rleda-0.9 Programme de lecture de fichiers d'index au format LEDA convertis de l'EBCDIC en ASCII  *;
libname index75 "";
filename a "e:\ANN75\DTRIRDE";
* Ci dessous a modifier *;
options obs=200 ;



data index75.u0 ;
infile a lrecl=500 ;
input id 1. @; retain num_id0  0;

if id=0 then do;
  output ;
end ;
;

run ;

data index75.u1 ;
infile a lrecl=500 ;
input id 1. @; retain num_id1 0;

if id=1 then do;
  num_id1=num_id1+1 ;
end ; 

if id=1 then do;
  input @9  FE $1. RE $2. DE $2. RF $2. DRF $2.    ;
  output ;
end ;
;

run ;



data index75.u2 ;
infile a lrecl=500 ;
input id 1. @; retain num_id1 num_id2  0;

if id=1 then do;
  num_id1=num_id1+1 ;
end ;

if id=2 then do;
  num_id2=num_id2+1 ;
end ;

if id=2 then do;
  input @9  IN $2. DE $2. CE $3. SE $1. ANF $2.
     DPNF $3. M $1. DRF $2. CRF $3. NF $2.
     CSF $2. AM $2. LM $1. CSM $2. GA $1.
     NGA $2. MI $2. JDR $2. MDR $2. ADR $2.
     DG $2. JIN $2. MIN $2. R $1. TAA $4.
     CI $1. A $1. FE $1. AF $2. DGC $2.
     DM $2. MC $1. RE $2. RF $2. TAAS $4.
     TUE $1. TUF $1. UUE $2. UUF $2. GAF $2.
     NCF $1. NGAC $2. SEC $1. AFM $2. GAFM $2.
     NPNF $3. NSF $3.;
    output ;
end ;
;

data index75.u3 ;
infile a lrecl=500 ;
input id 1. @; retain num_id1 num_id2 num_id3 0;

if id=1 then do;
  num_id1=num_id1+1 ;
end ;

if id=2 then do;
  num_id2=num_id2+1 ;
end ;

if id=3 then do;
  num_id3=num_id3+1 ;
end ;

if id=3 then do;
  input @9  NI $1. AI $2. NUM1 $2. ;
  output ;
end;

else input;
run;