Here's how I did it.
Went into STRPDM and printed out the source member via option 6.
QSYS/STRSEU SRCFILE(QGPL/QCLSRC) SRCMBR(ABC123) TYPE(*SAME) OPTION('6') TEXT('*BLANK')
Member ABC123 has been printed.
Ran a CPYSPLF as follows:
CPYSPLF FILE(QPSUPRTF) TOFILE(*TOSTMF) JOB(jobnum/user/name) SPLNBR(1) MBROPT(*ADD) TOSTMF('/temp/abc123.txt')
Spooled file copied to /temp/abc123.txt.
Then view the txt file - wrklnk '/temp' then abc123.txt
Code line #'s and dates are there.
Very Respectfully,
Michael Mayer
IBM I on Power System Admin.
IT Operations.
The Florida Bar
651 E. Jefferson St
Tallahassee, Florida 32399-2300
mmayer@xxxxxxxxxxxxxx
https://www.floridabar.org
Office: 850.561.5761
Cell: 518.641.8906
------------------------------
message: 7
date: Mon, 26 Apr 2021 14:36:22 -0400
from: a4g atl <a4ginatl2@xxxxxxxxx>
subject: Using CPYTOIMPF to copy a source member to the IFS does not
copy fields SRCSEQ and SRCDAT
Thought this would be simple....
How do I copy a source member to the IFS or a network drive?
I tried using CPYTOIMPF and CPYTOSTMF and get the data but the 2 fields SRSEQ and SRCDAT (sequence number and date) do not get copied to the IFS.
What am I doing wrong?
TIA, Darryl Freinkel.
________________________________
Please note: Florida has very broad public records laws. Many written communications to or from The Florida Bar regarding Bar business may be considered public records, which must be made available to anyone upon request. Your e-mail communications may therefore be subject to public disclosure.
midrange.com
