TAPEMAP

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.

 

Installation

In February, 2002 I recreated all of the CBT pages here on my site to distribute the software in source form, rather than the unloaded load modules which I originally created back when I started this site in 2000.  Unfortunately, TAPEMAP will not assemble with IFOX00, so I have assembled the load module with IEV90 and you can reload that module to your own link library.  According to comments in the CBT file for TAPEMAP, it could at one time be assembled with IFOX00 + Bill Godfrey's $$MACROX modifications (file #316).  If you want to try your hand at modifying IFOX00 into AFOX00, I would be interested in hearing about your results.  Since I have access to IEV90, it is simply easier to use that.

The IEBCOPY unload dataset is contained on the AWS tape image tapemap.het.  This file and the jobstream to reload the TAPEMAP load module - iebcopyr.jcl - are contained in the archive tapemap.tgz [MD5: 347898FB8571B3B496AE24061444EBAF].  Download the archive and extract the contents (WinZip on Windows/?? or tar on Linux).  Submit the jobstream to restore 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.

 

Executing TAPEMAP

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:

This page was last updated on April 23, 2008 .