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
 

 

Next line in OUTREC

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

New User


Joined: 04 Jul 2007
Posts: 92
Location: Hyderabad

PostPosted: Mon Jan 11, 2010 2:43 pm    Post subject: Next line in OUTREC
Reply with quote

How to use go to next line in Outrec command.
I have writen below code to created a dynamic Include Cond.
Code:
OUTREC=(2X,                       
C'INCLUDE COND=(3,3,CH,EQ,C',       
X'7D',                             
C'XXX',                             
X'7D',                             
C',AND,230,1,CH,NE,C',             
X'7D',                             
C'D',                               
X'7D',                             
C',',                               
3X,C'-',20X) 


The above will create the following code
INCLUDE COND=(3,3,CH,EQ,C'IOR',AND,230,1,CH,NE,C'D', -

but I want to use one more condition so the o/p will be like below

INCLUDE COND=(3,3,CH,EQ,C'IOR',AND,230,1,CH,NE,C'D', -
AND,163,1,CH,NE,C'D', -

Can anyone help me how goto next line in Outrec.
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Jan 11, 2010 3:02 pm    Post subject:
Reply with quote

'bout halfway down the page is an example of a multiline include statement
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Mon Jan 11, 2010 3:58 pm    Post subject:
Reply with quote

Hello Deep,

I think you want desired output as

Code:

   INCLUDE COND=(3,3,CH,EQ,C'IOR',AND,230,1,CH,NE,C'D',
     AND,163,1,CH,NE,C'D', 


Instead of
Code:

    INCLUDE COND=(3,3,CH,EQ,C'IOR',AND,230,1,CH,NE,C'D', -
     AND,163,1,CH,NE,C'D', -


As mentioned by Dick
Followng sort card will give you desired result ( Might not be Optimal)
Code:

  OPTION COPY                                   
  OUTFIL FNAMES=OUT,                             
    OUTREC=(2X,                                   
     C'INCLUDE COND=(3,3,CH,EQ,C',                 
     X'7D',                                         
     C'10R',                                       
     X'7D',                                         
     C',AND,230,1,CH,NE,C',                         
     X'7D',                                         
     C'D',                                         
     X'7D',                                         
     C',',                                         
     3X,20X,/,                                     
     C'AND,163,1,CH,NE,C',X'7D',C'D',X'7D',C',',20X)
Back to top
View user's profile Send private message
dp33770

New User


Joined: 04 Jul 2007
Posts: 92
Location: Hyderabad

PostPosted: Mon Jan 11, 2010 4:32 pm    Post subject:
Reply with quote

Thank you very much..
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 SORT- outrec ram_vizag DFSORT/ICETOOL 10 Tue Sep 27, 2016 12:50 am
No new posts Insert Lines in JCL with Rexx after a... Willy Jensen CLIST & REXX 3 Tue Aug 30, 2016 4:18 pm
No new posts OUTREC FILELDS FAILS WITH ICE126A 2 ... balaji81_k DFSORT/ICETOOL 8 Sat Jul 02, 2016 1:22 am
No new posts OUTREC RDW NOT INCLUDED krsenthil85 SYNCSORT 10 Fri May 06, 2016 3:22 am
No new posts ISREDIT - Position Cursor on the Comm... Tarique Anwer TSO/ISPF 5 Wed Feb 03, 2016 12:44 pm


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