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

Experiencing SOC 7 when 1st move statement


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
TG Murphy

Active User


Joined: 23 Mar 2007
Posts: 148
Location: Ottawa Canada

PostPosted: Fri Jun 29, 2007 9:35 pm
Reply with quote

Change I to PIC S9(4) COMP. (COMP will not cause an OC7). Note that changing I to COMP is not the solution to your problem - just a diagnostic experiment.

Display contents of I before and after the first MOVE.

Do not run under the debugger - to eliminate possibility that the debugger is somehow responsible for OC7. The only field involved in your MOVE statements that could cause an OC7 is I.

My bet is that OC7 is happening on another statement and that your debugger is misleading you. But perhaps not...
Back to top
View user's profile Send private message
prasadvrk

Active User


Joined: 31 May 2006
Posts: 200
Location: Netherlands

PostPosted: Thu Jul 05, 2007 1:06 pm
Reply with quote

Is there any redefinition of WS-BEFORE-AFTER. why don't you compile with TEST option and get the exact line where you are getting S0C7. It may be due to some other reason. I know you have expedited but still let us explore this way and see.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Jul 05, 2007 8:02 pm
Reply with quote

Hello,

Please note that this 0c7 has been resolved. TS posted the resolution last week.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Fri Jul 06, 2007 7:18 pm
Reply with quote

Try move spaces to WS-Update remembering that ALL group moves are alpha numeric and you will then need to init any numeric fields with zero. Then init wk-cov-count and wk-dep-count to zeroes. Then move zero to WS-DEP-COUNT (1)
WS-COV-COUNT (1)
WS-DEP-COUNT (2)
WS-COV-COUNT (2)


10 WS-MEM-COV-DATA OCCURS 1 TO 100 TIMES
DEPENDING ON WK-COV-COUNT.
15 WS-MEM-BTBN PIC X(8) VALUE SPACES.
10 WS-MEM-DEP-DATA OCCURS 0 TO 20 TIMES
DEPENDING ON WK-DEP-COUNT.
WS-BEFORE-AFTER OCCURS 2 TIMES.
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 COBOL - Move S9(11)v9(7) COMP-3 to -(... COBOL Programming 5
No new posts How to move the first field of each r... DFSORT/ICETOOL 5
No new posts JOIN STATEMENT PERFORMANCE. DFSORT/ICETOOL 12
No new posts How to move DB2 Installation HLQ DB2 4
No new posts Relate COBOL statements to EGL statement All Other Mainframe Topics 0
Search our Forums:

Back to Top