IDocs sending via ALE
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
data begin of aledc. include structure edidc. data: end of aledc. data: begin of redidc occurs 0. include structure edidc. data: end of redidc. data: gt_edidd type table of edidd , ls_edidd type edidd , ls_e1edk14 type y1edk14 , ls_e1edka1 type e1edka1 , ls_e1edp01 type y1edp01 , ls_e1edp19 type e1edp19. ls_edidd-segnam = 'Y1EDK14'. ls_edidd-psgnum = '0000'. ls_edidd-hlevel = '01'. ls_e1edk14-qualf = '006'. ls_e1edk14-orgid = '99'. ls_edidd-sdata = ls_e1edk14. append ls_edidd to gt_edidd. ls_edidd-segnam = 'Y1EDK14'. ls_edidd-psgnum = '0000'. ls_edidd-hlevel = '01'. ls_e1edk14-qualf = '007'. ls_e1edk14-orgid = '99'. ls_edidd-sdata = ls_e1edk14. append ls_edidd to gt_edidd. ls_edidd-segnam = 'Y1EDK14'. ls_edidd-psgnum = '0000'. ls_edidd-hlevel = '01'. ls_e1edk14-qualf = '008'. ls_e1edk14-orgid = '2300'. ls_edidd-sdata = ls_e1edk14. append ls_edidd to gt_edidd. ls_edidd-segnam = 'E1EDKA1'. ls_edidd-psgnum = '0000'. ls_edidd-hlevel = '01'. ls_e1edka1-parvw = 'AG'. ls_e1edka1-partn = '1000015'. ls_edidd-sdata = ls_e1edka1. append ls_edidd to gt_edidd. ls_edidd-segnam = 'Y1EDP01'. ls_edidd-psgnum = '0000'. ls_edidd-hlevel = '01'. ls_e1edp01-pstyv = 'TAD'. ls_edidd-sdata = ls_e1edp01. append ls_edidd to gt_edidd. ls_edidd-segnam = 'E1EDP19'. ls_edidd-psgnum = '0000'. ls_edidd-hlevel = '02'. ls_e1edp19-qualf = '002'. ls_e1edp19-idtnr = '64'. ls_e1edp19-ktext = 'it is ktext'. ls_edidd-sdata = ls_e1edp19. append ls_edidd to gt_edidd. redidc-rcvprn = 'DERCLNT101'. redidc-rcvprt = 'LS'. aledc-idoctp = 'YORDERS1'. aledc-mestyp = 'YORDERS'. redidc-rcvpor = 'A000000038'. call function 'MASTER_IDOC_DISTRIBUTE' EXPORTING master_idoc_control = aledc TABLES communication_idoc_control = redidc master_idoc_data = gt_edidd EXCEPTIONS error_in_idoc_control = 1 error_writing_idoc_status = 2 error_in_idoc_data = 3 sending_logical_system_unknown = 4 others = 5. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
idoc_control-mestyp = 'SEQJIT'. "PAB_ORDERS idoc_control-idoctp = 'SEQJIT03'. idoc_control-cimtyp = ''. CALL FUNCTION 'IDOCTYPE_READ_COMPLETE' EXPORTING pi_idoctyp = idoc_control-idoctp * pi_cimtyp = idoc_control-cimtyp pi_release = '' pi_applrel = '' pi_version = '' TABLES pt_segments = pt_segments pt_fields = pt_fields pt_fvalues = pt_fvalues pt_messages = pt_messages EXCEPTIONS object_unknown = 1 segment_unknown = 2 relation_not_found = 3 OTHERS = 4. |