000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. TU-SIGUIENTE-PASO.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 WS-NEGOCIO PIC X(24)
000600     VALUE "TU EMPRESA".
000700 01 WS-OBJETIVO PIC X(36)
000800     VALUE "SEGUIR AVANZANDO".
000900 PROCEDURE DIVISION.
001000 INICIO.
001100     DISPLAY FUNCTION TRIM(WS-NEGOCIO)
001200     DISPLAY FUNCTION TRIM(WS-OBJETIVO)
001300     PERFORM ANALIZAR
001400     PERFORM DESARROLLAR
001500     PERFORM VALIDAR
001600     STOP RUN.
001700 ANALIZAR.
001800     DISPLAY "01 > Entender el sistema.".
001900 DESARROLLAR.
002000     DISPLAY "02 > Escribir el cambio.".
002100 VALIDAR.
002200     DISPLAY "03 > Probar antes de entregar.".
002300 END PROGRAM TU-SIGUIENTE-PASO.