FTN4,L C C *************************************************************** C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS * C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * C * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT* C * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * C *************************************************************** C C SOURCE PART NUMBER :92067-18394 C C RELOCATABLE PART NUMBER : 92067-16361 C C PROGRAMER(S) : J.M.N. C C C C ACASB -FINDS A ENTRY IN THE ACTIVE SESSION BLOCK C C CALLING SEQUENCE: C CALL ACASB(IDIRN,LU,I) C C WHERE IDIRN IS THE DIRECTORY ENTRY NUMBER C LU IS THE STATION LU WHERE ACCOUNT C IS ACTIVE C I IS THE INDEX INTO THE ACTIVE SESSION C BLOCK C SUBROUTINE ACASB(IDIRN,LU,I) ,92067-16361 REV.1940 781111 COMMON /ACOM6 /LOC(6),IRN,IPFLG IREC=LOC(1) ILAST=128*(LOC(2)-IREC) DO 100 IDX=I,ILAST,4 IF(IDIRN-1.NE.IVBUF(IDX+3,IREC)) GO TO 100 LU=IVBUF(IDX,IREC) IF(LU.NE.0) GO TO 200 100 CONTINUE C C NOT AN ACTIVE SESSION C LU=0 C C FOUND ACTIVE SESSION C 200 I=IDX+4 C C POST IVBUF C CALL IVBUF RETURN END