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
 

 

Negative value used in IFTHEN

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

New User


Joined: 27 Aug 2006
Posts: 41
Location: Taiwan

PostPosted: Tue Aug 04, 2015 2:12 pm    Post subject: Negative value used in IFTHEN
Reply with quote

I am trying to comparing two items and reformat the output based on the result.

The ICETOOL statements :
Code:
//S1 EXEC PGM=ICETOOL                                                   
//TOOLMSG   DD  SYSOUT=*                                               
//DFSMSG    DD  SYSOUT=*                                               
//T0 DD DSN=&&T0,DISP=(,PASS),SPACE=(TRK,(5,5)),UNIT=SYSDA             
//T1 DD DSN=&&T1,DISP=(,PASS),SPACE=(TRK,(5,5)),UNIT=SYSDA             
//IN        DD *                                                       
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
00095    00100                                                         
/*                                                                     
//TOOLIN DD *                                                           
  COPY FROM(IN) TO(T0) USING(CTL0)                                     
  COPY FROM(TO) TO(T1) USING(CTL1)                                     
/*                                                                     
//CTL0CNTL DD *                                                         
  OPTION COPY                                                           
  OUTFILE BUILD=(1:1,5,ZD,SUB,10,5,ZD,M26,LENGTH=5,80:X) 
/*                                                       
//CTL1CNTL DD *                                           
  OUTFIL IFTHEN(WHEN=(1,5,ZD,LE,0),                       
           BUILD=(C'AAA'))                               
/*                                                       


The content of the result
Code:
   Menu  Utilities  Compilers  Help                                             
  BROWSE    NBSDDSN2.TEMP.X102.SAMF                    Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> PAGE
********************************* Top of Data **********************************
00005                                                                           
******************************** Bottom of Data ********************************


Please advise how to manipuate a signed value as above in order to get the correct content "AAA"?

Code'd
Back to top
View user's profile Send private message

jacobdng

New User


Joined: 27 Aug 2006
Posts: 41
Location: Taiwan

PostPosted: Tue Aug 04, 2015 2:31 pm    Post subject:
Reply with quote

It is likely that I figure out the solution:
Code:
//S1 EXEC PGM=ICETOOL                                                   
//TOOLMSG   DD  SYSOUT=*                                               
//DFSMSG    DD  SYSOUT=*                                               
//T0 DD DSN=&&T0,DISP=(,PASS),SPACE=(TRK,(5,5)),UNIT=SYSDA             
//T1 DD DSN=&&T1,DISP=(,PASS),SPACE=(TRK,(5,5)),UNIT=SYSDA             
//IN        DD *                                                       
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
00095    00100                                                         
/*                                                                     
//TOOLIN DD *                                                           
  COPY FROM(IN) TO(T0) USING(CTL0)                                     
  COPY FROM(TO) TO(T1) USING(CTL1)                                     
/*                                                                     
//CTL0CNTL DD *                                                         
  OPTION COPY                                                           
  OUTFILE BUILD=(1:1,5,ZD,SUB,10,5,ZD,EDIT=(STTTTT),SIGNS=(+,-),80:X) 
/*                                                       
//CTL1CNTL DD *                                           
  OUTFIL IFTHEN(WHEN=(1,5,SFF,LE,0),                       
           BUILD=(C'AAA'))                               
/*                                                       


Any comment?

Code'd
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7232

PostPosted: Tue Aug 04, 2015 3:13 pm    Post subject: Reply to: Negative value used in IFTHEN
Reply with quote

You haven't said what it is you want to do. Whatever it is, it is unlikely that you need ICETOOL or two passes of the data.

Just an ordinary SORT step, with something like this may do what you want in full.

Code:
  OPTION COPY
                                     
  INREC IFTHEN=(WHEN=INIT,
                 BUILD=(1,5,ZD,
                       SUB,
                        10,5,ZD,
                         TO=ZD,
                         LENGTH=5,
                        80:X)),
        IFTHEN=(WHEN=(1,5,ZD,LE,0),
                 OVERLAY=(1:C'AAA',2X))
Back to top
View user's profile Send private message
jacobdng

New User


Joined: 27 Aug 2006
Posts: 41
Location: Taiwan

PostPosted: Wed Aug 05, 2015 7:23 am    Post subject:
Reply with quote

Bill,
Thank you. No more question.
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 IFTHEN to reformat the matching and n... maki_psg SYNCSORT 6 Fri Sep 25, 2015 2:53 pm
No new posts OUTREC with IFTHEN Query... mkk157 DFSORT/ICETOOL 1 Wed Aug 26, 2015 5:17 pm
No new posts Does FUNCTION NUMVAL work for alphanu... Venkata Ramayya COBOL Programming 8 Fri Mar 20, 2015 10:43 pm
No new posts IFTHEN & BUILD - If keyword match... Roach_MF DFSORT/ICETOOL 4 Wed Mar 18, 2015 1:21 am
No new posts Question on IFTHEN and OVERLAY Statem... narein207 DFSORT/ICETOOL 3 Tue Oct 21, 2014 11:03 pm


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