MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Copy VBS file

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
ace
Beginner


Joined: 24 Feb 2004
Posts: 58
Topics: 23
PostPosted: Fri Sep 29, 2006 8:20 am    Post subject: Copy VBS file Reply with quote
Can somebody please tell me how can I copy a VBS file to a FB or VB file.
The length of the VBS file is 32760.
_________________
Thank You
-Ace
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12372
Topics: 75
Location: San Jose
PostPosted: Fri Sep 29, 2006 8:26 am    Post subject: Reply with quote
ace,

try this

Code:

//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=YOUR INPUT VBS FILE,
//            DISP=SHR
//SORTOUT  DD DSN=YOUR OUTPUT FILE.
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,
//            SPACE=(CYL,(1,1),RLSE)
//SYSIN    DD *
 SORT FIELDS=COPY
 OUTFIL VTOF,OUTREC=(01,32760)
/*



Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
ace
Beginner


Joined: 24 Feb 2004
Posts: 58
Topics: 23
PostPosted: Fri Sep 29, 2006 11:02 am    Post subject: Reply with quote
kolusu,
I have tried the SORT control card. I'm getting the following error.

Code:
            SORT FIELDS=COPY                               
            OUTFIL VTOF,OUTREC=(1,32760)                   
                                  $                         
ICE111A E REFORMATTING FIELD ERROR                         
ICE751I 0 C5-K05352 C6-Q95214 C7-K90000 C8-K05352 E7-K90000
ICE052I 3 END OF DFSORT   


I guess the max length SORT can handle is 32752. So I have changed it to OUTFIL VTOF,OUTREC=(1,32752) and it's started to run. There is no data present in the last 50 bytes, so i ignored it. But the job is abending with storage issue(B37 and E37). I have tried using PARM='DYNALLOC(,n) but didn't work. Also increased the SPACE parameter.
_________________
Thank You
-Ace
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Fri Sep 29, 2006 11:37 am    Post subject: Reply with quote
Quote:
But the job is abending with storage issue(B37 and E37). I have tried using PARM='DYNALLOC(,n) but didn't work. Also increased the SPACE parameter.


Since you're doing a copy, you're not using work data sets and DYNALLOC is ignored. If you're getting the B37 or E37 on the SORTOUT data set, then that just means you haven't allocated enough space for it or don't have enough space on the volumes you're trying to allocate it on - DFSORT has nothing to do with that.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Bill Dennis
Advanced


Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA
PostPosted: Fri Sep 29, 2006 1:22 pm    Post subject: Reply with quote
I use a copy utility with
Code:
//SYSUT1 DD DSN=your.vbs.file,DISP=SHR,DCB=(BFTEK=A,BFALN=D)
//SYSUT2 DD DSN=new.vb.file,
// RECFM=VB,LRECL=32756,BLKSIZE=32760,
// DISP=(,KEEP),UNIT=tape
The input DCB options present any spanned records as one piece for the copy pgm.
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.
Back to top
View user's profile Send private message
Martin
Beginner


Joined: 20 Mar 2006
Posts: 133
Topics: 58
PostPosted: Wed Mar 07, 2007 1:25 pm    Post subject: Reply with quote
Hi,

why is that we cannot copy vsam file with lrecl > 32750?

I tried it out and below is the error which am getting

EXPLANATION: The ddname will be SORTOUT, SORTOFxx, SORTOFx or the ddname provided by an OUTFIL FNAMES parameter. A field specified in
the SORT/MERGE or JOINKEYS statement is not located within the first 32750 bytes of the variable-length record. (This limit is lower if AC, AQ, E, PD0, Y2x or LOCALE CH fields are used.) Alternately, a field specified for INREC, OUTREC, OUTFIL OUTREC, REFORMAT, SECTION control, (SUB)TOTAL, (SUB)MIN, (SUB)MAX, (SUB)AVG or HEADER/TRAILER data field is located beyond the maximum record length. Alternately, an INREC, OUTREC, OUTFIL OUTREC, REFORMAT, or HEADER/TRAILER n/col/date/page attempted to build a record larger than the allowable maximum. Alternately, a REFORMAT statement referenced a join input file field, but records from that input file were excluded by specifying ONLY on the JOIN statement.

Any ways to copy vsam file with record legnth =32760 into a fb file?

-Mt
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12372
Topics: 75
Location: San Jose
PostPosted: Wed Mar 07, 2007 1:38 pm    Post subject: Reply with quote
Martin wrote:
Hi,

why is that we cannot copy vsam file with lrecl > 32750?


Martin,

The error you got is because SORT read a Varaible blocked VSAM file. However you can treat it as fixed format and copy it. Try this

Code:

//SYSIN    DD *
  SORT FIELDS=COPY
  RECORD TYPE=F


Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
SK2007
Beginner


Joined: 25 Jan 2007
Posts: 40
Topics: 17
PostPosted: Thu Sep 06, 2007 10:21 am    Post subject: Reply with quote
Hi All,

I am in a situation to copy the VB TAPE file to FB thru SORT. The file length is 32900. As this is more than 32752, is there any way to convert to FB.

Thanks for your help as always.
SK2007
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12372
Topics: 75
Location: San Jose
PostPosted: Thu Sep 06, 2007 10:33 am    Post subject: Reply with quote
Quote:

The file length is 32900.

SK2007,

huh ? AFAIK the largest LRECL possible on mainframe is only 32,761 . How did you create the tapefile with that LRECL?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
CICS Guy
Intermediate


Joined: 30 Apr 2007
Posts: 292
Topics: 3
PostPosted: Thu Sep 06, 2007 10:37 am    Post subject: Reply with quote
SK2007 wrote:
I am in a situation to copy the VB TAPE file to FB thru SORT. The file length is 32900.
VBS maybe? Or is that the block length?
Back to top
View user's profile Send private message
SK2007
Beginner


Joined: 25 Jan 2007
Posts: 40
Topics: 17
PostPosted: Thu Sep 06, 2007 10:57 am    Post subject: Reply with quote
Kolusu/CICS Guy,

The file is VBS, and this file was created thru COBOL program.
oops.. I gave incorrect LRECL in my previous post. The correct length is 32768. Apologise for inconvenience caused.

Thanks
SK2007.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group