Freeware: REXX - IMGCOPY
The reason this exec was written was to a solve this problem:
is a REXX exec that copies all bytes from the SYSUT1 file
do the SYSUT2 file when the concept of records is not
Can be used to copy .GIF and .JPG files from a
larger blocksize dataset (like RECFM=VB LRECL=32756)
to a smaller blocksize dataset (like RECFM=FB LRECL=10)
It should be used with care. It is useful for PC
files which are byte oriented and not record oriented.
PC files, like GIF, JPEG, ZIP, etc., are byte oriented and not
record oriented like most sequential MVS files are. These PC file
formats are seen by programs that read them as one long stream of
bytes, and there are no concepts of "records". The IMGCOPY exec
allows you to copy these byte oriented files to different record
formats without losing data.
- SAS needed a large lrecl variable block dataset for
the output of GIF files. I used LRECL=32756 to ensure
that SAS would be able to write all records out.
- Our web server on MVS by default used LRECL=10 (!) dataset
RECFM=F datasets for GIF files.
//** COPY A GIF FROM THE RECFM=VB FILE TO THE RECFM=FB FILE
//IMAGECPY EXEC PGM=IKJEFT01,TIME=1439,DYNAMNBR=100
//SYSEXEC DD DISP=SHR,DSN=ibmuser.DAVES.REXX.EXECS
//SYSUT1 DD DISP=SHR,DSN=ibmuser.input.GIF.file
//SYSUT2 DD DISP=SHR,DSN=ibmuser.output.GIF.file
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
The software downloadable from this page is
© 1997-2000 by David Alcock.
This software is provided on an asis basis and no warranty is
provided. Use at your own risk
Return to Dave's MVS Freeware web page.
Last Updated: 2000-05-27
This web page is © 1997-2001+ by
All Rights Reserved.