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 Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Group Data based on a key Arun Raj DFSORT/ICETOOL 7 Thu Apr 27, 2017 11:29 pm
No new posts unload data from table with lob columns farhad_evan DB2 0 Sat Apr 22, 2017 1:32 pm
No new posts SORT JSON type of data maxsubrat DFSORT/ICETOOL 8 Wed Apr 19, 2017 6:01 pm
No new posts Data replication from multiple Db2 ta... kishpra DB2 9 Mon Mar 27, 2017 9:58 pm


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