2D ARRAYS - PARA-1 ACCEPT M ACCEPT N DISPLAY MAXTEMPR M N...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
Sheet1 Page 1 DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-REC. 05 ROWS OCCURS 7 TIMES. 10 DAYNAME PIC X(12). 10 COLS OCCURS 2 TIMES. 15 MAXTEMPR PIC 99V9. 15 MINTEMPR PIC 99V9. 15 FILLER PIC XX. PROCEDURE DIVISION. READ-PARA. PERFORM VARYING M FROM 1 BY 1 UNTILL M > 7 ACCEPT ROWS (M) END-PERFORM.
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: PARA-1. ACCEPT M. ACCEPT N . DISPLAY MAXTEMPR( M N ). DISPLAY MINTEMPR ( M N ). PARA-2. PERFORM VARYING M FROM 1 BY 1 UNTIL M >= 8 PERFORM VARYING N FROM 1 BY 1 UNTIL N >= 3 IF MAXTEMPR( M N ) > 40.0 DISPLAY DAYNAME(M) END-IF END-PERFORM END-PERFORM. STOP RUN....
View Full Document

This note was uploaded on 03/02/2011 for the course COMPUTER A BCA taught by Professor Nandakumar.g during the Spring '11 term at University of Madras.

Ask a homework question - tutors are online