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

Author Message
raviprabhu

New User

Joined: 20 Oct 2006
Posts: 29

 Posted: Mon Feb 17, 2014 10:23 pm    Post subject: Getting S0C7 in the compute statement I am getting soc7 in the compute statement Perform varying I from 1 by 1 until I>10 Compute A = A + B (I) End-perform A - 9(7)v99 B - S9(7) Please help how to resouve this

Bill O'Boyle

CICS Moderator

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

 Posted: Mon Feb 17, 2014 10:27 pm    Post subject: Reply to: getting soc7 Have you initialized A and B to valid numeric values before invoking the PERFORM?
raviprabhu

New User

Joined: 20 Oct 2006
Posts: 29

 Posted: Tue Feb 18, 2014 12:36 am    Post subject: yes have initialized
Rohit Umarjikar

Senior Member

Joined: 21 Sep 2010
Posts: 2038
Location: NY,USA

 Posted: Tue Feb 18, 2014 12:54 am    Post subject: 1) Why A is not delclared as S9(7)v99 ? 2) Try adding a Display for all of B(I) and all A, this will narrow down your findings as which contains bad data. 3) Also what is expected if A= 9999999 and B = 9 ?
daveporcelan

Active Member

Joined: 01 Dec 2006
Posts: 714
Location: Pennsylvania

 Posted: Tue Feb 18, 2014 12:56 am    Post subject: Is B in an interal array/table? Show the ten values for B. Show more working storage/code to give a better picture. Put a Display statement of A and B(I) before the compute. Should this be in the student section?
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Create view statement from SYSIBM.SYS... andrea DB2 5 Thu Aug 02, 2018 9:30 pm Compute statement with Cobol Z/os 5.2 Chetan Kumar COBOL Programming 2 Fri May 11, 2018 8:02 pm COBOL - EXIT statement weird behavior anthony.pangestu COBOL Programming 0 Fri Oct 27, 2017 9:57 am WER268A OUTREC STATEMENT : SYNTAX E... frozenblood87 SYNCSORT 12 Sat Aug 26, 2017 9:45 pm Suppress value reported by BREAK in D... Learncoholic DFSORT/ICETOOL 3 Wed Aug 16, 2017 6:03 pm

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