4GL以输入的顺序排序显示

原创 2017年01月03日 14:22:09
#以输入的顺序排序显示(输入什么顺序就显示什么顺序)
LET l_wc=tm.wc
  
SELECT instr(l_wc,'sfb01 in',1,1) INTO l_have FROM dual 
  
IF l_have <> 0 THEN
     
    SELECT instr(l_wc,'sfb01 in',1,1) INTO l_n1 FROM dual        
    
    SELECT instr(l_wc,'(',l_n1,1) INTO l_n2 FROM dual
    
    SELECT instr(l_wc,')',l_n2,1) INTO l_n3 FROM dual   
    
    LET j=1
    
    LET k=1
    
    LET l_orderby=" order by case sfb01"
    
    FOR i=l_n2 TO l_n3 
    
      IF l_n4 < l_n3 THEN
      
         SELECT instr(l_wc,'\'',l_n2,j) INTO l_n4 FROM dual
      
         SELECT instr(l_wc,'\'',l_n2,j+1) INTO l_n5 FROM dual
        
       IF l_n4 > 0 AND l_n5 > 0 THEN       
           
          LET l_orderby=l_orderby," when '",l_wc[l_n4+1,l_n5-1],"' then ",k CLIPPED," "
           
          LET k=k+1
           
          LET j=j+2
        
       ELSE
           
          EXIT FOR
        
       END IF
    
      ELSE
    	  
       EXIT FOR
    
      END IF
    
   END FOR
        
   LET l_orderby=l_orderby," end "
    
   LET l_sql=l_sql CLIPPED,l_orderby CLIPPED
  
END IF


 

版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

[南阳OJ-No.4]ASCII码排序|输入三个字符(可以重复)后,按各字符的ASCII码从小到大的顺序输出这三个字符。

南阳OJ-No.4时间限制3000ms,内存限制65535kb描述输入三个字符(可以重复)后,按各字符的ASCII码从小到大的顺序输出这三个字符。输入第一行输入一个数N,表示有N组测试数据。后面的N行...
  • dj741
  • dj741
  • 2017-01-31 15:09
  • 463

4GL是什么?计算机辅助软件工程CASE是什么?

4GL作者: ,  出处:searchsmb, 责任编辑: , 2005-05-16 13:27  Programming   在计算机行业中,通常有几代语言来表示语言的发展。 1GL或第一代语...

我是如何成为一名python大咖的?

人生苦短,都说必须python,那么我分享下我是如何从小白成为Python资深开发者的吧。2014年我大学刚毕业..

Open gl 的不规则图形的4联通种子递归填充和扫描线种子递归填充算法实现

http://blog.csdn.net/jiangxinyu/article/details/7911876

TIPTOP 4GL——自定义按钮前加图标

对于TIPTOP系统,标准的按钮都有相对应的小图标,如下图: 但是对于自己添加的按钮,很少有小图标的; 那下面我就分析一下怎么让自己加的按钮也有小图标:看效果(右边按钮): 【当然我这个...

4GL算法【列举法-百钱买百鸡,递归法-小猴吃枣】

1. 滴水不漏——列举法破解难题 示例:百钱买百鸡 公鸡3元每只,母鸡5元每只,小鸡1元3只,一百元钱买一百只鸡。请求出公鸡,母鸡和小鸡的数目? 编程简析: 我们做最极端的假设,公鸡可能是0-...

TIPTOP——4GL颜色相关设置

使用测试系统TIPTOP GP3.0 颜色的设置分为单身颜色和单头颜色的设置: 一、单身颜色: 1.首先MAIN函数之前定义一个数组 例如: DEFINE ga_color DYNA...

4gl程式debug常用技巧

1、带参数的D: ‘MISC’表示具体料号传入 2、指定行数设置断点 比如我要在程式axmt360中的211行开始D 进入Debug界面后按ctrl+D 弹出界面 输入b 行数 ...
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)