How to Display COMP-3 value in report

This is a Mainframe COBOL forum - you can post your queries on Mainframe COBOL, VS COBOL II, COBOL/370 , Enterprise COBOL

Moderators: dbzTHEdinosauer, Moderator Group

Post Reply
Rithu
Member
Posts: 1
Joined: Fri Feb 02, 2007 9:55 pm
Location: Singapore

How to Display COMP-3 value in report

Post by Rithu » Fri Feb 02, 2007 10:11 pm

Hi,

I have used many method to display COMP-3 value in report, like

METHOD 1:
01 A PIC S9(15)V USAGE COMP-3.
01 B PIC S9(15)V.


MOVE A TO B
WRITE FILE-REC.

METHOD 2:

01 A PIC S9(15)V USAGE COMP-3.
01 B PIC S9(15)V.

COMPUTE A = A* 3
MOVE A TO B
WRITE FILE-REC.

Still i'm not getting proper value in the report, its displaying in hexa formate. Please advice to get me the numeric format.

Regards,
Rithu.

User avatar
dbzTHEdinosauer
Moderator
Posts: 981
Joined: Mon Oct 02, 2006 8:31 pm

Post by dbzTHEdinosauer » Mon Feb 12, 2007 6:30 am

Rithu,

unless you use an edit mask, or display with sign trailing, you will always have numeric signed with an 'overprint' sign - i.e., the sign and the least significant digit will be combined.

change 01 B PIC S9(15)V.

to 01 B PIC -Z(15). <<<< to zero suppress with leading sign if negative
this is an edit mask
or 01 B PIC S9(15) SIGN TRAILING SEPARATE. <<<< no suppression, sign is trailing.
this is a numeric display field with trailing sign. 16 char.

an edit mask can be the receiving operand of a COMPUTE statement.

COMPUTE B = A * 3
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others