View Single Post
  #23  
Old 08-04-2006, 11:19 AM
kerowo kerowo is offline
Senior Member
 
Join Date: Nov 2005
Posts: 6,880
Default 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
Reply With Quote