This should be easy, but it isn't working. I apparently developed a brain cramp.

I thought I could just create a define field for the text, then concatenate the field to it and whala it would be done.

What this is, is to create these 3 lines for every fund code and its decription; such as PELL, PELL GRANT; STAFFORD, Stafford Loan, in the example.

It appears that the 'special characters' like <, $, =, ', " are causing problems. I've tried HEXBYT

I know the sample code isn't what I need but I am just trying to get over the hump. The first LINE3 define works, the next 2 do not. LINE3 prints out as blank, with no error messages.

All I want is a listing for every FUND code in this format, then we can copy and paste it into the xsl file

  
         <xsl:when test="$sCode='PELL'">
                               Pell Grant
               </xsl:when>
               <xsl:when test="$sCode='STAFFORD'">
                               Stafford Loan
               </xsl:when>

-* THIS IS WHAT I WANT AS OUPUT
-*              <xsl:when test="$sCode='PELL'">
-*                               Pell Grant
-*               </xsl:when>
-*
DEFINE FILE RFRBASE
DSIGN/A1  = HEXBYT(36, 'A1');
DQUOTE/A1 = HEXBYT(34, 'A1');
LTSIGN/A1 = HEXBYT(60, 'A1');
GTSIGN/A1 = HEXBYT(62, 'A1');
TXT1/A20 WITH RFRBASE_FUND_CODE = 'xslwhen test';
LINE3/A50 = LTSIGN || GTSIGN | RFRBASE_FUND_CODE || GTSIGN ;
-*LINE3/A50 = LTSIGN || TXT1 | RFRBASE_FUND_CODE || GTSIGN ;
-*LINE3/A50 = LTSIGN | /xsl:when | GTSIGN;
END
-*
TABLE FILE RFRBASE
PRINT RFRBASE_FUND_CODE NOPRINT
RFRBASE_FUND_TITLE
LINE3
WHERE RFRBASE_ACTIVE_IND EQ 'Y'
BY RFRBASE_FUND_CODE NOPRINT
IF RECORDLIMIT EQ 10
END

I foundout that an xsl file is an XML type file. So the section of an xsl file that I am trying to create is below. Maybe there is a way to generate it using WebFOCUS. I can create an XML output but that isn't exactly what I need becuse the FUND CODE, TITLE is in an choose clause.

[CODE]
<xsl:choose>
               <xsl:when test="$sCode='PELL'">
                               Pell Grant
               </xsl:when>
               <xsl:when test="$sCode='STAFFORD'">
                               Stafford Loan
               </xsl:when>
               <xsl:when test="$sCode='FULLTIME'">
                               Full Time
               </xsl:when>
               <xsl:otherwise>
                               <xsl:value-of select="$sCode" />
               </xsl:otherwise>
</xsl:choose>

  

[/code]

This message has been edited. Last edited by: Rick Man,

How about this....

TABLE FILE COURSE
SUM COMPUTE LSTCODE/I9 = CNT.COURSECODE ; NOPRINT
PRINT 
COMPUTE CNTR/I9     = LAST CNTR + 1 ; NOPRINT
COMPUTE STRTXSL/A15 = IF CNTR EQ 1 THEN '<xsl:choose>' ELSE ' ' ;
COMPUTE XSLWHEN/A80 = '<xsl:when test="$sCode=''' || COURSECODE || '''">' || CTITLE || '</xsl:when>' ;
COMPUTE XSLELSE/A76 = IF LSTCODE EQ CNTR THEN '<xsl:otherwise><xsl:value-of select="$sCode" /></xsl:otherwise></xsl:choose>' ELSE ' ' ;
BY COURSECODE NOPRINT

WHERE RECORDLIMIT EQ 3

ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SAVE AS TESTXSL

END

-RUN

! type testxsl.ftm

WOW that's awesome. Thank you very much.
For my edification, the main issue was just the correct number of single quotes, right?
Nice technique to remember to only put out that first 'choose' tag.

If you need the xsl formatted the same as your example, then this can be done as well, with PUTDDREC.

Thanks Waz