出现此错误是因为在此代码之前未正确定义结构。

选择rsnum matnr bdmng意味着将bster从resb插入到表itab1中，其中rsnum保留在表中。
ifab1 [ ]不是初始值。
从makt中向表itab2中选择matnr maktg，用于itab1中的所有条目，其中matnr = itab1-matnr。
在itab1辅助字段符号（）处循环。
读取表itab2 如果关键字sy-subrc eq 0，则将其插入wa_itab2。如果sy-subrc eq0。
-maktg = wa_itab2-maktg。
*从wa_itab1传输maktg修改itab1。 少一个语句:)
endif。
endloop。
endif。

*＆------------------ -------------------------------------------------- -*
*＆报告ZRM123
*＆------------------------------------ --------------------------------- *
*＆
*＆------ -------------------------------------------------- ------------- *
报告ZRM123。
表：ZRM_TEST。
类型从TY_FINAL开始。
包括类型ZMM_MIC。
类型：MRN_NO（6 ）C类型。

类型：RESULT_1（40）C类型，
RESULT_2（40）C类型，
RESULT_3（40）C类型，
RESULT_4（40）C类型，< br> CHK类型C，
TY_FINAL结尾。

数据：IT_FINAL类型ztt_rmtest。
数据：WA_FINAL，如LINE of it_final。
数据：IT_FCAT类型SLIS_T_FIELDCAT_ALV，
WA_FCAT类型 IT_FCAT行。
DATA：itprintparams类型slis_print_alv。
数据：WA_LAYOUT类型SLIS_LAYOUT_ALV。
参数条形码（15）C类型。
数据：V_RMCODE类型MATNR，
V_MRNCODE（6）类型 C.


选择开始。
条形码在'-'处进入V_RMCO DE V_MRNCODE。
呼叫功能'CONVERSION_EXIT_MATN1_INPUT'
出口
输入= V_RMCODE
进口
输出= V_RMCODE
例外情况
LENGTH_ERROR = 1
其他=2。
> IF SY-SUBRC <> 0.
*在此处实现适当的错误处理
ENDIF。


SELECT MANDT MATNR MAKTX TEST_PARAM规格TEST_METHOD
从ZMM_MIC到表IT_FINAL中，MATNR = V_RMCODE。
选择结束。

循环到IT_FINAL进入WA_FINAL。
WA_FINAL-MRN_NO = V_MRNCODE。
SHIFT WA_FINAL-MATNR左删除领先'0'。
修改 从WA_FINAL索引SY-TABIX中获取IT_FINAL。

如果SY-TABIX> 1.
清除：WA_FINAL-MATNR，WA_FINAL-MAKTX。
从WA_FINAL INDEX SY-TABIX中修改IT_FINAL。
ENDIF 。
ENDLOOP。

WA_FCAT-FIELDNAME ='MATNR'。
WA_FCAT-SELTEXT_M ='RM代码'。
将WA_FCAT附加到IT_FCAT。
清除WA_FCAT。
< br> WA_FCAT-FIELDNAME ='MAKTX'。
WA_FCAT-SELTEXT_M ='RM Desc。'。
将WA_FCAT附加到IT_FCAT。
清除WA_FCAT。

WA_ FCAT-FIELDNAME ='TEST_PARAM'。
WA_FCAT-SELTEXT_L ='测试参数'。
将WA_FCAT附加到IT_FCAT。
清除WA_FCAT。

WA_FCAT-FIELDNAME ='SPECIFICATION'。
WA_FCAT-SELTEXT_L ='规范'。
将WA_FCAT追加到IT_FCAT。
清除WA_FCAT。

WA_FCAT-FIELDNAME ='TEST_METHOD'。
WA_FCAT-SELTEXT_L ='测试方法'。< br>将WA_FCAT附加到IT_FCAT。
清除WA_FCAT。

WA_FCAT-FIELDNAME ='RESULT_1'。
WA_FCAT-SELTEXT_L ='测试结果1'。
WA_FCAT-EDIT ='X' 。
将WA_FCAT追加到IT_FCAT。
清除WA_FCAT。

WA_FCAT-FIELDNAME ='RESULT_2'。
WA_FCAT-SELTEXT_L ='测试结果2'。
WA_FCAT-EDIT =' X'。
将WA_FCAT追加到IT_FCAT。
清除WA_FCAT。

WA_FCAT-FIELDNAME ='RESULT_3'。
WA_FCAT-SELTEXT_L ='测试结果3'。
WA_FCAT-EDIT ='X'。
将WA_FCAT追加到IT_FCAT。
清除WA_FCAT。

WA_FCAT-FIELDNAME ='RESULT_4'。
WA_FCAT-SELTEXT_L ='测试结果4'。
WA_FCAT -EDIT ='X'。
将WA_FCAT附加到IT_FCAT。清除WA_FCAT。

WA_FCAT-FIELDNAME ='CHK'。
WA_FCAT-CHECKBOX ='X'。
WA_FCAT-EDIT ='X'。
将WA_FCAT附加到IT_FCAT。< br>清除WA_FCAT。


WA_LAYOUT-COLWIDTH_OPTIMIZE ='X'。

通话功能'REUSE_ALV_GRID_DISPLAY'
导出
I_CALLBACK_PROGRAM ='ZRM123'
_I_CALLBACK_PF 'ZSTANDARD'
I_CALLBACK_USER_COMMAND ='U-COMM'
IS_LAYOUT = WA_LAYOUT
IT_FIELDCAT = IT_FCAT
表格
T_OUTTAB = IT_FINAL
例外
PROGRAM_ERROR = 1
其他= 2
。
IF SY-SUBRC <> 0.
*在此处实施适当的错误处理
ENDIF。





FORM U -COMM使用P1型SY-UCOMM
P2型SLIS_SELFIELD。
数据：TY_FINAL2型标准表TY_FINAL初始大小1。
数据：IT_STAB型标准表ZRM_TEST初始大小1。
数据： WA_STAB类型ZRM_TEST。
数据：WA_MATNR类型MATNR，
WA_MAKTX类型MAKTX。
数据：V_GRID类型引用CL_GUI_ALV_GRID。
数据：V_ANS类型C.

调用功能'GET_GLOBALS_FROM_SLVC_FULLSCR'
导入
E_GRID = V_GRID。

调用方法V_GRID-> CHECK_CHANGED_DATA。

如果SY-UCOMM ='SAVE'。

呼叫功能'POPUP_TO_CONFIRM'
导出
TEXT_QUESTION = TEXT-Q01
IMPORTING
答案= V_ANS
EXCEPTIONS
TEXT_NOT_FOUND = 1
其他= 2
。
如果SY-SUBRC <> 0.

ENDIF。
endif。
如果SY-UCOMM ='PRI'。
数据：V_FORM类型RS38L_FNAM。
数据：控制类型SSFCTRLOP 。
数据：输出信息类型为SSFCRESCL。
数据：OTFDATA类型为TSFOTF。

CONTROL-GETOTF ='X'。
CONTROL-NO_DIALOG ='X'。

呼叫功能'SSF_FUNCTION_MODULE_NAME'
导出
FORMNAME ='ZRM_TEST_FORM'
导入
FM_NAME = V_FORM
例外情况
NO_FORM = 1
NO_FUNCTION_MODULE = 2
其他= 3 br>。
IF SY-SUBRC <> 0.
*在此处实施适当的错误处理
ENDIF。

通话功能V_FORM
导出
CONTROL_PARAMETERS = CONTROL
IT_ZRM_TEST = it_final < br>导入
JOB_OUTPUT_INFO = OUTPUT_INFO
例外情况
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
其他= 5
。
IF SY-SUBRC <> 0.
*在此处实施适当的错误处理。
ENDIF。
OTFDATA = OUTPUT_INFO-OTFDATA。

通话功能'SSFCOMP_PDF_PREVIEW'
导出
I_OTF = OTFDATA
例外情况
CONVERT_OTF_TO_PDF_ERROR = 1
CNTL_ERROR = 2
其他= 3
。
IF SY-SUBRC <> 0.
*在此处实施适当的错误处理< br> ENDIF。
ENDIF。
*如果V_ANS ='1'。
*
* IT_FINAL2 = IT_FINAL。
*
*在IT_FINAL2处进入WA_FINAL。
* 如果WA_FINAL-MATNR不是初始值。
* WA_MATNR = WA_FINAL-MATNR。
* WA_MAKTX = WA_FINAL-MAKTX。
* ENDIF。
*如果WA_FINAL-RESULT_1是初始值且WA_FINAL-RESULT_2是初始值。 和WA_FINAL-RESULT_3是INITIAL，而WA_FINAL-RESULT_4是INITIAL。
*消息文本-E01类型'E'显示为'I'。
*离开列表处理。
* ENDIF。
* WA_STAB-MATNR = WA_MATNR。
* WA_STAB-MAKTX = WA_MAKTX。
* WA_STAB-ZDATE = SY-DATUM。
* WA_STAB-ZTIME = SY-UZEIT。
* WA_STAB-MRN_NO = WA_FINAL-MRN。< br> * WA_STAB-TEST_PARAM = WA_FINAL-TEST_PARAM。
* WA_STAB-SPECIFICATION = WA_FINAL-SPECIFICATION。
* WA_STAB-TEST_METHOD = WA_FINAL-TEST_METHOD。
* WA_STAB-RESULT_1 = WA_FIN。 * WA_STAB-RESULT_2 = WA_FINAL-RESULT_2。
* WA_STAB-RESULT_3 = WA_FINAL-RESULT_3。
* WA_STAB-RESULT_4 = WA_FINAL-RESULT_4。
*如果WA_FINAL-CHK是INITIAL。
* WA_STAB- END_RESULT ='O.K'。
* ELSE。
* WA_STAB-END_RESULT ='NOT O.K'。
* ENDIF。
*将WA_STAB附加到IT_STAB。
* CLEAR WA_STAB 。
* ENDLOOP。
*
*从表IT_STAB修改ZRM_TEST。
*如果SY-SUBRC =0。
*消息文本I01类型'I'。
*保留 到屏幕0.
* ENDIF。
* ENDIF。
* ENDIF。



ENDFORM。


使用B1形成ZSTANDARD。
设置PF状态" ZSTANDARD"。