Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
deepak.kec

New User

Joined: 26 Feb 2007
Posts: 71
Location: bangalore

 Posted: Fri Dec 11, 2009 7:16 pm    Post subject: Cobol programming question Hi, The question is below. A PIC X(5) VALUE 'ABCDE' B PIC 9(5). Move A TO B This will give SOC07 abend. How to resolve this abend using program logic. No change in A,B definition is allowed Please let me know your feedback

Robert Sample

Global Moderator

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

 Posted: Fri Dec 11, 2009 7:24 pm    Post subject: Have you tried this? If you do, you'll find no S0C7 abend occurs so there's nothing to resolve. The S0C7 will occur when B is converted to packed decimal or binary (for use in computations, for example). Find the COBOL Language Reference manual (link at the top of the page) and read up on using the IF NUMERIC test to resolve it.
Bill O'Boyle

CICS Moderator

Joined: 14 Jan 2008
Posts: 2504
Location: Atlanta, Georgia, USA

Posted: Fri Dec 11, 2009 7:41 pm    Post subject: Reply to: Cobol programming question

Change -

 Code: Move A TO B

To -

 Code: Move A (1:) TO B (1:)

This will cause the MOVE to be Alphanumeric to Alphanumeric, without any type of conversion and is applicable to COBOL2 and greater.

However, in the unaltered MOVE, field B will equal 'ABCD5' after the MOVE is complete. The compiler ensures that the last byte of B contains an 'F' zone-nibble, but the numeric-nibble remains. An 'E' is X'C5' and this is where the '5' comes from.

Neither one of these moves will cause a S0C7 on COBOL2 and greater compilers. However, this may not be true on OS/VS COBOL compilers as field A might be packed and then unpacked into B, with a result of 12345.

The reason for B resulting in 12345 is Assembler related and I'll leave that for you to research....

Bill
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics batch cobol/db2 paragraph fall thru a... alois eisshofer COBOL Programming 5 Wed Mar 14, 2018 12:21 am write multiple lines in PS file in cobol Balu5491 COBOL Programming 7 Wed Mar 07, 2018 10:27 am COBOL declaration for table Poha Eater DB2 2 Mon Feb 26, 2018 6:58 pm A couple of Interview Questions on Co... viplavmodi36 Mainframe Interview Questions 5 Fri Feb 23, 2018 6:21 pm Xpediter: STEP OVER cobol section Auryn Compuware & Other Tools 0 Thu Feb 22, 2018 9:30 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us