report ztest_pfstatus_1 no standard page heading.
*—Selection screen fields
tables : sscrfields.
*—Datat and types
data:
gc_name type string.
data:
lt_table like table of gc_name,
ls_table like line of lt_table.
parameter: p_name type char100.
load-of-program.
*—output
concatenate
gc_name
';'
'load-of-program'
into gc_name.
initialization.
*—output
concatenate
gc_name
';'
'Initialization'
into gc_name.
at selection-screen output.
*—output
concatenate
gc_name
';'
'at selection-screen output'
into gc_name.
*—Set PF-status
set pf-status 'SCPF'.
at selection-screen.
*—output
concatenate
gc_name
';'
'at selection-screen'
into gc_name.
*—方式1 Sy-ucomm
case sy-ucomm.
when 'SE19'.
leave program.
endcase.
*--modify
if sy-ucomm = 'MM01'.
sscrfields-ucomm = 'ONLI'.
endif.
*—方式2 sscrfields-ucomm
case sscrfields-ucomm.
when 'MM01'.
leave program.
endcase.
start-of-selection.
set pf-status 'OUTPF'.
*—output
concatenate
gc_name
';'
'start-of-selection'
into gc_name.
*1. Output system fields.
write:
/'PF-status:', sy-pfkey,
/'Dynscreen:', sy-dynnr.
*2. Output result
split gc_name at ';' into table lt_table .
write:
/'Parameter in S-screen:'.
loop at lt_table into ls_table.
write:
/ ls_table.
endloop.
at user-command.
*—Sy-ucomm
case sy-ucomm.
when 'SPOOL'.
leave program.
endcase.
case sscrfields-ucomm.
when 'BACK'.
leave program.
endcase.
评论