Ajay Bisht
New User
Joined: 12 Sep 2006 Posts: 6
|
|
|
|
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. |
|