TAPEMAP will read a tape and produce a detailed report of the contents of the datasets it contains. It recognizes a variety of tape formats, including IEBCOPY, SMP, and IEBUPDTE.
TAPEMAP is located in File #299 of the CBT tape and was written by Leonard D. Woren.
As distributed on the CBT, TAPEMAP will not assemble with IFOX00. However, Phil Roberts rearranged the source, moving the inline macros to the beginning of the source statements and that will permit IFOX00 to successfully assemble TAPEMAP. I have updated the installation jobstream here to utilize the rearranged source provided by Phil, so that the TAPEMAP program may now be installed from the source code. An additional change in this version is the inclusion of a switch to indicate that the program is executing under Hercules, which influences the default density reported by the program.
The jobstream to assemble the TAPEMAP load module - tapemap$.jcl - is contained in the archive tapemap.tgz [MD5: c65ee08bea57e03f59ca0bbe5a113029]. Download the archive and extract the contents (WinZip on Windows/?? or tar on Linux). Submit the jobstream to assemble the load module. As written, the target is SYS2.LINKLIB; if you don't have SYS2.LINKLIB defined, you will need to modify the jobstream to specify a target load library. Note: The load module must reside in an authorized library.
Here is example JCL to run TAPEMAP that was included in the CBT file:
//CBT1215 PROC SO=1,T1=TAPLST,UNT='(3400-6)',P=CBT1215,CC=EVEN, // PRM=TEST //* PRM=NOCHECK /* LOOKS GOOD */ //* $$$ //* $$$ AUTHOR: A. CASINGHINO //* $$$ THIS PROC IS USED TO SCAN A TAPE TO GET INFORMATION //* $$$ ON THE PHYSICAL TAPE //* $$$ //* $$$ CBT1215 IS THE TAPE MAPPING PGM FROM UCLA VIA COMNET //* $$$ //* $$$ CBT1215 WILL PROVIDE SPECIAL INFORMATION FOR TAPE FILES //* $$$ CREATED BY IEBCOPY, IEHMOVE, IEBISAM, OR IEHDASDR. //* $$$ IN ADDITION, IF A FILE CONTAINS AN //* $$$ IEBUPDTE INPUT STREAM, THE MEMBER NAMES IN THE STREAM WILL //* $$$ BE LISTED. //* $$$ //* $$$ IF YOU ARE READING THIS OFF OF FILE 299 OF THE MVSMODS1 TAPE //* $$$ THEN ON THE PROC STATEMENT CHANGE //* $$$ P=CBT1215 TO P=TAPEMAP //* $$$ //* $$$ THE VALID PARMS ARE: //* $$$ A. TEST //* $$$ B. INLINE //* $$$ C. NOMEMBERS //* $$$ D. NOMEM //* $$$ E. DEN1 //* $$$ F. NOATTR //* $$$ G. NONOTE //* $$$ I. NOCHECK //* $$$ J. NOSCAN //* $$$ K. NL //* $$$ L. '' (NULL) //* $$$ //CBT1215 EXEC PGM=&P.,REGION=512K,COND=&CC, // PARM='&PRM.',TIME=1440 //SYSPRINT DD SYSOUT=&SO //SYSPRNT2 DD SYSOUT=&SO //SYSUT1 DD DSN=I.&T1,VOL=SER=(&T1),DISP=(OLD,PASS), // LABEL=(1,BLP),UNIT=(&UNT,,DEFER)
The output from an execution of TAPEMAP used to process the base product tape for MVS 3.8j may be viewed at: TAPEMAP.SYSOUT.
I hope that you have found my instructions useful. If you have questions that I can answer to help expand upon my explanations and examples shown here, please don't hesitate to send them to me:
Return to Site Home Page
This page was last updated on January 17, 2015 .