difference between escape(top or bottom) and escape
immediate(top or bottom?
Answer Posted / nitin
Program
000010 define data local
000020 1 #ACCOUNT_ID (N10)
000030 end-define
000040 LIMIT 5
000050 SELECT ACCOUNT_ID
000060 INTO #ACCOUNT_ID
000070 FROM CIS_ACCOUNT
000080 WHERE COY = 1
000090 AND ACCOUNT_ID = 12344
000100 *
000120 IF #ACCOUNT_ID = 7232
000130 WRITE 'INSIDE1' #ACCOUNT_ID
000140 ESCAPE ROUTINE IMMEDIATE
000150 END-if
000150 *
000160 AT END OF PAGE
000170 WRITE 'GOOD'
000180 END-ENDPAGE
000190 *
000200 WRITE 'INSIDE3'
000210 END-SELECT
000220 WRITE 'HELLO'
000230 end
Output
INSIDE3 3682
INSIDE3 4340
INSIDE3 7200
INSIDE1 7232
GOOD
I have written above program to test the scinarion. But in
all situations Good is getting printed. Will somebody help
me what escape statement should I use so that Good will not
get printed.
Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
In a Natural program i used the below code for report FORMAT LS=132 PS=60 And down the line I want to change either LS/PS like FORMAT LS=120 PS=50, is it possible? How it will work?
What is the difference between read work file 1 and read work file once? Why we are using work file once?
Explain why do we use file-aid for seqential files?
How to create 1 ddm that fetches 3 adabas files simultaneously?
Explain difference between read(1) and read work file once?
How can we see the copy book length using file-aid?
Explain difference between escape(top or bottom) and escape immediate(top or bottom?
What is the difference between escape(top or bottom) and escape immediate(top or bottom?
What happens when you issue a escape routine in a program? Will there be any compilation /run time erro?
Explain difference between read work file 1 and read work file once? Why we are using work file once?
How to find occurrence of mu and pe fields in a file?
Explain how many work file we can code in jcl?
Explain adabas basic concepts. Like inverted list, address converter ,data storage?
Suppose you are processing an input file in a natural program and you want the program to fail if the file is empty. What command you use in natural to force it to fail?
What is a hyperdescriptor?