//ZAPUPDTE JOB
//LKED     EXEC PGM=IEWL,REGION=1024K,PARM='(NCAL,XREF,LIST)'
//SYSLIB   DD   DSN=SYS1.LINKLIB,DISP=SHR
//SYSLIN   DD   DDNAME=SYSIN
//SYSLMOD  DD   DSN=your.target.loadlib,DISP=SHR
//SYSUT1   DD   DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(CYL,(29,1))
//SYSPRINT DD   SYSOUT=*,DCB=(RECFM=FB,LRECL=121,BLKSIZE=1210)
//SYSIN    DD   *
 INCLUDE SYSLIB(IEBUPDTE)
 EXPAND IEBUPLOG(150)
 ENTRY IEBUPDTE
 NAME IEBUPDTE(R)
//STEP     EXEC PGM=AMASPZAP
//SYSLIB   DD   DSN=your.target.loadlib,DISP=SHR
//SYSPRINT DD   SYSOUT=*
  NAME  IEBUPDTE IEBUPLOG
*
** DISPLAY DATE AND TIME IN HEADER OF IEBUPDTE LISTINGS
*
 VER 023A D209,C30D,2396
 VER 110C 000000000000000000000000000000000000000000
 REP 023A 47F0,8106,0700    B    PATCHAREA
 REP 110C D209,C30D,2396    MVC  LOGOUTAR+20(10),NEWMASTR REPLACED INST
 REP 1112 9002,817E         STM  R0,R2,D2      SAVE REGS
 REP 1116 4110,0002      I1 LA   R1,2          R1=PARM FOR TIME SVC
 REP 111A 0A0B              SVC  11            ISSUE TIME SVC
 REP 111C 9001,818A         STM  R0,R1,DATE    SAVE TIME & DATE
 REP 1120 960F,8191         OI   TIME+3,X'0F'  SET SIGN OF DATE
 REP 1124 F342,8178,818F    UNPK D1(5),D4+1(3) CONV. DATE TO EBCDIC
 REP 112A D203,C2F5,8194    MVC  LOGOUTAR+45(4),D5 MOVE 'DATE' TO LINE
 REP 1130 D204,C2FA,8178    MVC  LOGOUTAR+50(5),D1 MOVE DATE TO LINE
 REP 1136 D203,C31D,8198    MVC  LOGOUTAR+59(4),D6 MOVE 'TIME' TO LINE
 REP 113C 920F,818D         MVI  D3+3,X'0F'    MAKE SECONDS PACKED
 REP 1140 F321,8178,818C    UNPK D1(3),D3+2(2) CONV SECONDS TO EBCDIC
 REP 1146 D201,C328,8178    MVC  LOGOUTAR+70(2),D1 MOVE SECONDS TO LINE
 REP 114C 927A,C327         MVI  LOGOUTAR+69,C':' MAKE IT PRETTY
 REP 1150 920F,818C         MVI  D3+2,X'0F'    MAKE MINUTES PACKED
 REP 1154 F321,8178,818B    UNPK D1(3),D3+1(2) CONV. MINUTES TO EBCDIC
 REP 115A D201,C325,8178    MVC  LOGOUTAR+67(2),D1 MOVE MINUTES TO LINE
 REP 1160 927A,C324         MVI  LOGOUTAR+66,C':' MAKE IT PRETTY
 REP 1164 920F,818B         MVI  D3+1,X'0F'    MAKE HOURS PACKED
 REP 1168 F321,8178,818A    UNPK D1(3),D3(2)   CONV. HOURS TO EBCDIC
 REP 116E D201,C322,8178    MVC  LOGOUTAR+64(2),D1 MOVE HOURS TO LINE
 REP 1174 9802,817E         LM   R0,R2,D2      RESTORE REGS
 REP 1178 47F0,2240         B    HDRPRINT+30   RETURN TO MAIN CODE
***********************************************************************
***  DATA AREAS                                                     ***
***********************************************************************
*    117E           WORK    DS   6C            WORK AREA
*    1184           SAVE    DS   3F            REGISTER SAVE AREA
*    1190           TIME    DS   F             TIME AREA
*    1194           DATE    DS   F             DATE AREA
 REP 119A C4C1E3C5       D5 DC   C'DATE'
 REP 119E E3C9D4C5       D6 DC   C'TIME'
***********************************************************************
***  END OF DATA AREAS                                              ***
***********************************************************************
 DUMPT IEBUPDTE IEBUPLOG
//