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
 

 

how to eliminate sort informations on spool

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

New User


Joined: 18 Oct 2008
Posts: 13
Location: Iran

PostPosted: Wed Dec 24, 2008 4:45 pm    Post subject: how to eliminate sort informations on spool
Reply with quote

I used sort command in my cobol source; this will write some sort informations in sysout (spool)
like below:

Code:

ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 17:13 ON MON DEC
          SORT FIELDS=(0001,0005,ZD,A)                                         
          RECORD TYPE=F,LENGTH=(000080,,)                                       
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
ICE118I 0 UNKNOWN FILE SIZE - FILSZ=EN MAY IMPROVE RESOURCE USAGE AND PERFORMANC
ICE175I A ATTEMPT TO REALLOCATE VIO WORK DATA SETS TO REAL RESULTED IN VIO     
ICE751I 0 C5-K21008 C6-K90007 C7-K90000 C8-K90007 E4-K90007 C9-BASE   E5-K21514
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED   
ICE089I 5 TAHORIP2.COMPILE1.GO      , INPUT LRECL = 80, TYPE = F               


is there any way to eliminate this informations?
I want a clean sysout and no sort informations.

Here it's jcl and cobol source code just in case.

JCL:
Code:


//jobid    JOB   CLASS=A,MSGCLASS=T
//COMPILE1    EXEC  IGYWCLG                                       
//COBOL.SYSIN DD    DSN=cobol.xx.xx,DISP=SHR       
//GO.SYSOUT   DD    SYSOUT=T                                       
//GO.DDTRANS2 DD    DSN=sortout.xx.xx,DISP=SHR       
//GO.DDTRANS3 DD    DSN=sortin.xx.xx,DISP=SHR       
//GO.DDWORK   DD    DSN=workfile.xx.xx,DISP=SHR           



COBOL source:

Code:


 SORT WORKFILE ON ASCENDING EMPNO OF WORKDETAILS           
                                  USING  TRANS2-MEMBER-FILE
                                  GIVING TRANS3-MEMBER-FILE

Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Dec 24, 2008 4:48 pm    Post subject:
Reply with quote

Not without dummying the whole DD statement - AFAIK
Back to top
View user's profile Send private message
ahmad

New User


Joined: 18 Oct 2008
Posts: 13
Location: Iran

PostPosted: Wed Dec 24, 2008 6:12 pm    Post subject:
Reply with quote

but this will make sysout disappear and the go step as well.
and I need this step to see my program output.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Dec 24, 2008 6:20 pm    Post subject:
Reply with quote

You could try to allocate
//MESIMP DD SYSOUT=*

I have seen that in the SYSOUT messages it says that MESIMP not found - SYSOUT used.
Back to top
View user's profile Send private message
ahmad

New User


Joined: 18 Oct 2008
Posts: 13
Location: Iran

PostPosted: Sat Dec 27, 2008 9:54 am    Post subject:
Reply with quote

But I'm not convinced yet; there must be a way
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: Sun Dec 28, 2008 7:45 am    Post subject:
Reply with quote

Hello,

Quote:
But I'm not convinced yet; there must be a way
Of course there is - but you will probably have to change your code. The data you want should not be written to SYSOUT, but rather some other ddname. This means you WRITE to a file rather than DISPLAY to sysout. DISPLAY is not permitted on many systems for anything other than debugging. . .

Code:
SORT WORKFILE ON ASCENDING EMPNO OF WORKDETAILS           
                                  USING  TRANS2-MEMBER-FILE
                                  GIVING TRANS3-MEMBER-FILE
FWIW - this is the worst way to code an internal sort. You should use INPUT PROCEDURE, OUTPUT PROCEDURE or both. USING/GIVING is just wasteful and the lazy way to code.
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sun Dec 28, 2008 9:42 pm    Post subject:
Reply with quote

Hi Ahmad,

Try using the SORT-MSG (I think that's what it's called) special register. It allows you to specify a DDNAME for your SORT msgs instead of SYSOUT. Then you can dummy it out, but it might require DCB info too, if you do that.

Look in the COBOL Language Ref for the compiler you're using and read about SORT registers.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Mon Dec 29, 2008 7:13 am    Post subject:
Reply with quote

Hi,

I believe if you add the following to your JCL, you can redirect the SORT sysout messages to another DDNAME, in this case SYSOUT2
Code:
//$ORTPARM DD *         
MSGDDN=SYSOUT2           
/*                       
//SYSOUT2  DD SYSOUT=*   



Gerry
Back to top
View user's profile Send private message
new2cobol

New User


Joined: 04 Jan 2006
Posts: 77
Location: Bangalore

PostPosted: Wed Jan 14, 2009 2:21 pm    Post subject:
Reply with quote

I'm surprized that Frank hasn't responded to this icon_confused.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Wed Jan 14, 2009 2:30 pm    Post subject: Reply to: how to eliminate sort informations on spool
Reply with quote

Quote:
I'm surprized that Frank hasn't responded to this


You shouldn' t, this is is the Mainframe COBOL forum
Frank is an IBM DFSORT developer, he has enough of watching the DFSORT/ICETOOL forum
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu Jan 15, 2009 12:31 pm    Post subject:
Reply with quote

Hi,

I'm more surprised that Amhad has not responded to any of the suggestions.


Gerry
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Jan 15, 2009 12:36 pm    Post subject:
Reply with quote

gcicchet wrote:

I'm more surprised that Amhad has not responded to any of the suggestions.

Obviously one of the suggestions has done the trick then.
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 SORT to unpack a feild shr_amar DFSORT/ICETOOL 7 Fri Jul 07, 2017 4:32 am
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts Optimize sort inrec parse vishwakotin DFSORT/ICETOOL 6 Mon Jun 26, 2017 11:15 pm
No new posts Reduce CPU Times for Join Sort santoshn SYNCSORT 12 Sat Jun 10, 2017 1:40 pm
No new posts Db2 load job abending in SORT mistah kurtz DB2 4 Mon Jun 05, 2017 3:58 pm


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