Page 1 of 1

A curiosity question.

PostPosted: Thu Aug 13, 2009 1:37 am
by ranga_subham
Hi,

With IFTHEN=WHEN I could achieve the below output easiy.

Sort Card:
//SYSIN    DD  *                                     
 SORT FIELDS=COPY                                     
 INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'A'),OVERLAY=(20:1,4))


Output:
ADDD               ADDD
BBBB                   
ACCC               ACCC
AAAA               AAAA
DDDD                   
ACCC               ACCC


Input:
//SORTIN   DD *
ADDD           
BBBB           
ACCC           
AAAA           
DDDD           
ACCC           


What would be the SORT card if I do not want to use IFTHEN=WHEN.

Thanks.

Re: A curiosity question.

PostPosted: Thu Aug 13, 2009 2:36 am
by dick scherrer
Hello,

You could always write real code. . .