ISREDIT MACRO NOPROCESS                                                       
  SET DEST = N67R8312                                                           
  FREE F(TODZW1 TODZW2)                                                         
  ALLOC F(TODZW1) NEW DELETE UNIT(SYSVIO) DATACLAS(FB133PS)                     
  ALLOC F(TODZW2) NEW DELETE UNIT(SYSVIO) DATACLAS(FB133PS)                     
                                                                                
  CONTROL ASIS NOMSG NOFLUSH                                                    
  ISPEXEC CONTROL ERRORS RETURN                                                 
  ISREDIT (DSN)     = DATASET                                                   
  ISREDIT (MBR)     = MEMBER                                                    
  ISREDIT (LRECL)   = LRECL                                                     
  ISREDIT PROCESS RANGE C                                                       
  SET     &RC01     = &LASTCC                                                   
  ISREDIT (FIRST)   = LINENUM  .ZFRANGE                                         
  ISREDIT (LAST)    = LINENUM  .ZLRANGE                                         
                                                                                
  IF  &RC01 = 0  OR &RC01 = 8  OR  &RC01 =  12  THEN +                          
      DO                                                                        
      OPENFILE TODZW1 OUTPUT                                                    
      SET  &COUNTER  = &FIRST                                                   
      DO WHILE  &COUNTER  LE &LAST                                              
         ISREDIT  (TODZW1)  = LINE &COUNTER                                     
         PUTFILE TODZW1                                                         
         SET  &COUNTER  =  &COUNTER + 1                                         
      END                                                                       
      CLOSFILE TODZW1                                                           
      END                                                                       
  CALL 'ZPE.T2713.LOAD(TODRCK)' '&DEST   '                                      
  FREE F(TODZW1 TODZW2)                                                         
  EXIT