Left justified alphanumeric to right justified numeric

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
Sathishkrishna
Member
Posts: 2
Joined: Sun Jun 28, 2015 2:37 am
Location: Chennai

Left justified alphanumeric to right justified numeric

Post by Sathishkrishna » Fri Dec 18, 2015 3:46 pm

I need to convert Numbers stored as Text datatype(left aligned) ranging from 2 to 4 digits to Numeric format(Right aligned) padded with zeros in COBOL.

For eg,

Field1(Text left aligned) Field2(Numeric Right aligned)
---------------------------------------------------------------
1000 001000
11 000011
-200 -00200

I tried with below options but my Cobol compiler is not supporting all.

NUMVAL
JUSTIFIED RIGHT
INSPECT with TRAILING SPACES

I appreciate any help on this.

William Collins
Active Member
Posts: 732
Joined: Thu May 24, 2012 4:07 am

Post by William Collins » Fri Dec 18, 2015 4:29 pm

It is not considered cool to cross-post the forums at the same time.

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