IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

IFTHEN problem


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ap_mainframes

Active User


Joined: 29 Dec 2005
Posts: 181
Location: Canada

PostPosted: Tue Jun 06, 2006 12:55 pm
Reply with quote

Hi,
This is the first time I am using IFTHEN.
I went thru the manuals , but could not find anything substantial.
I am getting S001 abend when I try to run the following ICETOOL.
All I want to do is replace the spaces which are at 19th byte with **.Also can anybody please give the document which explains all possible syntax of IFTHEN,OVERLAY,BUILD ?????
Code:

//S2 EXEC PGM=ICETOOL
//TOOLMSG1 DD SYSOUT=*
//DFSMSG1 DD SYSOUT=*
//SORTIN DD DSN=XXXXXXXXXXX,DISP=SHR
//OUT12 DD  SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//TOOLIN DD SYSOUT=*
//SYSIN DD *
  OPTION COPY
  OUTFIL FNAMES=OUT12,
    IFTHEN=(WHEN=(19,2,EQ,C'  '),OVERLAY=(19:2C'*'))
/*
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


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

PostPosted: Tue Jun 06, 2006 8:56 pm
Reply with quote

Hmmm ... I don't know what doc you were looking at, but you seem to have mixed up an ICETOOL job with a DFSORT job to the point that you have neither one. For example, you have PGM=ICETOOL, with a //SYSIN for the control statements, and //TOOLIN DD SYSOUT=* which makes no sense.

A correct DFSORT job would be:

Code:

//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=XXXXXXXXXXX,DISP=SHR
//OUT12 DD  SYSOUT=*
//SYSIN DD *
  OPTION COPY
  OUTFIL FNAMES=OUT12,
    IFTHEN=(WHEN=(19,2,CH,EQ,C'  '),OVERLAY=(19:2C'*'))
/*


A correct ICETOOL job would be:

Code:

//S2    EXEC PGM=ICETOOL                                 
//TOOLMSG   DD SYSOUT=*                                   
//DFSMSG    DD SYSOUT=*
//IN DD DSN=XXXXXXXXXXX,DISP=SHR
//OUT12 DD  SYSOUT=*                                     
//TOOLIN DD *                                             
COPY FROM(IN) USING(CTL1)                                 
//CTL1CNTL DD *                                           
  OUTFIL FNAMES=OUT12,                                   
    IFTHEN=(WHEN=(19,2,CH,EQ,C'  '),OVERLAY=(19:2C'*'))
/*   


Quote:
I went thru the manuals , but could not find anything substantial.


Complete documentation for IFTHEN is covered in the "OUTFIL Control Statements" section of "z/OS V1R6 DFSORT Application Programming Guide" which you can access at:

Use [URL] BBCode for External Links

Alternatively, you can find complete details on IFTHEN in my paper on the Dec, 2004 DFSORT/ICETOOL PTF enhancements at:

Use [URL] BBCode for External Links

And, of course, there are many examples of using IFTHEN in this Forum which you could find by doing a search on "IFTHEN".
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts z/vm installation problem All Other Mainframe Topics 0
No new posts Job scheduling problem. JCL & VSAM 9
No new posts Problem with IFTHEN=(WHEN=GROUP,BEGIN... DFSORT/ICETOOL 5
No new posts Need to add field to copybook, proble... COBOL Programming 14
Search our Forums:

Back to Top