home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / cee / ceeigzct.cpy next >
Text File  |  1998-02-11  |  2KB  |  46 lines
  1.       ****************************************************
  2.       *  CEEIGZCT  COPY (for native data types)          *
  3.       *                                                  *
  4.       *  IBM LANGUAGE ENVIRONMENT FOR MVS & VM           *
  5.       *       VERSION 1 RELEASE 5 MODIFICATION 0         *
  6.       *                                                  *
  7.       *  LICENSED MATERIALS - PROPERTY OF IBM.           *
  8.       *                                                  *
  9.       *  5688-198 (C) COPYRIGHT IBM CORP. 1993,  1995    *
  10.       *  ALL RIGHTS RESERVED                             *
  11.       *  US GOVERNMENT USERS RESTRICTED RIGHTS - USE,    *
  12.       *  DUPLICATION OR DISCLOSURE RESTRICTED BY GSA     *
  13.       *  ADP SCHEDULE CONTRACT WITH IBM CORP.            *
  14.       *                                                  *
  15.       ****************************************************
  16.       * Condition Token Declarations - Native
  17.       *
  18.        88  CEE000        VALUE X"0000000000000000".
  19.        88  CEE0PD        VALUE X"03002D0359434545".
  20.        88  CEE2E6        VALUE X"0300C60959434545".
  21.        88  CEE2E7        VALUE X"0300C70959434545".
  22.        88  CEE2E9        VALUE X"0300C90959434545".
  23.        88  CEE2EA        VALUE X"0300CA0959434545".
  24.        88  CEE2EB        VALUE X"0300CB0959434545".
  25.        88  CEE2EC        VALUE X"0300CC0959434545".
  26.        88  CEE2ED        VALUE X"0300CD0959434545".
  27.        88  CEE2EE        VALUE X"0300CE0959434545".
  28.        88  CEE2EF        VALUE X"0300CF0959434545".
  29.        88  CEE2EG        VALUE X"0300D00959434545".
  30.        88  CEE2EH        VALUE X"0300D10959434545".
  31.        88  CEE2EI        VALUE X"0300D20959434545".
  32.        88  CEE2EJ        VALUE X"0300D30959434545".
  33.        88  CEE2EK        VALUE X"0300D40959434545".
  34.        88  CEE2EL        VALUE X"0300D50959434545".
  35.        88  CEE2EM        VALUE X"0300D60959434545".
  36.        88  CEE2EN        VALUE X"0300D70959434545".
  37.        88  CEE2EO        VALUE X"0300D80959434545".
  38.        88  CEE2EP        VALUE X"0300D90959434545".
  39.        88  CEE2EQ        VALUE X"0300DA0959434545".
  40.        88  CEE2ET        VALUE X"0300DD0959434545".
  41.        88  CEE2EU        VALUE X"0200DE0951434545".
  42.        88  CEE2EV        VALUE X"0200DF0951434545".
  43.        88  CEE2F3        VALUE X"0300E30959434545".
  44.        88  CEE2F5        VALUE X"0300E50959434545".
  45.        88  CEE2F6        VALUE X"0100E60949434545".
  46.