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

CICS screen error messages getting truncated


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sel_ramji2009

New User


Joined: 18 Jul 2013
Posts: 18
Location: india

PostPosted: Thu Sep 26, 2013 12:51 pm
Reply with quote

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
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Thu Sep 26, 2013 5:55 pm
Reply with quote

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
View user's profile Send private message
sel_ramji2009

New User


Joined: 18 Jul 2013
Posts: 18
Location: india

PostPosted: Thu Sep 26, 2013 6:05 pm
Reply with quote

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
View user's profile Send private message
sel_ramji2009

New User


Joined: 18 Jul 2013
Posts: 18
Location: india

PostPosted: Thu Sep 26, 2013 6:06 pm
Reply with quote

i am getting
MING X again in the second line ..not sure why its appending to second line !
Back to top
View user's profile Send private message
Raghu navaikulam

Active User


Joined: 27 Sep 2008
Posts: 193
Location: chennai

PostPosted: Thu Sep 26, 2013 9:17 pm
Reply with quote

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
View user's profile Send private message
Raghu navaikulam

Active User


Joined: 27 Sep 2008
Posts: 193
Location: chennai

PostPosted: Thu Sep 26, 2013 9:21 pm
Reply with quote

The SENT-TEXT is limited to 79 for a screen size of 24x80.
Back to top
View user's profile Send private message
sel_ramji2009

New User


Joined: 18 Jul 2013
Posts: 18
Location: india

PostPosted: Mon Sep 30, 2013 12:52 pm
Reply with quote

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
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Mon Sep 30, 2013 1:44 pm
Reply with quote

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
View user's profile Send private message
sel_ramji2009

New User


Joined: 18 Jul 2013
Posts: 18
Location: india

PostPosted: Mon Sep 30, 2013 2:39 pm
Reply with quote

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
View user's profile Send private message
Raghu navaikulam

Active User


Joined: 27 Sep 2008
Posts: 193
Location: chennai

PostPosted: Tue Oct 01, 2013 10:18 pm
Reply with quote

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
View user's profile Send private message
Raghu navaikulam

Active User


Joined: 27 Sep 2008
Posts: 193
Location: chennai

PostPosted: Tue Oct 01, 2013 10:20 pm
Reply with quote

Hi,

Use cursor position without ERASE option to send a message to a particular location in the screen.

Regards
Raghunathan
Back to top
View user's profile Send private message
Raghu navaikulam

Active User


Joined: 27 Sep 2008
Posts: 193
Location: chennai

PostPosted: Tue Oct 01, 2013 10:46 pm
Reply with quote

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
View user's profile Send private message
sel_ramji2009

New User


Joined: 18 Jul 2013
Posts: 18
Location: india

PostPosted: Thu Oct 03, 2013 10:30 am
Reply with quote

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
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Thu Oct 03, 2013 1:55 pm
Reply with quote

Have you looked at this from the topic you re-started?
Back to top
View user's profile Send private message
colin777

New User


Joined: 06 Jun 2013
Posts: 19
Location: Singapore

PostPosted: Fri Oct 04, 2013 9:46 am
Reply with quote

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
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 -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts CLIST - Virtual storage allocation error CLIST & REXX 5
No new posts Calling an Open C library function in... CICS 1
Search our Forums:

Back to Top