DEFINE pilas ARRAY[100] OF RECORD
    cod_n        LIKE intb00003.cod_n,
    cod_grupo    LIKE intb00003.cod_grupo,
    cod_tipo     LIKE intb00003.cod_tipo,
    cod_sec      LIKE intb00003.cod_sec,
    descrip_esp  LIKE iptb00002.descrip_esp 
END RECORD