PGM                                                                     
/* MONTHLY JOBS MENU */                                                 
             DCLF       FILE(D97092/REPORTS) RCDFMT(*ALL)               
             MONMSG     MSGID(CPF0001) EXEC(GOTO CMDLBL(START))         
START:                                                                  
             SNDRCVF    RCDFMT(MENDMNU)                                 
/*  */                                                                  
             IF         COND(&OPTION ='1') THEN(DO)                     
             CALL       TRANSFER                                        
             CALL       CLASIFIED                                       
             CLRPFM     TAPNEWP                                         
             GOTO       CMDLBL(START)                                   
             ENDDO                                                      
/*  */                                                                  
             IF         COND(&OPTION ='2') THEN(DO)                     
             CALL       LISTALL                                         
             GOTO       CMDLBL(START)                                   
             ENDDO                                                      
/*  */                                                                  
             IF         COND(&OPTION ='3') THEN(DO)                     
             CALL       MISSING                                         
             GOTO       CMDLBL(START)                                   
             ENDDO                                                      
/*  */                                                                  
/*  */                                                                  
             IF         COND(&OPTION = '0') THEN(DO)                    
             RETURN                                                     
             ENDDO                                                      
ENDPGM                                                                  

   Link back to cl page