file - usar - ¿Cómo se pueden eliminar los duplicados de un archivo utilizando COBOL?

eliminar duplicados cobol

Question

El archivo de entrada tiene registros como: 8712351,8712353,8712353,8712354,8712356,8712352,8712355 8712352,8712355

Usando COBOL necesito eliminar duplicados del archivo anterior y escribir en un archivo de salida. Escribí lógica simple para leer registros y escribir en un archivo de salida.

¿Dónde debo poner la lógica de eliminar duplicados (por ejemplo, 8712353,8712352) del archivo anterior? Aquí está la lógica del programa:

   IDENTIFICATION DIVISION.
   PROGRAM-ID.RemoveDup.
   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT INPUTFILEDUP ASSIGN TO ''C:/Cobol/INPUTFILEDUP.txt''
           ORGANIZATION IS LINE SEQUENTIAL.
   SELECT OUTFILEDUP ASSIGN TO ''C:/Cobol/OUTFILEDUP.txt''
               ORGANIZATION IS LINE SEQUENTIAL.

   DATA DIVISION.

   FILE SECTION.
   FD INPUTFILEDUP.
   01 INPUTFILEDUPREC.
       88 EOFINPUTFILEDUP    VALUE HIGH-VALUES.
       02 INPUTFILEID        PIC 9(07).

   FD  OUTFILEDUP.
   01 OUTFILEDUPREC         PIC 9(07).

   WORKING-STORAGE SECTION.
   77 WS-VARIABLE            PIC 9(09).
   77 REC-NOT-MATCH          PIC 9(01).
   77 CUR-VARIABLE           PIC 9(09).

   PROCEDURE DIVISION.
   BEGIN.
   OPEN INPUT  INPUTFILEDUP
   OPEN OUTPUT OUTFILEDUP

   READ INPUTFILEDUP
       AT END SET EOFINPUTFILEDUP  TO TRUE
   END-READ
   PERFORM UNTIL (EOFINPUTFILEDUP)
                WRITE OUTFILEDUPREC  FROM  INPUTFILEID
               READ  INPUTFILEDUP
                     AT END SET EOFINPUTFILEDUP TO TRUE
                           PERFORM UNTIL (EOFINPUTFILEDUP)
  END-READ
  END-PERFORM
                   CLOSE   INPUTFILEDUP
                   CLOSE  OUTFILEDUP
  STOP RUN.

Ordene el archivo de entrada en orden ascendente como: 8712351,8712353,8712353,8712354,8712356,8712352,8712355,8712352,8712355 Y funcionó, a continuación se muestra el código modificado:

Pero supongamos que si mi archivo no está en orden ascendente o descendente en el que necesito escribir la lógica de clasificación antes de eliminar dups. por favor, puede actualizar mi código de abajo para esto, ya que lo intenté pero no tengo éxito en hacer esto si la estructura del campo de entrada es como:

8712351,8712353,8712353,8712354,8712356,8712352,8712355,8712352,8712355

   IDENTIFICATION DIVISION.
   PROGRAM-ID.RemoveDup2.
   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT INPUTFILEDUP ASSIGN TO ''C:/Cobol/INPUTFILEDUP.txt''
           ORGANIZATION IS LINE SEQUENTIAL.
   SELECT OUTFILEDUP ASSIGN TO ''C:/Cobol/OUTFILEDUP.txt''
               ORGANIZATION IS LINE SEQUENTIAL.

   DATA DIVISION.

   FILE SECTION.
   FD INPUTFILEDUP.
   01 INPUTFILEDUPREC.
       88 EOFINPUTFILEDUP    VALUE HIGH-VALUES.
       02 INPUTFILEID        PIC 9(07).

   FD  OUTFILEDUP.
   01 OUTFILEDUPREC         PIC 9(07).

   WORKING-STORAGE SECTION.
   77 WS-VARIABLE            PIC 9(09) VALUE ZERO.
   77 REC-NOT-MATCH          PIC 9(01).
   77 CUR-VARIABLE           PIC 9(7) VALUE ZERO.

   PROCEDURE DIVISION.
   BEGIN.
   OPEN INPUT  INPUTFILEDUP
   OPEN OUTPUT OUTFILEDUP

   READ INPUTFILEDUP
       AT END SET EOFINPUTFILEDUP  TO TRUE
   END-READ
   PERFORM UNTIL (EOFINPUTFILEDUP)
        IF INPUTFILEID NOT EQUAL TO  WS-VARIABLE
              MOVE  INPUTFILEID TO WS-VARIABLE
              WRITE OUTFILEDUPREC  FROM  INPUTFILEID
              READ  INPUTFILEDUP
                  AT END SET  EOFINPUTFILEDUP TO TRUE
              PERFORM UNTIL (EOFINPUTFILEDUP)
        ELSE
              DISPLAY "dUPLICATE FOUND"   INPUTFILEID

   READ INPUTFILEDUP
     AT END SET EOFINPUTFILEDUP  TO TRUE

   END-READ

       END-PERFORM

   CLOSE   INPUTFILEDUP
   CLOSE  OUTFILEDUP
   STOP RUN.

Answer 1

Cuando Organization es Sequential , el registro eliminado es el último registro leído. La declaración de Delete es válida solo cuando la última operación contra el archivo es una declaración de Read exitosa. De lo contrario, la Delete devuelve un valor de File Status de 43. Debido a que la Delete no puede devolver los valores de File Status que comienzan con un 2 cuando el archivo está Open con acceso Sequential , no se permite la codificación de la Invalid Key en dicha Delete .

Cuando se selecciona el acceso Dynamic o Random para el archivo, la declaración Delete , como la Rewrite , se vuelve un poco menos restrictiva. El registro que se está eliminando no necesita tener una lectura previa. Simplemente complete la información de la Key principal en la descripción del registro para el archivo y emita la declaración Delete . Si el registro no existe, se devuelve un File Status de File Status de 23 y existe una condición de Invalid Key no válida.

De la página 274 de

Sams te enseña COBOL en 24 horas

página 274 (que acabo de desempolvar de mi librero). Entonces, en su caso, presumiblemente configurará sus registros para que sean ordenados por INPUTFILEID , haga un registro a medida que avance de ocurrencias de un INPUTFILEID dado INPUTFILEID allá de su primera ocurrencia, y Delete consiguientemente (después de haberlo escrito en su archivo de salida) .

Answer 2

Finalmente funcionó. Aquí está el código

   IDENTIFICATION DIVISION.
   PROGRAM-ID.RemoveDup2.
   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT INPUTFILEDUP ASSIGN TO ''C:/Cobol/INPUTFILEDUP.txt''
           ORGANIZATION IS LINE SEQUENTIAL.
   SELECT OUTFILEDUP ASSIGN TO ''C:/Cobol/OUTFILEDUP.txt''
               ORGANIZATION IS LINE SEQUENTIAL.
   SELECT WorkFile ASSIGN TO "WORK.TMP".

   DATA DIVISION.

   FILE SECTION.
   FD INPUTFILEDUP.
   01 INPUTFILEDUPREC.
       88 EOFINPUTFILEDUP    VALUE HIGH-VALUES.
       02 INPUTFILEID        PIC 9(07).

   FD  OUTFILEDUP.
   01 OUTFILEDUPREC         PIC 9(07).

   SD WorkFile.
   01 WORKREC.
      02 WINPUTFILEID       PIC 9(07).

   WORKING-STORAGE SECTION.
   77 WS-VARIABLE            PIC 9(09) VALUE ZERO.
   77 REC-NOT-MATCH          PIC 9(01).
   77 CUR-VARIABLE           PIC 9(7) VALUE ZERO.

   PROCEDURE DIVISION.
   BEGIN.
       SORT WorkFile ON ASCENDING KEY WINPUTFILEID
       USING INPUTFILEDUP GIVING INPUTFILEDUP

   OPEN INPUT  INPUTFILEDUP
   OPEN OUTPUT OUTFILEDUP

       READ INPUTFILEDUP
               AT END SET EOFINPUTFILEDUP  TO TRUE
   END-READ
       PERFORM UNTIL (EOFINPUTFILEDUP)
           IF INPUTFILEID NOT EQUAL TO  WS-VARIABLE
                   MOVE  INPUTFILEID TO WS-VARIABLE
                   WRITE OUTFILEDUPREC  FROM  INPUTFILEID
                   READ  INPUTFILEDUP
                       AT END SET  EOFINPUTFILEDUP TO TRUE
       PERFORM UNTIL (EOFINPUTFILEDUP)
           ELSE
                   DISPLAY "DUPLICATE FOUND    "   INPUTFILEID

   READ INPUTFILEDUP
               AT END SET EOFINPUTFILEDUP  TO TRUE
   END-READ
   END-PERFORM

   CLOSE   INPUTFILEDUP
   CLOSE  OUTFILEDUP

   STOP RUN.

Answer 3

Si ordenará el archivo con una clasificación externa antes de leerlo en el programa cobol, puede eliminar los duplicados con la palabra clave CLASIFICAR IGUALES. Si ordena el archivo antes del programa cobol y no elimina los duplicados, entonces una simple declaración IF y un campo de guardar le permitirán eliminar los dups.

Configure un campo de guardado de INPUTFILEID. Justo después de la lectura ... IF inputfileid igual inputfileid-save vuelva a leer si no escribe ... después de la escritura mueva inputfileid a inputfileid-save. Tendrás que dividir el rendimiento actual para hacer esto.

Si no entiende completamente lo que estoy diciendo y lo ayudará a cambiar el código, hágamelo saber

Answer 4

sort es estándar para estos trabajos de cierre del sistema a seguir el principio DRY, engranajes -t para el separador y -u para los únicos. Es C.