#ibmi #rpgle #as400 IBM i, AS400 Tutorial, iSeries, System i -Read all source member of source physical file in RPG || Overriding all the source member -write PF. override source physical file using EXTFILE override source member using EXTMBR read all the source member of QRPGLESRC source file. ______________________________________________________________ Source for output fileSOURCEOUT: --------------------------------------------------------- A R RSRCOUT A SRCMBR 10A A SRCRRN 5P 0 A SRCSEQ 6P 2 A SRCDAT 6P 0 A SRCDTA 100A PGM11: ------------ F* File Specification FsourceIn IF F 112 disk F EXTFILE('IBMICLASS1/QRPGLESRC') F EXTMBR('*ALL') F INFDS(FileInfo) FSourceOut O E disk D FileInfo DS D Member 129 138 D Rrn 397 400B 0 ISourceIn NS I 1 6 2srcseq1 I 7 12 0srcdat1 I 13 112 srcdta1 /Free Read sourceIn; Dow Not%EOF(SourceIn); SrcMbr = Member; SrcRRN = RRN; srcseq = srcseq1; srcdat = srcdat1; srcdta = srcdta1; Write Rsrcout; Read sourceIn; ENDDO; *INLR = *ON; /End-Free ______________________________________________________________________________ Important note: _______________ Please change the library name and source physical file name as per your need in EXTFILE keyword.