Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Received Junk values for the terminal data

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
praveenbl22
Currently Banned

New User


Joined: 26 Sep 2007
Posts: 24
Location: Bangalore

PostPosted: Fri Sep 28, 2007 9:13 am    Post subject: Received Junk values for the terminal data
Reply with quote

Hi,

When i execute the CICS receive Command
it receive Junk values for the terminal data

Code:

01 ws-char            pic     x(4)
01 ws-numeric       redefines      ws-char
                            pic 9(4)
01 ws-recev-area
     05 ws-tran       pic x(4)
     05 ws-data.
          10     ws-comma       PIC  x
          20     ws-value          pic  x(4).



Exec  Cics receive
                   into (ws-recev-area)
                   length (length of ws-recev-area)
                   resp (ws-resp-code)
end-exec

          move ws-value to         ws-char               
          evaluate ws-resp-code
              when DFHRESP(normal)   
                            if ws-comma = ',' and ws-numeric is numeric
                                move ws-numeric to ws-hold
                            end-if
              when  DFHRESP(EOCl)
                        if ws-comma = ' ' or LOw-values
                                move 1 to ws-hold
                        end-if
               when other
                          perform 0000-dump-abend
         end-evaluate     


                                           
 


IF I give the Transaction

TRAN,100


the Value received is

01 ws-recev-area
05 ws-tran =.(;T
05 ws-data.
10 ws-comma =R
10 ws-value =IG,1


Why it receives junk values from the terminal?
I did not get normal response while testing. either it will be length error
or EOC

I tried entering following values and the response code
TRIG,10 rRESP=22
TRIG,100 RESP=22
TRIG,1000 RESP=22
TRIG RESP =6
Back to top
View user's profile Send private message

praveenbl22
Currently Banned

New User


Joined: 26 Sep 2007
Posts: 24
Location: Bangalore

PostPosted: Fri Sep 28, 2007 10:31 am    Post subject: Reply to: Length Error
Reply with quote

HI,
When I Debug using the CEDF i found the Length is changing.

Before Executing the Command

EXEC CICS RECEIVE
INTO (' ')
LENGTH (9)
NOHANDLE

After executing the command
EXEC CICS RECEIVE
INTO ('TRIG,100 ')
LENGTH (1920)
NOHANDLE

Why the length is chaning to 1920?
Before this command i a performing the Assign Command
is there any impact on this
I found that length will not change when I run the newcopy for the first time. After first transaction the lenght is changing when i next time.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Fri Sep 28, 2007 3:49 pm    Post subject:
Reply with quote

I know that the first three bytes of "05 ws-tran =.(;T" is BMS stuff...SBA, SF, something....usually left on a screen after a send erase....
Before typing in your "TRIG,100", manually clear (pause/break?) the screen....
Back to top
View user's profile Send private message
praveenbl22
Currently Banned

New User


Joined: 26 Sep 2007
Posts: 24
Location: Bangalore

PostPosted: Mon Oct 01, 2007 10:06 am    Post subject:
Reply with quote

hi,
Thanks, for replying.
But do we need to pause/break every time we run the transaction for avoiding junk values from the terminal.


And also Sometimes length will be 1920 when it receives from the terminal. Do you Know why?



Thanks
Back to top
View user's profile Send private message
Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Mon Oct 01, 2007 10:12 am    Post subject:
Reply with quote

Quote:
Sometimes length will be 1920

This is screen size 24*80
Back to top
View user's profile Send private message
praveenbl22
Currently Banned

New User


Joined: 26 Sep 2007
Posts: 24
Location: Bangalore

PostPosted: Mon Oct 01, 2007 11:44 am    Post subject:
Reply with quote

Hi,
But why it as to receive entire length will it not find EOC after 8 chacter that when i give the Transaction TRIG,100
Back to top
View user's profile Send private message
praveenbl22
Currently Banned

New User


Joined: 26 Sep 2007
Posts: 24
Location: Bangalore

PostPosted: Mon Oct 01, 2007 11:49 am    Post subject:
Reply with quote

Hi "CICS Guy",

Can we View or edit the SBA nad SF fields
Back to top
View user's profile Send private message
praveenbl22
Currently Banned

New User


Joined: 26 Sep 2007
Posts: 24
Location: Bangalore

PostPosted: Mon Oct 01, 2007 12:05 pm    Post subject:
Reply with quote

Hi,

Sorry i want to correct the previous question.
If there are no fields on the screen to receive it receive the data in Unformatted mode to the Character Buffer and considers the the entire screen as single field and three junk values i am assuming here is the Field attributes Protection ,Modifcation and Intensity is that right "CICS
Guy".
But how to avoid receiveing this fields attributes.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Mon Oct 01, 2007 2:27 pm    Post subject:
Reply with quote

I do recall that the initial recieve did check the first four bytes for the transid, failing that, it checked bytes 4 to 7 for the transid....
Back to top
View user's profile Send private message
praveenbl22
Currently Banned

New User


Joined: 26 Sep 2007
Posts: 24
Location: Bangalore

PostPosted: Fri Oct 05, 2007 6:59 pm    Post subject:
Reply with quote

Hi,
By doing the Pause/ Break CICS will not receives the Attribute values
as the screen is cleared.

Thank you all
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Fri Oct 05, 2007 11:26 pm    Post subject:
Reply with quote

praveenbl22 wrote:
By doing the Pause/ Break CICS will not receives the Attribute values
as the screen is cleared.
Give this a try....
CEDF
CEMT
PF3
now right where the "CEMT" is, without clearing the screen, type in
TRIG,100
Keep hitting enter until you get the screen data and then a PF2 will turn it into HEX....
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Sorting of hex values Saurabh_mi DFSORT/ICETOOL 11 Thu May 25, 2017 3:49 pm
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Group Data based on a key Arun Raj DFSORT/ICETOOL 7 Thu Apr 27, 2017 11:29 pm
No new posts unload data from table with lob columns farhad_evan DB2 0 Sat Apr 22, 2017 1:32 pm
No new posts SORT JSON type of data maxsubrat DFSORT/ICETOOL 8 Wed Apr 19, 2017 6:01 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us