|
Batch input
Hola tengo este batch input:
report ZDAGO_VL02
no standard page heading line-size 255.
include bdcrecx1.
parameters: dataset(132) lower case.
*** DO NOT CHANGE - the generated data section - DO NOT CHANGE ***
*
* If it is nessesary to change the data section use the rules:
* 1.) Each definition of a field exists of two lines
* 2.) The first line shows exactly the comment
* '* data element: ' followed with the data element
* which describes the field.
* If you don't have a data element use the
* comment without a data element name
* 3.) The second line shows the fieldname of the
* structure, the fieldname must consist of
* a fieldname and optional the character '_' and
* three numbers and the field length in brackets
* 4.) Each field must be type C.
*
*** Generated data section with specific formatting - DO NOT CHANGE ***
data: begin of record,
* data element: VBELN_VL
VBELN_001(025),
* data element: BLDAT
BLDAT_002(010),
* data element: WADAK
WADAT_003(010),
* data element: WAUHR
WAUHR_004(008),
* data element: GSGEW
BTGEW_005(019),
* data element: GEWEI
GEWEI_006(003),
* data element: ANZPK
ANZPK_007(005),
* data element: BLDAT
BLDAT_008(010),
* data element: WADAK
WADAT_009(010),
* data element: WAUHR
WAUHR_010(008),
* data element: GSGEW
BTGEW_011(019),
* data element: GEWEI
GEWEI_012(003),
* data element: ANZPK
ANZPK_013(005),
end of record.
*** End generated data section ***
start-of-selection.
perform open_dataset using dataset.
perform open_group.
do.
read dataset dataset into record.
if sy-subrc <> 0. exit. endif.
perform bdc_dynpro using 'SAPMV50A' '4004'.
perform bdc_field using 'BDC_CURSOR'
'LIKP-VBELN'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'LIKP-VBELN'
record-VBELN_001.
perform bdc_dynpro using 'SAPMV50A' '1000'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'LIKP-BLDAT'
record-BLDAT_002.
perform bdc_field using 'BDC_CURSOR'
'LIKP-ANZPK'.
perform bdc_field using 'LIKP-WADAT'
record-WADAT_003.
perform bdc_field using 'LIKP-WAUHR'
record-WAUHR_004.
perform bdc_field using 'LIKP-BTGEW'
record-BTGEW_005.
perform bdc_field using 'LIKP-GEWEI'
record-GEWEI_006.
perform bdc_field using 'LIKP-ANZPK'
record-ANZPK_007.
perform bdc_dynpro using 'SAPMV50A' '1000'.
perform bdc_field using 'BDC_OKCODE'
'=SICH_T'.
perform bdc_field using 'LIKP-BLDAT'
record-BLDAT_008.
perform bdc_field using 'BDC_CURSOR'
'LIPS-MATNR(02)'.
perform bdc_field using 'LIKP-WADAT'
record-WADAT_009.
perform bdc_field using 'LIKP-WAUHR'
record-WAUHR_010.
perform bdc_field using 'LIKP-BTGEW'
record-BTGEW_011.
perform bdc_field using 'LIKP-GEWEI'
record-GEWEI_012.
perform bdc_field using 'LIKP-ANZPK'
record-ANZPK_013.
perform bdc_transaction using 'VL02N'.
enddo.
perform close_group.
perform close_dataset using dataset.
Debo hacer un programa que mediante 2 parametros:
p_guia like likp-vbeln.
p_bultos like likp-anzpk.
modifique esos valores usando esa transaccion antrior de batch input, que hice cree un nuevo programa agregue esos parámetros y copie ese mismo programa, no se si ma falta algo mas porque no me ejecuta bien, alguien me podria ayudar por favor?...
|