IBM Mainframe Forum

Posted: **Wed Nov 02, 2011 5:45 pm**

Hi,

I just want to know what is the difference between Escape Bottom and Escape Bottom Immediate. Can anyone explain me with an example?

Immediate Option:
If you specify the keyword IMMEDIATE, no loop-end processing will be performed.

I am not able to understand what the meaning of loop-end processing? When we have to use immediate and when not ?????/

Posted: **Thu Nov 03, 2011 1:43 am**

Did you look up loop-ending processing?

Posted: **Thu Nov 03, 2011 12:21 pm**

Loop-end processing refers to AT END OF DATA and AT BREAK statements. The keyword IMMEDIATE means that you don't want Natural to invoke the AT END OF DATA nor to force a final break.

An example without IMMEDIATE:

Select all

DEFINE DATA LOCAL
1 EMP VIEW EMPLOYEES
2 PERSONNEL-ID
END-DEFINE
READ EMP BY PERSONNEL-ID FROM '11100108'
AT BREAK OF PERSONNEL-ID /7/
WRITE 5X '1 break'
END-BREAK
AT END OF DATA
WRITE 5X '1 end data'
END-ENDDATA
/*
WRITE '1' PERSONNEL-ID
IF *COUNTER = 5
THEN
ESCAPE BOTTOM
END-IF
END-READ
END

Select all

1 11100108
1 11100109
1 break
1 11100110
1 11100111
1 11100112
1 break
1 end data

The same example with IMMEDIATE:

Select all

DEFINE DATA LOCAL
1 EMP VIEW EMPLOYEES
2 PERSONNEL-ID
END-DEFINE
READ EMP BY PERSONNEL-ID FROM '11100108'
AT BREAK OF PERSONNEL-ID /7/
WRITE 5X '2 break'
END-BREAK
AT END OF DATA
WRITE 5X '2 end data'
END-ENDDATA
/*
WRITE '2' PERSONNEL-ID
IF *COUNTER = 5
THEN
ESCAPE BOTTOM IMMEDIATE
END-IF
END-READ
END

Select all

2 11100108
2 11100109
2 break
2 11100110
2 11100111
2 11100112

IBM Mainframe Forum

Escape bottom and Escape Bottom Immediate

Escape bottom and Escape Bottom Immediate

Re: Escape bottom and Escape Bottom Immediate

Re: Escape bottom and Escape Bottom Immediate