BoTTom |
     H dftactgrp(*no) option(*NoDebugIO : *SrcStmt)
 
     FAF4OUTP1  o    e             Disk
 
     FAF4MBRp1  if   e             Disk
 
      /free
 
           read AF4MBRP1;
 
           dow not %eof(AF4MBRP1);
 
              datout = %date(datref : *CYMD);
              Write AF4OUTF1;
 
              // read next record
              read AF4MBRP1;
           enddo;
 
           *inlr = *On;
      /end-free




©AF400