*DECK DB$LOKF 
USETEXT RQPARTX 
      PROC DB$LOKF (FIT,RELORD);
      BEGIN 
 #
* *   DB$LOKF                                    PAGE  1
* *   LOCK AREA OBJECT-TIME ROUTINE 
* *   W P CEAGLIO                                DATE  6/23/76
* * 
* DC  PURPOSE 
* 
*     FORMAT THE REQUEST PACKET FOR THE "LOCK AREA" REQUEST 
* 
* DC  ENTRY CONDITIONS
* 
*     STANDARD CALLING SEQUENCE WITH THE FOLLOWING PARAMETERS-- 
* 
*           FIT         ADDRESS OF FIT
*           RELORD      ADDRESS OF REALM ORDINAL
* 
* DC  EXIT CONDITIONS 
* 
*     THE "CALLSS" SUBSYSTEM REQUEST TO CDCS IS MADE VIA "DB$RQST". 
*     IF THE REQUEST WAS SUCCESSFULLY PROCESSED, CONTROL IS RETURNED
*     TO THE RUN-UNIT. IF A FATAL ERROR OCCURRED, THE RUN-UNIT IS 
*     ABORTED.
* 
* DC  CALLING ROUTINES
* 
*     HOST-LANGUAGE 
* 
* DC  CALLED ROUTINES 
* 
*     DB$RQST    COMPLETE 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# 
  
  
      CONTROL LIST; 
# PARAMETERS FROM CALLING SEQUENCE                                     #
  
      ARRAY FIT;;            # ADDRESS OF THE FIT                      #
      ITEM RELORD;           # ADDRESS OF THE REALM ORDINAL            #
  
      CONTROL NOLIST;         #RQPARDCLS# 
# EXTERNAL REFERENCES                                                  #
  
      XREF
        BEGIN 
  
        END 
      CONTROL LIST; 
  
      XREF PROC DB$RQST;
      CONTROL EJECT;
  
# S T A R T  O F  D B $ L O K F  E X E C U T A B L E  C O D E          #
  
#     FILL IN ENTRIES IN REQUEST PACKET                                #
  
      RQPARORD [0] = RELORD;
  
#     COMPLETE REQUEST PACKET AND ISSUE "CALLSS" REQUEST               #
  
      DB$RQST (DFLOK,DFWCLOK,FIT);
  
      END 
      TERM
