I use below method.. Method adopted
1. Terse the dataset //STEP1 EXEC PGM=TRSMAIN,PARM='PACK' //SYSPRINT DD SYSOUT=* //INFILE DD DISP=SHR,DSN=XXXX.INFILE //OUTFILE DD DSN=XXXX.TERSE, // DISP=(,CATLG,DELETE),UNIT=3390, // SPACE=(CYL,(2,5),RLSE), // DCB=(RECFM=FB,LRECL=1024,BLKSIZE=0) //SYSIN DD DUMMY 2. Transfer the dataset to PC as a Binary transfer.(Via ind$file or ftp) 3. Upload the dataset in to the dataset which is having RECFM=FB,LRECL=1024,BLKSIZE=0 4. Use Unterse job to unterse //STEP1 EXEC PGM=TRSMAIN,PARM='UNPACK' //SYSPRINT DD SYSOUT=* //INFILE DD DISP=SHR,DSN=XXX.TERSE //OUTFILE DD DSN=XXX.INFILE,DISP=(,CATLG), // SPACE=(CYL,(6,4,100),RLSE),DCB=(*.INFILE) //* // ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
