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 |