EC PSW at time of error 070C4000 80007702 00040007
00000000
Access Registers at time of error
0-3 9679EC12 00000000 00000000 00000000
4-7 00000000 00000000 00000000 00000000
8-11 00000000 01010037 00000000 00000000
12-15 00000000 00000000 00000000 00000000
GPRs at time of error
0-3 000084E4 00007A10 00000000 00FDE8B8
4-7 80FB2688 007FF350 007CAFE0 0000882C
8-11 00008880 0000619C 0000882C 007FF350
12-15 800075C0 00007A10 80007D82 800075C0
I use the SAC 512 command to set the mode before issuing the macros:
The expansion of MCSOPMSG follows:
MCSOPMSG
REQUEST=GETMSG,NAME=CONNAME,RTNCODE=MCS_RC,
RSNCODE=MCS_RS
+* MACDATE -05/04/15-<2>
+M00M0005 DS 0H MCSOPMSG-2
+ PUSH PRINT
+ PRINT ON
+ B #Z0005AS ++ MCSOPMSG ARG PARMS
+#Z0005A DS 0D ++ MCSOPMSG PARM LIST
+#Z0005A_XACRO DS CL4 ++ CONSTANT
+#Z0005A_XVERSION DS XL1 ++ INPUT XVERSION
+#Z0005A_XREQUEST DS XL1 ++ INPUT XREQUEST
+#Z0005A_GETMSG EQU 1 ++ XREQUEST.GETMSG
KEYWORD
+#Z0005A_RESUME EQU 2 ++ XREQUEST.RESUME
KEYWORD
+#Z0005A_XCMDRESP DS BL.8 ++ INPUT
+#Z0005A_XCMDRESP_YES EQU B'10000000'
+ ++ XCMDRESP.YES KEYWORD
150+#Z0005A_XCMDRESP_NO EQU B'01000000'
+ ++ XCMDRESP.NO KEYWORD
151+#Z0005A_KEYUSED_CMDRESP EQU B'00100000'
+ ++ KEYUSED.CMDRESP KEYWORD
152+#Z0005A_KEYUSED_CART EQU B'00010000'
+ ++ KEYUSED.CART KEYWORD
153+#Z0005A_KEYUSED_MASK EQU B'00001000'
+ ++ KEYUSED.MASK KEYWORD
154+#Z0005A_KEYUSED_NAME EQU B'00000100'
+ ++ KEYUSED.NAME KEYWORD
155+#Z0005A_XRSV0001 DS CL01 ++ RESERVED
156+#Z0005A_XCART DS CL8 ++
157+#Z0005A_XMASK DS CL8 ++
158+#Z0005A_XCONSID DS F ++
159+#Z0005A_XRSV0002 DS CL04 ++ RESERVED
160+#Z0005A_XNAME DS CL8 ++ INPUT
161+#Z0005AL EQU *-#Z0005A ++ LENGTH OF PLIST
163+#Z0005AS DC 0H'0' ++ MCSOPMSG ARG PARMS
+ LAE 1,#Z0005A ++ LOCATE ARG PARMS
+ XC 0(40,1),0(1) ++ INITIALIZE
+ MVC 0(4,1),=CL4'MDR ' ++ CL4 CONSTANT
+ MVI 4(1),2 ++ INPUT XVERSION XL1
+ MVI 5(1),1 ++ INPUT XREQUEST
+ OI 6(1),B'01000100' ++ INPUT BL1
+ MVC 32(8,1),CONNAME ++ INPUT XNAME
+ L 15,16(0,0) GET ADDRESS OF CVT FROM PSA
+ L 15,772(15) GET ADDRESS OF SFT FROM CVT
+ LA 14,6 GET MCSOPMSG INDEX INTO LINKAGE TA
+ AL 14,100(15) POINT REG14 TO MCSOPMSG ETD ENTRY
+ PC 0(14) PC TO MCSOPMSG SERVICE
+ ST 15,MCS_RC ++ SET RETURN CODE
+ ST 0,MCS_RS ++ SET REASON CODE
+ POP PRINT
+* MCSOPMSG-2
CONNAME DC C'MEASCNSL'
959 MCS_RC DS F RETURN CODE FROM MCS
960 MCS_RS DS F REASON CODE FROM MCS
The expansion or MCSOPER follows:
LA R8,MCSPARM
USING MCSOPPRM,R8 IEZVG111 ADDRESSABILITY
XC MCSOPPRM(MCSOPLEN),MCSOPPRM CLEAR THE OPERPARM
AREA
OI MCSOFLAG,MCSOVRDY OVERRIDE CONSOLE
ATTRIBUTES
OI MCSOMISC,MCSOHDCY REQUEST THE HARDCOPY
ATTRIBUTE
DROP R8
MCSOPER
REQUEST=ACTIVATE,NAME=CONNAME,TERMNAME=CONNAME, X
MCSCSA=MCSCSA,MCSCSAA=MCSCSAA,CONSID=CONSID, X
MSGECB=MCSECB,OPERPARM=MCSPARM
* MACDATE -08/02/22-<1>
M00M0033 DS 0H MCSOPER-1
PUSH PRINT
PRINT ON
B #Z0033AS ++ MCSOPER ARG PARMS
#Z0033A DS 0D ++ MCSOPER PARM LIST
#Z0033A_XACRO DS CL4 ++ CONSTANT
#Z0033A_XVERSION DS XL1 ++ INPUT XVERSION
#Z0033A_XREQUEST DS XL1 ++ INPUT XREQUEST
#Z0033A_ACTIVATE EQU 1 ++ XREQUEST.ACTIVATE
KEYWORD
#Z0033A_DEACTIVATE EQU 2 ++ XREQUEST.DEACTIVATE
KEYWORD
#Z0033A_RELEASE EQU 3 ++ XREQUEST.RELEASE
KEYWORD
#Z0033A_XFLAG DS BL.8 ++ FIELD_LABEL
#Z0033A_XABTERM_YES EQU B'10000000' X
++ XABTERM.YES KEYWORD
#Z0033A_KEYUSED_MIGID EQU B'01000000' X
++ KEYUSED.MIGID KEYWORD
#Z0033A_XMIGIDREL_AUTO EQU B'00100000' X
++ XMIGIDREL.AUTO KEYWORD
#Z0033A_KEYUSED_NAME EQU B'00010000' X
++ KEYUSED.NAME KEYWORD
#Z0033A_XRSV0001 DS CL1 ++ RESERVED
#Z0033A_XOPERPARM DS A ++ INPUT
#Z0033A_XNAME DS CL8 ++ INPUT
#Z0033A_XTERMNAME DS CL8 ++ INPUT
+#Z0033A_XCONSID DS F ++ OUTPUT
+#Z0033A_XQLIMIT DS F ++ INPUT
+#Z0033A_XMCSCSAA DS F ++ OUTPUT
+#Z0033A_XMCSCSA DS A ++ OUTPUT
+#Z0033A_XRSV0002 DS CL4 ++ RESERVED
+#Z0033A_XMSGECB DS A ++ INPUT
+#Z0033A_XALERTECB DS A ++ INPUT
+#Z0033A_XMIGID DS XL1 ++
+#Z0033A_XALERTPCT DS XL1 ++ INPUT
+#Z0033A_XQRESUME DS XL1 ++ INPUT
+#Z0033A_XMSGDLVRY DS XL1 ++ INPUT XMSGDLVRY
+#Z0033A_FIFO EQU 128 ++ XMSGDLVRY.FIFO KEYWORD
+#Z0033A_SEARCH EQU 64 ++ XMSGDLVRY.SEARCH
KEYWORD
+#Z0033A_NONE EQU 32 ++ XMSGDLVRY.NONE
KEYWORD
+#Z0033A_XRSV0003 DS CL16 ++ RESERVED
+#Z0033AL EQU *-#Z0033A ++ LENGTH OF PLIST
+#Z0033AS DC 0H'0' ++ MCSOPER ARG PARMS
+ LAE 1,#Z0033A ++ LOCATE ARG PARMS
+ XC 0(76,1),0(1) ++ INITIALIZE
+ MVC 0(4,1),=CL4'MCSO' ++ CL4 CONSTANT
+ MVI 4(1),1 ++ INPUT XVERSION XL1
+ MVI 5(1),1 ++ INPUT XREQUEST
+ OI 6(1),B'00010000' ++ INPUT BL1
+ LA 14,MCSPARM ++ INPUT XOPERPARM
+ ST 14,8(,1) ++ INPUT XOPERPARM
+ MVC 12(8,1),CONNAME ++ INPUT XNAME
+ MVC 20(8,1),CONNAME ++ INPUT XTERMNAME
+ MVC 32(4,1),=FL4'2147483647' ++ INPUT XQLIMIT
+ LA 14,MCSECB ++ INPUT XMSGECB
+ ST 14,48(,1) ++ INPUT XMSGECB
+ MVC 57(1,1),=AL1(100) ++ INPUT XALERTPCT
+ MVI 59(1),128 ++ INPUT XMSGDLVRY
+ L 15,16(0,0) GET ADDRESS OF CVT FROM PSA
+ L 15,772(15) GET ADDRESS OF SFT FROM CVT @PBC
+ LA 14,1(0,0) GET MCSOPER INDEX INTO LINKAGE
TABLE
+ AL 14,100(15) POINT REG14 TO MCSOPER ETD ENTRY
@PBC
+ PC 0(14) PC TO MCSOPER SERVICE
+ MVC CONSID(4),28(1) ++ XCONSID F
+ MVC MCSCSAA(4),36(1) ++ XMCSCSAA F
+ MVC MCSCSA(4),40(1) ++ XMCSCSA A
+AMGE0033 DS 0H ++ BYPASS INVOCATION
+ POP PRINT
+* MCSOPER-1
MCSCSA DS A
MCSCSAA DS F
CONSID DS CL4 POINTER TO SCSR
MCSECB DS F
MCSPARM DS CL(MCSOPLEN) CONSOLE ATTRIBUTES
Thanks for your help.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
