        CATALS   Q.ARQC12

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

 DCL SYSPRINT FILE PRINT;
 DCL PTRCA PTR;

 DCL 1 PARAMETRES BASED(PTRCA),
     2 PTR5511 PTR,
     2 PTR3803 PTR;

 DCL 1 AI_APPLID,
       2  AI_CICS   CHAR(4),
       2  AI_ENTORN PIC'9',
       2  AI_CLIENT CHAR(1),
       2  AI_TIPU   CHAR(1);

 EXEC CICS ASSIGN APPLID(AI_APPLID);

 @INCLUDE HIARQR12;
 @INCLUDE HIARQR13;
                                                                        PUT SKIP
 EXEC CICS RETURN;

 END ARQC12;
