PGM                                                                     
/* VIDEO PROJECT MENU */                                                
             DCLF       FILE(D97092/STOCK) RCDFMT(*ALL)                 
             MONMSG     MSGID(CPF0001) EXEC(GOTO CMDLBL(START))         
START:                                                                  
             SNDRCVF    RCDFMT(MENDMNU)                                 
/*  */                                                                  
             IF         COND(&OPTION ='1') THEN(DO)                     
             CALL       ADDTAPE                                         
             GOTO       CMDLBL(START)                                   
             ENDDO                                                      
/*  */                                                                  
             IF         COND(&OPTION ='2') THEN(DO)                     
             CALL       DELEATTAPE                                      
             GOTO       CMDLBL(START)                                   
             ENDDO                                                      
/*  */                                                                  
             IF         COND(&OPTION = '0') THEN(DO)                    
             RETURN                                                     
             ENDDO                                                      
/*  */                                                                  
ENDPGM                                                                  

   Link back to cl page