XU8P369 ;BP/BDT - Set Read Time Out; 10/24/06
;;8.0;KERNAL;**369**; JUL 10, 1995;Build 27
Q
POST ; Set READ TIMEOUT for the HL LOGICAL LINK NODE of "XUMF FORUM" to 600
N FDA
S FDA(1,870,"?+1,",.01)="XUMF FORUM"
S FDA(1,870,"?+1,",200.04)=600
D UPDATE^DIE("","FDA(1)")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P369 286 printed Dec 13, 2024@02:07:20 Page 2
XU8P369 ;BP/BDT - Set Read Time Out; 10/24/06
+1 ;;8.0;KERNAL;**369**; JUL 10, 1995;Build 27
+2 QUIT
POST ; Set READ TIMEOUT for the HL LOGICAL LINK NODE of "XUMF FORUM" to 600
+1 NEW FDA
+2 SET FDA(1,870,"?+1,",.01)="XUMF FORUM"
+3 SET FDA(1,870,"?+1,",200.04)=600
+4 DO UPDATE^DIE("","FDA(1)")
+5 QUIT