IBM Mainframe Forum

Hi Team,

Like to display/print 3490 tape content thru JCL. Does it possible without tools/assembler code ? I have tried DFP, IDCAMS, AMASPZAP and ISMF. But not able to do. Had google search and found COPYMODS(CBT Tape) . But it not working with V1.R13. Any help. . really apprciated. Even, this was asked before, please refer it.

Kind regards,
Antony

You just want to see the data? In hex, or character? Did you try IEBGENER?

most probably the TS wants a listing of the content, IEBANTP, TAPEMAP, ANALTAPE, ...
IIRC the CBT collection has quite a few packages which include something like that

Hello,

What do you mean by "tools"? The JCL has to run "something".

Does your system allow the use of DITTO?

Suggest that no matter what you use, make sure the first run is only a few records.

I've used IDCAMS sucessfully to print HDR1, HRD2 and some data, you just need to be able to use BLP processing if you want HRD1 and or HRD2, for the data, LABEL=2,BLP should get you there, and I'll reiterate Dick's suggestion, only print some of the records
for IDCAMS for example;
PRINT INFILE(DD01) CHAR COUNT(100)
hth's

It depends. A utility like TAPEMAP (on the CBT tape) will display the contents of the labels, provided you can use LABEL=(1,BLP). At one time the SAS product had something like TAPEMAP; I don't know if it's still there.

If you know the data set name, the IDCAMS PRINT command will work well, as suggested by Peter_Mann.

Hello,

Yes, there is a SAS process that wil do what is needed. If i can get onto that system tomorrow, i'll copy it here.

If i con't post by noon, please remind me.

Hi All,

TAPEMAP(CBT Tape - FILE804) worked fine for me(Unless it s not a multi volume tape). Sorry, we dont have SAS, DITTO in out Env. Thanks for all your help.

Kind regards,
Antony

Hello,

For anyone following and looking for the SAS code:


On this system, the dataset name is always the same, only the VOLSER is changed.

Thanks Dick, I've used SAS for so many years, and never knew PROD TAPELABEL was available!