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
 
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: 6968
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 line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 5 Sat Oct 14, 2017 2:29 am
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts WER268A OUTREC STATEMENT : SYNTAX E... frozenblood87 SYNCSORT 12 Sat Aug 26, 2017 9:45 pm
No new posts Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am

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