![\"SAP\"](\"http:\/\/oprsteny.cz\/wp-content\/uploads\/SAP.jpg\")
Once I needed to have several lists in MAIN window output and each of these lists needed to have different column headers. As\u00a0usually, there are several ways how to achieve this and I’ll try to present two possible ways:<\/p>\nOnce I needed to have several lists in MAIN window output and each of these lists needed to have different column headers. As\u00a0usually, there are several ways how to achieve this and I’ll try to present two possible ways:<\/p>\n
<\/a><\/p>\n Window of type VAR is printed on each page of SAPScript so you can use the code inside to determine which list is currently on output and\u00a0print the headers\u00a0according to it. Let’s imagine you have 3 types of lists:<\/p>\n Because it’s not possible to pass variables between windows directly, you need to use a program where your global data will be stored during program runtime. The code above is now complete for the header window (type VAR). Now we need to prepare the MAIN window:<\/p>\n In the code above you can see there\u00a7s always a definition of list type (1, 2, or 3) followed by the list contents itself ended by a NEW-PAGE command (after list 1 and two) so the start of the subsequent list is on separate page and the headers are printed correctly.<\/p>\n Now we have to code the program <XYZ> that will manage the “set” and “get” actions for list type:<\/p>\n <\/a><\/p>\n This approach is a bit simpler and can be used\u00a0without external program because everything is maintained within the MAIN window.<\/p>\n For printing the list headers we will use the TOP section of the MAIN window (TOP section is triggered on each page)<\/p>\n Before the TOP section is reached, we need to set the LIST_TYPE variable and fill it with initial value so the header is printed correctly on first page. In our scenario the TOP section can be like the following:<\/p>\n The following code in MAIN window will handle the rest of printing the data:<\/p>\n Once I needed to have several lists in MAIN window output and each of these lists needed to have different column headers. As\u00a0usually, there are several ways how to achieve this and I’ll try to present two possible ways: Using … Continue reading Using header window of type VAR<\/h1>\n
\n
\/: CASE &LIST_TYPE&\r\n\/: WHEN '1'\r\n* Material,,UOM,,Quantity,,Price\r\n\/: WHEN '2'\r\n* Aprover,,Signed,,Date,,Time\r\n\/: WHEN '3'\r\n* Change date,,Version,,Description\r\n\/: ENDCASE<\/pre>\n
\nYou can call this program to set or get the variables.
\nIn the VAR window you need to read data to get current list type. So we need to modify the code above a bit:<\/p>\n\/: DEFINE &LIST_TYPE& = ''\r\n\/: PERFORM GET_LIST_TYPE IN PROGRAM <XYZ> \r\n\/: CHANGING &LIST_TYPE&\r\n\/: END PERFORM\r\n\/*\r\n* &ULINE(70)&\r\n\/: CASE &LIST_TYPE&\r\n\/: WHEN '1'\r\n* Material,,UOM,,Quantity,,Price\r\n\/: WHEN '2'\r\n* Aprover,,Signed,,Date,,Time\r\n\/: WHEN '3'\r\n* Change date,,Version,,Description\r\n\/: ENDCASE\r\n* &ULINE(70)&<\/pre>\n
\/* Set list type = 1\r\n\/: DEFINE &LIST_TYPE& = '1'\r\n\/: PERFORM SET_LIST_TYPE IN PROGRAM <XYZ> \r\n\/: USING &LIST_TYPE&\r\n\/: END PERFORM\r\n\/* ...\r\n\/* Printing the list of materials\r\n\/* ...<\/pre>\n
\/* Set list type = 2 \r\n\/: DEFINE &LIST_TYPE& = '2' \r\n\/: PERFORM SET_LIST_TYPE IN PROGRAM <XYZ> \r\n\/: USING &LIST_TYPE& \r\n\/: END PERFORM\r\n\/* The following NEW-PAGE command is important: \r\n\/* a forced pagebreak and new column headers for list of type 2\r\n\/* are printed in header window\r\n\/: NEW-PAGE\r\n\/* ... \r\n\/* Printing list of approvers\r\n\/* ...<\/pre>\n
\/* Set list type = 3\r\n\/: DEFINE &LIST_TYPE& = '3'\r\n\/: PERFORM SET_LIST_TYPE IN PROGRAM <XYZ>\r\n\/: USING &LIST_TYPE&\r\n\/: END PERFORM\r\n\/: NEW-PAGE\r\n\/* ...\r\n\/* Printing change log\r\n\/* ...<\/pre>\n
* Declare global variable for list_type\r\nDATA: g_list_type type i.\r\n\r\nFORM get_list_type tab_in STRUCTURE itcsy\r\n tab_out STRUCTURE itcsy.\r\n\r\n FIELD-SYMBOLS: <fs_out> type any.\r\n\r\n READ TABLE tab_out ASSIGNING <fs_out> INDEX 1.\r\n IF sy-subrc = 0.\r\n <fs_out>-value = g_list_type.\r\n ENDIF.\r\nENDFORM.\r\n\r\nFORM set_list_type tab_in STRUCTURE itcsy\r\n tab_out STRUCTURE itcsy.\r\n\r\n FIELD-SYMBOLS: <fs_in> type any.\r\n\r\n READ TABLE tab_in ASSIGNING <fs_in> INDEX 1.\r\n IF sy-subrc = 0.\r\n CHECK <fs_in>-value = 1 \r\n OR <fs_in>-value = 2\r\n OR <fs_in>-value = 3.\r\n\r\n g_list_type = <fs_in>-value.\r\n ENDIF.\r\nENDFORM.<\/pre>\n
\u00a0Using a TOP section in MAIN window<\/h1>\n
\/: TOP\r\n\/* commands\r\n\/: ENDTOP<\/pre>\n
\/: DEFINE &LIST_TYPE& = '1'\r\n\/*\r\n\/: TOP\r\n* &ULINE(70)&\r\n\/: CASE &LIST_TYPE&\r\n\/: WHEN '1'\r\n* Material,,UOM,,Quantity,,Price\r\n\/: WHEN '2'\r\n* Aprover,,Signed,,Date,,Time\r\n\/: WHEN '3'\r\n* Change date,,Version,,Description\r\n\/: ENDCASE\r\n* &ULINE(70)&\r\n\/: ENDTOP<\/pre>\n
\/* ...\r\n\/* printing the first list type data\r\n\/* ...\r\n\/*\r\n\/: DEFINE &LIST_TYPE& = '2'\r\n\/: NEW-PAGE\r\n\/* ...\r\n\/* printing the second list type data\r\n\/* ...\r\n\/*\r\n\/: DEFINE &LIST_TYPE& = '3'\r\n\/: NEW-PAGE\r\n\/* ...\r\n\/* printing the third list type data\r\n\/* ...<\/pre>\n","protected":false},"excerpt":{"rendered":"