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