OUTFIL PARSE command in SORT

HappySrinu · Active User Joined: 22 Jan 2008 Posts: 194 Location: India

Has any one used OUTFIL PARSE command for CSV input file to formated out file.

trying to use the following control cards but getting message " No keywords"

Frank Yaeger · Posted: Tue Mar 25, 2008 8:27 pm

You're missing a SORT, MERGE or OPTION COPY statement so you would have gotten this error message with DFSORT:

ICE010A 0 NO SORT OR MERGE CONTROL STATEMENT

I used the DFSORT job below with an OPTION COPY statement and your OUTFIL statement and it worked fine:

HappySrinu · Active User Joined: 22 Jan 2008 Posts: 194 Location: India

Frank,
Thanks much for your code
I tried using the same code you posted but no luck still.

error message
SYSIN :
OPTION COPY
OUTFIL PARSE=(%01=(ENDBEFR=C',',FIXLEN=5),
*
%02=(ENDBEFR=C',',FIXLEN=5),
%03=(ENDBEFR=C',',FIXLEN=5),
%04=(ENDBEFR=C',',FIXLEN=5)),
BUILD=(1:%01,08:%02,20:%03,30:%04)
WER268A OUTFIL STATEMENT : SYNTAX ERROR

currently we have Z/OS V1 R7 and does this commands work on this version or V1 R8 on wards.. Just a doubt.

I used ICEMAN instead of SORT but still same above message.

Gnanas N · Posted: Wed Mar 26, 2008 11:19 am

Have DFSORT been installed in your shop?

HappySrinu · Active User Joined: 22 Jan 2008 Posts: 194 Location: India

Guess you are right.
We got SYNCSORT and thats the reason not able to run PARSE commands .

Any alternative to use similar commands in SYSNCSORT

HappySrinu · Active User Joined: 22 Jan 2008 Posts: 194 Location: India

yes Gnanas, I tried in another lpar which have DFSORT and it worked fine with minor changes control cards.

Thanks to you and Frank for helping me

Anuj Dhawan · Posted: Wed Mar 26, 2008 1:12 pm

Hi,

Joining the party pretty late...

Well, WERXXX are meant for SyncSort & ICEXXX are meant for DFSORT.

From one of your (Srinu) previous post, SYSOUT messages

HappySrinu · Active User Joined: 22 Jan 2008 Posts: 194 Location: India

Thats a good tip Anuj, Thanks

I am facing another problem with csv input file..
My input file is CSV from one of the reports i do run to get
it's details are
DCB=(RECFM=VB,LRECL=4092,BLKSIZE=4096,DSORG=PS),

I am planing to write out put in FBA file..
DCB=(RECFM=FBA,LRECL=133,BLKSIZE=2660,DSORG=PS),

Input data :
"test id","test NAME","test NAME1","test NAME2","test ID",
"0","sri","srini","srinivas","7",

Out put should be like..
Test ID TESTNAME TEST NAME1 TEST NAME2 TEST ID
0 SRI SRINI SRINIVAS 7

when I run using control cards...

OPTION TRUNC=RC0,COPY
OUTFIL PARSE=(%01=(ENDBEFR=C',',FIXLEN=3),
%02=(ENDBEFR=C',',FIXLEN=5),
%03=(ENDBEFR=C',',FIXLEN=8),
%04=(ENDBEFR=C',',FIXLEN=8),
%05=(ENDBEFR=C',',FIXLEN=3)),
BUILD=(5:%01,10:%02,20:%03,30:%04,40:%05)

error message i am facing as shown below..
ICE201I E RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE126A 9 INCONSISTENT SORTOUT IFTHEN 0 REFORMATTING FIELD FOUND

any suggestions

Frank Yaeger · Posted: Wed Mar 26, 2008 9:28 pm

You can use a DFSORT job like the following to do what you want. However, your FIXLEN values and c: values are inconsistent with the fields you are trying to extract. For example, for %01 you have FIXLEN=3 and 5:%01,10: but since "Test ID" is 9 bytes long, that's too small for it. And if you're trying to remove the quotes, you need the correct PARSE operands to do that (e.g.

%01=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=10),
%02=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=10),
...

HappySrinu · Active User Joined: 22 Jan 2008 Posts: 194 Location: India

Frank,
Thanks for your info..
I tried using same card same you given as example..

got below error

Frank Yaeger · Posted: Thu Mar 27, 2008 8:58 pm

Sigh.

Alissa Margulies · Posted: Fri Mar 28, 2008 9:12 pm