Re: Problems with parameter

Former Member — Mon, 07 Apr 2008 13:14:09 GMT

EPORT zpb_eng_cont_fich_bk .

************************************************************************

Titulo ....: ZPB_ENG_CONT_EXTRAI_FICH_BK

Descrição .: Copia todos os dados contidos na tabela de energia de
contador (ZPB_EN_CONT_CSMO) e gera um ficheiro de
backup

Autor .....: Helena Silva
Data ....: 06-03-2008
Módulo.....: BILLING

Modificação:
Data ......:

************************************************************************

Declaração de Variáveis

DATA: nome_fich LIKE tpfht-pffile VALUE 'ZPB_EN_CONT_CSMO_'.

DATA: file_unix LIKE tpfht-pffile.

DATA: file_local LIKE rlgrap-filename.

DATA: directoria LIKE tpfht-pffile.

DATA: ficheiro_existe TYPE c.

DATA: data LIKE sy-datum.

DATA: continuar(3) TYPE c VALUE 'SIM'.

DATA: it_zpb_en_cont_csmo LIKE STANDARD TABLE OF zpb_en_cont_csmo

WITH HEADER LINE.

Para validar se o ficheiro local já existe

DATA: it_data_aux TYPE STANDARD TABLE OF zpb_en_cont_csmo

INITIAL SIZE 0.

DATA: p_commit(5) TYPE n VALUE '1000'.

Ecrã de Selecção

SELECTION-SCREEN BEGIN OF BLOCK bloco1

WITH FRAME

TITLE text-001.

SELECTION-SCREEN SKIP 1.

PARAMETERS: p_unix RADIOBUTTON GROUP grp1 DEFAULT 'X'

USER-COMMAND ucomm,

p_local RADIOBUTTON GROUP grp1.

SELECTION-SCREEN SKIP 1.

PARAMETERS: p_path_u LIKE rlgrap-filename MODIF ID fil OBLIGATORY

DEFAULT '/home/sgcd/batch/'.

PARAMETERS: p_path_l LIKE rlgrap-filename MODIF ID fil OBLIGATORY

DEFAULT 'C:'.

PARAMETERS: p_file2 LIKE rlgrap-filename MODIF ID fil OBLIGATORY.

SELECTION-SCREEN END OF BLOCK bloco1.

*******************

INITIALIZATION.

Mês de Processamento é o mês anterior ao actual

CALL FUNCTION 'HR_PT_ADD_MONTH_TO_DATE'

EXPORTING

dmm_datin = sy-datum

dmm_count = '1'

dmm_oper = '-'

dmm_pos = 'END'

IMPORTING

dmm_daout = data

EXCEPTIONS

unknown = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

Nome do Ficheiro tem o mês de processamento

CONCATENATE nome_fich data+4(2) data(4) '.txt'

CONCATENATE nome_fich data+4(2) data(4)

INTO p_file2.

CONCATENATE file_local nome_fich INTO file_local.
CONCATENATE file_unix nome_fich INTO file_unix.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path_l.

DATA: fich LIKE rlgrap-filename.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'

EXPORTING

PROGRAM_NAME = SYST-REPID
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = fich

static = ' '

mask = '*.txt'

CHANGING

file_name = fich

EXCEPTIONS

mask_too_long = 1

OTHERS = 2

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

Separar o ficheiro da directoria

CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH'

EXPORTING

full_name = fich

IMPORTING

STRIPPED_NAME =

file_path = p_path_l

EXCEPTIONS

x_error = 1

OTHERS = 2

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

file_local = fich.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path_u.

DATA: lv_dline TYPE dline,

lv_file_path TYPE text300,

lv_file_name TYPE text300,

lv_server_path TYPE text300,

prog LIKE sy-repid.

prog = sy-repid.

CALL FUNCTION 'GET_DYNP_VALUE'

EXPORTING

i_field = 'P_PATH_U'

i_repid = prog

i_dynnr = sy-dynnr

CHANGING

o_value = lv_server_path.

TRANSLATE lv_server_path TO LOWER CASE.

IF lv_server_path IS INITIAL.

lv_server_path = '/home/sgcd/batch/'.

ENDIF.

CLEAR: lv_file_name,

lv_file_path.

CALL FUNCTION 'ZF4_SERVER_FILE_PATH_NAME'

EXPORTING

x_server_path = lv_server_path

IMPORTING

y_file_name = lv_file_name

y_file_path = lv_file_path

EXCEPTIONS

no_file_on_server = 1

OTHERS = 2.

IF sy-subrc NE 0.

MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

p_path_u = lv_file_path.

ENDIF.

lv_dline = lv_file_name.

CALL FUNCTION 'SET_DYNP_VALUE'

EXPORTING

i_field = 'P_FILE'

i_repid = prog

i_dynnr = sy-dynnr

i_value = lv_dline.

CONCATENATE p_path_u lv_file_name INTO file_unix.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF screen-name EQ 'P_FILE'.

screen-input = '0'.

ENDIF.

IF screen-name CS 'P_PATH_U'.

IF p_unix = 'X'.

screen-active = '1'.

screen-invisible = '0'.

ELSE.

screen-invisible = '1'.

screen-active = '0'.

ENDIF.

ELSEIF screen-name CS 'P_PATH_L'.

IF p_unix = 'X'.

screen-invisible = '1'.

screen-active = '0'.

ELSE.

screen-active = '1'.

screen-invisible = '0'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

START-OF-SELECTION.

PERFORM valida_ficheiro.

IF continuar = 'SIM'.

PERFORM carregar_ficheiro.

ENDIF.

*&----

*& Form valida_ficheiro

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM valida_ficheiro.

IF p_unix = 'X'.

CONCATENATE p_path_u p_file2 INTO file_unix.

Verificar se o ficheiro unix já existe, se existir cancela o
processamento

CALL FUNCTION 'PFL_CHECK_OS_FILE_EXISTENCE'

EXPORTING

fully_qualified_filename = file_unix

IMPORTING

file_exists = ficheiro_existe.

IF ficheiro_existe = 'X'.

MESSAGE i344(zpb) WITH p_file2 p_path_u.

continuar = 'NAO'.

ENDIF.

ELSE.

Verificar se o ficheiro local já existe, se existir cancela o
processamento

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

CODEPAGE = ' '

filename = file_local

FILETYPE = 'ASC'
HEADLEN = ' '
LINE_EXIT = ' '
TRUNCLEN = ' '
USER_FORM = ' '
USER_PROG = ' '
DAT_D_FORMAT = ' '
IMPORTING
FILELENGTH =

TABLES

data_tab = it_data_aux

EXCEPTIONS

conversion_error = 1

file_open_error = 2

file_read_error = 3

invalid_type = 4

no_batch = 5

unknown_error = 6

invalid_table_width = 7

gui_refuse_filetransfer = 8

customer_error = 9

OTHERS = 10.

IF sy-subrc = 0.

MESSAGE i344(zpb) WITH p_file2 p_path_l.

continuar = 'NAO'.

ENDIF.

ENDFORM. " valida_ficheiro

*&----

*& Form ler_tabela

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM carregar_ficheiro.

Carregar o ficheiro local ou unix com os dados que estão na tabela

SELECT * INTO TABLE it_zpb_en_cont_csmo

FROM zpb_en_cont_csmo.

IF p_unix = 'X'.

OPEN DATASET file_unix FOR OUTPUT IN TEXT MODE.

IF sy-subrc <> 0.

MESSAGE i356(zpb).

EXIT.

ENDIF.

TRANSFERE o CONTEÚDO da tabela Interna

IF NOT it_zpb_en_cont_csmo[] IS INITIAL.

LOOP AT it_zpb_en_cont_csmo.

TRANSFER it_zpb_en_cont_csmo TO file_unix.

ENDLOOP.

ENDIF.

CLOSE DATASET file_unix.

IF sy-subrc = 0.

MESSAGE i345(zpb).

ENDIF.

ELSE.

CONCATENATE p_path_l p_file2 INTO file_local.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

BIN_FILESIZE = ' '
CODEPAGE = ' '

filename = file_local

filetype = 'DAT'

mode = ' '
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
COL_SELECT = ' '
COL_SELECTMASK = ' '
NO_AUTH_CHECK = ' '
IMPORTING
FILELENGTH =

TABLES

data_tab = it_zpb_en_cont_csmo

FIELDNAMES =

EXCEPTIONS

file_open_error = 1

file_write_error = 2

invalid_filesize = 3

invalid_type = 4

no_batch = 5

unknown_error = 6

invalid_table_width = 7

gui_refuse_filetransfer = 8

customer_error = 9

OTHERS = 10

IF sy-subrc = 0.

MESSAGE i345(zpb).

ELSE.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

topic Re: Problems with parameter in Application Development and Automation Discussions

Problems with parameter

Re: Problems with parameter

Re: Problems with parameter

Re: Problems with parameter

Re: Problems with parameter