Thanks, but it doesn't seem to work.  Records that are over 32752 bytes are truncated.

FMNBB298 10 record(s) copied: 6 truncated: 0 fields truncated

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On 8/31/21 11:50 AM, Sri h Kolusu wrote:
Is there an IBM Utility that will do this?
Preferrable with FILEDATA=TEXT processing mode on the output file
Kirk,

If your shop has IBM File-Manager then you can use the following JCL

//STEP0100 EXEC PGM=FILEMGR
//SYSPRINT DD SYSOUT=*
//DDIN     DD DISP=SHR,DSN=Your.MVS.LRECLX.Dataset
//DDOUT    DD PATH='/yourdir/lreclx.copy',
//            PATHMODE=(SIRWXU,SIRWXG,SIRWXO),
//            PATHOPTS=(OWRONLY,OCREAT,OEXCL),
//            PATHDISP=(KEEP,DELETE),FILEDATA=TEXT
//SYSIN    DD *
$$FILEM DSC
/*

Thanks,
Kolusu

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to