PCKOUT: Cómo escribir un número empaquetado de longitud variable

La función PCKOUT escribe un número decimal empaquetado, de longitud variable en un archivo de extracción. Cuando una solicitud guarda el número empaquetado en un archivo de extracción , generalmente lo escribe como campo de 8 o 16 bytes, independientemente de su especificación de formato. PCKOUT le permite variar la longitud del campo entre 1 y 16 bytes.

Sintaxis: Cómo Escribir un número empaquetado de longitud variable

PCKOUT(in_value, length, output)

donde:

in_value: Numérico
Es el campo de entrada que contiene los valores. Puede estar en el formato de empaquetado, número entero o punto flotante de doble precisión. Si no está en el formato de número entero, queda redondeado en el entero más próximo.
length: Numérico
Es la longitud del valor de salida, entre 1 y 16 bytes.
output: Alfanumérico
Es el nombre del campo que contiene el resultado, o el formato del valor de salida puesto entre comillas solas. La función devuelve el campo como alfanumérico, aunque contiene datos empaquetados.

Principio de página

Ejemplo: Cómo escribir un número empaquetado de longitud variable

PCKOUT convierte el campo CURR_SAL en un campo empaquetado de 5 bytes y guarda el resultado en SHORT_SAL:

DEFINE FILE EMPLOYEE
SHORT_SAL/A5 = PCKOUT(CURR_SAL, 5, SHORT_SAL);
END
TABLE FILE EMPLOYEE
PRINT LAST_NAME SHORT_SAL HIRE_DATE
ON TABLE SAVE
END

El archivo de extracción resultante es:

 NUMBER OF RECORDS IN TABLE=       12 LINES=     12 
 
ALPHANUMERIC  RECORD  NAMED  SAVE 
FIELDNAME                          ALIAS         FORMAT          LENGTH 
LAST_NAME                          LN            A15               15 
SHORT_SAL                                        A5                 5 
HIRE_DATE                          HDT           I6YMD              6 
TOTAL                                                              26