I want to print all numbers from 1 till the number I have entered through HTML.
I don't want to use SQL at all. No database. It should be pure WebFOCUS

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

Dialog Manager? I'd start with the code below. It will prompt for &END

-SET &START = 1;
-LOOP001
-TYPE &START
-SET &START = &START + 1;
-IF &START LE &END GOTO LOOP001;

Well, Brian gave you the answer, but it's just a list on the screen - no records, no tables, etc. His solution gives you EXACTLY what you asked for, but there's not much you can do with it after that.

Thought I might mention that WebFOCUS IS a database reporting tool. If you're not reading any data, WF is an expensive tool to accomplish your task. In fact, you could simply accomplish your task with Javascript and wouldn't even need the additional communication to a WF server. Is there a specific reason you need WF to do this?

Hi Darin,
This is question i was about to ask.I want the data in tabular form i.e, it should retrieve the value from a file and print it.The code given above just use TYPE command to display the result.
Is there any way to keep the data in some hold file and then display it from there?Similarly,I want to display the series of fibonacci series and prime numbers.
Please suggest.

In the DM code above, instead of -TYPEing the number, -WRITE it into a file instead. Then write a master file description to describe it, filedef them together, and then you can use TABLE to do a report.

WF won't produce anything in tabular form unless it is reading it from some sort of database. If you want to "keep the data in some hold file and then display it from there," you're using a database - which you said you did not want. So you'll have to decide whether that is OK. If it is, then you'll get there quicker (and less IO) by reading the first n records of some table and printing out the line number.
TABLE FILE CAR
LIST MODEL NOPRINT
END

This still could be accomplished with Javascript or even Excel for that matter. Is there a reason for WF to be in the mix?

Shankar, you need the Macgyver techique, the traditional one.

Try this, it has a maximum of 4096.

-DEFAULT &FSEQ_CNT = 100 ;

-* Write out a master to read the C_FSEQ
EX -LINES 9 EDAPUT MASTER,C_FSEQ,CV,FILE
  FILE=C_FSEQ, SUFFIX=FIX
SEGNAME=SEG1
FIELD=Blank , , A1, A1, $
SEGNAME=SEG2, PARENT=SEG1, OCCURS=&FSEQ_CNT
FIELD=WHATEVER, , A1, A1, $
FIELD=Counter, ORDER, I4,  I4, $
DEFINE BLANK/A1   WITH Blank   = ' ' ;
DEFINE COUNTER/I4 WITH Counter = LAST COUNTER + 1 ;

-RUN

FILEDEF C_FSEQ DISK c_fseq.mas (LRECL &FSEQ_CNT

-RUN
TABLE   FILE C_FSEQ
 PRINT  COUNTER
 BY     BLANK

 WHERE  RECORDLIMIT EQ &FSEQ_CNT

-* ON     TABLE HOLD AS FSEQ FORMAT FOCUS INDEX BLANK

END

-RUN

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

You not not need a database or anyother source to produce tabular output in WebFOCUS

In pure DM/HTML

 
-SET &END =133;
-SET &CNTR=0;
-HTMLFORM BEGIN
<TABLE>
<TR><TD>Number</TD><TD>Fibonacci</TD><TD>Prime</TD</TR>
-SET &START = 0;
-SET &LASTSTART = 0;
-REPEAT ENDREPEAT &END TIMES
-SET &START = &START + 1;
-SET &FIB=&LASTSTART+&START;
-SET &PRIME= IF &START IN (2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 
-                          61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 
-                          131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 
-                          197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271)
-            THEN '*' ELSE ' ';
<TR><TD>!IBI.AMP.START;</TD><TD>!IBI.AMP.FIB;</TD><TD>!IBI.AMP.PRIME;</TD></TR>
-SET &LASTSTART= &START;
-ENDREPEAT
</TABLE>
-HTMLFORM END
 

Obviously if you are allowing people to enter larger numbers then you will need to extend
the prime test or find an algorithm to calculate them; I’m not going to do that.

I got my answer.Thanks to all.