MLPRTLAB.EDT ·
EDT ·
9.3 KB ·
1988-03-25 ·
from WhatMicro_TAS_May-1988
001|MLPRTLAB 01:57:54 PM 25/ 3/88 |
001|
001|This program prints the names and addresses on labels.|
001|This is an unsupported TAS program and is provided|
001|free of charge to existing TAS purchasers.|
001|
057|1|25|
039|I|G|EXIT|
039|Q|G|EXIT|
046|TOTRECS|N|8|||
046|NETRECS|N|8|||
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|LABELCTR|N|6|||
046|CTR|N|2|||
046|NAMELINE|A|30||8|
046|LABELLINE|A|30||8|
046|NCTR|N|2|||
046|LCTR|N|2|||
000|BEGIN|
064|TODAYSDATE|G|
003|MLNAMES||1||
010|TOTRECS|MLNAMES|
011|NETRECS|MLNAMES|
045|MLPRTLAB|S|||
027|B|ML.STARTDATE|NO.NAMES|
031|"F1 - Help Esc - Exit"|1|25|N|Y|S||
000|ENTCD|
002|DC|"CD"|DC.HLP|ENTCD|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|MOUNTRPT|
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|MOUNTRPT|
042|CTR|15|20|1|
047|
057|1|CTR|
048|
033|80|66|66|
045|LABELS|R|A|
018|DC|=|("C")|G|BY-CODE|
000|BY-DATE|
005|ML.STARTDATE|(STARTDATE)|
027|G|ML.STARTDATE||
000|NEXTDATE|
022|PRTLABEL|
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|PRTLABEL|
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|
040|"MLMENU"|
001|====================== HERE START THE SUBROUTINES ======================|
000|PRTLABEL|
022|BLDLINES|
042|CTR|1|8|1|
047|
032|CTR|||N|N|D|
048|
035|4|
005|LABELCTR|(LABELCTR + 1)|
050|
000|BLDLINES|
001|FIRST WE CLEAR THE ACTUAL LINES THAT WILL BE PRINTED ON THE LABEL|
042|LCTR|1|8|1|
047|
005|LABELLINE[LCTR]|("")|
048|
001|NOW WE MOVE THE NAME AND ADDRESS LINES IN AN ARRAY FOR 8 LINES|
018|ML.CONTACT1|=|("")|D|
047|
005|NAMELINE[1]|("The Managing Director")|
048|
049|
047|
005|NAMELINE[1]|(ML.CONTACT1)|
048|
005|NAMELINE[2]|(ML.JOBTITLE)|
005|NAMELINE[3]|(ML.NAME)|
005|NAMELINE[4]|(ML.ADD1)|
005|NAMELINE[5]|(ML.ADD2)|
005|NAMELINE[6]|(ML.TOWN)|
005|NAMELINE[7]|(ML.COUNTY)|
005|NAMELINE[8]|(ML.POSTCODE)|
001|HERE WE SKIP THE BLANK NAME AND ADDRESS LINES|
005|NCTR|(1)|
005|LCTR|(1)|
000|BLDLABEL|
018|NAMELINE[NCTR]|<>|("")|D|
047|
005|LABELLINE[LCTR]|(NAMELINE[NCTR])|
005|LCTR|(LCTR+1)|
048|
005|NCTR|(NCTR+1)|
018|NCTR|<|(9)|G|BLDLABEL|
050|
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 print 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 printing of labels 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 have printed on a label. Leaving it blank will default to the end of the file. "|1|1|Y|Y|S||
068|1|
050|
\SSMLPRTLAB
M?a?i?l?i?n?g? ?L?i?s?t? ?-? ?P?r?i?n?t? ?L?a?b?e?l?s? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?[?M?L?P?R?T?L?A?B?-?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
\
\R LABELS
&
&
&
&
&
&
&
&
\
LABELLINE 1 30 A 11 1
LABELLINE 2 30 A 11 2
LABELLINE 3 30 A 11 3
LABELLINE 4 30 A 11 4
LABELLINE 5 30 A 11 5
LABELLINE 6 30 A 11 6
LABELLINE 7 30 A 11 7
LABELLINE 8 30 A 11 8
\