*&---------------------------------------------------------------------**& NOME DO PROGRAMA : ZFI_CARGA_DADMERCADO*& TTULO DO PROGRAMA : Carga de Dados de Mercado (SRIES, etc.)*& PROGRAMADOR : Jos Henrique Bachour*& DATA : 12/11/2010*& LTIMA ATUALIZAO : DD/MM/AAAA*&*& DESCRIO : Este programa uma cpia do programa*& ZFI_I_DDMERC_X_SAP que far a interface dos*& dados de mercado. Ele foi copiado devido a*& alteraes na forma de obteno dos dados de*& entrada e no volume desses dados.*&---------------------------------------------------------------------**& LISTA DE MODIFICAES: **& DATA AUTOR REQUEST # DESCRIO **& 12/11/2010 JHBAC ED1K912004 Adaptao aos processos de **& carga. **&---------------------------------------------------------------------*REPORT zfi_carga_dadmercado.*&---------------------------------------------------------------------**& Declarao de tabelas transparentes*&---------------------------------------------------------------------*TABLES:zfi_tctrmigracao, "Controle de Arquivos Processados em Migraes de BPzfi_t_dadmercado, " Dados de mercadozfi_e_carga_series, " Estrutura de arquivot001, " Empresasvwpbono. " Cotao na bolsa ttulos*&---------------------------------------------------------------------**& Definio de estruturas*&---------------------------------------------------------------------*TYPES:BEGIN OF y_interfaces, "Estrutura para descrio das interfaces domvalue_l TYPE dd07t-domvalue_l, ddtext TYPE dd07t-ddtext,END OF y_interfaces,BEGIN OF y_deparaanb, rkey1 TYPE vtb_market-rkey1, ideserie TYPE zfi_e_series_sap-ideserie,END OF y_deparaanb,BEGIN OF y_infile, linha(1000) TYPE c,END OF y_infile.*&---------------------------------------------------------------------**& Definio de variveis*&---------------------------------------------------------------------*DATA: vg_dummy TYPE string. " Varivel para mensagem*&---------------------------------------------------------------------**& Definio de tabelas internas*&---------------------------------------------------------------------*DATA:t_tctrmigracao TYPE STANDARD TABLE OF zfi_tctrmigracao,t_infile TYPE STANDARD TABLE OF y_infile,t_infileer TYPE STANDARD TABLE OF y_infile,t_dadmercado TYPE TABLE OF zfi_t_dadmercado,t_interfaces TYPE TABLE OF y_interfaces,t_periodo TYPE TABLE OF y_interfaces,t_deparaanb TYPE TABLE OF y_deparaanb,t_vtb_market TYPE TABLE OF vtb_market.*&---------------------------------------------------------------------**& Definio de work areas*&---------------------------------------------------------------------*DATA:wa_tctrmigracao TYPE zfi_tctrmigracao,wa_infile TYPE string,wa_serieser TYPE string,wa_interfaces TYPE y_interfaces,wa_periodo TYPE y_interfaces,wa_interface TYPE zbc_t_interface,wa_deparaanb TYPE y_deparaanb,wa_vtb_market TYPE vtb_market.*&---------------------------------------------------------------------**& Definio de ranges*&---------------------------------------------------------------------*DATA rg_ftdad TYPE RANGE OF zfi_t_dadmercado-ftdad.*&---------------------------------------------------------------------**& Definio variveis globais*&---------------------------------------------------------------------*DATA:vg_seqnz TYPE seqnz,vg_path TYPE localfile,vg_timestamp TYPE char16,vg_substfile TYPE localfile,vg_subrc TYPE sy-subrc,vg_indnegativo TYPE c.*&---------------------------------------------------------------------**& Definio de constantes*&---------------------------------------------------------------------*CONSTANTS:c_txt(04) TYPE c VALUE '.TXT',c_serieser TYPE string VALUE 'ERROS_SERIES',c_series TYPE string VALUE 'SERIES',c_only(04) TYPE c VALUE 'ONLI',c_bar(01) TYPE c VALUE '/',c_u(01) TYPE c VALUE '_',c_x(01) TYPE c VALUE 'X',c_menos TYPE c VALUE '-',c_01 TYPE vtb_market-sclass VALUE '01',c_03 TYPE vtb_market-sclass VALUE '03'.*&---------------------------------------------------------------------**& Declarao de Telas de Seleo*&---------------------------------------------------------------------**&---------------------------------------------------------------------**& Definio de parmetros*&---------------------------------------------------------------------************************************************************************* PARMETROSSELECTION-SCREEN BEGIN OF BLOCK list WITH FRAME TITLE text-sel.PARAMETERS: p_buk TYPE t001-bukrs OBLIGATORY.PARAMETERS: "rb_tds RADIOBUTTON GROUP g001 DEFAULT 'X', " Todos os sistemas rb_ser RADIOBUTTON GROUP g001 DEFAULT 'X', " Sistema Series rb_blm RADIOBUTTON GROUP g001, " Sistema Bloomberg rb_anb RADIOBUTTON GROUP g001, " Sistema Ambima rb_bmf RADIOBUTTON GROUP g001. " Sistema BM&FBOVESPAPARAMETERS: p_idmem TYPE char20 NO-DISPLAY.SELECTION-SCREEN END OF BLOCK list.SELECTION-SCREEN BEGIN OF BLOCK 100 WITH FRAME TITLE text-100.PARAMETERS:p_pathl TYPE localfile DEFAULT text-002 OBLIGATORY,p_direl TYPE localfile DEFAULT text-002 OBLIGATORY,p_dires TYPE localfile DEFAULT text-003 OBLIGATORY.*Bruno*p_idtes(30) TYPE c* DEFAULT 'Teste Integrado 01' OBLIGATORY.SELECTION-SCREEN END OF BLOCK 100.SELECTION-SCREEN BEGIN OF BLOCK 200 WITH FRAME TITLE text-200.PARAMETER: rb_locl RADIOBUTTON GROUP rb01 DEFAULT 'X', "Local rb_serv RADIOBUTTON GROUP rb01. "ServidorSELECTION-SCREEN END OF BLOCK 200.*&---------------------------------------------------------------------** Evento INITIALIZATION*&---------------------------------------------------------------------*INITIALIZATION. DATA: vl_interface TYPE zz_de_interface VALUE sy-repid. REFRESH: t_interfaces, t_periodo. CLEAR: wa_interface. SELECT domvalue_l ddtext INTO TABLE t_interfaces FROM dd07t WHERE domname EQ 'ZZDO_FTDAD' AND ddlanguage EQ sy-langu. SELECT domvalue_l ddtext INTO TABLE t_periodo FROM dd07t WHERE domname EQ 'ZZDO_PERIODIC' "BENUN - 02/08/11* WHERE domname EQ 'ZZDO_FTDAD' "BENUN - 02/08/11 AND ddlanguage EQ sy-langu.*&---------------------------------------------------------------------** Eventos*&---------------------------------------------------------------------*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_pathl. DATA: vl_path TYPE rlgrap-filename. CALL FUNCTION 'KD_GET_FILENAME_ON_F4' EXPORTING mask = ',*.*,*.*.' CHANGING file_name = vl_path. p_pathl = vg_path = vl_path.* BENUN - 02/08/11 - INICIO*AT SELECTION-SCREEN OUTPUT.* PROGRAMA HABILIDO PARA FUNCIONAR COM QUALQUER FONTE* CHECK rb_anb IS INITIAL* AND rb_bmf IS INITIAL.***** Determinando que as opes para as interfaces do ANBIMA e BM&F**** sejam invisivis ao usurio, pois sero chamadas somente atravs de RFC* LOOP AT SCREEN.* IF screen-name CS 'RB_ANB'* OR screen-name CS 'RB_BMF'.* screen-output = 0.* screen-invisible = 1.* ENDIF.* MODIFY SCREEN.* ENDLOOP.* BENUN - 02/08/11 - FIMAT SELECTION-SCREEN.*** Determinando os sistemas de interface para a tabela De-Para (ZFI_T_DADMERCADO) DATA: lwa_ftdad LIKE LINE OF rg_ftdad. FREE: rg_ftdad. lwa_ftdad-sign = 'I'. lwa_ftdad-option = 'EQ'. CASE 'X'.* WHEN rb_tds.** BENUN - 02/08/2011 - INICIO** DO sy-dbcnt TIMES.** lwa_ftdad-low = sy-index.** APPEND lwa_ftdad TO rg_ftdad.** ENDDO.* CLEAR: lwa_ftdad.* lwa_ftdad-sign = 'I'.* lwa_ftdad-option = 'BT'.* lwa_ftdad-low = '1'.* lwa_ftdad-high = '4'.* APPEND lwa_ftdad TO rg_ftdad.* BENUN - 02/08/2011 - FIM WHEN rb_ser. lwa_ftdad-low = '1'. APPEND lwa_ftdad TO rg_ftdad. WHEN rb_blm. lwa_ftdad-low = '2'. APPEND lwa_ftdad TO rg_ftdad. WHEN rb_anb. lwa_ftdad-low = '3'. APPEND lwa_ftdad TO rg_ftdad. WHEN rb_bmf. lwa_ftdad-low = '4'. APPEND lwa_ftdad TO rg_ftdad. WHEN OTHERS. " Nada a Fazer ENDCASE.*** Eliminando da tabela de interfaces as interfaces que no sero executadas SORT t_interfaces BY domvalue_l ASCENDING. DELETE t_interfaces WHERE NOT domvalue_l IN rg_ftdad. READ TABLE t_interfaces INTO wa_interfaces INDEX 1.*** Buscando os dados da empresa SELECT SINGLE * FROM t001 WHERE bukrs EQ p_buk. IF NOT sy-subrc IS INITIAL. MESSAGE e011(/kyk/fi) WITH p_buk INTO vg_dummy. "A empresa &1 no existe. Verificar a entrada PERFORM f_insere_log_standard.*** Gravao do Log PERFORM finaliza_migracao. LEAVE PROGRAM. ENDIF.*&---------------------------------------------------------------------** Evento START-OF-SELECTION*&---------------------------------------------------------------------*START-OF-SELECTION.* Recupera os dados da Interface para a montagem do LOG standard CALL METHOD zcl_componentes_diversos=>inicializar_interface EXPORTING vl_interface = sy-repid(30) EXCEPTIONS interface_not_found = 1. IF sy-subrc IS NOT INITIAL. MESSAGE e141(zbc001). LEAVE LIST-PROCESSING. ENDIF. IF rb_locl = c_x. IF sy-ucomm c_only AND sy-batch space. "EST PROCESSANDO BACKGR. MESSAGE e011(zbc001). PERFORM finaliza_migracao. LEAVE LIST-PROCESSING. ELSE. CHECK vg_subrc IS INITIAL. PERFORM critica_parametros. PERFORM upload_arquivos_local. ENDIF. ELSE.* IF sy-ucomm = c_only OR sy-batch = space. "BENUN - 03/08/11* MESSAGE e012(zbc001).* PERFORM finaliza_migracao.* LEAVE LIST-PROCESSING.* ELSE. CHECK vg_subrc IS INITIAL. PERFORM critica_parametros. PERFORM upload_arquivos_servidor.* ENDIF. ENDIF.* Busca Dados de Controle PERFORM f_busca_ddctrl.* Solicita dados aos Sistemas Legados PERFORM f_soldd_sisleg.* Gravao dos dados PERFORM f_grava_dados. PERFORM finaliza_migracao.*&---------------------------------------------------------------------**& Form F_BUSCA_DDCTRL*&---------------------------------------------------------------------** Busca Dados de Controle*----------------------------------------------------------------------*FORM f_busca_ddctrl .*** Busca os dados de De-Para PERFORM f_busca_depara.ENDFORM. " F_BUSCA_DDCTRL*** Solicitando os dados ao sistema legado*&---------------------------------------------------------------------**& Form F_BUSCA_DEPARA*&---------------------------------------------------------------------** Busca os dados de De-Para*----------------------------------------------------------------------*FORM f_busca_depara . DATA: lwa_ftdad LIKE LINE OF rg_ftdad. FREE: t_dadmercado. SELECT * INTO TABLE t_dadmercado FROM zfi_t_dadmercado WHERE ftdad IN rg_ftdad. IF NOT sy-subrc IS INITIAL. LOOP AT rg_ftdad INTO lwa_ftdad. READ TABLE t_interfaces INTO wa_interfaces WITH KEY domvalue_l = lwa_ftdad-low. CLEAR: vg_dummy. MESSAGE e001(zfi) WITH wa_interfaces-ddtext INTO vg_dummy. PERFORM f_insere_log_standard.*** Gravao do Log PERFORM finaliza_migracao. ENDLOOP. LEAVE LIST-PROCESSING. ENDIF.ENDFORM. " F_BUSCA_DEPARA*&---------------------------------------------------------------------**& Form F_SOLDD_SISLEG*&---------------------------------------------------------------------** Solicita dados aos Sistemas Legados*----------------------------------------------------------------------*FORM f_soldd_sisleg .*&---------------------------------------------------------------------**& Definio de constantes*&---------------------------------------------------------------------* DATA: tl_series_sap TYPE TABLE OF zfi_e_carga_series, tl_series_sap_aux TYPE TABLE OF zfi_e_carga_series. DATA: vl_arqmonit TYPE string, " Parmetro p/ sistema vl_msg TYPE string VALUE 'OK'. " Retorno de Mensagens FREE: t_vtb_market. tl_series_sap[] = t_infile[]. SORT t_dadmercado BY cdext ASCENDING ftdad ASCENDING*--> Eric Doria - 19.11.2011*>>> BEGIN > END P_SERIES_SAP Tabela com os dados do sistema legado* -->P_VTB_MARKET Tabela para os dados a serem cadastrados* -->P_INTERFACE Interface Executada*----------------------------------------------------------------------*FORM f_prepara_ddsap TABLES p_series_sap STRUCTURE zfi_e_carga_series p_vtb_market STRUCTURE vtb_market USING p_interface STRUCTURE wa_interfaces.*&---------------------------------------------------------------------**& Definio de work areas*&---------------------------------------------------------------------* DATA: wa_series_sap TYPE zfi_e_carga_series. DATA: lv_tpval LIKE zfi_t_dadmercado-tpval. REFRESH: t_deparaanb. SORT p_series_sap BY ideserie ASCENDING. LOOP AT p_series_sap INTO wa_series_sap.*** Registrando valores de Fechamento PERFORM f_registra_dados TABLES p_vtb_market USING wa_series_sap p_interface* 'F'. "BENUN - 02/08/11 CHANGING lv_tpval."BENUN - 02/08/11* BENUN - 02/08/11 - INICIO*** Registrando valores Mdios* PERFORM f_registra_dados TABLES p_vtb_market* USING wa_series_sap* p_interface* 'M'.* BENUN - 02/08/11 - FIM ENDLOOP.ENDFORM. " F_PREPARA_DDSAP*&---------------------------------------------------------------------**& Form F_VER_PERIOD*&---------------------------------------------------------------------** Verifica a periodicidade de execuo*----------------------------------------------------------------------** -->P_DDMERC Dados de De-Para para Dados de Mercado* = p_intervalo. vl_intervalo = vl_interdia. ELSEIF NOT vl_intermes IS INITIAL. vl_intervalo = vl_intermes. ELSEIF NOT vl_interano IS INITIAL. vl_intervalo = vl_interano. ENDIF. WHEN '2'. "Se semanal = 7 dias IF vl_interdia >= p_intervalo. vl_intervalo = vl_interdia. ELSEIF NOT vl_intermes IS INITIAL. vl_intervalo = vl_intermes * 30. ELSEIF NOT vl_interano IS INITIAL. vl_intervalo = vl_interano * 365. ENDIF. WHEN '3'. "Se mensal = 1 ms* Dias no computados para processamento mensal IF NOT vl_intermes IS INITIAL. vl_intervalo = vl_intermes. ELSEIF NOT vl_interano IS INITIAL. vl_intervalo = vl_interano * 12. ENDIF. WHEN '4'. "Se trimestral = 3 meses* Dias no computados para processamento trimestral IF vl_intermes >= p_intervalo. vl_intervalo = vl_intermes. ELSEIF NOT vl_interano IS INITIAL. vl_intervalo = vl_interano * 12. ENDIF. WHEN '5'. "Se semestral = 6 meses* Dias no computados para processamento semestral IF vl_intermes >= p_intervalo. vl_intervalo = vl_intermes. ELSEIF NOT vl_interano IS INITIAL. vl_intervalo = vl_interano * 12. ENDIF. WHEN '6'. "Se anual = 1 ano* Dias no computados para processamento anual* Meses no computados para processamento anual IF NOT vl_interano IS INITIAL. vl_intervalo = vl_interano. ENDIF. WHEN OTHERS. ENDCASE. IF vl_intervalo GE p_intervalo. p_grava = 'X'. ENDIF.ENDFORM. " F_VER_INTERVALO*&---------------------------------------------------------------------**& Form F_GRAVA_DADOS*&---------------------------------------------------------------------** Gravao dos dados*----------------------------------------------------------------------*FORM f_grava_dados.* BENUN - 02/08/11 - INICIO IF t_vtb_market[] IS INITIAL AND vg_indnegativo IS INITIAL.* IF t_vtb_market[] IS INITIAL. CLEAR: vg_dummy. MESSAGE e137(bp) INTO vg_dummy. PERFORM f_insere_log_standard. EXIT. ELSEIF t_vtb_market[] IS INITIAL. EXIT. ENDIF.* BENUN - 02/08/11 - INICIO SORT: t_vtb_market BY sclass ASCENDING rkey1 ASCENDING ddate ASCENDING. CALL FUNCTION 'MESSAGES_INITIALIZE' . CALL FUNCTION 'TB_DATAFEED_R3TABLES_UPDATE' EXPORTING message_collect = 'X' TABLES sap_answer = t_vtb_market EXCEPTIONS update_error = 1. IF sy-subrc 0. CLEAR: vg_dummy. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO vg_dummy. PERFORM f_insere_log_standard. ENDIF. SORT: t_vtb_market BY rdone ASCENDING sclass ASCENDING rkey1 ASCENDING ddate ASCENDING, t_dadmercado BY cdsap ASCENDING. LOOP AT t_vtb_market INTO wa_vtb_market. IF NOT wa_vtb_market-rdone IS INITIAL.*** Atualizando a data de execuo*BENUN - 03/08/11 - INICIO* IF rb_anb IS INITIAL.* READ TABLE t_dadmercado INTO zfi_t_dadmercado* WITH KEY* cdsap = wa_vtb_market-rkey1* BINARY SEARCH.* ELSE.* READ TABLE t_deparaanb INTO wa_deparaanb* WITH KEY* rkey1 = wa_vtb_market-rkey1.* READ TABLE t_dadmercado INTO zfi_t_dadmercado* WITH KEY* cdsap = wa_deparaanb-ideserie* BINARY SEARCH.* ENDIF. READ TABLE t_dadmercado INTO zfi_t_dadmercado WITH KEY cdsap = wa_vtb_market-rkey1 BINARY SEARCH.*BENUN - 03/08/11 - FIM IF sy-subrc IS INITIAL. zfi_t_dadmercado-dtmoe = sy-datum. MODIFY t_dadmercado FROM zfi_t_dadmercado INDEX sy-tabix TRANSPORTING dtmoe. UPDATE zfi_t_dadmercado* SET dtmoe = sy-datum "BENUN - 22/06/2011 SET dtmoe = wa_vtb_market-ddate aenam = sy-uname "BENUN - 06/07/2011 aedat = sy-datum "BENUN - 06/07/2011 aezet = sy-uzeit "BENUN - 06/07/2011 WHERE cdsap = zfi_t_dadmercado-cdsap.* WHERE cdsap = wa_vtb_market-rkey1. IF sy-subrc IS INITIAL. COMMIT WORK. CLEAR: vg_dummy. MESSAGE s000(zfi) WITH wa_vtb_market-sclass wa_vtb_market-rkey1 text-suc INTO vg_dummy. PERFORM f_insere_log_standard. ELSE. CLEAR: vg_dummy. MESSAGE e000(zfi) WITH wa_vtb_market-sclass wa_vtb_market-rkey1 text-e02 INTO vg_dummy. PERFORM f_insere_log_standard. ENDIF. ENDIF. ELSE. CLEAR: vg_dummy.* MESSAGE s000(zfi) MESSAGE e000(zfi) WITH wa_vtb_market-sclass wa_vtb_market-rkey1 wa_vtb_market-error INTO vg_dummy. PERFORM f_insere_log_standard. ENDIF. ENDLOOP.ENDFORM. " F_GRAVA_DADOS*&---------------------------------------------------------------------**& Form F_REGISTRA_DADOS*&---------------------------------------------------------------------** Registrando valores de Fechamento*----------------------------------------------------------------------** -->P_SERIES_SAP Registro legado* -->P_INTERFACE Registro de tipo de interface* -->P_TPVAL Tipo de valor do registro* F - Valor Fechamento* M - Valor Mdio*----------------------------------------------------------------------*FORM f_registra_dados TABLES p_vtb_market STRUCTURE vtb_market USING p_series_sap STRUCTURE zfi_e_carga_series p_interface STRUCTURE wa_interfaces CHANGING p_tpval TYPE zfi_t_dadmercado-tpval.*&---------------------------------------------------------------------**& Definio de variveis*&---------------------------------------------------------------------* DATA: vl_tabix TYPE sy-tabix, " varivel de ndice de tabela vl_grava TYPE xfeld, " Determina gravao do registro vl_dtint TYPE sy-datum, " Data convertida vl_valorobsf TYPE zfi_e_series_sap-valorobs, " Valor Fechamento vl_valorobsm TYPE zfi_e_series_sap-valorobs, " Valor Mdio vl_msg TYPE sy-msgv1, " Item de mensagem vl_ideserie TYPE zfi_e_series_sap-ideserie, " Cdigo Externo vl_rkey1 TYPE vtb_market-rkey1, " Cdigo SAP v_ranl TYPE vwpbono-ranl, vl_mask TYPE sy-datum, "BENUN - 22/06/11 vl_strlen TYPE i. " Tamanho do valor CLEAR: vl_valorobsf, vl_valorobsm, wa_deparaanb. vl_valorobsf = p_series_sap-valorobs. SEARCH vl_valorobsf FOR '@'. IF sy-subrc IS INITIAL. SPLIT vl_valorobsf AT '@' INTO vl_valorobsf vl_valorobsm. ENDIF.* BENUN - 02/08/2011 - INCIO* IF p_tpval EQ 'F' " Se for registro de fechamento* AND NOT vl_valorobsm IS INITIAL. " E tiver valor Mdio* EXIT. " Ignora registro* ENDIF.* IF p_tpval EQ 'M'. " Se for registro de Valor Mdio* SEARCH p_series_sap-valorobs FOR '@'.* IF NOT sy-subrc IS INITIAL. " E no tiver valor mdio* EXIT. " Ignora registro* ENDIF.* vl_msg = text-med.* ENDIF.* BENUN - 02/08/2011 - FIM vl_msg = text-fec. vl_ideserie = p_series_sap-ideserie.* IF NOT rb_anb IS INITIAL."BENUN - 03/08/11 PERFORM f_trata_titulo CHANGING vl_ideserie vl_mask vl_rkey1 p_idmem.* ENDIF. "BENUN - 03/08/11 READ TABLE t_dadmercado INTO zfi_t_dadmercado WITH KEY cdext = vl_ideserie.* ftdad = 1 "BENUN - 02/08/11* tpval = p_tpval."BENUN - 15/07/11* BINARY SEARCH. "BENUN - 15/07/11 IF NOT sy-subrc IS INITIAL. CLEAR: vg_dummy.* vg_dummy = text-e04.* vl_strlen = STRLEN( p_series_sap-ideserie ).* REPLACE '&' WITH p_series_sap-ideserie(vl_strlen) INTO vg_dummy. MESSAGE e000(zfi) WITH text-e04 vl_ideserie p_series_sap-dataobscompl INTO vg_dummy. PERFORM f_insere_log_standard. EXIT. ENDIF. vl_tabix = sy-tabix. p_tpval = zfi_t_dadmercado-tpval. "BENUN - 02/08/11 LOOP AT t_dadmercado INTO zfi_t_dadmercado FROM vl_tabix. IF zfi_t_dadmercado-cdext NE vl_ideserie* OR zfi_t_dadmercado-ftdad NE 1 "BENUN - 02/08/11 OR zfi_t_dadmercado-stati NE 'X'. EXIT. ENDIF.* IF zfi_t_dadmercado-dtmoe GT p_series_sap-dataobscompl.* CLEAR: vg_dummy.** BENUN - 14/06/11 - INCIO** MESSAGE e000(zfi) WITH text-w01 p_series_sap-dataobscompl '