1D-ARRAY - END-PERFORM. ACCEPT WS-SC. MOVE 1 TO I. PERFORM...

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

View Full Document Right Arrow Icon
Sheet1 Page 1 DD. .. WSS. .. 01 WS-REC. 02 WS-STN OCCURS 5 TIMES. 05 STNC PIC X(3). 05 STNM PIC X(20). 77 I PIC 99 VALUE 1. 77 WS-SC PIC X(3). 77 FLAG PIC 9 VALUE 0. PROCEDURE DIVISION. PERFORM UNTIL I > 5 ACCEPT WS-STN(I) ADD 1 TO I
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: END-PERFORM. ACCEPT WS-SC. MOVE 1 TO I. PERFORM UNTIL I > 5 IF WS-SC = STNC(I) DISPLAY WS-STN(I) MOVE 1 TO FLAG. END-IF ADD 1 TO I END-PERFORM. IF FLAG = 0 DISPLAY "NO STATION EXISTS" END-IF. 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