Cómo redefinir un campo en un origen de datos que no sea FOCUS

La redefinición de campos de registros en orígenes de datos que no sean FOCUS, es compatible. Esto permite describir un campo con un diseño alternativo.

Dentro del archivo máster, los campos redefinidos deben describirse en un segmento único, independiente (SEGTYPE=U) utilizando los atributos POSITION=fieldname y OCCURS=1.

Sintaxis: Cómo Redefinir un campo

SEGNAME = segname, SEGTYPE = U, PARENT = parentseg,
OCCURS = 1, POSITION = fieldname,$

donde:

segname: Es el nombre del archivo.
parentseg: Es el nombre del segmento principal.
fieldname: Es el nombre del primer campo que se está redefiniendo. El uso de este segmento único con campos redefinidos ayuda a evitar problemas con la generación de informes de múltiples rutas.

Se establece una relación de uno a uno entre el registro principal y el segmento redefinido.

Principio de página

Ejemplo: Cómo redefinir una estructura VSAM

El siguiente ejemplo explica el proceso de redefinición de la estructura VSAM, que aparece en la descripción de archivos COBOL, donde COBOL FD es:

01 ALLFIELDS
  02 FLD1   PIC X(4)         -  this describes alpha/numeric data
  02 FLD2   PIC X(4)         -  this describes numeric data
  02 RFLD1  PIC 9(5)V99 COMP-3 REDEFINES FLD2
  02 FLD3   PIC X(8)         -  this describes alpha/numeric data
 
FILE = REDEF, SUFFIX = VSAM,$
 SEGNAME = ONE, SEGTYPE = S0,$
  GROUP = RKEY, ALIAS = KEY, USAGE = A4 ,ACTUAL = A4 ,$
   FIELDNAME = FLD1,,  USAGE = A4   ,ACTUAL = A4 ,$
   FIELDNAME = FLD2,,  USAGE = A4   ,ACTUAL = A4 ,$
   FIELDNAME = FLD3,,  USAGE = A8   ,ACTUAL = A8 ,$
 SEGNAME = TWO, SEGTYPE = U, POSITION = FLD2, OCCURS = 1, PARENT = ONE ,$
   FIELDNAME = RFLD1,, USAGE = P8.2 ,ACTUAL = Z4 ,$

Referencia: Consideraciones especiales sobre la redefinición de campos

La redefinición es una característica sólo de lectura, que se usa para presentar vistas alternativas de los datos. No se usa para modificar el formato de los datos.
En campos alfanuméricos, debe conocer sus propios datos. Si intenta imprimir campos numéricos con datos alfanuméricos, se pueden producir excepciones de datos o errores de conversión de valores. Le recomendamos que la primera definición siempre sea alfanumérica para evitar errores en la conversión.
Se puede redefinir más de un campo en un segmento.
La redefinición sólo es compatible con los orígenes de datos IDMS, IMS, VSAM, DB2 y FIX.