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 (DATA SET CONVERSION FROM FB to VB)

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

New User


Joined: 27 Feb 2006
Posts: 23
Location: delhi

PostPosted: Tue Feb 28, 2006 10:03 am    Post subject: JCL (DATA SET CONVERSION FROM FB to VB)
Reply with quote

How can i convert fixed block data set to a variable block data set
Back to top
View user's profile Send private message

nuthan

Active User


Joined: 26 Sep 2005
Posts: 146
Location: Bangalore

PostPosted: Tue Feb 28, 2006 12:55 pm    Post subject:
Reply with quote

Hi,
see the post

http://www.ibmmainframes.com/about3968.html

Hope u will get the answer.
Back to top
View user's profile Send private message
ramankapoor

New User


Joined: 27 Feb 2006
Posts: 23
Location: delhi

PostPosted: Wed Mar 01, 2006 10:35 am    Post subject: Conversion (VB to FB FILE ) VICEVERSA
Reply with quote

what is the meaning of the line
INREC FIELDS=(01:01,06,07:4Z,88:2620,1)
how we are puting fields information in this card. pls suggest..

i am having a problem while submitting the job . the problem its showing in spool is
-->open error sysin.

pls suggest.

the control card i m using is -->

SYSUT1 DD *
INREC FIELDS=(01:01,06,07:4Z,88:2620,1)
SORT FIELDS = COPY
OUTREC FIELDS=(01:07,82),CONVERT
END
Back to top
View user's profile Send private message
rajesh_1183

Active User


Joined: 24 Nov 2005
Posts: 121
Location: Tadepalligudem

PostPosted: Wed Mar 01, 2006 11:03 am    Post subject:
Reply with quote

Hi
try this...

Code:

//FBVB JOB .......
//S1        EXEC PGM=SORT
//SYSOUT    DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN    DD DSN=A123456.SORT.SAMPIN,DISP=SHR
//VBOUT   DD DSN=A123456.SORT.VSAMP,DISP=(NEW,CATLG,DELETE),
//          UNIT=3390,SPACE=(CYL,(5,5))
//SYSIN   DD *
 OPTION COPY
 OUTFIL FNAMES=VBOUT,FTOV
/*


If the LRECL of SORT.SAMPIN is 100 bytes, each VB record in SORT.VSAMP is 104 bytes (the FB record length of 100 plus 4 for the RDW) and SORT.VSAMP is given an LRECL of 104

corrections welcomed..........

Thanks,
Rajesh
Back to top
View user's profile Send private message
ramankapoor

New User


Joined: 27 Feb 2006
Posts: 23
Location: delhi

PostPosted: Wed Mar 01, 2006 11:18 am    Post subject: DATA SET CONVERSION FROM FB to VB
Reply with quote

Its Giving Error like this :


ICE005A 0 STATEMENT DEFINER ERROR
OUTFIL FNAMES=VBOUT,FTOV
$
ICE005A 0 STATEMENT DEFINER ERROR
ICE010A 0 NO SORT OR MERGE CONTROL STATEMENT
ICE052I 3 END OF DFSORT
Back to top
View user's profile Send private message
rajesh_1183

Active User


Joined: 24 Nov 2005
Posts: 121
Location: Tadepalligudem

PostPosted: Wed Mar 01, 2006 11:58 am    Post subject:
Reply with quote

did u gave space before the sort stmts
Back to top
View user's profile Send private message
ramankapoor

New User


Joined: 27 Feb 2006
Posts: 23
Location: delhi

PostPosted: Wed Mar 01, 2006 12:02 pm    Post subject:
Reply with quote

NO. I was actuly not ending it properly. well thanks
Back to top
View user's profile Send private message
rajesh_1183

Active User


Joined: 24 Nov 2005
Posts: 121
Location: Tadepalligudem

PostPosted: Wed Mar 01, 2006 12:09 pm    Post subject:
Reply with quote

did u got that..........
Back to top
View user's profile Send private message
ramankapoor

New User


Joined: 27 Feb 2006
Posts: 23
Location: delhi

PostPosted: Wed Mar 01, 2006 12:10 pm    Post subject:
Reply with quote

Yes I got That .Thanks a lot
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Mar 01, 2006 9:07 pm    Post subject:
Reply with quote

For information on FB to VB conversion with DFSORT, see:

http://www.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtmst03.html#t09

Quote:
what is the meaning of the line
INREC FIELDS=(01:01,06,07:4Z,88:2620,1)
how we are puting fields information in this card


01:01,06 - put input positions 1-6 in output positions 1-6
07:4Z - put four binary zeros (4X'00') in output positions 7-10
88:2620,1 - put blanks in output positions 11-87 and put input position 2620 in output position 88.

Quote:
am having a problem while submitting the job . the problem its showing in spool is
-->open error sysin.

pls suggest.

the control card i m using is -->

SYSUT1 DD *
INREC FIELDS=(01:01,06,07:4Z,88:2620,1)
SORT FIELDS = COPY
OUTREC FIELDS=(01:07,82),CONVERT
END


You're getting the open error because you're using //SYSUT1 DD * for the control statements instead of //SYSIN DD *.
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 Data replication from multiple Db2 ta... kishpra DB2 5 Mon Mar 27, 2017 9:58 pm
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Append data from two files into a sin... Praveen04 DFSORT/ICETOOL 5 Thu Mar 16, 2017 7:29 pm
No new posts SPUFI -- Joining 3 tables – data in... Sysaron DB2 2 Wed Mar 08, 2017 4:18 am
No new posts Overriding PS data in rexx Shaheen Shaik CLIST & REXX 8 Fri Mar 03, 2017 5:08 pm


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