Hi everyone,
Thanks guys, the problem has been resolved. i was using the following
highlighted line CHECK.ID tag, by commenting it, the problem is resolved,
thanks once again.
CHECK.ID:
V$ERROR = 0
E = ''
ID.NEW = FMT(ID.NEW,"4'0'R")
IF E THEN
V$ERROR = 1
CALL ERR
END
RETURN
On Fri, Jan 8, 2010 at 9:51 PM, Igor Micev <[email protected]> wrote:
> Hi,
> At first, I would say it is the ID length , you've put 6, try with more
> length.
>
>
> On Fri, Jan 8, 2010 at 8:51 AM, fahad akber
> <[email protected]>wrote:
>
>> Hi everyone,
>>
>> I have created a template with $HIS, $NAU and LIVE files. Record ID for
>> the template is user assigned. *The problem i am facing is when creating
>> record for this template, the ID generated contains garbage values as well.
>> *(e.g i entered 'SYSTEM' as record ID, it is appearing as SYSTû00EM*). *any
>> help on this would be appreciated.
>>
>> please review record details as below:
>>
>> ATM.PARAM.ID...... SYSTû00EM
>>
>>
>> ------------------------------------------------------------------------------
>> 1 HO.SETLMNT.CATG... 12806 HO ACCT ATM
>> 2 CC.SETLMNT.CATG... 12817 Ho AC Cr Card
>> 3 CC.CHRGS.CATG..... 17608 DrCardCCCenter
>> 4. 1 BILL.PAY.CATG.. 12806 HO ACCT ATM
>> 5. 1. 1 BILL.CODE... SG001
>> 6. 1. 1 BILL.DESCP..
>> 7 MINI.STMT.CNT..... 8
>> 8. 1 BANK.IMD.......
>> 9. 1 BANK.IMD.DESC..
>> 10 ATM.USER.ID.......
>> 11 ATM.USER.PWD......
>> 12 RESERVED.10.......
>> 13 RESERVED.09.......
>> 14 RESERVED.08.......
>> 15 RESERVED.07.......
>> 16 RESERVED.06.......
>>
>> details of F.FILE.CONTROL is as follows:
>>
>> 0001ATM PARAMETER FILE
>> 0002 EB
>> 0003 $HIS]$NAU
>> 0004 4
>> 0005 17
>> 0006 INT
>> 0007 IMPLEMENTATION
>> 0008 N
>> 0009 Y
>> 0010
>> 0011
>> 0012 PK.H.PHX.ATMPARAMS
>> 0013
>> 0014 1
>> 0015 593_FAKBER.02
>> 0016 1001071557
>> 0017 593_FAKBER.02
>> 0018 PK0010001
>> 0019 1003111040
>>
>> I have not edited the code of template except DEFINE.PARAMETERS tag which
>> is as follows:
>>
>> DEFINE.PARAMETERS:
>> * SEE 'I_RULES' FOR DESCRIPTIONS *
>> REM > CALL XX.FIELD.DEFINITIONS
>> MAT F = "" ; MAT N = "" ; MAT T = ""
>> MAT CONCATFILE = "" ; MAT CHECKFILE = ""
>> ID.CHECKFILE = "" ; ID.CONCATFILE = ""
>> *
>> ID.F = "ATM.PARAM.ID <http://atm.param.id/>" ; ID.N = "6" ; ID.T =
>> "A"
>> *
>> Z = 0
>>
>> Z += 1 ; F(Z) = 'HO.SETLMNT.CATG' ; N(Z) = "10.5" ;
>> T(Z) = "A"
>> CHECKFILE(Z) =
>> 'CATEGORY':FM:EB.CAT.SHORT.NAME<http://eb.cat.short.name/>
>> Z += 1 ; F(Z) = 'CC.SETLMNT.CATG' ; N(Z) = "10.5";
>> T(Z) = "A"
>> CHECKFILE(Z) =
>> 'CATEGORY':FM:EB.CAT.SHORT.NAME<http://eb.cat.short.name/>
>> Z += 1 ; F(Z) = 'CC.CHRGS.CATG' ; N(Z) = "10.5";
>> T(Z) = "A"
>> CHECKFILE(Z) =
>> 'CATEGORY':FM:EB.CAT.SHORT.NAME<http://eb.cat.short.name/>
>> Z += 1 ; F(Z) = 'XX<BILL.PAY.CATG' ; N(Z) = "10.5";
>> T(Z) = "A"
>> CHECKFILE(Z) =
>> 'CATEGORY':FM:EB.CAT.SHORT.NAME<http://eb.cat.short.name/>
>> Z += 1 ; F(Z) = 'XX-XX<BILL.CODE' ; N(Z) = "10";
>> T(Z) = "A"
>> Z += 1 ; F(Z) = 'XX>XX>BILL.DESCP' ; N(Z) = "35";
>> T(Z) = "A"
>> Z += 1 ; F(Z) = 'MINI.STMT.CNT' ; N(Z) = "2"; T(Z)
>> = "A"
>> Z += 1; F(Z) = 'XX<BANK.IMD' ; N(Z) = "10";
>> T(Z) = "A"
>> Z += 1; F(Z) = 'XX>BANK.IMD.DESC' ; N(Z) = "35";
>> T(Z) = "A"
>> Z += 1; F(Z) = 'ATM.USER.ID <http://atm.user.id/>'
>> ;N(Z) = "15"; T(Z) = "A"
>> Z += 1; F(Z) = 'ATM.USER.PWD' ;N(Z) = "15";
>> T(Z) = "A"
>>
>> Z += 1 ; F(Z) = "RESERVED.10" ; N(Z) = "15"; T(Z)<1> = "A" ;
>> T(Z)<3>="NOINPUT"
>> Z += 1 ; F(Z) = "RESERVED.09" ; N(Z) = "15"; T(Z)<1> = "A" ;
>> T(Z)<3>="NOINPUT"
>> Z += 1 ; F(Z) = "RESERVED.08" ; N(Z) = "15"; T(Z)<1> = "A" ;
>> T(Z)<3>="NOINPUT"
>> Z += 1 ; F(Z) = "RESERVED.07" ; N(Z) = "15"; T(Z)<1> = "A" ;
>> T(Z)<3>="NOINPUT"
>> Z += 1 ; F(Z) = "RESERVED.06" ; N(Z) = "15"; T(Z)<1> = "A" ;
>> T(Z)<3>="NOINPUT"
>> Z += 1 ; F(Z) = "RESERVED.05" ; N(Z) = "15"; T(Z)<1> = "A" ;
>> T(Z)<3>="NOINPUT"
>> Z += 1 ; F(Z) = "RESERVED.04" ; N(Z) = "15"; T(Z)<1> = "A" ;
>> T(Z)<3>="NOINPUT"
>> Z += 1 ; F(Z) = "RESERVED.03" ; N(Z) = "15"; T(Z)<1> = "A" ;
>> T(Z)<3>="NOINPUT"
>> Z += 1 ; F(Z) = "RESERVED.02" ; N(Z) = "15"; T(Z)<1> = "A" ;
>> T(Z)<3>="NOINPUT"
>> Z += 1 ; F(Z) = "RESERVED.01" ; N(Z) = "15"; T(Z)<1> = "A" ;
>> T(Z)<3>="NOINPUT"
>>
>> V = Z + 9
>> PREFIX = "PK.ATM"
>> RETURN
>> System information is as follows:
>>
>> System Information
>> ==================
>> System : HP-UX baft24a B.11.23.U ia64
>> UNIX User : btest (uid 127, euid 127)
>> Tty name : /dev/pts/ty
>> Time : Fri Jan 8 12:47:26 2010
>> Environment
>> ===========
>> JBCPORTNO : '501-2499'
>> JBCRELEASEDIR : '/temenos/jbase4122/jbase4122'
>> JBCGLOBALDIR : '/temenos/jbase4122/jbase4122'
>> JBCDATADIR : '/temenos/jbase4122/jbase4122/jbase_data'
>> WARNING: JBCDATADIR is subdirectory of JBCGLOBALDIR
>> HOME : '/temenos/btest/bnk/bnk.run'
>> JEDIFILEPATH : '/temenos/btest/bnk/bnk.run'
>> JEDIFILENAME_MD : '/temenos/btest/bnk/bnk.run/VOC'
>> JEDIFILENAME_SYSTEM : '/temenos/btest/bnk/bnk.run/SYSTEM'
>> RELEASE Information : Major 4.1 , Minor 5.22 , Patch 5758 (Change
>> 65052)
>> Spooler dir (JBCSPOOLERDIR) : '/temenos/btest/bnk/bnk.run/jspooler'
>> JBCEMULATE : 'prime'
>> WARNING: Cannot access Executable path '/usr/vac/bin', error 2
>> WARNING: Cannot access Executable path '/usr/ucb', error 2
>> WARNING: Cannot access Library path
>> '/temenos/jbase4122/jbase4122/jdk/jre/lib/platform', error 2
>> Object path (JBCOBJECTLIST) :
>> '/temenos/btest/bnk/bnk.run/lib:/temenos/btest/bnk/bnk.run/globuslib:/temenos/jb
>>
>> ase4122/jbase4122/lib:/temenos/btest/bnk/bnk.run/swiftpack/GR0100040lib:/temenos/btest/bnk/bnk.run/GR0300019li
>>
>> b:/temenos/btest/bnk/bnk.run/amllib:/temenos/btest/bnk/bnk.run/gdGR0700001lib:/temenos/btest/bnk/bnk.run/GR070
>> 0001Obj/gdGR0700001lib:/temenos/btest/bnk/bnk.run/phoenixlib'
>> jBASE Compiler Run-time :
>> '/temenos/jbase4122/jbase4122/config/system.properties'
>> Program dir (JBCDEV_BIN) : '/temenos/btest/bnk/bnk.run/bin'
>> Subroutine dir (JBCDEV_LIB) : '/temenos/btest/bnk/bnk.run/lib'
>> Max open files : 4096
>>
>> regards,
>>
>> Fahad Akber
>>
>> --
>> 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
>>
>>
>
>
> --
> Igor Micev
>
> --
> 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 at http://groups.google.com/group/jBASE?hl=en
