Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Getting S0C1 error, How to avoid this

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
raviprasath_kp
Warnings : 1

New User


Joined: 20 Feb 2005
Posts: 65
Location: chennai

PostPosted: Tue Oct 31, 2006 6:17 am    Post subject: Getting S0C1 error, How to avoid this
Reply with quote

hi
i have a field like number lenght is 8 it is numeric
i am validate the field by one by one
for example
1 field is -9999999

then using i took the first field and *-1,but
now i am getting 9999999-(minus in last files)

so its - *-1 that means i got SOC7 error

i want to avoid this one also i want to check wheater all the digits have negaive or not
Back to top
View user's profile Send private message

priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Tue Oct 31, 2006 9:10 am    Post subject: Re: Getting S0C1 error, How to avoid this
Reply with quote

I really have no clue what are you talking about. icon_eek.gif

Could you make ur problem statement more simpler, in that what are you doing and what do you want to do ?
Back to top
View user's profile Send private message
raviprasath_kp
Warnings : 1

New User


Joined: 20 Feb 2005
Posts: 65
Location: chennai

PostPosted: Tue Oct 31, 2006 12:41 pm    Post subject:
Reply with quote

hi
i have the proc like this
Code:
ZERO-FILL. PROC       
IND  EQ  1           
IND2 EQ  1           
DO WHILE  IND  LE  10
 IF DOL(IND) EQ '-'   
  MOVE '-' TO DOL(1) 
  MOVE '0' TO DOL(IND)
  DOLR EQ DOLR * -1   
 END-IF     


this for we are validating if the record is '-' then we will multipuly into -1
for example the values are like
Code:
-00000000
0-0000000
00-00000
000000-

each and every digits we are multiply with zero when we tried to
do for last digit -*-1

we got soc07
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Tue Oct 31, 2006 1:44 pm    Post subject:
Reply with quote

Hi There,

what is DOLR?
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Wed Nov 01, 2006 8:37 am    Post subject: Re: Getting S0C1 error, How to avoid this
Reply with quote

raviprasath_kp,

It doesn't look like a COBOL Code. lets have me trial.

First thing can you confirm the length of input string. One thing I noticed here is you are running DO WHILE LOOP for 10 times but the number of digits in the input string are 9. So do you want to try making DO WHILE run for 9 times, if yes probably LT would work in place of LE.

Could you give an expected output for all the four records you shown as an input.
Back to top
View user's profile Send private message
toddnugen

New User


Joined: 01 Nov 2006
Posts: 9

PostPosted: Thu Nov 02, 2006 9:14 am    Post subject:
Reply with quote

looks like you multiply dolr field containing hyphen result sc7. icon_biggrin.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts FTP Skip or ignore error and process ... AJAYREDDY All Other Mainframe Topics 3 Wed Sep 27, 2017 8:12 pm
No new posts Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Reply MQ open error Vignesh Sid COBOL Programming 6 Thu Sep 07, 2017 6:02 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us