| Reads an existing Idoc and dispays
the contents in a spreadsheet format
REPORT Z_DISPLAY_IDOC_AND_DATA line-size 275. ************************************************************************ * This tool reads an existing Idoc and dispays the contents in a * * spreadsheet format. The spreadsheet (MS-EXCEL) will be automatically * * created if D_EXCEL = 'X'. * ************************************************************************ data: idoc_control like EDIDC, NUMBER_OF_DATA_RECORDS like sy-dbcnt, NUMBER_OF_STATUS_RECORDS like sy-dbcnt, INT_EDIDS like edids occurs 0 with header line, INT_EDIDD like edidd occurs 0 with header line. TYPE-POOLS : LEDID. data: STRUCT_TYPE TYPE LEDID_STRUCT_TYPE , IDOC_STRUCT TYPE LEDID_T_IDOC_STRUCT, SEGMENTS TYPE LEDID_T_SEGMENT, SEGMENT_STRUCT TYPE LEDID_T_SEGMENT_STRUCT, excel_tab(2000) occurs 0 with header line. parameter: DOCNUM like edidc-docnum obligatory, ""Idoc Number sap_rel like SY-SAPRL default SY-SAPRL obligatory, pi_ver like EDI_VERREC-VERSION default '3' obligatory, d_excel as checkbox default 'X'. ""Download ? start-of-selection. perform read_idoc. perform process_idoc. if d_excel = 'X'. perform download_to_excel. endif. end-of-selection. FORM read_idoc. CALL FUNCTION 'IDOC_READ_COMPLETELY' EXPORTING DOCUMENT_NUMBER = docnum IMPORTING IDOC_CONTROL = idoc_control NUMBER_OF_DATA_RECORDS = NUMBER_OF_DATA_RECORDS NUMBER_OF_STATUS_RECORDS = NUMBER_OF_STATUS_RECORDS TABLES INT_EDIDS = INT_EDIDS INT_EDIDD = INT_EDIDD EXCEPTIONS DOCUMENT_NOT_EXIST = 1 DOCUMENT_NUMBER_INVALID = 2 OTHERS = 3. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. "" read_idoc FORM process_idoc. perform read_idoc_structure. perform display_data_records. ENDFORM. "" process_idoc FORM display_data_records. data: PE_seg_HEADER like EDI_SAPI01, segname like EDI_IAPI12-SEGMENTTYP, prev_segname like EDI_IAPI12-SEGMENTTYP value ' ', pt_fields2 like EDI_IAPI12 occurs 0 with header line, PT_FVALUES2 like EDI_IAPI14 occurs 0 with header line, byte_first type i, byte_last type i, field_val(50), tmp_str(15), tmp_str3(15), seg_repeats type i value 0, tmp_str2(15), tab_cr(1) type x value '09', tot_ctr type i value 0, ctr type i value 0, msg(40) type c. data: IDOC_STRUCT_wa TYPE LEDID_IDOC_STRUCT. sort int_edidd by segnum. describe table int_edidd lines tot_ctr. loop at int_edidd. move int_edidd-segnam to segname. clear msg. concatenate 'Reading segment ' segname into msg separated by space. if tot_ctr <> 0. ctr = ( 100 * sy-tabix ) / tot_ctr. endif. CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING PERCENTAGE = ctr TEXT = msg. add 1 to seg_repeats. clear tmp_str2. if int_edidd-segnam <> prev_segname. seg_repeats = 1. clear: pe_seg_header, pt_fields2, pt_fvalues2. refresh: pt_fields2, pt_fvalues2. CALL FUNCTION 'SEGMENT_READ_COMPLETE' EXPORTING PI_SEGTYP = segname PI_RELEASE = sap_rel PI_VERSION = pi_ver IMPORTING PE_HEADER = pe_seg_header TABLES PT_FIELDS = pt_fields2 PT_FVALUES = pt_fvalues2 EXCEPTIONS SEGMENT_UNKNOWN = 1 SEGMENT_STRUCTURE_UNKNOWN = 2 OTHERS = 3. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. prev_segname = int_edidd-segnam. endif. read table idoc_struct into idoc_struct_wa with key segment_type = int_edidd-segnam. if sy-subrc = 0. IF IDOC_STRUCT_WA-SYNTAX_ATTRIB-MUSTFL = 'X'. TMP_STR = 'Mandatory'. ""Mandatory ELSE. TMP_STR = 'Optional'. ""Optional ENDIF. if IDOC_STRUCT_wa-SEGMENT_TYPE_ATTRIB-QUALIFIER = 'X'. tmp_str3 = 'Qualified'. else. tmp_str3 = 'Non-Qualified'. endif. shift IDOC_STRUCT_wa-SYNTAX_ATTRIB-OCCMAX left deleting leading '0'. move seg_repeats to tmp_str2. condense: IDOC_STRUCT_wa-SYNTAX_ATTRIB-OCCMAX, tmp_str2. concatenate tmp_str2 'of' IDOC_STRUCT_wa-SYNTAX_ATTRIB-OCCMAX into tmp_str2 separated by space. write :/ IDOC_STRUCT_wa-SEGMENT_TYPE, tmp_str, TMP_STR3, tmp_str2, IDOC_STRUCT_wa-SYNTAX_ATTRIB-HLEVEL, IDOC_STRUCT_wa-SEGMENT_TYPE_ATTRIB-plast, IDOC_STRUCT_wa-SEGMENT_TYPE_ATTRIB-DESCRP. if d_excel = 'X'. concatenate 'Segment Name' tab_cr 'Mand / Opt ' tab_cr 'Qual / non-Qual' tab_cr 'Seq of Max' tab_cr 'Level' tab_cr 'Owner' tab_cr 'Description' into excel_tab. append excel_tab. concatenate IDOC_STRUCT_wa-SEGMENT_TYPE tab_cr tmp_str tab_cr TMP_STR3 tab_cr tmp_str2 tab_cr IDOC_STRUCT_wa-SYNTAX_ATTRIB-HLEVEL tab_cr IDOC_STRUCT_wa-SEGMENT_TYPE_ATTRIB-plast tab_cr IDOC_STRUCT_wa-SEGMENT_TYPE_ATTRIB-DESCRP into excel_tab. append excel_tab. concatenate tab_cr 'Field Nma' tab_cr 'Type' tab_cr 'Length' tab_cr 'Byte From' tab_cr 'Byte To' tab_cr 'Description' tab_cr 'Value' tab_cr 'Qualifier Meaning' into excel_tab. append excel_tab. endif. endif. sort pt_fields2 by field_pos. byte_first = 0. loop at pt_fields2. clear: field_val. byte_last = pt_fields2-EXTLEN. write int_edidd-sdata+byte_first(byte_last) to field_val left-justified. shift pt_fields2-EXTLEN left deleting leading '0'. shift pt_fields2-byte_first left deleting leading '0'. shift pt_fields2-byte_last left deleting leading '0'. write:/ ' ', pt_fields2-fieldname, pt_fields2-datatype, pt_fields2-EXTLEN, pt_fields2-byte_first , pt_fields2-byte_last, pt_fields2-descrp, field_val. read table pt_fvalues2 with key fieldname = pt_fields2-fieldname fldvalue_l = field_val. add byte_last to byte_first. if sy-subrc = 0. write : pt_fvalues2-descrp. else. clear pt_fvalues2-descrp. endif. if d_excel = 'X'. concatenate tab_cr pt_fields2-fieldname tab_cr pt_fields2-datatype tab_cr pt_fields2-EXTLEN tab_cr pt_fields2-byte_first tab_cr pt_fields2-byte_last tab_cr pt_fields2-descrp tab_cr field_val tab_cr pt_fvalues2-descrp into excel_tab. append excel_tab. endif. endloop. endloop. ENDFORM. "" display_data_records FORM read_idoc_structure. data: idoctype type LEDID_IDOCTYPE. if not idoc_control-cimtyp is initial. STRUCT_TYPE = 'E'. ""Extended idoctype = idoc_control-cimtyp. else. STRUCT_TYPE = 'B'. ""Basic idoctype = idoc_control-idoctp. endif. CALL FUNCTION 'IDOC_TYPE_COMPLETE_READ' EXPORTING RELEASE = sap_rel STRUCT_TYPE = STRUCT_TYPE IDOCTYPE = idoctype VERSION = pi_ver * IMPORTING * IDOC_TYPE = idoctype TABLES IDOC_STRUCT = idoc_struct SEGMENTS = segments SEGMENT_STRUCT = segment_struct EXCEPTIONS IDOCTYPE_UNKNOWN = 1 IDOCSTRUCT_UNKNOWN = 2 SEGMENT_DATA_MISSING = 3 ILLEGAL_STRUCT_TYPE = 4 OTHERS = 5. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. "" read_idoc_structure FORM download_to_excel. data: name like RLGRAP-FILENAME. shift docnum left deleting leading '0'. concatenate docnum '-' idoc_control-idoctp '.xls' into name. CALL FUNCTION 'RH_START_EXCEL_WITH_DATA' EXPORTING DATA_NAME = name DATA_TYPE = 'ASC' WAIT = ' ' TABLES DATA_TAB = excel_tab EXCEPTIONS NO_BATCH = 1 EXCEL_NOT_INSTALLED = 2 WRONG_VERSION = 3 INTERNAL_ERROR = 4 INVALID_TYPE = 5 CANCELLED = 6 DOWNLOAD_ERROR = 7 OTHERS = 8 . IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. "" download_to_excel
See Also
Get help for your ABAP problems
ABAP Books
More ABAP Tips
SAP Basis, ABAP Programming and Other IMG Stuff All the site contents are Copyright © www.erpgreat.com
and the content authors. All rights reserved.
|