home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / os / vms / 19469 < prev    next >
Encoding:
Internet Message Format  |  1992-12-17  |  1.5 KB
  1. Path: sparky!uunet!cs.utexas.edu!uwm.edu!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!ucbvax!KOPC.HHS.DK!ARNE
  2. From: ARNE@KOPC.HHS.DK (Arne Vajhxj)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: SYS$FIND_HELD
  5. Message-ID: <01GSF1SUFQ2Q8WW983@kopc.hhs.dk>
  6. Date: 17 Dec 92 08:39:11 GMT
  7. Sender: usenet@ucbvax.BERKELEY.EDU
  8. Organization: The Internet
  9. Lines: 37
  10.  
  11. > I am trying to determine the identifier(s) held by a user using the
  12. > SYS$FIND_HELD system service but can't seem to get it working properly.
  13. > 
  14. > Would anyone happen to have an example coded in BASIC (ugh!)?
  15. > I believe it involves the use of the SYS$ASCTOID and SYS$IDTOASC
  16. > system services as well.
  17.  
  18. Here is a small example with SYS$ASCTOID,SYS$FIND_HELD and SYS$IDTOASC
  19. in FORTRAN (we do not have basic !).
  20.  
  21.       PROGRAM Z
  22.       INCLUDE '($SSDEF)'
  23.       INTEGER*4 UNLEN,STAT,UNID(2),ID,CNTX,L
  24.       CHARACTER*12 UN,S
  25.       INTEGER*4 SYS$ASCTOID,SYS$FIND_HELD,SYS$IDTOASC
  26.       WRITE(6,'(1X,A,$)') 'Enter username> '
  27.       READ(5,'(Q,A)') UNLEN,UN
  28.       STAT=SYS$ASCTOID(UN,UNID(1),)
  29.       UNID(2)=0
  30.       CNTX=0
  31. 100   STAT=SYS$FIND_HELD(UNID,ID,,CNTX)
  32.       IF(STAT.EQ.SS$_NORMAL) THEN
  33.         STAT=SYS$IDTOASC(%VAL(ID),L,S,,,)
  34.         WRITE(*,*) S(1:L)
  35.         GOTO 100
  36.       ENDIF
  37.       END
  38.  
  39. Hope it helps !
  40.  
  41.                                                           Arne
  42.  
  43. Arne Vajhxj                             local DECNET:  KO::ARNE
  44. Computer Department                     PSI:           PSI%23831001304030::ARNE
  45. Business School of Southern Denmark     Internet:      ARNE@KO.HHS.DK
  46.  
  47.  
  48.