midrange.com code scratchpad
Name:
Anonymous
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
10/28/2011 06:55:17 pm
IP:
Logged
Description:
The user was to lazy to give a description
Code:
  1. C                   if        (SHCO# <> 0)                
  2. C/EXEC SQL DECLARE C1 CURSOR FOR                          
  3. C+ SELECT CMCSNAME, CMADDR1, CMCITY, CMCST#6, CMCST#3 FROM
  4. C+ CUSTML1 WHERE (CMCSNAME>=:SHCSNAME) AND CMCSNAME LIKE  
  5. C+ :csgrpkwda AND (CMSRVCO#=:SHCO# and                    
  6. C+ CMDEL<>'D') ORDER BY CMCSNAME                          
  7. C/END-EXEC                                                
  8. C*                                                        
  9. C                   else                                  
  10. C/EXEC SQL DECLARE C1 CURSOR FOR                          
  11. C+ SELECT CMCSNAME, CMADDR1, CMCITY, CMCST#6, CMCST#3 FROM
  12. C+ CUSTML1 WHERE (CMCSNAME>=:SHCSNAME) AND CMCSNAME LIKE  
  13. C+ :csgrpkwda AND CMDEL<>'D' ORDER BY CMCSNAME            
  14. C/END-EXEC                                                
  15. C                   endif
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css