PERFORM sample

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-CNT PIC 9(1) VALUE 1. 

PROCEDURE DIVISION.
   A-PARA.
   PERFORM B-PARA  WITH TEST BEFORE UNTIL WS-CNT>3.
   PERFORM C-PARA 2 TIMES.
   PERFORM C-PARA UNTIL WS-CNT<1.
   PERFORM B-PARA THRU C-PARA.
   PERFORM D-PARA WITH TEST AFTER VARYING WS-CNT FROM 0 BY 1 UNTIL WS-CNT = 3.
   GO TO E-PARA.
   PERFORM 
   DISPLAY "THIS SHOULD NOT EXECUTE"
   END-PERFORM.
   STOP RUN.
   
   B-PARA.
   DISPLAY 'WS-CNT : 'WS-CNT.
   ADD 1 TO WS-CNT.
   
   C-PARA.
   DISPLAY "I WILL WIN."WS-CNT.
   SUBTRACT 1 FROM WS-CNT.
   
   D-PARA.
   DISPLAY "PUNI-KARU-DUHI"WS-CNT.
   
   E-PARA.
   DISPLAY "IF GO TO THEN THEN THE NEXT PARA WONT EXECUTE".