FTN4
      SUBROUTINE GTPRN(LU,LU1,TAPE,ROOT,LVLWD,P5,STRING,LENGTH,IERR)
     +,92069-16211 REV.2013 790203
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-18211
C     RELOC:     92069-18211
C 
C 
C****************************************************************:
C 
C 
C****************************************************** 
C 
C GTPRN IS USED BY DBSTR AND DBULD TO GET THE RUN TIME
C PARAMETERS. THE ONLY DIFFERENCE BETWEEN GTPRN AND GTPRM 
C IS IN HOW THEY PROMPT FOR THE FIFTH PARAMETER. (2-1-79) 
C GTPRN PASSES THE STORAGE PARAMETER INFO INTO CKP50 SO THAT
C CKP50 CAN ASK THE PROPER QUESTIONS ABOUT WHAT TO DO AT END
C OF TAPE OR END OF FILE, AND WHETHER TO OVERWRITE THE STORAGE
C FILE IF THE SAVE IS TO A FILE.
C 
C GTPRN RETURNS 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 LU,LU1(1),TAPE(1),ROOT(1),LVLWD(1),P5(1)
      INTEGER STRING(1),LENGTH,IERR 
      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 CKP50(LU1,P5,TAPE,IERR)
      IF (IERR .LT. 0) RETURN 
C***********************************************************
C RETURN AND END
C 
      IERR=0
      RETURN
      END 
                                                                                                    