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: 1542
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 sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Addition of two records on 2 fields amar143 SYNCSORT 8 Tue Oct 03, 2017 11:14 am
No new posts Difference in SORT & ICETOOL Mohan Kothakota DFSORT/ICETOOL 5 Fri Sep 22, 2017 4:56 pm
No new posts Join records from 2 files with No Dup... Poha Eater DFSORT/ICETOOL 22 Sun Aug 27, 2017 10:35 pm
No new posts Multiple VSAM files single output fil... Mohan Kothakota DFSORT/ICETOOL 11 Wed Aug 09, 2017 7:57 pm

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