        CATALS   M.ARQR12
 DCL (INDEX,SUBSTR,DATE,STG,LENGTH,PLIRETV,LOW,ROUND,
      VERIFY,TRANSLATE,POINTERADD,HIGH,MOD,UPPERCASE,
      ADDR,STRING,ONCODE,PLIDUMP,PLIRETC) BUILTIN;

 DCL SYSPRINT FILE STREAM OUTPUT PRINT;

 @INCLUDE HIARQR12; /* PROCEDIMENT PRINCIPAL */
 @INCLUDE HIARQR13; /* INSERTS UPDATES DB2 */
 @INCLUDE HIARQR23; /* TRACTAMENT DE FITXERS */
 FI:
 END ARQR12;
