EXTERNALROUTINE  DIRCOM(STRING (255)S)
!
EXTERNALINTEGERFNSPEC  DLOWERACR(INTEGER  ACR)
EXTERNALINTEGERFNSPEC  DNINDA(INTEGER  FSYS, INDNO, INTEGERNAME  INDAD)
!
!
      recordformat  c 
DIRCOMF(integer  DIRLOG SEMA, FEP SEMA,
{..8}      string (6)array  DAP USER(0 : 2),
{.20}      integer  SUBSYS  SITE COUNT, string (19)DEFAULT SUBSYS,
{.38}      integer  STUDENT SITE COUNT, string (19)DEFAULT STUDENT,
{.50}      string (6)array  DAP BATCH USER(0 : 1),
{.60}      integerarray  DAP INTEGER(1 : 6))
{.78}
!
!     integer(1) is CLAIM Q LIMIT
!             2     INTER
!             3     LO BATCH 0
!             4     HI BATCH 0
!             5     LO BATCH 1
!             6     HI BATCH 1
!
!
INTEGER  J, A
RECORD (DIRCOMF)NAME  DIRCOM
      J = DLOWERACR(2)
      -> OUT UNLESS  J = 0
      J = DNINDA(0, 0, A)
      -> OUT UNLESS  J = 0
      DIRCOM == RECORD(A + 40)
      DIRCOM_DAP BATCH USER(0) = ""
      RETURN 
OUT:
      PRINTSTRING("J =")
      WRITE(J, 1)
END 
ENDOFFILE