Messy notes.

1. Show/Hide Selection screen

*&---------------------------------------------------------------------*
*& select-options
*&---------------------------------------------------------------------*
Selection-screenBEGINOfBLOCK BLK1WithFRAMETITLETEXT-000.
PARAMETER: P1RADIOBUTTONGROUP GRPDEFAULT' X ' modifID BL0User-command RAD,
P2RADIOBUTTONGROUP GRP modifID BL0.
Selection-screenENDOfBLOCK BLK1.
Selection-screenBEGINOfBLOCK BLKWithFRAMETITLETEXT-001.
PARAMETERS: P1100RADIOBUTTONGROUP GRP1DEFAULT' X ' modifID B1User-command RAD2,
P1200RADIOBUTTONGROUP GRP1 modifID B1,
P1300RADIOBUTTONGROUP GRP1 modifID B1,
P1020RADIOBUTTONGROUP GRP1 modifID B1,
W1100RADIOBUTTONGROUP GRP1 modifID B1.
Selection-screenSKIP1.
Select-options: S_matnrFor mseg-matnr modifID B1.

PARAMETERS: P_werksLike Mseg-werksDEFAULT' Modif 'ID B1,
P_lgortLike MARD-lgortDEFAULT' 1100 ' modifID B1a.
Select-options: S_lgortFor MARD-lgort modifID B1b.
PARAMETERS: P_datumLike SY-datumDEFAULT SY-datum modifID B1,
P_mjahrLike SER03-mjahrDEFAULT SY-datum+0(4) modifID BL2,
P2_lgortLike MARD-lgortDEFAULT' Modif 'ID BL2.

Select-options: S2_matnrFor mseg-matnr modifID BL2,
S2_sernrFor OBJK-sernr modifID BL2,
S2_mblnrFor SER03-mblnr modif ID BL2,
S2_datum for SER03-datum modif ID BL2.
PARAMETERS : p2_datum like sy-datum DEFAULT SY-datum modif ID BL2.
selection-screen END of BLOCK BLK.

LOOPAtScreen.
IFScreen-group1=' BL0 '.
CONTINUE.
ENDIF.
IF P1=X.
IFScreen-group1+0(1)=BandScreen-group1+0(2) <>' B1 '.
Screen-active=0.
ENDIF.
IF W1100=X.
IFScreen-group1=' B1a '.
Screen-active=0.
ENDIF.
ELSE.
IFScreen-group1=' B1b '.
Screen-active=0.
ENDIF.
ENDIF.
ELSE.
IFScreen-group1+0 (1)   =  ' B '  and  Screen-group1 <>  ' BL2 '         screen-ACTIVE < Span class= "L0S55" >= 0       endif     endif     modify screen   endloop

Messy notes