Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

IFTHEN problem

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: IFTHEN problem
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 Moderator


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

PostPosted: Tue Jun 06, 2006 8:56 pm    Post subject:
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:

www.ibm.com/servers/storage/support/software/sort/mvs/srtmpub.html

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

www.ibm.com/servers/storage/support/software/sort/mvs/pdug/

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    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 SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm
No new posts DB2 Streaming Batch Processing Problem Manshadi DB2 4 Sat Sep 24, 2016 12:14 pm
No new posts Problem with GETMAIN command amitc23 CICS 6 Thu Sep 01, 2016 1:01 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us