Here you go a real example as coded right out of the 6.0 communicator.
COB85XLG TSTDATES
PAGE 0001 COBOL II/iX HP31500A.04.19 [85] Copyright Hewlett-Packard CO.
1987
00001 COBCNTL 000100* The following are defaults for Compatibility mode
compi
ler.
00002 COBCNTL 000200*CONTROL
LIST,SOURCE,NOCODE,NOCROSSREF,ERRORS=100,NOVERBS,
WARN
00003 COBCNTL 000300*CONTROL
LINES=60,NOMAP,MIXED,QUOTE=",NOSTDWARN,SYNC16,IND
EX16
00004 COBCNTL 000400*
00005 COBCNTL 000500* The following are defaults for Native compiler.
00006 COBCNTL 000600*
00007 COBCNTL 000700*CONTROL
LIST,SOURCE,NOCODE,NOCROSSREF,ERRORS=100,NOVERBS,
WARN
00008 COBCNTL 000800*CONTROL
LINES=60,NOMAP,MIXED,QUOTE=",NOSTDWARN,SYNC32,IND
EX32
00009 COBCNTL 000900*CONTROL NOVALIDATE,OPTIMIZE=0
00010 COBCNTL 001000*
00011 COBCNTL 001100* For any other options, redirect COBCNTL.PUB.SYS by
usi
ng
00012 COBCNTL 001200* a file equation.
00013 COBCNTL 001300*
00014 001000 IDENTIFICATION DIVISION.
00015 001100 PROGRAM-ID. TSTDATE.
00016 001200 DATA DIVISION.
00017 001300 WORKING-STORAGE SECTION.
00018 001400 77 DATECODE PIC S9(9) COMP.
00019 001500 77 DATE-IN PIC X(6).
00020 001600 77 CUTOFF-YEAR PIC S9(9) COMP.
00021 001700 77 DATE-RESULT PIC S9(9) COMP.
00022 001800
00023 001900 PROCEDURE DIVISION.
00024 002000 000-BEGIN.
00025 002100 DISPLAY "ENTER DATE TO CHECK(YYMMDD FORMAT), RTN
IF N
O MORE".
00026 002200 MOVE SPACES TO DATE-IN.
00027 002300 ACCEPT DATE-IN.
00028 002400
00029 002500 IF DATE-IN = SPACES
00030 002600 STOP RUN.
00031 002700
00032 002800*DATE TYPE CODE DEFINED ON PAGE 126 OF 6.0
COMMUNICATOR
00033 002900 MOVE 25 TO DATECODE.
00034 003000
00035 003100*CUT OFF YEAR, USE -1 FOR HPSPLITCENTURY VARIABLE
00036 003200 MOVE -1 TO CUTOFF-YEAR.
00037 003300
00038 003400 CALL INTRINSIC "HPDATEVALIDATE"
00039 003500 USING DATECODE DATE-IN CUTOFF-YEAR
00040 003600 GIVING DATE-RESULT.
00041 003700
00042 003800 IF DATE-RESULT = 0
00043 003900 DISPLAY "DATE IS GOOD"
00044 004000 ELSE
00045 004100 DISPLAY "DATE IS BAD".
00046 004200
00047 004300 GO TO 000-BEGIN.
0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)
DATA AREA IS 3C BYTES.
CPU TIME = 0:00:00. WALL TIME = 0:00:00.
END OF PROGRAM
END OF COMPILE
HP Link Editor/iX (HP30315A.06.14) Copyright Hewlett-Packard Co 1986
LinkEd> link
END OF LINK
ENTER DATE TO CHECK(YYMMDD FORMAT), RTN IF NO MORE
000228
DATE IS GOOD
ENTER DATE TO CHECK(YYMMDD FORMAT), RTN IF NO MORE
000229
DATE IS GOOD
ENTER DATE TO CHECK(YYMMDD FORMAT), RTN IF NO MORE
010228
DATE IS GOOD
ENTER DATE TO CHECK(YYMMDD FORMAT), RTN IF NO MORE
010229
DATE IS BAD
ENTER DATE TO CHECK(YYMMDD FORMAT), RTN IF NO MORE
555555
DATE IS BAD
ENTER DATE TO CHECK(YYMMDD FORMAT), RTN IF NO MORE
000000
DATE IS BAD
ENTER DATE TO CHECK(YYMMDD FORMAT), RTN IF NO MORE
010220
DATE IS GOOD
ENTER DATE TO CHECK(YYMMDD FORMAT), RTN IF NO MORE
END OF PROGRAM
:
-----Original Message-----
From: Jim Chance [mailto:[log in to unmask]]
Sent: Monday, February 19, 2001 12:46 PM
To: [log in to unmask]
Subject: Does NO one have an example they can copy/paste to me? :(
Seeking COBOL Hpdatevalidate examples
--- Jim Chance <[log in to unmask]> wrote:
> Date: Mon, 19 Feb 2001 11:18:41 -0800 (PST)
> From: Jim Chance <[log in to unmask]>
> Subject: Seeking COBOL Hpdatevalidate examples
> To: [log in to unmask]
>
> Can someone send me a few HP COBOL examples of using the
> HPDATEVALIDATE intrinsic including the working storage.
>
> I'm having difficulty getting the result field to behave
> the way I would expect it to......per the "New date
> intrinsics for MPE/iX" document. Imagine that! :)
>
>
>
>
> __________________________________________________
> Do You Yahoo!?
> Get personalized email addresses from Yahoo! Mail - only
> $35
> a year! http://personal.mail.yahoo.com/
>
__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail - only $35
a year! http://personal.mail.yahoo.com/
|