View previous topic :: View next topic
|
Author |
Message |
praveenbl22 Currently Banned New User
Joined: 26 Sep 2007 Posts: 24 Location: Bangalore
|
|
|
|
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 |
|
|
praveenbl22 Currently Banned New User
Joined: 26 Sep 2007 Posts: 24 Location: Bangalore
|
|
|
|
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 |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
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 |
|
|
praveenbl22 Currently Banned New User
Joined: 26 Sep 2007 Posts: 24 Location: Bangalore
|
|
|
|
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 |
|
|
Devzee
Active Member
Joined: 20 Jan 2007 Posts: 684 Location: Hollywood
|
|
|
|
Quote: |
Sometimes length will be 1920 |
This is screen size 24*80 |
|
Back to top |
|
|
praveenbl22 Currently Banned New User
Joined: 26 Sep 2007 Posts: 24 Location: Bangalore
|
|
|
|
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 |
|
|
praveenbl22 Currently Banned New User
Joined: 26 Sep 2007 Posts: 24 Location: Bangalore
|
|
|
|
Hi "CICS Guy",
Can we View or edit the SBA nad SF fields |
|
Back to top |
|
|
praveenbl22 Currently Banned New User
Joined: 26 Sep 2007 Posts: 24 Location: Bangalore
|
|
|
|
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 |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
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 |
|
|
praveenbl22 Currently Banned New User
Joined: 26 Sep 2007 Posts: 24 Location: Bangalore
|
|
|
|
Hi,
By doing the Pause/ Break CICS will not receives the Attribute values
as the screen is cleared.
Thank you all |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
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 |
|
|
|