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
 

 

Status code X4

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
Ajay Bisht

New User


Joined: 12 Sep 2006
Posts: 6

PostPosted: Tue Aug 24, 2010 6:31 pm    Post subject: Status code X4
Reply with quote

I am getting IOPCB-STATUS-CODE = X4, when i try to ISRT a message in the message queue. My transaction is not conversational.

Data flow thru screen
------------------------------
First time, user enters location and then userid. Then control transfer to the program which gathers information from input area and create output area which is to be displayed on screen. I am getting error in my first ISRT call to output screen.

In my MFS code, i have protected all fields except for location and userid. So, that when user enters userid, cursor does not transfer to other input field (in which user has to give option 'Y' or 'N'). I have defined ATTR=YES so that i can manipulate attribute value of those fields thru program.

Below is mfs code and input and output area definition:
I have also attached the screen which i was getting earlier :
=========================================================================

BUDOJT FMT DIF/DOF FOR RSTR TRAN
DEV TYPE=(3270,2),FEAT=IGNORE,SYSMSG=ERRMSG
DIV TYPE=INOUT
DPAGE1 DPAGE CURSOR=((02,07)),FILL=PT
DFLD 'RSTR',POS=(01,02)
DFLD 'EASE TYPIST RESTRICTION',POS=(01,20)
DFLD 'TLOC',POS=(02,02)
DFLD 'TYPIST',POS=(02,15)
TLOC DFLD POS=(02,07),LTH=02,ATTR=(MOD,HI,ALPHA)
TYPIST DFLD POS=(02,22),LTH=02,ATTR=(MOD,HI,ALPHA)
ASTK1 DFLD POS=(03,02),LTH=79,ATTR=(MOD,PROT,HI)
TYPCUR DFLD POS=(04,02),LTH=79,ATTR=(MOD,PROT,HI)
TYPCHOS DFLD POS=(05,02),LTH=42,ATTR=(MOD,PROT,HI)
TYPRSP DFLD POS=(05,45),LTH=01,ATTR=(MOD,PROT,HI)
ASTK2 DFLD POS=(06,02),LTH=79,ATTR=(MOD,PROT,HI)
TLCUR DFLD POS=(07,02),LTH=79,ATTR=(MOD,PROT,HI)
TLCHOS1 DFLD POS=(08,02),LTH=66,ATTR=(MOD,PROT,HI)
TLOCRSP1 DFLD POS=(08,69),LTH=01,ATTR=(MOD,PROT,HI)
TLCHOS2 DFLD POS=(09,02),LTH=66,ATTR=(MOD,PROT,HI)
TLOCRSP2 DFLD POS=(09,69),LTH=01,ATTR=(MOD,PROT,HI)
TLOCCMT DFLD POS=(10,02),LTH=79,ATTR=(MOD,PROT,HI)
TLOCCMT2 DFLD POS=(11,02),LTH=79,ATTR=(MOD,PROT,HI)
ASTK3 DFLD POS=(12,02),LTH=79,ATTR=(MOD,PROT,HI)
RGNCUR DFLD POS=(13,02),LTH=79,ATTR=(MOD,PROT,HI)
RGNCHOS1 DFLD POS=(14,02),LTH=68,ATTR=(MOD,PROT,HI)
REGRSP1 DFLD POS=(14,71),LTH=01,ATTR=(MOD,PROT,HI)
RGNCHOS2 DFLD POS=(15,02),LTH=68,ATTR=(MOD,PROT,HI)
REGRSP2 DFLD POS=(15,71),LTH=01,ATTR=(MOD,PROT,HI)
RGNCMT DFLD POS=(16,02),LTH=79,ATTR=(MOD,PROT,HI)
RGNCMT2 DFLD POS=(17,02),LTH=79,ATTR=(MOD,PROT,HI)
ASTK4 DFLD POS=(18,02),LTH=79,ATTR=(MOD,PROT,HI)
ERRMSG DFLD POS=(24,02),LTH=79,ATTR=(ALPHA,PROT,HI)
FMTEND
EJECT
***********************************************************************
* MID TO ENTER RESTRICTION ON REGION, TLOC, AND TYPIST - RSTR *
***********************************************************************
TITLE 'MID: TO ENTER RESTRICTION ON REGION, TLOC, AND TYPIST'
BUMIJT MSG TYPE=INPUT,SOR=(BUDOJT,IGNORE),OPT=2,NXT=SORDRSTR
SEG
MFLD 'SO1RSTR'
MFLD ' '
MFLD TLOC,LTH=02,FILL=X'40'
MFLD TYPIST,LTH=02,FILL=X'40'
MFLD ASTK1,LTH=79,FILL=X'40'
MFLD TYPCUR,LTH=79,FILL=X'40'
MFLD TYPCHOS,LTH=42,FILL=X'40'
MFLD TYPRSP,LTH=01,FILL=X'40'
MFLD ASTK2,LTH=79,FILL=X'40'
MFLD TLCUR,LTH=79,FILL=X'40'
MFLD TLCHOS1,LTH=66,FILL=X'40'
MFLD TLOCRSP1,LTH=01,FILL=X'40'
MFLD TLCHOS2,LTH=66,FILL=X'40'

MFLD TLOCRSP2,LTH=01,FILL=X'40'
MFLD TLOCCMT,LTH=79,FILL=X'40'
MFLD TLOCCMT2,LTH=79,FILL=X'40'
MFLD ASTK3,LTH=79,FILL=X'40'
MFLD RGNCUR,LTH=79,FILL=X'40'
MFLD RGNCHOS1,LTH=68,FILL=X'40'
MFLD REGRSP1,LTH=01,FILL=X'40'
MFLD RGNCHOS2,LTH=68,FILL=X'40'
MFLD REGRSP2,LTH=01,FILL=X'40'
MFLD RGNCMT,LTH=79,FILL=X'40'
MFLD RGNCMT2,LTH=79,FILL=X'40'
MFLD ASTK4,LTH=79,FILL=X'40'
MFLD ERRMSG,LTH=79,FILL=X'40'
MSGEND
EJECT
***********************************************************************
* MOD TO ENTER RESTRICTION ON REGION, TLOC, AND TYPIST - RSTR *
***********************************************************************
TITLE 'MOD: TO ENTER RESTRICTION ON REGION, TLOC, AND TYPIST'
SORDRSTR MSG TYPE=OUTPUT,SOR=(BUDOJT,IGNORE),OPT=2,FILL=PT
LPAGE SOR=DPAGE1,NXT=BUMIJT
SEG
MFLD LTH=1
MFLD LTH=5
MFLD TLOC,LTH=02
MFLD TYPIST,LTH=02
MFLD ASTK1,LTH=79
MFLD TYPCUR,LTH=79
MFLD TYPCHOS,LTH=42
MFLD TYPRSP,LTH=03,ATTR=YES
MFLD ASTK2,LTH=79
MFLD TLCUR,LTH=79
MFLD TLCHOS1,LTH=66
MFLD TLOCRSP1,LTH=03,ATTR=YES
MFLD TLCHOS2,LTH=66
MFLD TLOCRSP2,LTH=03,ATTR=YES
MFLD TLOCCMT,LTH=79
MFLD TLOCCMT2,LTH=79
MFLD ASTK3,LTH=79
MFLD RGNCUR,LTH=79
MFLD RGNCHOS1,LTH=68
MFLD REGRSP1,LTH=03,ATTR=YES
MFLD RGNCHOS2,LTH=68
MFLD REGRSP2,LTH=03,ATTR=YES
MFLD RGNCMT,LTH=79
MFLD RGNCMT2,LTH=79
MFLD ASTK4,LTH=79
MFLD ERRMSG,LTH=79
MSGEND
EJECT

==============================================================================

input and output msg area defined in my program

01 MAX-INPUT-AREA PIC X(4000) VALUE SPACES.
01 INPUT-WORKAREA REDEFINES MAX-INPUT-AREA.
05 IW-LL COMP PIC 9(4).
05 IW-ZZ COMP PIC 9(4).
05 IW-TRAN.
10 IW-SO1 PIC X(3).
10 IW-TRAN-TYPE PIC X(4).
10 IW-BLANK PIC X(1).
05 IW-RSTR-MESSAGE.
15 IW-TLOC PIC X(2).
15 IW-TYPIST-INIT PIC X(2).
15 IW-ASTERIK-1 PIC X(79).
15 IW-TYPIST-CURR-MSG PIC X(79).
15 IW-TYPIST-CHOICE-MSG1 PIC X(42).
15 IW-TYPIST-CHANGE-RSP PIC X(01).
15 IW-ASTERIK-2 PIC X(79).
15 IW-TLOC-CURR-MSG PIC X(79).
15 IW-TLOC-CHOICE-MSG1 PIC X(66).
15 IW-TLOC-CHANGE-RSP1 PIC X(01).
15 IW-TLOC-CHOICE-MSG2 PIC X(66).
15 IW-TLOC-CHANGE-RSP2 PIC X(01).
15 IW-TLOC-EXPLAIN-EMERG1 PIC X(79).
15 IW-TLOC-EXPLAIN-EMERG2 PIC X(79).
15 IW-ASTERIK-3 PIC X(79).
15 IW-REGN-CURR-MSG PIC X(79).
15 IW-REGN-CHOICE-MSG1 PIC X(68).
15 IW-REGN-CHANGE-RSP1 PIC X(01).
15 IW-REGN-CHOICE-MSG2 PIC X(68).
15 IW-REGN-CHANGE-RSP2 PIC X(01).
15 IW-REGN-EXPLAIN-EMERG1 PIC X(79).
15 IW-REGN-EXPLAIN-EMERG2 PIC X(79).
15 IW-ASTERIK-4 PIC X(79).
15 IW-ERROR-MESSAGE PIC X(79).


01 OUTPUT-MSG.
05 OM-LL PIC 9(04) COMP.
05 OM-ZZ PIC 9(04) COMP VALUE 1300.
05 FILLER PIC X(01) VALUE ZERO.
05 OM-TRAN-TYPE PIC X(05).
05 OM-OTHER-DATA.
15 OM-TLOC PIC X(2).
15 OM-TYPIST-INIT PIC X(2).
15 OM-ASTERIK-1 PIC X(79).
15 OM-TYPIST-CURR-MSG PIC X(79).
15 OM-TYPIST-CHOICE-MSG1 PIC X(42).
15 OM-TYPIST-CHANGE-RSP.
20 OM-TYPIST-CHANGE-PREFIX.
25 OM-TYPIST-CHANGE-CURSOR PIC X(01)
VALUE LOW-VALUES.
25 OM-TYPIST-CHANGE-ATTR PIC X(01).
20 OM-TYPIST-CHANGE-RSP-DATA PIC X(01).
15 OM-ASTERIK-2 PIC X(79).
15 OM-TLOC-CURR-MSG PIC X(79).
15 OM-TLOC-CHOICE-MSG1 PIC X(66).
15 OM-TLOC-CHANGE-RSP1.
20 OM-TLOC-CHANGE-RSP1-PREFIX.
25 OM-TLOC-CHANGE-RSP1-CURSOR PIC X(01)
VALUE LOW-VALUES.
25 OM-TLOC-CHANGE-RSP1-ATTR PIC X(01).
20 OM-TLOC-CHANGE-RSP1-DATA PIC X(01).
15 OM-TLOC-CHOICE-MSG2 PIC X(66).
15 OM-TLOC-CHANGE-RSP2.
20 OM-TLOC-CHANGE-RSP2-PREFIX.
25 OM-TLOC-CHANGE-RSP2-CURSOR PIC X(01)
VALUE LOW-VALUES.
25 OM-TLOC-CHANGE-RSP2-ATTR PIC X(01).
20 OM-TLOC-CHANGE-RSP2-DATA PIC X(01).
15 OM-TLOC-EXPLAIN-EMERG1 PIC X(79).
15 OM-TLOC-EXPLAIN-EMERG2 PIC X(79).
15 OM-ASTERIK-3 PIC X(79).
15 OM-REGN-CURR-MSG PIC X(79).
15 OM-REGN-CHOICE-MSG1 PIC X(68).



CALL 'CBLTDLI' USING ISRT
IO-PCB
OUTPUT-MSG
MODNAME.
Back to top
View user's profile Send private message

Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Tue Aug 24, 2010 9:45 pm    Post subject:
Reply with quote

Is this new or are you modifying an existing process?
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Wed Aug 25, 2010 3:09 am    Post subject:
Reply with quote

And.....

X4
Explanation: The program issued an ISRT call to pass the SPA to a nonconversational transaction code. It did this by referencing a PCB whose destination was set for the nonconversational transaction code. You can send the SPA only to transaction codes defined as conversational.

Programmer Response: Correct the ISRT call. Send only data segments.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Testing rerad cursor for status with ... John F Dutcher DB2 8 Fri May 19, 2017 9:35 pm
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm


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