|
IDENTIFICATION DIVISION.
*
PROGRAM-ID. SHELSRTT.
*
DATE-WRITTEN. 05/03/90.
*
* MODIFIED 10/18/97.
*u
* *******************************
* * *
* * Judson D. McClendon *
* * Sun Valley Systems *
* * 329 37th Court N.E. *
* * Birmingham, AL 35215 *
* * 205-853-8440 *
* * *
* *******************************
*
ENVIRONMENT DIVISION.
*
CONFIGURATION SECTION.
*
INPUT-OUTPUT SECTION.
*
FILE-CONTROL.
*
DATA DIVISION.
*
FILE SECTION.
*
WORKING-STORAGE SECTION.
*
COPY wstore.cbl.
*
PROCEDURE DIVISION.
*
move 7 to ws-elements
*
******************************************************************
* *
* C O N T R O L *
* *
******************************************************************
*
L000000-cONTROL.
*
PERFORM L000200-PROCESS
THRU L000200-eXIT
UNTIL (WS-Elements > WS-ANSWER).
*
L000000-eXIT.
STOP RUN.
* P R O C E S S
*
L000200-pROCESS.
*
PERFORM L000200.
PERFORM L000200.
PERFORM L000200.
PERFORM L000200.
*
L000200.
DISPLAY "HI".
*
L000200-eXIT.
EXIT.
¤ Dauer der Verarbeitung: 0.17 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
