View previous topic :: View next topic
|
Author |
Message |
ahmad
New User
Joined: 18 Oct 2008 Posts: 13 Location: Iran
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Not without dummying the whole DD statement - AFAIK |
|
Back to top |
|
|
ahmad
New User
Joined: 18 Oct 2008 Posts: 13 Location: Iran
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
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 |
|
|
ahmad
New User
Joined: 18 Oct 2008 Posts: 13 Location: Iran
|
|
|
|
But I'm not convinced yet; there must be a way |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
mmwife
Super Moderator
Joined: 30 May 2003 Posts: 1592
|
|
|
|
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 |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
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 |
|
|
new2cobol
New User
Joined: 04 Jan 2006 Posts: 77 Location: Bangalore
|
|
|
|
I'm surprized that Frank hasn't responded to this |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
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 |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
I'm more surprised that Amhad has not responded to any of the suggestions.
Gerry |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
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 |
|
|
|