Freeware: REXX - IMGCOPY

IMGCOPY is a REXX exec that copies all bytes from the SYSUT1 file do the SYSUT2 file when the concept of records is not relevant.

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.

Download information
File Name:	IMGCOPY.TXT
File Format:	Text file
Size:	3,409
Last Updated:	17-FEB-1998
Version:	1.0
Type:	REXX exec
Requirements:	MVS

The reason this exec was written was to a solve this problem:

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.

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.

Sample JCL:

//*
//** 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 *
 %IMGCOPY

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.