Cobol - Agradecería algunos programas ejemplos en Cobol

0230A0-VALIDAC.

        PERFORM 0230A1-VALIDA-NOMBRE

        IF VAL-ERROR THEN  GO TO  0230A0-VALIDAC-FIN.

	PERFORM 0230A3-VALIDA-CUIL

        IF VAL-ERROR THEN  GO TO  0230A0-VALIDAC-FIN.

	PERFORM 0230A5-VALIDA-MAIL

        IF VAL-ERROR THEN  GO TO  0230A0-VALIDAC-FIN.

	PERFORM 0230A7-VALIDA-COD-PAIS

        IF VAL-ERROR THEN  GO TO  0230A0-VALIDAC-FIN.

        ...

        ...

        PERFORM 0920-PIDE-CONFIRMACION.

   0230A0-VALIDAC-FIN.

        EXIT.

039940 F28KK.    IF    1-JB51-EAN00 NOT = SPACE

039950           AND   1-JB51-EAN00 NOT = LOW-VALUE

039960           NEXT SENTENCE ELSE GO TO     F28KK-FN.

039970     MOVE        1-JB51-EAN00 TO CT16-SEAT16

039980     PERFORM     F9616 THRU F9616-FN.

039990           IF    IK = ZERO

040000     MOVE        DIA6-EAN01 TO WI89-EAN01.

040010           IF    IK NOT = ZERO

040020     MOVE ALL    '*' TO WT89-EAN01.

040030 F28KK-FN. EXIT.

040040 F28KN.    IF    FAJB51-GOA86 NOT = SPACE

040050           AND   FAJB51-GOA86 NOT = LOW-VALUE

040060           NEXT SENTENCE ELSE GO TO     F28KN-FN.

procedure division.

000-inicio section.

   perform 100-inicio.

   perform 200-proceso

                until fin=1.

   perform 300-fin.

   y la palabra goback;

   antes del exit;

000-fin.

   exit.

100-inicio section..

   perorm 110-read-parametros

                until lectura=1.

100-fin.

   exit.

110-read-parametros section.

   read parametros at end lectura=1.

110-fin.

   exit.

200-proceso section.

   if ejemplo = 1

       perform 210-ejemplo1

   else

       if ejemplo = 2

           perform 220-ejemplo2

                        until fin-ejemplos = 1.

200-fin.

   exit.

210-ejemplo1.

   exec cics send el mapa.

   etc.

220-ejemplo2.

   exec cics receive el mapa