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
 

 

What are the compile option in IGYWCLG utility

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

New User


Joined: 21 Jul 2006
Posts: 18
Location: Pune

PostPosted: Mon Apr 23, 2007 4:17 pm    Post subject: What are the compile option in IGYWCLG utility
Reply with quote

Hi Guys,

As we all know if Alphanumeric item is moved to Numeric item,we will get
Abend SOC7 but it's strange I am not getting this abend while junk value has been moved to Numeric item.

Is there any compile option which allows Alphanumeric field to be moved in Numeric ?
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Mon Apr 23, 2007 4:29 pm    Post subject: Re: What are the compile option in IGYWCLG utility
Reply with quote

amajhi wrote:
As we all know if Alphanumeric item is moved to Numeric item,we will get Abend SOC7
No, we didn't know.....Neither PACK, UNPK or MVC will raise a data exception no matter what "junk" you feed them.
Quote:
Is there any compile option which allows Alphanumeric field to be moved in Numeric ?
You don't need a compile option when it is a legal move.
Back to top
View user's profile Send private message
amajhi

New User


Joined: 21 Jul 2006
Posts: 18
Location: Pune

PostPosted: Mon Apr 23, 2007 4:55 pm    Post subject:
Reply with quote

So William, If we move Alphanumeric to Numeric it will not give SOC7.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Mon Apr 23, 2007 4:57 pm    Post subject:
Reply with quote

Not the move, it is even listed as a legal COBOL move.
What you do with that data could very well result in the S0C7......
By the way, that is an alpha "S" for system followed by the hex string zero charlie seven......
Back to top
View user's profile Send private message
amajhi

New User


Joined: 21 Jul 2006
Posts: 18
Location: Pune

PostPosted: Mon Apr 23, 2007 5:06 pm    Post subject:
Reply with quote

I have declared two variables as :

05 ws-var-1 pic X(3) value 'ABC".
05 ws-var-2 pic 9(3) value 001.

then i am moving ws-var-1 to ws-var-2,but getting junk values in ws-var-2 instead of SOC7.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Mon Apr 23, 2007 5:21 pm    Post subject:
Reply with quote

amajhi wrote:
I have declared two variables as :
05 ws-var-1 pic X(3) value 'ABC".
05 ws-var-2 pic 9(3) value 001.
then i am moving ws-var-1 to ws-var-2,but getting junk values in ws-var-2 instead of SOC7.
OK, what is your point?
If you really want to try for that S0C7, try majing the ws-var-2 a comp field, CVB will raise a data exception......
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2284
Location: @my desk

PostPosted: Tue Apr 24, 2007 1:44 pm    Post subject:
Reply with quote

Hi

Try some condition check or computation with ws-var-2....

Thanks
Arun
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 686
Location: Earth

PostPosted: Tue Apr 24, 2007 2:18 pm    Post subject:
Reply with quote

ws-var-2 should print (in display statement) 123 after you move ws-var-1 to ws-var-2.
You will not get S0C7 until you do arithmatic operation on non-numeric data in PACKED-DECIMAL format.
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 How to Use DebugTool CodeCoverage Uti... neo4u IBM Tools 0 Thu Jun 22, 2017 6:38 pm
No new posts Search utility(3.14) using JCl and Cobol RKS3 COBOL Programming 12 Sat Jun 10, 2017 10:24 pm
No new posts DB2 - TERMINATE utility vasanthz DB2 5 Mon May 15, 2017 11:49 pm
No new posts HLIST Utility In Batch Virendra Shambharkar TSO/ISPF 4 Fri Apr 07, 2017 3:38 pm
No new posts DFSORT - Overriding default option TU... Steve Ironmonger DFSORT/ICETOOL 3 Tue Apr 04, 2017 3:54 pm


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