COBOL - Códigos e Comentarios

Bem, como estamos iniciando um processo de aprendizagem, nada melhor que começarmos a entender um simples codigo com sua devida identação a baixo um codigo em cobol, sobre tabuada.

EDIT GP.GPCR23.COBLIB(LEOPGM) - 01.04 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. LEOPGM.
000300 AUTHOR. LEANDRO.
000400 DATE-WRITTEN. 22/07/2010.
000500 DATE-COMPILED.
000510 ******************************************************************
000600 *
000610 * P R O G R A MA D E T A B U A D A
000620 *
000700 ******************************************************************
000800 * E N V I R O N M E N T D I V I S I O N *
000900 ******************************************************************
001000 ENVIRONMENT DIVISION.
001100 CONFIGURATION SECTION.
001200 SPECIAL-NAMES.
001300 DECIMAL-POINT IS COMMA.
001400 *
001400 *
001500 ******************************************************************
001600 * D A T A D I V I S I O N *
001700 ******************************************************************
001800 DATA DIVISION.
001900 *
002000 ******************************************************************
002100 * WORKING-STORAGE SECTION. *
002200 ******************************************************************
002300 WORKING-STORAGE SECTION.
002400 *
002500 *----------------------------------------------------------------*
002600 * WS-AUXILIAR *
002700 *----------------------------------------------------------------*
002800 01 WS-AUXILIAR.
002910 05 WS-RESULTADO PIC 9(02) VALUE ZEROS.
002920 05 WS-RESULTADO2 PIC 9(03) VALUE ZEROS.
003000 05 WS-INDEX PIC 9(02) VALUE ZEROS.
003200 05 WS-INDEX2 PIC 9(02) VALUE ZEROS.
003500 *
003600 ******************************************************************
003700 * PROCEDURE DIVISION *
003800 ******************************************************************
003900 PROCEDURE DIVISION .
004000 *
004100 ******************************************************************
004200 * MAINLINE *
004300 ******************************************************************
004400 MAINLINE.
004500 *
004600 PERFORM 1000-INICIO
004700 *
004800 PERFORM 2000-PROCESSO
004900 *
005000 PERFORM 3000-FINAL.
005100 *
005200 ******************************************************************
005210 * 1000-INICIO *
005220 ******************************************************************
005230 1000-INICIO.
005240 *
005250 INITIALIZE WS-AUXILIAR.
005270 *
005280 ******************************************************************
005290 * 2000-PROCESSO *
005291 ******************************************************************
005292 2000-PROCESSO.
005293 *
005294 INITIALIZE WS-INDEX
005295 *
005297 PERFORM UNTIL WS-INDEX GREATER 9
005298 *
005299 ADD 1 TO WS-INDEX
005303 *
005304 DISPLAY '****************'
005305 DISPLAY '|TABUADA = 'WS-INDEX ' |'
005306 DISPLAY '****************'
005309 *
005310 INITIALIZE WS-INDEX2
005311 *
005312 PERFORM UNTIL WS-INDEX2 GREATER 9
005313 *
005314 ADD 1 TO WS-INDEX2
005315 *
005320 COMPUTE WS-RESULTADO =
005330 WS-INDEX * WS-INDEX2
005340 *
005341 IF WS-INDEX EQUAL 10 AND WS-INDEX2 EQUAL 10
005342 MOVE 100 TO WS-RESULTADO2
005343 DISPLAY '| ' WS-INDEX ' X '
005344 WS-INDEX2 ' = '
005345 WS-RESULTADO2 '| '
005346 ELSE
005391 DISPLAY '| ' WS-INDEX ' X '
005392 WS-INDEX2 ' = '
005393 WS-RESULTADO ' | '
005393 WS-RESULTADO ' | '
005399 END-IF
005400 *
005401 END-PERFORM
005402 *
005403 END-PERFORM
005404 .
005405 *
005410 ******************************************************************
005420 * 3000-FINAL *
005430 ******************************************************************
005440 3000-FINAL.
005450 *
005460 GOBACK.
005470 *
005480 ******************************************************************
005490 * FIM *
005491 ******************************************************************