FTN4
      SUBROUTINE GTPRM(LU,LU1,TAPE,ROOT,LVLWD,P5,STRING,LENGTH,IERR)
     +,92069-16185 REV.2013 790313
      INTEGER LU,LU1(1),TAPE(1),ROOT(1),LVLWD(1),P5(1)
      INTEGER STRING(1),LENGTH,IERR 
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 WITHOUT THE PRIOR
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18185
C     RELOC:     92069-16185
C 
C 
C****************************************************************:
C 
C 
C****************************************************** 
C SUBR TO RETURN FIVE PARAMETERS TO THE CALLING PROCEDURE,
C ONE EACH IN EACH OF ITS FORMAL PARAMETER POSITIONS. IT ASSUMES
C THAT EACH ACTUAL PARAMETER IS A 6-WORD ARRAY AND RETURNS THE
C PARAMETER IN THE FOLLOWING FORMAT:
C 1. INTEGER VALUE OR FIRST TWO CHARACTERS
C 2. 0 OR SECOND TWO CHARACTERS.
C 3. 0 OR THIRD TWO CHARACTERS. 
C 4. TYPE OF PARAMETER (0=NONE,1=INTEGER,3=NAMR)
C 5. INTEGER SECURITY CODE, IF NAMR PARAMETER.
C 6. INTEGER CARTRIDGE REFERENCE NUMBER, IF NAMR PARAMETER. 
C********************************************************** 
      INTEGER DFLT
C***********************************************************
C GET THE CONSOLE LU INTO INTO LU1. 
C SUBROUTINE PRAM RETURNS SUCCESSIVE PARAMETERS ACCORDING TO
C THE FORMAT DESCRIBED ABOVE. 
C USE THE SCHEDULING LU TO LOG ERROR MESSAGES HERE. 
      ISTRC=1 
      LNGTH2=2*LENGTH 
      CALL PRAM(LU,STRING,LNGTH2,ISTRC,LU1) 
      DFLT=LU 
      CALL CKLU1(LU,LU1,DFLT,IERR)
      IF (IERR .LT. 0) RETURN 
C*************************************************************
C GET THE LU OR NAMR OF THE BACKUP DEVICE.
C FROM HERE ON, USE LU1 AS THE CONSOLE LU.
      CALL PRAM(LU1,STRING,LNGTH2,ISTRC,TAPE) 
      DFLT=8
      CALL CKLU8(LU1,TAPE,DFLT,IERR)
      IF (IERR .LT. 0) RETURN 
C*************************************************************
C GET THE ROOT FILE NAMR. 
      CALL PRAM(LU1,STRING,LNGTH2,ISTRC,ROOT) 
      CALL CKROO(LU1,ROOT,IERR) 
      IF (IERR .LT. 0) RETURN 
C************************************************************ 
C GET THE LEVEL WORD. 
      CALL PRAM(LU1,STRING,LNGTH2,ISTRC,LVLWD)
      CALL CKLVL(LU1,LVLWD,IERR)
      IF (IERR .LT. 0) RETURN 
C************************************************************ 
C GET THE FIFTH PARAMETER 
      CALL PRAM(LU1,STRING,LNGTH2,ISTRC,P5) 
      CALL CKP51(LU1,P5,IERR) 
      IF (IERR .LT. 0) RETURN 
C***********************************************************
C RETURN AND END
C 
      IERR=0
      RETURN
      END 
                                                                                                                                                                                                                                                              