Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

need a jcl to copy records form tape to ps

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
rohit jaiswal
Warnings : 2

New User


Joined: 09 Mar 2006
Posts: 36
Location: hyderabad,A.P

PostPosted: Thu Mar 16, 2006 12:55 pm    Post subject: need a jcl to copy records form tape to ps
Reply with quote

hi

1) can any one send me the jcl to copy a tape dataset to ps i need it urgently.

2)can anyone say how to see prpperties of a tape dataset.i gave an 'S' bfore it but didnt get any info.
Back to top
View user's profile Send private message

kousalya26

New User


Joined: 06 Jul 2005
Posts: 21
Location: chennai

PostPosted: Thu Mar 16, 2006 1:58 pm    Post subject: Re: need a jcl to copy records form tape to ps
Reply with quote

Hi,

1) To copy records from tape to DASD, you can use
a) execute the sort utility with SYSIN card as SORT FIELDS=COPY to copy the whole file to DASD or appropriate INCLUDE/OMIT COND if you want to copy selected records.
b) see this also :- http://ibmmainframes.com/viewtopic.php?t=6451&highlight=

2) To see the information of tape datasets, we use TI before the dataset name. Iam not sure if its dependent on the shop but you can try that.

sorry if it doesnt work out !

Thanks & Regards,
kousalya
Back to top
View user's profile Send private message
rohit jaiswal
Warnings : 2

New User


Joined: 09 Mar 2006
Posts: 36
Location: hyderabad,A.P

PostPosted: Thu Mar 16, 2006 2:54 pm    Post subject:
Reply with quote

thanks Kousalya for the help
if possible can u send me the jcl to copy it
Back to top
View user's profile Send private message
thanooz

New User


Joined: 28 Jun 2005
Posts: 99

PostPosted: Thu Mar 16, 2006 3:02 pm    Post subject:
Reply with quote

hi rohiat,

//jobname JOB
// CLASS=B,MSGCLASS=H,REGION=33M,NOTIFY=userid
//REPRO EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INFIL DD DSN=tapedataset, DISP=SHR
//OUTFIL DD DSN=outputdata set,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=1400,BLKSIZE=0,RECFM=FB),
// UNIT=(SYSDA,5),
// SPACE=(CYL,(20,20),RLSE)
//SYSIN DD *
REPRO -
INFILE(INFIL) -
OUTFILE(OUTFIL)
/*
//SYSOUT DD SYSOUT=*
//SYUDUMP DD SYSOUT=*
//SYSIN DD DUMMY
//


I think it will help's u

thak's
thanooz.
Back to top
View user's profile Send private message
rohit jaiswal
Warnings : 2

New User


Joined: 09 Mar 2006
Posts: 36
Location: hyderabad,A.P

PostPosted: Thu Mar 16, 2006 4:00 pm    Post subject:
Reply with quote

thanks for the help thanooz.
but can u help me for the following

// DCB=(LRECL=1400,BLKSIZE=0,RECFM=FB),

in my case i dont have the info abt the tape i mean its lrecl, blksize,etc in this case how to find out this data.
i used S,TI and TMS in front of the dataset but no use.i think it doesnt work in my shop.

can u pls explain me
// UNIT=(SYSDA,5) waht does it mean
Back to top
View user's profile Send private message
thanooz

New User


Joined: 28 Jun 2005
Posts: 99

PostPosted: Thu Mar 16, 2006 4:07 pm    Post subject:
Reply with quote

hi rohit,

small change in above code,

//jobname JOB
// CLASS=B,MSGCLASS=H,REGION=33M,NOTIFY=userid
//REPRO EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INFIL DD DSN=tapedataset, DISP=SHR
//OUTFIL DD DSN=outputdata set, DISP=shr
//SYSIN DD *
REPRO -
INFILE(INFIL) -
OUTFILE(OUTFIL)
/*
//SYSOUT DD SYSOUT=*
//SYUDUMP DD SYSOUT=*
//SYSIN DD DUMMY
//


thank's,
thanooz.
Back to top
View user's profile Send private message
thanooz

New User


Joined: 28 Jun 2005
Posts: 99

PostPosted: Thu Mar 16, 2006 4:30 pm    Post subject:
Reply with quote

hi rohit


If you want to allocate the file on multiple vols [unit=(sysda,n)] .


This will help's u.

thak's
thanooz.
Back to top
View user's profile Send private message
rohit jaiswal
Warnings : 2

New User


Joined: 09 Mar 2006
Posts: 36
Location: hyderabad,A.P

PostPosted: Thu Mar 16, 2006 4:57 pm    Post subject:
Reply with quote

can u be a bit more clear on it
Back to top
View user's profile Send private message
thanooz

New User


Joined: 28 Jun 2005
Posts: 99

PostPosted: Thu Mar 16, 2006 6:20 pm    Post subject:
Reply with quote

hi rohit,


if you creating a new data set,if u want more space for that data set ,it is not avialable in one volueme ,u can specify no.of volumes has to take and allocate your data set.maximum u can specify that number is 20.

If you want more details u can search in this site .It is already explained.


Thank's
thanooz.
Back to top
View user's profile Send private message
martin9

Active User


Joined: 01 Mar 2006
Posts: 287
Location: Basel, Switzerland

PostPosted: Thu Mar 16, 2006 8:29 pm    Post subject:
Reply with quote

hy rohit,

make any IEBGENER job,
where SYSUT1 is your tape dataset,
and SYSUT2 is your dasd dataset.
to get all parameter of SYSUT1, try
on DD SYSUT2 LIKE=tape.dataset.name then
you should get the measures of this.

or you look in RMM (Recoverable Media Manager)
to find out the measures of that tape dataset.

martin9
Back to top
View user's profile Send private message
rohit jaiswal
Warnings : 2

New User


Joined: 09 Mar 2006
Posts: 36
Location: hyderabad,A.P

PostPosted: Fri Mar 17, 2006 10:13 am    Post subject:
Reply with quote

Martin can u br more clear on it i didnot get u
Back to top
View user's profile Send private message
nitin.jain

New User


Joined: 04 May 2005
Posts: 1
Location: delhi

PostPosted: Fri Mar 17, 2006 11:36 am    Post subject: Re: need a jcl to copy records form tape to ps
Reply with quote

Hi,

This can be done by IDCAMS utility. You just put the tape file as input & ps file as output in repro control statement.
Back to top
View user's profile Send private message
martin9

Active User


Joined: 01 Mar 2006
Posts: 287
Location: Basel, Switzerland

PostPosted: Fri Mar 17, 2006 5:50 pm    Post subject:
Reply with quote

hy,

if you give parameter LIKE on a DD-card,
means you inherit the parameters like
size, space and so on from that dataset
you specified in the LIKE parameter.
therefore you are not forced to code them implicitly.

if you now use IEBGENER or IDCAMS like nitin mentioned
before, is just a question of taste. you can do this in
both ways.

RMM is the Recoverable Media Manager, which manages
the tape entries on your tape roboter. if you are now looking
for the tape file, there are also the measures of that dataset.
i.e. RECFM,LRECL,BLKSIZE ....

martin9
Back to top
View user's profile Send private message
aru_bec

New User


Joined: 23 Dec 2005
Posts: 19
Location: Bangalore

PostPosted: Fri Mar 17, 2006 7:46 pm    Post subject:
Reply with quote

Hi Mohit,

I think it's not possible to view the properties of data set by using 'I'. U can use following code to copy the Tape dataset.

//COPY EXEC PGM=IEBGENER

//SYSUT1 DD DSN=tapedatasetname, DISP=SHR
//SYSUT2 DD DSN=newdatasetname, DISP=(NEW,KEEP,DELETE),
// DCB=*.SYSUT1, UNIT=SYSDA,VOL=(,,,10),
// SPACE=(CYL,(100,10))
//SYSPRINT DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//SYSIN DD DUMMY

Hope this helps,

Regards,
Arvind
Back to top
View user's profile Send private message
martin9

Active User


Joined: 01 Mar 2006
Posts: 287
Location: Basel, Switzerland

PostPosted: Fri Mar 17, 2006 7:53 pm    Post subject:
Reply with quote

hy all together,

RMM is the utility to do this,
try in your tso session the commnand RMM,
if you have SMS installed with all components,
you should be able to access it.

with 3.4 datasetlist function (I) it is not possible...

but pls, if you need 10 volumes, give at the end
RLSE to free the reserved space not needed,
your space manager will be happier about.

martin9
Back to top
View user's profile Send private message
prasanth_thavva

New User


Joined: 28 Jul 2005
Posts: 86
Location: Chennai

PostPosted: Sun Mar 19, 2006 3:02 pm    Post subject: about RMM and SYSDA
Reply with quote

hi martin9,

LIKE inherits the properties of specified dataset...
LIKE=X.Y.Z <--will take the properties of x.y.z
but UNIT=(SYSDA,5)<--when ever space abend like SB37 we will resolve like this..is just temporary fix...

Please drop info on RMM and how to do it step by step if it is available in our shop,,, please let me know...

Thanks and Regards,
venkata Prasanth
Back to top
View user's profile Send private message
ranga_subham

New User


Joined: 01 Jul 2005
Posts: 51

PostPosted: Fri Mar 24, 2006 10:57 am    Post subject: Re: need a jcl to copy records form tape to ps
Reply with quote

Hi,

I have a tape dataset with following details:

Code:

 -----------------------------   CA-1 TAPE INQUIRY  ----------------------------
                                                                               
 Data Set Name . . . : SYSX.CAVIEW.XXXXXXX.G0001V00                             
                                                                               
 General Data                         Creation Information                     
  Volume Serial. . . : GXXXXX          Date . . . . . . : 2005/328             
  Alternate Volume . :                 Time . . . . . . : 18:00:00             
  Media type   . . . : 3490-36TK       Jobname  . . . . : CAVIEW               
  Record Format. . . : U               Program  . . . . : SARSTC               
  Record Length. . . : 0              Last Used Information                     
  Block Size   . . . : 0               Date . . . . . . : 2006/034             
  Number of blocks . : 94079           Time . . . . . . : 02:22:00             
  Percent utilized . : 97              Jobname  . . . . : XXXXXX21             
  Batch ID/Hook ID . : CLOSE IO       Expiration Information                   
  Status   . . . . . : ACTIVE          Expire Date. . . : CATALOG               
                                                                               
 File  / Volume Set                   Vault Management Information             
  Base Volume. . . . : GXXXXX          Outcode. . . . . :                       
  Sequence Number. . : 1               Slot   . . . . . : 0000000               
  Total Files in Set : 1               Outdate. . . . . :                       
 Secondary volumes:                                                             
 USER DATA:                                                                     
                                                                               
                                                                               


Would you please tell me how to copy this onto a DASD?

TIA.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Join giving more records than expected Danielle.Filteau SYNCSORT 2 Thu Mar 09, 2017 3:28 am
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am
No new posts Extract set of records matching on ac... bhaskar_kanteti DFSORT/ICETOOL 3 Mon Mar 06, 2017 7:19 am
No new posts Inserting records based on conditions vickey_dw DFSORT/ICETOOL 9 Wed Feb 22, 2017 1:33 pm
No new posts To Merge mutliple records into a sing... anandgbe DFSORT/ICETOOL 6 Wed Feb 22, 2017 8:49 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us