Problem with System completion code = 0C7



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

Re: Problem with System completion code = 0C7

Postby Robert Sample » Tue Jan 08, 2013 8:48 pm

You need to consider defensive coding:
DISPLAY 1
IF  INTERMEDIARIO NUMERIC
    MOVE INTERMEDIARIO TO PROPOSTA
ELSE
    DISPLAY 'NON-NUMERIC VALUE'
    MOVE ZERO TO PROPOSTA
END-IF
DISPLAY 2
Robert Sample
Global moderator
 
Posts: 3367
Joined: Sat Dec 19, 2009 8:32 pm
Location: East Dubuque, Illinois
Has thanked: 1 time
Been thanked: 222 times

Re: Re: Problem with System completion code = 0C7

 

Re: Problem with System completion code = 0C7

Postby Dashimir » Fri Jan 25, 2013 10:18 pm

Thank you Robert Sample it worked perfectly.

Now i am having trouble to deal with s(9) comp-3 variables and etc. I have to get those variables ex[ S9(9) COMP-3] and move to pic 9(9). when i try i always get a number with some dirty thing like:


07226077C should be 072260777
00716114{
00846023{
01172505{
07226124I should be 072261249
06908804{
071825110
Dashimir
 
Posts: 42
Joined: Wed Dec 26, 2012 7:27 pm
Has thanked: 2 times
Been thanked: 0 time

Re: Problem with System completion code = 0C7

Postby dick scherrer » Fri Jan 25, 2013 10:37 pm

Hello,

07226077C should be 072260777
Most likely not . . . I suspect it should be 773 not 777.

What you see is signed zoned-decimal values. Which are totally valid.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

Re: Problem with System completion code = 0C7

Postby Dashimir » Fri Jan 25, 2013 11:13 pm

so a=1 b=2 c=3 ? and what is }?

i change thos to numbers with evaluate or there is a better way ? =D.
Dashimir
 
Posts: 42
Joined: Wed Dec 26, 2012 7:27 pm
Has thanked: 2 times
Been thanked: 0 time

Re: Problem with System completion code = 0C7

Postby c62ap90 » Fri Jan 25, 2013 11:17 pm

      HEX         
DEC  (COMP) EBCDIC
---  ------ ------
192    C0   {   (left bracket  - positive value)
208    D0   }   (right bracket - negative value)
c62ap90
 
Posts: 125
Joined: Thu Oct 11, 2012 10:24 pm
Has thanked: 1 time
Been thanked: 6 times

Re: Problem with System completion code = 0C7

Postby dick scherrer » Sat Jan 26, 2013 12:38 am

Hello,

so a=1 b=2 c=3 ? and what is }?
"J" is a negative one. '}' is a negative zero.
Positive values are x'C0' thry x'C9".
Negative values are x'D0' thru x'D9'
Enter a few values in a file or member and show these in hex.

i change thos to numbers with evaluate or there is a better way ? =D.
A MOVE or COMPUTE will do what you want - no need for an EVALUATE.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

Re: Problem with System completion code = 0C7

Postby Dashimir » Mon Jan 28, 2013 6:59 pm

I just removed the s(09) -> (09), i was afraind that moving to comp s etc were the problem. Now everything works fine thx.
Dashimir
 
Posts: 42
Joined: Wed Dec 26, 2012 7:27 pm
Has thanked: 2 times
Been thanked: 0 time

Previous

Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post