JCL 清理 LOGREC 日志

当系统 IPL 开机时提示 IFB081I LOGREC DATA SET IS FULL 代表日志已经满了，要清理一下

     *10.00.35          *IFB081I LOGREC DATA SET IS FULL,10.00.35,                  
     *        DSN=SYS1.LOGREC                                                       
    - 10.02.21 STC00004  VTAMAP99I Execution completed.                             
    - 10.02.21 STC00027  +DFHWB1007 CICS Initializing CICS Web environment.         
    - 10.02.21 STC00004  IEF404I VTAMDB - ENDED - TIME=10.02.21                     
    - 10.02.22 STC00037  CSQI049I %CSQ7 Page set 0 has media recovery               
    - RBA=0000001F2B28, checkpoint RBA=0000001F2B28                                 
    - 10.02.22 STC00037  CSQI049I %CSQ7 Page set 1 has media recovery               
    - RBA=0000001F2B28, checkpoint RBA=0000001F2B28                                 
    - 10.02.22 STC00037  CSQI049I %CSQ7 Page set 2 has media recovery               

先在 =3.4 查一下 SYS1.LOGREC 在那个 VOLUME 盘里面，例如: ZASYS1

  Menu  Options  View  Utilities  Compilers  Help                              
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
DSLIST - Data Sets Matching SYS1.LOGREC                             Row 1 of 1 
Command ===>                                                  Scroll ===> CSR  
                                                                               
Command - Enter "/" to select action                  Message           Volume 
-------------------------------------------------------------------------------
         SYS1.LOGREC                                                    ZASYS1 
***************************** End of Data Set list ****************************

参考下面 JCL 来清理

//JC$RSTLG JOB ,'RST LOGREC',CLASS=C,MSGCLASS=S,MSGLEVEL=(1,1),                 
//             REGION=4096K,TIME=1440,COND=((4,LT)),NOTIFY=&SYSUID              
// !!! PLS DOUBLE CHECK AND REMARK THIS LINE TO SUBMIT                          
//* RESET LOGREC                                                                
//IFCDIP01 EXEC PGM=IFCDIP00                                                    
//SERERDS  DD DSN=SYS1.LOGREC,DISP=OLD,                                         
//            VOL=SER=ZASYS1,                                                   
//            UNIT=3390                                                         
//*                                                                             

重新 IPL 时就不会提示了