读取数据库 使用变量

 DATA: line(50).
  IF p_ret = ''.
    CONCATENATE ' VBAK~VBTYP EQ ''' 'C' '''' INTO line.
  ELSE.
    CONCATENATE ' VBAK~VBTYP IN ('''  'C' '''' ','' ' '' 'H' '''' ')' INTO line.
  ENDIF.

  CONDENSE line.
**<<

  SELECT vbak~vbeln vbap~posnr vbap~matnr vbap~kwmeng vbap~netwr
         vbap~waerk vbap~kpein vbak~kunnr vbap~netpr  vbak~vbtyp
         vbap~arktx                                         "20080103
*        vbap~WAERK VBAP~KPEIN VBAK~KUNNR VBAP~NETPR
*    INTO (VBELN,POSNR,MATNR,KWMENG,NETWR,WAERK,KPEIN,KUNNR,NETPR)
     INTO (vbeln,posnr,matnr,kwmeng,netwr,waerk,kpein,kunnr,netpr,vbtyp,
           arktx)                                           "20080103
    FROM vbak INNER JOIN vbap
      ON vbak~vbeln = vbap~vbeln
    WHERE vbak~vkorg IN s_vkorg AND
          vbak~erdat IN erdat AND
          vbak~kunnr IN kunrg AND
          vbap~matnr IN metnr AND
          vbap~abgru EQ ''    AND          "20080103 exclude reason of rejection
          (line).                          " 20081121 Sam

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10339719/viewspace-605096/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10339719/viewspace-605096/