Re: JJ against EP raiser
[ QUOTE ]
[ QUOTE ]
Would you rather have:
DATA DIVISION.
01 WS_THINGS_LEARNED_TODAY PIC 99 VALUE ZEROS.
PRODCEDURE DIVISION.
PERFORM 120-LEARNED-TODAY THRU
120-LEARNED-TODAY-EXIT.
120-LEARNED-TODAY.
************************************************** *******
* 120-LEARNED-TODAY
* CALLED BY 100-READING-THE-WEB
* LETS INCREMENT THE WHAT I LEARNED COUNTER
************************************************** *******
ADD +1 TO WS_THINGS_LEARNED_TODAY
.
120-LEARNED-TODAY-EXIT.
[/ QUOTE ]
jesus.
props on the code fragment. is this fortran?
[/ QUOTE ]
Worse.
COBOL
|