Una empresa posee la información generada por la facturación diaria en un archivo. Han detectado que por un error de redondeo el importe total de la facturación diaria puede no coincidir con la sumatoria de los totales de cada factura.

El archivo en que reside esta información tiene las siguientes características:

Facturas: Organización Secuencial Indexada, Clave primaria Fac-Clave, Diseños de registro

01 FAC-Reg1.
    03 Fac-Clave.
        05 Fac1-tipo-reg            Tipo de registro "1" Totales                     1 Pos.
        05 Fac1-Fecha               Fecha de facturación AAAAMMDD      8 Pos.
        05 Fac1-1er-Factura      Primer factura emitidas en el día               9 Pos.
        05 Fac1-Ult-Factura      Ultima factura emitida en el día                 9 Pos.
    03 Fac1-Total-Diario          Importe total de las facturas                  15 Pos.

01 FAC-Reg2.
    03 Fac2-Tipo-reg Tipo de registro "2" Detalle         1 Pos.
    03 Fac2-numero-fac Número de la factura              12 Pos.
    03 Fac2-fecha-factura Fecha de la factura               8 Pos.
    03 Fac2-orden Número de secuencia                      6 Pos.
    03 Fac2-resto 15 pos.

Fac2-resto tiene diferentes formatos dependiendo de los registros de detalle a los que este definiendo.

• Para el primer registro del grupo (secuencia 1) tiene datos del cliente que no hacen al ejercicio.
• Para el Ultimo registro del grupo (el de mayor secuencia) posee el total de la factura.
• Para los restantes registros posee información de cada ítem de la factura.

El programa que se nos ha pedido codificar debe corregir el importe total de las facturas del día por la suma de los importes de las facturas emitidas en el día si los mismos no se corresponden.

Se pide:
    Jackson
    Pseudocódigo
    Codificación Cobol
    Codificación en Xbase