|
View previous topic :: View next topic
|
| Author |
Message |
vpalanivelu
New User
Joined: 24 Feb 2009
Posts: 14
Location: chennai
|
|
|
|
Hi,
There is a Input File Lrecl-80, FB. If it has any low-value and space together I gotta fetch the record. Suppose 1st position having low-value , 2nd position having space. Else 2nd low-value and 3rd-space .. 49 -low-value and 50-space.. etc Then I gotta fetch the record.
Please help |
|
| Back to top |
|
 |
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
I'm assuming X'00" is the low value, try this
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT-FILE,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INCLUDE COND=(1,80,SS,EQ,X'4000',OR,
1,80,SS,EQ,X'0040')
/*
|
Gerry |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Vaasuki,
From your description, it sounds like you want to include records that have X'0040' anywhere in the record (and not X'4000'), so the DFSORT job would be:
| Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
OPTION COPY
INCLUDE COND=(1,80,SS,EQ,X'0040')
/*
|
|
|
| Back to top |
|
|
vpalanivelu
New User
Joined: 24 Feb 2009
Posts: 14
Location: chennai
|
|
|
|
Frank,
you are exactly right . Dankq  |
|
| Back to top |
|
|
|
|
