How can i closed production verion wise in c223

Question

Welcome, ANILKUMAR BEHERA   
Your Control Panel 
Your Reward Points 
Your Questions 
Expert Forums » ABAP Development » ABAP Objects
Thread: how can i get production version value(verid) for luck through bdc.
Your question is not answered.
Mark as answered.
  You are watching this thread. To stop watching this thread, click "Stop Watching Thread" below. (Watch Options)
This watch sends emails by default. If you don't want to receive emails on changes in this thread, go to the watch options, un-mark the "Email" checkbox next to the thread's entry and click "Update". 
Reply to this Thread   Search Forum    Stop Watching Thread    Back to Thread List 
  Replies: 0 - Pages: 1  Threads: Previous  
ANILKUMAR BEHERA  
Posts: 20
Registered: 10/13/07
Forum Points: 0 
   how can i get production version value(verid) for luck through bdc.  
Posted: Feb 14, 2008 1:32 PM     Edit      E-mail this message      Reply 
HI..
i have one requirement..that in c223 tcode while i luck the production version through BDC in my report program as i given bellow...i upload mat.no , plant, production version and 1(for luck)...
req:: i want while i given production version for particlular plant and material no...that production version should be luck....
so in standard tcode c223 how can i get value to compair it with my input production version value then i will close that...
program:::
report ZC2232
no standard page heading line-size 255.
*include bdcrecx1.
Tables : mkal.
data : nodata value '/' .
data : CTUMODE type c value 'E'.
DATA : CUPDATE TYPE C VALUE 'L'.
DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
messages of call transaction
DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
data: begin of HEADER OCCURS 0,
data element: MATNR
MATNR_001(018),
data element: WERKS_D
WERKS_002(004),
data element: PLNNR
PLNNR_003(008),
data element: CP_STTAG
STTAG_003(010),
data element: ENTRY_ACT
ENTRY_ACT_005(011),
data element: PLNAL
PLNAL_004(001),
data element: FLG_SEL
FLG_SEL_01_006(001),
data element: PLANTEXT
STLAL_004(002),
DATUV_005(010),
WERKS_008(004),
data element: PLN_VERWE
ktext_005(001),
data element: PLNST
DELKZ_005(001),
data element: LOSGRVON
LOSVN_011(017),
data element: LOSGRBIS
LOSBS_012(017),
data element: PLNME
PLNME_013(003),
data element: PLNME
stlal_014(002),
end of HEADER.
data : begin of it_header occurs 0,
matnr like marc-matnr,
werks like marc-matnr,
verid like mkal-verid,
mksp like mkal-mksp,
end of it_header.
data : exnum(40) type c,
exnum1(40) type c,
cnt type I,
CN(2) TYPE C,
c1 type c value '(',
c2 type c value ')'.
start-of-selection.
parameters: p_file like rlgrap-filename.
at selection-screen on value-request for p_file.
call function 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
importing
file_name = p_file.
start-of-selection.
call function 'WS_UPLOAD'
exporting
CODEPAGE = ' '
filename = p_file
filetype = 'DAT'
HEADLEN = ' '
LINE_EXIT = ' '
TRUNCLEN = ' '
USER_FORM = ' '
USER_PROG = ' '
DAT_D_FORMAT = ' '
IMPORTING
FILELENGTH =
tables
data_tab = it_header
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
NO_AUTHORITY = 10
OTHERS = 11
if sy-subrc 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
DELETE it_header WHERE MATNR IS INITIAL.
LOOP AT it_header.
*start-of-selection.
*perform open_group.
perform bdc_dynpro using 'SAPLCMFV' '1000'.
perform bdc_field using 'BDC_OKCODE'
'=ENTE'.
perform bdc_field using 'BDC_CURSOR'
'MKAL-WERKS'.
perform bdc_field using 'MKAL-WERKS'
it_header-werks.
perform bdc_field using 'MKAL-MATNR'
it_header-matnr.
perform bdc_dynpro using 'SAPLCMFV' '1000'.
perform bdc_field using 'BDC_OKCODE'
'=PICK'.
perform bdc_field using 'MKAL-WERKS'
it_header-werks.
perform bdc_field using 'MKAL-MATNR'
it_header-matnr.
*>>>>>>>>>>>>>>>>>>>>here what logic can i write****
clear cnt.
do 15 times.
cnt = cnt + 1 .
CN = CNT.
exnum = 'MKAL_EXPAND-VERID'.
concatenate exnum c1 cn c2 into exnum1.
*perform bdc_field using 'BDC_CURSOR'
exnum1.
GET PARAMETER ID 'VER' FIELD EXNUM1.
CALL TRANSACTION 'C223' AND SKIP FIRST SCREEN.
if ( it_header-verid = EXNUM1 ).
exit.
endif.
enddo.
****************************************************end***>>>>>>>>
perform bdc_field using 'BDC_CURSOR'
exnum1.
perform bdc_dynpro using 'SAPLCMFV' '2000'.
perform bdc_field using 'BDC_CURSOR'
'MKAL_EXPAND-PLNTY'.
perform bdc_field using 'BDC_OKCODE'
'=PRFG'.
perform bdc_dynpro using 'SAPMSSY0' '0120'.
perform bdc_field using 'BDC_OKCODE'
'=RW'.
perform bdc_dynpro using 'SAPLCMFV' '2000'.
perform bdc_field using 'BDC_OKCODE'
'/ECANC'.
perform bdc_field using 'BDC_CURSOR'
'MKAL_EXPAND-VERID'.
perform bdc_dynpro using 'SAPLCMFV' '1000'.
perform bdc_field using 'BDC_OKCODE'
'=SAVE'.
perform bdc_field using 'BDC_CURSOR'
'MKAL-WERKS'.
perform bdc_field using 'MKAL-WERKS'
it_header-werks.
perform bdc_field using 'MKAL-MATNR'
it_header-matnr.
perform bdc_dynpro using 'SAPLCMFV' '1000'.
perform bdc_field using 'BDC_OKCODE'
'/EBACK'.
perform bdc_transaction using 'C223'.
endloop.
*perform close_group.
*& Form bdc_dynpro
text
-->P_0161 text
-->P_0162 text
form bdc_dynpro USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
endform. " bdc_dynpro
*& Form bdc_transaction
text
-->P_0351 text
form bdc_transaction USING TCODE.
call transaction 'C223' using bdcdata
mode CTUMODE
update CUPDATE
messages into messtab.
if sy-subrc 0.
message e000(zmm01) with
'Check your input data'.
endif.
endform. " bdc_transaction
*& Form bdc_field
text
-->P_0346 text
-->P_0347 text
form bdc_field USING FNAM FVAL.
if fval nodata.
CLEAR BDCDATA.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.
endif.
endform. " bdc_field
Pages: 1    Back to Thread List 
Threads: Previous  
  New content since your last visit 
  Updated content since your last visit

Answer 1

macbook pro, 500gb ,version 10.9.5 ,
all files in open in Quiketime media player  how can i closed..whenever i open quicktime all files are open..i have tried to closed by force quit..but whenever i again open quicktime files are still open..
You have basically formed a "poor" habit—i.e., closing apps and assuming they will close any/all open activity windows. The latest versions of Mac OS X now, by default, "remembers" what windows are open when an app is closed. You have three options here:
1) Get in the habit of closing active windows before closing an app to prevent them from re-opening automatically the next time the app is opened.
2) Hold down the "Option" key when selecting the "Quit" menu option (keyboard shortcut "Option-Command-Q") with system preference option in the default mode.
3) Change the default system preference to automatically close active windows in the same manner that older Mac OS X versions did by checking the "Close windows when quitting an app" in the Syeyem Preferences "General" menu.
NOTE: This setting works as a "software switch" for your application's "Quit" menu option. I.e., in the "Unchecked" mode the Option-Quit menu option and keyboard shortcut (Option-Command-Q) tells the system to forget active windows when the app is next opened while the "Checked" option mode tells the system to remember the active windows when using the Option-Quit menu or keyboard shortcut options.
Your choice for settings and/or method of closing apps.