Obtener el monto menor

[dariodr]

Hola amigos coboleros, tengo este codigo.
Pregunta: como obtengo el monto de venta menor.

       identification division.
       program-id. ventas1.
 
       environment division.
       input-output section.
       file-control.
           select ventas assign to "ventas.txt".
 
       data division.
       file section.
       fd  ventas recording mode f.
       01 reg-ventas.
         03 num-vendedor pic 999.
         03 cod-articulo pic x(5).
         03 des-articulo pic x(30).
         03 unid-vendidas pic 9(4).
         03 monto-venta pic 9(6)V99.
      *Variables
       working-storage section.
       01 cabecera.
         03 filler pic x(15) value "Nro de Vendedor".
         03 filler pic x(2) value spaces.
         03 filler pic x(19) value "Codigo del Articulo".
         03 filler pic x(2) value spaces.
         03 filler pic x(11) value "Descripcion".
         03 filler pic x(10) value spaces.
         03 filler pic x(14) value "Unid. Vendidas".
         03 filler pic x(2) value spaces.
         03 filler pic x(14) value "Monto de Venta".
       01  linea-p.
         03 filler pic x(90) value all "-".
 
       01 fin-archivo pic xx value "no".
       01 linea       pic 99 value 3.
       01 tecla       pic x.
       01 suma        pic 9(6)v99.
       01  menor      pic 9(6)v99.
       01 promedio    pic 9(6)v99. 
       01  con-formato.
         03 promedio-f pic zzzzz9.99.
 
       procedure division.
       proceso-apertura.
           open output ventas.
           perform ingreso-datos 3 times.
           close ventas.
           open input ventas.
           display erase.
           display cabecera.
           display linea-p.
           perform proceso-lectura until fin-archivo = "si".
           close ventas.
           perform mostrar-promedio.
           accept tecla.
           goback.
 
       proceso-lectura.          
           read ventas
               at end
                   move "si" to fin-archivo
               not at end
                   move monto-venta to menor (hice esto pero no funciono).
                   perform listar
                   perform calcular-promedio
           end-read.
 
       ingreso-datos.
           display "Numero de vendedor: " no advancing.
           accept num-vendedor.
           display "Codigo del articulo: " no advancing.
           accept cod-articulo.
           display "Descripcion: " no advancing.
           accept des-articulo.
           display "Unidades vendidas: " no advancing.
           accept unid-vendidas.
           display "Monto de venta: " no advancing.
           accept monto-venta.
           write reg-ventas.
 
       listar.
           display num-vendedor  line linea col 1. 
           display cod-articulo  line linea col 18.
           display des-articulo  line linea col 39.
           display unid-vendidas line linea col 60.
           display monto-venta   line linea col 76.
           add 1 to linea.
 
       calcular-promedio.
           compute suma = suma + monto-venta.
 
       mostrar-promedio.
           compute promedio = suma / 3.
           display "Promedio: " line 10 col 30.
           move promedio to promedio-f.
           display promedio-f line 10 col 43.

Salu2

[Josber]

Sí claro, una de las soluciones es, a la vez que lees el fichero, vas metiendo los datos que necesites, por ejemplo la clave principal y el total de venta en una tabla y, al finalizar, con un SORT, la ordenas por la columna de ventas.

Un salu2.-

[JCantero]

@dariodr, define una variable en working

       01 venta-menor    pic 9(6)v99 value 0. 

y a la vez que calculas suma vas metiendo la venta menor y luego la displayas

       calcular-promedio.
           compute suma = suma + monto-venta.
           if venta-menor = 0 then 
                 move monto-venta to venta-menor
           end-if.
           if venta-menor > monto-venta then 
                 move monto-venta to venta-menor
           end-if.
 
 
       mostrar-promedio.
           compute promedio = suma / 3.
           display "Promedio: " line 10 col 30.
           move promedio to promedio-f.
           display promedio-f line 10 col 43.
 
           display "Venta menor: " line 11 col 30.
           move venta-menor to promedio-f.
           display promedio-f line 11 col 43.