This preview shows page 1. Sign up to view the full content.
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.
- Spring '11