//FFCPUTS2 JOB CLASS=S,MSGCLASS=W,NOTIFY=FSUPP17,TIME=1440                      
//A       EXEC PGM=IEV90,PARM=OBJECT,REGION=2000K                               
//SYSIN    DD  *                                                                
         CSECT                                                                  
         DC    C' ++ << ëBë‹€~ëBë‹€~€~á.á.á.á.>>'                             
         DC    C' __ KIMU_&SYSDATE &SYSTIME ++ '                                
SLEEP    CSECT                                                                  
         PRINT NOGEN                                                            
         SAVE  (14,12),T,*                                                      
         BALR  R03,0                                                            
         USING *,R03                       BASE REG. R03                        
         ST    R13,SAVEAREA+4                                                   
         LR    R12,R13                                                          
         LA    R13,SAVEAREA                                                     
         ST    R13,8(R12)                                                       
*                                                                               
         L     R01,0(R01)                                                       
         LH    R12,0(R01)                                                       
         LA    R01,2(R01)                                                       
         BCTR  R12,0                                                            
         STC   R12,*+5                                                          
         MVC   PARMAREA(0),0(R01)                                               
         MVC   MESSAGE+20(8),PARMAREA                                           
         LA    R01,WTOAREA                                                      
         SVC   35                        * WTO MESSAGE                          
         LR    R12,R01                   *                                      
*                                                                               
         MVC   WAITXX(2),PARMAREA                                               
         MVC   WAITXX+2(2),PARMAREA+3                                           
         MVC   WAITXX+4(2),PARMAREA+6                                           
         STIMER WAIT,DINTVL=WAITXX       * SLEEP                                
*        DOM   MSG=(R12)                 * DELETE OPERATOR MESSAGE              
         L     R13,SAVEAREA+4                                                   
         RETURN (14,12),RC=0                                                    
*                                                                               
         DS    0F                                                               
SAVEAREA DS    18F                                                              
         DS    0D                                                               
WAITXX   DC    CL8'00000000'                                                    
PARMAREA DC    XL100'00'                                                        
WTOAREA  DS    0F                                                               
         DC    AL2(WTOLEN)                                                      
         DC    B'0000000000000000'                                              
MESSAGE  DC    CL60'###  GOOD NIGHT !   99:99:99 TIMES ...   ###'               
WTOLEN   EQU   *-WTOAREA                                                        
         LTORG                                                                  
R00      EQU   00                                                               
R01      EQU   01                                                               
R02      EQU   02                                                               
R03      EQU   03                                                               
R04      EQU   04                                                               
R05      EQU   05                                                               
R06      EQU   06                                                               
R07      EQU   07                                                               
R08      EQU   08                                                               
R09      EQU   09                                                               
R10      EQU   10                                                               
R11      EQU   11                                                               
R12      EQU   12                                                               
R13      EQU   13                                                               
R14      EQU   14                                                               
R15      EQU   15                                                               
         END   SLEEP                                                            
/*                                                                              
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                         
//         DD  DSN=SYS1.AMODGEN,DISP=SHR                                        
//         DD  DSN=SYS1.MODGEN,DISP=SHR                                         
//SYSUT1   DD  UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)),DSN=&SYSUT1           
//SYSPUNCH DD  DUMMY                                                            
//SYSPRINT DD  SYSOUT=*,DCB=(BLKSIZE=3509),                                     
//         UNIT=(,SEP=(SYSUT1,SYSPUNCH))                                        
//SYSLIN   DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)),                     
//         DCB=(BLKSIZE=400),DSN=&&LOADSET                                      
//L       EXEC PGM=IEWL,PARM='MAP,LET,LIST,NCAL',                               
//         REGION=1M,COND=(8,LT,A)                                              
//SYSLIN   DD  DSN=&&LOADSET,DISP=(OLD,DELETE)                                  
//         DD  DDNAME=SYSIN                                                     
//SYSLMOD  DD  DISP=(,PASS),UNIT=SYSDA,                                         
//         SPACE=(CYL,(2,1,2)),DSN=&GOSET(GO)                                   
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(3,2)),DSN=&SYSUT1                         
//SYSPRINT DD  SYSOUT=*,DCB=(RECFM=FB,BLKSIZE=3509)                             
//G       EXEC  PGM=*.L.SYSLMOD,COND=((8,LT,A),(4,LT,L)),                       
//         PARM='01:00:00'                                                      
//DUM     EXEC  PGM=IEFBR14