NOFILE ENQUIRY -Results not displayed

Hello

I have successfuly compiled the routine ,created the file record in the standard selection and created a nofile enquiry.

But when i run an enquiry in the classic ,the system just gets me out back to jbase prompty .What might be the problem?

Below are the details
Page Size 4,19
File Name NOFILE.PDBREAKDOWNAC
Fixed Selection.1 R.DATA
Field Name.1 LD.NUMBER
Operation.1.1 0
Column.1 1
Conversion.1.1 F *,1,1
Field Name.2 PRINCIPAL
Operation.2.1 0
Column.2 2
Conversion.2.1 F *,2,1
Field Name.3 INTEREST
Operation.3.1 0
Column.3 3
Conversion.3.1 F *,3,1
Field Name.4 PENALTY.INT
Operation.4.1 0
Column.4 4
Conversion.4.1 F *,4,1
Page Fields 4 1 2 3 4
Multi Fields 0
Break Fields 0
Process Breaks 0
Total Fields 0
Company Select ALL
Curr No 7
Inputter.1 37_ELISHA
Date Time.1 13 SEP 10 16:23
Authoriser 37_ELISHA
Co Code TZ-001-0001 Head Office (0100)
Dept Code 1

ROUTINE
*

---

* <Rating>299</Rating>
*

---

SUBROUTINE PD.BREAKDOWNAC(OUT.DATA)
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_ENQUIRY.COMMON
$INSERT I_F.PD.PAYMENT.DUE
***
FN.LAB = "F.PD.PAYMENT.DUE"
F.LAB = ""
CALL OPF(FN.LAB,F.LAB)
***
SEL.STMT = "SELECT ":FN.LAB
ID.LIST = '' ; NO.RECS = 0
CALL EB.READLIST(SEL.STMT, ID.LIST, '', NO.RECS, '')
***
IF ID.LIST THEN
LOOP
REMOVE LAB.ID FROM ID.LIST SETTING MORE
WHILE LAB.ID : MORE DO
PRINCIPAL.AMOUNT=0
PENALTY.AMOUNT=0
INTEREST.AMOUNT=0
CALL F.READ(FN.LAB,LAB.ID,R.LAB,F.LAB,LAB.ERR)
Z = DCOUNT(R.LAB<PD.TOT.OVRDUE.TYPE>,VM)
FOR I = 1 TO Z
IF R.LAB<PD.TOT.OVRDUE.TYPE,I> EQ 'PR' THEN
PRINCIPAL.AMOUNT=R.LAB<PD.TOT.OD.TYPE.AMT,I>
END
ELSE IF R.LAB<PD.TOT.OVRDUE.TYPE,I> EQ 'PE' THEN
PENALTY.AMOUNT=R.LAB<PD.TOT.OD.TYPE.AMT,I>
END
ELSE
INTEREST.AMOUNT=INTEREST.AMOUNT + R.LAB<PD.TOT.OD.TYPE.AMT,I>
END
NEXT I
OUT.DATA<-1>=LAB.ID:'*':PRINCIPAL.AMOUNT:'*':INTEREST.AMOUNT:'*':PENALTY.AMOUNT
REPEAT
END
STOP
***
END

STANDARD.SELECTION
Usr Field Name.1 R.DATA
Usr Type.1 R
Usr Field No.1.1 PD.BREAKDOWNAC
Usr Display Fmt.1 132L
Usr Single Mult.1 S
Curr No 4
Inputter.1 37_ELISHA
Date Time.1 13 SEP 10 16:08
Authoriser 37_ELISHA
Co Code TZ-001-0001 Head Office (0100)
Dept Code 11

Wow thanks man! you r the best!

It is now working fine! at last i have managed to create nofile enquiry mostly for your help man

Thanks much