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

Author Message
raviprasath_kp
Warnings : 1

New User

Joined: 20 Feb 2005
Posts: 65
Location: chennai

 Posted: Tue Oct 31, 2006 6:17 am    Post subject: Getting S0C1 error, How to avoid this 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

priyesh.agrawal

Senior Member

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

 Posted: Tue Oct 31, 2006 9:10 am    Post subject: Re: Getting S0C1 error, How to avoid this I really have no clue what are you talking about. Could you make ur problem statement more simpler, in that what are you doing and what do you want to do ?
raviprasath_kp
Warnings : 1

New User

Joined: 20 Feb 2005
Posts: 65
Location: chennai

Posted: Tue Oct 31, 2006 12:41 pm    Post subject:

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
guptae

Moderator

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

 Posted: Tue Oct 31, 2006 1:44 pm    Post subject: Hi There, what is DOLR?
priyesh.agrawal

Senior Member

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

 Posted: Wed Nov 01, 2006 8:37 am    Post subject: Re: Getting S0C1 error, How to avoid this 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.
toddnugen

New User

Joined: 01 Nov 2006
Posts: 9

 Posted: Thu Nov 02, 2006 9:14 am    Post subject: looks like you multiply dolr field containing hyphen result sc7.
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics -502 Error - Cursor already open anand jeyapaul DB2 7 Sun Oct 29, 2017 4:22 am IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm FTP Skip or ignore error and process ... AJAYREDDY All Other Mainframe Topics 3 Wed Sep 27, 2017 8:12 pm Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm

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