DATEOUT COBOL II Procedure |
DATEOUT procedure is called from JCL to form DB2 current TimeStamp as YYYY-MM-DD-HH.MM.SS.000000 string and to write it as a single record to SYSDATE file (LRECL=26). Date is Year 2000 compliant. This program illustrates usage of IGZEDT4 system subroutine in COBOL II. With COBOL/MVS all dates are Year 2000 compliant and the task of writing a date record is trivial. |
* Output Current System Date and Time as DB2 TimeStamp to a File. * ---------------------------------------------------------------- * Copyright (C) 1996–1998 by Vladimir Veytsel www.davar.net * Action --------------------------------------------------------- * Forms DB2 current TimeStamp as YYYY-MM-DD-HH.MM.SS.000000 * string and writes it as a single record to SYSDATE file. * Note ----------------------------------------------------------- * Program is Year 2000 compliant. *----------------------------------------------------------------- IDENTIFICATION DIVISION. *----------------------------------------------------------------- PROGRAM-ID. DATEOUT. AUTHOR. Vladimir Veytsel. DATE-WRITTEN. 05/20/1996. DATE-COMPILED. 07/28/1998. *----------------------------------------------------------------- ENVIRONMENT DIVISION. *----------------------------------------------------------------- INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT Date-File ASSIGN TO SYSDATE. *----------------------------------------------------------------- DATA DIVISION. *----------------------------------------------------------------- FILE SECTION. FD Date-File RECORDING MODE IS F RECORD CONTAINS 26 CHARACTERS. 01 Date-Record PIC X(26). *----------------------------------------------------------------- WORKING-STORAGE SECTION. 77 Current-Date PIC X(08). 77 Current-Time PIC X(06). 77 DB2-Time-Stamp PIC X(26). *----------------------------------------------------------------- PROCEDURE DIVISION. *----------------------------------------------------------------- * Get Current System Date as YYYYMMDD (Year 2000 Compliant) ------ CALL 'IGZEDT4' USING Current-Date. * Get Current System Time as HHMMSS ------------------------------ ACCEPT Current-Time FROM TIME. * Form DB2 TimeStamp as YYYY-MM-DD-HH.MM.SS.000000 --------------- STRING Current-Date(1:4) '-' Current-Date(5:2) '-' Current-Date(7:2) '-' Current-Time(1:2) '.' Current-Time(3:2) '.' Current-Time(5:2) '.000000' DELIMITED BY SIZE INTO DB2-Time-Stamp. * Output DB2 TimeStamp to Date File ------------------------------ OPEN OUTPUT Date-File. WRITE Date-Record FROM DB2-Time-Stamp. * Finish Program ------------------------------------------------- STOP RUN.
View [and save] DATEOUT.COB text (Use [Back] button or [Alt]+[CL] to return here from the viewed text) Copyright © 1996–1998 by Go to: Davar site entry | Site contents | Site index | Mainframe | COBOL | Text top |