GRACIAS,POR SU VOLUNTAD Y SU LUZ

IDENTIFICATION DIVISION.
ahutor.foro
enviroment division.

selet sort label record
is standard 
record key "rut".
file section.
cd rut.
 2 nombre       pic$(45).
   4 direccion    pic$(45).
      8 rut        pic$(14).
      OCCURD RUT TIME 1 STEP 1
WORKING STORACH SECTION.
 SUM  pic$(12).
 paso pic$(34).
 rut   pic$(34).
 procedure.
 open sort.
 perforance ingreso.
 perforance validcion.
 perforance imprimir.
 close sort.
 ingreso.
 display "ingresese nombre":accept rut
 display "ingresese  nombre":accept nombre
 display "ingresese direccion":accept direccion.
 validacion.
 if rut <rut then save nmbre:save
  calcula divide RUT /990 move to SUM
  INPRIMIR.
  FILLER"su nombre is",nombre.
  filler "su rut es",RUT.
  FILLER "SU DIRECCION ES ",DIRECCION.
  RUN
  
  




PROCEDURE DIVISION.
DISPLAY 'Hello, world'.
STOP RUN.