topic Re: Smallest / Simplest example of Open Cursor concept - with Code in Application Development and Automation Discussions

Smallest / Simplest example of Open Cursor concept - with Code

Former Member — Wed, 15 Nov 2006 18:13:25 GMT

Team,

Please give Smallest / Simplest example of Open Cursor concept - with ABAP Code.

Thanks

Re: Smallest / Simplest example of Open Cursor concept - with Code

Former Member — Wed, 15 Nov 2006 18:15:56 GMT

Example from help

http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb3b23358411d1829f0000e829fbfe/content.htm

Regards,

Ravi

Note - Please mark all the helpful answers

Re: Smallest / Simplest example of Open Cursor concept - with Code

Former Member — Wed, 15 Nov 2006 20:26:18 GMT

This is an easy example.

REPORT demo_select_cursor_1.

DATA: c1 TYPE cursor,

c2 TYPE cursor.

DATA: wa1 TYPE spfli,

wa2 TYPE spfli.

DATA: flag1(1) TYPE c,

flag2(1) TYPE c.

OPEN CURSOR: c1 FOR SELECT carrid connid

FROM spfli

WHERE carrid = 'LH',

c2 FOR SELECT carrid connid cityfrom cityto

FROM spfli

WHERE carrid = 'AZ'.

DO.

IF flag1 NE 'X'.

FETCH NEXT CURSOR c1 INTO CORRESPONDING FIELDS OF wa1.

IF sy-subrc <> 0.

CLOSE CURSOR c1.

flag1 = 'X'.

ELSE.

WRITE: / wa1-carrid, wa1-connid.

ENDIF.

IF flag2 NE 'X'.

FETCH NEXT CURSOR c2 INTO CORRESPONDING FIELDS OF wa2.

IF sy-subrc <> 0.

CLOSE CURSOR c2.

flag2 = 'X'.

ELSE.

WRITE: / wa2-carrid, wa2-connid,

wa2-cityfrom, wa2-cityto.

ENDIF.

IF flag1 = 'X' AND flag2 = 'X'.

EXIT.

ENDIF.

ENDDO.

Reward Points if useful.

Prince