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

Any Way by which Display can be suppressed


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

Active User


Joined: 11 Apr 2008
Posts: 144
Location: Jamshedpur

PostPosted: Thu Aug 18, 2011 7:13 pm
Reply with quote

@Bill - Display is still confounding me, In test I can see the display but in production that display is missing.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


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

PostPosted: Thu Aug 18, 2011 7:26 pm
Reply with quote

What's the compile / link date for the production version? Possibly the code has been changed since the production version was put out there?
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Thu Aug 18, 2011 9:24 pm
Reply with quote

Tushar,

Do you have a compile listing of the production program?

Did you get the source from a production library?

Have you checked compile and link time, like Robert suggested?

Did you find an answer for Dick's question about where the SYSOUT is actually routed?

Can you post the production JCL (masked appropriately)?

Can you outline the original problem which has led you to this problem with the apparently (sic) invisible displays?
Back to top
View user's profile Send private message
saurabh39
Warnings : 1

Active User


Joined: 11 Apr 2008
Posts: 144
Location: Jamshedpur

PostPosted: Thu Aug 18, 2011 10:59 pm
Reply with quote

Quote:
Do you have a compile listing of the production program?

No. In production compile job, compressed lsiting is populated in a temporary library, but the temp library is not copied to permanent lib down the line.

Quote:
Did you get the source from a production library?

Yes.

Quote:
Have you checked compile and link time, like Robert suggested?


In the loadmodule, the time is 24 June 1998. But in panvalet for the same module i can see two timestamp -
LMAINT LACCESS
-------- --------
06/24/98 04/29/03
I am not sure of the significance of LACCESS.

Quote:
Did you find an answer for Dick's question about where the SYSOUT is actually routed?

I haven't talked to support for this, as they are not very good people to talk to, if you have technical question which a developer should himself know. But i have talked to other seniors and they say, it should direct to spool itself.
Back to top
View user's profile Send private message
saurabh39
Warnings : 1

Active User


Joined: 11 Apr 2008
Posts: 144
Location: Jamshedpur

PostPosted: Thu Aug 18, 2011 11:01 pm
Reply with quote

JCL is-
Code:

//WCPLDD03 EXEC PGM=DFSRRC00,COND=(0,LT),TIME=25,           
//             PARM='DBB,&MBR,&PSB,&BUF,&SPIE&TEST'         
//STEPLIB  DD  DSN=XXXXX.APFLIB,DISP=SHR           
//         DD  DSN=XXXXX.RESLIB,DISP=SHR           
//         DD  DSN=XXXXX.PGMLIB,DISP=SHR               
//DFSRESLB DD  DSN=XXXXX.APFLIB,DISP=SHR           
//         DD  DSN=XXXXX.RESLIB,DISP=SHR           
//SORTLIB  DD  DSN=XXXXX.SORTLIB,DISP=SHR                   
//IMSACB   DD  DSN=XXXXX.ACBLIB,DISP=SHR             
//DFSVSAMP DD  DSN=XXXXX.DFSVSAMP(DFSVSAMP),DISP=SHR   
//SYSOUT   DD  SYSOUT=($,,STAN)                             
//SYSOUA   DD  SYSOUT=($,,STAN)                             
//SYSUDUMP DD  SYSOUT=T,DEST=VOR,HOLD=YES                   
//SYSDBOUT DD  SYSOUT=T,DEST=VOR,HOLD=YES                   
//IEFRDER  DD  DUMMY,DCB=(RECFM=VBS,LRECL=1400,BLKSIZE=1408)
//SORTWK01 DD  UNIT=SORT,SPACE=(CYL,&CYL)                   
//SORTWK02 DD  UNIT=SORT,SPACE=(CYL,&CYL)                   
//SORTWK03 DD  UNIT=SORT,SPACE=(CYL,&CYL)                             
//CONDCODE DD  DSN=&&CONDCODE,DISP=(,PASS),UNIT=SYSDA,                 
//             SPACE=(80,1),DCB=BUFNO=1                               
//F1       DD  DSN=XXXX(0),DISP=SHR                     
//F2       DD  DSN=XXXX,DISP=SHR                       
//F3       DD  DSN=XXXX,DISP=OLD                       
//F4       DD  DSN=XXXX,DISP=(MOD,KEEP)                 
//F5       DD  DSN=XXXX,DISP=SHR                       
//F6       DD  DSN=XXXX,DISP=SHR                       
//F7       DD  DSN=&&XXXX,DISP=(,DELETE,DELETE),                   
//             SPACE=(CYL,(6,5)),                                     
//             DCB=...,UNIT=SYSDA       
//F8       DD  DSN=&&XXXX,DISP=(,DELETE),UNIT=SYSDA,                 
//             DCB=....,                 
//             SPACE=(CYL,(&CYL,&CYL))


And I was looking for logic to reset the internal return code in the program. Before there logic there is a display, which is not getting displayed in production, but when i run the same load module in test, i can see the display.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Thu Aug 18, 2011 11:13 pm
Reply with quote

OK, so what does the SYSOUT in test look like? What is the SYSOUT=($,,STAN) all about?
Back to top
View user's profile Send private message
saurabh39
Warnings : 1

Active User


Joined: 11 Apr 2008
Posts: 144
Location: Jamshedpur

PostPosted: Fri Aug 19, 2011 12:05 am
Reply with quote

In test, I did see the usual syncsort message and the display which i was expecting. But one thing which i found in spool(which i have never seen is)

Code:
**SET AT 600**     ALIMIT = 000059 BLIMIT = 000000 CLIMIT = 000000


The message displayed is no where in the program, but not sure from where that message came in.
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 765
Location: Whitby, ON, Canada

PostPosted: Fri Aug 19, 2011 12:11 am
Reply with quote

And what does the SYSOUT DD statement look like in test?
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Fri Aug 19, 2011 12:13 am
Reply with quote

Remember you have the EXHIBIT NAMED. I think you can track it to that.

Are you saying you didn't see the SYNCSORT either in production?

Check out what the STAN stuff means. I think you'll find it squirelled away somewhere. Talk to "production support" or whoever it is responsible for production JCL.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


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

PostPosted: Fri Aug 19, 2011 12:14 am
Reply with quote

IIRC, that display is generated by OS/VS COBOL -- possibly as a result of a compiler option or EXHIBIT? -- to indicate variable values at a particular line of the program.
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 Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts How to display the leading zeros of a... DB2 7
No new posts SDSF display Max-RC in different colors TSO/ISPF 4
No new posts Converting a file from PD to display ... SYNCSORT 4
No new posts Unable to display comp variable COBOL Programming 4
No new posts Adding FIND to ISPF Panel display of ... TSO/ISPF 3
Search our Forums:

Back to Top