Connect 24 Details

[UBIDBSE]/csis/cbcadm/connect24/log> vi LISRVR_CDCI_SWIF_CPH_11344_130917_17.
log
"LISRVR_CDCI_SWIF_CPH_11344_130917_17.log" 299 lines, 12893 characters
Pid: 11344 13/09/2017 17:27:50.294 Received 289 Bytes
30 32 38 35 31 32 30 30 b0 30 81 01 40 00 80 00 02851200.0..@...
00 00 00 00 06 00 00 24 34 30 30 30 30 30 30 30 .......$40000000
30 30 30 30 30 30 32 30 30 30 30 30 30 30 31 37 0000002000000017
32 35 36 30 30 30 30 30 30 31 32 30 31 37 30 39 2560000001201709
31 33 30 35 32 37 34 39 32 30 31 37 30 39 31 33 1305274920170913
32 30 30 30 33 30 32 37 32 38 30 30 30 30 30 30 2000302728000000
30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
30 30 30 30 30 30 49 4e 52 33 32 30 32 37 20 20 000000INR32027
20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 33 03
38 39 32 31 30 30 30 31 33 32 38 33 35 20 20 30 8921000132835 0
32 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27
20 20 30 30 30 30 30 31 35 38 30 30 31 30 30 33 00000158001003
30 30 33 43 50 48 30 38 38 31 31 7c 52 54 47 53 003CPH08811|RTGS
7c 33 39 36 38 32 30 30 30 37 2d 30 2d 31 37 32 |396820007-0-172
35 36 30 30 30 30 30 30 31 7c 43 50 48 2f 55 54 560000001|CPH/UT
42 49 52 36 32 30 31 37 30 39 31 33 30 30 39 37 BIR6201709130097
35 30 30 34 2f 4b 41 50 49 4c 20 44 48 41 52 7c 5004/KAPIL DHAR|
52 54 47 53 2f 31 37 32 35 36 30 30 30 30 30 30 RTGS/17256000000
31 1
Pid: 11344 Received At: 13/09/2017 17:27:50.300
MessageId: 1200
Field 003: 400000
Field 004: 0000000020000000
Field 011: 172560000001
Field 012: 20170913052749
Field 017: 20170913
Field 024: 200
Field 032: 027
Field 034: 0000000000000000000000000000
Field 049: INR
Field 102: 027 0389210001328
Field 103: 027 00000158001003
Field 123: CPH
Field 126: 11|RTGS|396820007-0-172560000001|CPH/UTBIR62017091300975004/KAPIL DHAR|
RTGS/172560000001
<===========================================================================>
Pid: 11344 Sent Message At: 13/09/2017 17:27:50.334

version :B7.0
command :TRTR
dcId :AA
custCardId :0000000000000000000000000000
sysDateTime :20170913052749
dccId :CPH
serialNum :172560000001
qualifier :1
busDate :20170913
acqBankCode :027
destIBR :BC
foracid :0389210001328
bankCode :027
crForacid :00000158001003
crBankCode :027
tranAmt :0000000020000000
tranCrncy :INR
stlmntAmt :0000000020000000
stlmntCrncy :INR
traceFlg :N
reservedField2 :11|RTGS|396820007-0-172560000001|
CPH/UTBIR62017091300975004/KAPIL DHAR|RTGS/172560000001
<===========================================================================>
<===========================================================================>
Pid: 11344 Received Message At: 13/09/2017 17:27:51.633

version :B7.0
command :TRTS
dcId :AA
custCardId :0000000000000000000000000000
sysDateTime :20170913052749
dccId :CPH
serialNum :172560000001
qualifier :1
busDate :20170913
acqBankCode :027
destIBR :BC
foracid :0389210001328
bankCode :027
crForacid :00000158001003
crBankCode :027
tranAmt :0000000020000000
tranCrncy :INR
respCode :00
cr_availBal :-0000249758360693
cr_ledgBal :-0000249758360693
cr_floatBal :+0000000000000000
cr_ffdBal :+0000000000000000
cr_userDefBal :+0000000000000000
cr_balCrncy :INR
availBal :+0000000979848200
ledgBal :+0000000979848200
floatBal :+0000000000000000
ffdBal :+0000000000000000
userDefBal :+0000000000000000
balCrncy :INR
stlmntAmt :0000000020000000
stlmntCrncy :INR
traceFlg :N
reservedField2 :11|RTGS|396820007-0-172560000001|
CPH/UTBIR62017091300975004/KAPIL DHAR|RTGS/172560000001
reservedField3 :N|A|N|N|A|N
approvalCode :UNI000
<===========================================================================>
Pid: 11344 Sent At: 13/09/2017 17:27:51.650

MessageId: 1210
Field 003: 400000
Field 004: 0000000020000000
Field 011: 172560000001
Field 012: 20170913052749
Field 017: 20170913
Field 032: 027
Field 034: 0000000000000000000000000000
Field 038: UNI000
Field 039: 000
Field 048:
+0000000979848200+0000000979848200+0000000000000000+0000000000000000+00000000000000
00INR -0000249758360693-0000249758360693+0000000000000000+0000000000
000000+0000000000000000INR
Field 049: INR
Field 123: CPH
Field 126: 11|RTGS|396820007-0-172560000001|CPH/UTBIR62017091300975004/KAPIL DHAR|
RTGS/172560000001
Field 127: N|A|N|N|A|N
Pid: 11344 13/09/2017 17:27:51.651 Sent 445 Bytes
30 34 34 31 31 32 31 30 b0 30 80 01 46 01 80 00 04411210.0..F...
00 00 00 00 00 00 00 26 34 30 30 30 30 30 30 30 .......&40000000
30 30 30 30 30 30 32 30 30 30 30 30 30 30 31 37 0000002000000017
32 35 36 30 30 30 30 30 30 31 32 30 31 37 30 39 2560000001201709
31 33 30 35 32 37 34 39 32 30 31 37 30 39 31 33 1305274920170913
30 33 30 32 37 32 38 30 30 30 30 30 30 30 30 30 0302728000000000
30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
30 30 30 55 4e 49 30 30 30 30 30 30 32 30 34 2b 000UNI000000204+
30 30 30 30 30 30 30 39 37 39 38 34 38 32 30 30 0000000979848200
2b 30 30 30 30 30 30 30 39 37 39 38 34 38 32 30 +000000097984820
30 2b 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0+00000000000000
30 30 2b 30 30 30 30 30 30 30 30 30 30 30 30 30 00+0000000000000
30 30 30 2b 30 30 30 30 30 30 30 30 30 30 30 30 000+000000000000
30 30 30 30 49 4e 52 20 20 20 20 20 20 20 20 20 0000INR
20 20 20 20 20 2d 30 30 30 30 32 34 39 37 35 38 -0000249758
33 36 30 36 39 33 2d 30 30 30 30 32 34 39 37 35 360693-000024975
38 33 36 30 36 39 33 2b 30 30 30 30 30 30 30 30 8360693+00000000
30 30 30 30 30 30 30 30 2b 30 30 30 30 30 30 30 00000000+0000000
30 30 30 30 30 30 30 30 30 2b 30 30 30 30 30 30 000000000+000000
30 30 30 30 30 30 30 30 30 30 49 4e 52 20 20 20 0000000000INR
20 20 20 20 20 20 20 20 20 20 20 49 4e 52 30 30 INR00
33 43 50 48 30 38 38 31 31 7c 52 54 47 53 7c 33 3CPH08811|RTGS|3
39 36 38 32 30 30 30 37 2d 30 2d 31 37 32 35 36 96820007-0-17256
30 30 30 30 30 30 31 7c 43 50 48 2f 55 54 42 49 0000001|CPH/UTBI
52 36 32 30 31 37 30 39 31 33 30 30 39 37 35 30 R620170913009750
30 34 2f 4b 41 50 49 4c 20 44 48 41 52 7c 52 54 04/KAPIL DHAR|RT
47 53 2f 31 37 32 35 36 30 30 30 30 30 30 31 30 GS/1725600000010
31 31 4e 7c 41 7c 4e 7c 4e 7c 41 7c 4e 11N|A|N|N|A|N
Pid: 11344 13/09/2017 17:28:09.767 Received 283 Bytes
30 32 37 39 31 32 30 30 b0 30 81 01 40 00 80 00 02791200.0..@...
00 00 00 00 06 00 00 24 34 30 30 30 30 30 30 30 .......$40000000
30 30 30 30 30 30 30 30 30 32 30 30 30 30 31 37 0000000002000017
32 35 36 30 30 30 30 30 30 32 32 30 31 37 30 39 2560000002201709
31 33 30 35 32 38 30 39 32 30 31 37 30 39 31 33 1305280920170913
32 30 30 30 33 30 32 37 32 38 30 30 30 30 30 30 2000302728000000
30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
30 30 30 30 30 30 49 4e 52 33 32 30 32 37 20 20 000000INR32027
20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 33 03
38 39 32 31 30 30 30 31 33 32 38 33 35 20 20 30 8921000132835 0
32 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27
20 20 30 30 30 30 30 31 35 38 30 30 31 30 30 33 00000158001003
30 30 33 43 50 48 30 38 32 31 31 7c 4e 45 46 54 003CPH08211|NEFT
7c 33 39 36 38 32 30 30 30 38 2d 30 2d 31 37 32 |396820008-0-172
:q
[UBIDBSE]/csis/cbcadm/connect24/log> ps -eaf|grep -i cbc|grep 11344
cbcadm 11344 11112 0 Sep 11 ? 0:00 /csis/cbcadm/connect24/bin/cdci-
swif-lisrvr
[UBIDBSE]/csis/cbcadm/connect24/log> cd ../bin
[UBIDBSE]/csis/cbcadm/connect24/bin> ls -lrt
total 48
-rwxrwxrwx 1 cbcadm dba 548 Aug 20 2013 start-cbc_old
lrwxrwxr-x 1 cbcadm dba 33 Feb 15 2017 pbp-cdci-swif-lisrvr
-> /csis/cbcadm/connect24/exe/lisrvr
lrwxrwxr-x 1 cbcadm dba 33 Feb 15 2017 cdci-swif-lisrvr ->
/csis/cbcadm/connect24/exe/lisrvr
lrwxrwxr-x 1 cbcadm dba 32 Feb 15 2017 pbp-maria ->
/csis/cbcadm/connect24/exe/maria
lrwxrwxr-x 1 cbcadm dba 32 Feb 15 2017 maria ->
lrwxrwxr-x 1 cbcadm dba 31 Feb 15 2017 limo ->
/csis/cbcadm/connect24/exe/limo
lrwxrwxr-x 1 cbcadm dba 33 Feb 15 2017 bc-mon-lisrvr ->
lrwxrwxr-x 1 cbcadm dba 33 Feb 15 2017 bc-echo-lisrvr ->
lrwxrwxr-x 1 cbcadm dba 44 Feb 15 2017 uniserver_clnt.so ->
/csis/cbcadm/connect24/exe/uniserver_clnt.so
lrwxrwxr-x 1 cbcadm dba 34 Feb 15 2017 swif.so ->
/csis/cbcadm/connect24/exe/swif.so
-rwxrwxrwx 1 cbcadm dba 511 Feb 15 2017 start-cbc
-rwxrwxrwx 1 cbcadm dba 133 Feb 15 2017 stop-cbc
-rw-rw-r-- 1 cbcadm dba 0 Sep 11 15:53
LimoIsUp_856fcbe329b4acdf6a37b5a1d488309a.pid
[UBIDBSE]/csis/cbcadm/connect24/bin> cd ../exe
[UBIDBSE]/csis/cbcadm/connect24/exe> ls -lrt
total 119648
-rwxrwxr-x 1 cbcadm dba 3382 Feb 24 2012 aroledb.a
-rwxrwxr-x 1 cbcadm dba 2565524 Feb 24 2012 arbasic.a
-rwxrwxr-x 1 cbcadm dba 273562 Feb 24 2012 ardb.a
-rwxrwxr-x 1 cbcadm dba 647598 Feb 24 2012 aripc.a
-rwxrwxr-x 1 cbcadm dba 131928 Feb 24 2012 oci8.a
-rwxrwxr-x 1 cbcadm dba 374246 Feb 24 2012 arlimoc.a
-rwxrwxr-x 1 cbcadm dba 207338 Feb 24 2012 arlimos.a
-rwxrwxr-x 1 cbcadm dba 1030538 Feb 24 2012 armrt.a
-rwxrwxr-x 1 cbcadm dba 23922 Feb 24 2012 arthread.a
-rwxrwxr-x 1 cbcadm dba 802896 Feb 24 2012 scriptengine.a
-rwxrwxr-x 1 cbcadm dba 6526 Feb 24 2012 arpack.a
-rwxrwxr-x 1 cbcadm dba 256706 Feb 24 2012 arudbc.a
-rwxrwxr-x 1 cbcadm dba 133744 Feb 24 2012 FinacleAgent.a
-rwxrwxr-x 1 cbcadm dba 34834 Feb 24 2012 faarchive.a
-rwxrwxr-x 1 cbcadm dba 14876 Feb 24 2012 finopcagt.a
-rwxrwxr-x 1 cbcadm dba 94992 Feb 24 2012 arappmonitor.a
-rwxrwxr-x 1 cbcadm dba 30100 Feb 24 2012 opconsole.a
-rwxrwxr-x 1 cbcadm dba 35156 Feb 24 2012 argen.a
-rwxrwxr-x 1 cbcadm dba 390418 Feb 24 2012 FDCServer.a
-rwxrwxr-x 1 cbcadm dba 1093846 Feb 24 2012 FDCAgent.a
-rwxrwxr-x 1 cbcadm dba 106110 Feb 24 2012 FDCAListener.a
-rwxrwxr-x 1 cbcadm dba 94134 Feb 24 2012 FDCSListener.a
-rwxrwxr-x 1 cbcadm dba 62442 Feb 24 2012 FDCScheduler.a
-rwxrwxr-x 1 cbcadm dba 875 Apr 9 2014 HPchatr
-rwxrwxr-x 1 cbcadm dba 264600 Nov 8 2014 utpcomm.so
-rwxrwxr-x 1 cbcadm dba 258236 Nov 8 2014 lisrvr
-rwxrwxr-x 1 cbcadm dba 188452 Nov 8 2014 limo
-rwxrwxr-x 1 cbcadm dba 75116 Nov 8 2014 genpwdfile
-rwxrwxr-x 1 cbcadm dba 73856 Nov 8 2014 finopcagt.so
-rwxrwxr-x 1 cbcadm dba 5484736 Nov 8 2014 fabmonitor.so
-rwxrwxr-x 1 cbcadm dba 4821556 Nov 8 2014 refreshtosis.so
-rwxrwxr-x 1 cbcadm dba 4582764 Nov 8 2014 uniserver.so
-rwxrwxr-x 1 cbcadm dba 4582764 Nov 8 2014 sisserver.so
-rwxrwxr-x 1 cbcadm dba 818364 Nov 8 2014 sismonitor.so
-rwxrwxr-x 1 cbcadm dba 568540 Nov 8 2014 siscardlmtcheck.so
-rwxrwxr-x 1 cbcadm dba 85836 Nov 8 2014 router.so
[UBIDBSE]/csis/cbcadm/connect24/exe> ls -lrt lisrvr*
-rwxrwxr-x 1 cbcadm dba 258236 Nov 8 2014 lisrvr
[UBIDBSE]/csis/cbcadm/connect24/exe> cd ../bin
[UBIDBSE]/csis/cbcadm/connect24/bin> ls -lrt
total 48
-rwxrwxrwx 1 cbcadm dba 548 Aug 20 2013 start-cbc_old
lrwxrwxr-x 1 cbcadm dba 33 Feb 15 2017 pbp-cdci-swif-lisrvr
-> /csis/cbcadm/connect24/exe/lisrvr
lrwxrwxr-x 1 cbcadm dba 33 Feb 15 2017 cdci-swif-lisrvr ->
lrwxrwxr-x 1 cbcadm dba 32 Feb 15 2017 pbp-maria ->
lrwxrwxr-x 1 cbcadm dba 32 Feb 15 2017 maria ->
lrwxrwxr-x 1 cbcadm dba 31 Feb 15 2017 limo ->
/csis/cbcadm/connect24/exe/limo
lrwxrwxr-x 1 cbcadm dba 33 Feb 15 2017 bc-mon-lisrvr ->
lrwxrwxr-x 1 cbcadm dba 33 Feb 15 2017 bc-echo-lisrvr ->
lrwxrwxr-x 1 cbcadm dba 44 Feb 15 2017 uniserver_clnt.so ->
/csis/cbcadm/connect24/exe/uniserver_clnt.so
lrwxrwxr-x 1 cbcadm dba 34 Feb 15 2017 swif.so ->
/csis/cbcadm/connect24/exe/swif.so
-rwxrwxrwx 1 cbcadm dba 511 Feb 15 2017 start-cbc
-rwxrwxrwx 1 cbcadm dba 133 Feb 15 2017 stop-cbc
-rw-rw-r-- 1 cbcadm dba 0 Sep 11 15:53
LimoIsUp_856fcbe329b4acdf6a37b5a1d488309a.pid
[UBIDBSE]/csis/cbcadm/connect24/bin> cd ../data
[UBIDBSE]/csis/cbcadm/connect24/data> ls -lrt
total 2352
-rwxr-xr-x 1 cbcadm dba 33049 Jun 2 2016 cbc.cfg_B4_CPH_020616
-rwxr-xr-x 1 cbcadm dba 127000 Jun 2 2016 cdci.cfg_CPH_020616
-rwxr-xr-x 1 cbcadm dba 41233 Jul 25 2016 cbc.cfg_UAT_25072016
-rwxr-xr-x 1 cbcadm dba 41237 Jul 25 2016
cbc.cfg_CPH_changes_25072016
drwxrwxr-x 2 cbcadm dba 8192 Sep 15 2016 Backup
-rwxr-xr-x 1 cbcadm dba 145905 Sep 15 2016 cdci.cfg_BISU
-rwxr-xr-x 1 cbcadm dba 41237 Sep 15 2016 cbc.cfg_BISU
drwxrwxr-x 2 cbcadm dba 8192 Nov 18 2016 CPH_PORT
-rwxr-xr-x 1 cbcadm dba 42989 Nov 18 2016 cbc.cfg_18112016
-rwxr-xr-x 1 cbcadm dba 149686 Nov 18 2016 cdci.cfg_18112016
-rwxr-xr-x 1 cbcadm dba 1515 Feb 20 2017 cbc-client-cms.cfg
-rwxr-xr-x 1 cbcadm dba 1513 Feb 20 2017 cbc-client-mob.cfg
-rwxr-xr-x 1 cbcadm dba 1515 Feb 20 2017 cbc-client-aco.cfg
-rwxr-xr-x 1 cbcadm dba 1514 Feb 20 2017 cbc-client.cfg
-rwxr-xr-x 1 cbcadm dba 52336 Jun 22 19:19 cbc.cfg
-rwxr-xr-x 1 cbcadm dba 172372 Jun 22 19:20 cdci.cfg
-rwxr-xr-x 1 cbcadm dba 50602 Jun 22 19:22 cbc.cfg_22062017
-rwxr-xr-x 1 cbcadm dba 168591 Jun 22 19:23 cdci.cfg_22062017
-rwxr-xr-x 1 cbcadm dba 8572 Jul 27 10:39 cbc.cfg_niraj
[UBIDBSE]/csis/cbcadm/connect24/data> cd ../
[UBIDBSE]/csis/cbcadm/connect24> ls -lrt
total 3568
drwxrwxr-x 2 cbcadm dba 8192 Apr 9 2014 exe
drwxrwxrwx 4 cbcadm dba 8192 Mar 6 2015 data_ORIGINAL
drwxrwxr-x 2 cbcadm dba 96 Aug 3 2016 niraj1
drwxrwxr-x 2 cbcadm dba 8192 Aug 3 2016 niraj
drwxrwxrwx 3 cbcadm dba 8192 Oct 20 2016 scripts
-rw-rw-r-- 1 cbcadm dba 25716 Mar 20 12:13
LISRVR_CDCI_SWIF_UPI_1106_200317_11.log
drwxrwxr-x 4 cbcadm dba 8192 Jul 27 10:38 data
-rwxr-xr-x 1 cbcadm dba 569 Sep 7 13:39 test.sh
drwxrwxrwx 2 cbcadm dba 8192 Sep 11 15:53 bin
drwxrwxr-x 2 cbcadm dba 16384 Sep 12 13:57 work
drwxrwxr-x 3 cbcadm dba 1712128 Sep 13 19:00 log
[UBIDBSE]/csis/cbcadm/connect24> cd ../data
sh: ../data: not found.
[UBIDBSE]/csis/cbcadm/connect24> cd data
total 2352
[UBIDBSE]/csis/cbcadm/connect24/data> vi cbc.cfg
"cbc.cfg" [Read only] 2058 lines, 52336 characters
LISERVER_SECTION=LISERVER_CONF
LISERVER_EVENT_DIR=/csis/cbcadm/connect24/log
LISERVER_LOG_DIR=/csis/cbcadm/connect24/log
LISERVER_WORK_DIR=/csis/cbcadm/connect24/work
LISERVER_SECTION=STDENV
LIMO_MONITOR_PORT=46500
LISERVER_EVENT_LOGGING=ON
LISERVER_OPCCFG_FILE=/csis/cbcadm/connect24/data/cbc-client.cfg
LIMO_CHILD_DEATH_TIME_INTERVAL=-1
CONN_TMOUT=1
####################################################
LISERVER_SECTION=SRVC_CDCI_MARIA
PORT_NUM=36601
LISTEN_Q_SIZE=10
PATH=/csis/cbcadm/connect24/bin/maria
START_NUM_INST=1
MAX_NUM_INST=1
LISERVER_SECTION=ENV_CDCI_MARIA
LIMOC_CONFIG_PATH=/csis/cbcadm/connect24/data/cbc-client.cfg
CONNECTION_TIMEOUT=-1
VALID_CLIENT_IP=
RECV_TIMEOUT=5
MAX_APPS=110
MAX_CLIENTS=110
APP_PRIMARY_HOST=172.16.143.154
APP_ALTERNATE_HOST=172.16.143.154
APP_PORT=36603
MARIA_MAX_Q_LEN=10
MARIA_WARN_Q_LEN=5
MONITOR_LISTEN_PORT=36602
VALID_MONITOR_IP=172.16.143.154
RECV_FORMAT=H04(01,04,AS)
DUMP_RECV_BYTES=Y
DUMP_SEND_BYTES=Y
DUMP_8583_RECV_FLDS=Y
DUMP_8583_SEND_FLDS=Y
##################################################
LISERVER_SECTION=SRVC_CDCI_SWIF
PORT_NUM=36603
LISTEN_Q_SIZE=10
PATH=/csis/cbcadm/connect24/bin/cdci-swif-lisrvr
START_NUM_INST=20
MAX_NUM_INST=110
LISERVER_SECTION=ENV_CDCI_SWIF
VALID_CLIENT_IP=
INIT_FUNC=swif.so fnSWIFInit
CLEANUP_FUNC=swif.so fnSWIFCleanUp
PROC_MSG_FUNC=swif.so fnSWIFProcMsg
RECV_TIMEOUT=-1
:q
[UBIDBSE]/csis/cbcadm/connect24/data> cd
[UBIDBSE]/finuser11/tbaadm> ps -eaf|grep -i cbc
swif-lisrvr
swif-lisrvr
cbcadm 11424 11112 0 Sep 11 ? 0:00 /csis/cbcadm/connect24/bin/pbp-
cdci-swif-lisrvr
swif-lisrvr
swif-lisrvr
swif-lisrvr

swif-lisrvr
swif-lisrvr
swif-lisrvr
swif-lisrvr
swif-lisrvr
cbcadm 11490 11112 0 Sep 11 ? 0:00 /csis/cbcadm/connect24/bin/maria

swif-lisrvr
swif-lisrvr
swif-lisrvr
swif-lisrvr
cbcadm 11439 11112 0 Sep 11 ? 0:00 /csis/cbcadm/connect24/bin/pbp-
cdci-swif-lisrvr
swif-lisrvr
swif-lisrvr
swif-lisrvr
[UBIDBSE]/finuser11/tbaadm> ps -eaf|grep -i cbc|wc -l
375
[UBIDBSE]/finuser11/tbaadm> ps -eaf|grep -i cbc|grep 11344
swif-lisrvr
[UBIDBSE]/finuser11/tbaadm>
[UBIDBSE]/finuser11/tbaadm> cd /csis/cbcadm/connect24/data
CONN_TMOUT=1
####################################################
PORT_NUM=36601
LISTEN_Q_SIZE=10
START_NUM_INST=1
MAX_NUM_INST=1
VALID_CLIENT_IP=
RECV_TIMEOUT=5
MAX_APPS=110
MAX_CLIENTS=110
APP_PORT=36603
MARIA_MAX_Q_LEN=10
MARIA_WARN_Q_LEN=5
DUMP_RECV_BYTES=Y
DUMP_SEND_BYTES=Y
##################################################
PORT_NUM=36603
LISTEN_Q_SIZE=10
START_NUM_INST=20
MAX_NUM_INST=110
VALID_CLIENT_IP=
RECV_TIMEOUT=-1
LIMOC_SOCKARRAY_SIZE=10
SHM_PATH=../data/cdci.cfg
CONTROLLER=ATM
DUMP_RECV_BYTES=Y
DUMP_SEND_BYTES=Y
DUMP_HOST_RECV_MSG=Y
DUMP_HOST_SEND_MSG=Y
DUMP_RVSL_FLDS=Y
CARD_LIMIT_CHECK_REQ=N
CDCI_SCRIPT_PATH=/csis/cbcadm/connect24/scripts
BC_FLG=C
SWIF_RECV_FORMAT=H04(01,04,AS)
SCRIPT_RQST_8583=bcreq8583.scr
SCRIPT_RESP_8583=bcres8583.scr
ALWAYS_SPLIT_TRANSFERS=N
#SWIF_RUN_SEMANTICS=A
####################################################
###################################################
LISERVER_SECTION=SRVC_BC_MON
PORT_NUM=36633
LISTEN_Q_SIZE=10
PATH=/csis/cbcadm/connect24/bin/bc-mon-lisrvr
START_NUM_INST=1
MAX_NUM_INST=1
LISERVER_SECTION=ENV_BC_MON
VALID_CLIENT_IP=
INIT_FUNC=bcmonitor.so AppInitFn
CLEANUP_FUNC=bcmonitor.so fnCentralBCCleanUp
PROC_MSG_FUNC=bcmonitor.so AppProcessMessageFn
SIGNAL_HANDLER_FUNC=bcmonitor.so fnBCMonSignalHandler
RECV_TIMEOUT=-1
LISRVR_LOG_EVENT=Y
SHM_PATH=/csis/cbcadm/connect24/data/cdci.cfg
VAR_PRECISION_FOR_DIFF_CRNCY=Y
BC_FLG=C
SRVR_APPID=BCM
####################################################
LISERVER_SECTION=SRVC_BC_ECHO
PORT_NUM=36643
LISTEN_Q_SIZE=10
PATH=/csis/cbcadm/connect24/bin/bc-echo-lisrvr
START_NUM_INST=1
MAX_NUM_INST=1
LISERVER_SECTION=ENV_BC_ECHO
CONNECTION_TIMEOUT=30
VALID_CLIENT_IP=
RECV_TIMEOUT=50
LISRVR_LOG_EVENT=Y
SHM_PATH=/csis/cbcadm/connect24/data/cdci.cfg
MAX_ATTEMPTS_TO_HOST=6
SRVR_APPID=BCECHO
#######################################################
####################################################
LISERVER_SECTION=SRVC_CDCI_MARIA_1
PORT_NUM=36605
LISTEN_Q_SIZE=10
START_NUM_INST=1
MAX_NUM_INST=1
LISERVER_SECTION=ENV_CDCI_MARIA_1
VALID_CLIENT_IP=
RECV_TIMEOUT=5
MAX_APPS=10
MAX_CLIENTS=10
APP_PORT=36607
APP_INACTIVITY_TIMEOUT=500
MARIA_MAX_Q_LEN=10
MARIA_WARN_Q_LEN=5
#VALID_MONITOR_IP=127.0.0.1
#RECV_FORMAT=H04(01,04,AS)
#RECV_FORMAT=H02(01,02,BI)
#RECV_FORMAT=H02(01,04,NS)
RECV_FORMAT=CUSTOM
CUSTOM_FORMAT=H00
CUSTOM_RECV_FUNC=customrecv.so mariaCustomRecvFn
#MARIA_SELECT_TIMEOUT=-1
MARIA_LOG_EVENT=Y
DUMP_RECV_BYTES=Y
DUMP_SEND_BYTES=Y
####################################################
LISERVER_SECTION=SRVC_CDCI_SWIF_1
PORT_NUM=36607
LISTEN_Q_SIZE=10
START_NUM_INST=1
MAX_NUM_INST=10
LISERVER_SECTION=ENV_CDCI_SWIF_1
VALID_CLIENT_IP=
RECV_TIMEOUT=-1
CONTROLLER=CMN
DUMP_RECV_BYTES=Y
DUMP_SEND_BYTES=Y
DUMP_RVSL_FLDS=Y
CDCI_SCRIPT_PATH=../scripts
BC_FLG=C
#SWIF_RECV_FORMAT=H04(01,04,AS)
#SWIF_RECV_FORMAT=H02(01,02,BI)
#FIXED_HEADER_LEN=12
SWIF_RECV_FORMAT=H00
#LISRVR_LOG_EVENT=Y
SWIF_RUN_SEMANTICS=A
######################GBM-connect24##############################
# Start 'srvc_cdci_gbm_maria'
LISERVER_SECTION=SRVC_CDCI_GBM_MARIA
PORT_NUM=60001
LISTEN_Q_SIZE=10
START_NUM_INST=1
MAX_NUM_INST=1
LISERVER_SECTION=ENV_CDCI_GBM_MARIA
VALID_CLIENT_IP=
RECV_TIMEOUT=5
MAX_APPS=20
MAX_CLIENTS=20
:q
[UBIDBSE]/csis/cbcadm/connect24/data> cd ../scripts
[UBIDBSE]/csis/cbcadm/connect24/scripts> ls -lrt
total 576
-rwxrwxrwx 1 cbcadm dba 12275 Aug 20 2013 98ProcReq.scr
-rwxrwxrwx 1 cbcadm dba 12210 Aug 20 2013
98ProcReq.scr_safe_16032012
-rwxrwxrwx 1 cbcadm dba 274 Aug 20 2013 bwyres8583.scr
drwxrwxrwx 2 cbcadm dba 8192 Aug 20 2013 SCRIPT_SAFE
-rwxrwxrwx 1 cbcadm dba 10486 Aug 20 2013 bcres8583.scr_23012013
-rwxrwxrwx 1 cbcadm dba 12275 Aug 20 2013 98ProcReq.scr_safe_gani
-rwxrwxrwx 1 cbcadm dba 3837 Aug 20 2013 conMPAYToC24Format.scr
bcreq8583.scr_safe_09022013
bcres8583.scr_safe_09022013
-rwxrwxrwx 1 cbcadm dba 12452 Aug 20 2013 bcres8583.scr_learning
-rwxrwxrwx 1 cbcadm dba 7188 Aug 20 2013 bcreq8583.scr_learning
-rwxrwxrwx 1 cbcadm dba 12039 Aug 20 2013 :
-rwxrwxrwx 1 cbcadm dba 97 Aug 20 2013 bwyres8583.scr_sachin
-rwxrwxrwx 1 cbcadm dba 11922 Aug 20 2013 98ProcReq.scr_sachin
-rwxrwxrwx 1 cbcadm dba 106 Aug 20 2013 CCP2.scr
-rwxrwxrwx 1 cbcadm dba 723 Aug 20 2013 bwyreq8583.scr
98ProcReq.scrSAFE_10012012
98ProcReq.scr_safe_09012012_nitin
-rwxrwxrwx 1 cbcadm dba 723 Aug 20 2013 bwyreq8583.scr_sachin
-rwxrwxrwx 1 cbcadm dba 10486 Aug 20 2013 bcres8583.scr_sachin
-rwxrwxrwx 1 cbcadm dba 106 Aug 20 2013 CCP2.scr_sachin
-rwxrwxrwx 1 cbcadm dba 13530 May 25 2015 bcres8583.scr
-rwxrwxr-x 1 cbcadm dba 6396 Oct 20 2016 bcreq8583.scr_20102016
-rwxrwxrwx 1 cbcadm dba 6904 May 24 09:39 bcreq8583.scr
[UBIDBSE]/csis/cbcadm/connect24/scripts> cd ../data
total 2352
CONN_TMOUT=1
####################################################
PORT_NUM=36601
LISTEN_Q_SIZE=10
START_NUM_INST=1
MAX_NUM_INST=1
VALID_CLIENT_IP=
RECV_TIMEOUT=5
MAX_APPS=110
MAX_CLIENTS=110
APP_PORT=36603
MARIA_MAX_Q_LEN=10
MARIA_WARN_Q_LEN=5
DUMP_RECV_BYTES=Y
DUMP_SEND_BYTES=Y
##################################################
PORT_NUM=36603
LISTEN_Q_SIZE=10
START_NUM_INST=20
MAX_NUM_INST=110
/bcreq8583.scr
VALID_CLIENT_IP=
RECV_TIMEOUT=-1
CONTROLLER=ATM
DUMP_RECV_BYTES=Y
DUMP_SEND_BYTES=Y
DUMP_RVSL_FLDS=Y
CDCI_SCRIPT_PATH=/csis/cbcadm/connect24/scripts
BC_FLG=C
SWIF_RECV_FORMAT=H04(01,04,AS)
#SWIF_RUN_SEMANTICS=A
####################################################
###################################################
LISERVER_SECTION=SRVC_BC_MON
PORT_NUM=36633
LISTEN_Q_SIZE=10
PATH=/csis/cbcadm/connect24/bin/bc-mon-lisrvr
START_NUM_INST=1
MAX_NUM_INST=1
LISERVER_SECTION=ENV_BC_MON
VALID_CLIENT_IP=
RECV_TIMEOUT=-1
:q
[UBIDBSE]/csis/cbcadm/connect24/data> cd -
/csis/cbcadm/connect24/scripts
[UBIDBSE]/csis/cbcadm/connect24/scripts> ls -lrt
total 576
-rwxrwxrwx 1 cbcadm dba 12275 Aug 20 2013 98ProcReq.scr
98ProcReq.scr_safe_16032012
-rwxrwxrwx 1 cbcadm dba 274 Aug 20 2013 bwyres8583.scr
drwxrwxrwx 2 cbcadm dba 8192 Aug 20 2013 SCRIPT_SAFE
-rwxrwxrwx 1 cbcadm dba 10486 Aug 20 2013 bcres8583.scr_23012013
-rwxrwxrwx 1 cbcadm dba 12275 Aug 20 2013 98ProcReq.scr_safe_gani
-rwxrwxrwx 1 cbcadm dba 3837 Aug 20 2013 conMPAYToC24Format.scr
bcreq8583.scr_safe_09022013
bcres8583.scr_safe_09022013
-rwxrwxrwx 1 cbcadm dba 12452 Aug 20 2013 bcres8583.scr_learning
-rwxrwxrwx 1 cbcadm dba 7188 Aug 20 2013 bcreq8583.scr_learning
-rwxrwxrwx 1 cbcadm dba 12039 Aug 20 2013 :
-rwxrwxrwx 1 cbcadm dba 97 Aug 20 2013 bwyres8583.scr_sachin
-rwxrwxrwx 1 cbcadm dba 11922 Aug 20 2013 98ProcReq.scr_sachin
-rwxrwxrwx 1 cbcadm dba 106 Aug 20 2013 CCP2.scr
-rwxrwxrwx 1 cbcadm dba 723 Aug 20 2013 bwyreq8583.scr
98ProcReq.scrSAFE_10012012
98ProcReq.scr_safe_09012012_nitin
-rwxrwxrwx 1 cbcadm dba 723 Aug 20 2013 bwyreq8583.scr_sachin
-rwxrwxrwx 1 cbcadm dba 10486 Aug 20 2013 bcres8583.scr_sachin
-rwxrwxrwx 1 cbcadm dba 106 Aug 20 2013 CCP2.scr_sachin
-rwxrwxrwx 1 cbcadm dba 13530 May 25 2015 bcres8583.scr
-rwxrwxr-x 1 cbcadm dba 6396 Oct 20 2016 bcreq8583.scr_20102016
-rwxrwxrwx 1 cbcadm dba 6904 May 24 09:39 bcreq8583.scr
[UBIDBSE]/csis/cbcadm/connect24/scripts> vi bcreq8583.scr
"bcreq8583.scr" 181 lines, 6904 characters
<--start
##############################################################
# file name : swt-bcreq8583.scr
##############################################################
trace on
#sv_z = urhk_B2K_PrintRepos("CDCI")
#CDCI.Request8583.successOrFailure = "S"
print(CDCI.Request8583.Message_Id)
if((CDCI.Request8583.Field123 == "SWT") and (MID$(CDCI.Request8583.Field3,0,2) ==

"01") and (CDCI.Request8583.Message_Id == "1220")) then
#{
CDCI.Response8583.Field126 = "LORO"
print(CDCI.Response8583.Field126)
#}
endif
IF (FIELDEXISTS(CDCI.Request8583.Field59) == 1) THEN
#{
CDCI.Request8583.Field59 = ""
CDCI.Response8583.Field59 = ""
#}
ENDIF
print(FIELDEXISTS(CDCI.Request8583.Field123))
print(CDCI.Request8583.Field123)
IF ((CDCI.Request8583.Field123 == "SWT") or (CDCI.Request8583.Field123 ==

"MOB")) THEN
CDCI.Response8583.Field43 = CDCI.Request8583.Field43
ENDIF
CDCI.Response8583.Field102 = CDCI.Request8583.Field102
ENDIF
IF (( MID$(CDCI.Request8583.Field3,0,2) == "MM" ) or ( MID$

(CDCI.Request8583.Field3,0,2) == "MV" )) THEN
call("/finacle/app/base/services/connect24/CBC_NEW_25/scripts/conMPAYToC24Format.sc
r")
ENDIF
ENDIF
ENDIF
###################################################################################
###
### MODIFICATION FOR FUND TRANSFER THROUGH ATM (21-05-2011)
###################################################################################
##
#IF (( MID$(CDCI.Request8583.Field3,0,2) == "40" ) AND
(FIELDEXISTS(CDCI.Request8583.Field123) == 1) AND ((CDCI.Request8583.Field123 ==
"SWT") or ((CDCI.Request8583.Field123 =
= "MOB")))) THEN
IF (( MID$(CDCI.Request8583.Field3,0,2) == "40" ) AND
(FIELDEXISTS(CDCI.Request8583.Field123) == 1) AND (CDCI.Request8583.Field123 ==
"SWT")) THEN
#(
IF(FIELDEXISTS(CDCI.Request8583.Field125) == 1) THEN
#(
IF( MID$(CDCI.Request8583.Field125,0,3) != "005" ) THEN
#(
CDCI.Request8583.Field125 = CDCI.Request8583.Field103
#)
ENDIF
#)
ELSE
#(
#)
ENDIF
#)
ENDIF
IF (( MID$(CDCI.Request8583.Field3,0,2) == "40" ) AND

(FIELDEXISTS(CDCI.Request8583.Field123) == 1) AND (CDCI.Request8583.Field123 ==
"MOB")) THEN
#(
IF(FIELDEXISTS(CDCI.Request8583.Field125) == 1) THEN
#(
IF(( MID$(CDCI.Request8583.Field125,0,3) != "005" ) and ( MID$
(CDCI.Request8583.Field125,0,5) != "UBNET" )) THEN
#(
#)
ENDIF
#)
ELSE
#(
#)
ENDIF
#)
ENDIF
:q
[UBIDBSE]/csis/cbcadm/connect24/scripts> scr
[UBIDBSE]/finacle/app/base/cust/scripts> ls -lrt CD*.scr
-rwxr-xr-x 1 tbaadm dba 2849 Feb 17 2016 CDDispPanNum.scr
-rwxr-xr-x 1 tbaadm dba 2920 Feb 17 2016 CDPostProc_grips_card.scr
-rwxr-xr-x 1 tbaadm dba 2811 Feb 17 2016 CDPostProc_bal_inq3.scr
-rwxr-xr-x 1 tbaadm dba 3576 Feb 17 2016
CDPostProc_atm_card_det_inq.scr
-rwxr-xr-x 1 tbaadm dba 89819 Feb 17 2016 CDPostProc_11072014.scr
-rwxr-xr-x 1 tbaadm dba 2387 Feb 17 2016 CDPostProc_aadhar_no.scr
CDPostProc_Pre_TD_Closure.scr
CDPostProc_quick_transfer.scr
-rwxr-xr-x 1 tbaadm dba 83584 Feb 17 2016 CDPostProc_mob_reg.scr
-rwxr-xr-x 1 tbaadm dba 40136 Feb 17 2016 CDPostProc_mob_portal.scr
-rwxr-xr-x 1 tbaadm dba 7013 Feb 17 2016 CDPostProc_mob_inq.scr
CDPostProc_lpg_transaction.scr
CDPostProc_int_certificate.scr
-rwxr-xr-x 1 tbaadm dba 15923 Feb 17 2016 CDPostProc_lpg.scr
-rwxr-xr-x 1 tbaadm dba 9104 Feb 17 2016 CDPostProc_Max_Bal.scr
-rwxr-xr-x 1 tbaadm dba 43474 Feb 17 2016 CDPostProc_MisCal_FD.scr
-rwxr-xr-x 1 tbaadm dba 1079 Feb 17 2016 CDPostProc_UIDAI.scr
-rwxr-xr-x 1 tbaadm dba 8694 Jul 16 2016 CDPostProc_bal_inq.scr
-rwxr-xr-x 1 tbaadm dba 7311 Apr 27 13:02 CDUsOnUsTrn.scr
-rwxr-xr-x 1 tbaadm dba 18730 Apr 27 13:04 CDPostProc.scr
-rwxr-xr-x 1 tbaadm dba 7311 Apr 27 13:05 CDNwOnUsTrn.scr
-rwxr-xr-x 1 tbaadm dba 3148 Apr 27 14:10 CDUsrDefBal.scr
-rwxr-xr-x 1 tbaadm dba 20792 Aug 7 13:32 CDTranParticulars.scr
-rwxr-xr-x 1 tbaadm dba 3105 Aug 7 17:46 CDUseMTTScript.scr
-rwxr-xr-x 1 tbaadm dba 31693 Aug 30 14:15 CDPreProc.scr
-rwxr-xr-x 1 tbaadm dba 15123 Sep 5 16:27 CDGetContraAccount.scr
-rwxr-xr-x 1 tbaadm dba 14029 Sep 6 12:43 CDGetFeeAccounts.scr
[UBIDBSE]/finacle/app/base/cust/scripts> vi CDPostProc.scr
"CDPostProc.scr" 625 lines, 18730 characters
<--start
trace on
sv_z = urhk_B2K_PrintRepos("BANCS")
Print(sv_z)
sv_r = REPEXISTS("UBI")
IF (sv_r == 0) THEN
#{
CREATEREP("UBI")
#}
ENDIF
sv_r = REPEXISTS("STDWFS")
IF (sv_r == 0) THEN
#{
CREATEREP("STDWFS")
#}
ENDIF
sv_r = CLASSEXISTS("UBI", "GLBDATA")

IF (sv_r == 0) THEN
#{
CREATECLASS("UBI", "GLBDATA", 5)
#}
ENDIF
sv_r = CLASSEXISTS("STDWFS", "GLBDATA")
IF (sv_r == 0) THEN
#{
CREATECLASS("STDWFS", "GLBDATA", 5)
#}
ENDIF
###################################################################################
####
# CUSTOMIZATION FOR GBM
###################################################################################
####
#print(BANCS.INPUT.Command)
if ( BANCS.INPUT.DccId == "GBM" ) then
#{
call ("GBMCDPostProc.scr")
exitscript
#}
endif
###################################################################################
####
# CUSTOMIZATION FOR BNA
###################################################################################
####
if ( BANCS.INPUT.DccId == "BNA" ) then
#{
call ("BNACDPostProc.scr")
exitscript
#}
endif
###################################################################################
####
# CUSTOMIZATION FOR UPI FACILTIY
###################################################################################
####
if ( BANCS.INPUT.DccId == "UPI" ) then
#{
print("UPI")
call ("UPICDPostProc.scr")
exitscript
#}
endif
###################################################################################
####
# CUSTOMIZATION FOR MOB DCC ID
###################################################################################
####
if ( BANCS.INPUT.DccId == "MOB" ) then
#{
print("UPI")
:q
[UBIDBSE]/finacle/app/base/cust/scripts> ls -lrt CD*.scr
-rwxr-xr-x 1 tbaadm dba 2849 Feb 17 2016 CDDispPanNum.scr
-rwxr-xr-x 1 tbaadm dba 2920 Feb 17 2016 CDPostProc_grips_card.scr
CDPostProc_atm_card_det_inq.scr
-rwxr-xr-x 1 tbaadm dba 89819 Feb 17 2016 CDPostProc_11072014.scr
-rwxr-xr-x 1 tbaadm dba 2387 Feb 17 2016 CDPostProc_aadhar_no.scr
CDPostProc_Pre_TD_Closure.scr
CDPostProc_quick_transfer.scr
-rwxr-xr-x 1 tbaadm dba 83584 Feb 17 2016 CDPostProc_mob_reg.scr
-rwxr-xr-x 1 tbaadm dba 40136 Feb 17 2016 CDPostProc_mob_portal.scr
-rwxr-xr-x 1 tbaadm dba 7013 Feb 17 2016 CDPostProc_mob_inq.scr
CDPostProc_lpg_transaction.scr
CDPostProc_int_certificate.scr
-rwxr-xr-x 1 tbaadm dba 15923 Feb 17 2016 CDPostProc_lpg.scr
-rwxr-xr-x 1 tbaadm dba 9104 Feb 17 2016 CDPostProc_Max_Bal.scr
-rwxr-xr-x 1 tbaadm dba 43474 Feb 17 2016 CDPostProc_MisCal_FD.scr
-rwxr-xr-x 1 tbaadm dba 1079 Feb 17 2016 CDPostProc_UIDAI.scr
-rwxr-xr-x 1 tbaadm dba 8694 Jul 16 2016 CDPostProc_bal_inq.scr
-rwxr-xr-x 1 tbaadm dba 7311 Apr 27 13:02 CDUsOnUsTrn.scr
-rwxr-xr-x 1 tbaadm dba 18730 Apr 27 13:04 CDPostProc.scr
-rwxr-xr-x 1 tbaadm dba 7311 Apr 27 13:05 CDNwOnUsTrn.scr
-rwxr-xr-x 1 tbaadm dba 3148 Apr 27 14:10 CDUsrDefBal.scr
-rwxr-xr-x 1 tbaadm dba 20792 Aug 7 13:32 CDTranParticulars.scr
-rwxr-xr-x 1 tbaadm dba 3105 Aug 7 17:46 CDUseMTTScript.scr
-rwxr-xr-x 1 tbaadm dba 31693 Aug 30 14:15 CDPreProc.scr
-rwxr-xr-x 1 tbaadm dba 15123 Sep 5 16:27 CDGetContraAccount.scr
-rwxr-xr-x 1 tbaadm dba 14029 Sep 6 12:43 CDGetFeeAccounts.scr
[UBIDBSE]/finacle/app/base/cust/scripts> vi CDPreProc.scr
"CDPreProc.scr" 1018 lines, 31693 characters
##########################################################
# RTGS-POC
# Developed by : Arun Ananth Velliangiri
########################################################
<--start
#trace on
BANCS.STDIN.temp_dccid=BANCS.INPUT.DccId
BANCS.STDIN.temp_command=BANCS.INPUT.Command
BANCS.STDIN.tempresrv1 = ""
##############################################################
# Tran Info changes have been taken care in CBC Scripts level
# Making the field blank here were causing offline transaction
# coming in S Mode instead of C mode.
##############################################################
#####if(FIELDEXISTS(BANCS.INPUT.TranInfo)== 1) then
######{
##### if(BANCS.INPUT.TranInfo != "") then
##### #{
##### BANCS.INPUT.TranInfo=""
##### BANCS.OUTPUT.TranInfo=""
##### #}
##### endif
######}
#####endif
##########################################################################
# Added by For Cheq status inquiry and DD inquiry request coming from BWY
# Start ADDED FOR RD-ONLINE
##########################################################################
sv_r = REPEXISTS("STDWFS")
IF (sv_r == 0) THEN
CREATEREP("STDWFS")
ENDIF
sv_r = CLASSEXISTS("STDWFS", "GLBDATA")

IF (sv_r == 0) THEN
CREATECLASS("STDWFS", "GLBDATA", 5)
ENDIF
#print(BANCS.INPUT.Command)
BANCS.STDIN.reservedField1 = BANCS.INPUT.ReservedField1
#print(BANCS.STDIN.reservedField1)
###################################################################################
#
# Changes for removal of solid from SWT initiated messages from debit/credit
account
###################################################################################
#
IF ((BANCS.INPUT.DccId == "SWT") or (BANCS.INPUT.DccId == "BNA")) THEN
#{
IF (FIELDEXISTS(BANCS.OUTPUT.SolId) == 1 ) then
#{
print(BANCS.OUTPUT.SolId)
if(BANCS.OUTPUT.SolId != "") then
#{
BANCS.OUTPUT.SolId = ""
#}
endif
print(BANCS.OUTPUT.SolId)
#}
endif
IF (FIELDEXISTS(BANCS.OUTPUT.CrSolId) == 1 ) then
#{
print(BANCS.OUTPUT.CrSolId)
if(BANCS.OUTPUT.CrSolId != "") then
#{
BANCS.OUTPUT.CrSolId = ""
#}
endif
print(BANCS.OUTPUT.CrSolId)
#}
endif
#}
endif
######################################################################
# PBP related changes
######################################################################
if ( BANCS.INPUT.DccId == "PBP" ) then
#{
print("PBP")
call ("PBPCDPreProc.scr")
exitscript
#}
endif
######################################################################
# UPI Aadhar related changes
######################################################################
IF ((BANCS.INPUT.DccId == "UPI") and ((BANCS.INPUT.Command == "TRTR") or
(BANCS.INPUT.Command == "TRRR"))) THEN
#{
print(BANCS.INPUT.ReservedField1)
print(BANCS.OUTPUT.Foracid)
print(BANCS.OUTPUT.CrForacid)
if(BANCS.INPUT.ReservedField1 != "") then
#{
if(left$(BANCS.INPUT.ReservedField1,8) == "DEBITADR") then
#{
sv_a = "adrforacid|select foracid from cust_uid where
UID_NUM = '" + BANCS.OUTPUT.Foracid + "' and rownum < 2"
print(sv_a)
sv_b = urhk_dbSelect(sv_a)
print(sv_b)
if(sv_b ==0) then
#{
BANCS.OUTPUT.Foracid = BANCS.OUTPARAM.adrforacid
#}
else
#{
BANCS.OUTPUT.successOrFailure="F"
BANCS.OUTPUT.ReservedField2 = "Account Not Linked
To Aadhar No."
BANCS.OUTPUT.RespCode = "99"
EXITSCRIPT
#}
endif
#}
endif
if(left$(BANCS.INPUT.ReservedField1,8) == "CREDITAD") then

#{
sv_a = "adrforacid|select foracid from cust_uid where
UID_NUM = '" + BANCS.OUTPUT.CrForacid + "' and rownum < 2"
print(sv_a)
print(sv_b)
if(sv_b ==0) then
#{
BANCS.OUTPUT.CrForacid = BANCS.OUTPARAM.adrforacid
#}
else
#{
BANCS.OUTPUT.ReservedField2 = "Account Not Linked
To Aadhar No."
EXITSCRIPT
#}
endif
#}
endif
#}
endif
#}
endif
#########################################################################
# Dormant Checking - Date : 04-02-2016
#########################################################################
IF (((BANCS.INPUT.Command == "CWDR") or (BANCS.INPUT.Command == "CWRR") or

(BANCS.INPUT.Command == "TRTR") or (BANCS.INPUT.Command == "TRRR") or
(BANCS.INPUT.Command == "CRTR"
) or (BANCS.INPUT.Command == "CRRR") or (BANCS.INPUT.Command == "PRCR") or
(BANCS.INPUT.Command == "PRRR")) and ( BANCS.INPUT.DccId != "CPH" ) and
( BANCS.INPUT.DccId != "CPA"
) and ( BANCS.INPUT.DccId != "CPB" ) and ( BANCS.INPUT.DccId != "CPC" ) and
( BANCS.INPUT.DccId != "CPD" ) and ( BANCS.INPUT.DccId != "CPE" ) and
( BANCS.INPUT.DccId != "CPF"
) and ( BANCS.INPUT.DccId != "CPG" ) and ( BANCS.INPUT.DccId != "CPI" ) and
( BANCS.INPUT.DccId != "CPJ" ) and ( BANCS.INPUT.DccId != "CPK" )) THEN
#{
IF ((FIELDEXISTS(BANCS.INPUT.Foracid) == 1 ) and (BANCS.INPUT.Foracid !=
"")) THEN
#{
print(BANCS.INPUT.Foracid)
sv_f = BANCS.INPUT.Foracid
sv_a = urhk_valAcctNumber(sv_f)
print (sv_a)
if (sv_a != 0) then
#{
EXITSCRIPT
#}
endif
sv_a = "debitSchmType,debitSchmCode|select schm_type,schm_code from

gam "
sv_a = sv_a + " where foracid = '"+ BANCS.INPUT.Foracid +"' "
print(sv_a)
print(sv_b)
if(sv_b ==0) then
#{
BANCS.STDIN.custSchmType = BANCS.OUTPARAM.debitSchmType
print(BANCS.STDIN.custSchmType)
BANCS.STDIN.custSchmCode = BANCS.OUTPARAM.debitSchmCode
print(BANCS.STDIN.custSchmCode)
else
BANCS.STDIN.custSchmType = ""
BANCS.STDIN.custSchmCode = ""
#}
endif
if((BANCS.STDIN.custSchmType == "SBA") or (BANCS.STDIN.custSchmType

== "CAA")) then
#{
sv_a = "acct_status|select acct_status from smt where acid
= (select acid from gam where foracid = '" + BANCS.INPUT.Foracid + "') "
#}
else
#{
if((BANCS.STDIN.custSchmType == "CCA") or
(BANCS.STDIN.custSchmType == "ODA")) then
#{
sv_a = "acct_status|select acct_status from cam
where acid = (select acid from gam where foracid = '" + BANCS.INPUT.Foracid + "') "
#}
else
#{
sv_a = ""
BANCS.STDIN.custAcctStatus = "A"
#}
endif
#}
endif
if(sv_a != "") then
#{
print(sv_a)
print(sv_b)
if(sv_b ==0) then
#{
BANCS.STDIN.custAcctStatus =
BANCS.OUTPARAM.acct_status
#}
else
#{
#}
endif
#}
endif
if(BANCS.STDIN.custAcctStatus != "A") then

#{
print("query failed")
exitscript
#}
endif
#}
endif
IF (FIELDEXISTS(BANCS.OUTPUT.CrForacid) == 1 ) THEN
#{
if(BANCS.OUTPUT.CrForacid != "") then
#{
sv_f = BANCS.OUTPUT.CrForacid
print (sv_a)
if (sv_a != 0) then
#{
EXITSCRIPT
#}
endif
sv_a = "debitSchmType,debitSchmCode|select
schm_type,schm_code from gam "
sv_a = sv_a + " where foracid = '"+ BANCS.OUTPUT.CrForacid
+"' "
print(sv_a)
print(sv_b)
if(sv_b ==0) then
#{
BANCS.STDIN.custSchmType =
BANCS.OUTPARAM.debitSchmType
BANCS.STDIN.custSchmCode =
BANCS.OUTPARAM.debitSchmCode
else
BANCS.STDIN.custSchmType = ""
BANCS.STDIN.custSchmCode = ""
#}
endif
if((BANCS.STDIN.custSchmType == "SBA") or
(BANCS.STDIN.custSchmType == "CAA")) then
#{
sv_a = "acct_status|select acct_status from smt
where acid = (select acid from gam where foracid = '" + BANCS.OUTPUT.CrForacid +
"') "
#}
else
#{
if((BANCS.STDIN.custSchmType == "CCA") or
(BANCS.STDIN.custSchmType == "ODA")) then
#{
sv_a = "acct_status|select acct_status from
cam where acid = (select acid from gam where foracid = '" + BANCS.OUTPUT.CrForacid
+ "') "
#}
else
#{
sv_a = ""
#}
endif
#}
endif
if(sv_a != "") then
#{
print(sv_a)
print(sv_b)
if(sv_b ==0) then
#{
BANCS.STDIN.custAcctStatus =
BANCS.OUTPARAM.acct_status
#}
else
#{
#}
endif
#}
endif
if(BANCS.STDIN.custAcctStatus != "A") then
#{
exitscript
#}
endif
#}
endif
#}
endif
#}
endif
###################################################################################
########################
### RBI Validation to restrict cash withdrawl with 2K/10K/20K on ATM/Daily/Weekly
Limit - Date : 04-02-2016
###################################################################################
########################
#####IF ((BANCS.INPUT.Command == "CWDR") and (BANCS.INPUT.DccId == "SWT") and

(BANCS.INPUT.ReservedField2 != "LORO")) THEN
######{
##### IF ((FIELDEXISTS(BANCS.INPUT.Foracid) == 1 ) and (BANCS.INPUT.Foracid !=
"")) THEN
##### #{
##### print(BANCS.INPUT.Foracid)
##### sv_f = BANCS.INPUT.Foracid
##### sv_a = urhk_valAcctNumber(sv_f)
##### print (sv_a)
##### if (sv_a != 0) then
##### #{
##### BANCS.OUTPUT.successOrFailure="F"
##### BANCS.OUTPUT.RespCode = "99"
##### EXITSCRIPT
##### #}
##### endif
#####
##### sv_a = "debitSchmType,debitSchmCode|select schm_type,schm_code from
gam "
##### sv_a = sv_a + " where foracid = '"+ BANCS.INPUT.Foracid +"' "
##### print(sv_a)
##### sv_b = urhk_dbSelect(sv_a)
##### print(sv_b)
##### if(sv_b ==0) then
##### #{
##### BANCS.STDIN.custSchmType = BANCS.OUTPARAM.debitSchmType
##### print(BANCS.STDIN.custSchmType)
#####
##### BANCS.STDIN.custSchmCode = BANCS.OUTPARAM.debitSchmCode
##### print(BANCS.STDIN.custSchmCode)
#####
##### else
##### BANCS.STDIN.custSchmType = ""
#####
##### BANCS.STDIN.custSchmCode = ""
##### #}
##### endif
#####
#####
##### if(BANCS.STDIN.custSchmType == "SBA") then
##### #{
##### BANCS.STDIN.custstdate = left$(BANCS.STDIN.BODDate,10)
##### BANCS.STDIN.custenddate = left$(BANCS.STDIN.BODDate,10)
#####
##### sv_a = "wkdates,dtdiff|select fun_weekdates(sysdate),
(to_date('10-11-2016') - to_date(substr(fun_weekdates(sysdate),1,10))) from dual "
##### print(sv_a)
##### print(sv_b)
##### if(sv_b ==0) then
##### #{
##### BANCS.STDIN.custstdate = left$
(BANCS.OUTPARAM.wkdates,10)
##### print(BANCS.STDIN.custstdate)
#####
##### BANCS.STDIN.custenddate = right$
(BANCS.OUTPARAM.wkdates,10)
##### print(BANCS.STDIN.custenddate)
#####
##### if(cint(BANCS.OUTPARAM.dtdiff) > 0) then
##### #{
##### BANCS.STDIN.custstdate = "10-11-2016"
##### #}
##### endif
##### #}
##### endif
#####
##### BANCS.STDIN.custtranamt = BANCS.INPUT.TranAmt
#####
##### BANCS.STDIN.isallowed = "Y"
#####
##### sv_a = "isallowed|select fun_isallowed('" +
BANCS.INPUT.Foracid + "','" + BANCS.STDIN.custstdate + "','" +
BANCS.STDIN.custenddate + "','" + BANCS.STDI
N.custtranamt + "') from dual "
##### print(sv_a)
##### print(sv_b)
##### if(sv_b ==0) then
##### #{
##### BANCS.STDIN.isallowed = BANCS.OUTPARAM.isallowed
##### print(BANCS.STDIN.isallowed)
##### #}
##### endif
#####
##### if(BANCS.STDIN.isallowed != "Y") then
##### #{
##### BANCS.OUTPUT.successOrFailure="F"
##### BANCS.OUTPUT.RespCode = "99"
##### BANCS.OUTPUT.ReservedField2 = "Exceeding Cash
Transaction Limit"
##### exitscript
##### #}
##### endif
##### #}
##### endif
##### #}
##### endif
######}
#####endif
IF ((BANCS.INPUT.DccId == "SWT") and (BANCS.INPUT.ReservedField2 == "LORO") and

((BANCS.INPUT.Command == "CWDR") or (BANCS.INPUT.Command == "CWRR"))) THEN
#{
if(left$(BANCS.INPUT.ReservedField1,4) != "GLRR") then

#{
if(BANCS.INPUT.Command == "CWDR") then
#{
sv_a = "setvcnt|select VARIABLE_VALUE from c_newvar where
MODULE_NAME = 'NETWORKTYPE' and SUB_MODULE_NAME = '" + BANCS.INPUT.ReservedField1 +
"' and VA
RIABLE_NAME = 'D'"
print(sv_a)
if(sv_b == 0) then
#{
Print(BANCS.OUTPARAM.setvcnt)
sv_z = BANCS.OUTPARAM.setvcnt
#}
else
#{
sv_z = 0
#}
endif
if(sv_z > 0) then
#{
BANCS.OUTPUT.setvarcnt = sv_z
sv_a = "cAcnt|select ATM_BACID from tbl_atmupd
where nvl(DEL_FLG,'N') != 'Y' and nvl(VERIFY_FLG,'N') = 'Y' and SELECT_TYPE =
'NETWORK_TYPE' and
dr_cr_ind = 'D' and NETWORK_ATM_ID = concat('" + BANCS.INPUT.ReservedField1 + "',
(mod(to_number(to_char(systimestamp,'ff6')),'" + BANCS.OUTPUT.setvarcnt + "') +
1))"
Print(sv_a)
if(sv_b == 0) then
#{
Print(BANCS.OUTPARAM.cAcnt)
BANCS.OUTPUT.Foracid = BANCS.OUTPARAM.cAcnt
#}
endif
#}
endif
#}
else
#{
sv_a = "cAcnt|select (select foracid from gam,dctd_acli ctd
where gam.acid = ctd.acid and ctd.tran_date = rtt.tran_date and ctd.tran_id =
rtt.tran_id a
nd ctd.part_tran_type = 'D' and ctd.del_flg != 'Y') "
sv_a = sv_a + "from rtt "
sv_a = sv_a + "where CMD = '" + left$
(BANCS.INPUT.OrigDataElements,4) + "' "
sv_a = sv_a + "and CUST_OR_CARD_ID = '" +
BANCS.INPUT.CustCardId + "' "
sv_a = sv_a + "and DCC_ID = '" + BANCS.INPUT.DccId +
"' "
sv_a = sv_a + "and SYSTEM_DATE_TIME = to_date('" +
right$(BANCS.INPUT.OrigDataElements,14) + "','YYYYMMDDHH24MISS') "
sv_a = sv_a + "and SNO = '" + mid$
(BANCS.INPUT.OrigDataElements,4,12) + "' "
Print(sv_a)
if(sv_b == 0) then
#{
BANCS.OUTPUT.Foracid = BANCS.OUTPARAM.cAcnt
#}
else
#{
sv_a = "setvcnt|select VARIABLE_VALUE from c_newvar
where MODULE_NAME = 'NETWORKTYPE' and SUB_MODULE_NAME = '" +
BANCS.INPUT.ReservedField1 + "
' and VARIABLE_NAME = 'D'"
print(sv_a)
if(sv_b == 0) then
#{
Print(BANCS.OUTPARAM.setvcnt)
sv_z = BANCS.OUTPARAM.setvcnt
#}
else
#{
sv_z = 0
#}
endif
if(sv_z > 0) then
#{
BANCS.OUTPUT.setvarcnt = sv_z
sv_a = "cAcnt|select ATM_BACID from
tbl_atmupd where nvl(DEL_FLG,'N') != 'Y' and nvl(VERIFY_FLG,'N') = 'Y' and
SELECT_TYPE = 'NETWORK_T
YPE' and dr_cr_ind = 'D' and NETWORK_ATM_ID = concat('" +
BANCS.INPUT.ReservedField1 + "',(mod(to_number(to_char(systimestamp,'ff6')),'" +
BANCS.OUTPUT.setvarcnt + "') + 1))"
Print(sv_a)
if(sv_b == 0) then
#{
BANCS.OUTPUT.Foracid =
BANCS.OUTPARAM.cAcnt
#}
endif
#}
endif
#}
endif
#}
endif
#}
endif
#}
endif
#########################################################################
# IMPS Charges removal for staff accounts
#########################################################################
if (( BANCS.INPUT.DccId == "MOB" ) or ( BANCS.INPUT.DccId == "FIM" )) then
#{
BANCS.STDIN.cust_chg_flg = "Y"
if((BANCS.INPUT.Command == "TRTR") or (BANCS.INPUT.Command == "TRRR")) then
#{
if((BANCS.INPUT.Fee != "") and (BANCS.INPUT.Fee !=
"INRD000000000000000000")) then
#{
sv_z = urhk_getAcctDetailsInRepository(BANCS.INPUT.Foracid)
print(BANCS.OUTPARAM.schmCode)
if((BANCS.OUTPARAM.schmCode == "SBSTF") or
(BANCS.OUTPARAM.schmCode == "ODSTF") or (BANCS.OUTPARAM.schmCode == "SBBNS")) then
#{
BANCS.INPUT.Fee = "INRD000000000000000000"
BANCS.OUTPUT.Fee = "INRD000000000000000000"
BANCS.STDIN.cust_chg_flg = "N"
#}
endif
#}
endif
#}
endif
#}
endif
#########################################################################
# CWDR/PRCR Charges removal for staff accounts
#########################################################################
if (( BANCS.INPUT.DccId == "SWT" ) and (BANCS.INPUT.ReservedField2 != "LORO") and
(BANCS.INPUT.ReservedField1 == "UBNET")) then
#{
if((BANCS.INPUT.Command == "CWDR") or (BANCS.INPUT.Command == "PRCR") or
(BANCS.INPUT.Command == "PRRR") or (BANCS.INPUT.Command == "CWRR")) then
#{
if((BANCS.INPUT.Fee != "") and (BANCS.INPUT.Fee !=
"INRD000000000000000000")) then
#{
sv_z = urhk_getAcctDetailsInRepository(BANCS.INPUT.Foracid)
print(BANCS.OUTPARAM.schmCode)
if((BANCS.OUTPARAM.schmCode == "SBSTF") or
(BANCS.OUTPARAM.schmCode == "ODSTF") or (BANCS.OUTPARAM.schmCode == "SBBNS") or
(BANCS.OUTPARAM.schmCode ==
"SBFIS") or (BANCS.OUTPARAM.schmCode == "SBGCB") or (BANCS.OUTPARAM.schmCode ==
"SBKAN") or (BANCS.OUTPARAM.schmCode == "SBREG") or (BANCS.OUTPARAM.schmCode ==
"SBSCH") or (BA
NCS.OUTPARAM.schmCode == "SBSTP") or (BANCS.OUTPARAM.schmCode == "SBUBC") or
(BANCS.OUTPARAM.schmCode == "SBUBS") or (BANCS.OUTPARAM.schmCode == "SBUBW") or
(BANCS.OUTPARAM.sc
hmCode == "SBUGS")) then
#{
BANCS.INPUT.Fee = "INRD000000000000000000"
BANCS.OUTPUT.Fee = "INRD000000000000000000"
#}
endif
#}
endif
#}
endif
#}
endif
if ( BANCS.INPUT.DccId == "GBM" ) then

#{
sv_a = MID$(BANCS.STDIN.BODDate,0,2)
sv_b = MID$(BANCS.STDIN.BODDate,3,2)
sv_c = MID$(BANCS.STDIN.BODDate,6,4)
BANCS.OUTPUT.BusDate= sv_c + sv_b + sv_a
##Print(BANCS.OUTPUT.BusDate)
IF (BANCS.INPUT.Command == "MSCR") THEN
#{
call ("GBMCDPreProc.scr")
#}
ELSE
#{
BANCS.OUTPUT.successOrFailure="S"
#}
ENDIF
#sv_a= urhk_B2K_PrintRepos("BANCS")
exitscript
#}
endif
if ( BANCS.INPUT.DccId == "BNA" ) then

#{
IF ((BANCS.INPUT.Command == "ACIR") or (BANCS.INPUT.Command == "ACIS") or
(BANCS.INPUT.Command == "CRTR") or (BANCS.INPUT.Command == "CRTS")) THEN
#{
BANCS.STDIN.tempresrv1=BANCS.INPUT.ReservedField1
BANCS.OUTPUT.TranInfo=""
BANCS.INPUT.TranInfo=""
#}
endif
#}
endif
if ( BANCS.INPUT.DccId == "TLB" ) then

#{
IF ((BANCS.INPUT.Command == "MSCR") or (BANCS.INPUT.Command == "MSCS") or
(BANCS.INPUT.Command == "TRTR") or (BANCS.INPUT.Command == "TRTS")) THEN
#{
#}
endif
#}
endif
if ( BANCS.INPUT.DccId == "FIT" ) then

#{
#{
#}
endif
if(BANCS.INPUT.Command == "TRTR") THEN

#{
call ("FITPreProc.scr")
exitscript
#}
ENDIF
#}
endif
if ( BANCS.INPUT.DccId == "ACO" ) then

#{
#{
#}
endif
#}
endif
if ( BANCS.INPUT.DccId == "IBT" ) then

#{
IF ((BANCS.INPUT.Command == "MSCR") or (BANCS.INPUT.Command == "MSCS"))
THEN
#{
#}
endif
#}
endif
if (( BANCS.INPUT.DccId == "CPH" ) or ( BANCS.INPUT.DccId == "CPA" ) or

( BANCS.INPUT.DccId == "CPB" ) or ( BANCS.INPUT.DccId == "CPC" ) or
( BANCS.INPUT.DccId == "CPD" ) or (
BANCS.INPUT.DccId == "CPE" ) or ( BANCS.INPUT.DccId == "CPF" ) or
( BANCS.INPUT.DccId == "CPG" ) or ( BANCS.INPUT.DccId == "CPI" ) or
( BANCS.INPUT.DccId == "CPJ" ) or ( BANC
S.INPUT.DccId == "CPK" )) then
#{
if(BANCS.INPUT.Command == "TRTR") THEN
#{
BANCS.STDIN.tempresrv_cph = ""
call ("CPHPreProc.scr")
print(BANCS.STDIN.tempresrv_cph)
BANCS.INPUT.ReservedField3 = BANCS.STDIN.tempresrv_cph
BANCS.OUTPUT.ReservedField3 = BANCS.STDIN.tempresrv_cph
#}
ENDIF

#{
#}
endif
#}
endif
if(((BANCS.INPUT.DccId == "BWY") or (BANCS.INPUT.DccId == "UBP")) and

(BANCS.INPUT.Command == "TRTR") and ((MID$
(BANCS.INPUT.ReservedField1,28,4)=="BARM"))) then
#{
print(BANCS.STDIN.tempresrv1)
call("BWYCDPreProc_BARM.scr")
exitscript
#}
endif
###################################### SWT Added For NEFT For Mobile Banking

######################################
#if ((BANCS.INPUT.DccId == "SWT" ) or (BANCS.INPUT.DccId == "BWY" ) or

(BANCS.INPUT.DccId =="CMS" )) then
if ((BANCS.INPUT.DccId == "SWT" ) or (BANCS.INPUT.DccId == "BWY" ) or
(BANCS.INPUT.DccId =="CMS" ) or (BANCS.INPUT.DccId =="MOB")) then
#{
###################################################################################
###############################
if(REPEXISTS("CONNECT") == 0) then
CREATEREP("CONNECT")
endif
if(CLASSEXISTS("CONNECT", "INPUT") == 0) then
CREATECLASS("CONNECT","INPUT",5)
endif
if(CLASSEXISTS("CONNECT", "OUTPUT") == 0) then
CREATECLASS("CONNECT","OUTPUT",5)
endif
if (REPEXISTS("RTGS") == 0) then
CREATEREP("RTGS")
endif
if (CLASSEXISTS("RTGS", "MSGDATA") == 0) then
CREATECLASS("RTGS","MSGDATA",5)
endif
if (REPEXISTS("DATA") == 0) then
CREATEREP("DATA")
endif
if (CLASSEXISTS("DATA", "MAPPING") == 0) then
CREATECLASS("DATA","MAPPING",5)
endif
#Print(BANCS.INPUT.Command)
#Print(BANCS.INPUT.ReservedField1)
#{
#}
endif
IF ((BANCS.INPUT.Command == "MSCR" ) AND (MID$(BANCS.INPUT.ReservedField1,0,2) ==
20)) THEN
#{
print("Inside")
DATA.MAPPING.cust_dcc=BANCS.INPUT.DccId
print(DATA.MAPPING.cust_dcc)
call("ConnectToBancs.scr")
#sv_r = urhk_B2k_PrintRepos("CONNECT")
RTGS.MSGDATA.inpStr=BANCS.INPUT.ReservedField1+BANCS.INPUT.ReservedField2+BANCS.INP
UT.ReservedField3
#Print(RTGS.MSGDATA.inpStr)
call("ParseRTGS.scr")
Print(DATA.MAPPING.Field2)
Print(DATA.MAPPING.Field3)
if((DATA.MAPPING.Field2 =="R41") OR (DATA.MAPPING.Field2 =="N06")) then
#if((DATA.MAPPING.Field3 =="R41") OR (DATA.MAPPING.Field3 =="N06")) then
#{
call("MappingRTGS-Mesg.scr")
call("ProcessRTGS-Mesg.scr")
# sv_r = urhk_B2k_PrintRepos("RTGS")
sv_a = ""
# Dummy values for tran_id and tran_date
sv_b = ""
sv_c = ""
sv_d = ""
sv_e = ""
if(RTGS.MSGDATA.ErrDesc != "") then
#{
RTGS.MSGDATA.errorMesg=
RTGS.MSGDATA.ErrCode+"|"+RTGS.MSGDATA.ErrDesc
#Print(RTGS.MSGDATA.errorMesg)
BANCS.OUTPUT.RespCode="99"
#Print(BANCS.OUTPUT.RespCode)
sv_e = RTGS.MSGDATA.errorMesg
#}
else
#{
sv_s = "tranId,tranDate|select tran_id,tran_date from OTC
where ecs_tran_ref_no='"+RTGS.MSGDATA.ecsTranRefNum+"'"
Print(sv_s)
sv_q = urhk_dbSelect(sv_s)
Print(sv_q)
sv_a = RTGS.MSGDATA.utrNum
print(sv_a)
sv_b = BANCS.OUTPARAM.tranId
print(sv_b)
sv_c = BANCS.OUTPARAM.tranDate
print(sv_c)
sv_d = RTGS.MSGDATA.ecsTranRefNum
print(sv_d)
if((sv_b != "") AND (sv_c != "")) THEN

#{
print(BANCS.OUTPUT.RespCode)
sv_e = ""
#}
else
#{
print(BANCS.OUTPUT.RespCode)
sv_e = ""
#}
endif
if(DATA.MAPPING.Field2 =="R41") then

#{
print("Inside")
if((DATA.MAPPING.cust_dcc =="CMS") or
(DATA.MAPPING.cust_dcc =="IBT")) then
#{
sv_z = left$(sv_a,4) + "R" + "5" + mid$
(BANCS.STDIN.sysDate,6,4) + mid$(BANCS.STDIN.sysDate,3,2) + mid$
(BANCS.STDIN.sysDate,0,2) + "00"
+ right$(sv_a,6)
print(sv_z)
sv_j = "insert into tbl_cms_pre_proc values
('" + CONNECT.INPUT.DccId + "',to_date(substr('" + BANCS.STDIN.BODDate +
"',1,10),'dd-mm-yy
yy'),to_date('" + RTGS.MSGDATA.valueDate + "','dd-mm-yyyy hh24:mi:ss'),'" +
CONNECT.INPUT.SerialNum + "','" + sv_z + "','" + sv_d + "','" + sv_b + "','" + sv_c
+ "','" + sv_a
+ "','','','','')"
Print(sv_j)
sv_w = urhk_dbSQL(sv_j)
sv_w = urhk_dbSQL("COMMIT")
sv_a = sv_z
print(sv_a)
#}
else
#{
sv_j = "insert into tbl_cms_pre_proc values
('" + CONNECT.INPUT.DccId + "',to_date(substr('" + BANCS.STDIN.BODDate +
"',1,10),'dd-mm-yy
yy'),to_date('" + RTGS.MSGDATA.valueDate + "','dd-mm-yyyy hh24:mi:ss'),'" +
CONNECT.INPUT.SerialNum + "','" + sv_a + "','" + sv_d + "','" + sv_b + "','" + sv_c
+ "','','','','
','')"
Print(sv_j)
#}
endif
#}
else
#{
sv_j = "insert into tbl_cms_pre_proc values ('" +
CONNECT.INPUT.DccId + "',to_date(substr('" + BANCS.STDIN.BODDate + "',1,10),'dd-mm-
yyyy'),to_
date('" + RTGS.MSGDATA.valueDate + "','dd-mm-yyyy hh24:mi:ss'),'" +
CONNECT.INPUT.SerialNum + "','" + sv_a + "','" + sv_d + "','" + sv_b + "','" + sv_c
+ "','','','','','')"
Print(sv_j)
#}
endif
#}
endif
RTGS.MSGDATA.Output = sv_a + "|" + sv_b + "|" + sv_c + "|" + sv_d +
"|" + sv_e
print(RTGS.MSGDATA.Output)
#}
endif
call("BancsToConnect.scr")
# sv_r = urhk_B2k_PrintRepos("BANCS")
BANCS.OUTPUT.ReservedField1=RTGS.MSGDATA.Output
EXITSCRIPT
#}
ENDIF
#}
ENDIF
#================================= For Form 26AS - Internet Banking

========================
IF ((BANCS.INPUT.Command == "MSCR") AND (mid$(BANCS.INPUT.ReservedField1,0,2)==21))

THEN
#{
call("CDDispPanNum.scr")
#}
ENDIF
#==========================================End Form 26AS

===================================
#----------------------------------------------------------------------------------
------------------
# ADDED BY TARUN FOR ATM FUND TRANSFER TRANSACTIONS (21-05-2011)
#----------------------------------------------------------------------------------
------------------
IF ((BANCS.INPUT.Command == "TRTR" ) AND (BANCS.INPUT.DccId == "SWT")) THEN

#{
IF (REPEXISTS("FUND") == 0) THEN
CREATEREP("FUND")
ENDIF
IF (CLASSEXISTS("FUND", "TRANSFER") == 0) THEN
CREATECLASS("FUND","TRANSFER",5)
ENDIF
IF(REPEXISTS("CONNECT") == 0) THEN
CREATEREP("CONNECT")
ENDIF
IF(CLASSEXISTS("CONNECT", "INPUT") == 0) THEN
CREATECLASS("CONNECT","INPUT",5)
ENDIF
IF(CLASSEXISTS("CONNECT", "OUTPUT") == 0) THEN
CREATECLASS("CONNECT","OUTPUT",5)
ENDIF
call("ConnectToBancs.scr")
FUND.TRANSFER.crsolid = BANCS.INPUT.CrSolId
print(FUND.TRANSFER.crsolid)
FUND.TRANSFER.crbankcode = BANCS.INPUT.CrBankCode
print(FUND.TRANSFER.crbankcode)
FUND.TRANSFER.crForacid = BANCS.INPUT.CrForacid
print(FUND.TRANSFER.crForacid)
FUND.TRANSFER.Output = " " + FUND.TRANSFER.crbankcode + " " +

FUND.TRANSFER.crsolid + " " + FUND.TRANSFER.crForacid + " "
print(FUND.TRANSFER.Output)
BANCS.OUTPUT.ReservedField1 = " " + FUND.TRANSFER.Output

PRINT(BANCS.OUTPUT.ReservedField1)
call("BancsToConnect.scr")
EXITSCRIPT
#}
ENDIF
#----------------------------------------------------------------------------------
------------------
# ADDED BY AVIRUP FOR FUND TRANSFER TRANSACTIONS --- SBNRE & SBNRO (27-01-2016)
#----------------------------------------------------------------------------------
------------------
IF ((BANCS.INPUT.Command == "TRTR") AND (BANCS.INPUT.DccId == "BWY")) THEN

#{
IF (REPEXISTS("FUND") == 0) THEN
CREATEREP("FUND")
ENDIF
IF (CLASSEXISTS("FUND", "TRANSFER") == 0) THEN
CREATECLASS("FUND","TRANSFER",5)
ENDIF
FUND.TRANSFER.foracid = BANCS.INPUT.Foracid
FUND.TRANSFER.crForacid = BANCS.INPUT.CrForacid
print(FUND.TRANSFER.foracid)
print(FUND.TRANSFER.crForacid)
IF ((FIELDEXISTS(FUND.TRANSFER.foracid) == 1 ) AND (FUND.TRANSFER.foracid !

= "" )) THEN
#{
sv_f = FUND.TRANSFER.foracid
print (sv_a)
if (sv_a != 0) then
#{
EXITSCRIPT
#}
endif
sv_a = " debitSchmType, debitSchmCode | select schm_type,schm_code

from gam "
sv_a = sv_a + " where foracid = '"+FUND.TRANSFER.foracid+"'
"
print(sv_a)
print(sv_b)
if(sv_b ==0) then
#{
FUND.TRANSFER.debitSchmType = BANCS.OUTPARAM.debitSchmType
print(FUND.TRANSFER.debitSchmType)
FUND.TRANSFER.debitSchmCode = BANCS.OUTPARAM.debitSchmCode
print(FUND.TRANSFER.debitSchmCode)
else
FUND.TRANSFER.debitSchmType = ""
FUND.TRANSFER.debitSchmCode = ""
#}
endif
#}
ENDIF
IF (FIELDEXISTS(FUND.TRANSFER.crForacid) == 1) then
#{
if (FUND.TRANSFER.crForacid != "") then
#{
sv_f = FUND.TRANSFER.crForacid
print (sv_a)
if (sv_a != 0) then
#{
EXITSCRIPT
#}
endif
#}
endif
#}
ENDIF
sv_a = " creditSchmType, creditSchmCode | select schm_type,schm_code from

gam "
sv_a = sv_a + " where foracid = '"+FUND.TRANSFER.crForacid+"'
"
print(sv_a)
print(sv_b)
if(sv_b ==0) then
#{
FUND.TRANSFER.creditSchmType = BANCS.OUTPARAM.creditSchmType
print(FUND.TRANSFER.creditSchmType)
FUND.TRANSFER.creditSchmCode = BANCS.OUTPARAM.creditSchmCode
print(FUND.TRANSFER.creditSchmCode)
else
FUND.TRANSFER.creditSchmType = ""
FUND.TRANSFER.creditSchmCode = ""
#}
endif
if ((FUND.TRANSFER.creditSchmCode == "SBNRE") or
(FUND.TRANSFER.creditSchmCode == "SBNRO")) then
#{
if ((FUND.TRANSFER.debitSchmCode == "SBNRE") or
(FUND.TRANSFER.debitSchmCode == "SBNRO")) then
#{
print("Success")
else
exitscript
#}
endif
#}
endif
#}
ENDIF
#trace off
end-->
:q
[UBIDBSE]/finacle/app/base/cust/scripts> cd
[UBIDBSE]/finuser11/tbaadm>

Connect 24 Details

Uploaded by

Copyright:

Available Formats

Connect 24 Details

Uploaded by

Document Information

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

Connect 24 Details

Uploaded by

Copyright:

Available Formats

[UBIDBSE]/csis/cbcadm/connect24/log> vi LISRVR_CDCI_SWIF_CPH_11344_130917_17.

Pid: 11344 Sent Message At: 13/09/2017 17:27:50.334

Pid: 11344 Received Message At: 13/09/2017 17:27:51.633

Pid: 11344 Sent At: 13/09/2017 17:27:51.650

cbcadm 11362 11112 0 Sep 11 ? 0:00 /csis/cbcadm/connect24/bin/cdci-

cbcadm 11264 11112 0 Sep 11 ? 0:00 /csis/cbcadm/connect24/bin/cdci-

if((CDCI.Request8583.Field123 == "SWT") and (MID$(CDCI.Request8583.Field3,0,2) ==

IF ((CDCI.Request8583.Field123 == "SWT") or (CDCI.Request8583.Field123 ==

IF (( MID$(CDCI.Request8583.Field3,0,2) == "MM" ) or ( MID$

IF (( MID$(CDCI.Request8583.Field3,0,2) == "40" ) AND

sv_r = CLASSEXISTS("UBI", "GLBDATA")

sv_r = CLASSEXISTS("STDWFS", "GLBDATA")

if(left$(BANCS.INPUT.ReservedField1,8) == "CREDITAD") then

IF (((BANCS.INPUT.Command == "CWDR") or (BANCS.INPUT.Command == "CWRR") or

sv_a = "debitSchmType,debitSchmCode|select schm_type,schm_code from

if((BANCS.STDIN.custSchmType == "SBA") or (BANCS.STDIN.custSchmType

if(BANCS.STDIN.custAcctStatus != "A") then

#####IF ((BANCS.INPUT.Command == "CWDR") and (BANCS.INPUT.DccId == "SWT") and

IF ((BANCS.INPUT.DccId == "SWT") and (BANCS.INPUT.ReservedField2 == "LORO") and

if(left$(BANCS.INPUT.ReservedField1,4) != "GLRR") then

if ( BANCS.INPUT.DccId == "GBM" ) then

if ( BANCS.INPUT.DccId == "BNA" ) then

if ( BANCS.INPUT.DccId == "TLB" ) then

if ( BANCS.INPUT.DccId == "FIT" ) then

if(BANCS.INPUT.Command == "TRTR") THEN

if ( BANCS.INPUT.DccId == "ACO" ) then

if ( BANCS.INPUT.DccId == "IBT" ) then

if (( BANCS.INPUT.DccId == "CPH" ) or ( BANCS.INPUT.DccId == "CPA" ) or

IF ((BANCS.INPUT.Command == "MSCR") or (BANCS.INPUT.Command == "MSCS") or

if(((BANCS.INPUT.DccId == "BWY") or (BANCS.INPUT.DccId == "UBP")) and

###################################### SWT Added For NEFT For Mobile Banking

#if ((BANCS.INPUT.DccId == "SWT" ) or (BANCS.INPUT.DccId == "BWY" ) or

if((sv_b != "") AND (sv_c != "")) THEN

if(DATA.MAPPING.Field2 =="R41") then

#================================= For Form 26AS - Internet Banking

IF ((BANCS.INPUT.Command == "MSCR") AND (mid$(BANCS.INPUT.ReservedField1,0,2)==21))

#==========================================End Form 26AS

IF ((BANCS.INPUT.Command == "TRTR" ) AND (BANCS.INPUT.DccId == "SWT")) THEN

FUND.TRANSFER.Output = " " + FUND.TRANSFER.crbankcode + " " +

BANCS.OUTPUT.ReservedField1 = " " + FUND.TRANSFER.Output

IF ((BANCS.INPUT.Command == "TRTR") AND (BANCS.INPUT.DccId == "BWY")) THEN

IF ((FIELDEXISTS(FUND.TRANSFER.foracid) == 1 ) AND (FUND.TRANSFER.foracid !

sv_a = " debitSchmType, debitSchmCode | select schm_type,schm_code

sv_a = " creditSchmType, creditSchmCode | select schm_type,schm_code from

You might also like