Cobol - sinceramente desconcertado

Hola
Antes que nada doy las gracias a quien responda esta duda que tengo y que me esta dejando sin neuronas, si la pueden responder lo antes posible mejor ya que es para un sistema con el cual me recibiria de tecnico, desde ya muchas gracias.
A continuacion les muestro el codigo del programa en cobol:

$set ans85"syntax"

special-names.
decimal-point is comma.

select articulo assign to arch-1
organization is indexed
access mode is dynamic
record key is cod-art
alternate record key exis-art with duplicates
file status is st-art.

select impre assign to "listado.txt"
organization is line sequential.

data division.
file section.
fd articulo.
01 reg-art.
02 cod-art pic 9(4) value 0.
02 desc-art pic x(15) value spaces.
02 cost-art pic 9(4)v99 value 0.
02 cfam-art pic x(2) value spaces.
02 exis-art pic 9(5) value 0.
fd impre
report control-break.
01 reg-impre pic x(80).

working-storage section.

77 arch-1 pic x(39) value
"C:\3RO5TA\SISTEMA\articulo\articulo.dat".
77 st-art pic xx value "00".
77 termina pic 99 value zeros.
77 cod-desde pic 9(4) value 1.
77 cod-hasta pic 9(4) value zeros.
77 aux pic x value spaces.

77 setbitpairs pic 99 comp-x value 1.

01 adiskeycontrol.
02 adiskeysetting pic 99 comp-x.
02 filler pic x value "2".
02 firstadiskey pic 99 co

Ya lo pude arreglar :D