home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / cicssmp / srvdir / timezone.cbl next >
Text File  |  1998-03-03  |  3KB  |  57 lines
  1.       ******************************************************************
  2.       *                                                                *
  3.       * MODULE NAME        TIMEZONE.CBL                                *
  4.       *                                                                *
  5.       * DESCRIPTIVE NAME   Server code for TimeZone - CICS             *
  6.       *                    Sample shipped with VisualAge COBOL for OS/2*
  7.       *                                                                *
  8.       * Statement:         63H9790                                     *
  9.       *                    (C) Copyright IBM Corporation 1994,1998     *
  10.       *                                                                *
  11.       * Status:            Version 2 Release 0                         *
  12.       *                                                                *
  13.       * Components:        TIMEZONE.CBL                                *
  14.       *                                                                *
  15.       * NOTES :-                                                       *
  16.       *                                                                *
  17.       *   This sample is an example of the form an ECI application; it *
  18.       *   is not a template and should be used only as an example for  *
  19.       *   for your applications. It does not demonstrate all the       *
  20.       *   techniques required for a  large application.                *
  21.       ******************************************************************
  22.  
  23.        IDENTIFICATION DIVISION.
  24.        PROGRAM-ID. TIMEZONE.
  25.  
  26.        ENVIRONMENT DIVISION.
  27.        DATA DIVISION.
  28.        WORKING-STORAGE SECTION.
  29.        77 RAWTIME            PIC S9(15) COMP-3.
  30.        01  DATE-TEMP         PIC X(8).
  31.        01  TIME-TEMP         PIC X(8).
  32.        LINKAGE SECTION.
  33.        01  DFHCOMMAREA.
  34.            07  DATE-OUT      PIC X(8).
  35.            07  TIME-OUT      PIC X(8).
  36.  
  37.        PROCEDURE DIVISION.
  38.       ***************************************************************
  39.       *    Main section                                             *
  40.       ***************************************************************
  41.            EXEC CICS ASKTIME ABSTIME(RAWTIME)
  42.            END-EXEC.
  43.  
  44.            EXEC CICS FORMATTIME ABSTIME(RAWTIME)
  45.                                 MMDDYY(DATE-OUT)
  46.                                 DATESEP('-')
  47.                                 TIME(TIME-OUT)
  48.                                 TIMESEP(':')
  49.            END-EXEC.
  50.  
  51.            MOVE DATE-OUT TO DATE-TEMP.
  52.            MOVE TIME-OUT TO TIME-TEMP.
  53.            EXEC CICS RETURN END-EXEC.
  54.  
  55.            GOBACK.
  56.  
  57.