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
 

 

JCL Code to tranfer code from VSAM to PS File

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

New User


Joined: 20 Oct 2005
Posts: 3
Location: Mumbai

PostPosted: Tue Oct 25, 2005 11:46 am    Post subject: JCL Code to tranfer code from VSAM to PS File
Reply with quote

Can anyone of u reply me with the code of JCL that transfer the data from a VSAM file to a Sequential File .
Back to top
View user's profile Send private message

Ravi gaur

New User


Joined: 12 Jul 2005
Posts: 38

PostPosted: Tue Oct 25, 2005 2:39 pm    Post subject: JCL require
Reply with quote

Hi Shahab,

I don't know what you mean by transfer ,However using EXPORT we can create a copy of the VSAM File .But the thing is the sequential dataset(called backup) would be in the VBS Format so u would not be able to read.. However if using 3.4 and in front of the Backup dataset you execute ERBSCAN Utility you would be able to see the records of the dataset...


Attaching here the JCL for the same.


//CS00688A JOB ACCOUNT,'OSG',CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//STEP1 EXEC PGM=IDCAMS
//RECEIVE DD DSNAME=CS00688.EXPORT,UNIT=3390,
// DISP=(,KEEP),SPACE=(CYL,(2,2),RLSE),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
EXPORT -
CS00688.COB.VSAM -
OUTFILE(RECEIVE) -
TEMPORARY -
INHIBITSOURCE
/*


If you require anything else let me know....
Back to top
View user's profile Send private message
Ravi gaur

New User


Joined: 12 Jul 2005
Posts: 38

PostPosted: Tue Oct 25, 2005 2:48 pm    Post subject: JCL Require
Reply with quote

More to the above.

If you want to change the VBS format to the FB format use the IEBPTPCH utility.

//CS00688A JOB ACCOUNT,'OSG',CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//*******************************************************************/
//*
//* SORT PRODUCT CAN COPE WITH VARIABLE INPUT AND FIXED OUTPUT, SO
//* IEBPTPCH COPIES THE DATA TO FIXED BLOCKED.
//********************************************************************/
//IEBPT EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=CS00688.EXPORT,DISP=SHR,
// DCB=(RECFM=VBS,LRECL=424,BLKSIZE=27998)
//SYSUT2 DD DSN=CS00688.EXPORT1,DISP=SHR
//* DCB=(RECFM=FBA,LRECL=137,BLKSIZE=0)
//SYSIN DD *
PRINT TYPORG=PS,PREFORM=A
Back to top
View user's profile Send private message
spanda

New User


Joined: 31 Aug 2005
Posts: 48
Location: U.K.

PostPosted: Tue Oct 25, 2005 3:20 pm    Post subject: Re: JCL Code to tranfer code from VSAM to PS File
Reply with quote

If by 'transfer' you mean copying the data to a PS file, then you can do that by an IDCAMS REPRO. If you have never used IDCAMS before, then here's a sample JCL. You may use this to copy VB VSAM files also. But then, the LRECL will be equal to the longest record on the VSAM file and the RECFM will be VB (obviously).

//REPR1 EXEC PGM=IDCAMS
//INDD DD DSN=MY.VSAM.FILE,DISP=SHR
//OUTDD DD DSN=MY.PS.FILE,
// DCB=(BLKSIZE=2500,LRECL=25,RECFM=FB),
// UNIT=DISK,DISP=(,CATLG,DELETE),SPACE=(CYL,(10,5),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(INDD) OUTFILE(OUTDD)
/*

Hope this helps.
Panda.
Back to top
View user's profile Send private message
ikumar

New User


Joined: 02 Aug 2005
Posts: 81

PostPosted: Tue Oct 25, 2005 3:41 pm    Post subject: Re: JCL Code to tranfer code from VSAM to PS File
Reply with quote

to copy the data from VSAM file to sequential file, you can use REPRO...search the forum for the syntax...

Use REPRO in SYSIN statement of the JCL...
REPRO INFILE(VSAM-file) OUTFILE(PS-file)

Cheers,
Kumar.
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 Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am


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