XTPACK: Cómo escribir un número empaquetado de hasta 31 dígitos significativos en un archivo de salida

La función XTPACK almacena números empaquetados de hasta 31 dígitos significativos en un campo alfanumérico, manteniendo los datos decimales. Esto permite escribir un campo empaquetado corto o largo, de 1 a 16 bytes, en un archivo de salida.

Sintaxis: Cómo Guardar valores empaquetados en un campo alfanumérico

XTPACK(in_value, outlength, outdec, output)

donde:

infield: Numérico
Es el valor empaquetado.
outlength: Numérico
Es la longitud del campo alfanumérico que mantiene el campo empaquetado convertido. Puede ser de 1 a 16.
outdec: Numérico
Es el número de posiciones decimales deoutput.
output: Alfanumérico
Es el nombre del campo que contendrá el resultado o el formato del campo entre comillas simples.

Principio de página

Ejemplo: Cómo escribir un número empaquetado largo en un archivo de salida

La siguiente solicitud crea un campo de decimal empaquetado largo denominado LONGPCK. ALPHAPCK (formato A13) es el resultado de aplicar XTPACK al campo empaquetado largo. A continuación, PCT_INC, LONGPCK y ALPHAPCK quedan escritos en un archivo SAVE, llamado XTOUT.

DEFINE FILE EMPLOYEE                                  
LONGPCK/P25.2 = PCT_INC + 11111111111111111111;       
ALPHAPCK/A13 = XTPACK(LONGPCK,13,2,'A13');            
END                                                   
TABLE FILE EMPLOYEE                                   
PRINT PCT_INC LONGPCK ALPHAPCK                        
WHERE PCT_INC GT 0                                    
  ON TABLE SAVE AS XTOUT                              
END

El archivo SAVE presenta los siguientes campos y formatos:

ALPHANUMERIC RECORD NAMED  XTOUT                                    
FIELDNAME                         ALIAS         FORMAT        LENGTH
                                                                    
PCT_INC                           PI            F6.2            6   
LONGPCK                                         P25.2          25   
ALPHAPCK                                        A13            13   
                                                                    
TOTAL                                                          44   
SAVED...