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-18389 C C RELOCATABLE PART NUMBER : 92067-16361 C C PROGRAMER(S) : J.M.N. C C C C ACGTU- ROUTINE TO GET A USER'S ACCOUNT ENTRY C C CALLING SEQUENCE: CALL ACGTU (IUSER,IGRP,IBUF,IOFST,IERR) C WHERE C IUSER = 5-WD BUFFER CONTAINING USER NAME, C PADDED WITH BLANKS C IGRP = 5-WD BUFFER CONTAINING GROUP NAME, C PADDED WITH BLANKS C IBUF = 128-WD BUFFER WHERE ACCOUNT ENTRY C IS RETURNED C IOFST = RETURNED AS 0 IF ACCT STARTS AT 1ST WD, C 64 IF STARTS AT 65TH WD OF BUFFER C IERR = ACERR RETURN WORD C C ACERRS: -200 = ACCOUNT NOT FOUND C FMP ACERR (READF,READF IN ACFDA) C C SUBROUTINE ACGTU (IUSER,IGRP,IBUF,IOFST,IERR) 1 ,92067-16361 REV.1940 781024 DIMENSION IUSER(5),IGRP(5),IBUF(128),IRECU(2),IRECG(2) COMMON /ACOM1/NDCB(272) C C GET RECORD NUMBER OF ACCOUNT ENTRY C CALL ACFDA(IUSER,IGRP,IDIRN,IRECU,IRECG,IERR) IF(IERR.LT.0) RETURN IOFST=IRECU(2) C C READ THE ACCOUNT ENTRY INTO THE RETURN BUFFER C CALL READF(NDCB,IERR,IBUF,128,LEN,IRECU) RETURN END