Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
ICETOOL to bring all records from col 72-80

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
ehrocha

New User


Joined: 26 Nov 2008
Posts: 7
Location: Brazil

PostPosted: Wed Sep 16, 2009 7:50 pm    Post subject: ICETOOL to bring all records from col 72-80
Reply with quote

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
View user's profile Send private message

Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1544
Location: Andromeda Galaxy

PostPosted: Wed Sep 16, 2009 8:52 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ehrocha

New User


Joined: 26 Nov 2008
Posts: 7
Location: Brazil

PostPosted: Wed Sep 16, 2009 9:12 pm    Post subject:
Reply with quote

Not at all, I want to list anything that appears on columns 72-80
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Sep 16, 2009 9:50 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Extract the records with a PD field's... sudhakar84 DFSORT/ICETOOL 11 Mon Apr 02, 2018 7:26 pm
No new posts Merge 2 records sancraig16 SYNCSORT 19 Tue Mar 27, 2018 8:17 pm
No new posts Copy set of records based on condition krish.deepu SYNCSORT 2 Thu Mar 08, 2018 11:39 am
No new posts add sequence number for duplicate rec... SRUTHI DRAVIDAMANI COBOL Programming 11 Thu Feb 22, 2018 5:37 pm
No new posts how to add the amount for duplicate r... SRUTHI DRAVIDAMANI COBOL Programming 6 Wed Feb 21, 2018 7:21 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us