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
↧