Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

SOC-7 Error when i try to Xpedit

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
kumar1234

New User


Joined: 06 Nov 2007
Posts: 84
Location: bangalore

PostPosted: Thu Nov 08, 2007 1:27 pm    Post subject: SOC-7 Error when i try to Xpedit
Reply with quote

Hi All,

I am getting a soc7 error, in the program when i try to Xpediate, it is pointing to the variable as shown below
IF TOTAL-RCV-EXP-AMT-MST(1) = ZEROS
OR TOTAL-RCV-EXP-AMT-MST(2) = ZEROS
OR TOTAL-RCV-EXP-AMT-MST(3) = ZEROS
OR TOTAL-RCV-EXP-AMT-MST(4) = ZEROS
OR TOTAL-RCV-EXP-AMT-MST(5) = ZEROS
MOVE 'N' TO OT1-RCV-EXP-AMT-FLAG
ELSE
MOVE 'Y' TO OT1-RCV-EXP-AMT-FLAG
END-IF.in the procedure division.
This variable occurs 5 times in the copybk with pic s9(9)v99 comp-3.

When I try to run this program it is giving soc7, The input file for this field is showing spaces for some of the fields. Is it because of this I am getting soc7. Can anyone help me on this.This is really very important . Can anyone give me some solution to resolve this.
My input file in the jcl to run this prog having DCB=
Record format . . . : VB
Record length . . . : 940
Block size . . . . : 27260

And my output file is having DCB=
Record format . . . : FB
Record length . . . : 200
Block size . . . . : 27800

Thanks. In Advance.
Back to top
View user's profile Send private message

murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Thu Nov 08, 2007 1:46 pm    Post subject:
Reply with quote

Kumar,

Intialize the variable (group) before you start your actual process (start of procedure division).
Back to top
View user's profile Send private message
guptae

Moderator


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

PostPosted: Thu Nov 08, 2007 1:54 pm    Post subject:
Reply with quote

Hi kumar,

Quote:
The input file for this field is showing spaces for some of the fields. Is it because of this I am getting soc7.



Yes , U r right becoz field contain spaces thats why u r getting SOC7.
How u r populating this variables in program & As Murali suggest dont forget to initialize the variable as the first step in the program.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


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

PostPosted: Thu Nov 08, 2007 8:50 pm    Post subject:
Reply with quote

If you are getting a SOC7 from fields on your INPUT file, you should not initialize. There is something very obviously wrong. Either your program defined fields are not in sync with the file (old copybook?). Take a look at the program that created this file. When you look at the input file, check for NOT NUMERIC in ALL 5 of these occurances - if not numeric, then you have the option of fixing the file and/or moving zeroes to the occurance of not numeric. Remember to check each occurance individually because if you check at the group level, you will be checking alpha-numeric.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


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

PostPosted: Thu Nov 08, 2007 8:51 pm    Post subject:
Reply with quote

Did you allow for the bytes at the beginning of the input file to determine record length? Are the occurances based on the length of the record? Perhaps they are at the end of the record?
Back to top
View user's profile Send private message
kumar1234

New User


Joined: 06 Nov 2007
Posts: 84
Location: bangalore

PostPosted: Sat Nov 10, 2007 7:03 pm    Post subject:
Reply with quote

Thanks Sandy my problem is solved now. I had initalized with 'is not numeric' 5 times before the variable which gave me problem with soc7. And it has gone fine.
Back to top
View user's profile Send private message
dick scherrer

Site Director


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

PostPosted: Sun Nov 11, 2007 2:49 am    Post subject:
Reply with quote

Hello Kumar,

Thank you for posting that your problem has been resolved icon_smile.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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts IDC2902I Error tzeche ABENDS & Debugging 2 Tue Mar 28, 2017 11:39 am
No new posts Need help with below DB2 error ashek15 DB2 3 Sat Mar 18, 2017 5:56 am
No new posts FINDREP Syntax Error seahawk789 DFSORT/ICETOOL 4 Thu Mar 09, 2017 10:11 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us