Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 Not able to export the VSAM cluster sandeep kumar302 JCL & VSAM 5 Fri May 04, 2018 12:42 pm
No new posts IDCAMS RENAMING VSAM FILE ALONG WITH ... upendrasri JCL & VSAM 11 Tue Apr 17, 2018 10:42 pm
No new posts VSAM file NOT Found error while proce... SumaReva CICS 5 Wed Apr 11, 2018 9:54 pm
No new posts VSAM - Accessing beyond record size Benchwarmer JCL & VSAM 6 Wed Apr 11, 2018 9:20 pm
No new posts VSAM File free space sancraig16 JCL & VSAM 13 Fri Mar 30, 2018 1:02 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us