View previous topic :: View next topic
|
Author |
Message |
nithusi
New User
Joined: 12 Apr 2006 Posts: 30
|
|
|
|
hi,
Can anybody tell how to use the IMS-BTS tool with ENDEVOR. I want to test a transaction using BTS in ENDEVOR. I am facing difficulties since i have not worked in ENDEVOR as well as BTS. Can anybody help me please? Even after compiling and link editing the cobol source in ENDEVOR (stage A) the transaction is not invoked from BTS. The error code is S806 (saying load module not found). |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
BTS operates like normal online but under TSO or in batch. The transaction has to be completed as if it were online (PSB-GEN/ACB-GEN etc). The directories have to be defined in the BTS startup as in regionstartup. Either your transaction (member) isn't on the library or the library is missing. Your sysin should contain all transactions you want to BTS-test Sample:
Code: |
BROWSE $$NL58.BTS.BTSIN Line 00000084 Col 001 080
Command ===> Scroll ===> CSR
./T TC=OM MBR=TPOMVER LANG=PLI TYPE=MSG PLC=1 00000309
./T TC=NK MBR=TPNKVER LANG=PLI TYPE=MSG PLC=1 00000311
./T TC=NN MBR=TPNNVER LANG=PLI TYPE=MSG PLC=1 00000313
./T TC=NM MBR=TPNMVER LANG=PLI TYPE=MSG PLC=1 00000315
./T TC=QC MBR=TPQCVER LANG=PLI TYPE=MSG PLC=1 00000317
./T TC=NF MBR=TPNFVER LANG=ASM TYPE=MSG PLC=1 00000319
./T TC=NC MBR=TPNCVER LANG=PLI TYPE=MSG PLC=1 00000321
./T TC=NI MBR=TPNIVER LANG=PLI TYPE=MSG PLC=1 00000325
./T TC=DXNL1 MBR=TPDXNL1 LANG=PLI TYPE=MSG PLC=1 00000327
./T TC=DXNL2 MBR=TPDXNL2 LANG=PLI TYPE=MSG PLC=1 00000330
./T TC=TKST MBR=FSHASF1I LANG=PLI TYPE=MSG PLC=1 00000338
./T TC=FSH1 MBR=FSHASF1I LANG=PLI TYPE=MSG PLC=1 00000339
./P MBR=BTSCOM00 PA=0003FE PX=6A 00000348
./P MBR=BTSCOM00 PA=00040D PX=79 00000349
./* ./P MBR=BTSCOM00 PA=000414 PX=40818283848586878889 00000350
./* ./P MBR=BTSCOM00 PA=000424 PX=40919293949596979899 00000351
./* ./P MBR=BTSCOM00 PA=000434 PX=40A1A2A3A4A5A6A7A8A9 00000352
./P MBR=BTSCOM00 PA=000474 PX=E0 00000353
./T TC=BW40 PLC=0 MDL=2 00000360
./D LTERM=ABTS1 DDOF=327029 TPBUF=10000 FORMBUF=20000 00000400
./O DB=YES MSG=YES APS=NO ATR=NO SCREEN=INOUT 00000500
./O TSO=YES TSOMLVL=1 TSOMSG=ALL TSODB=NONE 00000610
/FORMAT QXXMODH 00000700
|
|
|
Back to top |
|
|
nithusi
New User
Joined: 12 Apr 2006 Posts: 30
|
|
|
|
thanks for the reply George,
I could resolve the load not found error but now the RC is U3003.
Please see the screen DUMP of my BTS-TEST sample.
***************************** Top of Data ******************
./T TC=ET120Z MBR=ET120Z PSB=ET120Z LANG=CBL MSGTYPE=TRAN
./C COBTEST ET120Z
./T TC=LIF15 PLC=0 MDL=2
./T TC=MASTER PLC=0 MDL=2
./T TC=MASTERP PLC=0 MDL=P2
./T TC=LOC01 PLC=0 MDL=2
./P MBR=BTSCOM00 PA=0000D8 PC=CON5368
./O TSOMLVL=0
./D EOM=? DDOF=327021 FORMBUF=3000 TPBUF=4000
./C NC=15
./O TSOMLVL=0
**************************** Bottom of Data ****************
Now the RC is U3003.
I am trying out from my end to find out and resolve this. Please help me if you have any idea.
Thanks a lot for your support.
Nithya. |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Can't find the U3003 in the BTS-manual. Could you modify the TSO message level so we may obtain more information?
Quote: |
./O TSOMLVL=0 <--- 1
|
Here you may find the messages. I will look deeper into the stuff. |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Hi again,
In the IMS messages and codes I found the 3003. Look here for the message. Looks like a time-out. Could it be your databases are unavailable during your BTS-test? Are they defined at all? |
|
Back to top |
|
|
nithusi
New User
Joined: 12 Apr 2006 Posts: 30
|
|
|
|
Hi George,
Shall try changing ./O TSOMLVL=0 <--- 1. we are just trying to invoke an online transaction. this is not accessing any databases.
Thanks,
Nithya, |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Code: |
./O DB=NO MSG=YES APS=NO ATR=NO SCREEN=INOUT 00000500
./O TSO=YES TSOMLVL=1 TSOMSG=ALL TSODB=NONE 00000610
/FORMAT QXXMODH 00000700
|
Don't you need these? The /FORMAT statement invokes the first screen to be processed (it's a MOD). |
|
Back to top |
|
|
nithusi
New User
Joined: 12 Apr 2006 Posts: 30
|
|
|
|
Hi George,
We need to throw the screen through the application program, which inturn would be invoked by the transaction name. This would help us to navigate through the screens. right? We are trying to enter the transaction name as the BTS command. Is this the right way? Please advise. By giving the MOD name the MFS/screen is thrown. But we want to test it like a live IMS region where we enter a transaction name for the screen to be thrown.
Thanks
nithya. |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Just trow any format and in the first line of the trown screen type your transactioncode going with the program. If it works ok, I will check some further for direct transaction startup. |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Try this. In stead of the /FORMAT type your (and not mine) transaction
Code: |
./T TC=OM MBR=TPOMVER LANG=PLI TYPE=MSG PLC=1 |
|
|
Back to top |
|
|
nithusi
New User
Joined: 12 Apr 2006 Posts: 30
|
|
|
|
Hi george,
The option of throwing the screen and from there invoking the transaction is not working :-(.
Ans we already have the above specified code in out BTSin member
./T TC=ET120Z MBR=ET120Z PSB=ET120Z LANG=CBL MSGTYPE=TRAN |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Well, I'm used to start the dialog with a /FORMAT and the manual tells the same. Maybe some exploring (CLEAR?) might help. |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
If you omit the /FORMAT and clear the screen (with us it's Pause/Break) and then type the transactioncode what happens? Bytheway: we don't use BTS anymore so everthing I post is from memory, manuals and old TSO stuff |
|
Back to top |
|
|
nithusi
New User
Joined: 12 Apr 2006 Posts: 30
|
|
|
|
Hi George,
We have some display statements in our COBOL code for the transaction program. Any idea how to have a sysout in the BTS job. Currently we get to see only BTSOUT and no SYSOUT.
The error we get is
BTS0021E TRANSACTION ABNORMALLY TERMINATED. COMPLETION CODE WAS U3003.
User abend 3,003 dec occurred processing command 'CALL '.
ERROR PROCESSING DATASET : COMPMLIB
RC = U3003
Does this mean that there is some problem with teh code??? Please advise.
Thanks & Regards,
Nithya. |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
Code: |
./O TSO=YES TSOMLVL=1 TSOMSG=ALL TSODB=NONE |
Did you include this command? The displays are written to BTSOUT between the screens, messages, dbcalls etc. Sample (sorry no displays):
Code: |
BROWSE $$NL58.BTS.BTSOUT Line 00000272 Col 001 080
Command ===> Scroll ===> CSR
PAGE 0008 B A T C H T E R M I N A L S I M U L A T O R ' B T
BTS0006I TRANSACTION STARTED: ZZ .
MBR=TPZZVER PSB=TPZZVER EDIT= SPA=0 PLC=1 LANG=PLI TYPE=MSG
**** MSG CALL- FUNC=GU , PCB=ABTS1 , STATUS= , MESSAGE NUMBER=000001
----.----1----.----2----.----3----.----4----.----5----.----6----.--
IOAREA= ZZ
0000000000EE4
0D03010704990
****** DB CALL- FUNC=GU , PCB=DBNLSPA , STATUS= , LEVEL=01, SEGMENT=QSPA1
KFB=ABTS1
CCEEF444
12321000
SSA1=QSPA1 (QLTERM =ABTS1 )
DEDCF4444DDECDD4447CCEEF4445
82711000D833594000E12321000D
----.----1----.----2----.----3----.----4----.----5----.----6----.--
IOAREA=ABTS1 4 8 ZZ
CCEEF444FFFFFFDF00FFFFFFFFFFFFF0000FFFFFFFFFFF44444444EE44444444440
12321000EFFFFFFF00FFFFFFFFFFFF400008FFFFFFFEFF000000009900000000000
Z QNSMODH
E4444444444444DDEDDCC4000000000444444444444444442001419440004444444
900000000000008524648000000000000000000000000000890118F000000000000
4444444444444444444444444444444444444444444444444444444444444444444
0000000000000000000000000000000000000000000000000000000000000000000
000157 LINE(S) SAME AS ABOVE
**** MSG CALL- FUNC=GN , PCB=ABTS1 , STATUS=QD, MESSAGE NUMBER=000001
BTS0031I MODNAME: QXXMODH
|
Is this COMPMLIB accessable to BTS: allocated and not locked by anything else? What is this library supposed to contain? |
|
Back to top |
|
|
|