Hi Rob,
Thanks for your reply!
I'm not quite sure "some sort of PC routine service to invoke the IFI0306
request" means, can you help give some more explanation?
Is it possible to do like this:
1. write a Assembler subroutine to get ECSA storage and return the
address , something like:
ENTRY STM R14,R12,12(R13)
MODESET KEY=ZERO,MODE=SUP
LA R0,DYNSIZE
STORAGE OBTAIN,LENGTH=((R0)),SP=241,KEY=7
......
2. write the cobol program under CICS to capture IFI0306, call the
Assembler subroutine , and set the return area to the ECSA storage address?
S-CALL-DSNWLI-READS.
CALL assembler-subroutine
set ADDRESS OF WS-RETURN-DATA TO pointer-return-from-
assembler-subroutine
CALL 'DSNWLI' USING WS-IFI-FUNC
DSNDIFCA
WS-RETURN-AREA
IFCID306
DSNDWQAL
.....
3. after message processing, call Assembler subroutine again to free the
ECSA storage...
-----Original Message-----
The book goes on to say that the application requesting IFI0306 must be
executing in key0.
CICS is NOT the correct environment for this work.
You either need a separate authorized jobstep program, or some sort of PC
routine service to invoke the IFI0306 request.
The minute you go into key0, all concepts of "easy" coding vanish and you are
one instruction away from an unscheduled IPL.
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Wang Rong
Sent: Thursday, October 18, 2018 11:09 AM
To: [email protected]
Subject: Re: get ECSA key 7 storage under CICS
Hi Binyamin,
Many thanks to your quick replay.
I'm trying to capture/send DB2 log record using IFI call. The storage
requirement is ECSA key 7 storage: "The return area for monitor programs that
issue IFCID 0306 requests must reside either in ECSA key 7 storage or in the
64-bit common key 7 storage area above the 2-GB bar" (from IBM book).
I prefer to use CICS because it's easy programming.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
================================
Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support:
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences -
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
================================
This communication and any attachments may contain confidential information of
Rocket Software, Inc. All unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please notify Rocket
Software immediately and destroy all copies of this communication. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
