I have been testing Visual Cobol against an older Cobol main frame system and just have a question about Z Zero Suppression
Here's a sample program
IDENTIFICATION DIVISION.
PROGRAM-ID. EXAMPLE.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TEST-RECORD.
05 PR-NUM PIC 99v99.
05 PR-NUM1 PIC ZZ.99.
PROCEDURE DIVISION.
PARA-1.
Display "Enter number"
ACCEPT PR-NUM
move PR-NUM to PR-NUM1
DISPLAY PR-NUM1
STOP RUN.
When I run the program in Micro Focus Cobol and enter in the following data 0328 I get 28.00 which is not right.
When I run the program in our older mainframe and enter in the following data 0328 I get 3.28 which is to be expected the leading zero is suppressed.
Not sure how to get Zero Suppression working in Micro Focus Cobol