Dynamic action for subsytem grouping in IT0007

[former_member24966]

Hi All,

I have a requirement to have different subsystem groupings for different groups of employees.

In the standard dynamic action when i try to insert the clause to check the country grouping it is not working.

I have made a small change, in the entire dynamic action something like below-

0007	ZTERF	06	000	P	T001P-MOLGA='44'
0007	ZTERF	06	007	W	P0050-BDEGR='002'

and if

0007	ZTERF	06	000	P	T001P-MOLGA<>'44'
0007	ZTERF	06	007	W	P0050-BDEGR='001'

but this is not working. Anything I need to consider to make it work? I did a quick search in old threads but nothing helped. Any pointers will be helpful.

Regards

SS

[jagan_gunja]

Hi Shruti

It is not possible to see where the problem is actually. Can you please post all of the relevant dynamic action lines?

br, JG

[former_member24966]

ok here is the code-

0007	ZTERF	06	001	*	Subsystem grouping
0007	ZTERF	06	002	P	PSPAR-TCLAS='A'
0007	ZTERF	06	003	P	T001P-MOLGA='44'
0007	ZTERF	06	004	P	P0007-ZTERF='1'/X
0007	ZTERF	06	005	P	P0007-ZTERF='2'/X
0007	ZTERF	06	006	P	PSAVE-ZTERF='8'
0007	ZTERF	06	007	I	INS,0050,,,(P0007-BEGDA),(P0007-ENDDA)
0007	ZTERF	06	008	W	P0050-PMBDE='01'
0007	ZTERF	06	009	W	P0050-BDEGR='002'
0007	ZTERF	06	010	W	P0050-GRAWG='001'
0007	ZTERF	06	011	W	P0050-GRELG='001'
0007	ZTERF	06	012	P	PSPAR-TCLAS='A'
0007	ZTERF	06	013	P	P0007-ZTERF='1'/X
0007	ZTERF	06	014	P	P0007-ZTERF='2'/X
0007	ZTERF	06	015	P	PSAVE-ZTERF='9'
0007	ZTERF	06	016	I	INS,0050,,,(P0007-BEGDA),(P0007-ENDDA)
0007	ZTERF	06	017	W	P0050-PMBDE='01'
0007	ZTERF	06	018	W	P0050-BDEGR='002'
0007	ZTERF	06	019	W	P0050-GRAWG='001'
0007	ZTERF	06	020	W	P0050-GRELG='001'
0007	ZTERF	06	021	P	PSPAR-TCLAS='A'
0007	ZTERF	06	022	P	P0007-ZTERF='1'/X
0007	ZTERF	06	023	P	P0007-ZTERF='2'/X
0007	ZTERF	06	024	P	PSAVE-ZTERF='0'
0007	ZTERF	06	025	I	INS,0050,,,(P0007-BEGDA),(P0007-ENDDA)
0007	ZTERF	06	026	W	P0050-PMBDE='01'
0007	ZTERF	06	027	W	P0050-BDEGR='002'
0007	ZTERF	06	028	W	P0050-GRAWG='001'
0007	ZTERF	06	029	W	P0050-GRELG='001'
0007	ZTERF	06	030	P	PSPAR-TCLAS='A'
0007	ZTERF	06	031	P	P0007-ZTERF='8'/X
0007	ZTERF	06	032	P	P0007-ZTERF='9'/X
0007	ZTERF	06	033	P	P0007-ZTERF='0'/X
0007	ZTERF	06	034	P	P0007-ZTERF='7'/X
0007	ZTERF	06	035	P	PSAVE-ZTERF='1'
0007	ZTERF	06	036	I	MOD,0050,,,,(PSAVE-ENDDA)
0007	ZTERF	06	037	W	P0050-ENDDA=P0007-BEGDA
0007	ZTERF	06	038	P	PSPAR-TCLAS='A'
0007	ZTERF	06	039	P	P0007-ZTERF='8'/X
0007	ZTERF	06	040	P	P0007-ZTERF='9'/X
0007	ZTERF	06	041	P	P0007-ZTERF='0'/X
0007	ZTERF	06	042	P	P0007-ZTERF='7'/X
0007	ZTERF	06	043	P	PSAVE-ZTERF='2'
0007	ZTERF	06	044	I	MOD,0050,,,,(PSAVE-ENDDA)
0007	ZTERF	06	045	W	P0050-ENDDA=P0007-BEGDA
0007	ZTERF	06	046	P	PSPAR-TCLAS='A'
0007	ZTERF	06	047	P	P0007-ZTERF='1'/X
0007	ZTERF	06	048	P	P0007-ZTERF='2'/X
0007	ZTERF	06	049	P	PSAVE-ZTERF='7'
0007	ZTERF	06	050	I	INS,0050,,,(P0007-BEGDA),(P0007-ENDDA)
0007	ZTERF	06	051	W	P0050-PMBDE='01'
0007	ZTERF	06	052	W	P0050-BDEGR='002'
0007	ZTERF	06	053	W	P0050-GRAWG='001'
0007	ZTERF	06	054	W	P0050-GRELG='001'
0007	ZTERF	06	055	P	PSPAR-TCLAS='A'
0007	ZTERF	06	056	P	T001P-MOLGA< >'44'
0007	ZTERF	06	057	P	P0007-ZTERF='1'/X
0007	ZTERF	06	058	P	P0007-ZTERF='2'/X
0007	ZTERF	06	059	P	PSAVE-ZTERF='8'
0007	ZTERF	06	060	I	INS,0050,,,(P0007-BEGDA),(P0007-ENDDA)
0007	ZTERF	06	061	W	P0050-PMBDE='01'
0007	ZTERF	06	062	W	P0050-BDEGR='001'
0007	ZTERF	06	063	W	P0050-GRAWG='001'
0007	ZTERF	06	064	W	P0050-GRELG='001'
0007	ZTERF	06	065	P	PSPAR-TCLAS='A'
0007	ZTERF	06	066	P	P0007-ZTERF='1'/X
0007	ZTERF	06	067	P	P0007-ZTERF='2'/X
0007	ZTERF	06	068	P	PSAVE-ZTERF='9'
0007	ZTERF	06	069	I	INS,0050,,,(P0007-BEGDA),(P0007-ENDDA)
0007	ZTERF	06	070	W	P0050-PMBDE='01'
0007	ZTERF	06	071	W	P0050-BDEGR='001'
0007	ZTERF	06	072	W	P0050-GRAWG='001'
0007	ZTERF	06	073	W	P0050-GRELG='001'
0007	ZTERF	06	074	P	PSPAR-TCLAS='A'
0007	ZTERF	06	075	P	P0007-ZTERF='1'/X
0007	ZTERF	06	076	P	P0007-ZTERF='2'/X
0007	ZTERF	06	077	P	PSAVE-ZTERF='0'
0007	ZTERF	06	078	I	INS,0050,,,(P0007-BEGDA),(P0007-ENDDA)
0007	ZTERF	06	079	W	P0050-PMBDE='01'
0007	ZTERF	06	080	W	P0050-BDEGR='001'
0007	ZTERF	06	081	W	P0050-GRAWG='001'
0007	ZTERF	06	082	W	P0050-GRELG='001'
0007	ZTERF	06	083	P	PSPAR-TCLAS='A'
0007	ZTERF	06	084	P	P0007-ZTERF='8'/X
0007	ZTERF	06	085	P	P0007-ZTERF='9'/X
0007	ZTERF	06	086	P	P0007-ZTERF='0'/X
0007	ZTERF	06	087	P	P0007-ZTERF='7'/X
0007	ZTERF	06	088	P	PSAVE-ZTERF='1'
0007	ZTERF	06	089	I	MOD,0050,,,,(PSAVE-ENDDA)
0007	ZTERF	06	090	W	P0050-ENDDA=P0007-BEGDA
0007	ZTERF	06	091	P	PSPAR-TCLAS='A'
0007	ZTERF	06	092	P	P0007-ZTERF='8'/X
0007	ZTERF	06	093	P	P0007-ZTERF='9'/X
0007	ZTERF	06	094	P	P0007-ZTERF='0'/X
0007	ZTERF	06	095	P	P0007-ZTERF='7'/X
0007	ZTERF	06	096	P	PSAVE-ZTERF='2'
0007	ZTERF	06	097	I	MOD,0050,,,,(PSAVE-ENDDA)
0007	ZTERF	06	098	W	P0050-ENDDA=P0007-BEGDA
0007	ZTERF	06	099	P	PSPAR-TCLAS='A'
0007	ZTERF	06	100	P	P0007-ZTERF='1'/X
0007	ZTERF	06	101	P	P0007-ZTERF='2'/X
0007	ZTERF	06	102	P	PSAVE-ZTERF='7'
0007	ZTERF	06	103	I	INS,0050,,,(P0007-BEGDA),(P0007-ENDDA)
0007	ZTERF	06	104	W	P0050-PMBDE='01'
0007	ZTERF	06	105	W	P0050-BDEGR='001'
0007	ZTERF	06	106	W	P0050-GRAWG='001'
0007	ZTERF	06	107	W	P0050-GRELG='001'

[Former Member]

Why don't you simplify this for the purpose of testing? There seems to be duplication in the above & I think hence the Create screen is called twice.

I suggest, to test if your new crierion for Country code check & corresponding default of subsystem grp is working:

1) Keep only lines 001 to  011 and 055 to 064

2) Comment all others

Check if this works, accordingly you can extend or add whatever is required.

[former_member24966]

ok let me try that

[jagan_gunja]

Hi Shruti

In dynamic actions, sometimes mixing "OR" (with /X) and "AND" conditions can give problems.  Hence I would suggest

a)using a function call (indc = F), to call a subroutine in a user program (you can see examples in T588Z)

b)in the subroutine, do all the plausibility checks required including different conditions as you have listed.  If successful return value/s (as required for indicator W) in RP50D structure.(which is standard SAP provided one and allows customer or user fields to be added in the include with component type CI_RP50D) - e.g., dates, indicator/s to show if the check is successful.

c)after the function call, use again P check if the function call provided a success condition 

(eg. P  RP50D-FIELD1=1)

d)if successful, use W with say BEGDA=RP50D-DATE1. etc

rgds, JG

[Former Member]

Can you let me know the lines between the ones you mentioned? Will be easier to analyse the behavior once we see the full dynamic action.

[former_member24966]

it is the standard dynamic action in SAP.

ZTERF	06	000	P	PSPAR-TCLAS='A'
ZTERF	06	001	P	P0007-ZTERF='1'/X
ZTERF	06	002	P	P0007-ZTERF='2'/X
ZTERF	06	003	P	PSAVE-ZTERF='8'
ZTERF	06	004	I	INS,0050,,,(P0007-BEGDA),(P0007-ENDDA)
ZTERF	06	005	W	P0050-PMBDE='01'
ZTERF	06	006	W	P0050-BDEGR='001'
ZTERF	06	007	W	P0050-GRAWG='001'
ZTERF	06	008	W	P0050-GRELG='001'
ZTERF	06	009	P	PSPAR-TCLAS='A'
ZTERF	06	010	P	P0007-ZTERF='1'/X
ZTERF	06	011	P	P0007-ZTERF='2'/X
ZTERF	06	012	P	PSAVE-ZTERF='9'
ZTERF	06	013	I	INS,0050,,,(P0007-BEGDA),(P0007-ENDDA)
ZTERF	06	014	W	P0050-PMBDE='01'
ZTERF	06	015	W	P0050-BDEGR='001'
ZTERF	06	016	W	P0050-GRAWG='001'
ZTERF	06	017	W	P0050-GRELG='001'
ZTERF	06	018	P	PSPAR-TCLAS='A'
ZTERF	06	019	P	P0007-ZTERF='1'/X
ZTERF	06	020	P	P0007-ZTERF='2'/X
ZTERF	06	021	P	PSAVE-ZTERF='0'
ZTERF	06	022	I	INS,0050,,,(P0007-BEGDA),(P0007-ENDDA)
ZTERF	06	023	W	P0050-PMBDE='01'
ZTERF	06	024	W	P0050-BDEGR='001'
ZTERF	06	025	W	P0050-GRAWG='001'
ZTERF	06	026	W	P0050-GRELG='001'
ZTERF	06	027	P	PSPAR-TCLAS='A'
ZTERF	06	028	P	P0007-ZTERF='8'/X
ZTERF	06	029	P	P0007-ZTERF='9'/X
ZTERF	06	030	P	P0007-ZTERF='0'/X
ZTERF	06	031	P	P0007-ZTERF='7'/X
ZTERF	06	032	P	PSAVE-ZTERF='1'
ZTERF	06	033	I	MOD,0050,,,,(PSAVE-ENDDA)
ZTERF	06	034	W	P0050-ENDDA=P0007-BEGDA
ZTERF	06	035	P	PSPAR-TCLAS='A'
ZTERF	06	036	P	P0007-ZTERF='8'/X
ZTERF	06	037	P	P0007-ZTERF='9'/X
ZTERF	06	038	P	P0007-ZTERF='0'/X
ZTERF	06	039	P	P0007-ZTERF='7'/X
ZTERF	06	040	P	PSAVE-ZTERF='2'
ZTERF	06	041	I	MOD,0050,,,,(PSAVE-ENDDA)
ZTERF	06	042	W	P0050-ENDDA=P0007-BEGDA
ZTERF	06	043	P	PSPAR-TCLAS='A'
ZTERF	06	044	P	P0007-ZTERF='1'/X
ZTERF	06	045	P	P0007-ZTERF='2'/X
ZTERF	06	046	P	PSAVE-ZTERF='7'
ZTERF	06	047	I	INS,0050,,,(P0007-BEGDA),(P0007-ENDDA)
ZTERF	06	048	W	P0050-PMBDE='01'
ZTERF	06	049	W	P0050-BDEGR='001'
ZTERF	06	050	W	P0050-GRAWG='001'
ZTERF	06	051	W	P0050-GRELG='001'

I just added a country check and repeated the same code with different system subgrouping but that is not working. It gives the create screen twice with different system subgrouping.

[Former Member]

Was asking for the sequence of dynamic actions along with the lines added by you. Where in the above have you added the country check and the default? Have you just replaced the lines in seq. no. 000 & 007?