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
 
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: 49
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: 49
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: 7314

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: 49
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 Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
No new posts Hardcoded negative sign value in output scdinesh SYNCSORT 8 Fri Sep 08, 2017 5:28 am
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Need Help with : IFTHEN(WHEN=GROUP) Sumanta_89 DFSORT/ICETOOL 1 Wed Apr 19, 2017 5:23 pm

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