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" ; 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
Z += 1 ; F(Z) = 'CC.SETLMNT.CATG' ; N(Z) = "10.5";
T(Z) = "A"
CHECKFILE(Z) = 'CATEGORY':FM: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
Z += 1 ; F(Z) = 'XX<BILL.PAY.CATG' ; N(Z) = "10.5";
T(Z) = "A"
CHECKFILE(Z) = 'CATEGORY':FM: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' ;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
