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

Status code X4


IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
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
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts Job completes in JES, but the status ... IBM Tools 1
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
Search our Forums:

Back to Top