Create purchase order batch to program with BAPI

  Pager FUNCTION 'bapi_po_create1'    ExportingPOHeader=POHeader Poheaderx=Poheaderx*Poaddrvendor =TestRun ='X'*Memory_uncomplete =*Memory_complete =*Poexpimpheader =*Poexpimpheaderx =*VERSIONS =*no_messaging =*no_message_req =*no_authority =No_price_from_po ='X'   ImportingExppurchaseorder=EPO*Expheader =*Exppoexpimpheader =   TABLESreturn=return Poitem=poitem[] Poitemx=poitemx[]*poaddrdelivery =Poschedule =poschedule[] Poschedulex=poschedulex[] Poaccount= poaccount[]"CRQ000000016532*poaccountprofitsegment =Poaccountx =poaccountx[]*Pocondheader =*Pocondheaderx =Pocond =pocond[] Pocondx=pocondx[].*polimits =*pocontractlimits =*poservices =*posrvaccessvalues =*Poservicestext =*Extensionin =*extensionout =*Poexpimpitem =*poexpimpitemx =*Potextheader =*Potextitem =*allversions =*Popartner =*pocomponents =*pocomponentsx =*poshipping =*POSHIPPINGX =*Poshippingexp =  LOOP  atReturn intoWa_returnWHERETypeEQ 'E' ORTypeEQ 'A'. Lw_flag='X'. EXIT. Endloop. IFLw_flag <>'X'. Pager FUNCTION'Bapi_transaction_commit'. Gt_so-status =Icon_green_light. Gt_so-type ='S'. Gt_so-data_ck ='Simulation Import succeeded'. MODIFYGt_so[] fromgt_so Transporting status type Data_ckWHERESEL =P_sel. GS_SUCC-poheader =Lw_poheader. GS_SUCC-poheaderx =Lw_poheaderx. GS_SUCC-poitem[] =gt_poitem[]. GS_SUCC-poitemx[] =gt_poitemx[]. GS_SUCC-poschedule[] =gt_poschedule[]. GS_SUCC-poschedulex[] =gt_poschedulex[]. GS_SUCC-pocond[] =gt_pocond[]. GS_SUCC-pocondx[] =gt_pocondx[]. GS_SUCC-poaccount[] = gt_poaccount[]."CRQ000000016532Gs_succ-poaccountx[] =gt_poaccountx[]. GS_SUCC-sel =P_sel. APPENDGs_succ toGT_SUCC. ELSE. Pager FUNCTION'Bapi_transaction_rollback'.

Create purchase order batch to program with BAPI