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

Received Junk values for the terminal data


IBM Mainframe Forums -> CICS
Post new topic   This topic is locked: you cannot edit posts or make replies.
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
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
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: 2146
Location: At my coffee table

PostPosted: Fri Sep 28, 2007 3:49 pm
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
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
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
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
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
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: 2146
Location: At my coffee table

PostPosted: Mon Oct 01, 2007 2:27 pm
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
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: 2146
Location: At my coffee table

PostPosted: Fri Oct 05, 2007 11:26 pm
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. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts SCOPE PENDING option -check data DB2 2
Search our Forums:

Back to Top