IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to use the IMS-BTS tool with ENDEVOR


IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
nithusi

New User


Joined: 12 Apr 2006
Posts: 30

PostPosted: Wed Jan 24, 2007 9:44 pm
Reply with quote

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
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Wed Jan 24, 2007 10:13 pm
Reply with quote

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
View user's profile Send private message
nithusi

New User


Joined: 12 Apr 2006
Posts: 30

PostPosted: Thu Jan 25, 2007 4:00 pm
Reply with quote

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
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Jan 25, 2007 4:19 pm
Reply with quote

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
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Jan 25, 2007 4:47 pm
Reply with quote

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
View user's profile Send private message
nithusi

New User


Joined: 12 Apr 2006
Posts: 30

PostPosted: Thu Jan 25, 2007 7:27 pm
Reply with quote

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
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Jan 25, 2007 7:39 pm
Reply with quote

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
View user's profile Send private message
nithusi

New User


Joined: 12 Apr 2006
Posts: 30

PostPosted: Thu Jan 25, 2007 8:24 pm
Reply with quote

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
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Jan 25, 2007 8:35 pm
Reply with quote

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
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Jan 25, 2007 8:56 pm
Reply with quote

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
View user's profile Send private message
nithusi

New User


Joined: 12 Apr 2006
Posts: 30

PostPosted: Thu Jan 25, 2007 9:02 pm
Reply with quote

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
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Jan 25, 2007 9:23 pm
Reply with quote

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
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Thu Jan 25, 2007 9:44 pm
Reply with quote

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 icon_rolleyes.gif
Back to top
View user's profile Send private message
nithusi

New User


Joined: 12 Apr 2006
Posts: 30

PostPosted: Fri Jan 26, 2007 7:01 pm
Reply with quote

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
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Fri Jan 26, 2007 7:15 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
No new posts Error while running web tool kit REXX... CLIST & REXX 5
No new posts Mass JCL release via IDZ tool(eclipse... CA Products 1
No new posts SXP Tool for PL1 or Module library ma... PL/I & Assembler 0
No new posts Updating endevor JCLs CA Products 5
No new posts REXX/CLIST tool for BCSR and EDSR CLIST & REXX 2
Search our Forums:

Back to Top