MINICERN/packlib/kernlib/kerngen/ccgen/vaxsys/getenvf.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:29  mclareni
   6 * Kernlib
   7 *
   8 *
   9       SUBROUTINE GETENVF (CHSYM,CHTEXT)
  10
  11 C CERN PROGLIB# Z265    GETENVF         .VERSION KERNVAX  2.36  910306
  12 C ORIG. 31/07/90, JZ
  13 C MOD.  11/01/91, JZ, change name to GETENVF
  14
  15 C-    Simulate UNIX system call
  16
  17       COMMON /SLATE/ NTEXT, ISTAT, ISLATE(38)
  18       CHARACTER    CHSYM*(*), CHTEXT*(*)
  19
  20       NALL = 0
  21       NSYM = LNBLNK (CHSYM)
  22       IF (NSYM.LE.0)  THEN
  23           ISTAT = -7
  24           NALL  =  0
  25           GO TO 27
  26         ENDIF
  27
  28       IF (NSYM.NE.4)               GO TO 21
  29       IF (CHSYM(1:4).NE.'HOME')    GO TO 21
  30       ISTAT = LIB$SYS_TRNLOG ('SYS$LOGIN',NALL,CHTEXT,,,%VAL(0))
  31       GO TO 24
  32
  33    21 ISTAT = LIB$GET_SYMBOL (CHSYM(1:NSYM),CHTEXT,NALL)
  34    24 IF (ISTAT)  THEN
  35           ISTAT = 0
  36         ELSE
  37           NALL = 0
  38         ENDIF
  39
  40    27 CHTEXT(NALL+1:) = ' '
  41       NTEXT = NALL
  42       RETURN
  43       END