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
 

 

DFOSRT - Parse & Split the CSV file to multiple ouputs
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
suyerasi

New User


Joined: 05 Apr 2007
Posts: 38
Location: india

PostPosted: Mon Feb 09, 2009 9:10 am    Post subject: DFOSRT - Parse & Split the CSV file to multiple ouputs
Reply with quote

Hi,

My requirement is to parse & split the below input csv file (vb) by removing double quotes & comma and also each ouput file should have only detail records for current,MTD & YTD.


>>> Current-Date 20081130 TA <<< ** This is header record
"000000001203802","CXX HS EF 038C52464","988606108",0,0,
>>> Month-to-Date 20081031 TA <<< ** This is header record ***
"000000001103802","CYY HS AB 038C52464","304412209",0,0,
"000000001003802","CZZ HS CD 038C52464","65671D857",0,0,
>>> Year-to-Date 20081031 TA <<< ** This is header record
"000000001903802","DXY HS ZZ 038C52464","135671857",0,0,
"000000001503802","EXY HS YY 038C52464","25671D857",0,0,

I was able to parse the file & remove the double quotes. But could not split the file .
Any help is appreciated in this regard.

Thanks
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: Mon Feb 09, 2009 11:07 pm    Post subject:
Reply with quote

It's not clear what you want to do. I assume those are the input records you're showing. Please show the expected output file(s). Explain the "rules" for getting from input to output. Give the RECFM and LRECL of the input file and output file(s).

Quote:
I was able to parse the file & remove the double quotes.


Show the job you used for that.
Back to top
View user's profile Send private message
suyerasi

New User


Joined: 05 Apr 2007
Posts: 38
Location: india

PostPosted: Tue Feb 10, 2009 12:35 am    Post subject: Reply to: DFOSRT - Parse & Split the CSV file to multipl
Reply with quote

Hi Frank,

Your assumption is correct . what i had shown is the input file(lrecl=996, recfm=vb) which has 3 headers and corresponding detail records under each header. I am expecting 3 output files(lrecl=996,recfm=vb) as mentioned below from the input file

output1 - should contain the following from Today file
000000001203802 CXX HS EF 038C52464 988606108 0 0

output2 - should contain the following from Month-to-Date file
000000001103802 CYY HS AB 038C52464 304412209 0 0
000000001003802 CZZ HS CD 038C52464 65671D857 0 0

output3 - should contain the following from Year-to-date file
000000001903802 DXY HS ZZ 038C52464 135671857 0 0
000000001503802 EXY HS YY 038C52464 25671D857 0 0

So far i could code the following. But i want to split into 3 outputs

ALTSEQ CODE=(7F40)
INREC PARSE=(%01=(ABSPOS=5,ENDBEFR=C',',FIXLEN=17),
%02=(ENDBEFR=C',',FIXLEN=27),
%03=(ENDBEFR=C',',FIXLEN=11),
%04=(ENDBEFR=C',',FIXLEN=08),
%05=(ENDBEFR=C',',FIXLEN=05)),
BUILD=(1,4,
5:%01,
22:%02,
49:%03,
60:%04,
68:%05,
996:X)
SORT FIELDS=COPY
OUTREC OVERLAY=(5:5,996,TRAN=ALTSEQ)

Thanks in advance for your help
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: Tue Feb 10, 2009 12:55 am    Post subject:
Reply with quote

FINDREP is a better choice for this then PARSE. Here's a DFSORT job that will do what you asked for. If you don't have PTF UK90013 (July, 2008) that supports FINDREP, ask your System Programmer to install it.

Code:

//S1    EXEC  PGM=SORT
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file (VB)
//OUT1 DD DSN=...   output file1 (VB)
//OUT2 DD DSN=...   output file2 (VB)
//OUT3 DD DSN=...   output file3 (VB)
//SYSIN    DD    *
  OPTION COPY
  INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,6:5)),
   IFTHEN=(WHEN=GROUP,
     BEGIN=(6,3,CH,EQ,C'>>>'),PUSH=(5:ID=1)),
   IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
    FINDREP=(INOUT=(C'"',C'',C',',C' ')))
  OUTFIL FNAMES=OUT1,
    INCLUDE=(5,1,CH,EQ,C'1',AND,6,3,CH,NE,C'>>>'),
    BUILD=(1,4,6)
  OUTFIL FNAMES=OUT2,
    INCLUDE=(5,1,CH,EQ,C'2',AND,6,3,CH,NE,C'>>>'),
    BUILD=(1,4,6)
 OUTFIL FNAMES=OUT3,
   INCLUDE=(5,1,CH,EQ,C'3',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
/*
Back to top
View user's profile Send private message
suyerasi

New User


Joined: 05 Apr 2007
Posts: 38
Location: india

PostPosted: Wed Feb 11, 2009 12:16 am    Post subject: Reply to: DFOSRT - Parse & Split the CSV file to multipl
Reply with quote

Dear Frank,

Thanks for your reply. It worked perfectly . But i have one more addition to it.Before i write the input records to the output, i would like to assign fixed lengths to some of the fields.
For example , i want field2 from input to be moved to 17 byte length
& field4 from input should be moved to 8 byte length .
Please let me know.

Thanks
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 Feb 11, 2009 12:29 am    Post subject:
Reply with quote

It isn't clear to me what you want. Please show the expected output records for your example input records. Use ubb code tags to show the output properly (or use b for each blank if you can't use ubb tags).
Back to top
View user's profile Send private message
suyerasi

New User


Joined: 05 Apr 2007
Posts: 38
Location: india

PostPosted: Wed Feb 11, 2009 1:31 am    Post subject: Reply to: DFOSRT - Parse & Split the CSV file to multipl
Reply with quote

Dear Frank ,

For example, I am expecting the following output for the detail records under Month-to-date header in input file.
000000001103802 CYS HS AB 038C52464bbbbb 304412209 0bbbbbbb 0bbbb
000000001003802 CZZ HS CD 038C52464bbbbb 65671D857 0bbbbbbb 0bbbb

Please let me know if i am clear to you.

Thanks
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 Feb 11, 2009 2:48 am    Post subject:
Reply with quote

I still can't tell what your output record is supposed to look like exactly.

But it seems all you're trying to do is reformat the output records, so you just need to change the BUILD operand to do that, e,g,

Code:

  BUILD=(1,39,46:41,9,...) 
Back to top
View user's profile Send private message
suyerasi

New User


Joined: 05 Apr 2007
Posts: 38
Location: india

PostPosted: Wed Feb 11, 2009 3:18 am    Post subject: Reply to: DFOSRT - Parse & Split the CSV file to multipl
Reply with quote

Dear Frank,

Thanks a lot. You are right i just wanted to reformat the output records after doing findrep & eliminating the header records.


Thanks
Back to top
View user's profile Send private message
suyerasi

New User


Joined: 05 Apr 2007
Posts: 38
Location: india

PostPosted: Wed Feb 11, 2009 3:39 am    Post subject: Reply to: DFOSRT - Parse & Split the CSV file to multipl
Reply with quote

Dear Frank,

Sorry for not being clear what i wanted. Here is what i am looking for.

My input with recfm=vb & lrecl=996 looks like this

"000000001113802","Bank of America","088606108",0
"000000001103802","HSBC","204412209",0

and my output with recfm=vb & lrecl=996 should be as follows

<-15 bytes------->b<---25 bytes------>b<----9 bytes>b<--8bytes-->
000000001113802 Bank of Americabbb 088606108 0bbbbbbb
000000001103802 HSBCbbbbbbbbbbbb 204412209 0bbbbbb

Hope this time i am clear.


Thanks
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 Feb 11, 2009 4:32 am    Post subject:
Reply with quote

Here's a DFSORT job that will do what I think you're asking for:

Code:

//S1    EXEC  PGM=SORT
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file (VB)
//OUT1 DD DSN=...   output file1 (VB)
//OUT2 DD DSN=...   output file2 (VB)
//OUT3 DD DSN=...   output file3 (VB)
//SYSIN    DD    *
 OPTION COPY
 INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,6:5)),
  IFTHEN=(WHEN=GROUP,
    BEGIN=(6,3,CH,EQ,C'>>>'),PUSH=(5:ID=1)),
  IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
   FINDREP=(INOUT=(C'"',C'')),HIT=NEXT),
  IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
    PARSE=(%01=(ABSPOS=6,ENDBEFR=C',',FIXLEN=16),
       %02=(ENDBEFR=C',',FIXLEN=26),
       %03=(ENDBEFR=C',',FIXLEN=10),
       %04=(FIXLEN=8)),
    BUILD=(1,5,%01,%02,%03,%04))
 OUTFIL FNAMES=OUT1,
   INCLUDE=(5,1,CH,EQ,C'1',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
 OUTFIL FNAMES=OUT2,
   INCLUDE=(5,1,CH,EQ,C'2',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
 OUTFIL FNAMES=OUT3,
   INCLUDE=(5,1,CH,EQ,C'3',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
/*
Back to top
View user's profile Send private message
suyerasi

New User


Joined: 05 Apr 2007
Posts: 38
Location: india

PostPosted: Thu Feb 12, 2009 10:38 pm    Post subject: Reply to: DFOSRT - Parse & Split the CSV file to multipl
Reply with quote

Hi Frank,

Excellent !! . The solution worked fine
Appreciated for your effort & the time spent on my query.

Thanks
Back to top
View user's profile Send private message
suyerasi

New User


Joined: 05 Apr 2007
Posts: 38
Location: india

PostPosted: Fri Feb 20, 2009 1:20 am    Post subject:
Reply with quote

Dear Frank,

I would like to convert one of the field to ZD before it is being written to output. I made some changes to the code provided by you . It is giving error. Could you please correct me?

Code:
//S1    EXEC  PGM=SORT
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file (VB)
//OUT1 DD DSN=...   output file1 (VB)
//OUT2 DD DSN=...   output file2 (VB)
//OUT3 DD DSN=...   output file3 (VB)
//SYSIN    DD    *
 OPTION COPY
 INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,6:5)),
  IFTHEN=(WHEN=GROUP,
    BEGIN=(6,3,CH,EQ,C'>>>'),PUSH=(5:ID=1)),
  IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
   FINDREP=(INOUT=(C'"',C'')),HIT=NEXT),
  IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
    PARSE=(%01=(ABSPOS=6,ENDBEFR=C',',FIXLEN=16),
       %02=(ENDBEFR=C',',FIXLEN=26),
       %03=(ENDBEFR=C',',SFF,TO=ZD,LENGTH=10), ===> Changed 
       %04=(FIXLEN=8)),
    BUILD=(1,5,%01,%02,%03,%04))
 OUTFIL FNAMES=OUT1,
   INCLUDE=(5,1,CH,EQ,C'1',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
 OUTFIL FNAMES=OUT2,
   INCLUDE=(5,1,CH,EQ,C'2',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
 OUTFIL FNAMES=OUT3,
   INCLUDE=(5,1,CH,EQ,C'3',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
/*
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: Fri Feb 20, 2009 1:46 am    Post subject:
Reply with quote

Code:

      %03=(ENDBEFR=C',',SFF,TO=ZD,LENGTH=10), ===> Changed 


That's invalid syntax. You can't do the conversion while parsing. You need to do the conversion while building. The correct control statements would be:

Code:

 OPTION COPY
 INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,6:5)),
  IFTHEN=(WHEN=GROUP,
    BEGIN=(6,3,CH,EQ,C'>>>'),PUSH=(5:ID=1)),
  IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
   FINDREP=(INOUT=(C'"',C'')),HIT=NEXT),
  IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
    PARSE=(%01=(ABSPOS=6,ENDBEFR=C',',FIXLEN=16),
       %02=(ENDBEFR=C',',FIXLEN=26),
       %03=(ENDBEFR=C',',FIXLEN=10),     <--- no change
       %04=(FIXLEN=8)),
    BUILD=(1,5,%01,%02,%03,SFF,TO=ZD,LENGTH=10,%04))  <--changed
 OUTFIL FNAMES=OUT1,
   INCLUDE=(5,1,CH,EQ,C'1',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
 OUTFIL FNAMES=OUT2,
   INCLUDE=(5,1,CH,EQ,C'2',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
 OUTFIL FNAMES=OUT3,
   INCLUDE=(5,1,CH,EQ,C'3',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
Back to top
View user's profile Send private message
suyerasi

New User


Joined: 05 Apr 2007
Posts: 38
Location: india

PostPosted: Fri Feb 20, 2009 2:25 am    Post subject: Reply to: DFOSRT - Parse & Split the CSV file to multipl
Reply with quote

Frank,

Thanks for your quick response on this.
Back to top
View user's profile Send private message
suyerasi

New User


Joined: 05 Apr 2007
Posts: 38
Location: india

PostPosted: Fri Feb 27, 2009 1:36 am    Post subject: Reply to: DFSORT - Parse & Split the CSV file to multipl
Reply with quote

Dear Frank,

In the example below , i would like to have the sorted output files (vb) on the first 16 bytes. Sort statement has been included but it shows syntax error. Could you please let me know where i can include the sort statement to sort the output?

Code:
OPTION COPY
 INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,6:5)),
  IFTHEN=(WHEN=GROUP,
    BEGIN=(6,3,CH,EQ,C'>>>'),PUSH=(5:ID=1)),
  IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
   FINDREP=(INOUT=(C'"',C'')),HIT=NEXT),
  IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
    PARSE=(%01=(ABSPOS=6,ENDBEFR=C',',FIXLEN=16),
       %02=(ENDBEFR=C',',FIXLEN=26),
       %03=(ENDBEFR=C',',FIXLEN=10),     
       %04=(FIXLEN=8)),
    BUILD=(1,5,%01,%02,%03,SFF,TO=ZD,LENGTH=10,%04)) 
 OUTFIL FNAMES=OUT1,
   INCLUDE=(5,1,CH,EQ,C'1',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
   SORT FIELDS=(6,16,CH,A) ==> Added here
 OUTFIL FNAMES=OUT2,
   INCLUDE=(5,1,CH,EQ,C'2',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
   SORT FIELDS=(6,16,CH,A) ==> Added here
 OUTFIL FNAMES=OUT3,
   INCLUDE=(5,1,CH,EQ,C'3',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
   SORT FIELDS=(6,16,CH,A)  ==> Added here
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: Fri Feb 27, 2009 2:01 am    Post subject:
Reply with quote

When I ran your job, the only message I got was:

ICE002I 0 DUPLICATE OR CONFLICTING SORT STATEMENT

That's not a syntax error - it's just a warning that you have multiple SORT statements.

You can only have one SORT statement and since you are sorting on the same keys for each of the OUTFIL data sets, you only need one SORT statement. However, you left in the OPTION COPY statement so you'll get a COPY rather than a SORT (COPY overrides SORT).

You can use these control statements. The records will be sorted on positions 6-21 of the reformatted INREC records - I assumed that's what you wanted, but I wasn't sure. (I put the SORT statement between the INREC statement and OUTFIL statements to correspond to the order in which the statements are processed - where you put the statements has no effect on that processing order).

Code:

 INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,6:5)),
  IFTHEN=(WHEN=GROUP,
    BEGIN=(6,3,CH,EQ,C'>>>'),PUSH=(5:ID=1)),
  IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
   FINDREP=(INOUT=(C'"',C'')),HIT=NEXT),
  IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
    PARSE=(%01=(ABSPOS=6,ENDBEFR=C',',FIXLEN=16),
       %02=(ENDBEFR=C',',FIXLEN=26),
       %03=(ENDBEFR=C',',FIXLEN=10),
       %04=(FIXLEN=8)),
    BUILD=(1,5,%01,%02,%03,SFF,TO=ZD,LENGTH=10,%04))
 SORT FIELDS=(6,16,CH,A)  ==> Added here
 OUTFIL FNAMES=OUT1,
   INCLUDE=(5,1,CH,EQ,C'1',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
 OUTFIL FNAMES=OUT2,
   INCLUDE=(5,1,CH,EQ,C'2',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
 OUTFIL FNAMES=OUT3,
   INCLUDE=(5,1,CH,EQ,C'3',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
Back to top
View user's profile Send private message
suyerasi

New User


Joined: 05 Apr 2007
Posts: 38
Location: india

PostPosted: Fri Feb 27, 2009 3:09 am    Post subject: Reply to: DFOSRT - Parse & Split the CSV file to multipl
Reply with quote

Dear Frank,

Thanks for your quick reply . But I am getting an error in the following sort control statements . Could you please identify the problem?

Code:
INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,6:5)),
   IFTHEN=(WHEN=GROUP,
     BEGIN=(6,3,CH,EQ,C'>>>'),PUSH=(5:ID=1)),
   IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
    FINDREP=(INOUT=(C'"',C'')),HIT=NEXT),
   IFTHEN=(WHEN=(6,3,CH,NE,C'>>>'),
   PARSE=(%01=(ABSPOS=6,ENDBEFR=C',',FIXLEN=15),
       %02=(ENDBEFR=C',',FIXLEN=26),
       %03=(ENDBEFR=C',',FIXLEN=25),
       %04=(ENDBEFR=C',',FIXLEN=06),
       %05=(ENDBEFR=C',',FIXLEN=08),
       %06=(ENDBEFR=C',',FIXLEN=18),
       %07=(ENDBEFR=C',',FIXLEN=10),
       %08=(ENDBEFR=C',',FIXLEN=17),
       %09=(ENDBEFR=C',',FIXLEN=17),
       %10=(ENDBEFR=C',',FIXLEN=17),
       %11=(ENDBEFR=C',',FIXLEN=17),
       %12=(ENDBEFR=C',',FIXLEN=17),
       %13=(ENDBEFR=C',',FIXLEN=17),
       %14=(ENDBEFR=C',',FIXLEN=17),
       %15=(ENDBEFR=C',',FIXLEN=17),
    %16=(ENDBEFR=C',',FIXLEN=04),
    %17=(ENDBEFR=C',',FIXLEN=04),
    %18=(ENDBEFR=C',',FIXLEN=04),
    %19=(ENDBEFR=C',',FIXLEN=04)),
 BUILD=(1,5,
    6:%01,
   21:%02,
   47:%03,
   72:%04,
   78:%05,
   86:%06,SFF,TO=ZD,LENGTH=18,
  104:%07,
  114:%08,SFF,TO=ZD,LENGTH=17,
  131:%09,SFF,TO=ZD,LENGTH=17,
  148:%10,SFF,TO=ZD,LENGTH=17,
  165:%11,SFF,TO=ZD,LENGTH=17,
  182:%12,SFF,TO=ZD,LENGTH=17,
  199:%13,SFF,TO=ZD,LENGTH=17,
  216:%14,SFF,TO=ZD,LENGTH=17,
  233:%15,SFF,TO=ZD,LENGTH=17,
    250:%16,
    254:%17,
    258:%18,
    262:%19))
 SORT FIELDS=(6,15,CH,A,262,4,CH,A)
 OUTFIL FNAMES=OUT1,
   INCLUDE=(5,1,CH,EQ,C'1',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)
 OUTFIL FNAMES=OUT2,
   INCLUDE=(5,1,CH,EQ,C'2',AND,6,3,CH,NE,C'>>>'),
   BUILD=(1,4,6)


Following are the statements shown after the job is run
Code:

ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
ICE750I 0 DC 27994 TC 0 CS DSVNN KSZ 23 VSZ 23
ICE752I 0 FSZ=27994 BC  IGN=0 E  AVG=501 0  WSP=35 C  DYN=2 56664
ICE218A 3 84 BYTE VARIABLE RECORD IS SHORTER THAN 261 BYTE MINIMUM FOR
ICE751I 1 D8-K24705 D4-K24705 E8-K90013
ICE052I 0 END OF DFSORT
Back to top
View user's profile Send private message
suyerasi

New User


Joined: 05 Apr 2007
Posts: 38
Location: india

PostPosted: Fri Feb 27, 2009 3:29 am    Post subject:
Reply with quote

Dear Frank,

Please ignore the informational messages shown in my previous note .Consider the informational messages shown below
Code:
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
ICE750I 0 DC 27994 TC 0 CS DSVNN KSZ 23 VSZ 23
ICE752I 0 FSZ=27994 BC  IGN=0 E  AVG=501 0  WSP=35 C  DYN=2 56664
ICE218A 3 84 BYTE VARIABLE RECORD IS SHORTER THAN 265 BYTE MINIMUM FOR
ICE751I 1 D8-K24705 D4-K24705 E8-K90013
ICE052I 0 END OF DFSORT
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: Fri Feb 27, 2009 3:32 am    Post subject:
Reply with quote

I don't see how you got that error message for that job. They don't match. Please check that.

If you are getting those error messages for that set of control statements, I'd need to see the source for your job and the complete set of JES messages, and DFSORT messages in //SYSOUT, for the run. Please send them to me offline (yaeger@us.ibm.com).
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
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm


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