MQSeries.net :: View topic

GFORCE · Posted: Thu Mar 18, 2010 7:03 am Post subject:

I need help in linking a security exit that is in assembler.

OBWHSEC CSECT ,
OBWHSEC AMODE 31
OBWHSEC RMODE ANY
R0 EQU 0 WORK
R1 EQU 1
R2 EQU 2
R3 EQU 3 MQCXP ADDRESS
R4 EQU 4 MQCD ADDRESS
R5 EQU 5
R6 EQU 6 SUBROUTINE LEVEL 1 RETURN
R7 EQU 7 SUBROUTINE LEVEL 2 RETURN
R8 EQU 8 PARAMETER LIST ADDRESS
R9 EQU 9
R10 EQU 10
R11 EQU 11
R12 EQU 12 BASE REGISTER
R13 EQU 13 SAVE AND WORK AREA
R14 EQU 14
R15 EQU 15
CMQA LIST=NO
CMQXA LIST=NO
MQCXP CMQCXPA DSECT=YES,LIST=YES DSECT FOR MQCXP STRUCTURE
MQCD CMQCDA DSECT=YES,LIST=YES DSECT FOR MQCD STRUCTURE
WORKAREA DSECT ,
SAVEAREA DS 9D SAVE AREA
DS F SAVE AREA
EXITBUFL DS F SAVE AREA
EXITBUF DS 12D SAVE AREA
WORKLEN EQU *-WORKAREA
OBWHSEC CSECT ,
STM R14,R12,12(R13) SAVE REGISTERS
LR R12,R15 SET BASE REGISTER
USING OBWHSEC,R12 SET ADDRESSABILITY
LR R8,R1 SAVE PARMLIST ADDRESS
GETMAIN RU,LV=WORKLEN,LOC=(RES,ANY)
ST R13,4(,R1) CHAIN SAVE AREAS
ST R1,8(,R13)
LR R13,R1 SET SAVE AREA
ADDRESS
USING WORKAREA,R13 SET ADDRESSABILITY
* TRT USERID(16),ASCII
MVC EXITBUFL,=AL4(20)
MVC EXITBUF(20),SECURITY
LA R1,EXITBUFL
ST R1,20(R

LA R1,EXITBUF
ST R1,24(R

*
L R3,0(,R

GET MQCXP ADDRESS
USING MQCXP,R3
L R0,=A(MQXCC_OK)
ST R0,MQCXP_EXITRESPONSE
ST R0,MQCXP_EXITRESPONSE2
ST R0,MQCXP_FEEDBACK
L R0,MQCXP_EXITREASON
C R0,=A(MQXR_INIT)
BE INIT
C R0,=A(MQXR_TERM)
BE TERM
C R0,=A(MQXR_SEC_MSG)
BE MSGSEC
C R0,=A(MQCHT_SENDER)
BE MQSEND
C R0,=A(MQCHT_RECEIVER)
BE MQRECV
* C R0,=A(MQXR_INIT_SEC)
* BE MQINITS
B OTHER
*
MQINITS DS 0H
MVC MQCXP_EXITRESPONSE,=A(MQXCC_SEND_SEC_MSG)
WTO 'OBWHSEC: INITSEC CALLED MSG SENT'
*
MVC MQXR2_USE_AGENT_BUFFER(9),=CL9'MARC YOUNG'
B RETURN
*
MQSEND DS 0H
WTO 'OBWHSEC: INIT_SEC'
B RETURN
MQRECV DS 0H
WTO 'OBWHSEC: RECEIV CHANNEL'
B RETURN
MSGSEC DS 0H
MVC MQCXP_EXITRESPONSE,=A(MQXCC_SEND_SEC_MSG)
L R1,8(R

MVC 0(4,R1),=F'20'
L R1,12(R

MVC 0(4,R1),=F'20'
L R1,16(R

MVC 0(20,R1),SECURITY
WTO 'OBWHSEC:SEND USERID AND PWD'
B RETURN
OTHER DS 0H
WTO 'OBWHSEC: OTHER CALL'
B RETURN
TERM DS 0H
WTO 'OBWHSEC: TERM CALLED'
B RETURN
INIT DS 0H
WTO 'OBWHSEC:INIT CALLED '
B RETURN
RETURN L R13,4(,R13) RESTORE CALLERS
SAVE AREA
L R1,8(,R13)
FREEMAIN RU,LV=WORKLEN,A=(1) FREE SAVE AREA
LM R14,R12,12(R13) RESTORE REGISTERS
SR R15,R15 RETURN WITH RC=0
BR R14
LTORG ,
*
*
* DO NOT CHANGE THE "SECURITY" OR "STOPPER" FIELDS.
* DO NOT CHANGE THE ORDER OF THESE FOUR FIELDS OR PLACE OTHER
* FIELDS BETWEEN THEM.
*
SECLEN DC F'20'
SECURITY DS 0D
DC CL4'A000'
USERID DC CL8'ABCDEFGH'
PASSWORD DC CL8'IJKLMNO '
STOPPER DC X'00'
DC X'00'
DC X'00'
*
SUB153 DS 0H
LA R1,SUB153K
SVC 35
BR R10
*
SUB153K DS 0F
DC AL2(72)
DC AL2(0)
SUB153W DC CL8'MARC===='
SUB153WK DS CL64
ASCII DS 0F
DC XL16'000102031A091A7F1A1A1A0B0C0D0E0F'
DC XL16'101112131A1A081A18191A1A1C1D1E1F'
DC XL16'1A1A1A1A1A0A171B1A1A1A1A1A050607'
DC XL16'1A1A161A1A1A1A041A1A1A1A1A151A1A'
DC XL16'201A1A1A1A1A1A1A1A1A5B2E3C282B21'
DC XL16'261A1A1A1A1A1A1A1A1A5D242A293B5E'
DC XL16'2D2F1A1A1A1A1A1A1A1A7C2C255F3E3F'
DC XL16'1A1A1A1A1A1A1A1A1A603A2340273D22'
DC XL16'1A6162636465666768691A1A1A1A1A1A'
DC XL16'1A6A6B6C6D6E6F7071721A1A1A1A1A1A'
DC XL16'1A7E737475767778797A1A1A1A1A1A1A'
DC XL16'1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A1A'
DC XL16'7B4142434445464748491A1A1A1A1A1A'
DC XL16'7D4A4B4C4D4E4F5051521A1A1A1A1A1A'
DC XL16'5C1A535455565758595A1A1A1A1A1A1A'
DC XL16'303132333435363738391A1A1A1A1A1A'
LTORG
END OBWHSEC
_________________
THANKS