Re: Best way to convert from source PF to IFS source

I know TAATOOLs has a command:
Copy Source Files to IFS - TAA (CPYSRCFIFS)
(i had a problem with it if the source file was CCSID(65535)

i created a PDM option:
CPYTOSTMF FROMMBR('/qsys.lib/&l.lib/&f.file/&n.mbr')
TOSTMF('/path/to/source/&l/&f/&n.&t')
STMFOPT(*REPLACE) ENDLINFMT(*CRLF) STMFCODPAG(*PCASCII)

(i had a problems with both if the source file was CCSID(65535)
<snip error>
Message ID . . . . . . : CPDA08C Severity . . . . . . . : 40
Message . . . . : Database file CCSID is 65535.
Cause . . . . . : The CCSID (Coded Character Set Identifier) of database file /qsys.lib/mylib.lib/mySRC.file/firstmbr.mbr is 65535, which is not a valid value for successful completion of this command.
Recovery . . . : Specify another database file with a CCSID other than 65535, then submit the command again.
</snip error>

Jack Woehr via MIDRANGE-L wrote on 2/12/2024 12:03 PM:

Jim, this copies every member of JWOEHR/QCBLSRC into the current directory:

for i in `find /QSYS.LIB/JWOEHR.LIB/QCBLSRC.FILE | egrep '\.MBR$'`; do
system "CPYTOSTMF FROMMBR('$i') TOSTMF('`pwd`/`basename $i .MBR`.cblle')
ENDLINFMT(*LF) STMFCODPAG(*PCASCII)"; done

On Mon, Feb 12, 2024 at 9:59 AM Jim Oberholtzer <midrangel@xxxxxxxxxxxxxxxxx>
wrote:

We want to move all our source to the IFS.