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