*ASM XOPTS(NOPROLOG NOEPILOG) * $Source: /commtar/monoBANK/CICS_INTF/tKerasup.k,v $ * $Revision: 1.3 $ $Date: 88/02/27 12:24:35 $ $Author: chris $ * this is the interface to CICS erase unprotected. PUNCH ' ALIAS CIC$ERUP' CIC$ERUP ADASTART 'cics erase unprotected command',CICS=YES * * Ada Spec: * procedure Erase_UnProtected ( * Wait : Boolean * ); * ADAENTRY 0,EPILOG LTR PR1,PR1 BZ NOWAIT ADACICS TYPE=SAVE EXEC CICS ISSUE ERASEAUP WAIT ADACICS TYPE=RESTORE B EPILOG NOWAIT DS 0H ADACICS TYPE=SAVE EXEC CICS ISSUE ERASEAUP ADACICS TYPE=RESTORE EPILOG EQU * ADARTN * ADAGLOBL ADAPSTAK STKLOCAL EQU * ADAPSTKE ADAUDA ADAEND DFHEISTG END * $Cprt start$ * * Copyright (C) 1988 by Intermetrics, Inc. * * This material may be used duplicated or disclosed by or for the * U.S. Government pursuant to the copyright license under DAR clause * 7-104.9(a) (May 1981). * * This project was spnsored by the STARS Foundation * Naval Research Laboratory, Washington DC * * $Cprt end$