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

To read and process the entry on the IMS-DC screen


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: Tue Feb 06, 2007 4:18 pm
Reply with quote

Hi,
I am trying to throw a screen through a transaction code and then further read from the sreen entry and process within in the prgram and throw back the screen again with teh required data. I am able to invoke the screen only once and when I type something on the screen and click enter, it says no valid transaction supplied. I am testing through BTS. I tried my level best by going through some materials as well but no luck. I am not sure what is to be done for this. Can anyone help me please.

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: Tue Feb 06, 2007 6:21 pm
Reply with quote

Did you include all transactions you need in your BTSIN? Sample:

Code:
./T TC=OM MBR=TPOMVER LANG=PLI TYPE=MSG PLC=1               
./T TC=NK MBR=TPNKVER LANG=PLI TYPE=MSG PLC=1               
./T TC=NN MBR=TPNNVER LANG=PLI TYPE=MSG PLC=1               
./T TC=NM MBR=TPNMVER LANG=PLI TYPE=MSG PLC=1               
./T TC=QC MBR=TPQCVER LANG=PLI TYPE=MSG PLC=1               
./T TC=NF MBR=TPNFVER LANG=ASM TYPE=MSG PLC=1               
./T TC=NC MBR=TPNCVER LANG=PLI TYPE=MSG PLC=1               
./T TC=NI MBR=TPNIVER LANG=PLI TYPE=MSG PLC=1               
./T TC=DXNL1 MBR=TPDXNL1 LANG=PLI TYPE=MSG PLC=1             
./T TC=DXNL2 MBR=TPDXNL2 LANG=PLI TYPE=MSG PLC=1             
./T TC=TKST MBR=FSHASF1I LANG=PLI TYPE=MSG PLC=1             
./T TC=FSH1 MBR=FSHASF1I LANG=PLI TYPE=MSG PLC=1             
./P MBR=BTSCOM00 PA=0003FE PX=6A                             
./P MBR=BTSCOM00 PA=00040D PX=79                             
./* ./P MBR=BTSCOM00 PA=000414 PX=40818283848586878889       
./* ./P MBR=BTSCOM00 PA=000424 PX=40919293949596979899       
./* ./P MBR=BTSCOM00 PA=000434 PX=40A1A2A3A4A5A6A7A8A9       
./P MBR=BTSCOM00 PA=000474 PX=E0                             
./T TC=BW40 PLC=0 MDL=2                                     
./D LTERM=ABTS1 DDOF=327029 TPBUF=10000 FORMBUF=20000       
./O DB=YES MSG=YES APS=NO ATR=NO SCREEN=INOUT               
./O TSO=YES TSOMLVL=1 TSOMSG=ALL TSODB=NONE                 
/FORMAT QXXMODH                                             


./T for definitions of the transactions to be used
./D for definition of your screentype
./O for definition what is to be written into BTSOUT.
Back to top
View user's profile Send private message
nithusi

New User


Joined: 12 Apr 2006
Posts: 30

PostPosted: Tue Feb 06, 2007 6:28 pm
Reply with quote

Hi George,
thanks, All this is given. the menu screen is thrown onto the trminal when i enter the TXN code. but when i select from the menu screen this entry is not invoking the transaction program again. What needs to be done to do this? Please advise.

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: Tue Feb 06, 2007 6:41 pm
Reply with quote

Are the items on the menue supposed to call different mpp's? In that case you should make a program-to-program switch (trx-change in SPA and isrt SPA / message) or a CHNG-call to the transaction to be started and a message. Please show the part of the BTSout where you insert spa and message from the menue-transaction which would be your first screen.
Back to top
View user's profile Send private message
nithusi

New User


Joined: 12 Apr 2006
Posts: 30

PostPosted: Tue Feb 06, 2007 7:31 pm
Reply with quote

Hi,
The itmes on the menu is supposed to triger the same program which had thrown the menu screen. Depending upon what is entered on the screen, it is processed in the program. I am not using SPA.

This is my BTSfile contents;
Code:

 ./O TSOMLVL=1                                                       
 ./P MBR=BTSCOM00 PA=0000D8 PC=CON5368                               
 ./T TC=ET110A MBR=ET110A PSB=ET110A LANG=CBL TYPE=MSG MSGTYPE=TRAN 
 ./T TC=ET120Z MBR=ET120Z PSB=ET120Z LANG=CBL TYPE=MSG MSGTYPE=TRAN 
 ./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                                           
 ./D EOM=? DDOF=327021 FORMBUF=10000 TPBUF=20000                     
 ./C NC=15                                                           
 ./O TSO=YES SCREEN=INOUT TSOMLVL=1                                 

In the above this is the line specifying the transaction;
./T TC=ET110A MBR=ET110A PSB=ET110A LANG=CBL TYPE=MSG MSGTYPE=TRAN 


Thanks,
Nithya.

Put code around the code
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: Tue Feb 06, 2007 8:34 pm
Reply with quote

This is your BTSIN; what does the BTSOUT say? Please post.
Back to top
View user's profile Send private message
nithusi

New User


Joined: 12 Apr 2006
Posts: 30

PostPosted: Tue Feb 06, 2007 9:08 pm
Reply with quote

Hi,
BTSOUT is here
Code:


BTS0006I TRANSACTION STARTED: ET110A  .                                         
MBR=ET110A   PSB=ET110A   EDIT=         SPA=0     PLC=1     LANG=CBL TYPE=MSG   
****  MSG CALL- FUNC=GU  , PCB=IOPCB   , STATUS=  , MESSAGE NUMBER=000001       
             ----.----1----.----2----.----3----.----4----.----5----.----6----.--
      IOAREA= .  ET110A                                                         
             0400CEFFFC444444444444444444444444444444444444444444444444444444444
             0B00531101000000000000000000000000000000000000000000000000000000000
BTS0031I MODNAME: ET110AU1                                                     
BTS0050W SEGMENT LENGTH GREATER THAN Q BLKSIZE OR LRECL.                       
****  MSG CALL- FUNC=ISRT, PCB=IOPCB   , STATUS=  , MESSAGE NUMBER=000001       
             ----.----1----.----2----.----3----.----4----.----5----.----6----.--
      IOAREA=      IOPC                                                         
             440044CDDC444444444444444444444444444444444444444444444444444444444
             0000009673000000000000000000000000000000000000000000000000000000000
                                                                               
             4444444444444444444440000000000000000000000000000000000000000000000
4444444444444444444440000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000
                                                                   
0000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000
GHN GNP GHNPISRTCHNGPURGDLETREPLCHKPXRSTSYNC                       
CCD4CDD4CCDDCEDECCDCDEDCCDCEDCDDCCDDEDEEEEDC44444444444444444444444
7850757078579293385774974353957338277923285300000000000000000000000
                                                                   
4444444444444444444444444444444444444444444444444444444444444444444
0000000000000000000000000000000000000000000000000000000000000000000
                                  00ET110AN1ET110A                 
4444444444444444444444444444444444FFCEFFFCDFCEFFFC00000000000000000
0000000000000000000000000000000000005311015153110100000000000000000
                                                                   
0000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000
             0000000000000000000000000000000000000000000000000000000000000000000
             000157 LINE(S) SAME AS ABOVE                                       
                                                                               
             000000000000000000000000000000000000000000000000
Back to top
View user's profile Send private message
nithusi

New User


Joined: 12 Apr 2006
Posts: 30

PostPosted: Tue Feb 06, 2007 9:09 pm
Reply with quote

And this is the final part when we try to choose something from the menu screen,
Code:

  THE FIELD ATTRIBUTE BITS ARE: RRPNDDRM, WHERE P MEANS PROTECTED; N MEANS NUMER
  THE MEANING OF THE DD BITS IS: 00=DISPLAY/NO PEN DETECT; 01=DISPLAY/DETECT; 10
PAGE 0007                B A T C H   T E R M I N A L   S I M U L A T O R   ' B T
BTS0004W NO TRANSACTION INFORMATION SUPPLIED. UNABLE TO SCHEDULE TRANSACTION:   
BTS0011I CONTINUING WITH NEXT TRANSACTION.
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: Tue Feb 06, 2007 10:04 pm
Reply with quote

Looks like the message you inserted is wrongly filled. I see spaces where they should not be in the start of your message. That's also why the length message comes. Have a look at this piece of documentation. For other items follow the link in my signature and search a bit.
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: Tue Feb 06, 2007 10:34 pm
Reply with quote

Have a look at this one; oops better follow my previous link ?ause the tables look fuzzy. Did you insert an output message instead of een inputmessage? Besides your message looks odd icon_wink.gif How come the IO-area contains the text 'IOPCB'???????? Could you post how you fill the message, the message structure and the insert call?

Quote:
Input Message Format and Contents
|The input message that an application program receives from a terminal |or another program always has these fields: the length field, the ZZ field, |and the text field. The tables that follow show the message input layouts. | The input message field names are in the first row of each table. The number |below each field name is the length in bytes that has been defined for that |field. Table 1 shows the format of an |input message for AIBTDLI, ASMTDLI, CBLTDLI, CEETDLI, CTDLI, and PASTDLI interfaces. |The message is slightly different for the PLITDLI interface as shown in Table 2.

| || Table 1. Input Message Format | | | Field Name | LL | ZZ | TRANCODE | Text |
| | Field Length | 2 | 2 | 8 | Variable |
| | | || Table 2. Input Message Format for the PLTDLI interface | | | Field Name | LLLL | ZZ | TRANCODE | Text |
| | Field Length | 4 | 2 | 8 | Variable |
| | |The contents of the input message fields are:

||LL or LLLL |The length field contains the length of the input message segment in |binary, including LL (or LLLL) and ZZ. IMS TM supplies this number in the length |field when you retrieve the input message. |For the AIBTDLI, ASMTDLI, | CBLTDLI, CEETDLI, CTDLI, and PASTDLI interfaces, define the LL field as 2 |bytes long.

|For the PLITDLI interface, define the LLLL field as 4 bytes |long. The value in the LLLL field is the input message length minus 2 bytes. |For example, if the text is 12 bytes, then the fullword LLLL contains a value |of 24 bytes. This value is the total of LLLL (4 bytes) + ZZ (2 bytes) + TRANCODE |(8 bytes) + text (12 bytes) - 2 bytes.

| |ZZ |The ZZ field is a 2-byte field that is reserved for IMS TM. Your program |does not modify this field. | |TRANCODE |The TRANCODE is the transaction code for the incoming message. | |Text |This field contains the message text sent from the terminal to the application |program. The first segment of a message can also contain the transaction code |associated with the program in the beginning of the text portion of the message. |Input messages do not have to include the transaction code, but you can provide |it for consistency. | ||The text field's contents in the input message and the formatting of |the contents when your program receives the message depends on the editing |routine your program uses.

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 to read log with rexx CLIST & REXX 11
No new posts Random read in ESDS file by using RBA JCL & VSAM 6
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
No new posts ICETOOL to Read records SMF CEF it is... DFSORT/ICETOOL 4
No new posts Read a flat file and update DB2 table JCL & VSAM 2
Search our Forums:

Back to Top