IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Bypass the perform para which writes the default code


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
patlolla

New User


Joined: 05 Jun 2006
Posts: 10

PostPosted: Mon Jun 07, 2010 7:17 pm
Reply with quote

Hi,

In my program, I have multiple conditions as below

Code:
IF wscond1
   if wscond2
      Perform u780-para thru u780-exit
   end-if
end-if.

I would like to bypass the above perform para which writes the default code in the program. Could you please suggest me how to do..

Thanks
patlolla
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Mon Jun 07, 2010 7:31 pm
Reply with quote

Set wscond2 to a false value as in:
Code:
IF wscond1
   move (a false value) to wscond2
   if wscond2
      Perform u780-para thru u780-exit
   end-if
end-if.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA

PostPosted: Mon Jun 07, 2010 7:32 pm
Reply with quote

Your post is not at all clear. Under what conditions do you want to bypass the PERFORM? If for all conditions, why not just delete or comment out the 5 lines of code? If for SOME conditions, which conditions -- you'll have to change the IF logic appropriately?
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Mon Jun 07, 2010 7:49 pm
Reply with quote

Reminds me of the posting "LOOK UP". My neck is still hurting.... icon_rolleyes.gif

Bill
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Mon Jun 07, 2010 7:49 pm
Reply with quote

when posting use meaningful titles !
COBOL title in a COBOL forum just tells nothing
see
catb.org/~esr/faqs/smart-questions.html
on how to make the most when asking questions
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Wed Jun 09, 2010 10:09 pm
Reply with quote

Why not just use a "control-break" after first IF, like:
Code:
IF WSCOND1     
   CONTINUE   
   IF WSCOND2
.
.
.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts Use of Perform Thru Exit COBOL Programming 6
This topic is locked: you cannot edit posts or make replies. Programa para Realiza Operaciones sob... JCL & VSAM 3
Search our Forums:

Back to Top