Frank | |
prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |
Prod: | WebFOCUS 7.6.10/8.1.04 | Upgrade: | WebFOCUS 8.2.07 | OS: | Linux | Outputs: | HTML, PDF, Excel, PPT |
In Focus since 1984 | |||||||
Pity the lost knowledge of an old programmer! |
quote:Begin End Count
5690065 5690067 3
5690460 5690462 3
5692960 5692967 8
TABLE FILE LIST_TABLE PRINT COMPUTE COUNT2/I6=COUNT1; COMPUTE BEGIN2/I9=BEGIN1; COMPUTE END2/I9=END1; COMPUTE CNTR/I5=LAST CNTR+1 ; ON TABLE HOLD AS RECCNT END -SET &REC_CNT =&LINES; -SET &V1=0; -REPEAT LOOP &REC_CNT TIMES -SET &V1=&V1+1; TABLE FILE RECCNT PRINT COUNT2 WHERE CNTR EQ '&V1'; ON TABLE SAVE AS HLDFNL END -RUN -READ HLDFNL &CNT.I6 -TYPE &CNT TABLE FILE RECCNT PRINT COUNT2 BEGIN2 END2 WHERE CNTR EQ '&V1'; ON TABLE HOLD AS LISTREC END -SET &CNT=IF &V1 EQ 1 THEN &CNT-1 ELSE &CNT; -SET &V2=&V1-1; -IF &V1 GT 1 THEN GOTO TAG1 ELSE GOTO TAG2; -TAG2 TABLE FILE LISTREC -GOTO CNTN; -TAG1 TABLE FILE LISTREC&V2 -CNTN PRINT * ON TABLE HOLD AS LISTREC&V1 -REPEAT LOOP1 &CNT TIMES MORE FILE LISTREC -LOOP1 END -RUN -IF &V1 EQ &REC_CNT THEN GOTO BREAK; -LOOP -BREAK TABLE FILE LISTREC&V1 PRINT * COMPUTE TSTCNT/I5 = IF TSTCNT LT COUNT2 AND BEGIN2 EQ LAST BEGIN2 AND END2 EQ LAST END2 THEN LAST TSTCNT+1 ELSE 1; COMPUTE FINALLST/I9= IF TSTCNT EQ 1 AND TSTCNT LE COUNT2 THEN BEGIN2 ELSE IF TSTCNT NE 1 AND TSTCNT LE COUNT2 THEN LAST FINALLST+1 ELSE BEGIN2; ON TABLE HOLD AS FNLTABLE END TABLE FILE FNLTABLE PRINT FINALLST END
-SET HOLDLIST=PRINTONLY FILEDEF MASTER DISK LIST_TABLE.mas -RUN -WRITE MASTER FILENAME=LIST_TABLE, SUFFIX=FIX, $ -WRITE MASTER SEGNAME=LIST_TABLE, $ -WRITE MASTER FIELDNAME=BEGIN, FORMAT=I7, ACTUAL=A7, $ -WRITE MASTER FIELDNAME=FILLER, FORMAT=A1, ACTUAL=A1, $ -WRITE MASTER FIELDNAME=EIND, FORMAT=I7, ACTUAL=A7, $ FILEDEF LIST_TABLE DISK LIST_TABLE.txt -RUN -WRITE LIST_TABLE 5690065 5690067 -WRITE LIST_TABLE 5690460 5690462 -WRITE LIST_TABLE 5692960 5692967 TABLE FILE LIST_TABLE PRINT BEGIN EIND ON TABLE HOLD AS RECCNT FORMAT ALPHA END ? HOLD RECCNT -SET &REC_CNT =&LINES; -REPEAT LOOP1 &REC_CNT TIMES -READ RECCNT &START.A7 &EIND.A7 -SET &ROW_CNT=&EIND-&START+1; -SET &V1=0; -REPEAT LOOP2 &ROW_CNT TIMES -SET &START=&START+1; -TYPE &START -LOOP2 -LOOP1
Frank | |
prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |