View previous topic :: View next topic
|
Author |
Message |
Sudhanshu Shekhar
New User
Joined: 23 Jul 2008 Posts: 27 Location: City of Joy
|
|
|
|
Hi,
We have a utility in INSYNC to convert FB files to CSV format, i want to know how to incorporate that in a JCL? Currently we write a cobol program to do the same, so was trying to reduce effort and use an inbuilt utility.
Shekhar |
|
Back to top |
|
|
Sudhanshu Shekhar
New User
Joined: 23 Jul 2008 Posts: 27 Location: City of Joy
|
|
|
|
I have found many examples so far, where you can delimit with "," using DFsort. But wat i am looking for is a utility that will delimit based on a copybook to create a .CSV..... |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
How do you use it now? Suggest the same control information will be used in batch. The documentation should show the necessary jcl or you might talk with someone who is responsible for support of INSYNC.
If all else fails, you might look in the product documentation. . . |
|
Back to top |
|
|
Sudhanshu Shekhar
New User
Joined: 23 Jul 2008 Posts: 27 Location: City of Joy
|
|
|
|
Thanks Dick,
I finally found the way to do it.... hewre is how
Code: |
//STEP1 EXEC PGM=INSYNC,PARM=MVS,REGION=??
//STEPLIB DD DISP=SHR,DSN=SYS1.M4.INSYNC.LOADLIB
//*
//#ELIBDD DD DISP=SHR,DSN=SYS1.M4.INSYNC.ELIB
//SYSTSPRT DD SYSOUT=*
//#LOG DD SYSOUT=*
//#PRINT DD SYSOUT=*
//#STATS DD SYSOUT=*
//#INDD DD DSN=IN.FILE,DISP=SHR
//#OUTDD DD DSN=OUT.FILE,DISP=SHR
//#PARM DD *
FUNCTION=EXTRACT
INDD=#INDD
OUTDD=#OUTDD
RDW=ON
REPLACEDUPS=NO
CSVDELIM=,
CSVQUOTE=SINGLE
CSVQUOTECHARS=NO
CSVQUOTENUMS=NO
CSVLEADINGBLANKS=NO
CSVTRAILINGBLANKS=NO
CSVLEADINGZEROS=NO
CSVEXCLUDEFILLER=NO
CSVINCLUDEHEADER=YES
ADDTOOUTPUT=NO
LINESPERPAGE=080
FORMATDSN=(LAYOUT.COPYLIB)
FORMATMBR=(TEST)
//*
|
[/quote] |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Good to hear it is working - thank you for letting us know your solution
d |
|
Back to top |
|
|
|