TABLE FILE EMPDATA PRINT LASTNAME FIRSTNAME DEPT SALARY HIREDATE DIV WHERE RECORDLIMIT EQ 20 WHERE DIV EQ 'WE' ON TABLE NOTOTAL ON TABLE HOLD AS TABLA1 FORMAT AHTML ON TABLE SET BLANKINDENT ON END -RUN -HTMLFORM BEGIN <html> <head> <body leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0" bgcolor="F3F3F3"> <table border="2" align="center"> <tr> <td width="100%"> !IBI.FIL.TABLA1; </td> </tr> </table> </body> </html> -HTMLFORM END
TABLE FILE EMPDATA PRINT LASTNAME FIRSTNAME DEPT SALARY HIREDATE DIV WHERE RECORDLIMIT EQ 20 WHERE DIV EQ 'WE' ON TABLE NOTOTAL ON TABLE HOLD AS TABLA1 FORMAT AHTML ON TABLE SET BLANKINDENT ON END TABLE FILE EMPDATA PRINT LASTNAME FIRSTNAME DEPT SALARY HIREDATE DIV WHERE RECORDLIMIT EQ 20 WHERE DIV EQ 'CORP' ON TABLE NOTOTAL ON TABLE HOLD AS TABLA2 FORMAT AHTML ON TABLE SET BLANKINDENT ON END -RUN -HTMLFORM BEGIN <html> <head> <body leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0" bgcolor="F3F3F3"> <table border="2" align="center"> <tr> <td width="50%"> !IBI.FIL.TABLA1; </td> <td width="50%"> !IBI.FIL.TABLA2; </td> </tr> </table> </body> </html> -HTMLFORM END
In Focus since 1979///7706m/5 ;wintel 2008/64;OAM security; Oracle db, ///MRE/BID |