Compare los registros de la posición 1 a 5, de dos archivos planos VB y escriba los registros coincidentes en el 3er archivo JCL

Question

 file 1 :   AAAAA1234
            AAA111ZZZ
            BBBB111ZZ 

file2  :    KAAAA1234
            AAA111ZZZ
            BBBB111ZZ

Los archivos se compararán para las primeras 5 letras y, por lo tanto, el tercer archivo escribirá

 FILE 3 :   AAA111ZZZ
            BBBB111ZZ

Answer 1

JOINKEYS FILE=F1,FIELDS=(1,5,A)
JOINKEYS FILE=F2,FIELDS=(1,5,A)
REFORMAT FIELDS=(F1:1,9)
SORT FIELDS=COPY

Esto coincidirá con los dos archivos, solo coinciden de proceso (se ignorarán los desajustes) y creará un registro para la tarea principal de los keys de unión, que es el registro de entrada de F1. La tarea principal solo copiará su entrada a su salida. La salida estará en educación. Las entradas son srtjfnf1 y srtjnf2.

Si esto está relacionado con su pregunta anterior, dependiendo del producto que tenga, qué nivel de ese producto y si tiene un "parche" o no, puede poner cualquier procesamiento de inclusión/omitir en un archivo jnfnctnl (donde n es 1 o 2 dependiendo de qué archivo de entrada). Te ahorra un paso completo. También puede incluir/omitir en la tarea principal de Joinkeys, pero ¿por qué clasificar más de lo que necesita?

Si su archivo 1 ya está en orden, puede agregar ,SORTED a los unkeys para ese archivo. Si es así y tiene DFSort (háganos saber que en la pregunta anterior) también puede poner ,NOSEQCHK.