Problem:

A negative value should have ended in a } but instead is shown as a p. This causes a problem as the end user now gets instead of a negative amount

-35,000.00 the end-user sees -35,000.07

-35,000 should end with } to close. But it is closed by a p as last character. And this p in ASCII ends in -7 which is actually the true representation. Why is the } not displayed in the first place?

The code used is:

SELECT BBCONVHY ASSIGN TO EXTERNAL BBCONVHY

ORGANIZATION IS LINE SEQUENTIAL

ACCESS MODE IS SEQUENTIAL.

01 HR30-HOOFDSOM-REC.

03 HR30-SAL PIC S9(13)V9(2).

DISPLAY "Uitvoering: 1300-HOOFDSOM".

PERFORM 1300-HOOFDSOM.

WHEN HULP-REC-SRT = 30

ADD 1 TO REC-30-AANT

Resolution:

Use the directive SIGN"EBCDIC" and the correct symbol will be displayed here.