Hi,

I put a field within a heading line, but there are spaces in between the text and field. How can I remove the space? Also I change the a field format from I11 to A11, how can I remove leading zero from the A11 field

Here is my code:

  DEFINE FILE NEWREPORTREQUEST
NAME/A401 = REQFIRSTNAME || (' ' |REQLASTNAME);
DATEREQ/YYMD = HDATE(DATEREQUESTED, 'YYMD');
REPORTTITLE2/A202 = '"'|REPORTTITLE||'"';
REPORTID/A11 = EDIT(REPORTREQUESTID);
END
TABLE FILE NEWREPORTREQUEST
HEADING
"Your reference # is <REPORTID for your <REPORTTITLE2 request. "
PRINT
REPORTREQUESTID NOPRINT

BY HIGHEST 1 REPORTREQUESTID NOPRINT

ON TABLE SET HTMLCSS ON

ON TABLE SET STYLE *
TYPE=REPORT,      GRID=OFF, SQUEEZE=ON, FONT='ARIAL', SIZE=9, $
TYPE=HEADING,     HEADALIGN=INTERNAL, $
TYPE=HEADING,     ITEM=1,  $
TYPE=HEADING,     LINE=1, COLSPAN=2, $
TYPE=HEADING,     LINE=5, ITEM=2,  COLOR=BLUE, $
TYPE=HEADING,     LINE=5, ITEM=4,  COLOR=BLUE, $
TYPE=TITLE,       STYLE=BOLD, $
TYPE=GRANDTOTAL,  STYLE=BOLD, $
ENDSTYLE
END
-RUN


Here is my result;

Your reference # is                 0000001618  for your  "test space 16" request.  

Thanks

This message has been edited. Last edited by: Kerry,

May,

EDIT your 1st post, the folder at the bottom right, and place your code between the RED tags, upper right on the toolbar...

Then, Delete your 2nd post...

Thanks Tom.

May,

Comment these out:

quote:

TYPE=HEADING, HEADALIGN=INTERNAL, $
TYPE=HEADING, ITEM=1, $
TYPE=HEADING, LINE=1, COLSPAN=2, $

then, see if this works for you:

 
APP PREPENDPATH IBISAMP
-RUN
DEFINE FILE SHORT
  REPORTID1/I11 = 1618;
  REPORTID2/A11 = PTOA(REPORTID1,'(P11)','A11');
  REPORTTITLE2/A200 = '"test space 16"';
END

TABLE FILE SHORT
HEADING CENTER
"Your reference # is <REPORTID2 for your <REPORTTITLE2 request. "
" " 
PRINT 
   PROJECTED_RETURN
   REPORTID1
   REPORTID2
BY CONTINENT
BY REGION
BY COUNTRY
BY HOLDER
BY TYPE
ON TABLE SET PAGE-NUM OFF
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=9,
STYLE=NORMAL,
$
ENDSTYLE
END


-EXIT

Tom,

Take your advice and the program is working now.

Thanks

quote:

PTOA

Thanks Tom. It helps me in many cases.

-Ram