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
 
INREC IFTHEN question

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SYNCSORT
View previous topic :: :: View next topic  
Author Message
knobi

New User


Joined: 16 Aug 2005
Posts: 51

PostPosted: Mon Apr 15, 2019 11:55 pm    Post subject: INREC IFTHEN question
Reply with quote

Using the IF below i noticed that after checking the position 71, it "exit" the if logic. I saw that i could use HIT=NEXT, but to me is unclear if it needs to be used at the end of every IFTHEN statement or only when i switch to the next position. Could someone with more experience using syncsort/icetool, comment on this ?

Code:

INREC IFTHEN=(WHEN=(71,01,SS,EQ,C'A'),OVERLAY(095:067,04,ZD,MUL,+10)),
      IFTHEN=(WHEN=(71,01,SS,EQ,C'B'),OVERLAY(095:067,04,ZD,MUL,+20)),

      IFTHEN=(WHEN=(77,01,SS,EQ,C'A'),OVERLAY(111:073,04,ZD,MUL,+10)),
      IFTHEN=(WHEN=(77,01,SS,EQ,C'B'),OVERLAY(111:073,04,ZD,MUL,+20)),

      IFTHEN=(WHEN=(83,01,SS,EQ,C'A'),OVERLAY(127:079,04,ZD,MUL,+10)),
      IFTHEN=(WHEN=(83,01,SS,EQ,C'B'),OVERLAY(127:079,04,ZD,MUL,+20))

Back to top
View user's profile Send private message

dneufarth

Active User


Joined: 27 Apr 2005
Posts: 290
Location: Cincinnati OH USA

PostPosted: Tue Apr 16, 2019 1:13 am    Post subject:
Reply with quote

http://ibmmainframes.com/about42538.html
Back to top
View user's profile Send private message
knobi

New User


Joined: 16 Aug 2005
Posts: 51

PostPosted: Tue Apr 16, 2019 1:34 am    Post subject:
Reply with quote

got it !! thank you !!
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 -> SYNCSORT All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts DO we have alternate syntax for IFTHEN? useit Compuware & Other Tools 8 Wed May 29, 2019 3:50 pm
No new posts Total using INREC Log Thangavel DFSORT/ICETOOL 1 Sun Apr 14, 2019 12:25 am
No new posts Attachmate file transfer question John Poulakos All Other Mainframe Topics 3 Wed Mar 20, 2019 1:45 am
No new posts COBOL Table Question GAPX1 COBOL Programming 3 Thu Mar 07, 2019 9:48 pm
No new posts CICS program with Delay question MSTP CICS 5 Tue Dec 11, 2018 11:18 pm

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