*DECK DB$PVC
USETEXT RQPARTX 
  PROC DB$PVC (PRKEY,PRTYPE,EORD,IORD,OPTS);
  BEGIN 
 #
* *   DB$PVC                                     PAGE  1
* *   PRIVACY OBJECT-TIME ROUTINE 
* *   W P CEAGLIO                                DATE  11/21/75 
* * 
* DC  PURPOSE 
*     FORMAT THE REQUEST PACKET FOR THE "PRIVACY" CALL
* 
* DC  ENTRY CONDITIONS
*     STANDARD CALLING SEQUENCE WITH THE FOLLOWING PARAMETERS-- 
*           PRKEY    PRIVACY KEY LITERAL
*           PRTYPE   PRIVACY ELEMENT TYPE 
*           EORD     AREA/RECORD ORDINAL
*           IORD     ITEM ORDINAL 
*           OPTS     PRIVACY OPTIONS
* 
* DC  EXIT CONDITIONS 
*     THE "CALLSS" SUBSYSTEM REQUEST TO CDCS IS MADE
* 
* DC  CALLING ROUTINES
*     HOST-LANGUAGE 
* 
* DC  CALLED ROUTINES 
*     DB$RQST    FINALIZE REQUEST PACKET AND ISSUE "CALLSS" REQUEST 
* 
* DC  DESCRIPTION 
* 
*     PARAMETERS THAT ARE PECULIAR TO THE REQUEST ARE FORMATTED IN THE
*     BUFFER DEFINED IN DB$RQST. THEN DB$RQST IS CALLED TO FORMAT THE 
*     COMMON PARAMETERS AND TO ISSUE THE "CALLSS" SUBSYSTEM FUNCTION. 
* 
 #
      CONTROL NOLIST;         #CDGDFDCLS# 
  
#     DEFS                                                             #
  
      CONTROL LIST; 
  
# THE FOLLOWING PARAMETERS ARE FROM THE "PRIVACY" CALLING SEQUENCE     #
  
      ITEM PRKEY C(30);                 # PRIVACY KEY LITERAL          #
      ITEM PRTYPE;                      # PRIVACY ELEMENT TYPE         #
      ITEM EORD;                        # AREA/RECORD ORDINAL          #
      ITEM IORD;                        # ITEM ORDINAL                 #
      ITEM OPTS;                        # PRIVACY OPTIONS              #
  
      CONTROL NOLIST;         #RQPARDCLS# 
# EXTERNAL DECLARATIONS                                                #
  
      XREF
        BEGIN 
        END 
      CONTROL LIST; 
  
      XREF PROC DB$RQST;
      XREF PROC DB$RA0; 
      CONTROL EJECT;
  
#     FILL IN ENTRIES IN THE REQUEST PACKET BUFFER                     #
  
      RQPPRKEY [0] = PRKEY; 
      RQPPRTYPE [0] = PRTYPE; 
      RQPPREORD [0] = EORD; 
      RQPPRIORD [0] = IORD; 
      RQPPROPTS [0] = OPTS; 
  
#     COMPLETE REQUEST PACKET AND ISSUE "CALLSS" REQUEST               #
  
      DB$RQST (DFPVC,DFWCPVC,DB$RA0); 
  
  
  END 
      TERM
