*COMDECK  COMBRWE 
          USE    /COMBRWE/
 BLANKS   DATA   1H          WORD OF BLANKS 
 ENDWRPV  BSSZ   1           =NZ - REPRIEVE OCCURRED IN ENDW
  
 OSNOS    IFEQ   HOST,NOS 
 NOSWRDS  DATA   -1          WHEN POSITIVE, COUNTER OF WRDS READ
  
          BSSZ   4           SPACE FOR NAME(LIKE THE FDB SPACE) 
 FDB      BSS    1           EXTENDED FET FOR GET/ATTACH
          VFD    15/,1/1,20/,6/6,18/
          BSS    8
          VFD    42/,18/ERAD
          BSS    3
 ERAD     BSS    3           ERR ADDR FOR PFM REQUESTS
 OSNOS    ELSE
 FDB      FDB    "IP.DPFN",ID="IP.ID",MR=1
          IFEQ   HOST,NOSBE,1 
 ZSYSLIB  BSSZ   1           ZZZZZ NAME OF SYSTEM LIBRARY TO RETURN 
 OSNOS    ENDIF 
  
 LIBFIL   DATA   4L#LIB      DEFAULT NAME FOR #FILE IF PROC ON LIBRARY
  
*         DATA WORDS USED IN IOLIB LOADD MACRO
  
 OSSC2    IFEQ   HOST,SC2 
 LIBWD    BSSZ   2
 OSSC2    ELSE
*         REFER TO LI FIELD DEFINITIONS FOR DESCRIPTION OF DATA TABLE 
 LIBWD    BSSZ   1
          VFD    12/,18/,12/3,18/ 
 OSNOS    IFNE   HOST,NOS 
 LIBLIST  DATA   0LNUCLEUS
          BSSZ   1
 OSNOS    ENDIF 
 LIBDIR   BSSZ   3
 LIBLDL   VFD    12/,12/,12/,12/,12/1000B 
 OSSC2    ENDIF 
  
  
*         THE FOLLOWING ITEMS MUST OCCUPY THREE CONSECUTIVE WORDS.
  
 INHIBEXP CON    0           STATEMENT EXPANSION/INHIBIT CHARACTER. 
 CCATENAT CON    0           CONCATENATION CHARACTER (RIGHT JUSTIFIED)
 INHIBIT  CON    0           INHIBIT CHARACTER (RIGHT JUSTIFIED)
  
 PB.EXP   EQU    1           PROC BODY EXPRESSIONS (.IF .IFE) 
