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
 
Reduce Spool be removing display statement.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
Adnan Khambaty

New User


Joined: 26 Feb 2008
Posts: 2
Location: Mumbai

PostPosted: Wed Jun 10, 2009 7:00 pm    Post subject: Reduce Spool be removing display statement.
Reply with quote

Hi,
I Have a query, where my program A is calling Program B.
Say if there is some error then Program B Displays that error... and this error is displayed in my spool.. Since there is huge data. the Display in my spool is also huge. As Program B is being used by almost 80 other program hence i cant change remove the display statement from the Program...
Is there any alternative where in i can remove the display coming from Program B without any major modifications..
Back to top
View user's profile Send private message

Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Wed Jun 10, 2009 7:15 pm    Post subject:
Reply with quote

You could assign sysout for that step to a class that would be discarded, but then you might lose messages that you need.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Jun 11, 2009 6:23 am    Post subject:
Reply with quote

Hello,

You might also consider writing that sysout to dasd.

Suggest maybe the huge number of errors be dealt with so that there will be less to display. . .
Back to top
View user's profile Send private message
Adnan Khambaty

New User


Joined: 26 Feb 2008
Posts: 2
Location: Mumbai

PostPosted: Thu Jun 11, 2009 9:56 am    Post subject:
Reply with quote

Thanks all for the response...

But basically i wanted to eliminate all the Display coming from the Program B.. Writing the sysout to dasd is okie.. but i wont be getting the display from my Main Program into sysout..

EG:
Main Program A-
Call Program B
If error "Display ERROR"
Return to main program.
Display " Successful complete"
END PROGRAM.

In the above example i dont want to Display Statement "
Display ERROR" to be dispalyed in Sysout. But i want "Successful complete" to be dispalyed in sysout.

Thanks for help in advance.........!
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


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

PostPosted: Thu Jun 11, 2009 2:17 pm    Post subject:
Reply with quote

What version control tool do you use? If that is change-man -- best solution would be to get a "copy" of "Program B" in some package, keep only those DISPLAYs which you need and in JCL override the STEPLIB to point to this "new library".

Even if that's Endeavour, it should be doable in a similar fashion, I believe.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


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

PostPosted: Thu Jun 11, 2009 2:20 pm    Post subject:
Reply with quote

Quote:
In the above example i dont want to Display Statement "
Display ERROR" to be dispalyed in Sysout. But i want "Successful complete" to be dispalyed in sysout.
There is no magic you can implement here -- DISPLAY would do what it is supposed to do; if control reaches to "error message" it will display error unless you remove/comment-out that DISPLAY statement from the program.
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm
No new posts Spool Extract for Z /os 1.04 version Khadhar Basha CLIST & REXX 3 Thu Sep 28, 2017 3:14 pm
No new posts Speed-up/reduce CPU use of code prino PL/I & Assembler 0 Tue Sep 26, 2017 12:05 am

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