home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / cicspa2.zip / FAAPLTSD.CCS < prev    next >
Text File  |  1995-07-02  |  4KB  |  74 lines
  1.       /********************************************************************
  2.       *                                                                   *
  3.       * MODULE NAME        FAAPLTSD.CCS                                   *
  4.       *                                                                   *
  5.       * DESCRIPTIVE NAME   PLTSD - Phase 1                                *
  6.       *                                                                   *
  7.       * Statement:         Licensed Materials - Property of IBM           *
  8.       *                                                                   *
  9.       *                    5764-091 (c) Copyright IBM Corp. 1994,1995.    *
  10.       *                                                                   *
  11.       *                    See Copyright Instructions.                    *
  12.       *                                                                   *
  13.       *                    All rights reserved.                           *
  14.       *                                                                   *
  15.       *                    U.S. Government Users Restricted Rights - use, *
  16.       *                    duplication or disclosure restricted by GSA    *
  17.       *                    ADP Schedule Contract with IBM Corp.           *
  18.       *                                                                   *
  19.       * Status:            Version 1 Release 01                           *
  20.       *                                                                   *
  21.       *  NOTES :-                                                         *
  22.       *    DEPENDENCIES = None                                            *
  23.       *                   None                                            *
  24.       *    RESTRICTIONS = none                                            *
  25.       *    MODULE TYPE  = Program.                                        *
  26.       *    PROCESSOR    = PS/2 and PC                                     *
  27.       *                                                                   *
  28.       ********************************************************************/
  29.  
  30. #include <string.h>
  31. #pragma intrinsic(strlen)
  32.  
  33. void main( void )
  34. {
  35. static char Reason[] = "Standard PLTSD processing";
  36. static char Message[] = "PLTSD processing complete";
  37. static char Faaoispt[9] = "FAAOISPT";
  38.  
  39.    /**********************************************************************/
  40.    /**          PA/2 addition                                           **/
  41.    /**                                                                  **/
  42. static char Pa2pltsd[10] = "PA2PLTSD";
  43. static char PA2text[]="FAAPLTSD LINK to PA2PLTSD did not work, is the DLL installed?";
  44. long Resp;
  45.  
  46.                 EXEC CICS LINK
  47.                    PROGRAM(Pa2pltsd)
  48.                    COMMAREA(Reason)
  49.                    RESP(Resp)
  50.                    LENGTH(strlen(Reason)) ;
  51.  
  52.                 if (Resp!=0)
  53.                 {
  54.  
  55.                    EXEC CICS WRITE OPERATOR
  56.                       TEXT(PA2text)
  57.                       TEXTLENGTH((long)strlen(PA2text));
  58.  
  59.                 }
  60.    /**                                                                  **/
  61.    /**          End of PA/2 addition                                    **/
  62.    /**********************************************************************/
  63.  
  64.                 EXEC CICS WRITE OPERATOR
  65.                   TEXT(Message)
  66.                   TEXTLENGTH((long)strlen(Message));
  67.  
  68.                 EXEC CICS XCTL
  69.                    PROGRAM(Faaoispt);
  70.  
  71.                 EXEC CICS RETURN;   /** Will be used if XCTL fails      **/
  72.  
  73. }
  74.