Subject: | |
From: | |
Reply To: | |
Date: | Thu, 26 Feb 1998 15:32:17 -0500 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Here are some constants to call pause with varying pause times.
For those of us who do not need or want to call the conversion
intrinsics.
Seconds Constant
------- ------------
01 %7740000000
02 %10000000000
03 %10020000000
04 %10040000000
05 %10050000000
06 %10060000000
07 %10070000000
08 %10100000000
09 %10104000000
10 %10110000000
11 %10114000000
12 %10120000000
13 %10124000000
14 %10130000000
15 %10134000000
16 %10140000000
17 %10142000000
18 %10144000000
19 %10146000000
20 %10150000000
21 %10152000000
22 %10154000000
23 %10156000000
24 %10160000000
25 %10162000000
26 %10164000000
27 %10166000000
28 %10170000000
29 %10172000000
30 %10174000000
Here is an example program, compile and run, with a 10 second pause.
:cob85xlg cobtestc
PAGE 0001 COBOL II/iX HP31500A.04.14 [85] Copyright Hewlett-Packard
CO. 1987
00001 001000$control source
00002 001100 identification division.
00003 001200 program-id. test.
00004 001300 environment division.
00005 001400 data division.
00006 001500 working-storage section.
00007 001600
00008 001610 77 pause-time pic s9(9) comp value %10110000000.
00009 001840
00010 002200 procedure division.
00011 002300 begin-test.
00012 002302
00013 002303 display "Calling Pause at ", time-of-day.
00014 002305 call intrinsic "pause" using pause-time.
00015 002307 display "Returned from pause at ",
time-of-day.
0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)
DATA AREA IS 2C BYTES.
CPU TIME = 0:00:00. WALL TIME = 0:00:00.
END OF PROGRAM
END OF COMPILE
HP Link Editor/iX (HP30315A.05.23) Copyright Hewlett-Packard Co 1986
LinkEd> link
END OF LINK
Calling Pause at 15:21:37
Returned from pause at 15:21:47
END OF PROGRAM
:
John Zoltak
North American Mfg Co
|
|
|