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.

What is a hyperdescriptor? How does it work?

633

---

Explain control variable in online screens?

558

---

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?

1446

---

Explain adabas basic concepts. Like inverted list, address converter ,data storage?

562

---

Explain the like inverted list?

541

---

---

Explain how to find occurrence of mu and pe fields in a file?

499

---

Explain the data storage?

557

---

Tell me what type of files we can process thru file-aid?

536

---

What happens when you issue a escape routine in a program? Will there be any compilation /run time erro?

554

---

Explain how are you going to remove duplicates from the file that is being read?

552

---

Explain difference between escape(top or bottom) and escape immediate(top or bottom?

627

---

How converted the natural coding for adabas

2689

---

Can we see the copy book length using file-aid?

500

---

Explain difference between read work file 1 and read work file once? Why we are using work file once?

558

---

Explain is it possible to code goto statement in natural? If yes please provide the syntax of the same?

597

---