That works!  Don't even need the VLSCMP,VLSHRT options because you're just 
looking at the first two bytes.  Didn't even occur to me to do this to look at 
the record length.  Thanks!

Frank



________________________________
 From: Sri h Kolusu <[email protected]>
To: [email protected] 
Sent: Tuesday, July 1, 2014 12:59 PM
Subject: Re: copy omiting blank lines
 

Frank,

You can use the following DFSORT control cards to omit records with short 
length then the key length of 13. (9 + 4 bytes RDW)

//SYSIN    DD * 
  OPTION VLSCMP,VLSHRT 
  OMIT COND=(1,2,BI,LE,13) 
  SORT FIELDS=(5,9,CH,A) 
//* 

Further if you have any questions please let me know

Thanks,
Kolusu
DFSORT Development
IBM Corporation

IBM Mainframe Discussion List <[email protected]> wrote on 
07/01/2014 11:42:46 AM:

> From: Frank Swarbrick <[email protected]>
> To: [email protected], 
> Date: 07/01/2014 11:43 AM
> Subject: copy omiting blank lines
> Sent by: IBM Mainframe Discussion List <[email protected]>
> 
> We have a file that is uploaded in to a VB sequential file.  We then
> copy it to a KSDS.  The input file should be in key order (first 9 
> bytes), but lately its been created (not sure how at this time!) 
> occasionally with blank lines.  I'm thinking to use DFSORT to omit 
> the blank lines (lines with LRECL=0), but I can't quite get it 
> working.  I've tried using VLSHRT and VLSCMP in various combinations
> and haven't hit upon the correct parameters to specify.  Anyone have
> any thoughts?
> 
> 
> It doesn't have to be DFSORT necessarily.  Could be IEBGENER or 
> DITTO.  But I figured DFSORT would be the most likely tool to have 
> the option I'm looking for.
> 
> Thanks,
> Frank
> FirstBank,
> 
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN



> 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to