FTN 
      SUBROUTINE GTPRM(IRSLT,ISTNG,ICNT,IPTR,ILU,IDCB,CRFLG,IERR) 
     &   ,92069-16061 REV.1912 790129 
      INTEGER IRSLT(10),ISTNG,ICNT,IPTR,ILU,IDCB(144),IERR
      LOGICAL CRFLG 
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED 
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH OUT THE PRIOR 
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18094
C     RELOC:     92069-16060
C 
C 
C****************************************************************:
C 
C 
C 
C 
C 
C ABSTRACT: 
C 
C GTPRM GETS A PARAMETER AND OPENS IT WHEN IT IS A FILE 
C THE FILE IS OPENED SHARED EXCEPT WHEN THE CREATE FLAG IS TRUE.
C 
C 
C CALLING SEQUENCE: 
C 
C     CALL GTPRM(IRSLT,ISTNG,ICNT,IPTR,ILU,IDCB,CRFLG,IERR) 
C 
C       WHERE:
C 
C          IRSLT
C          IS A 10 WORD BUFFER
C 
C          ISTNG
C          IS THE PARAMETER STRING AS RETURNED FROM "GETST" 
C 
C          ICNT 
C          IS THE CHARACTER COUNT OF THE STRING 
C 
C          IPTR 
C          IS THE CURRENT POSITION IN THE STRING
C 
C          ILU
C          IS THE WORD IN WHICH THE LU IS RETURNED
C             ILU = -1 WHEN THE PARAMETER IS A FILE 
C 
C          IDCB 
C          IS THE DCB USED TO OPEN THE FILE 
C 
C          CRFLG
C          IS A FLAG INDICATING AUTO-CREATE, IE CREATE THE FILE 
C          IF IT DOES NOT EXIST.
C 
C          IERR 
C          IS THE FMP ERROR INDICATOR 
C 
C 
C 
C 
C 
C 
C 
C 
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
C NO COMMON 
C 
C 
C 
C 
C 
C 
C 
C BEGIN 
C 
      IERR = 0
      ILU = 0 
      CALL NAMR(IRSLT,ISTNG,ICNT,IPTR)
      IFLAG = IRSLT(4)
      IF(IFLAG .EQ. 0) GOTO 30
      IF(IAND(IFLAG,3B) .EQ. 3) GOTO 20 
C 
C PARAMETER IS AN LU
C 
      IF(IRSLT .LT. 0) IERR = -200
      IF(IRSLT .GT. 0)  ILU = IRSLT 
      GOTO 30 
C 
C PARAMETER IS A FILE 
C 
20    CONTINUE
      ILU = -1
C 
C OPEN THE FILE WITH SHARED ACCESS UNLESS THE CREATE FLAG IS TRUE 
C 
      IMODE = 1 
      IF(CRFLG) IMODE = 0 
      CALL OPEN(IDCB,IERR,IRSLT,0,IRSLT(5),IRSLT(6) ) 
      IF(IERR .GE. 0) GOTO 30 
C 
C IS THIS AN AUTO-CREATE? 
C 
      IF(IERR .NE. -6) GOTO 30
      IF( .NOT. CRFLG) GOTO 30
      CALL ECREA(IDCB,IERR,IRSLT,DBLEI(10),4,IRSLT(5),IRSLT(6) )
C 
C 
C RETURN
C 
30    CONTINUE
      RETURN
      END 
                                                                                                                                      