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
 

 

Repro in VSAM into FB sequentials

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
crismelo

New User


Joined: 20 Jun 2006
Posts: 2
Location: Netherlands

PostPosted: Tue Jun 20, 2006 2:19 am    Post subject: Repro in VSAM into FB sequentials
Reply with quote

Hello,
I'm having a problem when I do a repro (IDCAMS) in a VSAM dataset. He only accepts it if I download it into a VB dataset. Is any way to make a copy of VSAM into a sequential FB dataset? Thanks in advance, Crismelo
Back to top
View user's profile Send private message

cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Tue Jun 20, 2006 3:08 am    Post subject: Re: Repro in VSAM into FB sequentials
Reply with quote

I don't think a dataset that was REPRO'ed to VSAM as a variable file can be REPRO from VSAM to QSAM as a fixed file.

Check the record size for your VSAM file.

If you see something like: RECORDSIZE(160 160) then you are dealing with a FIXED file (FB) and it could be REPRO'ed out with FB,160,27840

If you see something like: RECORDSIZE(160 4096), then you are dealing with a VARIABLE file (VB). 160 would indicate the shortest of your variable length records.

You can write the dataset out your REPRO as VB. That dataset could then be converted to fixed using DFSORT, FILEAID, SYNCSORT, etc.

Here is a SORT example:

Code:

//S4SORT EXEC PGM=ICEMAN
//* DCB on Input file would be VB, 164, 16400
//SORTIN   DD  DSN=VARIABLE.INPUT.FILE,DISP=OLD     
//SORTOUT  DD  DSN=FIXED.OUTPUT.FILE,                         
//          DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(TRK,(3,3),RLSE),
//          DCB=(RECFM=FB,LRECL=160,BLKSIZE=16000)             
//SYSOUT   DD SYSOUT=*   
//* Starting in position 5 of the variable record and copied to 160 positions
//* VLFILL will insert blanks for all records shorter than 160 positions
//SYSIN    DD *
  OPTION COPY
  OUTFIL OUTREC=(5,160),CONVERT,VLFILL=X'40'
Back to top
View user's profile Send private message
crismelo

New User


Joined: 20 Jun 2006
Posts: 2
Location: Netherlands

PostPosted: Tue Jun 20, 2006 11:26 pm    Post subject:
Reply with quote

Thanks for your reply and the workaround.
Good to know why I can't make it. Really helped!
Best rgds, Cristina Melo
Back to top
View user's profile Send private message
SIVAMAIN

New User


Joined: 24 Jun 2006
Posts: 12

PostPosted: Mon Jun 26, 2006 6:42 pm    Post subject:
Reply with quote

HI CRISMELO,
THIS IS SIVA.

//SIVAMAIN JOB NOTIFY=&SYSUID
//STEP EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO -
INDATASET(SSS036.SIVAMAIN.KSDS) -
OUTDATASET(SSS036.SIVAMAIN.PS)
/*
//
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fail to change physical VSAM filename... jacobdng CICS 7 Fri Jan 20, 2017 12:36 pm
No new posts how to recover an uncataloged VSAM da... archanamuthukrishnan All Other Mainframe Topics 3 Wed Jan 11, 2017 6:18 pm
No new posts Underlying DB2 VSAM LDS - SMF recording vasanthz All Other Mainframe Topics 6 Thu Jan 05, 2017 4:20 am
No new posts BWO option in VSAM blayek CICS 3 Sat Nov 05, 2016 10:47 am
No new posts VSAM define for large file jerryte JCL & VSAM 9 Wed Oct 05, 2016 1:51 am


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