Communicator 3000 MPE/iX Release 6.0 (Platform Software Release C.60.00) (30216-90269)

Chapter 9 137
Year 2000 Enhancements
New Date Intrinsics for MPE/iX
COBOL Example of HPDATECONVERT.
IDENTIFICATION DIVISION.
PROGRAM-ID. DATEINTR.
REMARKS. SAMPLE PROGRAM USING DATE INTRINSICS
DATA DIVISION.
WORKING-STORAGE SECTION.
*Date code for YYMMDD is 25, for YYYYMMDD is 38
01 INDATE-CODE PIC S9(9) VALUE 25.
01 OUTDATE-CODE PIC S9(9) VALUE 38.
01 SPLITYEAR PIC S9(9) VALUE 70.
01 OUTDATE-YYYYMMDD PIC X(8) VALUE SPACES.
01 INDATE-YYMMDD PIC X(6) VALUE SPACES.
01 STATUS-VAR.
05 S-INFO PIC S9(4) COMP VALUE 0.
05 S-SUBSYS PIC S9(4) COMP VALUE 0.
PROCEDURE DIVISION.
CONVERT-DATE-PARA.
DISPLAY 'Enter the date in YYMMDD format:'
ACCEPT INDATE-YYMMDD
CALL INTRINSIC "HPDATECONVERT" USING
INDATE-CODE
INDATE-YYMMDD
OUTDATE-CODE
OUTDATE-YYYYMMDD
STATUS-VAR
SPLITYEAR
IF S-INFO NOT = 0
PERFORM DISPLAY-ERROR
ELSE
DISPLAY "Convert Date in YYYYMMDD = " OUTDATE-YYYYMMDD
END-IF
STOP RUN.
DISPLAY-ERROR.
DISPLAY "HPDATECONVERT FAILED. ERROR = " S-INFO.