D************************************************************* D* dtw_table_XXX - Net.Data Language Environment (LE) D* procedure prototypes D* D* Used to allow access to / modification of a Net.Data D* table variable in an RPGLE program. D* D* Bind program to *SRVPGM QHTTPSVR/QTMJLE. D************************************************************* D* Copyright (c) 2001, Craig Pelkie D* ALL RIGHTS RESERVED D* craig@web400.com D************************************************************* D************************************************************* D* dtw_table_AppendRow - add one or more rows to end of table D************************************************************* Ddtw_table_AppendRow... D pr 10I 0 extproc('dtw_table_AppendRow') D table * D rows 10I 0 value D************************************************************* D* dtw_table_Cols - return current number of columns in table D************************************************************* Ddtw_table_Cols... D pr 10I 0 extproc('dtw_table_Cols') D table * D************************************************************* D* dtw_table_Delete - delete the table D************************************************************* Ddtw_table_Delete... D pr 10I 0 extproc('dtw_table_Delete') D table * D************************************************************* D* dtw_table_DeleteCol - delete one or more columns beginning D* at column specified in start_col D************************************************************* Ddtw_table_DeleteCol... D pr 10I 0 extproc('dtw_table_DeleteCol') D table * D start_col 10I 0 value D rows 10I 0 value D************************************************************* D* dtw_table_DeleteRow - delete one or more rows beginning D* at row specified in start_row D************************************************************* Ddtw_table_DeleteRow... D pr 10I 0 extproc('dtw_table_DeleteRow') D table * D start_row 10I 0 value D rows 10I 0 value D************************************************************* D* dtw_table_GetN - retrieve a column heading D************************************************************* Ddtw_table_GetN... D pr 10I 0 extproc('dtw_table_GetV') D table * D dest * value options(*string) D col 10I 0 value D************************************************************* D* dtw_table_GetV - retrieve a value from a table D************************************************************* Ddtw_table_GetV... D pr 10I 0 extproc('dtw_table_GetV') D table * D dest * value options(*string) D row 10I 0 value D col 10I 0 value D************************************************************* D* dtw_table_InsertCol - insert one or more columns after D* specified column D************************************************************* Ddtw_table_InsertCol... D pr 10I 0 extproc('dtw_table_InsertCol') D table * D after_col 10I 0 value D cols 10I 0 value D************************************************************* D* dtw_table_InsertRow - insert one or more rows after D* specified row D************************************************************* Ddtw_table_InsertRow... D pr 10I 0 extproc('dtw_table_InsertRow') D table * D after_row 10I 0 value D rows 10I 0 value D************************************************************* D* dtw_table_MaxRows - return maximum number of rows allowed D************************************************************* Ddtw_table_MaxRows... D pr 10I 0 extproc('dtw_table_MaxRows') D table * D************************************************************* D* dtw_table_New - create a new Net.Data table D************************************************************* Ddtw_table_New... D pr 10I 0 extproc('dtw_table_New') D table * D rows 10I 0 value D cols 10I 0 value D row_lim 10I 0 value D************************************************************* D* dtw_table_QueryColnoNj - return column number associated D* with a column heading D************************************************************* Ddtw_table_QueryColnoNj... D pr 10I 0 extproc('dtw_table_QueryColnoNj') D table * D name * value options(*string) D************************************************************* D* dtw_table_Rows - return current number of rows in the table D************************************************************* Ddtw_table_Rows... D pr 10I 0 extproc('dtw_table_Rows') D table * D************************************************************* D* dtw_table_SetCols - set number of columns for a table D************************************************************* Ddtw_table_SetCols... D pr 10I 0 extproc('dtw_table_SetCols') D table * D cols 10I 0 value D************************************************************* D* dtw_table_SetN - assign a name to a column heading D************************************************************* Ddtw_table_SetN... D pr 10I 0 extproc('dtw_table_SetN') D table * D src * value options(*string) D col 10I 0 value D************************************************************* D* dtw_table_SetV - assign a value in a table D************************************************************* Ddtw_table_SetV... D pr 10I 0 extproc('dtw_table_SetV') D table * D src * value options(*string) D row 10I 0 value D col 10I 0 value D************************************************************* D* Data used as parameters to Net.Data functions D************************************************************* D after_col s 10I 0 D after_row s 10I 0 D col s 10I 0 D cols s 10I 0 D dest s * D name s * D rc s 10I 0 D row s 10I 0 D rows s 10I 0 D row_lim s 10I 0 D src s * D start_col s 10I 0 D start_row s 10I 0 D table s *