topic Re: reg select-options in Application Development and Automation Discussions

reg select-options

Former Member — Fri, 10 Aug 2007 12:34:31 GMT

HI All,

Can anyone of you tell me wat is wrong in the below code.

TABLES:

EKKO, "Purchasing Document Header

EKPO, "Purchasing Doc Item

MARA, "Material

MARC, "Material at plant

USR02, "User address data

T024E, "Purchasing Organization

EORD. "Purchasing Source List

tables : kna1.

----

GLOBAL DATA

----

DATA: " Work fields definition

W_SPONO LIKE RSPOTYPE-RQNUMBER,

W_MAIL_SUBJECT(50) TYPE C,

W_MAIL_REPT(1),

W_TIME LIKE SY-UZEIT.

DATA W_CNTRFLG.

DATA :W_HEADFLG.

DATA W_NETWR(16).

Counters

DATA: W_COUNT_READ(6) TYPE N, "Records Read

W_COUNT_SKIP(6) TYPE N, "Records Skipped

W_COUNT_NEW(6) TYPE N, "New Records to create

W_COUNT_PO(6) TYPE N, "Number of PO records

W_COUNT_CALL_TXN_ERR(6) TYPE N, " # of CALL TXN errors

W_COUNT_CALL_TXN(6) TYPE N, "Total # Call Trans

W_COUNT_BDC_RECORDS(6) TYPE N, "Total # BDC Trans

W_COUNT_LINES(2) TYPE N, "number lines on T/O

W_COUNT_SESS_TOT(4) TYPE N. "Total session count

General Data

DATA: W_REQ_DATE_N TYPE D, "Req date converted to DAT

W_REQ_DATE(10) TYPE C, "Req date converted to CHAR

W_DONE_FILE(85) TYPE C, "Output done file name

W_MESSAGE(60) TYPE C, "Work message field

W_PAGE TYPE C VALUE '1', "report type: 1=audit, 2=error

W_QTY LIKE EBAN-MENGE, "Qty converted to numeric field

W_TAX_CODE LIKE EKPO-MWSKZ, "Tax Code

W_RETCODE(2) TYPE N,

W_MAXLNS TYPE N.

DATA:W_CONTRACT_PREV LIKE EKKO-KONNR.

CALL TRANSACTION fields

DATA: W_TRANSACTION LIKE TSTC-TCODE. "Transaction to call

Constants

CONSTANTS: C_PO_TYPE LIKE EKKO-BSART VALUE 'NB',

C_PLANT LIKE EKPO-WERKS VALUE '5050', "V01

C_PO_CREATE LIKE TSTC-TCODE VALUE 'ME21',

C_X(1) TYPE C VALUE 'X',

C_TRANS(10) TYPE C VALUE '.transfer',

C_2300 LIKE EKPO-WERKS VALUE '2300'. "V02

CONSTANTS:C_CREATEDPO(15) TYPE C VALUE 'Created PO',

C_CALLTRAX(20) TYPE C VALUE 'Call Txn error'.

----

Record Layout *

----

Input File Layout

DATA: BEGIN OF R_INPUT1,

REC_TYPE(32) TYPE C, "Record Type

VERSION(4) TYPE C, "Version

EBELN(20) TYPE C, "Order Number

EMPTY1(20) TYPE C, "Empty Field

ORDER_LINE(5) TYPE C, "Order Line Number

EMPTY2(4) TYPE C, "Empty Field

BSART(4) TYPE C, "PO type

EKORG(4) TYPE C, "Purchasing Org

EKGRP(3) TYPE C, "Purchasing Group

EMPTY3(4) TYPE C, "Empty Field

VENDOR(10) TYPE C, "Vendor

MATNR(18) TYPE C, "Material

MENGE(17) TYPE C, "Purch Order Quantity

REQ_DATE(8) TYPE N, "Requested Date (yyyymmdd)

WERKS(4) TYPE C, "Plant

EMPTY4(4) TYPE C, "Empty Field

CONTRACT(10) TYPE C, "Contract Number

CONTR_ITEM(5) TYPE C, "Contract Item Number

EMPTY5(10) TYPE C, "Empty Field

LGORT(4) TYPE C, "Storage Location

END OF R_INPUT1.

----

Internal Table Definition With Structure Included *

----

DATA: IT_INPUT LIKE R_INPUT1 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF IT_MARC OCCURS 0,

MATNR LIKE MARC-MATNR,

WERKS LIKE MARC-WERKS,

EKGRP LIKE MARC-EKGRP,

END OF IT_MARC.

JIT Purchase Order Table

DATA: BEGIN OF IT_JIT_PO OCCURS 10.

INCLUDE STRUCTURE R_INPUT1.

DATA: TAXCODE(2) TYPE C. "V01

DATA: END OF IT_JIT_PO.

DATA:IT_JIT_PO1 LIKE TABLE OF IT_JIT_PO WITH HEADER LINE.

Messages Table (errors & success)

DATA: BEGIN OF IT_MSGTAB OCCURS 10.

DATA: RKEY(2) TYPE C. "Record type key

INCLUDE STRUCTURE R_INPUT1.

DATA: MSG(60) TYPE C.

DATA: NAME1 LIKE LFA1-NAME1. "Vendor Name

DATA: PONUMBER LIKE EKPO-EBELN.

DATA: BCODEDESC LIKE T024-EKNAM.

DATA: NETWR LIKE EKPO-NETWR. "Total PO $ Value

DATA: END OF IT_MSGTAB.

Temp Table to save data for one PO at a time

DATA: BEGIN OF IT_PODAT OCCURS 10.

INCLUDE STRUCTURE R_INPUT1.

DATA: END OF IT_PODAT.

DATA: IT_MSGTAB_E LIKE IT_MSGTAB OCCURS 0 WITH HEADER LINE.

DATA: IT_MSGTAB_O LIKE IT_MSGTAB OCCURS 0 WITH HEADER LINE.

DATA: IT_MSGTAB_ERR LIKE IT_MSGTAB OCCURS 0 WITH HEADER LINE.

For F4 at Event Name

DATA: BEGIN OF LV_EVT OCCURS 0,

EVENTID LIKE BTCUEV-EVENTID,

END OF LV_EVT.

To print selections

DATA: BEGIN OF SELECTIONS OCCURS 0,

Z(2) TYPE C,

LINE LIKE RALDB-INFOLINE,

END OF SELECTIONS.

DATA: BEGIN OF T_MESSAGE OCCURS 10. "#EC *

INCLUDE STRUCTURE BDCMSGCOLL.

DATA: END OF T_MESSAGE.

DATA: BEGIN OF IT_NETWR OCCURS 0,

NETWR LIKE EKPO-NETWR,

END OF IT_NETWR.

DATA: BEGIN OF IT_BDC OCCURS 0.

INCLUDE STRUCTURE BDCDATA.

DATA: END OF IT_BDC.

DATA: W_MATNR LIKE MARC-MATNR,

W_LNUM(6) TYPE N,

INT_MATNR LIKE MARA-MATNR, "Internal format

W_TFILE(60).

DATA: BEGIN OF IT_RECEIVERS OCCURS 0.

INCLUDE STRUCTURE SOOS1.

DATA: END OF IT_RECEIVERS.

----

SELECTION SCREEN

----

SELECT-OPTIONS: S_EKORG FOR EKKO-EKORG OBLIGATORY

NO INTERVALS

DEFAULT '9000'.

SELECT-OPTIONS: S_WERKS FOR MARC-WERKS OBLIGATORY ."NO INTERVALS. "V01

SELECTION-SCREEN SKIP 1.

PARAMETERS:

P_INPUT(80) TYPE C "Input file from DRP

DEFAULT '/sapdaemon/I2/spp/in/daily/po_upload_spk21.dat'

OBLIGATORY LOWER CASE,

P_OUTPUT(80) TYPE C "Error/warning error records

DEFAULT '/sapdaemon/I2/spp/in/daily/po_upload_spk21.err'

LOWER CASE.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN COMMENT 01(53) TEXT-005.

SELECTION-SCREEN SKIP 1.

PARAMETERS:

P_DONEFL AS CHECKBOX DEFAULT 'X', "Create .done file?

P_UPDT AS CHECKBOX DEFAULT ' '. "Simulation Run only?(x=yes)

SELECTION-SCREEN SKIP 1.

PARAMETERS:

P_MODE(1) TYPE C DEFAULT 'N'

OBLIGATORY,

P_UPDATE(1) TYPE C DEFAULT 'S'

OBLIGATORY,

P_BDCERR LIKE APQI-GROUPID DEFAULT 'ZMXU510',

P_USERID LIKE APQI-USERID DEFAULT SY-UNAME

MATCHCODE OBJECT USER_ADDR.

PARAMETERS : P_MAXLNS(3) TYPE N DEFAULT 10 OBLIGATORY.

select-options: S_MAXLNS for kna1-kunnr.

SELECTION-SCREEN COMMENT 42(40) TEXT-011.

PARAMETERS:

P_STOP(6) TYPE N. "MAX # of records to read from input file

SELECTION-SCREEN COMMENT 42(40) TEXT-003.

SELECTION-SCREEN SKIP 1.

PARAMETERS:

P_REPTD AS CHECKBOX DEFAULT 'X',

P_REPTP AS CHECKBOX DEFAULT ' ',

P_SPOOL AS CHECKBOX DEFAULT ' ',

P_EMAIL AS CHECKBOX DEFAULT ' '.

SELECTION-SCREEN SKIP 1.

PARAMETERS:

P_EVENT AS CHECKBOX DEFAULT 'X',

P_EVNAM LIKE BTCUEV-EVENTID DEFAULT 'Z_ITWO_START_ZI2X14'.

SELECTION-SCREEN SKIP 1.

PARAMETERS: P_TRANS AS CHECKBOX DEFAULT 'X',

P_TFILE(80) TYPE C DEFAULT

'/sapdaemon/I2/spp/in/daily/zi2spk21.trig'(099)

LOWER CASE.

Re: reg select-options

Former Member — Fri, 10 Aug 2007 12:39:00 GMT

Hi Rajesh

what is the error u r getting

regds,

kiran.M

Re: reg select-options

Former Member — Fri, 10 Aug 2007 12:48:39 GMT

Hi Rajesh,

Can u tell me which error is occured and wht problem r u facing ..?

Then i will suggest u as per my abap funda.

Regards

Gurprit

Re: reg select-options

former_member480923 — Fri, 10 Aug 2007 13:03:41 GMT

Please take care of the Comments in the Selection Screen: if u remove them then the program can be activated with out any error.

Hope that Helps

Anirban M.

Re: reg select-options

Former Member — Fri, 10 Aug 2007 13:15:08 GMT

Hi Anirban,

The program is getting generated when the selection-screen comment is commented,but i need the selection-screen comment also.Could suggest me anything?

regards

Rajesh.

Re: reg select-options

Former Member — Fri, 10 Aug 2007 13:16:24 GMT

hi kiran,

The erroe which i am getting is that the selection-screen is not be generated.Could you suggest anything?

regards

Rajesh.

Re: reg select-options

Former Member — Fri, 10 Aug 2007 13:17:14 GMT

hi Guruprit,

The error which i am getting is that the selection-screen is not be generated.Could you suggest anything?

regards

Rajesh.

Re: reg select-options

Former Member — Fri, 10 Aug 2007 13:22:00 GMT

Hi,

You have writen the Selsection screen comments, but that is over writing some of the parameters, so it is not genarating the selection screen, you need use the / for every comment on the selection screen, so that it will print in the next line

Here is the changed code

TABLES:

EKKO, "Purchasing Document Header

EKPO, "Purchasing Doc Item

MARA, "Material

MARC, "Material at plant

USR02, "User address data

T024E, "Purchasing Organization

EORD. "Purchasing Source List

tables : kna1.

----

GLOBAL DATA

----

DATA: " Work fields definition

W_SPONO LIKE RSPOTYPE-RQNUMBER,

W_MAIL_SUBJECT(50) TYPE C,

W_MAIL_REPT(1),

W_TIME LIKE SY-UZEIT.

DATA W_CNTRFLG.

DATA :W_HEADFLG.

DATA W_NETWR(16).

Counters

DATA: W_COUNT_READ(6) TYPE N, "Records Read

W_COUNT_SKIP(6) TYPE N, "Records Skipped

W_COUNT_NEW(6) TYPE N, "New Records to create

W_COUNT_PO(6) TYPE N, "Number of PO records

W_COUNT_CALL_TXN_ERR(6) TYPE N, " # of CALL TXN errors

W_COUNT_CALL_TXN(6) TYPE N, "Total # Call Trans

W_COUNT_BDC_RECORDS(6) TYPE N, "Total # BDC Trans

W_COUNT_LINES(2) TYPE N, "number lines on T/O

W_COUNT_SESS_TOT(4) TYPE N. "Total session count

General Data

DATA: W_REQ_DATE_N TYPE D, "Req date converted to DAT

W_REQ_DATE(10) TYPE C, "Req date converted to CHAR

W_DONE_FILE(85) TYPE C, "Output done file name

W_MESSAGE(60) TYPE C, "Work message field

W_PAGE TYPE C VALUE '1', "report type: 1=audit, 2=error

W_QTY LIKE EBAN-MENGE, "Qty converted to numeric field

W_TAX_CODE LIKE EKPO-MWSKZ, "Tax Code

W_RETCODE(2) TYPE N,

W_MAXLNS TYPE N.

DATA:W_CONTRACT_PREV LIKE EKKO-KONNR.

CALL TRANSACTION fields

DATA: W_TRANSACTION LIKE TSTC-TCODE. "Transaction to call

Constants

CONSTANTS: C_PO_TYPE LIKE EKKO-BSART VALUE 'NB',

C_PLANT LIKE EKPO-WERKS VALUE '5050', "V01

C_PO_CREATE LIKE TSTC-TCODE VALUE 'ME21',

C_X(1) TYPE C VALUE 'X',

C_TRANS(10) TYPE C VALUE '.transfer',

C_2300 LIKE EKPO-WERKS VALUE '2300'. "V02

CONSTANTS:C_CREATEDPO(15) TYPE C VALUE 'Created PO',

C_CALLTRAX(20) TYPE C VALUE 'Call Txn error'.

----

Record Layout *

----

Input File Layout

DATA: BEGIN OF R_INPUT1,

REC_TYPE(32) TYPE C, "Record Type

VERSION(4) TYPE C, "Version

EBELN(20) TYPE C, "Order Number

EMPTY1(20) TYPE C, "Empty Field

ORDER_LINE(5) TYPE C, "Order Line Number

EMPTY2(4) TYPE C, "Empty Field

BSART(4) TYPE C, "PO type

EKORG(4) TYPE C, "Purchasing Org

EKGRP(3) TYPE C, "Purchasing Group

EMPTY3(4) TYPE C, "Empty Field

VENDOR(10) TYPE C, "Vendor

MATNR(18) TYPE C, "Material

MENGE(17) TYPE C, "Purch Order Quantity

REQ_DATE(8) TYPE N, "Requested Date (yyyymmdd)

WERKS(4) TYPE C, "Plant

EMPTY4(4) TYPE C, "Empty Field

CONTRACT(10) TYPE C, "Contract Number

CONTR_ITEM(5) TYPE C, "Contract Item Number

EMPTY5(10) TYPE C, "Empty Field

LGORT(4) TYPE C, "Storage Location

END OF R_INPUT1.

----

Internal Table Definition With Structure Included *

----

DATA: IT_INPUT LIKE R_INPUT1 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF IT_MARC OCCURS 0,

MATNR LIKE MARC-MATNR,

WERKS LIKE MARC-WERKS,

EKGRP LIKE MARC-EKGRP,

END OF IT_MARC.

JIT Purchase Order Table

DATA: BEGIN OF IT_JIT_PO OCCURS 10.

INCLUDE STRUCTURE R_INPUT1.

DATA: TAXCODE(2) TYPE C. "V01

DATA: END OF IT_JIT_PO.

DATA:IT_JIT_PO1 LIKE TABLE OF IT_JIT_PO WITH HEADER LINE.

Messages Table (errors & success)

DATA: BEGIN OF IT_MSGTAB OCCURS 10.

DATA: RKEY(2) TYPE C. "Record type key

INCLUDE STRUCTURE R_INPUT1.

DATA: MSG(60) TYPE C.

DATA: NAME1 LIKE LFA1-NAME1. "Vendor Name

DATA: PONUMBER LIKE EKPO-EBELN.

DATA: BCODEDESC LIKE T024-EKNAM.

DATA: NETWR LIKE EKPO-NETWR. "Total PO $ Value

DATA: END OF IT_MSGTAB.

Temp Table to save data for one PO at a time

DATA: BEGIN OF IT_PODAT OCCURS 10.

INCLUDE STRUCTURE R_INPUT1.

DATA: END OF IT_PODAT.

DATA: IT_MSGTAB_E LIKE IT_MSGTAB OCCURS 0 WITH HEADER LINE.

DATA: IT_MSGTAB_O LIKE IT_MSGTAB OCCURS 0 WITH HEADER LINE.

DATA: IT_MSGTAB_ERR LIKE IT_MSGTAB OCCURS 0 WITH HEADER LINE.

For F4 at Event Name

DATA: BEGIN OF LV_EVT OCCURS 0,

EVENTID LIKE BTCUEV-EVENTID,

END OF LV_EVT.

To print selections

DATA: BEGIN OF SELECTIONS OCCURS 0,

Z(2) TYPE C,

LINE LIKE RALDB-INFOLINE,

END OF SELECTIONS.

DATA: BEGIN OF T_MESSAGE OCCURS 10. "#EC *

INCLUDE STRUCTURE BDCMSGCOLL.

DATA: END OF T_MESSAGE.

DATA: BEGIN OF IT_NETWR OCCURS 0,

NETWR LIKE EKPO-NETWR,

END OF IT_NETWR.

DATA: BEGIN OF IT_BDC OCCURS 0.

INCLUDE STRUCTURE BDCDATA.

DATA: END OF IT_BDC.

DATA: W_MATNR LIKE MARC-MATNR,

W_LNUM(6) TYPE N,

INT_MATNR LIKE MARA-MATNR, "Internal format

W_TFILE(60).

DATA: BEGIN OF IT_RECEIVERS OCCURS 0.

INCLUDE STRUCTURE SOOS1.

DATA: END OF IT_RECEIVERS.

----

SELECTION SCREEN

----

SELECT-OPTIONS: S_EKORG FOR EKKO-EKORG OBLIGATORY

NO INTERVALS

DEFAULT '9000'.

SELECT-OPTIONS: S_WERKS FOR MARC-WERKS OBLIGATORY ."NO INTERVALS. "V01

SELECTION-SCREEN SKIP 1.

PARAMETERS:

P_INPUT(80) TYPE C "Input file from DRP

DEFAULT '/sapdaemon/I2/spp/in/daily/po_upload_spk21.dat'

OBLIGATORY LOWER CASE,

P_OUTPUT(80) TYPE C "Error/warning error records

DEFAULT '/sapdaemon/I2/spp/in/daily/po_upload_spk21.err'

LOWER CASE.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN COMMENT /01(53) TEXT-005.

SELECTION-SCREEN SKIP 1.

PARAMETERS:

P_DONEFL AS CHECKBOX DEFAULT 'X', "Create .done file?

P_UPDT AS CHECKBOX DEFAULT ' '. "Simulation Run only?(x=yes)

SELECTION-SCREEN SKIP 1.

PARAMETERS:

P_MODE(1) TYPE C DEFAULT 'N'

OBLIGATORY,

P_UPDATE(1) TYPE C DEFAULT 'S'

OBLIGATORY,

P_BDCERR LIKE APQI-GROUPID DEFAULT 'ZMXU510',

P_USERID LIKE APQI-USERID DEFAULT SY-UNAME

MATCHCODE OBJECT USER_ADDR.

PARAMETERS : P_MAXLNS(3) TYPE N DEFAULT 10 OBLIGATORY.

select-options: S_MAXLNS for kna1-kunnr.

SELECTION-SCREEN COMMENT /42(40) TEXT-011.

PARAMETERS:

P_STOP(6) TYPE N. "MAX # of records to read from input file

SELECTION-SCREEN COMMENT /42(40) TEXT-003.

SELECTION-SCREEN SKIP 1.

PARAMETERS:

P_REPTD AS CHECKBOX DEFAULT 'X',

P_REPTP AS CHECKBOX DEFAULT ' ',

P_SPOOL AS CHECKBOX DEFAULT ' ',

P_EMAIL AS CHECKBOX DEFAULT ' '.

SELECTION-SCREEN SKIP 1.

PARAMETERS:

P_EVENT AS CHECKBOX DEFAULT 'X',

P_EVNAM LIKE BTCUEV-EVENTID DEFAULT 'Z_ITWO_START_ZI2X14'.

SELECTION-SCREEN SKIP 1.

PARAMETERS: P_TRANS AS CHECKBOX DEFAULT 'X',

P_TFILE(80) TYPE C DEFAULT

'/sapdaemon/I2/spp/in/daily/zi2spk21.trig'(099)

LOWER CASE.

Regards

Sudheer

Re: reg select-options

former_member480923 — Fri, 10 Aug 2007 13:25:10 GMT

Here is ur corrected code:

TABLES:

ekko, "Purchasing Document Header

ekpo, "Purchasing Doc Item

mara, "Material

marc, "Material at plant

usr02, "User address data

t024e, "Purchasing Organization

eord, "Purchasing Source List

kna1.

----

GLOBAL DATA

----

DATA: " Work fields definition

w_spono LIKE rspotype-rqnumber,

w_mail_subject(50) TYPE c,

w_mail_rept(1),

w_time LIKE sy-uzeit.

DATA w_cntrflg.

DATA :w_headflg.

DATA w_netwr(16).

Counters

DATA: w_count_read(6) TYPE n, "Records Read

w_count_skip(6) TYPE n, "Records Skipped

w_count_new(6) TYPE n, "New Records to create

w_count_po(6) TYPE n, "Number of PO records

w_count_call_txn_err(6) TYPE n, " # of CALL TXN errors

w_count_call_txn(6) TYPE n, "Total # Call Trans

w_count_bdc_records(6) TYPE n, "Total # BDC Trans

w_count_lines(2) TYPE n, "number lines on T/O

w_count_sess_tot(4) TYPE n. "Total session count

General Data

DATA: w_req_date_n TYPE d, "Req date converted to DAT

w_req_date(10) TYPE c, "Req date converted to CHAR

w_done_file(85) TYPE c, "Output done file name

w_message(60) TYPE c, "Work message field

w_page TYPE c VALUE '1', "report type: 1=audit, 2=error

w_qty LIKE eban-menge, "Qty converted to numeric field

w_tax_code LIKE ekpo-mwskz, "Tax Code

w_retcode(2) TYPE n,

w_maxlns TYPE n.

DATA:w_contract_prev LIKE ekko-konnr.

CALL TRANSACTION fields

DATA: w_transaction LIKE tstc-tcode. "Transaction to call

Constants

CONSTANTS: c_po_type LIKE ekko-bsart VALUE 'NB',

C_PLANT LIKE EKPO-WERKS VALUE '5050', "V01

c_po_create LIKE tstc-tcode VALUE 'ME21',

c_x(1) TYPE c VALUE 'X',

c_trans(10) TYPE c VALUE '.transfer',

c_2300 LIKE ekpo-werks VALUE '2300'. "V02

CONSTANTS:c_createdpo(15) TYPE c VALUE 'Created PO',

c_calltrax(20) TYPE c VALUE 'Call Txn error'.

----

Record Layout *

----

Input File Layout

DATA: BEGIN OF r_input1,

rec_type(32) TYPE c, "Record Type

version(4) TYPE c, "Version

ebeln(20) TYPE c, "Order Number

empty1(20) TYPE c, "Empty Field

order_line(5) TYPE c, "Order Line Number

empty2(4) TYPE c, "Empty Field

bsart(4) TYPE c, "PO type

ekorg(4) TYPE c, "Purchasing Org

ekgrp(3) TYPE c, "Purchasing Group

empty3(4) TYPE c, "Empty Field

vendor(10) TYPE c, "Vendor

matnr(18) TYPE c, "Material

menge(17) TYPE c, "Purch Order Quantity

req_date(8) TYPE n, "Requested Date (yyyymmdd)

werks(4) TYPE c, "Plant

empty4(4) TYPE c, "Empty Field

contract(10) TYPE c, "Contract Number

contr_item(5) TYPE c, "Contract Item Number

empty5(10) TYPE c, "Empty Field

lgort(4) TYPE c, "Storage Location

END OF r_input1.

----

Internal Table Definition With Structure Included *

----

DATA: it_input LIKE r_input1 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF it_marc OCCURS 0,

matnr LIKE marc-matnr,

werks LIKE marc-werks,

ekgrp LIKE marc-ekgrp,

END OF it_marc.

JIT Purchase Order Table

DATA: BEGIN OF it_jit_po OCCURS 10.

INCLUDE STRUCTURE r_input1.

DATA: taxcode(2) TYPE c. "V01

DATA: END OF it_jit_po.

DATA:it_jit_po1 LIKE TABLE OF it_jit_po WITH HEADER LINE.

Messages Table (errors & success)

DATA: BEGIN OF it_msgtab OCCURS 10.

DATA: rkey(2) TYPE c. "Record type key

INCLUDE STRUCTURE r_input1.

DATA: msg(60) TYPE c.

DATA: name1 LIKE lfa1-name1. "Vendor Name

DATA: ponumber LIKE ekpo-ebeln.

DATA: bcodedesc LIKE t024-eknam.

DATA: netwr LIKE ekpo-netwr. "Total PO $ Value

DATA: END OF it_msgtab.

Temp Table to save data for one PO at a time

DATA: BEGIN OF it_podat OCCURS 10.

INCLUDE STRUCTURE r_input1.

DATA: END OF it_podat.

DATA: it_msgtab_e LIKE it_msgtab OCCURS 0 WITH HEADER LINE.

DATA: it_msgtab_o LIKE it_msgtab OCCURS 0 WITH HEADER LINE.

DATA: it_msgtab_err LIKE it_msgtab OCCURS 0 WITH HEADER LINE.

For F4 at Event Name

DATA: BEGIN OF lv_evt OCCURS 0,

eventid LIKE btcuev-eventid,

END OF lv_evt.

To print selections

DATA: BEGIN OF selections OCCURS 0,

z(2) TYPE c,

line LIKE raldb-infoline,

END OF selections.

DATA: BEGIN OF t_message OCCURS 10. "#EC *

INCLUDE STRUCTURE bdcmsgcoll.

DATA: END OF t_message.

DATA: BEGIN OF it_netwr OCCURS 0,

netwr LIKE ekpo-netwr,

END OF it_netwr.

DATA: BEGIN OF it_bdc OCCURS 0.

INCLUDE STRUCTURE bdcdata.

DATA: END OF it_bdc.

DATA: w_matnr LIKE marc-matnr,

w_lnum(6) TYPE n,

int_matnr LIKE mara-matnr, "Internal format

w_tfile(60).

DATA: BEGIN OF it_receivers OCCURS 0.

INCLUDE STRUCTURE soos1.

DATA: END OF it_receivers.

----

SELECTION SCREEN

----

SELECT-OPTIONS: s_ekorg FOR ekko-ekorg OBLIGATORY NO INTERVALS

DEFAULT '9000'.

SELECT-OPTIONS: s_werks FOR marc-werks OBLIGATORY .

SELECTION-SCREEN SKIP 1.

PARAMETERS: p_input(80) TYPE c

DEFAULT '/sapdaemon/I2/spp/in/daily/po_upload_spk21.dat'

OBLIGATORY LOWER CASE,

p_output(80) TYPE c "Error/warning error records

DEFAULT '/sapdaemon/I2/spp/in/daily/po_upload_spk21.err'

LOWER CASE.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN COMMENT 01(53) text-005.

SELECTION-SCREEN SKIP 1.

PARAMETERS: p_donefl AS CHECKBOX DEFAULT 'X',

p_updt AS CHECKBOX DEFAULT ' '.

SELECTION-SCREEN SKIP 1.

PARAMETERS: p_mode(1) TYPE c DEFAULT 'N' OBLIGATORY,

p_update(1) TYPE c DEFAULT 'S' OBLIGATORY,

p_bdcerr LIKE apqi-groupid DEFAULT 'ZMXU510',

p_userid LIKE apqi-userid DEFAULT sy-uname

MATCHCODE OBJECT user_addr.

PARAMETERS : P_MAXLNS(3) TYPE N DEFAULT 10 OBLIGATORY.

SELECT-OPTIONS: s_maxlns FOR kna1-kunnr.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN COMMENT 42(40) text-011.

PARAMETERS: p_stop(6) TYPE n.

SELECTION-SCREEN COMMENT 42(40) text-003.

SELECTION-SCREEN SKIP 1.

PARAMETERS: p_reptd AS CHECKBOX DEFAULT 'X',

p_reptp AS CHECKBOX DEFAULT ' ',

p_spool AS CHECKBOX DEFAULT ' ',

p_email AS CHECKBOX DEFAULT ' '.

SELECTION-SCREEN SKIP 1.

PARAMETERS: p_event AS CHECKBOX DEFAULT 'X',

p_evnam LIKE btcuev-eventid DEFAULT 'Z_ITWO_START_ZI2X14'.

SELECTION-SCREEN SKIP 1.

PARAMETERS: p_trans AS CHECKBOX DEFAULT 'X',

p_tfile(80) TYPE c DEFAULT

'/sapdaemon/I2/spp/in/daily/zi2spk21.trig'

LOWER CASE.

Re: reg select-options

Former Member — Fri, 10 Aug 2007 13:27:02 GMT

Hi Sudheer,

Thank you very Much for your answer,

It was very helpful.

regards

Rajesh.G

Re: reg select-options

Former Member — Fri, 10 Aug 2007 13:30:55 GMT

hi Anirbhan

Thank You very much

Regards

Rajesh.