I'm currently doing paging within my own HTML and based on the total amount of records I need to divide the page display count, then add 1 if it's not MOD page display count = 0 like in .NET.

Example:
Total Count: 80
Page Display Count: 10

I need this page count value to be 8.

Total Count: 81
Page Display Count: 10

I need this page count value to be 9.

This code needs to only do the plus one if datatotal MOD pagesize NE 0 as it would in .NET

-SET &PAGECOUNT = (&DATATOTAL/&PAGESIZE);
-SET &PAGECOUNT = (&PAGECOUNT+1);

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

Try...

-SET &DATATOTAL = 81;
-SET &PAGESIZE = 10;

-SET &WORK = IMOD(&DATATOTAL, &PAGESIZE, 'I9');
-SET &WORK = IF &WORK EQ 0 THEN 0 ELSE 1;

-SET &PAGECOUNT = (&DATATOTAL/&PAGESIZE) + &WORK;

-TYPE DATATOTAL = &DATATOTAL
-TYPE PAGESIZE = &PAGESIZE
-TYPE PAGECOUNT = &PAGECOUNT  

Just one line of code needed ;-)


-SET &PAGECOUNT = INT ( ( &DATATOTAL + &PAGESIZE - 1 ) / &PAGESIZE );

I just wrote code last week to do what you're wanting to do - &URECS is the number of records in my hold file, I want 50 records per page. I create a variable '&REMAINDER' and check the value of &REMAINDER when creating my counter field - I then loop &TABCTR times creating a compound spreadsheet.

 

-SET &REMAINDER = IMOD(&URECS, 50, 'I3L');
-SET &TABCTR = IF &REMAINDER EQ 0 THEN (&URECS/50) ELSE ((&URECS/50) + 1);


Using your fields:
-SET &REMAINDER = IMOD(&DATATOTAL, 10, 'I3L');
-SET &PAGECOUNT = IF &REMAINDER EQ 0 THEN (&DATATOTAL/&PAGESIZE) ELSE ((&DATATOTAL/&PAGESIZE)+1);

&ECHO RESULTS WITH 80 RECORDS:
 -SET &DATATOTAL = 80;
 -SET &PAGESIZE = 10;
 -SET &REMAINDER = IMOD(80, 10, 'I3L');
 -SET &PAGECOUNT = IF 0 EQ 0 THEN (80/10) ELSE ((80/10)+1);
 -TYPE 0
 0
 -TYPE 8
 8
 -EXIT

&ECHO RESULTS WITH 81 RECORDS:
 -SET &DATATOTAL = 81;
 -SET &PAGESIZE = 10;
 -SET &REMAINDER = IMOD(81, 10, 'I3L');
 -SET &PAGECOUNT = IF 1 EQ 0 THEN (81/10) ELSE ((81/10)+1);
 -TYPE 1
 1
 -TYPE 9
 9
 -EXIT
 


 

quote:

-SET &WORK = IMOD(&DATATOTAL, &PAGESIZE, 'I9');
-SET &WORK = IF &WORK EQ 0 THEN 0 ELSE 1;

-SET &PAGECOUNT = (&DATATOTAL/&PAGESIZE) + &WORK;

Perfect! I couldn't find any MOD commands.. I think I have help file block syndrome.