dorl@vms.macc.wisc.edu (Michael Dorl - MACC) (07/29/88)
some missing lines at the very front of parts b, d, and e.
Here are the differences between what should have been sent and
what did get sent.
Sorry about any inconvenience this might have caused!
Part B what should have been sent
************
File DSK$USER1:[MACCNET.DORL.XXNEWS]DIST.B;1
1 Call Cmd_ArticleNone ! same subject
2 Action = .false.
3 Else If
4 $ (
5 $ (Buf(1:1) .ge. '0')
6 $ .and.
7 $ (Buf(1:1) .le. '9')
8 $ )
9 $ Then
10 Call Cmd_ArticleNone
11 Action = .false.
12 Else
13 Call SMG_All_Print ('Huh?', '|')
14 Action = .false.
15 End If
16
******
Part B what did get sent
File DSK$USER1:[MACCNET.DORL.XXNEWS]X.B;2
1
************
Number of difference sections found: 1
Number of difference records found: 15
DIFFERENCES /IGNORE=(TRAILING_SPACES)/MERGED=1/OUTPUT=DSK$USER1:[MACCNET.DORL.XXNEWS]DIFF.B;1-
DSK$USER1:[MACCNET.DORL.XXNEWS]DIST.B;1-
DSK$USER1:[MACCNET.DORL.XXNEWS]X.B;2
************
Part d what should have been sent
File DSK$USER1:[MACCNET.DORL.XXNEWS]DIST.D;1
1 EndIf
2 Buf_S = 1
3 Do While (Buf_S .le. Lg)
4 Buf_E = Lg
5 X = Buf_E - Buf_S + 1 + Pre_Lg
6 If (X .gt. MxLg) Then
7 Buf_E = Buf_S + MxLg - 1 - Pre_Lg
8 EndIf
9 If (Pre_Lg .ne. 0) Then
10 Write (LU, '(A)') Pre // Buf(Buf_S:Buf_E)
11 Else
12 Write (LU, '(A)') Buf(Buf_S:Buf_E)
13 EndIf
14 Buf_S = Buf_E + 1
15 EndDo
16 EndIf
17
******
Part d what did get sent
File DSK$USER1:[MACCNET.DORL.XXNEWS]X.D;2
1
************
Number of difference sections found: 1
Number of difference records found: 16
DIFFERENCES /IGNORE=(TRAILING_SPACES)/MERGED=1/OUTPUT=DSK$USER1:[MACCNET.DORL.XXNEWS]DIFF.D;1-
DSK$USER1:[MACCNET.DORL.XXNEWS]DIST.D;1-
DSK$USER1:[MACCNET.DORL.XXNEWS]X.D;2
************
Part e what did get sent
File DSK$USER1:[MACCNET.DORL.XXNEWS]DIST.E;1
1 End
2 ******** user_open.common ********
******
Part e what did get sent
File DSK$USER1:[MACCNET.DORL.XXNEWS]X.E;2
1 ******** user_open.common ********
************
Number of difference sections found: 1
Number of difference records found: 1
DIFFERENCES /IGNORE=(TRAILING_SPACES)/MERGED=1/OUTPUT=DSK$USER1:[MACCNET.DORL.XXNEWS]DIFF.E;1-
DSK$USER1:[MACCNET.DORL.XXNEWS]DIST.E;1-
DSK$USER1:[MACCNET.DORL.XXNEWS]X.E;2
Michael Dorl (608) 262-0466
dorl@vms.macc.wisc.edu
dorl@wiscmacc.bitnet