Cómo combinar campos recurrentes y múltiples tipos de registros

Cómo describir un camp recurrente y múltiples tipos de registros

En la estructura de datos mostrada a continuación, el primer registro (de tipo 01) incluye varias secuencias diferentes de campos repetidos, que deben estar descritas como segmentos descendientes con un atributo OCCURS. El origen de datos también presenta dos registros independientes, de tipo 02 y 03, con información relacionada a la del registro de tipo 01.

La relación entre los distintos tipos de registros se expresa como de principal a secundario. Los secundarios que contienen los registros de tipo 02 y 03 no tienen un atributo OCCURS. Se diferencian de su principal mediante la declaración de campo, donde field=RECTYPE.

La descripción de este origen de datos es:

FILENAME = EXAMPLE1, SUFFIX = FIX,$
 SEGNAME = A, SEGTYPE=S0,$
  FIELDNAME = RECTYPE   ,ALIAS = 01   ,USAGE = A2   ,ACTUAL = A2 ,$
  FIELDNAME = T1        ,ALIAS =      ,USAGE = A2   ,ACTUAL = A1 ,$
  FIELDNAME = N1        ,ALIAS =      ,USAGE = A1   ,ACTUAL = A1 ,$
 SEGNAME = B, PARENT = A, OCCURS = VARIABLE, SEGTYPE=S0,$
  FIELDNAME = B1        ,ALIAS =      ,USAGE = I2   ,ACTUAL = I2 ,$
  FIELDNAME = B2        ,ALIAS =      ,USAGE = I2   ,ACTUAL = I2 ,$
 SEGNAME = C, PARENT = B, OCCURS = B1, SEGTYPE=S0,$
  FIELDNAME = C1        ,ALIAS =      ,USAGE = A1   ,ACTUAL = A1 ,$
 SEGNAME = D, PARENT = B, OCCURS = 7,  SEGTYPE=S0,$
  FIELDNAME = D1        ,ALIAS =      ,USAGE = A1   ,ACTUAL = A1 ,$
 SEGNAME = E, PARENT = A, SEGTYPE=S0,$
  FIELDNAME = RECTYPE   ,ALIAS = 02   ,USAGE = A2   ,ACTUAL = A2 ,$
  FIELDNAME = E1        ,ALIAS =      ,USAGE = A1   ,ACTUAL = A1 ,$
 SEGNAME = F, PARENT = E, SEGTYPE=S0,$
  FIELDNAME = RECTYPE   ,ALIAS = 03   ,USAGE = A2   ,ACTUAL = A2 ,$
  FIELDNAME = F1        ,ALIAS =      ,USAGE = A1   ,ACTUAL = A1 ,$

Produce la siguiente estructura de datos:

Los segmentos A, B, C y D pertenecen al mismo tipo de registro. Los segmentos E y F están almacenados como registros diferentes.

Nota:

Los segmentos A, E y F se tratan de registro diferentes que están relacionados en cuanto al tipo. El atributo de tipo de registro consta de ciertos valores predefinidos y se almacena en una ubicación fija dentro de los registros. Se espera que los registros se recuperen en un orden determinado. Si el primer registro no tiene un RECTYPE de 01, se le considera un secundario sin principal. El próximo registro puede tener un RECTYPE de 01 (en cuyo caso el primer registro no tiene descendientes excepto los OCCURS) o 02. Los registros con un RECTYPE de 03 sólo pueden estar precedidos de un registro con un RECTYPE de 02 (su principal) o de otro 03.
Todos los descendientes OCCURS pertenecen al registro de RECTYPE 01. (Esta condición no es obligatoria. Cualquier tipo de registro puede tener descendientes OCCURS.) Observe cómo el segmento OCCURS=VARIABLE, segmento B, está situado a la derecha del todo en su propio tipo de registro. Al examinar la estructura de datos, observará que el patrón que forman el segmento B y sus descendientes (repetición de los campos B1, B2, C1 y D1) se extiende desde la primera mención de los campos B1 y B2 hasta el final del registro.
Aunque los campos C1 y D1 aparecen en segmentos diferentes, en realidad forman parte del patrón repetido que conforma el segmento OCCURS=VARIABLE. Puesto que se repiten varias veces en el segmento B, cada uno queda asignado a su propio segmento descendiente. El número de veces en que se repite C1 depende del valor del campo B2. En este ejemplo, el primer valor del campo B2 es 3. El segundo, 2. El campo D1 aparece un número fijo de veces, 7.

Cómo describir un grupo VSAM repetido con RECTYPEs

Imagine que quiere describir un origen de datos que, a grandes rasgos, presenta este aspecto:

A RECTYPE B C RECTYPE B C

A RECTYPE D RECTYPE D

Debe describir tres segmentos en su archivo máster, con A como segmento raíz, y segmentos para B, C y D como dos segmentos OCCURS descendientes de A.

El siguiente diagrama refleja estos tres segmentos.

Cada uno de los dos segmentos OCCURS descendientes del ejemplo depende del indicador de RECTYPE, que aparece por cada repetición.

La sintaxis para los RECTYPE dentro de los segmentos OCCURS es la misma que para el uso de campos RECTYPE y segmentos OCCURS.

Puesto que cada segmento OCCURS depende del indicador de RECTYPE para su evaluación, RECTYPE debe aparecer al principio del segmento OCCURS. Esto permite describir orígenes de datos complejos, incluidos aquellos con grupos repetidos anidados o paralelos, que dependen de los RECTYPE.

Principio de página

Ejemplo: Cómo describir un grupo VSAM repetido con RECTYPEs

En este ejemplo, B/C y D representan un grupo repetido, anidado, mientras que E representa uno repetido, paralelo.

RECTYPE B C

RECTYPE D

RECTYPE E

RECTYPE E

FILENAME=SAMPLE,SUFFIX=VSAM,$
 SEGNAME=ROOT,SEGTYPE=S0,$
  GROUP=GRPKEY      ,ALIAS=KEY ,USAGE=A8 ,ACTUAL=A8 ,$
   FIELD=FLD000     ,E00       ,A08      ,A08       ,$
   FIELD=A_DATA     ,E01       ,A02      ,A02       ,$
 SEGNAME=SEG001,PARENT=ROOT,OCCURS=VARIABLE,SEGTYPE=S0  ,$
  FIELD=RECTYPE     ,A01       ,A01      ,ACCEPT=B OR C ,$
  FIELD=B_OR_C_DATA ,E02       ,A08      ,A08       ,$
 SEGNAME=SEG002,PARENT=SEG001,OCCURS=VARIABLE,SEGTYPE=S0,$
  FIELD=RECTYPE     ,D         ,A01      ,A01       ,$
  FIELD=D_DATA      ,E03       ,A07      ,A07       ,$
 SEGNAME=SEG003,PARENT=ROOT,OCCURS=VARIABLE,SEGTYPE=S0  ,$
  FIELD=RECTYPE     ,E         ,A01      ,A01       ,$
  FIELD=E_DATA      ,E04       ,A06      ,A06       ,$

Cómo describir un grupo repetido mediante MAPFIELD

Cómo:

En otra combinación del indicador de registros y OCCURS, uno de los registros contiene un indicador seguido de un grupo repetido. En este caso, el indicador de registros se encuentra en la parte fija del registro, no en cada repetición. A grandes rasgos, el registro se parece a éste:

El primer registro contiene la información del encabezado, que son los valores de A y de B, seguidos de un segmento OCCURS con C y D, que fue identificado por el indicador de registros precedente. El segundo registro cuenta con un indicador de registro y un grupo repetido diferente, en este caso para E.

El siguiente diagrama explica esta relación:

Puesto que los segmentos OCCURS están identificados por el indicador de registros, en vez de por el segmento principalA/B, debe utilizar la palabra clave MAPFIELD. MAPFIELD identifica los campos del mismo modo que RECTYPE, aunque como cada segmento OCCURS tiene su propio valor para MAPFIELD, el valor de éste se encuentra asociado a cada segmento OCCURS por medio de un campo complementario, llamado MAPVALUE.

El siguiente diagrama explica esta relación:

MAPVALUE recibe el ALIAS del campo que actúa como indicador de registros. Puede tener cualquier nombre.

Principio de página

Sintaxis: Cómo Describir un grupo repetido con MAPFIELD

FIELD = name, ALIAS = MAPFIELD, USAGE = format, ACTUAL = format,$

donde:

name: Es el nombre que ha elegido para este campo.
ALIAS: MAPFIELD recibe el ALIAS del campo que actúa como indicador de RECTYPE.
USAGE: Sigue el formato normal de los campos.
ACTUAL: Sigue el formato normal de los campos.

Los valores de los segmentos descendientes dependen del valor de MAPFIELD. Aparecen descritos como segmentos independientes (uno por cada valor posible de MAPFIELD) y todos descienden del segmento que incluye el MAPFIELD. Aparece un campo especial, MAPVALUE, descrito como el último campo de estos segmentos descendientes, después del campo ORDER (si se ha usado uno). El valor real de MAPFIELD se proporciona como el ALIAS de MAPFIELD.

Principio de página

Sintaxis: Cómo Usar un MAPFIELD para un segmento repetido descendiente en un grupo repetido

FIELD = MAPVALUE, ALIAS = alias, USAGE = format, ACTUAL = format, 
ACCEPT = {list|range} ,$

donde:

MAPVALUE

Indica que el segmento depende de un MAPFIELD en su segmento principal.

alias

Es el valor primario de MAPFIELD si no se ha especificado una lista ACCEPT. Si hay una lista ACCEPT, puede tratarse de cualquier valor.

USAGE

Es igual que el formato MAPFIELD en el segmento principal.

ACTUAL

Es igual que el formato MAPFIELD en el segmento principal.

list

Es una lista de una o varias líneas con los valores especificados de MAPFIELD, para los registros que presentan el mismo diseño de segmento. El número máximo de caracteres permitido en la lista es de 255. Cada elemento de la lista debe estar separado por un espacio en blanco o por la palabra clave OR. Si la lista incluye espacios en blanco y comas insertados, debe ir colocada entre comillas simples. La lista puede incluir un único valor de MAPFIELD.

Por ejemplo:

FIELDNAME = MAPVALUE, ALIAS = A, USAGE = A1, ACTUAL = A1, 
ACCEPT = A OR B OR C,$

range

Es un rango o intervalo de una o varias líneas con los valores específicos de MAPFIELD, para los registros que tienen el mismo diseño de segmento. El número máximo de caracteres permitido en el rango es de 255. Si el rango incluye espacios en blanco y comas insertados, debe ir colocado entre comillas simples (').

Para especificar un rango de valores, incluya el valor más bajo, la palabra clave TO y el valor más alto, en este orden.

Principio de página

Ejemplo: Cómo usar MAPFIELD y MAPVALUE

Si utiliza el origen de datos de ejemplo al principio de la sección, el archivo máster correspondiente tendrá este aspecto:

FILENAME=EXAMPLE,SUFFIX=FIX,$
 SEGNAME=ROOT,SEGTYPE=S0,$
  FIELD =A,              ,A14   ,A14 ,$
  FIELD =B,              ,A10   ,A10 ,$
  FIELD =FLAG ,MAPFIELD  ,A01   ,A01 ,$
 SEGNAME=SEG001,PARENT=ROOT,OCCURS=VARIABLE,SEGTYPE=S0  ,$
  FIELD =C,              ,A05   ,A05 ,$
  FIELD =D,              ,A07   ,A07 ,$
  FIELD =MAPVALUE ,1     ,A01   ,A01 ,$
 SEGNAME=SEG002,PARENT=ROOT,OCCURS=VARIABLE,SEGTYPE=S0  ,$
  FIELD =E,              ,D12.2 ,D8  ,$
  FIELD =MAPVALUE ,2     ,A01   ,A01 ,$

Nota: MAPFIELD sólo puede existir en un segmento OCCURS que no haya sido reasignado. Esto significa que la definición del segmento no puede incluir POSITION=fieldname.

Puede usar MAPFIELD y MAPVALUE con los orígenes de datos SUFFIX=FIX y SUFFIX=VSAM.