410 ! & ! COMVAR - Common System Variables & ! & ! & ! M11.TSK.ACCT$ account containing the Mail-11 task file & ! M11.USER.ACCT$ account that the user is running from & ! M11.FUNC$ Smart Mailer function to be performed & ! U = update addresses & ! P = print addresses & ! D = display addresses & ! C = category definitions & ! S = sublist definitions & ! W = List Document file & ! M11.MAIL.FILE$ Mailing List File specification & ! M11.SUBLIST.NAME$ name of the sublist currently being used & ! M11.SUBLIST.CODE% code for the type of sublist being used & ! 0 = none & ! 1 = temporary definition & ! 2 = stored definition & ! 3 = all definitions & ! M11.LAST.LINE% the last line of the current sublist def. & ! M11.FIELD.WAS.CNVTD% flag to indicate if sublist def was converted & ! M11.USER.PRIV% logical flag to indicate if the user is priv & ! M11.MSG$ area reserved for current user message & ! M11.SORT.FIELD.SIZE% number of characters to be sorted & ! M11.SORT.CODE$ code for the first sort option selected. & ! (Equivalent to M11.SORT.CODE$(1%). Smart & ! Mailer V1.0 allowed only one sort key. This & ! variable is referenced in a number of modules.& ! M11.SORT.CODE$(3%) codes for sort options selected & ! M11.SORT.OPTIONS% the number of sort options selected. & ! FILL$ future location of multiple sort field codes & ! M11.PRESORT% flag to indicate if PRESORTing is necessary & ! M11.LIST.CODE$ Mailing list code & ! A = all & ! S = sublist & ! T = temporary sublist & ! M11.OUTPUT.FORM$ form of the list printout & ! S = short listing & ! F = full listing & ! L = label printing & ! M11.SORT.FILE$ filespec of the file containing the primary & ! ID and sort fields of records to be sorted & ! M11.SORTED.FILE$ filespec of the file containing the primary & ! ID's of the sorted data (and zip code if & ! PRESORT was requested). & ! M11.NEW.SUBLIST% flag to indicate if user wants a new sublist & ! M11.PRESORT.ANSWER% Response from M11PRE specifying the labels & ! to print, answer is as follows: & ! 1 = print all labels & ! 2 = print qualifying labels & ! 3 = print non-qualifying labels & ! M11.INDEX.FILE$ Index file name created by M11RE and later & ! opened by M11LAB to print from. & ! M11.EXIT.STATUS% Initialized to FALSE, but will be set to TRUE & ! by any subprogram which terminates with ^Z. & ! The Main Menu will then be re-displayed by & ! the main module (SMAIL). & ! M11.ALL.DONE% Flag to indicate a linefeed was typed at the & ! beginning of a field. & ! M11.PRT.BREAK.LAB$ Y/N flag to supress/enable printing of & ! break labels when presorting. & ! & ! & ! M11.PROG.LINE% M11SCR allows user to enter ^C at specific & ! lines in M11MOD and M11ADD. & ! & ! M11.UPDATE.CODE% Set to CNTRL.C% if user types ^C at specific & ! lines in M11MOD and M11ADD. & !-------------------------------------------------------------------- 610 & COMMON (COMVAR) & & M11.TSK.ACCT$ = 16% & ,M11.USER.ACCT$ = 16% & ,M11.FUNC$ = 2% & ,M11.MAIL.FILE$ = 30% & ,M11.SUBLIST.NAME$ = 10% & ,M11.SUBLIST.CODE% & ,M11.LAST.LINE% & ,M11.FIELD.WAS.CNVTD% & ,M11.USER.PRIV% & ,M11.MSG$ = 64% & ,M11.SORT.FIELD.SIZE% & ,M11.PRESORT% & ,M11.SORT.OPTIONS% & ,M11.SORT.CODE$(3%) = 3% & ,M11.SORT.CODE$ = 3% & ,FILL$ = 6% & ,M11.LIST.CODE$ = 1% & ,M11.OUTPUT.FORM$ = 1% & ,FILL$ = 3% & ,M11.SORT.FILE$ = 30% & ,M11.SORTED.FILE$ = 30% & ,M11.NEW.SUBLIST% & ,M11.PRESORT.ANSWER% & ,M11.INDEX.FILE$ = 30% & ,M11.EXIT.STATUS% & ,M11.ALL.DONE% & ,M11.PRT.BREAK.LAB$ = 1% & ,FILL$ = 1% & ,M11.PROG.LINE% & ,M11.UPDATE.CODE%