Parameters to MAINUSER

, ,
1

To whom it may concern,

I just want to know if I pass the parameters correctly to the subprogram MAINUSER, I want to do this programmatic. When I do it from Program MAINCALL manually it works.

I’m not sure if I use the command parameters correctly.

See my little test program:

000010 ********************************************************************
000020 * SYSMAIN TEST PROGRAM UNSING MAINUSER SUBPROGRAM
000030 ********************************************************************
000040 DEFINE DATA LOCAL
000050 1 CMD (A250)
000060 1 SYSMAIN-Command (A250)
000070 END-DEFINE
000080 COMPRESS
000090 ‘C SA HEIN FM LIB NWK TO LIB SYSTEM REP’
000100 INTO CMD
000110 SYSMAIN-Command := CMD
000120 CALLNAT ‘MAINUSER’ SYSMAIN-Command
000130 **display SYSMAIN-Command
000140 END

Error code:
NAT0935 Conflicting number of parameters (Subprogram MAINUSER/SYSMAIN/22/10)
VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
0120 CALLNAT ‘MAINUSER’ SYSMAIN-Command

I want to use it later from a WSDL, but want to test it first.

Any suggestion will be appreciated

Kind Regards

2

Use:
CALLNAT ‘MAINUSER’ command error message library
with:
1 command (A250)
1 error (N4) /* return code issued by SYSMAIN
1 message (A72) /* The message corresponding to the error
1 library (A8) /* no meaning
This should work.

Kind Regards

3

Steffen

Thank you very much!

It works!

Mit freundlichen Grüßen / Kind regards :smiley: