I think the program is not correct. In your enquiry you have only
CATEGORY field in selection fields. But you are testing
WORKING.BALANCE field that should never happen.The other thing is that
selection data should be defined as subvalue set, not space
delimited.
What will happen if you change your program like:
SUBROUTINE E.ACWB.BUILD.RTN(ENQ.DATA)
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_ENQUIRY.COMMON
LOCATE 'CATEGORY' IN ENQ.DATA<2,1> SETTING Y.CAT.POS ELSE
RETURN
END
Y.CATEGORY = ENQ.DATA<4,Y.CAT.POS>
IF Y.CATEGORY MATCHES 1001:VM:6001 ELSE
RETURN
END
LOCATE 'WORKING.BALANCE' IN ENQ.DATA<2,1> SETTING Y.WBAL ELSE
INS ' WORKING.BALANCE' BEFORE ENQ.DATA<2,Y.WBAL>
INS '' BEFORE ENQ.DATA<3,Y.WBAL>
INS '' BEFORE ENQ.DATA<4,Y.WBAL>
END
ENQ.DATA<3,Y.WBAL> = 'RG'
IF Y.CATEGORY = 1001 THEN ENQ.DATA<4,Y.WBAL> = '10':SM:'50000'
IF Y.CATEGORY = 6001 THEN ENQ.DATA<4,Y.WBAL> =
'1000':SM:'100000'
RETURN
END
On May 20, 1:45 pm, Mohankumar Balasubramaniam
<[email protected]> wrote:
> HI,
>
> have you DEBUG and check whether the routine is trigering or not?
> Please put a debug and check the routine is working correctly.
>
> Regards,
> Mohan
>
>
>
>
>
> On Thu, May 20, 2010 at 4:46 PM, master <[email protected]> wrote:
> > Hi,
>
> > Has anything changed in R09 with respect to calling BUILD or
> > CONVERSION routines in R09?
>
> > I have attached a build routine that should return records whose
> > Working Balance fall within a certain range for the categories 1001
> > and 6001. The restrictions are not applied when I run the enquiry -
> > all records are returned irrespective of the working balance.
>
> > Here is the routine
>
> > SUBROUTINE E.ACWB.BUILD.RTN(ENQ.DATA)
> > $INSERT I_COMMON
> > $INSERT I_EQUATE
> > $INSERT I_ENQUIRY.COMMON
> > LOCATE 'CATEGORY' IN ENQ.DATA<2,1> SETTING Y.CAT.POS ELSE NULL
> > Y.CATEGORY = ENQ.DATA<4,Y.CAT.POS>
> > LOCATE 'WORKING.BALANCE' IN ENQ.DATA<2,1> SETTING Y.WBAL ELSE
> > NULL
> > ENQ.DATA<3,Y.WBAL> = 'RG'
> > IF Y.CATEGORY = 1001 THEN ENQ.DATA<4,Y.WBAL> = '10 50000'
> > IF Y.CATEGORY = 6001 THEN ENQ.DATA<4,Y.WBAL> = '1000 100000'
> > RETURN
> > END
>
> > And it is attached to the enquiry as below:
>
> > ------------------------------------------------------------------------------
> > 1 PAGE.SIZE ........ 4,19
> > 2 FILE.NAME......... ACCOUNT
> > 6. 1 SELECTION.FLDS. CATEGORY
> > 8. 1 SEL.FLD.OPER... EQ
> > 9. 1 REQUIRED.SEL... Y
> > 12. 1 BUILD.ROUTINE.. E.ACWB.BUILD.RTN
> > 14. 1 FIELD.NAME..... @ID
> > 15. 1. 1 OPERATION... @ID
> > 16. 1 COLUMN......... 1
> > 17. 1 LENGTH.MASK.... 16R
> > 22. 1. 1 GB FIELD.LBL ACCOUNT NO
> > 35. 1 SINGLE.MULTI... S
> > 14. 2 FIELD.NAME..... CUSTOMER
> > 15. 2. 1 OPERATION... CUSTOMER
> > 16. 2 COLUMN......... 20
> > 17. 2 LENGTH.MASK.... 10R
>
> > --
> > Please read the posting guidelines at:
> >http://groups.google.com/group/jBASE/web/Posting%20Guidelines
>
> > IMPORTANT: Type T24: at the start of the subject line for questions
> > specific to Globus/T24
>
> > To post, send email to [email protected]
> > To unsubscribe, send email to [email protected]
> > For more options, visit this group at
> >http://groups.google.com/group/jBASE?hl=en
>
> --
> Please read the posting guidelines
> at:http://groups.google.com/group/jBASE/web/Posting%20Guidelines
>
> IMPORTANT: Type T24: at the start of the subject line for questions specific
> to Globus/T24
>
> To post, send email to [email protected]
> To unsubscribe, send email to [email protected]
> For more options, visit this group
> athttp://groups.google.com/group/jBASE?hl=en
--
Please read the posting guidelines at:
http://groups.google.com/group/jBASE/web/Posting%20Guidelines
IMPORTANT: Type T24: at the start of the subject line for questions specific to
Globus/T24
To post, send email to [email protected]
To unsubscribe, send email to [email protected]
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
