Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: XMYPRE1

XMYPRE1.m

Go to the documentation of this file.

XMYPRE1 ;ISC-SF/GMB-Pre- & Post- Init ;08/22/2002  09:24

 ;;8.0;MailMan;**2**;Jun 28, 2002

POST ; Post-init

 D DIALOG

DIALOG ; Delete DIALOG file entries.  KIDS fails to do this.

 N DIK,DA

 S DIK="^DI(.84,"

 F DA=34230,34231,34232,34237,34238 D ^DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMYPRE1   266     printed  Apr 09, 2024@21:15:22                                                                                                                                                                                                      Page 2

XMYPRE1   ;ISC-SF/GMB-Pre- & Post- Init ;08/22/2002  09:24

 +1       ;;8.0;MailMan;**2**;Jun 28, 2002

POST      ; Post-init

 +1        DO DIALOG

 +2        QUIT

DIALOG    ; Delete DIALOG file entries.  KIDS fails to do this.

 +1        NEW DIK,DA

 +2        SET DIK="^DI(.84,"

 +3        FOR DA=34230,34231,34232,34237,34238

               DO ^DIK

 +4        QUIT