MLMMERGE.EDT ·
EDT ·
8.3 KB ·
1988-03-25 ·
from WhatMicro_TAS_May-1988
001|MLMMERGE 02:35:40 PM 25/ 3/88 |
001|
001|This program writes the names and addresses to disk in|
001|quote-comma delimited mailmerge format which is supported|
001|by most word processing packages. This program is provided|
001|free of charge to existing TAS purchasers and is not supported.|
001|
057|1|25|
039|I|G|EXIT|
039|Q|G|EXIT|
046|TOTRECS|N|8|||
046|NETRECS|N|8|||
046|FIELD1|A|250|||
046|DC|A|1|||
046|DCDESC|A|3|||
046|TODAYSDATE|S|8|||
046|STARTCODE|A|10|||
046|STARTNAME|A|30|||
046|STARTDATE|S|8|||
046|ENDCODE|A|10|||
046|ENDNAME|A|30|||
046|ENDDATE|S|8|||
046|CTR|N|2|||
000|BEGIN|
064|TODAYSDATE|G|
003|MLNAMES||1||
039|L|D|
004|D|"NAMES.DTA"|FIELD1|250|
010|TOTRECS|MLNAMES|
011|NETRECS|MLNAMES|
045|MLPRTNAM|S|||
027|B|ML.STARTDATE|NO.NAMES|
031|"F1 - Help Esc - Exit"|1|25|N|Y|S||
000|ENTDC|
002|DC|"CD"|DC.HLP|ENTDC|Y|Y|N|||N|
018|DC|=|("")|R|
018|DC|=|("D")|D|
047|
005|DCDESC|("ate")|
021|STARTDATE|
048|
049|
047|
005|DCDESC|("ode")|
021|STARTCODE|
048|
000|STARTDATE|
005|STARTDATE|("01/01/88")|
002|STARTDATE||DATE.HLP||N|N|N|||N|
027|G|ML.STARTDATE|STARTDATE|
000|ENDDATE|
005|ENDDATE|(TODAYSDATE)|
002|ENDDATE||DATE.HLP||N|N|N|||N|
018|ENDDATE|<|(STARTDATE)|D|
047|
058|
031|"Ending date can not be earlier than the starting date - Please reenter "|1|24|Y|Y|S||
031|""|1|24|N|N|||
061|
048|
021|STARTWRITE|
000|STARTCODE|
002|STARTCODE||START.HLP|BEGIN|N|N|N|||N|
018|STARTCODE|=|("")|D|
047|
027|B|ML.CODE|STARTCODE|
048|
049|
047|
005|ML.CODE|(STARTCODE)|
027|G|ML.CODE|STARTCODE|
048|
005|STARTCODE|(ML.CODE)|
005|STARTNAME|(ML.NAME)|
005|STARTDATE|(0)|
000|ENDCODE|
002|ENDCODE||END.HLP||N|N|N|||N|
018|ENDCODE|=|("")|D|
047|
027|E|ML.CODE|ENDCODE|
048|
049|
047|
005|ML.CODE|(ENDCODE)|
027|G|ML.CODE|ENDCODE|
048|
005|ENDCODE|(ML.CODE)|
005|ENDNAME|(ML.NAME)|
000|STARTWRITE|
042|CTR|15|20|1|
047|
057|1|CTR|
048|
018|DC|=|("C")|G|BY-CODE|
000|BY-DATE|
005|ML.STARTDATE|(STARTDATE)|
027|G|ML.STARTDATE||
000|NEXTDATE|
022|WRITEREC|
027|N|MLNAMES|ENDOFFILE|
018|ML.STARTDATE|>|(ENDDATE)|G|ENDOFFILE|
021|NEXTDATE|
000|BY-CODE|
005|ML.CODE|(STARTCODE)|
027|G|ML.CODE|ENDOFFILE|
000|NEXTCODE|
022|WRITEREC|
027|N|MLNAMES|ENDOFFILE|
018|ML.CODE|>|(ENDCODE)|G|ENDOFFILE|
021|NEXTCODE|
000|ENDOFFILE|
057|1|24|
031|"Done - Press any key to continue ... "|1|24|Y|Y|S||
021|EXIT|
000|NO.NAMES|
057|1|24|
058|
058|
031|"There are no names in the Mailling List File - Press a Key"|1|24|Y|Y|S||
000|EXIT|
053|N|
040|"MLMENU"|
001|====================== HERE START THE SUBROUTINES ======================|
000|WRITEREC|
030||
030|ML.CONTACT1|
030|ML.JOBTITLE|
030|ML.NAME|
030|ML.ADD1|
030|ML.ADD2|
030|ML.TOWN|
030|ML.COUNTY|
030|ML.POSTCODE|
029|DISKFULL?|
050|
000|DISKFULL?|
058|
031|"Error writing mailmerge file - Perhaps the disk is full ? "|1|24|Y|Y|S||
057|1|24|
040|"mlmenu"|
001|
001|================== HERE START THE ON-LINE HELP LINES ==================|
000|DC.HLP|
067|1|
066|11|11|11|
088|2|
071|24|17|5|40|
031|"You can select names by date or code D selects Date, C selects Code. "|2|1|Y|Y|S||
068|1|
050|
000|DATE.HLP|
067|1|
066|11|11|11|
088|2|
071|24|17|5|40|
031|"All names have a startdate in the record. Entering a start and ending date allows you to write parts of the file only, usually the last few added"|2|1|Y|Y|S||
068|1|
050|
000|START.HLP|
067|1|
066|11|11|11|
088|2|
071|24|17|5|40|
031|"Enter the code from which you want the writing of names to start. Leaving it blank will default to the beginning of the file. "|2|1|Y|Y|S||
068|1|
050|
000|END.HLP|
067|1|
066|11|11|11|
088|2|
071|24|17|05|40|
031|" Enter the code of the last name you want to write to disk. Leaving it blank will default to the end of the file. "|1|1|Y|Y|S||
068|1|
050|
\SSMLPRTNAM
M?a?i?l?i?n?g? ?L?i?s?t? ?-? ?W?r?i?t?e? ?M?a?i?l? ?M?e?r?g?e? ?A?S?C?I?I? ?F?i?l?e? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[?M?L?M?M?E?R?G?E?-?V?1?2?]?════════════════
════════════════════════════════════════════════════════════════
Tot Recs: p p p p p p p p
Net Recs: p p p p p p p p Select Code or Date: p p p p ?(?D?/?C?)?
Enter Starting Date: p p p p p p p p
Ending Date: p p p p p p p p
Starting Code: p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p
Ending Code: p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p
Processing: p p p p p p p p p
p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p
p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p
p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p
p p p p p p p p p p p p p p p p p p p p
p p p p p p p p p p
════════════════════════════════════════════════
════════════════════════════════ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
\
TOTRECS 8 N 73 3
NETRECS 8 N 73 4
DC 1 A 24 5
DCDESC 3 A 25 5
STARTDATE 8 S 24 7
ENDDATE 8 S 24 9
STARTCODE 10 A 2411
STARTNAME 30 A 3511
ENDCODE 10 A 2413
ENDNAME 30 A 3513
ML.NAME 30 A 2415
ML.ADD1 30 A 2416
ML.ADD2 30 A 2417
ML.TOWN 30 A 2418
ML.COUNTY 20 A 2419
ML.POSTCODE 10 A 2420
\