Return to AutoRestartMgr_ZOS_ZSERIES_IBM.s CVS log | Up to [Pegasus] / pegasus / src / Service |
File: [Pegasus] / pegasus / src / Service / AutoRestartMgr_ZOS_ZSERIES_IBM.s
(download)
Revision: 1.1, Fri Jun 30 12:24:34 2006 UTC (18 years ago) by thilo.boehm Branch: MAIN CVS Tags: TASK_PEP328_SOLARIS_NEVADA_PORT, TASK_BUG_5314_IPC_REFACTORING_ROOT, TASK_BUG_5314_IPC_REFACTORING_BRANCH, TASK_BUG_5314_IPC_REFACTORING-V1, TASK-TASK-BUG4011_WinLocalConnect-branch-New-root, TASK-TASK-BUG4011_WinLocalConnect-branch-New-merged_out_to_branch, TASK-TASK-BUG4011_WinLocalConnect-branch-New-merged_out_from_trunk, TASK-TASK-BUG4011_WinLocalConnect-branch-New-merged_in_to_trunk, TASK-TASK-BUG4011_WinLocalConnect-branch-New-merged_in_from_branch, TASK-TASK-BUG4011_WinLocalConnect-branch-New-branch, TASK-PEP328_SOLARIS_NEVADA_PORT_v2-root, TASK-PEP328_SOLARIS_NEVADA_PORT_v2-branch, TASK-PEP328_SOLARIS_NEVADA_PORT-root, TASK-PEP328_SOLARIS_NEVADA_PORT-branch, TASK-PEP328_SOLARIS_IX86_CC_PORT-root, TASK-PEP328_SOLARIS_IX86_CC_PORT-branch-v2, TASK-PEP328_SOLARIS_IX86_CC_PORT-branch, TASK-PEP311_WSMan-root, TASK-PEP311_WSMan-branch, TASK-PEP305_VXWORKS-root, TASK-PEP305_VXWORKS-branch-pre-solaris-port, TASK-PEP305_VXWORKS-branch-post-solaris-port, TASK-PEP305_VXWORKS-branch-beta2, TASK-PEP305_VXWORKS-branch, TASK-PEP305_VXWORKS-2008-10-23, TASK-PEP291_IPV6-root, TASK-PEP291_IPV6-branch, TASK-PEP286_PRIVILEGE_SEPARATION-root, TASK-PEP286_PRIVILEGE_SEPARATION-branch, TASK-PEP274_dacim-root, TASK-PEP274_dacim-merged_out_to_branch, TASK-PEP274_dacim-merged_out_from_trunk, TASK-PEP274_dacim-merged_in_to_trunk, TASK-PEP274_dacim-merged_in_from_branch, TASK-PEP274_dacim-branch, TASK-PEP268_SSLClientCertificatePropagation-root, TASK-PEP268_SSLClientCertificatePropagation-merged_out_to_branch, TASK-PEP268_SSLClientCertificatePropagation-merged_out_from_trunk, TASK-PEP268_SSLClientCertificatePropagation-merged_in_to_trunk, TASK-PEP268_SSLClientCertificatePropagation-merged_in_from_branch, TASK-PEP268_SSLClientCertificatePropagation-branch, TASK-PEP267_SLPReregistrationSupport-root, TASK-PEP267_SLPReregistrationSupport-merging_out_to_branch, TASK-PEP267_SLPReregistrationSupport-merging_out_from_trunk, TASK-PEP267_SLPReregistrationSupport-merged_out_to_branch, TASK-PEP267_SLPReregistrationSupport-merged_out_from_trunk, TASK-PEP267_SLPReregistrationSupport-merged_in_to_trunk, TASK-PEP267_SLPReregistrationSupport-merged_in_from_branch, TASK-PEP267_SLPReregistrationSupport-branch, TASK-Bugs5690_3913_RemoteCMPI-root, TASK-Bugs5690_3913_RemoteCMPI-merged_out_to_branch, TASK-Bugs5690_3913_RemoteCMPI-merged_out_from_trunk, TASK-Bugs5690_3913_RemoteCMPI-merged_in_to_trunk, TASK-Bugs5690_3913_RemoteCMPI-merged_in_from_branch, TASK-Bugs5690_3913_RemoteCMPI-branch, TASK-Bug2102_RCMPIWindows-root, TASK-Bug2102_RCMPIWindows-merged_out_to_branch, TASK-Bug2102_RCMPIWindows-merged_out_from_trunk, TASK-Bug2102_RCMPIWindows-merged_in_to_trunk, TASK-Bug2102_RCMPIWindows-merged_in_from_branch, TASK-Bug2102_RCMPIWindows-branch, TASK-Bug2102Final-root, TASK-Bug2102Final-merged_out_to_branch, TASK-Bug2102Final-merged_out_from_trunk, TASK-Bug2102Final-merged_in_to_trunk, TASK-Bug2102Final-merged_in_from_branch, TASK-Bug2102Final-branch, TASK-Bug2021_RemoteCMPIonWindows-root, TASK-Bug2021_RemoteCMPIonWindows-merged_out_to_branch, TASK-Bug2021_RemoteCMPIonWindows-merged_out_from_trunk, TASK-Bug2021_RemoteCMPIonWindows-merged_in_to_trunk, TASK-Bug2021_RemoteCMPIonWindows-merged_in_from_branch, TASK-Bug2021_RemoteCMPIonWindows-branch, TASK-Bug2021_RCMPIonWindows-root, TASK-Bug2021_RCMPIonWindows-merged_out_to_branch, TASK-Bug2021_RCMPIonWindows-merged_out_from_trunk, TASK-Bug2021_RCMPIonWindows-merged_in_to_trunk, TASK-Bug2021_RCMPIonWindows-merged_in_from_branch, TASK-Bug2021_RCMPIonWindows-branch, TASK-BUG7240-root, TASK-BUG7240-branch, TASK-BUG7146_SqlRepositoryPrototype-root, TASK-BUG7146_SqlRepositoryPrototype-merged_out_to_branch, TASK-BUG7146_SqlRepositoryPrototype-merged_out_from_trunk, TASK-BUG7146_SqlRepositoryPrototype-merged_in_to_trunk, TASK-BUG7146_SqlRepositoryPrototype-merged_in_from_branch, TASK-BUG7146_SqlRepositoryPrototype-branch, TASK-BUG4011_WinLocalConnect-branch-New, RELEASE_2_8_2-RC1, RELEASE_2_8_2, RELEASE_2_8_1-RC1, RELEASE_2_8_1, RELEASE_2_8_0_BETA, RELEASE_2_8_0-RC2, RELEASE_2_8_0-RC1, RELEASE_2_8_0-FC, RELEASE_2_8_0, RELEASE_2_8-root, RELEASE_2_8-branch, RELEASE_2_7_3-RC1, RELEASE_2_7_3, RELEASE_2_7_2-RC1, RELEASE_2_7_2, RELEASE_2_7_1-RC1, RELEASE_2_7_1, RELEASE_2_7_0-RC1, RELEASE_2_7_0-BETA, RELEASE_2_7_0, RELEASE_2_7-root, RELEASE_2_7-branch, RELEASE_2_6_3-RC2, RELEASE_2_6_3-RC1, RELEASE_2_6_3, RELEASE_2_6_2-RC1, RELEASE_2_6_2, RELEASE_2_6_1-RC1, RELEASE_2_6_1, RELEASE_2_6_0-RC1, RELEASE_2_6_0-FC, RELEASE_2_6_0, RELEASE_2_6-root, RELEASE_2_6-branch-clean, RELEASE_2_6-branch, PEP286_PRIVILEGE_SEPARATION_ROOT, PEP286_PRIVILEGE_SEPARATION_CODE_FREEZE, PEP286_PRIVILEGE_SEPARATION_BRANCH, PEP286_PRIVILEGE_SEPARATION_1 BUG#: 5182 TITLE: z/OS: enable CIM Server to use Automatic Restart Manager of z/OS DESCRIPTION: Add z/OS only support for z/OS Automatic Restart Manager. |
*/%2006////////////////////////////////////////////////////////////// */ */ Copyright (c) 2000, 2001, 2002 BMC Software; Hewlett-Packard */ Development Company, L.P.; IBM Corp.; The Open Group; */ Tivoli Systems. */ Copyright (c) 2003 BMC Software; Hewlett-Packard Development */ Company, L.P.; IBM Corp.; EMC Corporation, The Open Group. */ Copyright (c) 2004 BMC Software; Hewlett-Packard Development */ Company, L.P.; IBM Corp.; EMC Corporation; VERITAS Software */ Corporation; The Open Group. */ Copyright (c) 2005 Hewlett-Packard Development Company, L.P.; */ IBM Corp.; EMC Corporation; VERITAS Software Corporation; */ The Open Group. */ Copyright (c) 2006 Hewlett-Packard Development Company, L.P.; */ IBM Corp.; EMC Corporation; Symantec Corporation; The Open Group. */ */ Permission is hereby granted, free of charge, to any person */ obtaining a copy of this software and associated documentation */ files (the "Software"), to deal in the Software without restriction, */ including without limitation the rights to use, copy, modify, merge, */ publish, distribute, sublicense, and/or sell copies of the Software, */ and to permit persons to whom the Software is furnished to do so, */ subject to the following conditions: */ */ THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE SHALL BE */ INCLUDED IN ALL COPIES OR SUBSTANTIAL PORTIONS OF THE SOFTWARE. */ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, */ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES */ OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND */ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT */ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, */ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, */ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER */ DEALINGS IN THE SOFTWARE. */ */=================================================================== */ */ Author: Thilo Boehm (tboehm@de.ibm.com) */ */%////////////////////////////////////////////////////////////////// ******************************************************************** * REGARM - register with ARM * * Function: The elment name and type are hard coded. * TERMTYPE=ELEMTERM is used for only app ABENDS. * All other input parameters are left at their defaults: * ELEMTYPE=NO_ELEMTYPE * EVENTEXIT=NO_EVENTEXIT * EVENTEXITPL=NO_EVENTEXITPL * PLISTVER=IMPLIED_VERSION * RESTARTTIMEOUT=NORM * STARTTXT=NO_STARTTXT * * USAGE FROM C: * void register_arm (char * elemname, * char * elemtype, * /* must point to a local buffer which has a length */ * /* of least 128 bytes */ * char * buffer, * int * retcode, * int * reasoncode) * ******************************************************************** REGARM CSECT REGARM AMODE 31 REGARM RMODE ANY * EDCPRLG + BASEREG=3, + USRDSAL=AUTOSPACE1 * * USING AUTOSPACE,13 * make C-auto-storage accessable using DSECT and register 13 L R4,0(0,R1) get element name address into R4 L R7,4(0,R1) GET buffer PTR into R7 L R5,8(0,R1) GET pointer to retcode variable L R6,12(0,R1) GET pointer to reascode variable MVC 0(IXC1FL,R7),IXC1ST COPY TEMPLATE LIST FORM MACRO * IXCARM REQUEST=REGISTER,ELEMENT=(R4), + ELEMTYPE=NO_ELEMTYPE, + TERMTYPE=ELEMTERM, + RETCODE=0(0,R5), + RSNCODE=0(0,R6), + MF=(E,(R7)) EDCEPIL * * * use the LIST from of the IXCARM macro to generate a parameter * block here AUTOSPACE EDCDSAD IXC1ST IXCARM MF=(L,IXCARML) IXC1FE DS 0H IXC1FL EQU IXC1FE-IXC1ST AUTOSPACE1 EQU *-AUTOSPACE * ******************************************************************** * READYARM - set element to READY state with ARM * * USAGE FROM C: * void ready_arm ( * /* must point to a local buffer which has a length */ * /* of least 128 bytes */ * char * buffer, * int * retcode, int * reasoncode) * ******************************************************************** READYARM CSECT READYARM AMODE 31 READYARM RMODE ANY * EDCPRLG + BASEREG=3, + USRDSAL=AUTOSPACE2 * * USING AUTOSPACE,13 * make C-auto-storage accessable using DSECT and register 13 L R7,0(0,R1) GET buffer PTR into R7 L R5,4(0,R1) GET pointer to retcode variable L R6,8(0,R1) GET pointer to reascode variable MVC 0(IXC2FL,R7),IXC2ST COPY TEMPLATE LIST FORM MACRO * IXCARM REQUEST=READY, + RETCODE=0(0,R5), + RSNCODE=0(0,R6), + MF=(E,(R7)) * * EDCEPIL * * AUTOSPACE EDCDSAD IXC2ST IXCARM MF=(L,IXCARM2) IXC2FE DS 0H IXC2FL EQU IXC2FE-IXC2ST AUTOSPACE2 EQU *-AUTOSPACE * ******************************************************************** * DEREGARM - deregister element from ARM * should be called at program termination * USAGE FROM C: * void deregister_arm ( * /* must point to a local buffer which has a length */ * /* of least 128 bytes */ * char * buffer, * int * retcode, int * reasoncode) * ******************************************************************** DEREGARM CSECT DEREGARM AMODE 31 DEREGARM RMODE ANY * EDCPRLG + BASEREG=3, + USRDSAL=AUTOSPACE3 * * USING AUTOSPACE,13 * make C-auto-storage accessable using DSECT and register 13 L R7,0(0,R1) GET buffer PTR into R7 L R5,4(0,R1) GET pointer to retcode variable L R6,8(0,R1) GET pointer to reascode variable MVC 0(IXC3FL,R7),IXC3ST COPY TEMPLATE LIST FORM MACRO * IXCARM REQUEST=DEREGISTER, + RETCODE=0(0,R5), + RSNCODE=0(0,R6), + MF=(E,(R7)) * EDCEPIL * * AUTOSPACE EDCDSAD IXC3ST IXCARM MF=(L,IXCARM3) IXC3FE DS 0H IXC3FL EQU IXC3FE-IXC3ST AUTOSPACE3 EQU *-AUTOSPACE * * R0 EQU 0 R1 EQU 1 R2 EQU 2 R3 EQU 3 R4 EQU 4 R5 EQU 5 R6 EQU 6 R7 EQU 7 R8 EQU 8 R9 EQU 9 R10 EQU 10 R11 EQU 11 R12 EQU 12 R13 EQU 13 R14 EQU 14 R15 EQU 15 *
No CVS admin address has been configured |
Powered by ViewCVS 0.9.2 |