View source for SAP PP ABAP

==Obtener datos de transaccion CS12 Lista de Materiales==
 <nowiki>FORM f_submit_rcs12001 USING i_matnr
                             i_werks
                             i_datuv
                             i_emeng .
 CLEAR rc29l.
 rc29l-matnr = i_matnr.
 rc29l-werks = i_werks.
 rc29l-datuv = i_datuv.
 rc29l-emeng = i_emeng.
 rc29l-capid = 'BEST'.
 IF NOT rc29l-valst IS INITIAL.                            "HGA246532
   IF rc29l-dsplp IS INITIAL.                              "YHG140241
     rc29l-dsplp = 'SAPCSMLVMP01      '.                   "YHG140241
   ENDIF.                                                  "YHG140241
   IF rc29l-prntp IS INITIAL.                              "YHG140241
     rc29l-prntp = 'SAPCSMLVMP01      '.                   "YHG140241
   ENDIF.                                                  "YHG140241
 ENDIF.
 MOVE: 'x'  TO csbomex-submf,
       'CA' TO csbomex-aclas.
 EXPORT csbomex TO MEMORY ID 'CSNN_BOMEX'.
 SUBMIT rcs12001
  WITH pm_mtnrv INCL rc29l-matnr
  WITH pm_werks INCL rc29l-werks
  WITH pm_stlal INCL rc29l-stlal
*           WITH PM_STLAN INCL RC29L-STLAN
  WITH pm_capid INCL rc29l-capid
  WITH pm_datuv INCL rc29l-datuv
*            WITH PM_TECHS INCL ANR_TECHS                      "HGA084505
  WITH pm_aennr INCL rc29l-aennr                           "HGA084505
*del        WITH PM_GBRAZ INCL RC29L-GBRAZ                    "YHG140241
  WITH pm_upsaz INCL rc29l-upsaz
*           solange Parameters nicht mit Nachkommastellen definiert
*           werden koennen, muss PM_HEMNG statt PM_EMENG uebergeben
*           werden.
*del        WITH PM_EMENG INCL RC29L-EMENG                    "YHG035807
  WITH pm_emeng INCL rc29l-emeng                           "YHG046403
*del        WITH PM_HEMNG INCL RC29L-EMENG          "YHG035807"YHG046403
  WITH pm_ausch INCL rc29l-ausss
  WITH pm_alvsa INCL rc29l-valst                           "HGA246532
  WITH pm_dsprf INCL rc29l-dsplp                           "YHG140241
  WITH pm_prprf INCL rc29l-prntp                           "YHG140241
  WITH pm_ltext INCL rc29l-ltext
  WITH pm_dspco INCL rc29l-dspco                           "YHG079407
  WITH pm_altvo INCL rc29l-altvo
  WITH pm_brems INCL rc29l-brems
  WITH pm_bagrp INCL rc29l-bagrp
  WITH pm_postp INCL rc29l-postp
  WITH pm_erskz INCL rc29l-erskz
  WITH pm_erssl INCL rc29l-erssl
  WITH pm_beikz INCL rc29l-beikz
  WITH pm_bessl INCL rc29l-bessl
  WITH pm_sanko INCL rc29l-sanko
  WITH pm_sanfe INCL rc29l-sanfe
  WITH pm_sanka INCL rc29l-sanka
  WITH pm_sanin INCL rc29l-sanin
  WITH pm_sanvs INCL rc29l-sanvs
  WITH pm_rvrel INCL rc29l-rvrel
  WITH pm_schgt INCL rc29l-schgt
  WITH pm_stkkz INCL rc29l-stkkz                           "YHG035283
  WITH pm_stpst INCL rc29l-maxst                           "HGD246532
  AND RETURN.
 IMPORT stb     FROM MEMORY ID 'CSNN_STB'.
ENDFORM.                    "f_submit_rcs12001</nowiki>