This program reads the beginning of a magnetic tape and report (on the MVS console) the infomration found in the tape header
| DDNAME | Description |
|---|---|
| TAPEIN | Tape to be analysed |
Assembly and Link JCL can be found in SYS1.SETUP.CNTL(TAPEHDR$).
Execution JCL can be found in SYS1.SETUP.CNTL(TAPEHDR#) and looks like this:
//TAPEHDR JOB ...,CLASS=S,... //TAPEHDR EXEC PGM=TAPEHDR //TAPEIN DD DISP=SHR,DSN=TAPEIN,UNIT=TAPE,VOL=SER=TAPEIN, // LABEL=(,BLP) see note below
Please note that the BLP (Bypass Label Processing) parameter is required. This means that the job must be run in an initiator that allows BLP. In the Tur(n)key system as distributed this is CLASS=S
JOB 217 $HASP373 TAPEHDR STARTED - INIT 4 - CLASS S - SYS BSP1
JOB 217 IEF403I TAPEHDR - STARTED - TIME=12.22.48
JOB 217 *IEF233A M 480,TAPEIN,,TAPEHDR,TAPEHDR
JOB 217 IEC105I 480,TAPEHDR REDUCED ERROR RECOVERY REQUESTED
JOB 217 + **** IBM STANDARD TAPE LABEL INFORMATION ****
VOL1 - VOLSER=RPF142 OWNERID=
HDR2 - RECFM=VS BLKSIZE=19060 LRECL=19056 DSPOS=0
* JOB/STEP=TAPEHDR /UNLOAD DEN=4 TRTCH=
JOB 217 IEC502E K 480,TAPEIN,NL,TAPEHDR,TAPEHDR
JOB 217 @00 TAPEHDR----ANOTHER TAPE? REPLY Y OR N
JOB 217 R 00,SUPPRESSED
JOB 217 IEFACTRT - Stepname Procstep Program Retcode
JOB 217 TAPEHDR TAPEHDR TAPEHDR RC= 0000
JOB 217 IEF404I TAPEHDR- ENDED - TIME=12.23.48
JOB 217 $HASP395 TAPEHDR ENDED
Although this program has been tested on the Turnkey MVS system Version 3 it is not guaranteed to be bug-free (which program is?)
Use at your own risk