home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
cicspa2.zip
/
FAAPLTPI.CCS
< prev
next >
Wrap
Text File
|
1995-07-02
|
3KB
|
111 lines
/*******************************************************************
*
* MODULE NAME FAAPLTPI.CCP
*
* DESCRIPTIVE NAME PLTPI Sample - Phase 1
*
* Statement: Licensed Materials - Property of IBM
*
* 5764-091 (c) Copyright IBM Corp. 1994,1995.
*
* See Copyright Instructions.
*
* All rights reserved.
*
* U.S. Government Users Restricted Rights - use,
* duplication or disclosure restricted by GSA
* ADP Schedule Contract with IBM Corp.
*
* Status: Version 1 Release 01
*
* NOTES :-
* DEPENDENCIES = None
* None
* RESTRICTIONS = none
* MODULE TYPE = program
* PROCESSOR = PS/2 and PC
*
* PURPOSE =
*
* LINKAGE =
*
* INPUT = None
*
*
* OUTPUT = WRITE TO OPERATOR saying PLTPI processing finished
*
* EXIT-NORMAL =
*
* EXIT-ERROR =
*
* EXTERNAL REFERENCES =
*
* DATA AREAS =
*
* CONTROL BLOCKS = none
*
* GLOBAL VARIABLES =
*
* TABLES =
*
* SAMPLE DEF FILE =
* ;Module definition file for faapltpi program (16-bit)
* LIBRARY INITINSTANCE
* PROTMODE
* DATA NONSHARED
* CODE LOADONCALL
* EXPORTS _faacstrt @1
********************************************************************/
#include <string.h>
#pragma intrinsic(strlen)
/*************************************************************/
/* */
/* */
/*************************************************************/
void main( void )
{
char Message[30] = "PLTPI processing complete";
char Faaois04[9] = "FAAOIS04";
char Pa2pltpi[9] = "PA2PLTPI";
char Pa21[5] = "PA21"; /** PA/2 addition **/
long Resp; /** PA/2 addition **/
char PA2text[]="FAAPLTPI PA21 did not start, is it installed in the PCT?";/** PA/2 addition **/
EXEC CICS ADDRESS
EIB(dfheiptr);
/**********************************************************************/
/** PA/2 addition **/
/** **/
EXEC CICS START
RESP(Resp)
TRANSID (Pa21);
if (Resp!=0)
{
EXEC CICS WRITE OPERATOR
TEXT(PA2text)
TEXTLENGTH((long)strlen(PA2text));
}
/** **/
/** End of PA/2 addition **/
/**********************************************************************/
EXEC CICS WRITE OPERATOR
TEXT(Message)
TEXTLENGTH((long)strlen(Message));
EXEC CICS XCTL
PROGRAM(Faaois04);
EXEC CICS RETURN; /** Will be used if XCTL fails **/
}