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$