× Discuss on T24 Installation, Setting up the environment, TC Server, jBOSS, Package & Deployment, etc…

Do NOFILE enquiries work with ENQUIRY.REPORT?

  • kareem.magdy
  • Topic Author
  • Visitor
  • Visitor
12 years 1 month ago #13942 by kareem.magdy
Do NOFILE enquiries work with ENQUIRY.REPORT? was created by kareem.magdy
Do NOFILE enquiries work with ENQUIRY.REPORT?
I've tried once but it's not fetching any records while it's fetching all the records from the application. please advise.

Please Log in or Create an account to join the conversation.

  • jpb
  • jpb's Avatar
  • Offline
  • Moderator
  • Moderator
  • retired . . . ¯\_(ツ)_/¯
More
12 years 1 month ago #13943 by jpb
Normally it makes no difference if it's a nofile or not, both behave identical as ENQUIRY.REPORT
Anything special in your build routine, e.g. using a common that might not be set ?

Please Log in or Create an account to join the conversation.

  • kareem.magdy
  • Topic Author
  • Visitor
  • Visitor
12 years 1 month ago #13944 by kareem.magdy
Replied by kareem.magdy on topic Do NOFILE enquiries work with ENQUIRY.REPORT?
I don't think so, here's the code:

SUBROUTINE PDC.LIST(ALL.DATA)

$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_ENQUIRY.COMMON
$INSERT I_F.PDC.REGISTER


FN.PR = 'F.PDC.REGISTER'
F.PR = ''
CALL OPF(FN.PR,F.PR)
ENQDATA = ''
TOT.AMT = '0'


FLDS.NO = DCOUNT(ENQ.SELECTION,FM)
FOR FLD.IND = 2 TO FLDS.NO
IF (ENQ.SELECTION<FLD.IND>) THEN
SFLDS.NO = DCOUNT(ENQ.SELECTION<FLD.IND>,VM)
FOR SBM = 1 TO SFLDS.NO
ENQDATA<-1> = ENQ.SELECTION<FLD.IND,SBM>
ENQDATA<-1> = ENQ.SELECTION<FLD.IND + 1,SBM>
ENQDATA<-1> = ENQ.SELECTION<FLD.IND + 2,SBM>
ENQDATA<-1> = "AND"
NEXT SBM
END
FLD.IND = FLD.IND + 3
NEXT FLD.IND

IF ENQDATA THEN
DEL.IND = DCOUNT(ENQDATA,FM)
ENQDATA<DEL.IND> = ""
CONVERT @FM TO " " IN ENQDATA
CMD = "SELECT ":FN.PR:" WITH CHQ.TYPE EQ POSTED AND STATUS EQ PDC AND CHQ.STATUS EQ IN-CLEARING AND ":ENQDATA
*:"CHQ.AMOUNT"
END
ELSE
CMD = "SELECT ":FN.PR:" WITH CHQ.TYPE EQ POSTED AND STATUS EQ PDC AND CHQ.STATUS EQ IN-CLEARING"

END
CALL EB.READLIST(CMD,CMD.LIST,'',NO.OF.RECS,CMD.ERR)
* TOT.AMT = SUM(CMD.LIST)
* O.DATA = NO.OF.RECS:"|":TOT.AMT
FOR REC.IND = 1 TO NO.OF.RECS
CALL F.READ(FN.PR,CMD.LIST<REC.IND>,R.PR,F.PR,PR.ERR)
TOT.AMT = TOT.AMT + R.PR<REG.CHQ.AMOUNT>
CHQ.NO = FIELD(CMD.LIST<REC.IND>,'-',2)
DRAWER.ID = FIELD(CMD.LIST<REC.IND>,'-',3)
BC.CODE = FIELD(CMD.LIST<REC.IND>,'-',1)
IF NO.OF.RECS = REC.IND THEN

ALL.DATA<-1> = '|':R.PR<REG.ACCOUNT>:'|':R.PR<REG.DEPOSIT.DATE>:'|':R.PR<REG.PRESENTATION.DATE>:'|':R.PR<REG.CHQ.DATE>:'|':CHQ.NO:'|':R.PR<REG.CHQ.AMOUNT>:'|':R.PR<REG.CNTG.ACCOUNT>:'|':DRAWER.ID:'|':BC.CODE:'|':R.PR<REG.CHQ.STATUS>
FOR ARR.IND = 1 TO NO.OF.RECS
ALL.DATA<ARR.IND> = NO.OF.RECS:'|':TOT.AMT:ALL.DATA<ARR.IND>
NEXT ARR.IND
END
ELSE
ALL.DATA<-1> = '|':R.PR<REG.ACCOUNT>:'|':R.PR<REG.DEPOSIT.DATE>:'|':R.PR<REG.PRESENTATION.DATE>:'|':R.PR<REG.CHQ.DATE>:'|':CHQ.NO:'|':R.PR<REG.CHQ.AMOUNT>:'|':R.PR<REG.CNTG.ACCOUNT>:'|':DRAWER.ID:'|':BC.CODE:'|':R.PR<REG.CHQ.STATUS>
END
NEXT REC.IND

RETURN
END

Please Log in or Create an account to join the conversation.

  • jpb
  • jpb's Avatar
  • Offline
  • Moderator
  • Moderator
  • retired . . . ¯\_(ツ)_/¯
More
12 years 1 month ago #13945 by jpb
Do you use selection in ENQUIRY.REPORT or a RG operator?

Check your concatinated CMD before the CALL EB.READLIST , e.g. TEXT = CMD ; CALL REM
The following user(s) said Thank You: kareem.magdy

Please Log in or Create an account to join the conversation.

Time to create page: 0.035 seconds