IBM i, AS400 Tutorial, iSeries, System i-Read all source member of source PF in RPG-override-writePF
Apply and get any of the following Credit cards:
Tata Neu HDFC Bank Credit Card https://bitli.in/ttF27x7
SBI cashback Credit Card https://bitli.in/dyRARm3
HSBC Live+ Credit Card https://bitli.in/qltAerg
IDFC First WOW Credit Card https://bitli.in/oscQvGh
HDFC Shoppers Stop Credit Card https://bitli.in/yRQ4mhj
SBI BPCL Credit Card https://bitli.in/4SynU9h
AU ALTURA Credit Card https://bitli.in/MnWekVq
AU ALTURA PLUS Credit Card https://bitli.in/92xHaNN
Axis Airtel Credit Card https://bitli.in/yLzz96F
IDFC First Credit Card https://bitli.in/p9t4rwy
IndusInd Legend Credit Card https://bitli.in/kKakvhm
IRCTC HDFC Bank Credit Card https://bitli.in/RPzj4Gi
Axis Flipkart Credit Card https://bitli.in/nlIPLG2
SBI Simply Click Credit Card https://bitli.in/IGjEZo9
HDFC Bank Credit Card https://bitli.in/jJ9daBB
Axis Indian Oil Rupay Credit Card https://bitli.in/1Z8o9oo
AU SWIPE-UP PLATFORM Credit Card https://bitli.in/wsjGvu5
Swiggy HDFC Bank Credit Card https://bitli.in/zSMXmZ6
Axis Magnus Credit Card https://bitli.in/uBCxYy7
AU LIT Credit Card https://bitli.in/yd83btW
IndusInd Platinum Credit Card https://bitli.in/nz057ls
IndusInds Rupay Platinum Credit Card https://bitli.in/fGxjymZ
Axis My Zone Credit Card https://bitli.in/LtGmH8l
Axis Indian Oil Credit Card https://bitli.in/mLdpL3D
ICICI Bank Credit Card https://bitli.in/6ZwTutS Get 20% OFF on purchasing Web Hosting with Hostinger through this link https://hostinger.in?REFERRALCODE=1FA... #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.