我有这个程序，我需要读取表DB2.SMLC_RGR_PRCT_RCS，其中字段NR_SMLC_RGR_PRCT=I01-NR-SMLC-RGR-PRC，比较变量的值与字段，只有当它们匹配时才前进，但无论我使用什么命令或逻辑都不起作用，我已经使用了所有的SELECT选项，并try 使用FETCH进行循环，有什么提示吗？ 注意:我将只保留我所指的程序部分和数据
*----------------------------------------------------------*
WORKING-STORAGE SECTION.
*----------------------------------------------------------*
77 CTE-PROG PIC X(016) VALUE
'*** GPOP9450 ***'.
77 CTE-VERS PIC X(006) VALUE 'VRS001'.
77 SBVERSAO PIC X(008) VALUE 'SBVERSAO'.
77 SBABEND PIC X(07) VALUE 'SBABEND'.
*----------------------------------------------------------*
*--------------------CONTADORES----------------------------*
01 GDA-FIM-ARQUIVO PIC X(03).
01 GDA-REGISTROS-LIDOS PIC 9(18) VALUE ZEROS.
01 GDA-REGISTROS-N-ENCONTRADOS PIC 9(18) VALUE ZEROS.
01 GDA_REGISTROS_ENCONTRADOS PIC S9(4) USAGE COMP.
01 GDA_REG PIC S9(4) USAGE COMP.
*-------------------------------------------------------------*
* ARQUIVO DE ENTRADA
01 WREG-ARQENTD.
03 I01-NR-SMLC-RGR-PRCT PIC S9(4) USAGE COMP.
03 I01-CODIGO-USUARIO PIC X(08) VALUE IS SPACES.
*-------------------------------------------------------------*
* ARQUIVO DE SAIDA 01
01 WREG-ARQSAI-1.
03 O001-NR-SMLC-RGR-PRCT PIC 9(04) VALUE ZEROS.
03 O001-CODIGO-USUARIO PIC 9(08) VALUE IS ZEROS.
03 O001-DATA-PESQUISA PIC X(10) VALUE IS SPACES.
*-------------------------------------------------------------*
* ARQUIVO DE SAIDA 02
01 WREG-ARQSAI-2.
03 O002-NR-SMLC-RGR-PRCT PIC S9(4) USAGE COMP.
03 O002-NR_SMLC_RGR_PRCT PIC S9(4) USAGE COMP.
03 O002-CD_OGM_RCS_SMLC PIC S9(4) USAGE COMP.
03 O002-TX_SMLC_RGR_PRCT PIC X(50) VALUE SPACES.
03 O002-DT_INC_MVT_SMLC PIC X(10) VALUE SPACES.
03 O002-DT_FIM_MVT_SMLC PIC X(18) VALUE ZEROS.
03 O002-DATA-ALTERACAO PIC X(26) VALUE SPACES.
*-------------------------------------------------------------*
LOCAL-STORAGE SECTION.
*----------------------------------------------------------*
*--------------------ARÉA SQL----------------------------*
EXEC SQL
INCLUDE SQLCA
END-EXEC.
*-------------------------------------------------------------*
PROCEDURE DIVISION.
000000-INICIO SECTION.
*-------------------------------------------------------------*
CALL SBVERSAO USING CTE-PROG CTE-VERS.
PERFORM 0001-ABRE-ARQUIVOS
PERFORM 0002-LER-ARQUIVO UNTIL GDA-FIM-ARQUIVO EQUAL 'S'
PERFORM 0006-GERA-ESTATISTICAS
CLOSE ARQENTRD
ARQSAI1
ARQSAI2.
STOP RUN.
000000-FIM. EXIT.
0001-ABRE-ARQUIVOS SECTION.
OPEN INPUT ARQENTRD
OUTPUT ARQSAI1
ARQSAI2
.
0001-FIM. EXIT.
0002-LER-ARQUIVO SECTION.
READ ARQENTRD AT END MOVE 'S' TO GDA-FIM-ARQUIVO
NOT AT END
ADD 1 TO GDA-REGISTROS-LIDOS
PERFORM 01-BUSCA-DB2
.
0002-FIM. EXIT.
01-BUSCA-DB2 SECTION.
EXEC SQL
SELECT *
INTO :GDA_REG
FROM DB2.SMLC_RGR_PRCT_RCS
WHERE NR_SMLC_RGR_PRCT = :I01-NR-SMLC-RGR-PRCT
END-EXEC
IF SQLCODE = 0
PERFORM 0005-GRAVA-ARQSAI-1
ELSE
IF SQLCODE > 0
PERFORM CHAMA-ERRO-001
END-IF
...