*DECK DB$GLDF 
      PROC DB$GLDF; 
      BEGIN 
 #
* *   DB$GLDF - GLOBAL DEFINITIONS               PAGE  1
* *   GLOBALLY DEFINED ITEMS AND ARRAYS 
* *   E P JOHNSON                                DATE  10/03/79 
* * 
* 
* DC  PURPOSE 
* 
*     GLOBALLY DEFINE ITEMS AND ARRAYS FOR THE OBJECT LIBRARY.
* 
* DC  ENTRY CONDITIONS
*     ASSUMPTIONS 
*     NONE
* 
* DC  EXIT CONDITIONS 
* 
*     ALL ITEMS AND/OR ARRAYS HAVE BEEN DEFINED.
* 
* DC  CALLING ROUTINES
* 
*     NONE
* 
* DC  CALLED ROUTINES 
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     -THE ARRAY DB$DBS IS DEFINED. THIS HOLDS THE LENGTH 
*      AND THE ADDRESS OF THE DATABASE STATUS BLOCK AT THE UCP. 
* 
*     -THE ITEM DB$TSKN IS DEFINED. THIS IS THE JOB 
*      TASK NUMBER (0 FOR BATCH). 
* 
*     -THE ITEM DB$IMRT IS DEFINED. THIS IS THE IMMEDIATE RETURN FLAG.
*      IT IS USED TO DETERMINE WHETHER TO RETURN TO THE USER ON RESOURCE
*      CONFLICTS (SUCH AS LOCKED RECORDS/AREAS AND FILES THAT CANNOT
*      BE IMMEDIATELY ATTACHED) OR ON FATAL ERRORS. 
* 
 #
  
  
#      THIS ARRAY STORES THE UCP DBST LOCATION AND WORD LENGTH         #
  
       XDEF ARRAY DB$DBS; 
         BEGIN
         ITEM DBSTLW  U(00,36,06);      # DBST LENGTH IN WORDS         #
         ITEM DBSTADR U(00,42,18);      # DBST ADDRESS AT THE UCP      #
         END
  
  
#      THIS ITEM CONTAINS THE TASK NUMBER FOR THE REQUEST(0 FOR BATCH) #
  
       XDEF ITEM DB$TSKN I=0;           # REQUEST TASK NUMBER          #
  
#     THIS ITEM IS THE IMMEDIATE RETURN FLAG. TRUE = RETURN TO THE     #
#     USER.                                                            #
  
      XDEF ITEM DB$IMRT B = FALSE;
  
  
       END
       TERM 
