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

Want a code of SOC7 with out using comp-3
IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Kmr.deepakcs

New User


Joined: 11 Oct 2013
Posts: 37
Location: India
PostPosted: Fri Dec 27, 2013 6:47 pm
 Reply with quote
s we know soc7 come when we doing any arithmetic operation on non numeric data. thats i know.
and we can got a soc7 by using this code.
Code:

ID DIVISION.
 PROGRAM-ID. "DEEPAK".
DATA DIVISION.
 WORKING-STORAGE SECTION.
 01 A PIC X(4) VALUE 'A###'.
 01 B PIC S9(2)V99 COMP-3.
 PROCEDURE DIVISION.
MOVE A TO B.
 DISPLAY "VALUE OF A ", B.
STOP RUN.

this code shows soc7..
but i want a code of soc7 with out using comp-3 only by numeric and alphanumeric..
can any one give me any idea, how can i get it..
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 Dec 27, 2013 6:49 pm
 Reply with quote
First thing is to not ask the same question in multiple places.
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

 

Similar Topics
Topic Forum Replies
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts COBOL - Move S9(11)v9(7) COMP-3 to -(... COBOL Programming 5
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us