Search Site | Contact Details | FAQ

ADAS Subroutine e9titl

C
      SUBROUTINE E9TITL( IBSEL  , DSFULL ,
     &                   CDONOR , CRECVR ,
     &                   CFSTAT , CTYPE ,
     &                   TITLX
     &                 )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: E9TITL *********************
C
C  PURPOSE:  TO CREATE THE DESCRIPTIVE TITLE FOR SELECTED DATA-BLOCK.
C
C  CALLING PROGRAM: ADAS509/SSCX
C
C  SUBROUTINE:
C
C  INPUT : (I*4)  IBSEL    = SELECTED DATA-BLOCK: INDEX
C  INPUT : (C*80) DSFULL   = FULL MVS INPUT DATA SET NAME
C
C  INPUT : (C*9)  CDONOR   = SELECTED DATA-BLOCK: DONOR
C                                                 IDENTIFICATION.
C  INPUT : (C*9)  CRECVR   = SELECTED DATA-BLOCK: RECEIVER
C                                                 IDENTIFICATION.
C
C  INPUT : (C*10) CFSTAT   = SELECTED DATA-BLOCK: FINAL STATE
C                                                 SPECIFICATION
C  INPUT : (C*2)  CTYPE    = SELECTED DATA-BLOCK: CROSS. SECT. TYPE
C
C  OUTPUT: (C*120) TITLX    = SELECTED DATA-BLOCK: DESCRIPTIVE TITLE
C
C          (C*2)  C2       = GENERAL USE 2 BYTE  CHARACTER  STRING
C	   (I*4)  POS_NOW  = CURRENT POSITION IN TITLE STRING
C	   (I*4)  LEN_NAME = LENGTH OF FILENAME
C          (I*4)  IFIRST   = POSITION OF FIRST CHARACTER IN FILENAME
C          (I*4)  ILAST    = POSITION OF LAST CHARACTER IN FILENAME
C
C ROUTINES: 
C          XXSLEN          = UTILITY ROUTINE WHICH FINDS FIRST AND LAST
C                            NON-BLANK CHARACTERS IN A STRING.
C
C AUTHOR:  H. P. SUMMERS
C          JA8.08
C          TEL. 0141-553-4196
C
C DATE:    11/03/96
C
C UNIX-IDL PORT: H.P.SUMMERS
C
C VERSION: 1.1				DATE: 30-04-96
C MODIFIED: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC)
C	    - PUT UNDER SCCS CONTROL
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      CHARACTER*9         CDONOR
      CHARACTER*10        CFSTAT
      CHARACTER*9         CRECVR
      CHARACTER*2         CTYPE
      CHARACTER*80        DSFULL
      CHARACTER*120       TITLX
      INTEGER             IBSEL
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk