Zcppc Data Dec

*&---------------------------------------------------------------------* *& include zoppc_data_dec *&---------------------------------------------------------------------* tables : mara. type-pools :slis. *&---------------------------------------------------------------------* *& selection screen parameters *&---------------------------------------------------------------------* ** parameter : p_file type rlgrap-filename default '' obligatory. "parameter to select a file name. *------------------------------------------------------* selection screen *------------------------------------------------------selection-screen skip. selection-screen skip. selection-screen begin of block a with frame title text-100. parameters: p_pres radiobutton group rad1 default 'x'. *selection-screen begin of line. *selection-screen comment (15) text-003. *selection-screen position 25. parameters: p_inpf like rlgrap-filename obligatory default 'e:/'. *selection-screen end of line. parameters:p_appl radiobutton group rad1 . *selection-screen begin of line. *selection-screen comment (15) text-003. *selection-screen position 25. parameters: p_l_inpf like rlgrap-filename obligatory default '/cidata/conversion/pp/'. *selection-screen end of line. selection-screen end of block a. *&---------------------------------------------------------------------* *& internal tables *&---------------------------------------------------------------------* types: begin of ty_record, matnr(18) type c, werks(4) type c, profidnetz(4) type c, statu(1) type c, verwe(1) type c, losvn(12) type c, losbs(12) type c,

"material number "plant "profile "status "usage "charge quantity range "charge quantity range

vornr(4) type c, phflg(1) type c,

"operation number "phase flag

pvznr(4) type c, phseq(3) type c, arbpl(8) type c, steus(4) type c, ltxa1(40) type c,

"superordinate operation "control recipe destination "resource "control key "description

bmsch(12) type c, meinh(3) type c,

"base quantity "unit of measurement

vgw01(12) type c, vge01(3) type c,

"duration "unit of measurement

vgw02(12) type c, vge02(3) type c, lar02(6) type c,

"duration "unit of measurement "activity

vgw03(12) type c, vge03(3) type c, lar03(6) type c,

"duration "unit of measurement "activity

costr_1(8) type c, costr_2(8) type c, costr_3(8) type c, end of ty_record. types: begin of ty_opr, matnr(18) type c, werks(4) type c, profidnetz(4) type c, vornr(4) type c, phflg(1) type c, pvznr(4) type c, phseq(3) type c, arbpl(8) type c, steus(4) type c, ltxa1(40) type c,

"process instructions "process instructions "process instructions

"material number "plant "profile "operation number "phase flag "superordinate operation "control recipe destination "resource "control key "description

bmsch(12) type c, meinh(3) type c,

"base quantity "unit of measurement

vgw01(12) type c, vge01(3) type c,

"duration "unit of measurement

vgw02(12) type c, vge02(3) type c, lar02(6) type c,

"duration "unit of measurement "activity

vgw03(12) type c, vge03(3) type c, lar03(6) type c,

"duration "unit of measurement "activity

costr_1(8) type c, costr_2(8) type c, costr_3(8) type c, end of ty_opr. types: begin of ty_audit,

"process instructions "process instructions "process instructions

"internal table for generating audit report. matnr(18) type c, status(15) type c, message(250) type c, end of ty_audit. data :int_opr type table of ty_opr with header line. data: int_record type table of ty_record with header line. data :int_audit type table of ty_audit with header line. data: int_messtab type table of bdcmsgcoll with header line. "used for collecting messages. *&---------------------------------------------------------------------* *& alv report varialbes *&---------------------------------------------------------------------* data: wf_file type string. data: int_fieldcat type slis_t_fieldcat_alv. data: wa_fieldcat type slis_fieldcat_alv . data: int_header type slis_t_listheader. data: wf_line(250) type c. "string varialble used for making header. data: int_record_tmp like int_record occurs 0 with header line. *&---------------------------------------------------------------------* *& variables *&---------------------------------------------------------------------* data: wa_string(255) type c. constants: con_tab type c value cl_abap_char_utilities=>horizontal_tab. data: wf_fnam(40) type c. "variable u#ed for concatenation in table control fields data: wc_valfail(3) type n, "counter for number of validation failures wc_postfail(3) type n , "counter for number of posting failures wc_pro(3) type n, "counter for number of processed records wc_record(3) type n, "counter for total number of records wc_idx(2) type c value '1', wc_index(2) type c value 1, wc_cntr1(2) type c value 1, wc_cntr2(2) type c value 1. data wf_records_read type i value 0. at selection-screen on value-request for p_inpf. for giving the file name call function 'f4_filename' exporting program_name = syst-cprog dynpro_number = syst-dynnr field_name = 'p_inpf' importing file_name = p_inpf. at selection-screen on value-request for p_l_inpf. perform f_getserverfile.

"fm