Select option estoy comenzando a programar

[sirmapu]

Como igualo el select option?, para que funcione.


TABLES: stravelag , scounter, sairport, scustom, sbook, sflight.

TYPES: BEGIN OF struct,
carrid LIKE sbook-carrid,
connid LIKE sbook-connid,
fldate LIKE sbook-fldate,
bookid LIKE sbook-bookid,
customid LIKE sbook-customid,
loccuram LIKE sbook-loccuram,
loccurkey LIKE sbook-loccurkey,
order_date LIKE sbook-order_date,
counter LIKE sbook-counter,
agencynum LIKE sbook-agencynum,
cancelled LIKE sbook-cancelled,
*carrid LIKE sflight-carrid,
*connid LIKE sflight-connid,
*fldate LIKE sflight-fldate,
planetype LIKE sflight-planetype,
name LIKE scustom-name,
telephone LIKE scustom-telephone,
city LIKE scustom-city,
namestravelag LIKE stravelag-name,
citystravelag LIKE stravelag-city,
telephonestravelag LIKE stravelag-telephone,
END OF struct.

DATA:wa_vuelos TYPE struct.
TYPES: t_vuelos_type TYPE STANDARD TABLE OF struct WITH KEY carrid.
DATA: t_vuelos TYPE t_vuelos_type WITH HEADER LINE.



SELECT-OPTIONS:socarrid FOR sbook-carrid.
SELECT-OPTIONS:soconnid FOR sbook-connid.
PARAMETER_cancel LIKE sbook-cancelled AS CHECKBOX.



SELECT b~carrid b~connid b~fldate b~bookid b~customid b~loccuram
b~loccurkey b~cancelled p~planetype
INTO CORRESPONDING FIELDS OF TABLE t_vuelos
FROM sbook AS b
INNER JOIN sflight AS p
ON b~connid = p~connid
AND b~carrid = p~carrid.
* WHERE carrid IN socarrid
* AND connid IN soconnid.




LOOP AT t_vuelos INTO wa_vuelos.

SELECT SINGLE name telephone city
INTO CORRESPONDING FIELDS OF wa_vuelos
FROM scustom
WHERE id = wa_vuelos-customid.



MODIFY t_vuelos FROM wa_vuelos.

ENDLOOP.

*SELECT *
*FROM sbook
*INTO CORRESPONDING FIELDS OF TABLE t_vuelos.
*
** WHERE carrid = sflight-carrid
** AND connid = sflight-connid
** AND carrid IN socarrid
** AND connid IN soconnid.
*
*
*LOOP AT t_vuelos INTO wa_vuelos.
*
* SELECT SINGLE planetype
* FROM sflight as s
* INTO CORRESPONDING FIELDS OF wa_vuelos
* WHERE carrid = sflight-carrid
* AND connid = sflight-connid.
** AND carrid IN socarrid
** AND connid IN soconnid
** AND connid = wa_vuelos-connid
** AND carrid = wa_vuelos-carrid.
*
* MODIFY t_vuelos FROM wa_vuelos.
*
*ENDLOOP.

WRITE : / ' ',text-001,
' ',text-002,
' ',text-003,
' ',text-004,
' ',text-005,
' ',text-006,
' ',text-007,
' ',text-008,
' ',text-009,
' ',text-010,
' ',text-011,
' ',text-012.



START-OF-SELECTION.

WRITE : / text-001 COLOR COL_HEADING,
/"SY-LSIND",
sy-lsind COLOR 2.

LOOP AT t_vuelos INTO wa_vuelos.

WRITE: / wa_vuelos-carrid,
wa_vuelos-connid,
wa_vuelos-fldate,
wa_vuelos-planetype,
wa_vuelos-bookid,
wa_vuelos-customid,
wa_vuelos-name,
wa_vuelos-telephone,
wa_vuelos-city,
wa_vuelos-loccuram,
wa_vuelos-loccurkey,
wa_vuelos-cancelled.


ENDLOOP.

WRITE: text-013,
t_vuelos-carrid,
t_vuelos-connid.

WRITE : / text-014 COLOR COL_HEADING.
ULINE.
WRITE: / "SY-UCOMM",
sy-ucomm COLOR 3,
/ "SY-LSIND",
sy-lsind COLOR 4.

AT LINE-SELECTION.

LOOP AT t_vuelos INTO wa_vuelos.

SELECT SINGLE name city telephone
FROM stravelag
INTO CORRESPONDING FIELDS OF wa_vuelos
WHERE agencynum = sbook-agencynum.


MODIFY t_vuelos FROM wa_vuelos.


WRITE: / wa_vuelos-namestravelag,
wa_vuelos-citystravelag,
wa_vuelos-telephonestravelag.


ENDLOOP.



*SELECT *
*INTO CORRESPONDING FIELDS OF TABLE t_vuelos
*FROM sbook AS b
*INNER JOIN scustom AS s
*ON b~SBOOK-CUSTOMID = s~SCUSTOM-ID.








* SELECT *
* FROM: sflight
* INTO CORRESPONDING FIELDS OF TABLE t_vuelos
* where: carrid in socarrid
* and connid in soconnid.
*
*
*
* LOOP AT t_vuelos INTO wa_vuelos.
*
* WRITE: / wa_vuelos-carrid,
* wa_vuelos-connid,
* wa_vuelos-fldate,
* wa_vuelos-planetype.
* ENDLOOP.
*






*
* LOOP AT t_vuelos INTO wa_vuelos.
*
* SELECT *
* INTO CORRESPONDING FIELDS OF TABLE t_vuelos
* FROM sbook AS b
* INNER JOIN scustom AS s
* ON b~customid = s~id.
*
* MODIFY t_vuelos FROM wa_vuelos.
*
* WRITE :/
* wa_vuelos-carrid_sbook,
* wa_vuelos-connid_sbook,
* wa_vuelos-fldate_sbook,
* wa_vuelos-planetype,
* wa_vuelos-bookid_sbook,
* wa_vuelos-customid_sbook,
* wa_vuelos-name,
* wa_vuelos-telephone,
* wa_vuelos-city,
* wa_vuelos-loccuram_sbook,
* wa_vuelos-loccurkey_sbook,
* wa_vuelos-cancelled_sbook.
*
* ENDLOOP.





*SELECT * FROM sflight
*
*INTO CORRESPONDING FIELDS OF TABLE t_vuelos.
*
*LOOP AT t_vuelos INTO wa_vuelos.
*
* SELECT SINGLE carrid connid fldate bookid customid loccuram loccurkey
*order_date counter agencynum cancelled
* FROM sbook
*
* INTO CORRESPONDING FIELDS OF wa_vuelos
*WHERE connid = wa_vuelos-connid_sbook
* AND carrid = wa_vuelos-carrid_sbook.
*
* MODIFY t_vuelos FROM wa_vuelos.
*
*ENDLOOP.

*WRITE :/
*wa_vuelos-carrid_sbook,
*wa_vuelos-connid_sbook,
*wa_vuelos-fldate_sbook,
*wa_vuelos-planetype,
*wa_vuelos-bookid_sbook,
*wa_vuelos-customid_sbook,
*wa_vuelos-name,
*wa_vuelos-telephone,
*wa_vuelos-city,
*wa_vuelos-loccuram_sbook,
*wa_vuelos-loccurkey_sbook,
*wa_vuelos-cancelled_sbook.

[sirmapu]

SELECT-OPTIONS:socarrid FOR sbook-carrid.
SELECT-OPTIONS:soconnid FOR sbook-connid.


PARAMETERS_cancel LIKE sbook-cancelled AS CHECKBOX.



SELECT b~carrid b~connid b~fldate b~bookid b~customid b~loccuram
b~loccurkey b~cancelled p~planetype
INTO CORRESPONDING FIELDS OF TABLE t_vuelos
FROM sbook AS b
INNER JOIN sflight AS p
ON b~connid = p~connid
AND b~carrid = p~carrid
WHERE b~carrid IN socarrid
AND b~carrid IN soconnid.