40 |
901 CONTINUE |
901 CONTINUE |
41 |
WRITE(msgBuffer,'(A)') |
WRITE(msgBuffer,'(A)') |
42 |
&' ' |
&' ' |
43 |
CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId) |
CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit, |
44 |
|
&SQUEEZE_RIGHT,myThreadId) |
45 |
WRITE(msgBuffer,'(A)') |
WRITE(msgBuffer,'(A)') |
46 |
&'*** WARNING WARNING WARNING WARNING WARNING WARNING ***' |
&'*** WARNING WARNING WARNING WARNING WARNING WARNING ***' |
47 |
CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId) |
CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit, |
48 |
|
&SQUEEZE_RIGHT,myThreadId) |
49 |
WRITE(msgBuffer,'(A)') |
WRITE(msgBuffer,'(A)') |
50 |
&'procedure: "DATE".' |
&'procedure: "DATE".' |
51 |
CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId) |
CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit, |
52 |
|
&SQUEEZE_RIGHT,myThreadId) |
53 |
WRITE(msgBuffer,'(A)') |
WRITE(msgBuffer,'(A)') |
54 |
&'Variable passed to S/R DATE is too small.' |
&'Variable passed to S/R DATE is too small.' |
55 |
CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId) |
CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit, |
56 |
|
&SQUEEZE_RIGHT,myThreadId) |
57 |
WRITE(msgBuffer,'(A)') |
WRITE(msgBuffer,'(A)') |
58 |
&' Argument must be at least',lDate,'characters long.' |
&' Argument must be at least',lDate,'characters long.' |
59 |
CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId) |
CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit, |
60 |
|
&SQUEEZE_RIGHT,myThreadId) |
61 |
WRITE(msgBuffer,'(A)') |
WRITE(msgBuffer,'(A)') |
62 |
&'*******************************************************' |
&'*******************************************************' |
63 |
CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId) |
CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit, |
64 |
|
&SQUEEZE_RIGHT,myThreadId) |
65 |
GOTO 1000 |
GOTO 1000 |
66 |
END |
END |
67 |
|
|