|
View previous topic :: View next topic
|
| Author |
Message |
sel_ramji2009
New User
Joined: 18 Jul 2013
Posts: 18
Location: india
|
|
|
|
Hi ,
The error messages sent from cics program to map screens are getting truncated.can someone help what the issue is ?
| Code: |
ERROR MESSAGE FROM PROGRAM is :
"PROGRAM NOT FOUND FOR XCTL INSTRUCTION - CALL PROGRAMMING X
PRESS CLEAR KEY BEFORE ENTERING NEXT TRANSID X"
ERROR MESSAGE SHOWN ON SCREEN:
"PROGRAM NOT FOUND FOR XCTL INSTRUCTION - CALL PROGRAMMING X " |
these messages should be displayed in 2 lines on the screen but the first line alone is displayed
pasting the piece of code from MF
| Code: |
037090 PGMIDERR-PARA.
037100 EXEC CICS HANDLE CONDITION PGMIDERR(PGMIDERR-ERR-PARA)
037110 END-EXEC.
037120 PGMIDERR-ERR-PARA.
DELLin DISPLAY 'PGMIDERR-ERROR-MESSAGE' PGMIDERR-ERROR-MESSAGE
DELLin INSPECT PGMIDERR-ERROR-MESSAGE REPLACING ALL X'85' BY X'0A'
DELLin INSPECT PGMIDERR-ERROR-MESSAGE REPLACING ALL X'A1' BY X'E2'
037130 EXEC CICS SEND TEXT
037140 FROM(PGMIDERR-ERROR-MESSAGE)
037150 LENGTH(184)
037160 END-EXEC
DELLin DISPLAY 'SEND TEXT PGMIDERR-ERROR-MESSAGE'
PGMIDERR-ERROR-MESSAGE
037170 MOVE EIBFN TO APS-EIBFN
037180 MOVE EIBRCODE TO APS-EIBRCODE
037190 EXEC CICS RETURN
037200 END-EXEC. |
when i displayed PGMIDERR-ERROR-MESSAGE it is showing the full error messages in 2 lines and not sure why its not shown on screen!!!!
Code'd |
|
| Back to top |
|
 |
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
| Is your receiving field on the screen big enough? I am not 100% certain about this but if you want 2 lines then you need two fields and they both have to be populated. |
|
| Back to top |
|
|
sel_ramji2009
New User
Joined: 18 Jul 2013
Posts: 18
Location: india
|
|
|
|
05 WS-MESSAGE PIC X(1920).
05 WS-MESSAGE-LX PIC S9(3) COMP
VALUE +160.
MOVE PGMIDERR-ERROR-MESSAGE(27:78)
TO WS-MESSAGE(1:80)
MOVE +160 TO WS-MESSAGE-LX
EXEC CICS SEND TEXT
FROM(WS-MESSAGE)
LENGTH(WS-MESSAGE-LX)
ERASE
END-EXEC
MOVE PGMIDERR-ERROR-MESSAGE(79:80)
TO WS-MESSAGE(81:80)
037130 EXEC CICS SEND TEXT
037140 FROM(WS-MESSAGE)
037150 LENGTH(WS-MESSAGE-LX)
ERASE
037160 END-EXEC
EXEC CICS SEND PAGE
RETAIN
END-EXEC
037170 MOVE EIBFN TO APS-EIBFN
037180 MOVE EIBRCODE TO APS-EIBRCODE
037190 EXEC CICS RETURN
037200 END-EXEC.
I have made these changes to coe now ,i am getting the messages in terminal as below
PROGRAM NOT FOUND FOR XCTL INSTRUCTION- CALL PROGRAMMING X
MING X PRESS CLEAR KEY BEFORE ENTERING NEXT TRANSID [/code] |
|
| Back to top |
|
|
sel_ramji2009
New User
Joined: 18 Jul 2013
Posts: 18
Location: india
|
|
|
|
i am getting
MING X again in the second line ..not sure why its appending to second line ! |
|
| Back to top |
|
|
Raghu navaikulam
Active User
Joined: 27 Sep 2008
Posts: 193
Location: chennai
|
|
|
|
Hi,
You can test the below code
| Code: |
01 SEND-TEXT PIC X(79) VALUE SPACE.
...
MOVE ‘Your message ’ TO SEND-TEXT.
EXEC CICS SEND TEXT FROM(SEND-TEXT) LENGTH(79)
ERASE ACCUM
END-EXEC.
MOVE ‘Your message ’ TO SEND-TEXT.
EXEC CICS SEND TEXT FROM (SEND-TEXT) LENGTH(79)
ACCUM
END-EXEC.
EXEC CICS SEND PAGE END-EXEC.
EXEC CICS RETURN END-EXEC.
|
Regards
Raghunathan |
|
| Back to top |
|
|
Raghu navaikulam
Active User
Joined: 27 Sep 2008
Posts: 193
Location: chennai
|
|
|
|
| The SENT-TEXT is limited to 79 for a screen size of 24x80. |
|
| Back to top |
|
|
sel_ramji2009
New User
Joined: 18 Jul 2013
Posts: 18
Location: india
|
|
|
|
Hi Raghu ,
I also tried your code ,i am getting the message as below
1st line - PROGRAM NOT FOUND FOR XCTL INSTRUCTION- CALL PROGRAMMING X
2nd line - MING X
3rd line - PRESS CLEAR KEY BEFORE ENTERING NEXT TRANSID
not sure how this is displayed on the screen ! |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| Code: |
MOVE PGMIDERR-ERROR-MESSAGE(27:78)
TO WS-MESSAGE(1:80)
...
MOVE PGMIDERR-ERROR-MESSAGE(79:80)
TO WS-MESSAGE(81:80) |
You have an overlap between 27 (start position) for length of 78 and 79 for a length of 80. I'd guess that will explain the MING X, but it is up to you to do the counting. |
|
| Back to top |
|
|
sel_ramji2009
New User
Joined: 18 Jul 2013
Posts: 18
Location: india
|
|
|
|
Hey Bill ,sorry,that was a typo here ,,i am getting the error messages in 2 lines now ..
PROGRAM NOT FOUND FOR XCTL INSTRUCTION- CALL PROGRAMMING X
PRESS CLEAR KEY BEFORE ENTERING NEXT TRANSID X
can anyone let me know how to print the 2 error messages at the bottom of the page and now these messages are printed in the new page .need to print the error messages in the same page at the bottom when a function is invoked ..in this case when PF4 key is pressed on a particular function,it has to display these 2 lines at the bottom of the page and also in the same page. Also pls let me know how to use JUSLAST command ? |
|
| Back to top |
|
|
Raghu navaikulam
Active User
Joined: 27 Sep 2008
Posts: 193
Location: chennai
|
|
|
|
Hi,
Bill's post is mentioning the mistake you committed again.
| Code: |
Also pls let me know how to use JUSLAST command ? |
Is it a command in CICS? I don't know. If some one know about JUSLAST command, please post a replay..
Thanks & Regards
Raghunathan |
|
| Back to top |
|
|
Raghu navaikulam
Active User
Joined: 27 Sep 2008
Posts: 193
Location: chennai
|
|
|
|
Hi,
Use cursor position without ERASE option to send a message to a particular location in the screen.
Regards
Raghunathan |
|
| Back to top |
|
|
Raghu navaikulam
Active User
Joined: 27 Sep 2008
Posts: 193
Location: chennai
|
|
|
|
Hi,
I googled it and got what is meant by JUSLAST.
| Code: |
JUSLAST specifies that the text data is to be positioned at the bottom of the page. The page is considered to be complete after the request has been processed. If the TRAILER option is specified, the trailer follows the data. |
Thanks sel_ramji2009.
Raghunathan |
|
| Back to top |
|
|
sel_ramji2009
New User
Joined: 18 Jul 2013
Posts: 18
Location: india
|
|
|
|
Raghu ,
I tried JUSLAST but its not working ...can anyone let me know how to print the error messages at the bottom of the same page where a function is invoked ??? |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| Have you looked at this from the topic you re-started? |
|
| Back to top |
|
|
colin777
New User
Joined: 06 Jun 2013
Posts: 19
Location: Singapore
|
|
|
|
Hi,
I think that if you want to get your two error messages printed at the bottom of the screen, then you will need a BMS map with line 23 and line 24 coded in the Map.
Then you can move your error messages to the 2 lines and use a :
| Code: |
EXEC CICS SEND MAP
MAPSET
ERASE
NOHANDLE
END-EXEC. |
Also remember that a SEND TEXT command is talking to BMS and as such, BMS will require 1 position on the 80 byte row for the attribute byte.
HTH
Colin777
Code'd |
|
| Back to top |
|
|
|
|
