|
View previous topic :: View next topic
|
| Author |
Message |
subramanianup
Warnings : 1
New User
Joined: 18 May 2005
Posts: 46
Location: Bangalore, INDIA
|
|
|
|
| I have input file first field is Purchase Order No having 9(7) comp-3, i need to find all Purchase order endwith '78' and put it into new file. Can any help me how to write sort card for this? |
|
| Back to top |
|
 |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
A 9(7) comp-3 field is a 4-byte PD field. If you're looking for it to end with 78, then you're actually looking for values like this X'ddddd78s'. I'll assume your 4-byte PD field starts in position 1. Here's a DFSORT job to do what you asked for:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
OPTION COPY
INCLUDE COND=(3,2,PD0,EQ,X'78')
/*
|
|
|
| Back to top |
|
|
spriya
New User
Joined: 06 Oct 2005
Posts: 42
|
|
|
|
hi frank
can u explain me without using icetool.can v use sort
fr this pls give clear code
which it is helpfull fr me |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
| Quote: |
can u explain me without using icetool.can v use sort
fr this pls give clear code
which it is helpfull fr me |
Huh? I gave you a DFSORT (sort) job, not an ICETOOL job. What is it you're asking? |
|
| Back to top |
|
|
|
|
