The BLANK WHEN ZERO clause replaces zeros with blanks.
The BLANK WHEN ZERO clause is useful for displaying spaces when a zero is used to represent an invalid value in a data item.
000010 @OPTIONS MAIN 000020*---------------------------------------------------------------------- 000030* The BLANK WHEN ZERO clause displays a blank when a value is zero. 000040*---------------------------------------------------------------------- 000050 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. SAMPLE. 000070 DATA DIVISION. 000080 WORKING-STORAGE SECTION. 000090*---------------------------------------------------------------------- 000100* The BLANK WHEN ZERO clause is specified for selected subjects 000105* (Japanese-history and world-history). 000110*---------------------------------------------------------------------- 000120 01 TEST-RESULTS. 000130 02 ENGLISH PIC 9(3) BLANK WHEN ZERO. 000140 02 PIC X(6) VALUE SPACE. 000150 02 MATHEMATICS PIC 9(3) BLANK WHEN ZERO. 000160 02 PIC X(10) VALUE SPACE. 000170 02 US-HISTORY PIC 9(3) BLANK WHEN ZERO. 000180 02 PIC X(10) VALUE SPACE. 000190 02 WORLD-HISTORY PIC 9(3) BLANK WHEN ZERO. 000210 77 TEMP PIC 9(3). 000220 PROCEDURE DIVISION. 000230 DISPLAY "Please input the test results." 000240 DISPLAY "Please input a zero for courses that have not been 000245- "selected." 000250 DISPLAY "English >> " WITH NO ADVANCING 000260 ACCEPT TEMP. 000261 MOVE TEMP TO ENGLISH. 000270 DISPLAY "Mathematics >> " WITH NO ADVANCING 000280 ACCEPT TEMP. 000281 MOVE TEMP TO MATHEMATICS. 000290 DISPLAY "US history >> " WITH NO ADVANCING 000300 ACCEPT TEMP. 000310 MOVE TEMP TO US-HISTORY. 000320 DISPLAY "World history >> " WITH NO ADVANCING 000330 ACCEPT TEMP. 000340 MOVE TEMP TO WORLD-HISTORY. 000350 DISPLAY " ". 000360 DISPLAY " English Mathematics US history World 000365- " History". 000370 DISPLAY "Results: " TEST-RESULTS. 000380 END PROGRAM SAMPLE.
