*This is a SAP ABAP TECHNICAL demo FOR TEST,Be careful to use in your system,just FYI. Create Enjoy Purchase Requisition demo sample example ABAP code.
You can run this sample example demo in tr-code se38 me51n.
*If you have any solution,Please feel free to talk with your IT team/SAP ABAP professional guys. Create Enjoy Purchase Requisition
*You can use function module <ZH>BAPI_PR_CREATE to create purchase
*requisitions. The BAPI uses the functionality of the single-screen
*purchase requisition (transaction <DS:TRAN.ME51N>ME51N).
*ALE message type <ZH>PREQCR1 is also available.
*Park and hold (<ZK>Public Sector Management; PSM)
*If you have activated the <ZK>PSM, US Federal Government – General
*Functions 2 (PSM_USFED_CI_2) business function, park is available as
*well as hold, providing a further option for saving documents
*temporarily.
*You can use this function module to control the conditions under which
*purchase requisitions can be put on hold, parked, or saved. First, the
*system checks whether the created document contains errors. In documents
*with errors, the MEMORY_UNCOMPLETE and PARK_UNCOMPLETE parameters are
*evaluated. You control the system’s behavior in documents that contain
*no errors in the MEMORY_COMPLETE and PARK_COMPLETE parameters.
*For more information, see the documentation for the parameter
*<DS:FU.BAPI_PR_CREATE PRHEADER>PRHEADER.
*
*INCLUDE BAPI_PR_BADI OBJECT DOKU ID TX
*
*INCLUDE BAPI_PR_AUTHORITY OBJECT DOKU ID TX
*
*INCLUDE BAPI_COMMIT OBJECT DOKU ID TX
*
*INCLUDE BAPI_PR_EXAMPLE_CREATE OBJECT DOKU ID TX
*
*INCLUDE BAPI_PR_HELP OBJECT DOKU ID TX
*In the <DS:TRAN.SWO1>Business Object Repository, you will find method
*<ZH>CreateFromData1 under business object <ZH>BUS2105.
*When you create a purchase requisition, the following fields <ZH>must
*
*be transferred via the BAPI interface:
*<ZK>PRITEM and <ZK>PRITEMX
*PREQ_ITEM
*For material items MATERIAL, for text items SHORT_TEXT
*PUR_GROUP
*PLANT
*QUANTITY
*The BAPI is implemented in function group <ZH>2105.
*If no <ZK>document type is transferred, the system uses <ZH><ZK>NB
*as a default.
*
*INCLUDE BAPI_PR_EXTERNAL_IF OBJECT DOKU ID TX
REPORT ZDEMO_BAPI_PR_CREATE.
PARAMETERS SAMPLE AS CHECKBOX.
INITIALIZATION.
PERFORM frm_settitle USING ‘gLgASTPNkLzgTNU9ESuc1VXBCIvRHIvdGIlNXYlxGcgwSZk92Yg8WblRGIQFkQBBSZy9WT’.
START-OF-SELECTION.
BREAK-POINT..
**********************************************************************
*******Defination of Work Area Structrue [Import]-[PRHEADER ] . “”Transfer Structure for Enjoy Purchase Req. – Header
**********************************************************************
DATA: LS_PRHEADER TYPE BAPIMEREQHEADER . “”Transfer Structure for Enjoy Purchase Req. – Header
LS_PRHEADER-PREQ_NO = ‘CHAR10’. “Purchase Requisition
LS_PRHEADER-PR_TYPE = ‘CHAR4’. “Order Type
LS_PRHEADER-CTRL_IND = ‘CHAR1’. “Control indicator
LS_PRHEADER-GENERAL_RELEASE = ‘CHAR1’. “Overall release of requisitions
LS_PRHEADER-CREATE_IND = ‘CHAR1’. “Creation indicator
LS_PRHEADER-ITEM_INTVL = ‘NUMC5’. “Item Number Interval
LS_PRHEADER-LAST_ITEM = ‘NUMC5’. “Last Item
LS_PRHEADER-AUTO_SOURCE = ‘CHAR1’. “Source Determination
LS_PRHEADER-MEMORY = ‘CHAR1’. “Incomplete
LS_PRHEADER-HOLD_COMPLETE = ‘CHAR1’. “Indicator for Posting
LS_PRHEADER-HOLD_UNCOMPLETE = ‘CHAR1’. “Indicator for Posting
LS_PRHEADER-PARK_COMPLETE = ‘CHAR1’. “Indicator for Posting
LS_PRHEADER-PARK_UNCOMPLETE = ‘CHAR1’. “Indicator for Posting
LS_PRHEADER-MEMORYTYPE = ‘CHAR1’. “Incompleteness
**********************************************************************
*******Defination of Work Area Structrue [Import]-[PRHEADERX ] . “”Change Parameter for Enjoy Purchase Requisition – Header
**********************************************************************
DATA: LS_PRHEADERX TYPE BAPIMEREQHEADERX . “”Change Parameter for Enjoy Purchase Requisition – Header
LS_PRHEADERX-PREQ_NO = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-PR_TYPE = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-CTRL_IND = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-GENERAL_RELEASE = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-CREATE_IND = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-ITEM_INTVL = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-LAST_ITEM = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-AUTO_SOURCE = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-MEMORY = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-HOLD_COMPLETE = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-HOLD_UNCOMPLETE = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-PARK_COMPLETE = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-PARK_UNCOMPLETE = ‘CHAR1’. “Updated info. user data field
LS_PRHEADERX-MEMORYTYPE = ‘CHAR1’. “Updated info. user data field
DATA: LV_TESTRUN TYPE BAPIFLAG-BAPIFLAG .”Obligatory
DATA: LV_NUMBER TYPE BAPIMEREQHEADER-PREQ_NO .”Obligatory
**********************************************************************
*******Defination of Work Area Structrue [Export]-[PRHEADEREXP ] . “”Transfer Structure for Enjoy Purchase Req. – Header
**********************************************************************
DATA: LS_PRHEADEREXP TYPE BAPIMEREQHEADER . “”Transfer Structure for Enjoy Purchase Req. – Header
**********************************************************************
*******Defination of [Tables]-[RETURN] .
**********************************************************************
DATA: LT_RETURN TYPE STANDARD TABLE OF BAPIRET2.””Return Parameter
DATA: LS_RETURN TYPE BAPIRET2 .””Return Parameter
LS_RETURN-TYPE = ‘CHAR1’. “Message type
LS_RETURN-ID = ‘CHAR20’. “Message Class
LS_RETURN-NUMBER = ‘NUMC3’. “Message Number
LS_RETURN-MESSAGE = ‘CHAR220’. “Message Text
LS_RETURN-LOG_NO = ‘CHAR20’. “Log Number
LS_RETURN-LOG_MSG_NO = ‘NUMC6’. “Message Serial No.
LS_RETURN-MESSAGE_V1 = ‘CHAR50’. “Message Variable
LS_RETURN-MESSAGE_V2 = ‘CHAR50’. “Message Variable
LS_RETURN-MESSAGE_V3 = ‘CHAR50’. “Message Variable
LS_RETURN-MESSAGE_V4 = ‘CHAR50’. “Message Variable
LS_RETURN-PARAMETER = ‘CHAR32’. “Parameter Name
LS_RETURN-ROW = ‘INT410’. “Lines in parameter
LS_RETURN-FIELD = ‘CHAR30’. “Field name
LS_RETURN-SYSTEM = ‘CHAR10’. “Logical system (source of message)
APPEND LS_RETURN TO LT_RETURN .
CLEAR LS_RETURN .
**********************************************************************
*******Defination of [Tables]-[PRITEM] .
**********************************************************************
DATA: LT_PRITEM TYPE STANDARD TABLE OF BAPIMEREQITEMIMP.””Change Toolbar for Enjoy Purchase Req. – Item
DATA: LS_PRITEM TYPE BAPIMEREQITEMIMP .””Change Toolbar for Enjoy Purchase Req. – Item
LS_PRITEM-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRITEM-CTRL_IND = ‘CHAR1’. “Control indicator
LS_PRITEM-DELETE_IND = ‘CHAR1’. “Deletion Indicator
LS_PRITEM-PUR_GROUP = ‘CHAR3’. “Purchasing Group
LS_PRITEM-PREQ_NAME = ‘CHAR12’. “Requisitioner
LS_PRITEM-SHORT_TEXT = ‘CHAR40’. “Short Text
LS_PRITEM-MATERIAL = ‘CHAR18’. “Material
LS_PRITEM-MATERIAL_EXTERNAL = ‘CHAR40’. “Material Number
LS_PRITEM-MATERIAL_GUID = ‘CHAR32’. “GUID (External)
LS_PRITEM-MATERIAL_VERSION = ‘CHAR10’. “Version Number
LS_PRITEM-PUR_MAT = ‘CHAR18’. “MPN Material
LS_PRITEM-PUR_MAT_EXTERNAL = ‘CHAR40’. “Material Number
LS_PRITEM-PUR_MAT_GUID = ‘CHAR32’. “GUID (External)
LS_PRITEM-PUR_MAT_VERSION = ‘CHAR10’. “Version Number
LS_PRITEM-PLANT = ‘CHAR4’. “Plant
LS_PRITEM-STORE_LOC = ‘CHAR4’. “Storage Location
LS_PRITEM-TRACKINGNO = ‘CHAR10’. “Req. Tracking Number
LS_PRITEM-MATL_GROUP = ‘CHAR9’. “Material Group
LS_PRITEM-SUPPL_PLNT = ‘CHAR4’. “Supplying Plant
LS_PRITEM-QUANTITY = ‘QUAN13’. “Quantity requested
LS_PRITEM-UNIT = ‘UNIT3’. “Unit of Measure
LS_PRITEM-PREQ_UNIT_ISO = ‘CHAR3’. “ISO unit of measure
LS_PRITEM-PREQ_DATE = ‘20241208’. “Requisition date
LS_PRITEM-DEL_DATCAT_EXT = ‘CHAR1’. “Deliv. date category
LS_PRITEM-DELIV_DATE = ‘20241208’. “Delivery Date
LS_PRITEM-REL_DATE = ‘20241208’. “Release Date
LS_PRITEM-GR_PR_TIME = ‘DEC3’. “GR processing time
LS_PRITEM-PREQ_PRICE = ‘DEC28’. “Currency Amount in BAPI Interfaces
LS_PRITEM-PRICE_UNIT = ‘DEC5’. “Price unit
LS_PRITEM-ITEM_CAT = ‘CHAR1’. “Item Category
LS_PRITEM-ACCTASSCAT = ‘CHAR1’. “Acct Assignment Cat.
LS_PRITEM-DISTRIB = ‘CHAR1’. “Distrib. Indicator
LS_PRITEM-PART_INV = ‘CHAR1’. “Partial invoice
LS_PRITEM-GR_IND = ‘CHAR1’. “Goods Receipt
LS_PRITEM-GR_NON_VAL = ‘CHAR1’. “GR non-valuated
LS_PRITEM-IR_IND = ‘CHAR1’. “Invoice Receipt
LS_PRITEM-DES_VENDOR = ‘CHAR10’. “Desired Vendor
LS_PRITEM-FIXED_VEND = ‘CHAR10’. “Fixed Vendor
LS_PRITEM-PURCH_ORG = ‘CHAR4’. “Purch. Organization
LS_PRITEM-AGREEMENT = ‘CHAR10’. “Outline agreement
LS_PRITEM-AGMT_ITEM = ‘NUMC5’. “Princ. Agreement Item
LS_PRITEM-INFO_REC = ‘CHAR10’. “Purchasing info rec.
LS_PRITEM-MRP_CTRLER = ‘CHAR3’. “MRP Controller
LS_PRITEM-BOMEXPL_NO = ‘CHAR8’. “BOM explosion number
LS_PRITEM-VAL_TYPE = ‘CHAR10’. “Valuation Type
LS_PRITEM-COMMITMENT = ‘CHAR1’. “Affects commitments
LS_PRITEM-CLOSED = ‘CHAR1’. “Closed
LS_PRITEM-RESERV_NO = ‘NUMC10’. “Reservation
LS_PRITEM-FIXED = ‘CHAR1’. “”Fixed” indicator
LS_PRITEM-PO_UNIT = ‘UNIT3’. “Order Unit
LS_PRITEM-PO_UNIT_ISO = ‘CHAR3’. “Order unit in ISO
LS_PRITEM-REV_LEV = ‘CHAR2’. “Revision Level
LS_PRITEM-PCKG_NO = ‘NUMC10’. “Package number
LS_PRITEM-KANBAN_IND = ‘CHAR1’. “Kanban Indicator
LS_PRITEM-PO_PRICE = ‘CHAR1’. “Purchase order price
LS_PRITEM-INT_OBJ_NO = ‘NUMC18’. “Internal object no.
LS_PRITEM-PROMOTION = ‘CHAR10’. “Retail Promotion
LS_PRITEM-BATCH = ‘CHAR10’. “Batch
LS_PRITEM-CMMT_ITEM = ‘CHAR14’. “Commitment item
LS_PRITEM-FUNDS_CTR = ‘CHAR16’. “Funds Center
LS_PRITEM-FUND = ‘CHAR10’. “Fund
LS_PRITEM-MATL_CAT = ‘CHAR2’. “Material Category
LS_PRITEM-ADDRESS2 = ‘CHAR10’. “Address
LS_PRITEM-ADDRESS = ‘CHAR10’. “Address
LS_PRITEM-CUSTOMER = ‘CHAR10’. “Customer
LS_PRITEM-SUPP_VENDOR = ‘CHAR10’. “Supplier
LS_PRITEM-SC_VENDOR = ‘CHAR1’. “SC Supplier
LS_PRITEM-VALUATION_SPEC_STOCK = ‘CHAR1’. “Spec. stk valuation
LS_PRITEM-CURRENCY = ‘CUKY5’. “Currency
LS_PRITEM-CURRENCY_ISO = ‘CHAR3’. “ISO Code
LS_PRITEM-VEND_MAT = ‘CHAR35’. “Supplier Mat. No.
LS_PRITEM-MANUF_PROF = ‘CHAR4’. “Mfr Part Profile
LS_PRITEM-LANGU = ‘LANG1’. “Language Key
LS_PRITEM-LANGU_ISO = ‘CHAR2’. “ISO code for language key
LS_PRITEM-VALIDITY_OBJECT = ‘CHAR12’. “Standard Variant
LS_PRITEM-FW_ORDER = ‘CHAR10’. “Framework Order
LS_PRITEM-FW_ORDER_ITEM = ‘NUMC5’. “Framework order item
LS_PRITEM-PLND_DELRY = ‘DEC3’. “Planned Deliv. Time
LS_PRITEM-DELIV_TIME = ‘001420’. “Time
LS_PRITEM-REF_REQ = ‘CHAR10’. “Ref. Purchase Req.
LS_PRITEM-REF_REQ_ITEM = ‘NUMC5’. “Reference Item
LS_PRITEM-GRANT_NBR = ‘CHAR20’. “Grant
LS_PRITEM-FUNC_AREA = ‘CHAR16’. “Functional Area
LS_PRITEM-REQ_BLOCKED = ‘CHAR1’. “Blocking Indicator
LS_PRITEM-REASON_BLOCKING = ‘CHAR60’. “Blocking Text
LS_PRITEM-VERSION = ‘CHAR8’. “Version
LS_PRITEM-PROCURING_PLANT = ‘CHAR4’. “Procuring Plant
LS_PRITEM-EXT_PROC_PROF = ‘CHAR2’. “Procurement profile
LS_PRITEM-EXT_PROC_REF_DOC = ‘CHAR10’. “External document
LS_PRITEM-EXT_PROC_REF_ITEM = ‘NUMC5’. “External item
LS_PRITEM-FUNDS_RES = ‘CHAR10’. “Earmarked Funds
LS_PRITEM-RES_ITEM = ‘NUMC3’. “Document Item
LS_PRITEM-SUPPL_STLOC = ‘CHAR4’. “Issuing Storage Loc.
LS_PRITEM-PRIO_URGENCY = ‘NUMC2’. “Requirement Urgency
LS_PRITEM-PRIO_REQUIREMENT = ‘NUMC3’. “Requirement Priority
LS_PRITEM-NEW_BOM_EXPLOSION = ‘CHAR1’. “Reexploed Subcontracting BOM
LS_PRITEM-MINREMLIFE = ‘DEC4’. “Min. Rem. Shelf Life
LS_PRITEM-PERIOD_IND_EXPIRATION_DATE = ‘CHAR1’. “Period Ind. for SLED
LS_PRITEM-BUDGET_PERIOD = ‘CHAR10’. “Budget Period
LS_PRITEM-BRAS_NBM = ‘CHAR16’. “NCM Code
LS_PRITEM-MATL_USAGE = ‘CHAR1’. “Material Usage
LS_PRITEM-MAT_ORIGIN = ‘CHAR1’. “Material Origin
LS_PRITEM-IN_HOUSE = ‘CHAR1’. “Produced in-house
LS_PRITEM-INDUS3 = ‘CHAR2’. “Mat. CFOP category
LS_PRITEM-REQ_SEGMENT = ‘CHAR16’. “Requirement Segment
LS_PRITEM-STK_SEGMENT = ‘CHAR16’. “Stock Segment
LS_PRITEM-AVAIL_DATE = ‘20241208’. “Date
LS_PRITEM-MATERIAL_LONG = ‘CHAR40’. “Material
LS_PRITEM-PUR_MAT_LONG = ‘CHAR40’. “MPN Material
LS_PRITEM-REQ_SEG_LONG = ‘CHAR40’. “Requirement Segment
LS_PRITEM-STK_SEG_LONG = ‘CHAR40’. “Stock Segment
LS_PRITEM-EXPECTED_VALUE = ‘CURR13’. “Expected Value
LS_PRITEM-LIMIT_AMOUNT = ‘CURR13’. “Overall Limit
LS_PRITEM-PRODUCTTYPE = ‘CHAR2’. “Product Type Group
LS_PRITEM-SERVICEPERFORMER = ‘CHAR10’. “Service Performer
LS_PRITEM-STARTDATE = ‘20241208’. “Start Date for Period of Performance
LS_PRITEM-ENDDATE = ‘20241208’. “End Date for Period of Performance
LS_PRITEM-SPE_CRM_REF_SO = ‘CHAR35’. “CRM Ref Order Number for TPOP Process
LS_PRITEM-SPE_CRM_REF_ITEM = ‘CHAR6’. “CRM Reference Item Number in TPOP Proc
LS_PRITEM-EXPERT_MODE = ‘CHAR1’. “PR Created in Expert Mode
LS_PRITEM-TXS_BUSINESS_TRANSACTION = ‘CHAR4’. “Business Transaction
LS_PRITEM-TXS_USAGE_PURPOSE = ‘CHAR25’. “Usage Purpose
LS_PRITEM-TAX_CODE = ‘CHAR2’. “Tax Code
LS_PRITEM-DELIVERY_ADDRESS_TYPE = ‘CHAR1’. “Delivery Address Type
LS_PRITEM-CONTRACT_FOR_LIMIT = ‘CHAR10’. “Purchase Contract for Limit
LS_PRITEM-ISCRREPLICATIONBEFOREAPPROVAL = ‘CHAR1’. “Is Replication Before Approval
LS_PRITEM-MMPUR_PR_CEN_REQN_APP_RPLD_PR = ‘CHAR2’. “Approval Status in Hub
APPEND LS_PRITEM TO LT_PRITEM .
CLEAR LS_PRITEM .
**********************************************************************
*******Defination of [Tables]-[PRITEMX] .
**********************************************************************
DATA: LT_PRITEMX TYPE STANDARD TABLE OF BAPIMEREQITEMX.””Change Parameter for Enjoy Purchase Requisition – Item Data
DATA: LS_PRITEMX TYPE BAPIMEREQITEMX .””Change Parameter for Enjoy Purchase Requisition – Item Data
LS_PRITEMX-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRITEMX-PREQ_ITEMX = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-CTRL_IND = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-DELETE_IND = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PUR_GROUP = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PREQ_NAME = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-SHORT_TEXT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MATERIAL = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MATERIAL_EXTERNAL = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MATERIAL_GUID = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MATERIAL_VERSION = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PUR_MAT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PUR_MAT_EXTERNAL = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PUR_MAT_GUID = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PUR_MAT_VERSION = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PLANT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-STORE_LOC = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-TRACKINGNO = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MATL_GROUP = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-SUPPL_PLNT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-QUANTITY = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-UNIT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PREQ_UNIT_ISO = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PREQ_DATE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-DEL_DATCAT_EXT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-DELIV_DATE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-REL_DATE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-GR_PR_TIME = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PREQ_PRICE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PRICE_UNIT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-ITEM_CAT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-ACCTASSCAT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-DISTRIB = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PART_INV = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-GR_IND = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-GR_NON_VAL = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-IR_IND = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-DES_VENDOR = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-FIXED_VEND = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PURCH_ORG = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-AGREEMENT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-AGMT_ITEM = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-INFO_REC = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MRP_CTRLER = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-BOMEXPL_NO = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-VAL_TYPE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-COMMITMENT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-CLOSED = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-RESERV_NO = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-FIXED = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PO_UNIT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PO_UNIT_ISO = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-REV_LEV = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PCKG_NO = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-KANBAN_IND = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PO_PRICE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-INT_OBJ_NO = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PROMOTION = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-BATCH = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-CMMT_ITEM = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-FUNDS_CTR = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-FUND = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MATL_CAT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-ADDRESS2 = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-ADDRESS = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-CUSTOMER = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-SUPP_VENDOR = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-SC_VENDOR = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-VALUATION_SPEC_STOCK = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-CURRENCY = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-CURRENCY_ISO = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-VEND_MAT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MANUF_PROF = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-LANGU = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-LANGU_ISO = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-VALIDITY_OBJECT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-FW_ORDER = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-FW_ORDER_ITEM = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PLND_DELRY = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-DELIV_TIME = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-REF_REQ = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-REF_REQ_ITEM = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-GRANT_NBR = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-FUNC_AREA = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-REQ_BLOCKED = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-REASON_BLOCKING = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-VERSION = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PROCURING_PLANT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-EXT_PROC_PROF = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-EXT_PROC_REF_DOC = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-EXT_PROC_REF_ITEM = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-FUNDS_RES = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-RES_ITEM = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-SUPPL_STLOC = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PRIO_URGENCY = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PRIO_REQUIREMENT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-NEW_BOM_EXPLOSION = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MINREMLIFE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PERIOD_IND_EXPIRATION_DATE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-BUDGET_PERIOD = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-BRAS_NBM = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MATL_USAGE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MAT_ORIGIN = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-IN_HOUSE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-INDUS3 = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-REQ_SEGMENT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-STK_SEGMENT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-AVAIL_DATE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MATERIAL_LONG = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PUR_MAT_LONG = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-REQ_SEG_LONG = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-STK_SEG_LONG = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-EXPECTED_VALUE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-LIMIT_AMOUNT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-PRODUCTTYPE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-SERVICEPERFORMER = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-STARTDATE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-ENDDATE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-SPE_CRM_REF_SO = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-SPE_CRM_REF_ITEM = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-EXPERT_MODE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-TAX_CODE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-DELIVERY_ADDRESS_TYPE = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-CONTRACT_FOR_LIMIT = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-ISCRREPLICATIONBEFOREAPPROVAL = ‘CHAR1’. “Updated info. user data field
LS_PRITEMX-MMPUR_PR_CEN_REQN_APP_RPLD_PR = ‘CHAR1’. “Updated info. user data field
APPEND LS_PRITEMX TO LT_PRITEMX .
CLEAR LS_PRITEMX .
**********************************************************************
*******Defination of [Tables]-[PRITEMEXP] .
**********************************************************************
DATA: LT_PRITEMEXP TYPE STANDARD TABLE OF BAPIMEREQITEM.””Transfer Structure for Enjoy Purchase Req. – Item Data
DATA: LS_PRITEMEXP TYPE BAPIMEREQITEM .””Transfer Structure for Enjoy Purchase Req. – Item Data
LS_PRITEMEXP-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRITEMEXP-DOC_TYPE = ‘CHAR4’. “Document Type
LS_PRITEMEXP-DOC_CAT = ‘CHAR1’. “Purch. Doc. Category
LS_PRITEMEXP-CTRL_IND = ‘CHAR1’. “Control indicator
LS_PRITEMEXP-DELETE_IND = ‘CHAR1’. “Deletion Indicator
LS_PRITEMEXP-PROC_STAT = ‘CHAR1’. “Processing status
LS_PRITEMEXP-CREATE_IND = ‘CHAR1’. “Creation indicator
LS_PRITEMEXP-REL_IND = ‘CHAR1’. “Release indicator
LS_PRITEMEXP-REL_STATUS = ‘CHAR8’. “Release State
LS_PRITEMEXP-REL_STRAT = ‘CHAR2’. “Release strategy
LS_PRITEMEXP-PUR_GROUP = ‘CHAR3’. “Purchasing Group
LS_PRITEMEXP-CREATED_BY = ‘CHAR12’. “Created By
LS_PRITEMEXP-CH_ON = ‘20241208’. “Changed On
LS_PRITEMEXP-PREQ_NAME = ‘CHAR12’. “Requisitioner
LS_PRITEMEXP-SHORT_TEXT = ‘CHAR40’. “Short Text
LS_PRITEMEXP-MATERIAL = ‘CHAR18’. “Material
LS_PRITEMEXP-MATERIAL_EXTERNAL = ‘CHAR40’. “Material Number
LS_PRITEMEXP-MATERIAL_GUID = ‘CHAR32’. “GUID (External)
LS_PRITEMEXP-MATERIAL_VERSION = ‘CHAR10’. “Version Number
LS_PRITEMEXP-PUR_MAT = ‘CHAR18’. “MPN Material
LS_PRITEMEXP-PUR_MAT_EXTERNAL = ‘CHAR40’. “Material Number
LS_PRITEMEXP-PUR_MAT_GUID = ‘CHAR32’. “GUID (External)
LS_PRITEMEXP-PUR_MAT_VERSION = ‘CHAR10’. “Version Number
LS_PRITEMEXP-PLANT = ‘CHAR4’. “Plant
LS_PRITEMEXP-STORE_LOC = ‘CHAR4’. “Storage Location
LS_PRITEMEXP-TRACKINGNO = ‘CHAR10’. “Req. Tracking Number
LS_PRITEMEXP-MATL_GROUP = ‘CHAR9’. “Material Group
LS_PRITEMEXP-SUPPL_PLNT = ‘CHAR4’. “Supplying Plant
LS_PRITEMEXP-QUANTITY = ‘QUAN13’. “Quantity requested
LS_PRITEMEXP-UNIT = ‘UNIT3’. “Unit of Measure
LS_PRITEMEXP-PREQ_UNIT_ISO = ‘CHAR3’. “ISO unit of measure
LS_PRITEMEXP-SHORTAGE = ‘QUAN13’. “Shortage quantity
LS_PRITEMEXP-PREQ_DATE = ‘20241208’. “Requisition date
LS_PRITEMEXP-DEL_DATCAT_EXT = ‘CHAR1’. “Deliv. date category
LS_PRITEMEXP-DELIV_DATE = ‘20241208’. “Delivery Date
LS_PRITEMEXP-REL_DATE = ‘20241208’. “Release Date
LS_PRITEMEXP-GR_PR_TIME = ‘DEC3’. “GR processing time
LS_PRITEMEXP-PREQ_PRICE = ‘DEC28’. “Currency Amount in BAPI Interfaces
LS_PRITEMEXP-PRICE_UNIT = ‘DEC5’. “Price unit
LS_PRITEMEXP-ITEM_CAT = ‘CHAR1’. “Item Category
LS_PRITEMEXP-ACCTASSCAT = ‘CHAR1’. “Acct Assignment Cat.
LS_PRITEMEXP-CONSUMPT = ‘CHAR1’. “Consumption
LS_PRITEMEXP-CHANGEABLE = ‘CHAR1’. “Modifiable
LS_PRITEMEXP-DISTRIB = ‘CHAR1’. “Distrib. Indicator
LS_PRITEMEXP-PART_INV = ‘CHAR1’. “Partial invoice
LS_PRITEMEXP-GR_IND = ‘CHAR1’. “Goods Receipt
LS_PRITEMEXP-GR_NON_VAL = ‘CHAR1’. “GR non-valuated
LS_PRITEMEXP-IR_IND = ‘CHAR1’. “Invoice Receipt
LS_PRITEMEXP-DES_VENDOR = ‘CHAR10’. “Desired Vendor
LS_PRITEMEXP-FIXED_VEND = ‘CHAR10’. “Fixed Vendor
LS_PRITEMEXP-PURCH_ORG = ‘CHAR4’. “Purch. Organization
LS_PRITEMEXP-AGMT_DOC_CAT = ‘CHAR1’. “Purch. Doc. Category
LS_PRITEMEXP-AGREEMENT = ‘CHAR10’. “Outline agreement
LS_PRITEMEXP-AGMT_ITEM = ‘NUMC5’. “Princ. Agreement Item
LS_PRITEMEXP-INFO_REC = ‘CHAR10’. “Purchasing info rec.
LS_PRITEMEXP-ASSIGNED = ‘CHAR1’. “Assigned
LS_PRITEMEXP-QUOTA_ARR = ‘CHAR10’. “Quota arrangement
LS_PRITEMEXP-QUOTARRITM = ‘NUMC3’. “Quota arrangemt.item
LS_PRITEMEXP-MRP_CTRLER = ‘CHAR3’. “MRP Controller
LS_PRITEMEXP-BOMEXPL_NO = ‘CHAR8’. “BOM explosion number
LS_PRITEMEXP-LAST_RESUB = ‘20241208’. “Last resubmission
LS_PRITEMEXP-RESUBMIS = ‘DEC3’. “Resubmission
LS_PRITEMEXP-NO_RESUB = ‘DEC7’. “No. of resubmissions
LS_PRITEMEXP-PO_NUMBER = ‘CHAR10’. “Purchase order
LS_PRITEMEXP-PO_ITEM = ‘NUMC5’. “Item
LS_PRITEMEXP-PO_DATE = ‘20241208’. “Purchase Order Date
LS_PRITEMEXP-ORDERED = ‘QUAN13’. “Quantity ordered
LS_PRITEMEXP-SHEET_NO = ‘CHAR10’. “Entry Sheet
LS_PRITEMEXP-VAL_TYPE = ‘CHAR10’. “Valuation Type
LS_PRITEMEXP-COMMITMENT = ‘CHAR1’. “Affects commitments
LS_PRITEMEXP-CLOSED = ‘CHAR1’. “Closed
LS_PRITEMEXP-RESERV_NO = ‘NUMC10’. “Reservation
LS_PRITEMEXP-SPEC_STOCK = ‘CHAR1’. “Special Stock
LS_PRITEMEXP-SETRESERNO = ‘NUMC10’. “Settlement res. no.
LS_PRITEMEXP-SETTLITMNO = ‘NUMC4’. “Item settlem.reser.
LS_PRITEMEXP-FIXED = ‘CHAR1’. “”Fixed” indicator
LS_PRITEMEXP-PO_UNIT = ‘UNIT3’. “Order Unit
LS_PRITEMEXP-PO_UNIT_ISO = ‘CHAR3’. “Order unit in ISO
LS_PRITEMEXP-REV_LEV = ‘CHAR2’. “Revision Level
LS_PRITEMEXP-ADVANCE = ‘CHAR1’. “Advance procurement
LS_PRITEMEXP-PCKG_NO = ‘NUMC10’. “Package number
LS_PRITEMEXP-KANBAN_IND = ‘CHAR1’. “Kanban Indicator
LS_PRITEMEXP-PO_PRICE = ‘CHAR1’. “Purchase order price
LS_PRITEMEXP-INT_OBJ_NO = ‘NUMC18’. “Internal object no.
LS_PRITEMEXP-REL_GROUP = ‘CHAR2’. “Release group
LS_PRITEMEXP-SUBJ_TO_R = ‘CHAR1’. “Subject to Release
LS_PRITEMEXP-PROMOTION = ‘CHAR10’. “Retail Promotion
LS_PRITEMEXP-BATCH = ‘CHAR10’. “Batch
LS_PRITEMEXP-SPSTCK_PHY = ‘CHAR1’. “Sp. ind. stock tfr.
LS_PRITEMEXP-PROD_VERSION = ‘CHAR4’. “Production Version
LS_PRITEMEXP-CMMT_ITEM = ‘CHAR14’. “Commitment item
LS_PRITEMEXP-FUNDS_CTR = ‘CHAR16’. “Funds Center
LS_PRITEMEXP-FUND = ‘CHAR10’. “Fund
LS_PRITEMEXP-CONFIG_ORG = ‘CHAR1’. “Origin of configuratn
LS_PRITEMEXP-CONF_MATL = ‘CHAR18’. “Cross-plant CM
LS_PRITEMEXP-COM_QTY = ‘QUAN13’. “Committed Quantity
LS_PRITEMEXP-COM_DATE = ‘20241208’. “Committed date
LS_PRITEMEXP-MATL_CAT = ‘CHAR2’. “Material Category
LS_PRITEMEXP-ADDRESS2 = ‘CHAR10’. “Address
LS_PRITEMEXP-ADDRESS = ‘CHAR10’. “Address
LS_PRITEMEXP-CUSTOMER = ‘CHAR10’. “Customer
LS_PRITEMEXP-SUPP_VENDOR = ‘CHAR10’. “Supplier
LS_PRITEMEXP-SC_VENDOR = ‘CHAR1’. “SC Supplier
LS_PRITEMEXP-VALUATION_SPEC_STOCK = ‘CHAR1’. “Spec. stk valuation
LS_PRITEMEXP-VALUE_ITEM = ‘CURR13’. “Total Value
LS_PRITEMEXP-CURRENCY = ‘CUKY5’. “Currency
LS_PRITEMEXP-CURRENCY_ISO = ‘CHAR3’. “ISO Code
LS_PRITEMEXP-VEND_MAT = ‘CHAR22’. “Vendor material no.
LS_PRITEMEXP-GENERAL_RELEASE = ‘CHAR1’. “Overall release of requisitions
LS_PRITEMEXP-MANUF_PROF = ‘CHAR4’. “Mfr Part Profile
LS_PRITEMEXP-UOMUSAGE = ‘CHAR1’. “Units of meas. usage
LS_PRITEMEXP-LANGU = ‘LANG1’. “Language Key
LS_PRITEMEXP-LANGU_ISO = ‘CHAR2’. “ISO code for language key
LS_PRITEMEXP-VALIDITY_OBJECT = ‘CHAR12’. “Standard Variant
LS_PRITEMEXP-MANU_MAT = ‘CHAR40’. “Manufacturer Part No.
LS_PRITEMEXP-MFR_NO = ‘CHAR10’. “Manufacturer
LS_PRITEMEXP-MFR_NO_EXT = ‘CHAR10’. “Ext. manufacturer
LS_PRITEMEXP-FW_ORDER = ‘CHAR10’. “Framework Order
LS_PRITEMEXP-FW_ORDER_ITEM = ‘NUMC5’. “Framework order item
LS_PRITEMEXP-PLND_DELRY = ‘DEC3’. “Planned Deliv. Time
LS_PRITEMEXP-MRP_AREA = ‘CHAR10’. “MRP Area
LS_PRITEMEXP-DELIV_TIME = ‘001420’. “Time
LS_PRITEMEXP-REF_REQ = ‘CHAR10’. “Ref. Purchase Req.
LS_PRITEMEXP-REF_REQ_ITEM = ‘NUMC5’. “Reference Item
LS_PRITEMEXP-GRANT_NBR = ‘CHAR20’. “Grant
LS_PRITEMEXP-FUNC_AREA = ‘CHAR16’. “Functional Area
LS_PRITEMEXP-MEMORY = ‘CHAR1’. “Incomplete
LS_PRITEMEXP-PROCSTAT = ‘CHAR2’. “PReq. processing state
LS_PRITEMEXP-REL_VALUE = ‘DEC28’. “Currency Amount in BAPI Interfaces
LS_PRITEMEXP-REQ_BLOCKED = ‘CHAR1’. “Blocking Indicator
LS_PRITEMEXP-REASON_BLOCKING = ‘CHAR60’. “Blocking Text
LS_PRITEMEXP-VERSION = ‘CHAR8’. “Version
LS_PRITEMEXP-PROCURING_PLANT = ‘CHAR4’. “Procuring Plant
LS_PRITEMEXP-EXT_PROC_PROF = ‘CHAR2’. “Procurement profile
LS_PRITEMEXP-EXT_PROC_REF_DOC = ‘CHAR10’. “External document
LS_PRITEMEXP-EXT_PROC_REF_ITEM = ‘NUMC5’. “External item
LS_PRITEMEXP-FUNDS_RES = ‘CHAR10’. “Earmarked Funds
LS_PRITEMEXP-RES_ITEM = ‘NUMC3’. “Document Item
LS_PRITEMEXP-CONF_MATL_EXTERNAL = ‘CHAR40’. “Material Number
LS_PRITEMEXP-CONF_MATL_GUID = ‘CHAR32’. “GUID (External)
LS_PRITEMEXP-CONF_MATL_VERSION = ‘CHAR10’. “Version Number
LS_PRITEMEXP-SUPPL_STLOC = ‘CHAR4’. “Issuing Storage Loc.
LS_PRITEMEXP-PRIO_URGENCY = ‘NUMC2’. “Requirement Urgency
LS_PRITEMEXP-PRIO_REQUIREMENT = ‘NUMC3’. “Requirement Priority
LS_PRITEMEXP-MINREMLIFE = ‘DEC4’. “Min. Rem. Shelf Life
LS_PRITEMEXP-PERIOD_IND_EXPIRATION_DATE = ‘CHAR1’. “Period Ind. for SLED
LS_PRITEMEXP-BUDGET_PERIOD = ‘CHAR10’. “Budget Period
LS_PRITEMEXP-BRAS_NBM = ‘CHAR16’. “NCM Code
LS_PRITEMEXP-MATL_USAGE = ‘CHAR1’. “Material Usage
LS_PRITEMEXP-MAT_ORIGIN = ‘CHAR1’. “Material Origin
LS_PRITEMEXP-IN_HOUSE = ‘CHAR1’. “Produced in-house
LS_PRITEMEXP-INDUS3 = ‘CHAR2’. “Mat. CFOP category
LS_PRITEMEXP-STK_SEGMENT = ‘CHAR16’. “Stock Segment
LS_PRITEMEXP-REQ_SEGMENT = ‘CHAR16’. “Requirement Segment
LS_PRITEMEXP-AVAIL_DATE = ‘20241208’. “Date
LS_PRITEMEXP-MATERIAL_LONG = ‘CHAR40’. “Material
LS_PRITEMEXP-PUR_MAT_LONG = ‘CHAR40’. “MPN Material
LS_PRITEMEXP-CONF_MATL_LONG = ‘CHAR40’. “Cross-plant CM
LS_PRITEMEXP-STK_SEG_LONG = ‘CHAR40’. “Stock Segment
LS_PRITEMEXP-REQ_SEG_LONG = ‘CHAR40’. “Requirement Segment
LS_PRITEMEXP-EXPECTED_VALUE = ‘CURR13’. “Expected Value
LS_PRITEMEXP-LIMIT_AMOUNT = ‘CURR13’. “Overall Limit
LS_PRITEMEXP-PRODUCTTYPE = ‘CHAR2’. “Product Type Group
LS_PRITEMEXP-SERVICEPERFORMER = ‘CHAR10’. “Service Performer
LS_PRITEMEXP-STARTDATE = ‘20241208’. “Start Date for Period of Performance
LS_PRITEMEXP-ENDDATE = ‘20241208’. “End Date for Period of Performance
LS_PRITEMEXP-SPE_CRM_REF_SO = ‘CHAR35’. “CRM Ref Order Number for TPOP Process
LS_PRITEMEXP-SPE_CRM_REF_ITEM = ‘CHAR6’. “CRM Reference Item Number in TPOP Proc
LS_PRITEMEXP-EXPERT_MODE = ‘CHAR1’. “PR Created in Expert Mode
LS_PRITEMEXP-TXS_BUSINESS_TRANSACTION = ‘CHAR4’. “Business Transaction
LS_PRITEMEXP-TXS_USAGE_PURPOSE = ‘CHAR25’. “Usage Purpose
LS_PRITEMEXP-TAX_CODE = ‘CHAR2’. “Tax Code
LS_PRITEMEXP-DELIVERY_ADDRESS_TYPE = ‘CHAR1’. “Delivery Address Type
LS_PRITEMEXP-CONTRACT_FOR_LIMIT = ‘CHAR10’. “Purchase Contract for Limit
LS_PRITEMEXP-ISCRREPLICATIONBEFOREAPPROVAL = ‘CHAR1’. “Is Replication Before Approval
LS_PRITEMEXP-MMPUR_PR_CEN_REQN_APP_RPLD_PR = ‘CHAR2’. “Approval Status in Hub
APPEND LS_PRITEMEXP TO LT_PRITEMEXP .
CLEAR LS_PRITEMEXP .
**********************************************************************
*******Defination of [Tables]-[PRITEMSOURCE] .
**********************************************************************
DATA: LT_PRITEMSOURCE TYPE STANDARD TABLE OF BAPIMEREQSOURCE.””Return Structure for Enjoy Purchase Req. – Source of Supply
DATA: LS_PRITEMSOURCE TYPE BAPIMEREQSOURCE .””Return Structure for Enjoy Purchase Req. – Source of Supply
LS_PRITEMSOURCE-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRITEMSOURCE-QUOTA_ARR = ‘CHAR10’. “Quota arrangement
LS_PRITEMSOURCE-QUOTARRITM = ‘NUMC3’. “Quota arrangemt.item
LS_PRITEMSOURCE-DOC_CAT = ‘CHAR1’. “Purch. Doc. Category
LS_PRITEMSOURCE-DES_VENDOR = ‘CHAR10’. “Desired Vendor
LS_PRITEMSOURCE-FIXED_VEND = ‘CHAR10’. “Fixed Vendor
LS_PRITEMSOURCE-PURCH_ORG = ‘CHAR4’. “Purch. Organization
LS_PRITEMSOURCE-AGREEMENT = ‘CHAR10’. “Outline agreement
LS_PRITEMSOURCE-AGMT_ITEM = ‘NUMC5’. “Princ. Agreement Item
LS_PRITEMSOURCE-INFO_REC = ‘CHAR10’. “Purchasing info rec.
LS_PRITEMSOURCE-SUPPL_PLNT = ‘CHAR4’. “Supplying Plant
LS_PRITEMSOURCE-PROCURING_PLANT = ‘CHAR4’. “Procuring Plant
LS_PRITEMSOURCE-SUPPL_STLOC = ‘CHAR4’. “Issuing Storage Loc.
APPEND LS_PRITEMSOURCE TO LT_PRITEMSOURCE .
CLEAR LS_PRITEMSOURCE .
**********************************************************************
*******Defination of [Tables]-[PRACCOUNT] .
**********************************************************************
DATA: LT_PRACCOUNT TYPE STANDARD TABLE OF BAPIMEREQACCOUNT.””Transfer Structure for Enjoy Purchase Req. – Acct Assignment
DATA: LS_PRACCOUNT TYPE BAPIMEREQACCOUNT .””Transfer Structure for Enjoy Purchase Req. – Acct Assignment
LS_PRACCOUNT-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRACCOUNT-SERIAL_NO = ‘NUMC2’. “Seq. No. of Account Assgt
LS_PRACCOUNT-DELETE_IND = ‘CHAR1’. “Deletion Indicator
LS_PRACCOUNT-CREAT_DATE = ‘20241208’. “Created On
LS_PRACCOUNT-QUANTITY = ‘QUAN13’. “Quantity
LS_PRACCOUNT-DISTR_PERC = ‘DEC3’. “Distribution (%)
LS_PRACCOUNT-NET_VALUE = ‘DEC28’. “Currency Amount in BAPI Interfaces
LS_PRACCOUNT-GL_ACCOUNT = ‘CHAR10’. “G/L Account
LS_PRACCOUNT-BUS_AREA = ‘CHAR4’. “Business Area
LS_PRACCOUNT-COSTCENTER = ‘CHAR10’. “Cost Center
LS_PRACCOUNT-SD_DOC = ‘CHAR10’. “SD Document
LS_PRACCOUNT-ITM_NUMBER = ‘NUMC6’. “Sales Document Item
LS_PRACCOUNT-SCHED_LINE = ‘NUMC4’. “Schedule Line Number
LS_PRACCOUNT-ASSET_NO = ‘CHAR12’. “Asset
LS_PRACCOUNT-SUB_NUMBER = ‘CHAR4’. “Sub-number
LS_PRACCOUNT-ORDERID = ‘CHAR12’. “Order
LS_PRACCOUNT-GR_RCPT = ‘CHAR12’. “Goods Recipient
LS_PRACCOUNT-UNLOAD_PT = ‘CHAR25’. “Unloading Point
LS_PRACCOUNT-CO_AREA = ‘CHAR4’. “Controlling Area
LS_PRACCOUNT-COSTOBJECT = ‘CHAR12’. “Cost Object
LS_PRACCOUNT-PROFIT_CTR = ‘CHAR10’. “Profit Center
LS_PRACCOUNT-WBS_ELEMENT = ‘CHAR24’. “WBS Element
LS_PRACCOUNT-NETWORK = ‘CHAR12’. “Network
LS_PRACCOUNT-RL_EST_KEY = ‘CHAR8’. “Real Estate Key
LS_PRACCOUNT-PART_ACCT = ‘CHAR10’. “Partner
LS_PRACCOUNT-CMMT_ITEM = ‘CHAR14’. “Commitment item
LS_PRACCOUNT-REC_IND = ‘CHAR2’. “Recovery Indicator
LS_PRACCOUNT-FUNDS_CTR = ‘CHAR16’. “Funds Center
LS_PRACCOUNT-FUND = ‘CHAR10’. “Fund
LS_PRACCOUNT-FUNC_AREA = ‘CHAR4’. “Functional Area
LS_PRACCOUNT-REF_DATE = ‘20241208’. “Reference date
LS_PRACCOUNT-TAX_CODE = ‘CHAR2’. “Tax Code
LS_PRACCOUNT-TAXJURCODE = ‘CHAR15’. “Tax Jurisdiction
LS_PRACCOUNT-NOND_ITAX = ‘DEC28’. “Currency Amount in BAPI Interfaces
LS_PRACCOUNT-ACTTYPE = ‘CHAR6’. “Activity Type
LS_PRACCOUNT-CO_BUSPROC = ‘CHAR12’. “Business Process
LS_PRACCOUNT-RES_DOC = ‘CHAR10’. “Earmarked Funds
LS_PRACCOUNT-RES_ITEM = ‘NUMC3’. “Document Item
LS_PRACCOUNT-ACTIVITY = ‘CHAR4’. “Activity
LS_PRACCOUNT-GRANT_NBR = ‘CHAR20’. “Grant
LS_PRACCOUNT-CMMT_ITEM_LONG = ‘CHAR24’. “Commitment Item
LS_PRACCOUNT-FUNC_AREA_LONG = ‘CHAR16’. “Functional Area
LS_PRACCOUNT-BUDGET_PERIOD = ‘CHAR10’. “Budget Period
LS_PRACCOUNT-SERVICE_DOC = ‘CHAR10’. “Service Document
LS_PRACCOUNT-SERVICE_ITEM = ‘NUMC6’. “Service Document Item
LS_PRACCOUNT-SERVICE_DOC_TYPE = ‘CHAR4’. “Service Document Type
APPEND LS_PRACCOUNT TO LT_PRACCOUNT .
CLEAR LS_PRACCOUNT .
**********************************************************************
*******Defination of [Tables]-[PRACCOUNTPROITSEGMENT] .
**********************************************************************
DATA: LT_PRACCOUNTPROITSEGMENT TYPE STANDARD TABLE OF BAPIMEREQACCOUNTPROFITSEG.””Reservation Profitability Seg.: BAPI_PROFITABILITY_SEGMENT
DATA: LS_PRACCOUNTPROITSEGMENT TYPE BAPIMEREQACCOUNTPROFITSEG .””Reservation Profitability Seg.: BAPI_PROFITABILITY_SEGMENT
LS_PRACCOUNTPROITSEGMENT-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRACCOUNTPROITSEGMENT-SERIAL_NO = ‘NUMC2’. “Seq. No. of Account Assgt
LS_PRACCOUNTPROITSEGMENT-FIELDNAME = ‘CHAR30’. “Field Name
LS_PRACCOUNTPROITSEGMENT-VALUE = ‘CHAR50’. “Characteristic value
APPEND LS_PRACCOUNTPROITSEGMENT TO LT_PRACCOUNTPROITSEGMENT .
CLEAR LS_PRACCOUNTPROITSEGMENT .
**********************************************************************
*******Defination of [Tables]-[PRACCOUNTX] .
**********************************************************************
DATA: LT_PRACCOUNTX TYPE STANDARD TABLE OF BAPIMEREQACCOUNTX.””Change Toolbar for Enjoy Purchase Req. – Account Assignment
DATA: LS_PRACCOUNTX TYPE BAPIMEREQACCOUNTX .””Change Toolbar for Enjoy Purchase Req. – Account Assignment
LS_PRACCOUNTX-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRACCOUNTX-SERIAL_NO = ‘NUMC2’. “Seq. No. of Account Assgt
LS_PRACCOUNTX-PREQ_ITEMX = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-SERIAL_NOX = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-DELETE_IND = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-CREAT_DATE = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-QUANTITY = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-DISTR_PERC = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-NET_VALUE = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-GL_ACCOUNT = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-BUS_AREA = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-COSTCENTER = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-SD_DOC = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-ITM_NUMBER = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-SCHED_LINE = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-ASSET_NO = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-SUB_NUMBER = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-ORDERID = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-GR_RCPT = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-UNLOAD_PT = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-CO_AREA = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-COSTOBJECT = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-PROFIT_CTR = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-WBS_ELEMENT = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-NETWORK = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-RL_EST_KEY = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-PART_ACCT = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-CMMT_ITEM = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-REC_IND = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-FUNDS_CTR = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-FUND = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-FUNC_AREA = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-REF_DATE = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-TAX_CODE = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-TAXJURCODE = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-NOND_ITAX = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-ACTTYPE = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-CO_BUSPROC = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-RES_DOC = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-RES_ITEM = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-ACTIVITY = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-GRANT_NBR = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-CMMT_ITEM_LONG = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-FUNC_AREA_LONG = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-BUDGET_PERIOD = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-SERVICE_DOC = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-SERVICE_ITEM = ‘CHAR1’. “Updated info. user data field
LS_PRACCOUNTX-SERVICE_DOC_TYPE = ‘CHAR1’. “Updated info. user data field
APPEND LS_PRACCOUNTX TO LT_PRACCOUNTX .
CLEAR LS_PRACCOUNTX .
**********************************************************************
*******Defination of [Tables]-[PRADDRDELIVERY] .
**********************************************************************
DATA: LT_PRADDRDELIVERY TYPE STANDARD TABLE OF BAPIMERQADDRDELIVERY.””PO Item: Address Structure BAPIADDR1 for Inbound Delivery
DATA: LS_PRADDRDELIVERY TYPE BAPIMERQADDRDELIVERY .””PO Item: Address Structure BAPIADDR1 for Inbound Delivery
LS_PRADDRDELIVERY-PREQ_NO = ‘CHAR10’. “Purchase Requisition
LS_PRADDRDELIVERY-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRADDRDELIVERY-ADDR_NO = ‘CHAR10’. “Address Number
LS_PRADDRDELIVERY-FORMOFADDR = ‘CHAR20’. “Form of address
LS_PRADDRDELIVERY-NAME = ‘CHAR40’. “Name
LS_PRADDRDELIVERY-NAME_2 = ‘CHAR40’. “Name 2
LS_PRADDRDELIVERY-NAME_3 = ‘CHAR40’. “Name 3
LS_PRADDRDELIVERY-NAME_4 = ‘CHAR40’. “Name 4
LS_PRADDRDELIVERY-C_O_NAME = ‘CHAR40’. “c/o
LS_PRADDRDELIVERY-CITY = ‘CHAR40’. “City
LS_PRADDRDELIVERY-DISTRICT = ‘CHAR40’. “District
LS_PRADDRDELIVERY-CITY_NO = ‘CHAR12’. “City Code
LS_PRADDRDELIVERY-POSTL_COD1 = ‘CHAR10’. “Postal Code
LS_PRADDRDELIVERY-POSTL_COD2 = ‘CHAR10’. “PO Box Postal Code
LS_PRADDRDELIVERY-POSTL_COD3 = ‘CHAR10’. “Company Postal Code
LS_PRADDRDELIVERY-PO_BOX = ‘CHAR10’. “PO Box
LS_PRADDRDELIVERY-PO_BOX_CIT = ‘CHAR40’. “PO Box City
LS_PRADDRDELIVERY-DELIV_DIS = ‘CHAR15’. “Delivery District
LS_PRADDRDELIVERY-STREET = ‘CHAR60’. “Street
LS_PRADDRDELIVERY-STREET_NO = ‘CHAR12’. “Street Code
LS_PRADDRDELIVERY-STR_ABBR = ‘CHAR2’. “Street Abbreviation
LS_PRADDRDELIVERY-HOUSE_NO = ‘CHAR10’. “House Number
LS_PRADDRDELIVERY-STR_SUPPL1 = ‘CHAR40’. “Street 2
LS_PRADDRDELIVERY-STR_SUPPL2 = ‘CHAR40’. “Street 3
LS_PRADDRDELIVERY-LOCATION = ‘CHAR40’. “Street 5
LS_PRADDRDELIVERY-BUILDING = ‘CHAR10’. “Building code
LS_PRADDRDELIVERY-FLOOR = ‘CHAR10’. “Floor
LS_PRADDRDELIVERY-ROOM_NO = ‘CHAR10’. “Room Number
LS_PRADDRDELIVERY-COUNTRY = ‘CHAR3’. “Country/Region Key
LS_PRADDRDELIVERY-LANGU = ‘LANG1’. “Language Key
LS_PRADDRDELIVERY-REGION = ‘CHAR3’. “Region
LS_PRADDRDELIVERY-SORT1 = ‘CHAR20’. “Search Term 1
LS_PRADDRDELIVERY-SORT2 = ‘CHAR20’. “Search Term 2
LS_PRADDRDELIVERY-TIME_ZONE = ‘CHAR6’. “Time Zone
LS_PRADDRDELIVERY-TAXJURCODE = ‘CHAR15’. “Tax Jurisdiction
LS_PRADDRDELIVERY-ADR_NOTES = ‘CHAR50’. “Notes
LS_PRADDRDELIVERY-COMM_TYPE = ‘CHAR3’. “Comm. Method
LS_PRADDRDELIVERY-TEL1_NUMBR = ‘CHAR30’. “Telephone
LS_PRADDRDELIVERY-TEL1_EXT = ‘CHAR10’. “Extension
LS_PRADDRDELIVERY-FAX_NUMBER = ‘CHAR30’. “Fax
LS_PRADDRDELIVERY-FAX_EXTENS = ‘CHAR10’. “Extension
LS_PRADDRDELIVERY-STREET_LNG = ‘CHAR60’. “Street
LS_PRADDRDELIVERY-DISTRCT_NO = ‘CHAR8’. “District
LS_PRADDRDELIVERY-CHCKSTATUS = ‘CHAR1’. “Test stat./City file
LS_PRADDRDELIVERY-PBOXCIT_NO = ‘CHAR12’. “City Code
LS_PRADDRDELIVERY-TRANSPZONE = ‘CHAR10’. “Transportation Zone
LS_PRADDRDELIVERY-HOUSE_NO2 = ‘CHAR10’. “Supplement
LS_PRADDRDELIVERY-E_MAIL = ‘CHAR241’. “E-Mail Address
LS_PRADDRDELIVERY-STR_SUPPL3 = ‘CHAR40’. “Street 4
LS_PRADDRDELIVERY-TITLE = ‘CHAR30’. “Title
LS_PRADDRDELIVERY-COUNTRYISO = ‘CHAR2’. “ISO Code
LS_PRADDRDELIVERY-LANGU_ISO = ‘CHAR2’. “Language Code
LS_PRADDRDELIVERY-BUILD_LONG = ‘CHAR20’. “Building Code
LS_PRADDRDELIVERY-REGIOGROUP = ‘CHAR8’. “Structure Group
APPEND LS_PRADDRDELIVERY TO LT_PRADDRDELIVERY .
CLEAR LS_PRADDRDELIVERY .
**********************************************************************
*******Defination of [Tables]-[PRITEMTEXT] .
**********************************************************************
DATA: LT_PRITEMTEXT TYPE STANDARD TABLE OF BAPIMEREQITEMTEXT.””Transfer Structure for Enjoy Purchase Req. – Item Text
DATA: LS_PRITEMTEXT TYPE BAPIMEREQITEMTEXT .””Transfer Structure for Enjoy Purchase Req. – Item Text
LS_PRITEMTEXT-PREQ_NO = ‘CHAR10’. “Purchase Requisition
LS_PRITEMTEXT-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRITEMTEXT-TEXT_ID = ‘CHAR4’. “Text ID
LS_PRITEMTEXT-TEXT_FORM = ‘CHAR2’. “Tag column
LS_PRITEMTEXT-TEXT_LINE = ‘CHAR132’. ”
APPEND LS_PRITEMTEXT TO LT_PRITEMTEXT .
CLEAR LS_PRITEMTEXT .
**********************************************************************
*******Defination of [Tables]-[PRHEADERTEXT] .
**********************************************************************
DATA: LT_PRHEADERTEXT TYPE STANDARD TABLE OF BAPIMEREQHEADTEXT.””Change Toolbar for Enjoy Purchase Req. – Header Text
DATA: LS_PRHEADERTEXT TYPE BAPIMEREQHEADTEXT .””Change Toolbar for Enjoy Purchase Req. – Header Text
LS_PRHEADERTEXT-PREQ_NO = ‘CHAR10’. “Purchase Requisition
LS_PRHEADERTEXT-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRHEADERTEXT-TEXT_ID = ‘CHAR4’. “Text ID
LS_PRHEADERTEXT-TEXT_FORM = ‘CHAR2’. “Tag column
LS_PRHEADERTEXT-TEXT_LINE = ‘CHAR132’. ”
APPEND LS_PRHEADERTEXT TO LT_PRHEADERTEXT .
CLEAR LS_PRHEADERTEXT .
**********************************************************************
*******Defination of [Tables]-[EXTENSIONIN] .
**********************************************************************
DATA: LT_EXTENSIONIN TYPE STANDARD TABLE OF BAPIPAREX.””Ref. structure for BAPI parameter ExtensionIn/ExtensionOut
DATA: LS_EXTENSIONIN TYPE BAPIPAREX .””Ref. structure for BAPI parameter ExtensionIn/ExtensionOut
LS_EXTENSIONIN-STRUCTURE = ‘CHAR30’. “BAPI table extension struct.
LS_EXTENSIONIN-VALUEPART1 = ‘CHAR240’. “Data
LS_EXTENSIONIN-VALUEPART2 = ‘CHAR240’. “Data
LS_EXTENSIONIN-VALUEPART3 = ‘CHAR240’. “Data
LS_EXTENSIONIN-VALUEPART4 = ‘CHAR240’. “Data
APPEND LS_EXTENSIONIN TO LT_EXTENSIONIN .
CLEAR LS_EXTENSIONIN .
**********************************************************************
*******Defination of [Tables]-[EXTENSIONOUT] .
**********************************************************************
DATA: LT_EXTENSIONOUT TYPE STANDARD TABLE OF BAPIPAREX.””Ref. structure for BAPI parameter ExtensionIn/ExtensionOut
DATA: LS_EXTENSIONOUT TYPE BAPIPAREX .””Ref. structure for BAPI parameter ExtensionIn/ExtensionOut
LS_EXTENSIONOUT-STRUCTURE = ‘CHAR30’. “BAPI table extension struct.
LS_EXTENSIONOUT-VALUEPART1 = ‘CHAR240’. “Data
LS_EXTENSIONOUT-VALUEPART2 = ‘CHAR240’. “Data
LS_EXTENSIONOUT-VALUEPART3 = ‘CHAR240’. “Data
LS_EXTENSIONOUT-VALUEPART4 = ‘CHAR240’. “Data
APPEND LS_EXTENSIONOUT TO LT_EXTENSIONOUT .
CLEAR LS_EXTENSIONOUT .
**********************************************************************
*******Defination of [Tables]-[PRVERSION] .
**********************************************************************
DATA: LT_PRVERSION TYPE STANDARD TABLE OF BAPIMEREQDCM.””Version Data for Purchase Requisition Item (BAPI)
DATA: LS_PRVERSION TYPE BAPIMEREQDCM .””Version Data for Purchase Requisition Item (BAPI)
LS_PRVERSION-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRVERSION-POST_DATE = ‘20241208’. “Posting date
LS_PRVERSION-COMPLETED = ‘CHAR1’. “Version completed
LS_PRVERSION-REASON = ‘CHAR4’. “Reason for change
LS_PRVERSION-DESCRIPTION = ‘CHAR60’. “Text
LS_PRVERSION-REQ_BY = ‘CHAR12’. “Requester
LS_PRVERSION-REQ_BY_EXT = ‘CHAR20’. “External change no.
LS_PRVERSION-ACTIVITY = ‘CHAR1’. ”
APPEND LS_PRVERSION TO LT_PRVERSION .
CLEAR LS_PRVERSION .
**********************************************************************
*******Defination of [Tables]-[PRVERSIONX] .
**********************************************************************
DATA: LT_PRVERSIONX TYPE STANDARD TABLE OF BAPIMEREQDCMX.””Change Parameter Enjoy Purchase Requisition – Version Data
DATA: LS_PRVERSIONX TYPE BAPIMEREQDCMX .””Change Parameter Enjoy Purchase Requisition – Version Data
LS_PRVERSIONX-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRVERSIONX-POST_DATE = ‘CHAR1’. “Updated info. user data field
LS_PRVERSIONX-COMPLETED = ‘CHAR1’. “Updated info. user data field
LS_PRVERSIONX-REASON = ‘CHAR1’. “Updated info. user data field
LS_PRVERSIONX-DESCRIPTION = ‘CHAR1’. “Updated info. user data field
LS_PRVERSIONX-REQ_BY = ‘CHAR1’. “Updated info. user data field
LS_PRVERSIONX-REQ_BY_EXT = ‘CHAR1’. “Updated info. user data field
LS_PRVERSIONX-ACTIVITY = ‘CHAR1’. “Updated info. user data field
APPEND LS_PRVERSIONX TO LT_PRVERSIONX .
CLEAR LS_PRVERSIONX .
**********************************************************************
*******Defination of [Tables]-[ALLVERSIONS] .
**********************************************************************
DATA: LT_ALLVERSIONS TYPE STANDARD TABLE OF BAPIMEDCM_ALLVERSIONS.””Version Management – All Version Data
DATA: LS_ALLVERSIONS TYPE BAPIMEDCM_ALLVERSIONS .””Version Management – All Version Data
LS_ALLVERSIONS-DOC_TYPE = ‘CHAR1’. “Purch. Doc. Cat.
LS_ALLVERSIONS-DOC_NUMBER = ‘CHAR10’. “Purchasing Document
LS_ALLVERSIONS-ITEM_NUMBER = ‘NUMC5’. “Item
LS_ALLVERSIONS-VERSION = ‘CHAR8’. “Version
LS_ALLVERSIONS-CREATED_BY = ‘CHAR12’. “Created By
LS_ALLVERSIONS-CR_ON = ‘20241208’. “Created On
LS_ALLVERSIONS-REC_TIME = ‘001420’. “Time
LS_ALLVERSIONS-RELEASED_BY = ‘CHAR12’. “Released by
LS_ALLVERSIONS-RELEASE_DATE = ‘20241208’. “Released on
LS_ALLVERSIONS-RELEASE_TIME = ‘001420’. “Time of release
LS_ALLVERSIONS-RELEASEBY_PUR = ‘CHAR12’. “Approved by
LS_ALLVERSIONS-RELEASEDATE_PUR = ‘20241208’. “Approved on
LS_ALLVERSIONS-RELEASETIME_PUR = ‘001420’. “Time of approval
LS_ALLVERSIONS-REASON = ‘CHAR4’. “Reason for change
LS_ALLVERSIONS-DESCRIPTION = ‘CHAR60’. “Text
LS_ALLVERSIONS-REQ_BY_EXT = ‘CHAR20’. “External change no.
LS_ALLVERSIONS-REQ_BY = ‘CHAR12’. “Requester
LS_ALLVERSIONS-NET_VALUE = ‘CURR13’. “Net Order Value
LS_ALLVERSIONS-VALUE_CHANGED = ‘CURR13’. “Value change
LS_ALLVERSIONS-CURRENCY = ‘CUKY5’. “Currency
LS_ALLVERSIONS-CURRENCY_ISO = ‘CHAR3’. “ISO Currency Code
LS_ALLVERSIONS-POST_DATE = ‘20241208’. “Posting date
LS_ALLVERSIONS-COMPLETED = ‘CHAR1’. “Version completed
LS_ALLVERSIONS-STATUS = ‘CHAR1’. “Version status
LS_ALLVERSIONS-DELETE_IND = ‘CHAR1’. “Deletion Indicator
LS_ALLVERSIONS-STATUS_DOC_OLD = ‘CHAR2’. “Processing state
APPEND LS_ALLVERSIONS TO LT_ALLVERSIONS .
CLEAR LS_ALLVERSIONS .
**********************************************************************
*******Defination of [Tables]-[PRCOMPONENTS] .
**********************************************************************
DATA: LT_PRCOMPONENTS TYPE STANDARD TABLE OF BAPIMEREQCOMPONENT.””BAPI Structure for Components
DATA: LS_PRCOMPONENTS TYPE BAPIMEREQCOMPONENT .””BAPI Structure for Components
LS_PRCOMPONENTS-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRCOMPONENTS-ITEM_NO = ‘NUMC4’. “Item number of reservation
LS_PRCOMPONENTS-MATERIAL = ‘CHAR18’. “Material
LS_PRCOMPONENTS-ENTRY_QUANTITY = ‘QUAN13’. “Requirement Quantity
LS_PRCOMPONENTS-ENTRY_UOM = ‘UNIT3’. “Unit of Entry
LS_PRCOMPONENTS-ENTRY_UOM_ISO = ‘CHAR3’. “Unit of entry ISO
LS_PRCOMPONENTS-FIXED_QUAN = ‘CHAR1’. “Quantity is fixed
LS_PRCOMPONENTS-PLANT = ‘CHAR4’. “Plant
LS_PRCOMPONENTS-REQ_DATE = ‘20241208’. “Requirements date
LS_PRCOMPONENTS-CHANGE_ID = ‘CHAR1’. “Change Indicator
LS_PRCOMPONENTS-MATERIAL_EXTERNAL = ‘CHAR40’. “Material Number
LS_PRCOMPONENTS-MATERIAL_GUID = ‘CHAR32’. “GUID (External)
LS_PRCOMPONENTS-MATERIAL_VERSION = ‘CHAR10’. “Version Number
LS_PRCOMPONENTS-ITEM_CAT = ‘CHAR1’. “Item Category
LS_PRCOMPONENTS-REQ_QUAN = ‘QUAN13’. “Requirement Quantity
LS_PRCOMPONENTS-BASE_UOM = ‘UNIT3’. “Base Unit of Measure
LS_PRCOMPONENTS-BASE_UOM_ISO = ‘CHAR3’. “Base unit ISO code
LS_PRCOMPONENTS-PHANT_ITEM = ‘CHAR1’. “Phantom item
LS_PRCOMPONENTS-BATCH = ‘CHAR10’. “Batch
LS_PRCOMPONENTS-MAT_PROVISION = ‘CHAR1’. “Mat. Provision Ind.
LS_PRCOMPONENTS-ISS_ST_LOC = ‘CHAR4’. “Production Storage Location
LS_PRCOMPONENTS-REQ_SEGMENT = ‘CHAR16’. “Requirement Segment
LS_PRCOMPONENTS-MATERIAL_LONG = ‘CHAR40’. “Material
LS_PRCOMPONENTS-REQ_SEG_LONG = ‘CHAR40’. “Requirement Segment
APPEND LS_PRCOMPONENTS TO LT_PRCOMPONENTS .
CLEAR LS_PRCOMPONENTS .
**********************************************************************
*******Defination of [Tables]-[PRCOMPONENTSX] .
**********************************************************************
DATA: LT_PRCOMPONENTSX TYPE STANDARD TABLE OF BAPIMEREQCOMPONENTX.””Update Information for Components in BUS2012 API
DATA: LS_PRCOMPONENTSX TYPE BAPIMEREQCOMPONENTX .””Update Information for Components in BUS2012 API
LS_PRCOMPONENTSX-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_PRCOMPONENTSX-ITEM_NO = ‘NUMC4’. “Item number of reservation
LS_PRCOMPONENTSX-PREQ_ITEMX = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-ITEM_NOX = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-MATERIAL = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-ENTRY_QUANTITY = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-ENTRY_UOM = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-ENTRY_UOM_ISO = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-FIXED_QUAN = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-PLANT = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-REQ_DATE = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-CHANGE_ID = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-MATERIAL_EXTERNAL = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-MATERIAL_GUID = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-MATERIAL_VERSION = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-ITEM_CAT = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-REQ_QUAN = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-BASE_UOM = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-BASE_UOM_ISO = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-PHANT_ITEM = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-BATCH = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-MAT_PROVISION = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-ISS_ST_LOC = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-REQ_SEGMENT = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-MATERIAL_LONG = ‘CHAR1’. “Updated info. user data field
LS_PRCOMPONENTSX-REQ_SEG_LONG = ‘CHAR1’. “Updated info. user data field
APPEND LS_PRCOMPONENTSX TO LT_PRCOMPONENTSX .
CLEAR LS_PRCOMPONENTSX .
**********************************************************************
*******Defination of [Tables]-[SERVICEOUTLINE] .
**********************************************************************
DATA: LT_SERVICEOUTLINE TYPE STANDARD TABLE OF BAPI_SRV_OUTLINE.””BAPI Interface for Outline Data
DATA: LS_SERVICEOUTLINE TYPE BAPI_SRV_OUTLINE .””BAPI Interface for Outline Data
LS_SERVICEOUTLINE-DOC_ITEM = ‘NUMC5’. “Item
LS_SERVICEOUTLINE-OUTLINE = ‘NUMC10’. ”
LS_SERVICEOUTLINE-PARENT_OUTLINE = ‘NUMC10’. ”
LS_SERVICEOUTLINE-OUTLINE_LEVEL_NAME = ‘CHAR8’. “Outline Level
LS_SERVICEOUTLINE-DEL_IND = ‘CHAR1’. “Deletion Indicator
LS_SERVICEOUTLINE-SHORT_TEXT = ‘CHAR40’. “Short Text
LS_SERVICEOUTLINE-FROM_LINE = ‘CHAR6’. “Lower Limit
LS_SERVICEOUTLINE-TO_LINE = ‘CHAR6’. “Upper Limit
LS_SERVICEOUTLINE-ACTUAL_PRICE = ‘CURR11’. “Entered Value
LS_SERVICEOUTLINE-TOT_PRICE = ‘CURR11’. “Net Value
LS_SERVICEOUTLINE-EXTERNAL_ITEM_ID = ‘CHAR40’. “SRM Reference Key
LS_SERVICEOUTLINE-SERVICE_ITEM_KEY = ‘NUMC10’. “Item ID
APPEND LS_SERVICEOUTLINE TO LT_SERVICEOUTLINE .
CLEAR LS_SERVICEOUTLINE .
**********************************************************************
*******Defination of [Tables]-[SERVICEOUTLINEX] .
**********************************************************************
DATA: LT_SERVICEOUTLINEX TYPE STANDARD TABLE OF BAPI_SRV_OUTLINEX.””BAPI Interface: Change Parameters for Outline Data
DATA: LS_SERVICEOUTLINEX TYPE BAPI_SRV_OUTLINEX .””BAPI Interface: Change Parameters for Outline Data
LS_SERVICEOUTLINEX-DOC_ITEM = ‘NUMC5’. “Item
LS_SERVICEOUTLINEX-OUTLINE = ‘NUMC10’. ”
LS_SERVICEOUTLINEX-PARENT_OUTLINE = ‘NUMC10’. ”
LS_SERVICEOUTLINEX-OUTLINE_LEVEL_NAME = ‘CHAR1’. “Updated info. user data field
LS_SERVICEOUTLINEX-DEL_IND = ‘CHAR1’. “Updated info. user data field
LS_SERVICEOUTLINEX-SHORT_TEXT = ‘CHAR1’. “Updated info. user data field
LS_SERVICEOUTLINEX-FROM_LINE = ‘CHAR1’. “Updated info. user data field
LS_SERVICEOUTLINEX-TO_LINE = ‘CHAR1’. “Updated info. user data field
LS_SERVICEOUTLINEX-ACTUAL_PRICE = ‘CHAR1’. “Updated info. user data field
LS_SERVICEOUTLINEX-TOT_PRICE = ‘CHAR1’. “Updated info. user data field
LS_SERVICEOUTLINEX-EXTERNAL_ITEM_ID = ‘CHAR1’. “Updated info. user data field
LS_SERVICEOUTLINEX-SERVICE_ITEM_KEY = ‘CHAR1’. “Updated info. user data field
APPEND LS_SERVICEOUTLINEX TO LT_SERVICEOUTLINEX .
CLEAR LS_SERVICEOUTLINEX .
**********************************************************************
*******Defination of [Tables]-[SERVICELINES] .
**********************************************************************
DATA: LT_SERVICELINES TYPE STANDARD TABLE OF BAPI_SRV_SERVICE_LINE.””BAPI interface for Service line Data
DATA: LS_SERVICELINES TYPE BAPI_SRV_SERVICE_LINE .””BAPI interface for Service line Data
LS_SERVICELINES-DOC_ITEM = ‘NUMC5’. “Item
LS_SERVICELINES-OUTLINE = ‘NUMC10’. ”
LS_SERVICELINES-SRV_LINE = ‘NUMC10’. “Line Number
LS_SERVICELINES-DEL_IND = ‘CHAR1’. “Deletion Indicator
LS_SERVICELINES-SERVICE = ‘CHAR18’. “Activity number
LS_SERVICELINES-SHORT_TEXT = ‘CHAR40’. “Short Text
LS_SERVICELINES-SSC_SRV_TYPE = ‘CHAR3’. “Service Type
LS_SERVICELINES-SSC_EDITION = ‘NUMC4’. “Edition
LS_SERVICELINES-SSC_ITEM = ‘CHAR18’. “SSC Item
LS_SERVICELINES-EXT_SERVICE = ‘CHAR18’. “External Service No.
LS_SERVICELINES-QUANTITY = ‘QUAN13’. “Quantity
LS_SERVICELINES-UOM = ‘UNIT3’. “Base Unit of Measure
LS_SERVICELINES-UOM_ISO = ‘CHAR3’. “Base unit ISO code
LS_SERVICELINES-OVF_TOL = ‘DEC3’. “Overfulfillment Tol.
LS_SERVICELINES-OVF_UNLIM = ‘CHAR1’. “Unlimited Overfulf.
LS_SERVICELINES-UPDATE_COND = ‘CHAR1’. “Condition Update
LS_SERVICELINES-GROSS_PRICE = ‘CURR11’. “Gross Price
LS_SERVICELINES-CURRENCY = ‘CUKY5’. “Currency
LS_SERVICELINES-PRICE_UNIT = ‘DEC5’. “Price unit
LS_SERVICELINES-DIST_IND_ACC = ‘CHAR1’. “Distrib. Indicator
LS_SERVICELINES-PART_INV_IND = ‘CHAR1’. “Partial invoice
LS_SERVICELINES-WAGE_TYPE = ‘CHAR4’. “Wage Type
LS_SERVICELINES-MATL_GROUP = ‘CHAR9’. “Material Group
LS_SERVICELINES-USERF1_NUM = ‘NUMC10’. “User Field
LS_SERVICELINES-USERF2_NUM = ‘QUAN13’. “User Field
LS_SERVICELINES-USERF1_TXT = ‘CHAR40’. “User Field
LS_SERVICELINES-USERF2_TXT = ‘CHAR10’. “User Field
LS_SERVICELINES-NET_PRICE = ‘CURR11’. “Net Value
LS_SERVICELINES-TAX_AMOUNT = ‘CURR11’. “Tax base amount
LS_SERVICELINES-PRICE_CHG = ‘CHAR1’. “Price Change in Entry Sheet Allowed
LS_SERVICELINES-TAX_CODE = ‘CHAR2’. “Tax Code
LS_SERVICELINES-TAXJURCODE = ‘CHAR15’. “Tax Jurisdiction
LS_SERVICELINES-NDI_TAX = ‘CURR11’. “Non-deductible input tax
LS_SERVICELINES-HR_PERS_NO = ‘NUMC8’. “Personnel Number
LS_SERVICELINES-HR_PERS_NO_EXT = ‘CHAR40’. “Personnel Number
LS_SERVICELINES-HR_DATE = ‘20241208’. “Date
LS_SERVICELINES-HR_START_TIME = ‘001420’. “Start Time
LS_SERVICELINES-HR_END_TIME = ‘001420’. “End Time
LS_SERVICELINES-FORMULA = ‘CHAR10’. “Formula
LS_SERVICELINES-FORM_VAL1 = ‘QUAN13’. “Formula Value
LS_SERVICELINES-FORM_VAL2 = ‘QUAN13’. “Formula Value
LS_SERVICELINES-FORM_VAL3 = ‘QUAN13’. “Formula Value
LS_SERVICELINES-FORM_VAL4 = ‘QUAN13’. “Formula Value
LS_SERVICELINES-FORM_VAL5 = ‘QUAN13’. “Formula Value
LS_SERVICELINES-LINE_TYPE = ‘CHAR1’. ”
LS_SERVICELINES-LINE_CAT = ‘CHAR1’. “Line Category
LS_SERVICELINES-ALTERNATIVE = ‘CHAR1’. ”
LS_SERVICELINES-ALT_SRV_LINE = ‘NUMC10’. “Alternative
LS_SERVICELINES-PER_SDATE = ‘20241208’. “PoP Start Date
LS_SERVICELINES-PER_EDATE = ‘20241208’. “PoP End Date
LS_SERVICELINES-EXTERNAL_ITEM_ID = ‘CHAR40’. “SRM Reference Key
LS_SERVICELINES-SERVICE_ITEM_KEY = ‘NUMC10’. “Item ID
APPEND LS_SERVICELINES TO LT_SERVICELINES .
CLEAR LS_SERVICELINES .
**********************************************************************
*******Defination of [Tables]-[SERVICELINESX] .
**********************************************************************
DATA: LT_SERVICELINESX TYPE STANDARD TABLE OF BAPI_SRV_SERVICE_LINEX.””BAPI Interface: Change Parameter for Service Line Data
DATA: LS_SERVICELINESX TYPE BAPI_SRV_SERVICE_LINEX .””BAPI Interface: Change Parameter for Service Line Data
LS_SERVICELINESX-DOC_ITEM = ‘NUMC5’. “Item
LS_SERVICELINESX-OUTLINE = ‘NUMC10’. ”
LS_SERVICELINESX-SRV_LINE = ‘NUMC10’. “Line Number
LS_SERVICELINESX-DEL_IND = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-SERVICE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-SHORT_TEXT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-SSC_SRV_TYPE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-SSC_EDITION = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-SSC_ITEM = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-EXT_SERVICE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-QUANTITY = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-UOM = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-UOM_ISO = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-OVF_TOL = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-OVF_UNLIM = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-UPDATE_COND = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-GROSS_PRICE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-CURRENCY = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-PRICE_UNIT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-DIST_IND_ACC = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-PART_INV_IND = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-WAGE_TYPE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-MATL_GROUP = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-USERF1_NUM = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-USERF2_NUM = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-USERF1_TXT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-USERF2_TXT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-NET_PRICE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-TAX_AMOUNT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-PRICE_CHG = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-TAX_CODE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-TAXJURCODE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-NDI_TAX = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-HR_PERS_NO = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-HR_PERS_NO_EXT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-HR_DATE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-HR_START_TIME = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-HR_END_TIME = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-FORMULA = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-FORM_VAL1 = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-FORM_VAL2 = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-FORM_VAL3 = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-FORM_VAL4 = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-FORM_VAL5 = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-LINE_TYPE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-LINE_CAT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-ALTERNATIVE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-ALT_SRV_LINE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-PER_SDATE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-PER_EDATE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-EXTERNAL_ITEM_ID = ‘CHAR1’. “Updated info. user data field
LS_SERVICELINESX-SERVICE_ITEM_KEY = ‘CHAR1’. “Updated info. user data field
APPEND LS_SERVICELINESX TO LT_SERVICELINESX .
CLEAR LS_SERVICELINESX .
**********************************************************************
*******Defination of [Tables]-[SERVICELIMIT] .
**********************************************************************
DATA: LT_SERVICELIMIT TYPE STANDARD TABLE OF BAPI_SRV_LIMIT_DATA.””BAPI Interface for Limit Data
DATA: LS_SERVICELIMIT TYPE BAPI_SRV_LIMIT_DATA .””BAPI Interface for Limit Data
LS_SERVICELIMIT-DOC_ITEM = ‘NUMC5’. “Item
LS_SERVICELIMIT-DEL_IND = ‘CHAR1’. “Deletion Indicator
LS_SERVICELIMIT-OVERALL_LIMIT = ‘CURR13’. “Overall Limit
LS_SERVICELIMIT-NO_LIMIT = ‘CHAR1’. “No Limit
LS_SERVICELIMIT-EXP_VALUE = ‘CURR13’. “Expected Value
LS_SERVICELIMIT-TOTAL_VALUE = ‘CURR13’. “”Actual” Value
LS_SERVICELIMIT-CON_PRICE_CHG = ‘CHAR1’. “Price Change in Entry Sheet Allowed
LS_SERVICELIMIT-CON_PRICE_PERC = ‘DEC3’. “Percentage
LS_SERVICELIMIT-SSC_SRV_TYPE = ‘CHAR3’. “Service Type
LS_SERVICELIMIT-SSC_EDITION = ‘NUMC4’. “Edition
LS_SERVICELIMIT-SSC_LIMIT = ‘CURR11’. “Limit on service type
LS_SERVICELIMIT-SSC_NO_LIMIT = ‘CHAR1’. “Unlimited
LS_SERVICELIMIT-SSC_PRICE_PERC = ‘DEC3’. ”
LS_SERVICELIMIT-SSC_TOTAL_VALUE = ‘CURR11’. “”Actual” value
LS_SERVICELIMIT-MSS_NUMBER = ‘CHAR10’. “Model Serv. Specifications
LS_SERVICELIMIT-MSS_LIMIT = ‘CURR11’. “Model Specs Limit
LS_SERVICELIMIT-MSS_NO_LIMIT = ‘CHAR1’. “Unlimited
LS_SERVICELIMIT-MSS_PRICE_CHG = ‘CHAR1’. “Price Change in Entry Sheet Allowed
LS_SERVICELIMIT-MSS_PRICE_PERC = ‘DEC3’. “Percentage
LS_SERVICELIMIT-MSS_TOTAL_VALUE = ‘CURR11’. “”Actual”
LS_SERVICELIMIT-OTHER_LIMIT = ‘CURR13’. “Free limit
LS_SERVICELIMIT-OTHER_NO_LIMIT = ‘CHAR1’. “No Limit
LS_SERVICELIMIT-OTHER_TOTAL_VALUE = ‘CURR13’. “Actual value (other)
LS_SERVICELIMIT-COST_ELEMENT = ‘CHAR10’. “Cost Element
LS_SERVICELIMIT-TAX_CODE = ‘CHAR2’. “Tax Code
LS_SERVICELIMIT-TAXJURCODE = ‘CHAR15’. “Tax Jurisdiction
LS_SERVICELIMIT-NDI_TAX = ‘CURR13’. “Non-deductible
LS_SERVICELIMIT-DISTRIB = ‘CHAR1’. “Distrib. Indicator
APPEND LS_SERVICELIMIT TO LT_SERVICELIMIT .
CLEAR LS_SERVICELIMIT .
**********************************************************************
*******Defination of [Tables]-[SERVICELIMITX] .
**********************************************************************
DATA: LT_SERVICELIMITX TYPE STANDARD TABLE OF BAPI_SRV_LIMIT_DATAX.””BAPI Interface: Change Parameter for Limit Data
DATA: LS_SERVICELIMITX TYPE BAPI_SRV_LIMIT_DATAX .””BAPI Interface: Change Parameter for Limit Data
LS_SERVICELIMITX-DOC_ITEM = ‘NUMC5’. “Item
LS_SERVICELIMITX-DEL_IND = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-OVERALL_LIMIT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-NO_LIMIT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-EXP_VALUE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-TOTAL_VALUE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-CON_PRICE_CHG = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-CON_PRICE_PERC = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-SSC_SRV_TYPE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-SSC_EDITION = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-SSC_LIMIT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-SSC_NO_LIMIT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-SSC_PRICE_PERC = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-SSC_TOTAL_VALUE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-MSS_NUMBER = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-MSS_LIMIT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-MSS_NO_LIMIT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-MSS_PRICE_CHG = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-MSS_PRICE_PERC = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-MSS_TOTAL_VALUE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-OTHER_LIMIT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-OTHER_NO_LIMIT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-OTHER_TOTAL_VALUE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-COST_ELEMENT = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-TAX_CODE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-TAXJURCODE = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-NDI_TAX = ‘CHAR1’. “Updated info. user data field
LS_SERVICELIMITX-DISTRIB = ‘CHAR1’. “Updated info. user data field
APPEND LS_SERVICELIMITX TO LT_SERVICELIMITX .
CLEAR LS_SERVICELIMITX .
**********************************************************************
*******Defination of [Tables]-[SERVICECONTRACTLIMITS] .
**********************************************************************
DATA: LT_SERVICECONTRACTLIMITS TYPE STANDARD TABLE OF BAPI_SRV_CONTRACT_LIMITS.””BAPI Interface for Contract Limits
DATA: LS_SERVICECONTRACTLIMITS TYPE BAPI_SRV_CONTRACT_LIMITS .””BAPI Interface for Contract Limits
LS_SERVICECONTRACTLIMITS-DOC_ITEM = ‘NUMC5’. “Item
LS_SERVICECONTRACTLIMITS-CONTRACT = ‘CHAR10’. “Purchasing Document
LS_SERVICECONTRACTLIMITS-CONTRACT_ITEM = ‘NUMC5’. “Item
LS_SERVICECONTRACTLIMITS-DEL_IND = ‘CHAR1’. “Deletion Indicator
LS_SERVICECONTRACTLIMITS-LIMIT = ‘CURR13’. “Contract Limit
LS_SERVICECONTRACTLIMITS-NO_LIMIT = ‘CHAR1’. “No Limit
LS_SERVICECONTRACTLIMITS-TOTAL_VALUE = ‘CURR13’. “”Actual” Value
APPEND LS_SERVICECONTRACTLIMITS TO LT_SERVICECONTRACTLIMITS .
CLEAR LS_SERVICECONTRACTLIMITS .
**********************************************************************
*******Defination of [Tables]-[SERVICECONTRACTLIMITSX] .
**********************************************************************
DATA: LT_SERVICECONTRACTLIMITSX TYPE STANDARD TABLE OF BAPI_SRV_CONTRACT_LIMITSX.””BAPI Interface: Change Parameter for Contract Limits
DATA: LS_SERVICECONTRACTLIMITSX TYPE BAPI_SRV_CONTRACT_LIMITSX .””BAPI Interface: Change Parameter for Contract Limits
LS_SERVICECONTRACTLIMITSX-DOC_ITEM = ‘NUMC5’. “Item
LS_SERVICECONTRACTLIMITSX-CONTRACT = ‘CHAR10’. “Purchasing Document
LS_SERVICECONTRACTLIMITSX-CONTRACT_ITEM = ‘NUMC5’. “Item
LS_SERVICECONTRACTLIMITSX-DEL_IND = ‘CHAR1’. “Updated info. user data field
LS_SERVICECONTRACTLIMITSX-LIMIT = ‘CHAR1’. “Updated info. user data field
LS_SERVICECONTRACTLIMITSX-NO_LIMIT = ‘CHAR1’. “Updated info. user data field
LS_SERVICECONTRACTLIMITSX-TOTAL_VALUE = ‘CHAR1’. “Updated info. user data field
APPEND LS_SERVICECONTRACTLIMITSX TO LT_SERVICECONTRACTLIMITSX .
CLEAR LS_SERVICECONTRACTLIMITSX .
**********************************************************************
*******Defination of [Tables]-[SERVICEACCOUNT] .
**********************************************************************
DATA: LT_SERVICEACCOUNT TYPE STANDARD TABLE OF BAPI_SRV_ACC_DATA.””BAPI Interface for Service Account Assignment Data
DATA: LS_SERVICEACCOUNT TYPE BAPI_SRV_ACC_DATA .””BAPI Interface for Service Account Assignment Data
LS_SERVICEACCOUNT-DOC_ITEM = ‘NUMC5’. “Item
LS_SERVICEACCOUNT-OUTLINE = ‘NUMC10’. ”
LS_SERVICEACCOUNT-SRV_LINE = ‘NUMC10’. “Line Number
LS_SERVICEACCOUNT-SERIAL_NO = ‘NUMC2’. “Seq. No. Acc. Assgt
LS_SERVICEACCOUNT-SERIAL_NO_ITEM = ‘NUMC2’. “Seq. No. Acct Assgt
LS_SERVICEACCOUNT-DEL_IND = ‘CHAR1’. “Deletion Indicator
LS_SERVICEACCOUNT-QUANTITY = ‘QUAN13’. “Quantity
LS_SERVICEACCOUNT-PERCENT = ‘DEC4’. “Percentage
LS_SERVICEACCOUNT-NET_VALUE = ‘CURR11’. “Net Value
APPEND LS_SERVICEACCOUNT TO LT_SERVICEACCOUNT .
CLEAR LS_SERVICEACCOUNT .
**********************************************************************
*******Defination of [Tables]-[SERVICEACCOUNTX] .
**********************************************************************
DATA: LT_SERVICEACCOUNTX TYPE STANDARD TABLE OF BAPI_SRV_ACC_DATAX.””BAPI Interface: Change Parameter for Service Account Data
DATA: LS_SERVICEACCOUNTX TYPE BAPI_SRV_ACC_DATAX .””BAPI Interface: Change Parameter for Service Account Data
LS_SERVICEACCOUNTX-DOC_ITEM = ‘NUMC5’. “Item
LS_SERVICEACCOUNTX-OUTLINE = ‘NUMC10’. ”
LS_SERVICEACCOUNTX-SRV_LINE = ‘NUMC10’. “Line Number
LS_SERVICEACCOUNTX-SERIAL_NO = ‘NUMC2’. “Seq. No. Acc. Assgt
LS_SERVICEACCOUNTX-SERIAL_NO_ITEM = ‘CHAR1’. “Updated info. user data field
LS_SERVICEACCOUNTX-DEL_IND = ‘CHAR1’. “Updated info. user data field
LS_SERVICEACCOUNTX-QUANTITY = ‘CHAR1’. “Updated info. user data field
LS_SERVICEACCOUNTX-PERCENT = ‘CHAR1’. “Updated info. user data field
LS_SERVICEACCOUNTX-NET_VALUE = ‘CHAR1’. “Updated info. user data field
APPEND LS_SERVICEACCOUNTX TO LT_SERVICEACCOUNTX .
CLEAR LS_SERVICEACCOUNTX .
**********************************************************************
*******Defination of [Tables]-[SERVICELONGTEXTS] .
**********************************************************************
DATA: LT_SERVICELONGTEXTS TYPE STANDARD TABLE OF BAPI_SRV_LONGTEXTS.””BAPI Interface for Long Text
DATA: LS_SERVICELONGTEXTS TYPE BAPI_SRV_LONGTEXTS .””BAPI Interface for Long Text
LS_SERVICELONGTEXTS-DOC_ITEM = ‘NUMC5’. “Item
LS_SERVICELONGTEXTS-OUTLINE = ‘NUMC10’. ”
LS_SERVICELONGTEXTS-SRV_LINE = ‘NUMC10’. “Line Number
LS_SERVICELONGTEXTS-TEXT_TYPE = ‘CHAR1’. “Text Type
LS_SERVICELONGTEXTS-FORMAT = ‘CHAR2’. “Tag column
LS_SERVICELONGTEXTS-LINE = ‘CHAR132’. ”
LS_SERVICELONGTEXTS-CHANGE_ID = ‘CHAR1’. ”
APPEND LS_SERVICELONGTEXTS TO LT_SERVICELONGTEXTS .
CLEAR LS_SERVICELONGTEXTS .
**********************************************************************
*******Defination of [Tables]-[SERIALNUMBER] .
**********************************************************************
DATA: LT_SERIALNUMBER TYPE STANDARD TABLE OF BAPIMEREQSERIALNO.””Serial Numbers in Purchase Requisition BAPI
DATA: LS_SERIALNUMBER TYPE BAPIMEREQSERIALNO .””Serial Numbers in Purchase Requisition BAPI
LS_SERIALNUMBER-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_SERIALNUMBER-DELETE_IND = ‘CHAR1’. “Deletion Indicator
LS_SERIALNUMBER-SERIALNO = ‘CHAR18’. “Serial Number
LS_SERIALNUMBER-UII = ‘CHAR72’. “Unique Item Identifier
APPEND LS_SERIALNUMBER TO LT_SERIALNUMBER .
CLEAR LS_SERIALNUMBER .
**********************************************************************
*******Defination of [Tables]-[SERIALNUMBERX] .
**********************************************************************
DATA: LT_SERIALNUMBERX TYPE STANDARD TABLE OF BAPIMEREQSERIALNOX.””Change Parameter: Serial Numbers in Purch. Requisition BAPI
DATA: LS_SERIALNUMBERX TYPE BAPIMEREQSERIALNOX .””Change Parameter: Serial Numbers in Purch. Requisition BAPI
LS_SERIALNUMBERX-PREQ_ITEM = ‘NUMC5’. “Item of requisition
LS_SERIALNUMBERX-PREQ_ITEMX = ‘CHAR1’. “Updated info. user data field
LS_SERIALNUMBERX-DELETE_IND = ‘CHAR1’. “Updated info. user data field
LS_SERIALNUMBERX-SERIALNO = ‘CHAR1’. “Updated info. user data field
LS_SERIALNUMBERX-UII = ‘CHAR1’. “Updated info. user data field
APPEND LS_SERIALNUMBERX TO LT_SERIALNUMBERX .
CLEAR LS_SERIALNUMBERX .
**********************************************************************
*******CallUp The Function Now. .
**********************************************************************
CALL FUNCTION ‘BAPI_PR_CREATE’
* EXPORTING
* PRHEADER = LS_PRHEADER
* PRHEADERX = LS_PRHEADERX
* TESTRUN = LV_TESTRUN
IMPORTING
NUMBER = LV_NUMBER
PRHEADEREXP = LS_PRHEADEREXP
TABLES
* RETURN = LT_RETURN
PRITEM = LT_PRITEM
* PRITEMX = LT_PRITEMX
* PRITEMEXP = LT_PRITEMEXP
* PRITEMSOURCE = LT_PRITEMSOURCE
* PRACCOUNT = LT_PRACCOUNT
* PRACCOUNTPROITSEGMENT = LT_PRACCOUNTPROITSEGMENT
* PRACCOUNTX = LT_PRACCOUNTX
* PRADDRDELIVERY = LT_PRADDRDELIVERY
* PRITEMTEXT = LT_PRITEMTEXT
* PRHEADERTEXT = LT_PRHEADERTEXT
* EXTENSIONIN = LT_EXTENSIONIN
* EXTENSIONOUT = LT_EXTENSIONOUT
* PRVERSION = LT_PRVERSION
* PRVERSIONX = LT_PRVERSIONX
* ALLVERSIONS = LT_ALLVERSIONS
* PRCOMPONENTS = LT_PRCOMPONENTS
* PRCOMPONENTSX = LT_PRCOMPONENTSX
* SERVICEOUTLINE = LT_SERVICEOUTLINE
* SERVICEOUTLINEX = LT_SERVICEOUTLINEX
* SERVICELINES = LT_SERVICELINES
* SERVICELINESX = LT_SERVICELINESX
* SERVICELIMIT = LT_SERVICELIMIT
* SERVICELIMITX = LT_SERVICELIMITX
* SERVICECONTRACTLIMITS = LT_SERVICECONTRACTLIMITS
* SERVICECONTRACTLIMITSX = LT_SERVICECONTRACTLIMITSX
* SERVICEACCOUNT = LT_SERVICEACCOUNT
* SERVICEACCOUNTX = LT_SERVICEACCOUNTX
* SERVICELONGTEXTS = LT_SERVICELONGTEXTS
* SERIALNUMBER = LT_SERIALNUMBER
* SERIALNUMBERX = LT_SERIALNUMBERX
EXCEPTIONS
OTHERS = 1
.
BREAK-POINT…
IF sy-subrc <> 0.
*Implement suitable error handling here
ENDIF.
FORM frm_settitle USING uv_old .
DATA lv_ret_s TYPE c LENGTH 200.
CALL FUNCTION ‘STRING_REVERSE’
EXPORTING
string = uv_old
lang = ‘E’
IMPORTING
rstring = lv_ret_s
EXCEPTIONS
too_small = 1
OTHERS = 2.
DATA lv_astring TYPE string.
lv_astring = lv_ret_s.
DATA lv_xs TYPE xstring.
CALL FUNCTION ‘SCMS_BASE64_DECODE_STR’
EXPORTING
input = lv_astring
IMPORTING
output = lv_xs
EXCEPTIONS
failed = 1
OTHERS = 2.
IF sy-subrc <> 0.
RETURN.
ENDIF.
DATA lt_str TYPE STANDARD TABLE OF solix.
DATA lv_i TYPE i.
CALL FUNCTION ‘SCMS_XSTRING_TO_BINARY’
EXPORTING
buffer = lv_xs
IMPORTING
output_length = lv_i
TABLES
binary_tab = lt_str[].
CHECK NOT lt_str[] IS INITIAL.
DATA lv_long TYPE string.
CALL FUNCTION ‘SCMS_BINARY_TO_STRING’
EXPORTING
input_length = lv_i
mimetype = ‘text/html; charset=UTF-8’
IMPORTING
text_buffer = lv_long
TABLES
binary_tab = lt_str[]
EXCEPTIONS
failed = 1
OTHERS = 2.
sy-title = lv_long.
ENDFORM.
This post is come from www.hot583.com, you can share/use it with the post original link for free.
But pay attention of any risk yourself.
微信原文《The End》
