//TAPEMAP  PROC VOL='??????',UNIT=3490,VER=#,SYSOUT='*'                 00010004
//********************************************************************* 00020000
//*  THIS PROCEDURE WILL PRINT INFORMATION FROM THE LABELS ON A     *** 00030000
//*  STANDARD LABELLED TAPE, OR, IF THE TAPE DOES NOT HAVE STANDARD *** 00040000
//*  LABELS, WILL EMPIRICALLY DETERMINE SOME OF THE ATTRIBUTES      *** 00050000
//********************************************************************* 00060000
//TAPEMAP  EXEC PGM=TAPEMAP&VER,TIME=2,PARM=SCAN                        00070002
//STEPLIB   DD  DISP=SHR,DSN=GG$LDW.CMD.LOAD                            00080003
//SYSPRINT  DD  SYSOUT=&SYSOUT                                          00090000
//SYSPRNT2  DD  SYSOUT=&SYSOUT                                          00100000
//SYSUT1    DD  UNIT=(&UNIT,,DEFER),VOL=SER=&VOL,                       00110000
//             LABEL=(,NL,EXPDT=98000)                                  00120000