Ejemplos de sentencias COMPARE DATA y COMPARE PCB
Los ejemplos siguientes muestran cómo se utilizan las sentencias COMPARE DATA y COMPARE PCB.
Sentencia PCB de COMPARE para código de estado en blanco
La sentencia de PCB COMPARE está codificada en blanco. Comprueba un código de estado en blanco para la GU.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
L GU 10101100
E 10101200Sentencia PCB de COMPARE para nivel de SSA, código de estado, nombre de segmento, longitud de clave concatenada y clave concatenada
La sentencia COMPARE PCB es una solicitud para comparar el nivel de SSA, un código de estado de OK (que incluye espacios en blanco, GA, GC y GK), el nombre de segmento de SEGA, la longitud de clave concatenada de 0004 y una clave concatenada de A100.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
L GU
E 01 OK SEGA 0004A100Sentencia PCB de COMPARE para nivel de SSA, código de estado, nombre de segmento, longitud de clave concatenada y clave concatenada
La sentencia COMPARE PCB hace que el paso del trabajo termine basándose en el 8 de la columna 3 cuando alguno de los campos de la sentencia COMPARE PCB no es igual al campo correspondiente en el PCB.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
L GU 10105100
E 8 01 OK SEGK 0004A100 10105200Sentencia PCB de COMPARE para código de estado con comparación de retención
La sentencia COMPARE PCB es una solicitud para comparar el código de estado de OK (que incluye espacios en blanco, GA, GC y GK) y mantener esa comparación hasta la siguiente sentencia de PCB COMPARE. La comparación de OK se utiliza en GN después de GU y también se utiliza en un GN que tiene una petición de repetir seis veces.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
L GU SEGA (KEYA = A300) 20201100
L GN 20201300
EH OK 20201400
L 0006 GN 20201500Sentencia COMPARE DATA para segmento de longitud fija
La sentencia COMPARE DATA es una solicitud para comparar los datos devueltos. Se comparan 72 bytes de datos.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
L GU
E DATA A100A100A100A100A100A100A100A100A100A100A100A100A100A100X10102200
E A100A100A100A100 10102300Sentencia COMPARE DATA para datos de longitud fija para 64 bytes
La sentencia COMPARE DATA es una solicitud para comparar 64 bytes de los datos con los datos devueltos.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
L GU 10101600
E 0064 DATA A100A100A100A100A100A100A100A100A100A100A100A100A100A100X10101700
E A100A100B111B111 10101800Sentencia COMPARE DATA para datos de longitud fija para 72 bytes
La sentencia COMPARE DATA es una solicitud para comparar 72 bytes de los datos con los datos devueltos.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
L GU 10103900
E LP0072 DATA A100A100A100A100A100A100A100A100A100A100A100A100A100A100X10104000
E A100A100A100A100 10104100Sentencia COMPARE DATA para datos de longitud variable de campos de datos y longitud de varios segmentos
La sentencia COMPARE DATA es una solicitud para comparar 36 bytes de datos con los datos devueltos para el segmento 1 y 16 bytes de datos para el segmento 2. Compara los campos de longitud de ambos segmentos.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
L ISRT D (DSS = DSS01) X38005500
L DJ (DJSS = DJSS01) X38005600
L QAJAXQAJ 38005700
L V0036 DATA QSS02QASS02QAJSS01QAJASS97*IQAJA** *38005800
L M0016 DATA QAJSS01*IQAJ** 38005850
L GHU D (DSS = DSS01) X38006000
DJ (DJSS = DJSS01) X38006100
QAJAXQAJ (QAJASS = QAJASS97) 38006200
E LV0036 DATA QSS02QASS02QAJSS01QAJASS97*IQAJA** *38006300
E LM0016 DATA QAJSS01*2QAJ** 38006350Sentencia COMPARE DATA para datos de longitud variable de varios segmentos sin ninguna comparación de campo de longitud
La sentencia COMPARE DATA es una solicitud para comparar 36 bytes de los datos con los datos devueltos para el segmento 1 y 16 bytes de datos para el segmento 2 sin campos de longitud en comparación con ninguno de los segmentos.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
L ISRT D (DSS = DSS01) X38005500
L DJ (DJSS = DJSS01) X38005600
L QAJAXQAJ 38005700
L V0036 DATA QSS02QASS02QAJSS01QAJASS97*IQAJA** *38005800
L M0016 DATA QAJSS01*IQAJ** 38005850
L GHU D (DSS = DSS01) X38006000
DJ (DJSS = DJSS01) X38006100
QAJAXQAJ (QAJASS = QAJASS97) 38006200
E V0036 DATA QSS02QASS02QAJSS01QAJASS97*IQAJA** *38006300
M0016 DATA QAJSS01*2QAJ** 38006350Sentencia COMPARE DATA para datos de longitud variable de varios segmentos y un campo de longitud COMPARE
La sentencia COMPARE DATA es una solicitud para comparar 36 bytes de datos con los datos devueltos para el segmento 1 y 16 bytes de datos para el segmento 2. Compara el campo de longitud del segmento 1 solamente.
|---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----<
L ISRT D (DSS = DSS01) X38005500
L DJ (DJSS = DJSS01) X38005600
L QAJAXQAJ 38005700
L V0036 DATA QSS02QASS02QAJSS01QAJASS97*IQAJA** *38005800
L M0016 DATA QAJSS01*IQAJ** 38005850
L GHU D (DSS = DSS01) X38006000
DJ (DJSS = DJSS01) X38006100
QAJAXQAJ (QAJASS = QAJASS97) 38006200
E LV0036 DATA QSS02QASS02QAJSS01QAJASS97*IQAJA** *38006300
M0016 DATA QAJSS01*2QAJ** 38006350