Hi, it's not easy to understand a source code with FOR...NEXTs taking 10 screens and very long lines.... Hint: use a backslash for line continuation, and BI command in JED :))
However it looks that you have 3 start-of-loops and 2 end-of-loops: FOR I = 1 TO TOT.AC ... FOR K = 1 TO TOT.AC.IMG ... FOR J = 1 TO TOT.IMG .............. NEXT J *NEXT K NEXT I And - actually - what the error is? Entering a debugger? VK On Oct 5, 9:47 am, syed raza <[email protected]> wrote: > * * I made the following mainline routine and getting the errors which is > given below. I will be extremely thankful if u could provide me with the > solution for the error in main line routine. > > DEBUG statement seen > > Source changed to /T24/t24silk/bnk/bnk.run/PK.BP/SILK.PK.ACCT.INFO > > 0719 DEBUG > > jBASE debugger->S > > 0720 WRITESEQ DATA.ACC TO FIN.IN.PNTR ELSE > > jBASE debugger->S > > 0723 CLOSESEQ FIN.IN.PNTR > > jBASE debugger->S > > 0727 RETURN > > jBASE debugger->S > > Line 20 , Source DEL.VER.LINK.DEF > > jBASE debugger->S > > Line 23 , Source DEL.VER.LINK.DEF > > jBASE debugger->S > > Line 24 , Source DEL.VER.LINK.DEF > > jBASE debugger->S > > Line 26 , Source DEL.VER.LINK.DEF > > jBASE debugger-> > > *-------------------------------------------------------------------------- > --- > > *-------------------------------------------------------------------------- > --- > SUBROUTINE SILK.PK.ACCT.INFO > > $INSERT I_COMMON > $INSERT I_EQUATE > $INSERT I_ENQUIRY.COMMON > > $INSERT I_F.ACCOUNT > $INSERT I_F.CUSTOMER > $INSERT I_F.USER > > $INSERT I_F.DEPT.ACCT.OFFICER > $INSERT I_F.CATEGORY > $INSERT I_F.POSTING.RESTRICT > $INSERT I_F.IM.DOCUMENT.IMAGE > > $INSERT I_F.INDUSTRY > > GOSUB INIT > GOSUB PROCESS > > RETURN > > INIT: > > FN.ACC = "F.ACCOUNT" > F.ACC = "" > CALL OPF(FN.ACC,F.ACC) > > FN.POSTREST = "F.POSTING.RESTRICT" > F.POSTREST = "" > CALL OPF(FN.POSTREST,F.POSTREST) > > FN.IMAGE = "F.IM.DOCUMENT.IMAGE" > F.IMAGE = "" > CALL OPF(FN.IMAGE,F.IMAGE) > > FN.CUS = "F.CUSTOMER" > F.CUS = "" > CALL OPF(FN.CUS,F.CUS) > > FN.DEPT = "F.DEPT.ACCT.OFFICER" > F.DEPT = "" > CALL OPF(FN.DEPT,F.DEPT) > > FN.CATEG = "F.CATEGORY" > F.CATEG = "" > CALL OPF(FN.CATEG,F.CATEG) > > FN.US = "F.USER" > F.US = "" > CALL OPF(FN.US,F.US) > > RISK.CD = "" > PRF.CD = "" > FATHER = "" > CALL GET.LOCAL.REF("ACCOUNT","KYC.RISK.PROF",RISK.CD) > CALL GET.LOCAL.REF("CUSTOMER","PROF.CODE",PRF.CD) > CALL GET.LOCAL.REF("CUSTOMER","FATHERS.NAME",FATHER) > > OPENSEQ 'CASA.BP',"List.of.Accounts.Opened.FOBOs.Service.(BB)-":TODAY:".csv" > TO FIN.IN.PNTR ELSE > > CREATE FIN.IN.PNTR ELSE > STOP > END > > END > > DATA.1 = "Branch|Account ID|CP No.|Customer Name|Account > Currency|Account Opening Date|Title|Product ID|Product Description|Segment > Code|Correspondence Address|Father's Name|Gender|Profession Code|Risk > Profile|NDS Status Marked/Unmarked|Processing Status|Date of > Processing(YY/MM/DD)|Inputter Name|Inputter ID|Authoriser Name|Authoriser > ID|SSC Status|Date of SSC Processing(YY/MM/DD)|SSC Inputter Name|SSC > Inputter ID|SSC Authoriser Name|SSC Authoriser ID" > > RETURN > > **************************************************** > PROCESS: > **************************************************** > > CRT " Selecting ACCOUNTS " > > SEL.CMD = "SELECT ":FN.ACC:" WITH OPENING.DATE EQ 20110922 " > > CALL EB.READLIST(SEL.CMD,AC.LIST,"",TOT.AC,AC.ERR) > > FOR I = 1 TO TOT.AC > > AC.ID = "" > > CRT " PROCESSING ACCOUNTS " > > AC.ID = AC.LIST<I> > > CALL F.READ(FN.ACC,AC.ID,R.ACC,F.ACC,ACC.ERR) > > INP = R.ACC<AC.INPUTTER> > > IF INP NE "" THEN > INPT = INP[6,10] > CALL F.READ(FN.US,INPT,R.US,F.US,US.ERR) > > INP.NAME = R.US<EB.USE.USER.NAME> > INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CD = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CD,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NAME = R.DEPT<EB.DAO.AREA> > END > > IF INP.NAME EQ "" AND INP.SIGN EQ "" AND INP NE "" THEN > INPT = INP[3,10] > CALL F.READ(FN.US,INPT,R.US,F.US,US.ERR) > INP.NAME = R.US<EB.USE.USER.NAME> > INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CD = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CD,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NAME = R.DEPT<EB.DAO.AREA> > END > > IF INP.NAME EQ "" AND INP.SIGN EQ "" AND INP NE "" THEN > INPT = INP[6,8] > CALL F.READ(FN.US,INPT,R.US,F.US,US.ERR) > INP.NAME = R.US<EB.USE.USER.NAME> > INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CD = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CD,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NAME = R.DEPT<EB.DAO.AREA> > END > > IF INP.NAME EQ "" AND INP.SIGN EQ "" AND INP NE "" THEN > INPT = INP[6,7] > CALL F.READ(FN.US,INPT,R.US,F.US,US.ERR) > INP.NAME = R.US<EB.USE.USER.NAME> > INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CD = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CD,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NAME = R.DEPT<EB.DAO.AREA> > END > > IF INP.NAME EQ "" AND INP.SIGN EQ "" AND INP NE "" THEN > INPT = INP[4,10] > CALL F.READ(FN.US,INPT,R.US,F.US,US.ERR) > INP.NAME = R.US<EB.USE.USER.NAME> > INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CD = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CD,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NAME = R.DEPT<EB.DAO.AREA> > END > IF INP.NAME EQ "" AND INP.SIGN EQ "" AND INP NE "" THEN > INPT = INP[4,11] > CALL F.READ(FN.US,INPT,R.US,F.US,US.ERR) > INP.NAME = R.US<EB.USE.USER.NAME> > INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CD = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CD,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NAME = R.DEPT<EB.DAO.AREA> > END > IF INP.NAME EQ "" AND INP.SIGN EQ "" AND INP NE "" THEN > INPT = INP[3,11] > CALL F.READ(FN.US,INPT,R.US,F.US,US.ERR) > INP.NAME = R.US<EB.USE.USER.NAME> > INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CD = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CD,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NAME = R.DEPT<EB.DAO.AREA> > END > > IF INP.NAME EQ "" AND INP.SIGN EQ "" AND INP NE "" THEN > INPT = INP[4,7] > CALL F.READ(FN.US,INPT,R.US,F.US,US.ERR) > INP.NAME = R.US<EB.USE.USER.NAME> > INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CD = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CD,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NAME = R.DEPT<EB.DAO.AREA> > END > IF INP.NAME EQ "" AND INP.SIGN EQ "" AND INP NE "" THEN > INPT = INP[4,6] > CALL F.READ(FN.US,INPT,R.US,F.US,US.ERR) > INP.NAME = R.US<EB.USE.USER.NAME> > INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CD = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CD,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NAME = R.DEPT<EB.DAO.AREA> > END > IF INP.NAME EQ "" AND INP.SIGN EQ "" AND INP NE "" THEN > INPT = INP[3,8] > CALL F.READ(FN.US,INPT,R.US,F.US,US.ERR) > INP.NAME = R.US<EB.USE.USER.NAME> > INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CD = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CD,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NAME = R.DEPT<EB.DAO.AREA> > END > IF INP.NAME EQ "" AND INP.SIGN EQ "" AND INP NE "" THEN > INPT = INP[4,8] > CALL F.READ(FN.US,INPT,R.US,F.US,US.ERR) > INP.NAME = R.US<EB.USE.USER.NAME> > INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CD = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CD,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NAME = R.DEPT<EB.DAO.AREA> > END > > IF INP.NAME EQ "" AND INP.SIGN EQ "" AND INP NE "" THEN > INPT = INP[6,11] > CALL F.READ(FN.US,INPT,R.US,F.US,US.ERR) > INP.NAME = R.US<EB.USE.USER.NAME> > INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CD = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CD,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NAME = R.DEPT<EB.DAO.AREA> > END > > AUT = R.ACC<AC.AUTHORISER> > > IF AUT NE "" THEN > AUTT = AUT[6,10] > CALL F.READ(FN.US,AUTT,R.US,F.US,US.ERR) > > AUT.NAME = R.US<EB.USE.USER.NAME> > AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CDE = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CDE,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NM = R.DEPT<EB.DAO.AREA> > END > > IF AUT.NAME EQ "" AND AUT.SIGN EQ "" AND AUT NE "" THEN > AUTT = AUT[3,10] > CALL F.READ(FN.US,AUTT,R.US,F.US,US.ERR) > > AUT.NAME = R.US<EB.USE.USER.NAME> > AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CDE = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CDE,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NM = R.DEPT<EB.DAO.AREA> > END > > IF AUT.NAME EQ "" AND AUT.SIGN EQ "" AND AUT NE "" THEN > AUTT = AUT[6,8] > CALL F.READ(FN.US,AUTT,R.US,F.US,US.ERR) > > AUT.NAME = R.US<EB.USE.USER.NAME> > AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CDE = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CDE,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NM = R.DEPT<EB.DAO.AREA> > END > > IF AUT.NAME EQ "" AND AUT.SIGN EQ "" AND AUT NE "" THEN > AUTT = AUT[6,7] > CALL F.READ(FN.US,AUTT,R.US,F.US,US.ERR) > > AUT.NAME = R.US<EB.USE.USER.NAME> > AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CDE = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CDE,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NM = R.DEPT<EB.DAO.AREA> > END > > IF AUT.NAME EQ "" AND AUT.SIGN EQ "" AND AUT NE "" THEN > AUTT = AUT[4,10] > CALL F.READ(FN.US,AUTT,R.US,F.US,US.ERR) > > AUT.NAME = R.US<EB.USE.USER.NAME> > AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CDE = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CDE,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NM = R.DEPT<EB.DAO.AREA> > END > IF AUT.NAME EQ "" AND AUT.SIGN EQ "" AND AUT NE "" THEN > AUTT = AUT[4,11] > CALL F.READ(FN.US,AUTT,R.US,F.US,US.ERR) > > AUT.NAME = R.US<EB.USE.USER.NAME> > AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CDE = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CDE,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NM = R.DEPT<EB.DAO.AREA> > END > IF AUT.NAME EQ "" AND AUT.SIGN EQ "" AND AUT NE "" THEN > AUTT = AUT[3,11] > CALL F.READ(FN.US,AUTT,R.US,F.US,US.ERR) > > AUT.NAME = R.US<EB.USE.USER.NAME> > AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CDE = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CDE,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NM = R.DEPT<EB.DAO.AREA> > END > > IF AUT.NAME EQ "" AND AUT.SIGN EQ "" AND AUT NE "" THEN > AUTT = AUT[4,7] > CALL F.READ(FN.US,AUTT,R.US,F.US,US.ERR) > > AUT.NAME = R.US<EB.USE.USER.NAME> > AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CDE = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CDE,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NM = R.DEPT<EB.DAO.AREA> > END > IF AUT.NAME EQ "" AND AUT.SIGN EQ "" AND AUT NE "" THEN > AUTT = AUT[4,6] > CALL F.READ(FN.US,AUTT,R.US,F.US,US.ERR) > > AUT.NAME = R.US<EB.USE.USER.NAME> > AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CDE = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CDE,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NM = R.DEPT<EB.DAO.AREA> > END > IF AUT.NAME EQ "" AND AUT.SIGN EQ "" AND AUT NE "" THEN > AUTT = AUT[3,8] > CALL F.READ(FN.US,AUTT,R.US,F.US,US.ERR) > > AUT.NAME = R.US<EB.USE.USER.NAME> > AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CDE = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CDE,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NM = R.DEPT<EB.DAO.AREA> > END > IF AUT.NAME EQ "" AND AUT.SIGN EQ "" AND AUT NE "" THEN > AUTT = AUT[4,8] > CALL F.READ(FN.US,AUTT,R.US,F.US,US.ERR) > > AUT.NAME = R.US<EB.USE.USER.NAME> > AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CDE = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CDE,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NM = R.DEPT<EB.DAO.AREA> > END > > IF AUT.NAME EQ "" AND AUT.SIGN EQ "" AND AUT NE "" THEN > AUTT = AUT[6,11] > CALL F.READ(FN.US,AUTT,R.US,F.US,US.ERR) > > AUT.NAME = R.US<EB.USE.USER.NAME> > AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > DEPT.CDE = R.US<EB.USE.DEPARTMENT.CODE> > CALL F.READ(FN.DEPT,DEPT.CDE,R.DEPT,F.DEPT,DEPT.ERR) > DEPT.NM = R.DEPT<EB.DAO.AREA> > END > > CATEG = R.ACC<AC.CATEGORY> > COMPY.CODE = R.ACC<AC.CO.CODE> > > POST.RT.ID = R.ACC<AC.POSTING.RESTRICT> > > CALL F.READ(FN.POSTREST,POST.RT.ID,R.POSTREST,F.POSTREST,POSTREST.ERR) > > POS.DESC = R.POSTREST<AC.POS.DESCRIPTION> > > REC.STATUS = R.ACC<AC.RECORD.STATUS> > > IF REC.STATUS EQ "" THEN > > REC.STATUS = "Authorized" > > END ELSE > > REC.STATUS = "Record in HOLD Status" > > END > > DT.TM = R.ACC<AC.DATE.TIME> > > IF DT.TM NE "" THEN > > DT = DT.TM[1,6] > > END > > DEP.CODE = R.ACC<AC.ACCOUNT.OFFICER> > > CALL F.READ(FN.DEPT,DEP.CODE,R.DEPT,F.DEPT,DEPT.ERR) > > DEPT.NM1 = R.DEPT<EB.DAO.AREA> > > IF DEPT.NM1 EQ '' THEN > DEPT.NM1 = "N/A" > END ELSE > DEPT.NM1 = DEPT.NM1 > END > > TITLE = R.ACC<AC.ACCOUNT.TITLE.1> > > AC.CUS = R.ACC<AC.CUSTOMER> > > CALL F.READ(FN.CUS,AC.CUS,R.CUS,F.CUS,CUS.ERR) > > FATHER.NM = R.CUS<EB.CUS.LOCAL.REF,FATHER> > PROF.CD = R.CUS<EB.CUS.LOCAL.REF,PRF.CD> > RISK.PROFILE = R.ACC<AC.LOCAL.REF,RISK.CD> > > STREET =R.CUS<EB.CUS.STREET> > TOWN.COUNTRY =R.CUS<EB.CUS.TOWN.COUNTRY> > > POST.CODE =R.CUS<EB.CUS.POST.CODE> > > Customer.Address =R.CUS<EB.CUS.ADDRESS> > > Customer.Complete.Address = STREET:" ":TOWN.COUNTRY:" ":POST.CODE:" > ":Customer.Address > > CUS.GEN = R.CUS<EB.CUS.GENDER> > > CUS.PROF = R.CUS<EB.CUS.OCCUPATION> > > OP.DATE = OCONV(ICONV(R.ACC<AC.OPENING.DATE>,"D2E"),"D4E") > > CALL F.READ(FN.CATEG,CATEG,R.CATEG,F.CATEG,CATEG.ERR) > > CATEG.DESC = R.CATEG<EB.CAT.DESCRIPTION> > > CUS.NAME = R.ACC<AC.SHORT.TITLE> > > AC.CURR = R.ACC<AC.CURRENCY> > > *************************************************************************** > *************************************************************************** > *****************************CRT > " Selecting ACCOUNTS for Images" > *************************************************************************** > *************************************************************************** > ***************************** > *************************************************************************** > *************************************************************************** > *****************************SEL.CMD.IMG > = "SELECT ":FN.ACC:" WITH OPENING.DATE EQ 20110720 " > *************************************************************************** > *************************************************************************** > ***************************** > *************************************************************************** > *************************************************************************** > ***************************** > CRT " Selecting ACCOUNTS for Images" > *************************************************************************** > *************************************************************************** > ***************************** > *************************************************************************** > *************************************************************************** > ***************************** > CALL EB.READLIST(SEL.CMD.IMG,AC.LIST.IMG,"",TOT.AC.IMG,AC.IMG.ERR) > *************************************************************************** > *************************************************************************** > ***************************** > *************************************************************************** > *************************************************************************** > ***************************** > CRT " Selecting ACCOUNTS for Images " > *************************************************************************** > *************************************************************************** > ***************************** > *************************************************************************** > *************************************************************************** > ***************************** > FOR K = 1 TO TOT.AC.IMG > *************************************************************************** > *************************************************************************** > *****************************ACC.ID.IMG > = "" > *************************************************************************** > *************************************************************************** > ***************************** > CRT " PROCESSING ACCOUNTS for Images " > *************************************************************************** > *************************************************************************** > ***************************** > *************************************************************************** > *************************************************************************** > ***************************** > *************************************************************************** > *************************************************************************** > ***************************** > ACC.ID.IMG = AC.LIST.IMG<K> > > CRT " Selecting Image Info. " > > SEL.CMD1 = "SELECT ":FN.IMAGE:" WITH IMAGE.REFERENCE EQ ":AC.ID > > CALL EB.READLIST(SEL.CMD1,IMG.LIST,"",TOT.IMG,IMG.ERR) > > FOR J = 1 TO TOT.IMG > > CRT " PROCESSING Images of Accounts " > > IMG.ID = IMG.LIST<J> > > CALL F.READ(FN.IMAGE,IMG.ID,R.IMAGE,F.IMAGE,IMAGE.ERR) > > REC.STATUS1 = R.IMAGE<IM.DOC.RECORD.STATUS> > > IF REC.STATUS1 EQ "" THEN > > REC.STATUS1 = "Authorized" > > END ELSE > > REC.STATUS1 = "Record in IHLD Status" > > END > > DT.TM1 = R.IMAGE<IM.DOC.DATE.TIME> > > IF DT.TM1 NE "" THEN > > DT.IMAGE1 = DT.TM1[1,6] > > END > > IMG.INP = R.IMAGE<IM.DOC.INPUTTER> > > IF IMG.INP NE "" THEN > INPT.IMAGE = IMG.INP[6,10] > CALL F.READ(FN.US,INPT.IMAGE,R.US,F.US,US.ERR) > > IMG.INP.NAME = R.US<EB.USE.USER.NAME> > IMG.INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > > IF IMG.INP.NAME EQ "" AND IMG.INP.SIGN EQ "" AND IMG.INP NE "" THEN > INPT.IMAGE = IMG.INP[3,10] > CALL F.READ(FN.US,INPT.IMAGE,R.US,F.US,US.ERR) > > IMG.INP.NAME = R.US<EB.USE.USER.NAME> > IMG.INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > > IF IMG.INP.NAME EQ "" AND IMG.INP.SIGN EQ "" AND IMG.INP NE "" THEN > INPT.IMAGE = IMG.INP[6,8] > CALL F.READ(FN.US,INPT.IMAGE,R.US,F.US,US.ERR) > > IMG.INP.NAME = R.US<EB.USE.USER.NAME> > IMG.INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > > IF IMG.INP.NAME EQ "" AND IMG.INP.SIGN EQ "" AND IMG.INP NE "" THEN > INPT.IMAGE = IMG.INP[6,7] > CALL F.READ(FN.US,INPT.IMAGE,R.US,F.US,US.ERR) > > IMG.INP.NAME = R.US<EB.USE.USER.NAME> > IMG.INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > > IF IMG.INP.NAME EQ "" AND IMG.INP.SIGN EQ "" AND IMG.INP NE "" THEN > INPT.IMAGE = IMG.INP[4,10] > CALL F.READ(FN.US,INPT.IMAGE,R.US,F.US,US.ERR) > > IMG.INP.NAME = R.US<EB.USE.USER.NAME> > IMG.INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > IF IMG.INP.NAME EQ "" AND IMG.INP.SIGN EQ "" AND IMG.INP NE "" THEN > INPT.IMAGE = IMG.INP[4,11] > CALL F.READ(FN.US,INPT.IMAGE,R.US,F.US,US.ERR) > > IMG.INP.NAME = R.US<EB.USE.USER.NAME> > IMG.INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > IF IMG.INP.NAME EQ "" AND IMG.INP.SIGN EQ "" AND IMG.INP NE "" THEN > INPT.IMAGE = IMG.INP[3,11] > CALL F.READ(FN.US,INPT.IMAGE,R.US,F.US,US.ERR) > > IMG.INP.NAME = R.US<EB.USE.USER.NAME> > IMG.INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > > IF IMG.INP.NAME EQ "" AND IMG.INP.SIGN EQ "" AND IMG.INP NE "" THEN > INPT.IMAGE = IMG.INP[4,7] > CALL F.READ(FN.US,INPT.IMAGE,R.US,F.US,US.ERR) > > IMG.INP.NAME = R.US<EB.USE.USER.NAME> > IMG.INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > IF IMG.INP.NAME EQ "" AND IMG.INP.SIGN EQ "" AND IMG.INP NE "" THEN > INPT.IMAGE = IMG.INP[4,6] > CALL F.READ(FN.US,INPT.IMAGE,R.US,F.US,US.ERR) > > IMG.INP.NAME = R.US<EB.USE.USER.NAME> > IMG.INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > IF IMG.INP.NAME EQ "" AND IMG.INP.SIGN EQ "" AND IMG.INP NE "" THEN > INPT.IMAGE = IMG.INP[3,8] > CALL F.READ(FN.US,INPT.IMAGE,R.US,F.US,US.ERR) > > IMG.INP.NAME = R.US<EB.USE.USER.NAME> > IMG.INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > IF IMG.INP.NAME EQ "" AND IMG.INP.SIGN EQ "" AND IMG.INP NE "" THEN > INPT.IMAGE = IMG.INP[4,8] > CALL F.READ(FN.US,INPT.IMAGE,R.US,F.US,US.ERR) > > IMG.INP.NAME = R.US<EB.USE.USER.NAME> > IMG.INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > > IF IMG.INP.NAME EQ "" AND IMG.INP.SIGN EQ "" AND IMG.INP NE "" THEN > INPT.IMAGE = IMG.INP[6,11] > CALL F.READ(FN.US,INPT.IMAGE,R.US,F.US,US.ERR) > > IMG.INP.NAME = R.US<EB.USE.USER.NAME> > IMG.INP.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > > IMG.AUT = R.IMAGE<IM.DOC.AUTHORISER> > > IF IMG.AUT NE "" THEN > AUTT.IMAGE = IMG.AUT[6,10] > CALL F.READ(FN.US,AUTT.IMAGE,R.US,F.US,US.ERR) > > IMG.AUT.NAME = R.US<EB.USE.USER.NAME> > IMG.AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > > IF IMG.AUT.NAME EQ "" AND IMG.AUT.SIGN EQ "" AND IMG.AUT NE "" THEN > AUTT.IMAGE = IMG.AUT[3,10] > CALL F.READ(FN.US,AUTT.IMAGE,R.US,F.US,US.ERR) > > IMG.AUT.NAME = R.US<EB.USE.USER.NAME> > IMG.AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > END > > IF IMG.AUT.NAME EQ "" AND IMG.AUT.SIGN EQ "" AND IMG.AUT NE "" THEN > AUTT.IMAGE = IMG.AUT[6,8] > CALL F.READ(FN.US,AUTT.IMAGE,R.US,F.US,US.ERR) > > IMG.AUT.NAME = R.US<EB.USE.USER.NAME> > IMG.AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > > IF IMG.AUT.NAME EQ "" AND IMG.AUT.SIGN EQ "" AND IMG.AUT NE "" THEN > AUTT.IMAGE = IMG.AUT[6,7] > CALL F.READ(FN.US,AUTT.IMAGE,R.US,F.US,US.ERR) > > IMG.AUT.NAME = R.US<EB.USE.USER.NAME> > IMG.AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > END > > IF IMG.AUT.NAME EQ "" AND IMG.AUT.SIGN EQ "" AND IMG.AUT NE "" THEN > AUTT.IMAGE = IMG.AUT[4,10] > CALL F.READ(FN.US,AUTT.IMAGE,R.US,F.US,US.ERR) > > IMG.AUT.NAME = R.US<EB.USE.USER.NAME> > IMG.AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > END > > IF IMG.AUT.NAME EQ "" AND IMG.AUT.SIGN EQ "" AND IMG.AUT NE "" THEN > AUTT.IMAGE = IMG.AUT[4,11] > CALL F.READ(FN.US,AUTT.IMAGE,R.US,F.US,US.ERR) > > IMG.AUT.NAME = R.US<EB.USE.USER.NAME> > IMG.AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > END > IF IMG.AUT.NAME EQ "" AND IMG.AUT.SIGN EQ "" AND IMG.AUT NE "" THEN > AUTT.IMAGE = IMG.AUT[3,11] > CALL F.READ(FN.US,AUTT.IMAGE,R.US,F.US,US.ERR) > > IMG.AUT.NAME = R.US<EB.USE.USER.NAME> > IMG.AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > > END > > IF IMG.AUT.NAME EQ "" AND IMG.AUT.SIGN EQ "" AND IMG.AUT NE "" THEN > AUTT.IMAGE = IMG.AUT[4,7] > CALL F.READ(FN.US,AUTT.IMAGE,R.US,F.US,US.ERR) > > IMG.AUT.NAME = R.US<EB.USE.USER.NAME> > IMG.AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > END > IF IMG.AUT.NAME EQ "" AND IMG.AUT.SIGN EQ "" AND IMG.AUT NE "" THEN > AUTT.IMAGE = IMG.AUT[4,6] > CALL F.READ(FN.US,AUTT.IMAGE,R.US,F.US,US.ERR) > > IMG.AUT.NAME = R.US<EB.USE.USER.NAME> > IMG.AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > END > IF IMG.AUT.NAME EQ "" AND IMG.AUT.SIGN EQ "" AND IMG.AUT NE "" THEN > AUTT.IMAGE = IMG.AUT[3,8] > CALL F.READ(FN.US,AUTT.IMAGE,R.US,F.US,US.ERR) > > IMG.AUT.NAME = R.US<EB.USE.USER.NAME> > IMG.AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > END > IF IMG.AUT.NAME EQ "" AND IMG.AUT.SIGN EQ "" AND IMG.AUT NE "" THEN > AUTT.IMAGE = IMG.AUT[4,8] > CALL F.READ(FN.US,AUTT.IMAGE,R.US,F.US,US.ERR) > > IMG.AUT.NAME = R.US<EB.USE.USER.NAME> > IMG.AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > END > > **IF IMG.AUT.NAME EQ "" AND IMG.AUT.SIGN EQ "" AND IMG.AUT NE "" THEN > ** AUTT.IMAGE = IMG.AUT[6,11] > ** CALL F.READ(FN.US,AUTT.IMAGE,R.US,F.US,US.ERR) > ** > ** IMG.AUT.NAME = R.US<EB.USE.USER.NAME> > ** IMG.AUT.SIGN = R.US<EB.USE.SIGN.ON.NAME> > **END > ** > ** > ** > DATA.ACC<-1> = COMPY.CODE:"|":AC.ID:"|":AC.CUS:"|":CUS.NAME > :"|":AC.CURR:"|":OP.DATE:"|":TITLE:"|":CATEG:"|":CATEG.DESC:"|":DEPT.NM1:"| > ":Customer.Complete.Address:"|":FATHER.NM:"|":CUS.GEN:"|": > PROF.CD:"|":RISK.PROFILE:"|":POS.DESC:"|":REC.STATUS:"|":DT:"|":INP.NAME > :"|":INP.SIGN:"|":AUT.NAME:"|":AUT.SIGN:"|":REC.STATUS1:"|":DT.IMAGE1:"|": > IMG.INP.NAME:"|":IMG.INP.SIGN:"|":IMG.AUT.NAME:"|":IMG.AUT.SIGN > > NEXT J > *NEXT K > > NEXT I > CRT DATA.ACC > > WRITESEQ DATA.ACC TO FIN.IN.PNTR ELSE > END > > CLOSESEQ FIN.IN.PNTR > > *************************************************************************** > ************************* > > RETURN > END -- 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
