Conference iosg::all-in-1_v30

3476.0. "character added by cmtxl compile" by SHIPS::HERLIHY_J () Mon Nov 01 1993 11:15

    
    Has anyone found a solution for the problem whereby compiling the TXL 
    inserts an unwanted character in a boilerplate?

    Having checked through old notes and conferences, I've checked for 
    extraneous spaces and <TAB>s and there are none.  I've retyped the line 
    that has the problem.  Now I'm stuck!

    for code junkies - the script in question follows:  when this source is 
    compiled, an extra character gets added at the end of the line
    containing the symbol #WKTYPE. 

    Thanks, 
    Jane.

%
%             These symbols are loaded with data in CON$MERGE.SCP
%
 t2 /Courier sf
 51  mm 271 mm moveto (<#SCHNUM>) show
 131 mm 271 mm moveto (<OA$DATE_FULL>) show
 51  mm 266 mm moveto (<#PINNUM>) show
 51  mm 248 mm moveto (<#REQNAM>) show
 51  mm 243 mm moveto (<#REQLOC>) show
 150 mm 243 mm moveto (<#REQDAT>) show
 51  mm 238 mm moveto (<#REQTEL>) show
 51  mm 238 mm moveto (<#WRKCDE>) show
 51  mm 233 mm moveto (<#ADMNAM>) show
 51  mm 218 mm moveto (<CON_MAINT_ENT.COST_CENTRE[#CON_CODE]>) show
 51  mm 213 mm moveto (<#CONNM1>) show
 51  mm 208 mm moveto (<#CONNM2>) show
 51  mm 203 mm moveto (<#CONNM3>) show
 51  mm 198 mm moveto (<#CONNM4>) show
% 51  mm 193 mm moveto (<#CONNM5>) show
 51  mm 188 mm moveto (<#CONNAM>) show
 51  mm 170 mm moveto (<#WORKS1>) show
 51  mm 165 mm moveto (<#WORKS2>) show
 51  mm 160 mm moveto (<#WORKS3>) show
 51  mm 155 mm moveto (<#WORKS4>) show
 51  mm 150 mm moveto (<#WORKS5>) show
 51  mm 136 mm moveto (<#REQSDT>) show
 142 mm 136 mm moveto (<#REQCDT>) show
 51  mm 122 mm moveto (<#CUSNAM>) show
 51  mm 117 mm moveto (<#CUSAD1>) show
 130 mm 117 mm moveto (<#CUSAD2>) show
 51  mm 112 mm moveto (<#CUSAD3>) show
 130 mm 112 mm moveto (<#CUSAD4>) show
 51  mm 107 mm moveto (<#CUSAD5>) show
 51  mm 102 mm moveto (<#CUSCON>) show
 146 mm 102 mm moveto (<#CUSTEL>) show
 132 mm 94 mm moveto (<#WKTYPE>) show
 51  mm 89 mm moveto (<#AINFO1>) show
 51  mm 84 mm moveto (<#AINFO2>) show
<&OA .if #PARTN1 EQS "" THEN<->
GET OA$MERGE_LINE = " " ELSE<->
GET OA$MERGE_LINE = "17 mm 57 mm moveto (<#PART_NO1>) show"\<->
GET OA$MERGE_LINE = "54 mm 57 mm moveto (<#IDR_1>) show"\<->
GET OA$MERGE_LINE = "83 mm 57 mm moveto (<#NOD_1>) show"\<->
GET OA$MERGE_LINE = "106 mm 57 mm moveto (<#RDR_1>) show"\<->
GET OA$MERGE_LINE = "137 mm 57 mm moveto (<#RFP_1>) show"\<->
GET OA$MERGE_LINE = "174 mm 57 mm moveto (<#RTM_1>) show">
<&OA .if #PARTN2 EQS "" THEN<->
GET OA$MERGE_LINE = " " ELSE<->
GET OA$MERGE_LINE = "17 mm 52 mm moveto (<#PART_NO2>) show"\<->
GET OA$MERGE_LINE = "54 mm 52 mm moveto (<#IDR_2>) show"\<->
GET OA$MERGE_LINE = "83 mm 52 mm moveto (<#NOD_2>) show"\<->
GET OA$MERGE_LINE = "106 mm 52 mm moveto (<#RDR_2>) show"\<->
GET OA$MERGE_LINE = "137 mm 52 mm moveto (<#RFP_2>) show"\<->
GET OA$MERGE_LINE = "174 mm 52 mm moveto (<#RTM_2>) show">
<&OA .if #PARTN3 EQS "" THEN<->
GET OA$MERGE_LINE = " " ELSE<->
GET OA$MERGE_LINE = "17 mm 47 mm moveto (<#PART_NO3>) show"\<->
GET OA$MERGE_LINE = "54 mm 47 mm moveto (<#IDR_3>) show"\<->
GET OA$MERGE_LINE = "83 mm 47 mm moveto (<#NOD_3>) show"\<->
GET OA$MERGE_LINE = "106 mm 47 mm moveto (<#RDR_3>) show"\<->
GET OA$MERGE_LINE = "137 mm 47 mm moveto (<#RFP_3>) show"\<->
GET OA$MERGE_LINE = "174 mm 47 mm moveto (<#RTM_3>) show">
<&OA .if #PARTN4 EQS "" THEN<->
GET OA$MERGE_LINE = " " ELSE<->
GET OA$MERGE_LINE = "17 mm 42 mm moveto (<#PART_NO4>) show"\<->
GET OA$MERGE_LINE = "54 mm 42 mm moveto (<#IDR_4>) show"\<->
GET OA$MERGE_LINE = "83 mm 42 mm moveto (<#NOD_4>) show"\<->
GET OA$MERGE_LINE = "106 mm 42 mm moveto (<#RDR_4>) show"\<->
GET OA$MERGE_LINE = "137 mm 42 mm moveto (<#RFP_4>) show"\<->
GET OA$MERGE_LINE = "174 mm 42 mm moveto (<#RTM_4>) show">
<&OA .if #PARTN5 EQS "" THEN<->
GET OA$MERGE_LINE = " " ELSE<->
GET OA$MERGE_LINE = "17 mm 37 mm moveto (<#PART_NO5>) show"\<->
GET OA$MERGE_LINE = "54 mm 37 mm moveto (<#IDR_5>) show"\<->
GET OA$MERGE_LINE = "83 mm 37 mm moveto (<#NOD_5>) show"\<->
GET OA$MERGE_LINE = "106 mm 37 mm moveto (<#RDR_5>) show"\<->
GET OA$MERGE_LINE = "137 mm 37 mm moveto (<#RFP_5>) show"\<->
GET OA$MERGE_LINE = "174 mm 37 mm moveto (<#RTM_5>) show">

135 mm 30 mm moveto (<#TOTAL_RFP>) show
172 mm 30 mm moveto (<#TOTAL_RTM>) show

showpage

	I am getting exactly the same problem using ALL-IN-1 version 3.0

If you take out the "<&OA .if " parts, does the problem still occur?

I am always nervous about putting big blocks of code actually in the
boilerplate, and prefer to call scripts to do the work. This also has
the advantage that you can include comments and write in a much more
modular way.

mb