Reg select-options

Question

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.

Answer 1

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