FTN4
      SUBROUTINE PHEAD(LU,IPAGE,IDATE), 92080-1X586 REV.2026  800411
C 
C     SOURCE CODE 92080-18586 
C 
C 
C     PUT INTO TGPLB FOR REV 2026   800220
C 
C************************************************************************ 
C*                                                                      * 
C*          THIS SUBROUTINE OUTPUTS PAGE HEADERS FOR THE TRANSACTION    * 
C*     GENERATION LISTINGS:                                             * 
C*                                                                      * 
C*          LU    - LOGICAL UNIT NO. OF THE OUTPUT DEVICE               * 
C*          IPAGE - CURRENT PAGE NO., THIS PARAMETER IS AUTOMATICALLY   * 
C*                  INCREMENTED TO THE NEXT PAGE UPON RETURN TO THE     * 
C*                  CALLING PROGRAM                                     * 
C*          IDATE - CURRENT DATE                                        * 
C*                                                                      * 
C************************************************************************ 
C 
C 
C 
      DIMENSION IHEAD(24),IDATE(15) 
      DATA IHEAD/2H P,2HAG,2HE ,2H00,2H01,2H  ,2H D,2HAT,2HAC 
     *          ,2HAP,2H/1,2H00,2H0 ,2H- ,2HHP,2H92,2H08,2H0A 
     *          ,2H R,2HEV,2H 2,2H02,2H6 ,2H  / 
C 
         WRITE(LU,1004) 
         CALL JASC(IPAGE,IHEAD,-7,4)
         WRITE(LU,1007)IHEAD,IDATE
         WRITE(LU,2000) 
         WRITE(LU,2024) 
         IPAGE=IPAGE+1
1004  FORMAT("1") 
1007  FORMAT(" ",24A2,15A2) 
2000  FORMAT(/,20X,"TRANSACTION SPECIFICATION GENERATOR LIST")
2024  FORMAT(19X,42"*",//)
      RETURN
      END 
      END$
                                                                                                                            