IDENTIFICATION DIVISION.
PROGRAM-ID. perf2.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 SWITCH1 PIC 9 VALUE 1.
   88 SW1-TESTON VALUE 1.
   88 SW1-TESTOFF VALUE 0.

01 SWITCH2 PIC 9 VALUE 0.
   88 SW2-TESTON VALUE 1.
   88 SW2-TESTOFF VALUE 0.

01 TBED-DBID-SS PIC 9(4).
01 TBED-TMP PIC 9(4).
01 TBED-TMP2 PIC X(5) VALUE "XXXXX".
01 TBED-TMP3 PIC X(5) VALUE "XXXXX".
PROCEDURE DIVISION.
MAIN-LOGIC.
SET SW1-TESTON TO TRUE 
SET SW2-TESTON TO TRUE

PERFORM 99930-LOAD-DEFAULTS                                          
              THRU 99930-LOAD-DEFAULTS-EXIT                                     
                  VARYING TBED-DBID-SS                                          
                  FROM 1  BY  1                                                 
                  UNTIL   TBED-DBID-SS > 999.
                  
STOP RUN. 

99930-LOAD-DEFAULTS.
    DISPLAY TBED-DBID-SS " " UPON SYSOUT 
    MOVE TBED-DBID-SS TO TBED-TMP
    IF TBED-DBID-SS = 1
        SET SW1-TESTOFF TO TRUE
        SET SW2-TESTOFF TO TRUE
    END-IF 
    IF TBED-DBID-SS = 2
        SET SW2-TESTON TO TRUE
        MOVE "ABCDE" TO TBED-TMP2
        MOVE "AB9DE" TO TBED-TMP3
    END-IF 
    IF TBED-DBID-SS = 3
        MOVE "AB0DE" TO TBED-TMP3
    END-IF 
    
    . 

99930-LOAD-DEFAULTS-EXIT.                                                
    EXIT.