发表于:2007.08.19 18:26
分类: SAP和 ABAP/4
出处：http://mmccking.itpub.net/post/33129/384876
---------------------------------------------------------------
*&---------------------------------------------------------------------*
*& Report ZTEST_04_ZHANGWL *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ZTEST_04_ZHANGWL.
************************************************************************
* SELECT-OPTIONS ・ PARAMETERS
************************************************************************
PARAMETERS:
P_DATCLS TYPE Z13000008T-DATCLS OBLIGATORY. "I/Fデータ種別
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
P_NORMAL RADIOBUTTON GROUP GR01. "通常実行
SELECTION-SCREEN COMMENT 3(10) TEXT-001 FOR FIELD P_NORMAL.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: P_RETRY RADIOBUTTON GROUP GR01. "再実行
SELECTION-SCREEN COMMENT 3(10) TEXT-002 FOR FIELD P_RETRY.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK BK2 WITH FRAME TITLE BLFRM_02.
PARAMETERS:
P_CREDAT TYPE Z13000008T-CREDAT, "I/F日付
P_CRETIM TYPE Z13000008T-CRETIM, "I/F時刻
P_STATUS TYPE Z13000008T-JOBSTS. "ステータス
SELECTION-SCREEN END OF BLOCK BK2.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
P_LOCAL RADIOBUTTON GROUP GR01. "ローカルファイル使用
SELECTION-SCREEN COMMENT 3(30) TEXT-003 FOR FIELD P_LOCAL.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE BLFRM_01.
PARAMETERS:
P_FILENM TYPE RLGRAP-FILENAME. "LOCALファイルパス
SELECTION-SCREEN END OF BLOCK BK1.
INITIALIZATION.
PERFORM INITIAL_RTN.
************************************************************************
* FORMS
************************************************************************
*&---------------------------------------------------------------------*
*& Form INITIAL_RTN
*&---------------------------------------------------------------------*
* 初期処理
*----------------------------------------------------------------------*
FORM INITIAL_RTN.
%_P_DATCLS_%_APP_%-TEXT = 'I/Fデータ種別'.
%_P_NORMAL_%_APP_%-TEXT = '通常実行'.
%_P_RETRY_%_APP_%-TEXT = '再実行'.
%_P_LOCAL_%_APP_%-TEXT = 'ローカルファイル使用'.
%_P_FILENM_%_APP_%-TEXT = 'アップロード／ダウンロード'.
%_P_CREDAT_%_APP_%-TEXT = 'I/F日付'.
%_P_CRETIM_%_APP_%-TEXT = 'I/F時刻'.
%_P_STATUS_%_APP_%-TEXT = 'ステータス'.
BLFRM_01 = 'ファイル'.
BLFRM_02 = '再実行内容'.
ENDFORM. "INITIAL_RTN