I would like to create a report of numbers starting at -100, incrementing by 10 until 100. It should be easy, but I can't figure out how to set the starting number - this example starts at zero, I'd like to start at -100:

SET HOLDLIST=PRINTONLY

-*DEFINE FILE GGORDER
-*SLIDERVAL/I6 = -100;
-*END

TABLE FILE GGORDER
PRINT
ORDER_NUMBER NOPRINT
COMPUTE SLIDERVAL/I6 = SLIDERVAL + 10;

WHERE RECORDLIMIT EQ 100

-*ON TABLE PCHOLD FORMAT XML
END
-RUN

This message has been edited. Last edited by: Francis Mariani,

Just a minor change:

TABLE FILE GGORDER
PRINT
ORDER_NUMBER NOPRINT
COMPUTE ROWCNT/I6 = ROWCNT + 1;
COMPUTE SLIDERVAL/I6 = IF ROWCNT = 1 THEN -100 ELSE SLIDERVAL + 10;

WHERE TOTAL SLIDERVAL LE 100

-*ON TABLE PCHOLD FORMAT XML
END
-RUN
  

Doh!

Thanks very much Robert!

This perhaps?

DEFINE FILE GGORDER
SLIDERVAL/I6 MISSING ON = IF SLIDERVAL IS MISSING THEN -100 ELSE SLIDERVAL + 10;
END
TABLE FILE GGORDER
PRINT
        ORDER_NUMBER NOPRINT
        SLIDERVAL
WHERE SLIDERVAL LE 100
-*ON TABLE PCHOLD FORMAT XML
END

Yes, too.

FYI

quote:

IF ROWCNT = 1 THEN

Good programming practice.

Use EQ in the IF THEN ELSE, not =.