TGYTRYTRY

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD. 
AUTHOR SCOTT.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  EMPLOYEE-DETAILS. 
    05 EAGLE-ID PIC X(8).
    05 NAME.
        10 FIRST-NAME PIC X(20) VALUE 'ARMANDO'.
        10 LAST-NAME PIC X(20) VALUE 'CASAS'.
    05 ADRESS PIC X(40) VALUE 'DIRECCION LARGA #234 COL. AQUI SI MATAN'.
    05 HASHTAG PIC X(1) VALUE '#'.
    05 PHONE PIC 9(6) VALUE 123456.
01  NEW-PHONE PIC 9(6).
77  COUNTER PIC 9(02).
01  STAR PIC X(1) VALUE '*'.
PROCEDURE DIVISION.
        
    MOVE PHONE TO NEW-PHONE.
    DISPLAY EMPLOYEE-DETAILS.
    DISPLAY NEW-PHONE.
    
    IF HASHTAG  NOT = STAR THEN
        PERFORM 100-HASHTAGS
        UNTIL COUNTER >3
    ELSE
        PERFORM 200-STARS
        UNTIL COUNTER >4
        DISPLAY'.......'
    END-IF.
    
STOP RUN.

100-HASHTAGS SECTION.
    DISPLAY HASHTAG
    ADD 1 TO COUNTER.
    
200-STARS SECTION.
    DISPLAY STAR
    ADD 1 TO COUNTER.