Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.wait +++| IDENT WAIT
00002 M00S00002.wait +++| ENTRY WAIT
00003 M00S00003.wait +++| SYSCOM B1
00004 M00S00004.wait +++| TITLE WAIT - TASK WAIT REQUEST.
| Line S00005 Modification History |
M01 (Removed by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00005 M01S00005.ns2440 ---|*COMMENT 80/03/01. TASK WAIT REQUEST.
| Line S00001 Modification History |
M01 (Added by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00001.ns2440 +++|*COMMENT WAIT - TASK WAIT REQUEST.
| Line S00006 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M00S00007.wait +++| WAIT SPACE 4,10
00010 M00S00008.wait +++|***** WAIT - TASK WAIT REQUEST.
00011 M00S00009.wait +++|*
00012 M00S00010.wait +++|* M.M. CHEN. 79/10/10.
00013 M00S00011.wait +++|
00014 M00S00012.wait +++|* COMMON DECK.
00015 M00S00013.wait +++|*CALL COMKMAC
00016 M00S00014.wait +++|
00017 M00S00015.wait +++| WAIT SPACE 4,25
00018 M00S00016.wait +++|*** WAIT - TASK WAIT REQUEST.
00019 M00S00017.wait +++|*
00020 M00S00018.wait +++|* *WAIT* ALLOWS A TASK TO SUSPEND PROCESSING FOR THE AMOUNT
00021 M00S00019.wait +++|* OF TIME SPECIFIED IN THE PARAMETER. THE MAXIMUM LENGTH OF
00022 M00S00020.wait +++|* TIME A TASK CAN BE SUSPENDED IS 3600 SECONDS (1 HOUR).
00023 M00S00021.wait +++|* IF NO PARAMETER IS SPECIFIED OR THE TIME IS GREATER THAN
00024 M00S00022.wait +++|* 1 HOUR OR LESS THAN ZERO, TASK WILL BE ABORTED.
00025 M00S00023.wait +++|*
00026 M00S00024.wait +++|* CALL FORMAT -
00027 M00S00025.wait +++|*
00028 M00S00026.wait +++|* FORTRAN -
00029 M00S00027.wait +++|*
00030 M00S00028.wait +++|* CALL WAIT(VALUE) WHERE VALUE IS REAL NUMBER.
00031 M00S00029.wait +++|*
00032 M00S00030.wait +++|* COBOL -
00033 M00S00031.wait +++|*
00034 M00S00032.wait +++|* ENTER WAIT USING VALUE.
00035 M00S00033.wait +++|*
00036 M00S00034.wait +++|* WHERE VALUE IS COMPUTATIONAL-1.
00037 M00S00035.wait +++|
00038 M00S00036.wait +++|
00039 M00S00037.wait +++| MAXW EQU 3600 MAXIMUM TIME IN SECONDS FOR *WAIT*
00040 M00S00038.wait +++| SPACE 4,10
00041 M00S00039.wait +++|** WAIT - TASK WAIT REQUEST.
00042 M00S00040.wait +++|*
00043 M00S00041.wait +++|* ENTRY (A1)/(X1) = PARAMETER LIST.
00044 M00S00042.wait +++|*
00045 M00S00043.wait +++|* USES A - 2, 6.
00046 M00S00044.wait +++|* X - 1, 2, 6.
00047 M00S00045.wait +++|*
00048 M00S00046.wait +++|* MACROS WAIT.
00049 M00S00047.wait +++|
00050 M00S00048.wait +++|
00051 M00S00049.wait +++| VFD 42/0LWAIT,18/WAIT
00052 M00S00050.wait +++|
00053 M00S00051.wait +++| WAIT SUBR ENTRY/EXIT
00054 M00S00052.wait +++| ZR X1,WAIT1 IF NO PARAMETER SPECIFIED
00055 M00S00053.wait +++| SA2 X1+ GET PARAMETER WORD
00056 M00S00054.wait +++| UX2,B3
00057 M00S00055.wait +++| LX2 X2,B3
00058 M00S00056.wait +++| SX1 MAXW MAXIMUM VALUE
00059 M00S00057.wait +++| NG X2,WAIT1 IF TIME IS NEGATIVE
00060 M00S00058.wait +++| IX1 X1-X2
00061 M00S00059.wait +++| SX6 X2
00062 M00S00060.wait +++| NG X1,WAIT1 IF TIME IS GREATER THAN 1 HOUR
00063 M00S00061.wait +++| SA6 WAIA SAVE PARAMETER
00064 M00S00062.wait +++| WAIT WAIA
00065 M00S00063.wait +++| EQ WAITX RETURN
00066 M00S00064.wait +++|
00067 M00S00065.wait +++|* ABORT TASK.
00068 M00S00066.wait +++|
00069 M00S00067.wait +++| WAIT1 ARGERR A1 ABORT TASK
00070 M00S00068.wait +++|
00071 M00S00069.wait +++| WAIA BSSZ 1 WAIT TIME IN SECONDS
00072 M00S00070.wait +++| END