Ron, 

That is a round about way to get the desired results. why do you need to 
convert the entire record to upper case?

You just simply need to CAPS off when typing "Dropped" in your control 
cards and that should have given you the desired results without you 
performing the case conversion. Here is an example of retrieving the 
records when the LRECL is 80 bytes. Notice how Dropped is typed in Mixed 
case.

//STEP0100 EXEC PGM=SORT 
//SYSOUT   DD SYSOUT=* 
//SORTIN   DD * 
00000003~94800.00~USD~Process~Submitted~~F00000 
00000004~15640.00~USD~Process~Submitted~~F00000 
00000005~27200.00~USD~Process~Submitted~~PS0323 
00000006~2193.00~USD~Process~Submitted~~USHSR1~ 
00178909~750.00~USD~Process~Dropped~Invalid Buyer 
//SORTOUT  DD SYSOUT=* 
//SYSIN    DD * 
  OPTION COPY 
  INCLUDE COND=(1,80,SS,EQ,C'Dropped') 
//* 



Thanks,
Kolusu
DFSORT Development
IBM Corporation

IBM Mainframe Discussion List <[email protected]> wrote on 
02/07/2017 08:57:03 AM:

> From: Ron Thomas <[email protected]>
> To: [email protected]
> Date: 02/07/2017 08:57 AM
> Subject: Re: DFSORT Extract records
> Sent by: IBM Mainframe Discussion List <[email protected]>
> 
> Ok i have translated the whole to Uppercase  as below  and then 
> extracted the records .
> SORT FIELDS=COPY
> OUTREC FIELDS=(1:1,2996,TRAN=LTOU)
> 
> Thanks
> Ron T
> 
> ----------------------------------------------------------------------
> 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