Select statement in CL

[as400Pro]

just because

    /* change the current library to reflect company */   
                                                          
           SELECT                                         
           WHEN       COND(&CNUM = '15') THEN(DO)         
           CHGCURLIB  CURLIB(LBIFIL)                      
           ENDDO                                          
           WHEN       COND(&CNUM = '18') THEN(DO)         
           CHGCURLIB  CURLIB(LSNFIL)                      
           ENDDO                                          
           WHEN       COND(&CNUM = '20') THEN(DO)         
           CHGCURLIB  CURLIB(HSAFIL)                      
           ENDDO                                          
           WHEN       COND(&CNUM = '30') THEN(DO)         
           CHGCURLIB  CURLIB(PDMFIL)                      
           ENDDO                                          
           WHEN       COND(&CNUM = '72') THEN(DO)         
           CHGCURLIB  CURLIB(GMCFIL)                      
           ENDDO                                          
           OTHERWISE  CMD(DO)             
           ENDDO                          
           ENDSELECT 

KV