View previous topic :: View next topic
|
Author |
Message |
ehrocha
New User
Joined: 26 Nov 2008 Posts: 7 Location: Brazil
|
|
|
|
He everyone, I'm using the following code to try to extract all the records that are on COL72 through COL80 but instead, it shows me the whole File.
Any Ideas ?
Code: |
//ICECOMPR EXEC PGM=ICETOOL
//INDD DD DSN=TEST.TEXT,DISP=SHR,DCB=(RECFM=FB)
//OUTDD DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//TOOLIN DD *
COPY FROM(INDD) TO(OUTDD) USING(CTL1)
/*
//CTL1CNTL DD *
INCLUDE COND=(72,9,CH,NE,C' ')
/*
//DFSMSG DD SYSOUT=*
//SYSOUT DD SYSOUT=* |
|
|
Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006 Posts: 1592 Location: Andromeda Galaxy
|
|
|
|
Hi,
Is there any filter condition?
Code: |
INCLUDE COND=(72,9,CH,NE,C' ')
|
will get the records which are not equal to space |
|
Back to top |
|
|
ehrocha
New User
Joined: 26 Nov 2008 Posts: 7 Location: Brazil
|
|
|
|
Not at all, I want to list anything that appears on columns 72-80 |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
When I run your job with this input:
Code: |
RECORD 1 NO
RECORD 2 YES Y
RECORD 3 YES YY
RECORD 4 NO
|
I get this output:
Code: |
RECORD 2 YES Y
RECORD 3 YES YY
|
So I don't understand what you mean by "it shows me the whole File".
Did you just want to list out columns 72-80 for the selected records? If so, you need to add:
Code: |
OUTREC BUILD=(72,9)
|
If you want something else, you need to explain in more detail and show an example of your input records, expected output records and actual output records. |
|
Back to top |
|
|
|