Promodhss
35 pts. | Oct 23 2009 4:39AM GMT
Hi Bill Poulin,
Thanks for ur rly but i am not familiar in this. So can u plz give some examples.
MDratwa
285 pts. | Oct 23 2009 2:57PM GMT
You can create a flat file with 80 char length (FILEA). Create a program (COBOL or RPG) reading a database file (QCBLSRC) and writing to FILEA (record length 80) from field “SRCDTA”. Create a CL program with OVRDBF for QCBLSRC using yourlib/QCBLSRC mbrname, then call your program (COBOL or RPG), and DLTOVR QCBLSRC. The yourlib and mbrname can be a parm passed or hardcoded (for oneshot program).
MDratwa
285 pts. | Oct 23 2009 3:04PM GMT
I tried “CPYF FROMFILE(mylib/QCBLSRC) TOFILE(TRASH/SRCDTA) FROMMBR(CRTFLATFL) MBROPT(*ADD) FMTOPT(*cvtsrc)”, where “TRASH/SRCDTA” was created using “CRTPF FILE(TRASH/SRCDTA) RCDLEN(80)”. It looked like it copied correctly.






