FTN4
      PROGRAM TMPGN(3),92903-16451 REV.1913  781109 
C 
C 
C     NAME: TMPGN 
C     SOURCE: &TMPGN    92903-18451 
C     RELOC:  %TMPGN    92903-16451 
C 
C     PGMR:    DANIEL POT / FRANCOIS GAULLIER   HPG 
C 
C 
C     **************************************************************
C     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
C     **************************************************************
C 
C 
C     **************************************************************
C     *                                                            *
C     *          THIS IS THE MAIN PROGRAM OF  TMPGN                *
C     *       (TRANSACTION  MONITOR  PROGRAM  GENERATOR)           *
C     *                                                            *
C     *     THIS PROGRAM HAS 6 SEGMENTS  (TMPG0 - TMPG1 - TMPG2 -  *
C     *                                   TMPG3 - TMPG4 - TMPG5)   *
C     *                                                            *
C     **************************************************************
C 
C 
C 
C     **************************************************************
C     *                                                            *
C     *     RU,TMPGN [,P1 [,P2 [,P3 [,P4 ]]]]                      *
C     *                                                            *
C     *        P1   - NOT USED                                     *
C     *        P2   - LISTING LU, DEFAULTED TO CRT                 *
C     *        P3   - LOADER OPTION:                               *
C     *               = 0 --->  LBRP                               *
C     *               = 1 --->  LB                                 *
C     *               = 2 --->  NO LOADING                         *
C     *               = 3 --->  NO CREATION, NO LOADING            *
C     *        P4   - SEARCH %TMSLB FLAG:                          *
C     *               = 0 --->  DO NOT SEARCH FOR  %TMSLB          *
C     *               = 1 --->  SEARCH FOR %TMSLB                  *
C     *        P5   - TMP ID (TMP/TMPD)                            *
C     *               = 0 --->  TMP1   (SYSTEM COMMON)             *
C     *               = 1 --->  TMP2   (CLASS I/O)                 *
C     *                                                            *
C     **************************************************************
C 
C-----LABELED COMMON # 1  GENERAL INFORMATION 
C 
      COMMON /TMGC1/LU,LUPRT,LUOUT,ISTYP,IPARAM(5)
C 
C-----LABELED COMMON # 2  FLAGS 
C 
      COMMON /TMGC2/ITMFL,IRQFLG(30),IMOTR(9),IVASC0(9) 
C 
C-----LABELED COMMON # 3  BUFFER AREA 
C 
      COMMON /TMGC3/IREFC 
C 
C-----LABELED COMMON # 4  BUFFER USED IN CREATION PHASE & ERROR FLAG
C 
      COMMON /TMGC4/IERFL 
C 
C     RETREIVE SCHEDULE PROGRAM PARAMETERS
C 
      CALL RMPAR(IPARAM)
C 
C     RETREIVE TERMINAL LU
C 
      LU=LOGLU(I) 
C-----LOCK THE CRT TERMINAL TO PROTECT THE SCREEN 
      CALL LURQ(1,LU,1) 
      LUPRT=LU
      IF(IPARAM(2) .NE. 0)  LUPRT=IPARAM(2) 
C-----SET UP LOADER PARAMETER 
      J=3 
      K=IPARAM(3) 
      IF(K.EQ.1)  J=2 
      IF(K.EQ.2)  J=0 
      IF(K.EQ.3)  J=1 
      IMOTR(2)=J
C-----SET SEARCH %TMSLB FLAG
C     IF(IPARAM(4) .EQ. 0)  ITMFL=-1
C-----SET TMP/TMPD FLAG 
      IF(IPARAM(5) .NE. 0)  IMOTR(7)=2HP2 
C-----CALL KEY-MAP SCREEN (SCREEN # 8)
      CALL TMGSC(3,8) 
C 
      END 
      BLOCK DATA TMGLC,92903-16451 REV.1913  781107 
C 
C-----LABELED COMMON # 1  GENERAL INFORMATION 
C 
      COMMON /TMGC1/LU,LUPRT,LUOUT,ISYTP,IPARAM(5)
C 
C-----LABELED COMMON # 2  FLAGS 
C 
      COMMON /TMGC2/ITMFL,IRQFLG(30),IMOTR(9),IVASC0(9) 
C 
C-----LABELED COMMON # 3  BUFFER AREA 
C 
      COMMON /TMGC3/IREFC,ILUGH,INTMS,ILPRG,IDECL,ILGMX,NBPRO 
     .             ,NCRTH(2540) 
C 
C-----LABELED COMMON # 4  BUFFER USED IN CREATION PHASE & ERROR FLAG
C                       OR I/O BUFFER USED IN THE INTERACTIVE DEFINITION
C                       PHASE.
C 
      COMMON /TMGC4/IERFL,IERNB,IERTN,IERMS(7),IRLOC(70),ITRSF(20)
C 
C-----INITIALIZE LABELED COMMON:
C 
      DATA ISYTP/0/ 
C 
      DATA ITMFL/0/,IRQFLG/30*0/,IMOTR/0,0,1,0,0,2HTM,2HP1,0,0/ 
     .    ,IVASC0/9*0/
C 
      DATA IREFC/100/,ILUGH/128/,INTMS/62/,ILPRG/118/,IDECL/4098/ 
     .    ,ILGMX/1967/,NBPRO/0/ 
C 
      DATA IERFL/0/,IERNB/0/,IERTN/0/,IERMS/7*2H  / 
     .    ,IRLOC/70*0/,ITRSF/20*2H  / 
C 
      END 
      END$
                                                                                                                                                    