Conference csc32::cobol2

562.0. "reserved operand fault" by NETRIX::"[email protected]" (Fernando Bandeira) Wed Mar 12 1997 09:22

Hi!
This is a shot in the dark, I don't know what I'm talking about (parrot
fashion).

Dec Cobol v2.3-793, Digital Unix 3.2d.

Customer description:
After the record bellow is read in, it is released to the sort file causing
the following error:

Error message: SYSTEM-F-ROPERAND, reserved operand fault.
A numeric string or packed decimal value contains an invalid digit or sign.

Is there a way of checking the record for nuull values after it is read in,
or as it is read? The program currently aborts if the input data file contains
a null value. I'm not sure if it aborts because of the null value in the
numeric
field, or because the spaces following the nulls are read into the numeric
fields
because of the nulls. We would prefer that the program capture the error and
exit
normaly writing away the error to a log file, as it does with SQL and file
status.

This is part of the Customer's file: (\0=null)
# od -c filename
0000000   ( all numbers, no nulls )
0000060   0  1  0  1  0  0  6  3  9  9  9  9 \0 \0 \0 \0
0000100  \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0    303
0000120                                                 
0000140                                       0  0  1  M
0000160   S  C  L  S                  0  0  0 0  9  6  1
  (and carries on).....
0000360   5  7  0  8  8  4  0  1  \n

Many thanx for ANY reply!
Cheers,
Fernando.

[Posted by WWW Notes gateway]

I had left this bit out.

I don't have a copy of the program :-( but the Cust. explained that:
The program reads this record, placing the mentioned values into two numeric
fields, each 10 characters in length, PIC9(10).

Cheers,
Fernando.

[Posted by WWW Notes gateway]

>Dec Cobol v2.3-793, Digital Unix 3.2d.
>
>Customer description:
>After the record bellow is read in, it is released to the sort file causing
>the following error:
>
>Error message: SYSTEM-F-ROPERAND, reserved operand fault.
>A numeric string or packed decimal value contains an invalid digit or sign.

    This looks like a message from OpenVMS.  Are you sure the customer is
    using DIGITAL UNIX?
    
    Once you get a source program from the customer, you should post this
    in
    
    	CLT::COBOL
    
    which covers DEC/VAX COBOL.  COBOL2 (this conference) is devoted to MF
    COBOL.

Hi!

Many thanx.
I'll request the source from the Cust. and update the NOTE:
http://www-notes.lkg.dec.com/clt/cobol/3214.0

Sorry for crashing in here.
Cheers,
Fernando.


[Posted by WWW Notes gateway]