One of our programmers is having some problems with the HPDATE intrinsics.
It's been a while since I've done anything with them and I'm not a COBOL
person, so I have not been much help. She is trying to get the day of the
week, but it's returning info= -0022 and subsys = +0529. Anybody have any
ideas?

Thanks, Lane

-----------------

  1     * HP DATE INTRINSICS
    1.1    01  INDATE-CODE               PIC S9(9)           VALUE ZEROS.
    1.2    01  OUTDATE-CODE              PIC S9(9)           VALUE ZEROS.
    1.3   *    Valid INDATE/OUTDATE codes are
    1.4   *    25 ascii yymmdd
    1.5   *    26 ascii mmddyy
    1.6   *    27 ascii ddmmyy
    1.7   *    35 ascii yymmdd yy:mm3000 date
    1.8   *    36 ascii mmddyy yy:mm3000 date
    1.9   *    37 ascii ddmmyy yy:mm3000 date
    2     *    38 ascii yyyymmdd
    2.1    01  SPLITYEAR                 PIC S9(9)           VALUE 50.
    2.2    01  DATE-8-CHAR               PIC X(8)            VALUE SPACES.
    2.3    01  FILLER REDEFINES DATE-8-CHAR.
    2.4        02  DATE8-CC              PIC X(2).
    2.5        02  DATE8-YY              PIC X(2).
    2.6        02  DATE8-MM              PIC X(2).
    2.7        02  DATE8-DD              PIC X(2).
    2.8    01  DATE-6-CHAR               PIC X(6)            VALUE SPACES.
    2.9    01  FILLER REDEFINES DATE-6-CHAR.
    3          02  DATE6-YY              PIC X(2).
    3.1        02  DATE6-MM              PIC X(2).
    3.2        02  DATE6-DD              PIC X(2).
    3.3    01  STATUS-VAR.
    3.4        02  S-INFO                PIC S9(4)      COMP VALUE ZEROS.
    3.5        02  S-SUBSYS              PIC S9(4)      COMP VALUE ZEROS.
    3.6    01  FORMAT-SPEC               PIC X(8)            VALUE SPACES.
    3.7    01  RETURN-SPEC               PIC X(8)            VALUE SPACES.
    3.8        88  MONDAY                                    VALUE "MON".
    3.9        88  FRIDAY                                    VALUE "FRI".
    4      01  RETURN-LENGTH             PIC S9(9)      COMP VALUE ZEROS.
/

 266.3    800-CHECK-DOW.
  266.5        MOVE WRK-DATE-MM TO DATE6-MM.
  266.6        MOVE WRK-DATE-DD TO DATE6-DD.
  266.7        MOVE WRK-DATE-YY TO DATE6-YY.
  266.8        MOVE 25 TO INDATE-CODE.
  266.81       MOVE "DAY " TO FORMAT-SPEC.
  266.9        CALL INTRINSIC "HPDATEFORMAT" USING \INDATE-CODE\
  267                                              DATE-6-CHAR
  267.01                                           FORMAT-SPEC
  267.02                                           RETURN-SPEC
  267.03                                           RETURN-LENGTH
  267.04                                           STATUS-VAR
  267.05                                           \SPLITYEAR\.
  267.06       DISPLAY "STATUS-VAR  " S-INFO " " S-SUBSYS.
  267.07       DISPLAY "RETURN-SPEC " RETURN-SPEC.
  268