Antwort: Question About use TAPEMAP Program
Sergio, instead of SYSIN just add to your jcl: //SYSUT1 DD DSN=,DISP=SHR, //UNIT=3490,LABEL=(,BLP,EXPDT=98000), //VOL=(,RETAIN,,SER=??) DSN is unimportant, replace ?? with your VOLSER. Werner Kuehnel Von:Sergio Lima An: IBM-MAIN@bama.ua.edu Datum: 28.03.2011 15:51 Betreff:Question About use TAPEMAP Program Gesendet von: IBM Mainframe Discussion List Hello List. Last weekend, We downloaded the TAPEMAP here, from CBTTAPE, and evething was well. Now, We try use this program, but We don't see the documentation, for example, where put the Tape Volume for the program process. We try put a volume label on SYSIN, but something is not ok. We try run this jcl : //TAPEMAP JOB (PROD),ROTINA,CLASS=A, //NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T //S001DEF EXEC PGM=TAPEMAPN //STEPLIB DDDSN=SERGIOL.TSO.LOAD,DISP=SHR //SYSPRINT DDSYSOUT=* //AMSDUMP DDSYSOUT=* //SYSINDD* G00698 And the result is this : VOL=G00698 TAPE ANALYSIS PROGRAM (T A P E M A P) V2.3 RELOAD FILE PSWD INFOBL FORMAT SEQ# DATASET NAME REQD C-DATE E-DATE SOURCE RECFM LRECL S *** TAPE VOLUME COULD NOT BE OPENED *** We see the device is Online : D U,,,670,2 IEE457I 10.46.46 UNIT STATUS 727 UNIT TYPE STATUSVOLSER VOLSTATE 0670 349S O-R /REMOV 0671 3490 OFFLINE /REMOV And the device is a 3490 . Someone can help us please? Thanks very much. Sergio Lima Costa Sao Paulo - Brazil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Antwort: Question About use TAPEMAP Program
Hello Mr. Werner, I tried run the JOB, but when the JOB is istarted, the cartridge was eject from the device. Now, the job that was submitted is this : //TAPEMAP JOB (PROD),ROTINA,CLASS=A, //NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T //S001DEF EXEC PGM=TAPEMAPN //STEPLIB DDDSN=SERGIOL.TSO.LOAD,DISP=SHR //SYSUT1 DD DSN=,DISP=SHR,UNIT=/670,LABEL=(,BLP,EXPDT=98000), // VOL=(,RETAIN,,SER=G00698) //SYSPRINT DDSYSOUT=* //AMSDUMP DDSYSOUT=* But, happen this on the SYSLOG : AF01 359L O-NRD-R /REMOV IOS150I DEVICE 0670 NOW AVAILABLE FOR USE V 670,ONLINE,UNCOND IEE302I 0670 ONLINE D U,,,670,2 IEE457I 12.59.13 UNIT STATUS 770 UNIT TYPE STATUSVOLSER VOLSTATE 0670 349S O-R /REMOV 0671 3490 OFFLINE /REMOV $HASP100 TAPEMAP ON INTRDR ROTINAFROM TSU07265 SERGIOL IRR010I USERID SERGIOL IS ASSIGNED TO THIS JOB. IEF677I WARNING MESSAGE(S) FOR JOB TAPEMAP ISSUED ICH70001I SERGIOL LAST ACCESS AT 12:51:55 ON MONDAY, MARCH 28, 2011 $HASP373 TAPEMAP STARTED - INIT 1- CLASS A - SYS GRV1 IEF403I TAPEMAP - STARTED - TIME=12.59.26 IEC502E RK 0670,G00698,SL,TAPEMAP,S001DEF - RACK=G00698 *IEC501A M 0670,G00698,NL,,TAPEMAP,S001DEF, - RACK=G00698 I look the tape in another environment, and the DITTO show this : DITTO/ESA for VSE TB - Tape Browse At load point Blk 1File 1from begin of tape 0670 3490ECol 1Fmt CHAR VOL1 G00698 DSN F1Fprotect 2-XF FMT 36 Trk ASCII NO Block Length 1...5...105...205...305...405...505...60 1 80 VOL1G00698 2 80 HDR1F1 G0069800010001 011084011084000 3 80 HDR2V3168031676 0REPROMG /IDCAMS P B 17241 Tape mark * * * * * * * * * * * * * * * * * * * * * * * * * * * * 1 26724 .+.. 201103000564.009111 Can anybody help please ? Thanks , Sergio Lima Costa > Date: Mon, 28 Mar 2011 15:59:53 +0200 > From: werner.kueh...@mannheimer.de > Subject: Antwort: Question About use TAPEMAP Program > To: IBM-MAIN@bama.ua.edu > > Sergio, > instead of SYSIN just add to your jcl: > > //SYSUT1 DD DSN=,DISP=SHR, > // UNIT=3490,LABEL=(,BLP,EXPDT=98000), > // VOL=(,RETAIN,,SER=??) > > DSN is unimportant, replace ?? with your VOLSER. > > Werner Kuehnel > > > > > Von: Sergio Lima > An: IBM-MAIN@bama.ua.edu > Datum: 28.03.2011 15:51 > Betreff: Question About use TAPEMAP Program > Gesendet von: IBM Mainframe Discussion List > > > > Hello List. > > Last weekend, We downloaded the TAPEMAP here, from CBTTAPE, and evething > was well. > Now, We try use this program, but We don't see the documentation, for > example, where put the Tape Volume for the program process. > We try put a volume label on SYSIN, but something is not ok. > We try run this jcl : > > //TAPEMAP JOB (PROD),ROTINA,CLASS=A, > // NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T > //S001DEF EXEC PGM=TAPEMAPN > //STEPLIB DD DSN=SERGIOL.TSO.LOAD,DISP=SHR > //SYSPRINT DD SYSOUT=* > //AMSDUMP DD SYSOUT=* > //SYSIN DD * > G00698 > > And the result is this : > > VOL=G00698 TAPE ANALYSIS PROGRAM (T A P E M A P) > V2.3 > > > RELOAD FILE PSWD INFO BL > FORMAT SEQ# DATASET NAME REQD C-DATE E-DATE SOURCE RECFM > LRECL S > > *** TAPE VOLUME COULD NOT BE OPENED *** > > We see the device is Online : > > D U,,,670,2 > IEE457I 10.46.46 UNIT STATUS 727 >
Re: Antwort: Question About use TAPEMAP Program
On 28 March 2011 12:09, Sergio Lima wrote: > I tried run the JOB, but when the JOB is istarted, the cartridge was eject > from the device. [...] > $HASP373 TAPEMAP STARTED - INIT 1 - CLASS A - SYS GRV1 > IEF403I TAPEMAP - STARTED - TIME=12.59.26 > IEC502E RK 0670,G00698,SL,TAPEMAP,S001DEF - RACK=G00698 > *IEC501A M 0670,G00698,NL,,TAPEMAP,S001DEF, - RACK=G00698 This ( but not the previous problem) is almost certainly the result of your not being authorized to use BLP, and the system's converting it to NL. Then your tape is rejected because it has a standard label. You need to look at your jesparms and be sure your job can use BLP. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Antwort: Question About use TAPEMAP Program
--- Hello Mr. Werner, I tried run the JOB, but when the JOB is istarted, the cartridge was eject from the device. Now, the job that was submitted is this : //TAPEMAP JOB (PROD),ROTINA,CLASS=A, //NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T //S001DEF EXEC PGM=TAPEMAPN //STEPLIB DDDSN=SERGIOL.TSO.LOAD,DISP=SHR //SYSUT1 DD DSN=,DISP=SHR,UNIT=/670,LABEL=(,BLP,EXPDT=98000), // VOL=(,RETAIN,,SER=G00698) //SYSPRINT DDSYSOUT=* //AMSDUMP DDSYSOUT=* But, happen this on the SYSLOG : AF01 359L O-NRD-R /REMOV IOS150I DEVICE 0670 NOW AVAILABLE FOR USE V 670,ONLINE,UNCOND IEE302I 0670 ONLINE D U,,,670,2 IEE457I 12.59.13 UNIT STATUS 770 UNIT TYPE STATUSVOLSER VOLSTATE 0670 349S O-R /REMOV 0671 3490 OFFLINE /REMOV $HASP100 TAPEMAP ON INTRDR ROTINAFROM TSU07265 SERGIOL IRR010I USERID SERGIOL IS ASSIGNED TO THIS JOB. IEF677I WARNING MESSAGE(S) FOR JOB TAPEMAP ISSUED ICH70001I SERGIOL LAST ACCESS AT 12:51:55 ON MONDAY, MARCH 28, 2011 $HASP373 TAPEMAP STARTED - INIT 1- CLASS A - SYS GRV1 IEF403I TAPEMAP - STARTED - TIME=12.59.26 IEC502E RK 0670,G00698,SL,TAPEMAP,S001DEF - RACK=G00698 *IEC501A M 0670,G00698,NL,,TAPEMAP,S001DEF, - RACK=G00698 I look the tape in another environment, and the DITTO show this : DITTO/ESA for VSE TB - Tape Browse At load point Blk 1File 1from begin of tape 0670 3490ECol 1Fmt CHAR VOL1 G00698 DSN F1Fprotect 2-XF FMT 36 Trk ASCII NO Block Length 1...5...105...205...305...405...505...60 1 80 VOL1G00698 2 80 HDR1F1 G0069800010001 011084011084000 3 80 HDR2V3168031676 0REPROMG /IDCAMS P B 17241 Tape mark * * * * * * * * * * * * * * * * * * * * * * * * * * * * 1 26724 .+.. 201103000564.009111 Can anybody help please ? - You've gotten those messages because you're not allowed to use BLP in the label parameter. When this is the case, BLP is converted to NL. Check in two places: your security system and your JES parameters. Adjustments may be needed in either or both areas. Rick -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Antwort: Question About use TAPEMAP Program
It's setable with JES commands $T INIT(nn),BLP=YES In a message dated 3/28/2011 1:49:44 P.M. Central Daylight Time, t...@harminc.net writes: You need to look at your jesparms and be sure your job can use BLP -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Antwort: Question About use TAPEMAP Program
Hello Ed, Run ok with this JES command : $TJOBCLASS(A),BLP=YES Thanks for your help. Sergio > Date: Mon, 28 Mar 2011 15:22:01 -0400 > From: efinnel...@aol.com > Subject: Re: Antwort: Question About use TAPEMAP Program > To: IBM-MAIN@bama.ua.edu > > It's setable with JES commands $T INIT(nn),BLP=YES > > > In a message dated 3/28/2011 1:49:44 P.M. Central Daylight Time, > t...@harminc.net writes: > > You need to look at your jesparms and be sure your job can use BLP > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Antwort: Question About use TAPEMAP Program
Hello Rick, and all others. Thanks very much from the help. Sergio > Date: Mon, 28 Mar 2011 12:20:59 -0600 > From: rfocht...@ync.net > Subject: Re: Antwort: Question About use TAPEMAP Program > To: IBM-MAIN@bama.ua.edu > > --- > > >Hello Mr. Werner, > > > >I tried run the JOB, but when the JOB is istarted, the cartridge was eject > >from the device. > > > >Now, the job that was submitted is this : > > > >//TAPEMAP JOB (PROD),ROTINA,CLASS=A, > >// NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T > >//S001DEF EXEC PGM=TAPEMAPN > >//STEPLIB DD DSN=SERGIOL.TSO.LOAD,DISP=SHR > >//SYSUT1 DD DSN=,DISP=SHR,UNIT=/670,LABEL=(,BLP,EXPDT=98000), > >// VOL=(,RETAIN,,SER=G00698) > >//SYSPRINT DD SYSOUT=* > >//AMSDUMP DD SYSOUT=* > > > >But, happen this on the SYSLOG : > > > > AF01 359L O-NRD-R /REMOV > > IOS150I DEVICE 0670 NOW AVAILABLE FOR USE > > V 670,ONLINE,UNCOND > > IEE302I 0670 ONLINE > > D U,,,670,2 > > IEE457I 12.59.13 UNIT STATUS 770 > > UNIT TYPE STATUS VOLSER VOLSTATE > > 0670 349S O -R /REMOV > > 0671 3490 OFFLINE /REMOV > > $HASP100 TAPEMAP ON INTRDR ROTINA FROM TSU07265 > > SERGIOL > > IRR010I USERID SERGIOL IS ASSIGNED TO THIS JOB. > > IEF677I WARNING MESSAGE(S) FOR JOB TAPEMAP ISSUED > > ICH70001I SERGIOL LAST ACCESS AT 12:51:55 ON MONDAY, MARCH 28, 2011 > > $HASP373 TAPEMAP STARTED - INIT 1 - CLASS A - SYS GRV1 > > IEF403I TAPEMAP - STARTED - TIME=12.59.26 > > IEC502E RK 0670,G00698,SL,TAPEMAP,S001DEF - RACK=G00698 > > *IEC501A M 0670,G00698,NL,,TAPEMAP,S001DEF, - RACK=G00698 > > > > > >I look the tape in another environment, and the DITTO show this : > > > >DITTO/ESA for VSE TB - Tape Browse At load point > > > >Blk 1 File 1 from begin of tape 0670 3490E Col 1 Fmt CHAR > > VOL1 G00698 DSN F1 Fprotect 2-XF FMT 36 Trk ASCII NO > > > >Block Length 1...5...105...205...305...405...505...60 > >1 80 VOL1G00698 > >2 80 HDR1F1 G0069800010001 011084011084000 > >3 80 HDR2V3168031676 0REPROMG /IDCAMS P B 17241 > > Tape mark * * * * * * * * * * * * * * * * * * * * * * * * * * * * > >1 26724 .+.. 201103000564.009111 > > > > > >Can anybody help please ? > > > - > > You've gotten those messages because you're not allowed to use BLP in > the label parameter. When this is the case, BLP is converted to NL. > Check in two places: your security system and your JES parameters. > Adjustments may be needed in either or both areas. > > Rick > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Antwort: Question About use TAPEMAP Program
Great, thanks for the update. In a message dated 3/30/2011 11:56:59 A.M. Central Daylight Time, sergio...@hotmail.com writes: Run ok with this JES command : -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html