COBOL嵌入式SQL

Question

我有个奇怪的问题。

         EXEC SQL SELECT                             
         AVG(LER)                                   
         INTO :LER-MIN                              
         FROM CENSUS.WORLDIMR                       
   *     WHERE CENSUS.WORLDIMR.COUNTRY LIKE 'L%'    
         END-EXEC.                           

这是72.2，但当我使用

WHERE CENSUS.WORLDIMR.COUNTRY LIKE 'L%'

它发出了00.0。

然而，在SPUFI中尝试这样做：

select avg(ler)                              
from census.worldimr                         
where census.worldimr.country like 'L%';    

给出了71.33333333333。

我做错什么了？

这是一个节目：

000001        PROCESS SQL                                                      
000002        IDENTIFICATION DIVISION.                                         
000003        PROGRAM-ID. CBL7.                                                
000004       *--------------------                                             
000005        ENVIRONMENT DIVISION.                                            
000006       *--------------------                                             
000007        CONFIGURATION SECTION.                                           
000008        INPUT-OUTPUT SECTION.                                            
000009        FILE-CONTROL.                                                    
000010            SELECT P3OUT ASSIGN TO UT-S-P3OUT.                           
000011                                                                         
000012        DATA DIVISION.                                                   
000013       *-------------                                                    
000014        FILE SECTION.                                                    
000015        FD  P3OUT                                                        
000016            RECORD CONTAINS 80 CHARACTERS                                
000017            LABEL RECORDS ARE OMITTED                                    
000018            RECORDING MODE F                                             
000019            DATA RECORD IS PRTREC.                                       
000020                                                                         
000021        01 PRTREC.                                                       
000022           02 LER-PRT              PIC 99.9.                             
000023           02 FILLER               PIC X(76).                            
000024                                                                         
000025        WORKING-STORAGE SECTION.                                         
000026        01  VARS.                                                        
000027            10 LER-MIN              PIC S9(5)V9(1) USAGE COMP-3.         
000028                                                                         
000029             EXEC SQL INCLUDE SQLCA  END-EXEC.                           
000030       ******************************************************************
000031       *        TABLE(CENSUS.WORLDIMR)                                  *
000032       ******************************************************************
000033            EXEC SQL DECLARE CENSUS.WORLDIMR TABLE                       
000034            ( REGION                         CHAR(5) NOT NULL,           
000035              COUNTRY                        CHAR(30) NOT NULL,          
000036              YR                             CHAR(4) NOT NULL,           
000037              IMR                            DECIMAL(5, 1) NOT NULL,     
000038              IMRM                           DECIMAL(5, 1) NOT NULL,     
000039              IMRF                           DECIMAL(5, 1) NOT NULL,     
000040              IMR1_4                         DECIMAL(5, 1) NOT NULL,     
000041              IMR1_4M                        DECIMAL(5, 1) NOT NULL,     
000042              IMR1_4F                        DECIMAL(5, 1) NOT NULL,     
000043              IMR_5                          DECIMAL(5, 1) NOT NULL,     
000044              IMR_5M                         DECIMAL(5, 1) NOT NULL,     
000045              IMR_5F                         DECIMAL(5, 1) NOT NULL,     
000046              LER                            DECIMAL(5, 1) NOT NULL,     
000047              LERM                           DECIMAL(5, 1) NOT NULL,     
000048              LERF                           DECIMAL(5, 1) NOT NULL      
000049            ) END-EXEC.                                                  
000050       ******************************************************************
000051       * COBOL DECLARATION FOR TABLE CENSUS.WORLDIMR                    *
000052       ******************************************************************
000053        01  WORLDIMR.                                                    
000054            10 REGION               PIC X(5).                            
000055            10 COUNTRY              PIC X(30).                           
000056            10 YR                   PIC X(4).                            
000057            10 IMR                  PIC S9(4)V9(1) USAGE COMP-3.         
000058            10 IMRM                 PIC S9(4)V9(1) USAGE COMP-3.         
000059            10 IMRF                 PIC S9(4)V9(1) USAGE COMP-3.         
000060            10 IMR1-4               PIC S9(4)V9(1) USAGE COMP-3.         
000061            10 IMR1-4M              PIC S9(4)V9(1) USAGE COMP-3.         
000062            10 IMR1-4F              PIC S9(4)V9(1) USAGE COMP-3.         
000063            10 IMR-5                PIC S9(4)V9(1) USAGE COMP-3.         
000064            10 IMR-5M               PIC S9(4)V9(1) USAGE COMP-3.         
000065            10 IMR-5F               PIC S9(4)V9(1) USAGE COMP-3.         
000066            10 LER                  PIC S9(4)V9(1) USAGE COMP-3.         
000067            10 LERM                 PIC S9(4)V9(1) USAGE COMP-3.         
000068            10 LERF                 PIC S9(4)V9(1) USAGE COMP-3.         
000069                                                                         
000070        PROCEDURE DIVISION.                                              
000071       *------------------                                               
000072            EXEC SQL SELECT                                              
000073             AVG(LER)                                                    
000074             INTO :LER-MIN                                               
000075             FROM CENSUS.WORLDIMR                                        
000076             WHERE CENSUS.WORLDIMR.COUNTRY LIKE 'L%'                     
000077             END-EXEC.                                                   
000078            OPEN OUTPUT P3OUT.                                           
000079            MOVE LER-MIN TO LER-PRT.                                     
000080            WRITE PRTREC.                                                
000081            CLOSE P3OUT.                                                 
000082            STOP RUN.                                     

Answer 1

手册是伟大的东西，特别是当搜索引擎可以直接进入它们时：

类似db2的sql

第一次命中应该会带您到通过IBM知识中心提供给您的手册。它适用于DB2 11.0，因此如果不使用11.0，则应该进行明显的更改。

阅读后，你会发现：

如果模式是在固定长度的字符串变量中指定的，则任何尾随空格都被解释为模式的一部分。因此，最好使用与模式长度相同的实际长度的可变长度字符串变量。如果宿主语言不允许可变长度的字符串变量，则将模式放置在长度为模式长度的固定长度字符串变量中。 有关使用特定编程语言的主机变量的详细信息，请参阅主机变量。

您所使用的语言COBOL不允许可变长度的字符串变量(使其速度如此之快的原因之一，所以不要抱怨)。

因此，类似的常量(在COBOL中为文字)需要与所涉及的列的长度相同，而文字中的所有附加位置也需要%(至少在任何数据的实际最大长度的末尾，严格地与类似的数据匹配)。

或者，使用COBOL主机变量的长度，再次填充尾随%s，而不是尾随空格。

或者使用类似varchar的主机变量(包含项的COBOL表以两个字节的二进制形式包含数据长度，值为2，然后是L%)。

01 varchar-host-variable.
    05  vhv-length               COMP-5 PIC 9(4).
    05  vhv-data                        PIC XX.

即使文字如您所期望的那样工作(没有阅读手册)，在过程划分中使用“重要”文字通常也是个坏主意。使用主机变量的第二个原因。