          IDENT  RHAQAC
          TITLE  RHA$ENTRY POINT QAC MACRO
          ENTRY  RHPQAC,ICPQAC,RHPRQD
          LIST   F
          SYSCOM
*copyc dsa$cybil_if_macros
* RHPQAC
*
*     THE PURPOSE OF THIS A170 COMPASS ROUTINE IS TO PROVIDE AN
* INTERFACE BETWEEN A CYBIL PROCEDURE AND THE NOS/A170 QAC MACRO.
*
*           RHPQAC (PARAMETER_BLOCK)
*
* // THIS ROUTINE IS CALLED BY:          (AS OF 84/11/20)
* //   DSMRUN MODULE=RHMJEP PROC=STATUS_PARTNER_JOB
*        INPUT: JSN   OUTPUT: FOUND OR NOT_FOUND
* //   DSMRUN MODULE=ICM$PAR PROC=FIND_PARTNER_QUEUE
*        INPUT: JSN   OUTPUT: IN_INPUT, IN_EXEC, NOT_FOUND
* //   RHAQEP MODULE=RHMQFA
*        INPUT: NO JSN OR LFN    OUTPUT: EC=NOT_FOUND OR LFN
*
* RHPRQD
*
*     THIS ROUTINE REQUESTS A QUEUE DEVICE RESIDENCE (FOR NOS/BE)
*         REQUEST_QUEUE_DEVICE ( LFN: INTEGER)
*     IT ACTS AS A NOOP FOR NOS.

 RHPQAC   BSS
 ICPQAC   EQU    RHPQAC
          RJ     =XPXSAVE
          BX0    X1
NOSSYS    IF     -DEF,RA.ORG
*
* CALL NOS/A170 QAC FUNCTION PROCESSOR
*
          SYSTEM QAC,1,X0,0
NOSSYS    ELSE
*
* CALL NOS/BE QAF FUNCTION PROCESSOR
*
          ACQUIRE X0,RECALL,N
NOSSYS    ENDIF
          EQ     =XZSMRRET

RHPRQD    BSS    0
NBESYS    IF     DEF,RA.ORG
          LX1    18D         LEFT ADJUST LFN
          BX6    X1
          SA6    RTELIST
          MX6    1
          LX6    1+55D
          SA6    A6+B1
          MX6    0
          SA6    A6+B1
          SA6    A6+B1
          REQUEST RTELIST,RECALL
NBESYS    ENDIF
          SHORTEX
RTELIST   BSS    6           RETURN/REPLY SPACE
          END
