DannyMc
Member
I am aware that the security file for JDE is F98OWSEC. I also have run into the issue that JDE does not support a field where an operator can set a user's password to expired and force a password change. The only thing to do is run an SQL statement against F98OWSEC and set the SCSECLST field to something outside the range of the SCSECFRQ.
I am trying to create an AS/400 command that calls a program to make this modification so my operators do not have to run the SQL command. What I have found is that I have to make the SQL call from a high level programming language such as ILE RPG, RPG IV, or C. CL is not supported.
So far I have found some documentation on the CRTSQLRPGL command and examples I cannot follow on IBM's web site. I have come up with the following ILE RPG code:
H
C* *inzsr begsr
C *entry plist
C parm userid 10
C* endSR
C/eject
C/EXEC sql
C+ update f98owsec
C+ set scseclst = 102001,
C+ set scowpwd = :userid
C+ where scuser = :userid
C/END-EXEC
C/eject
Unfortunately, I keep getting the following message:
MSG ID SEV RECORD TEXT
SQL0104 30 10 Position 21 Token SCOWPWD was not valid. Valid tokens: =.
Message Summary
Total Info Warning Error Severe Terminal
1 0 0 0 1 0
30 level severity errors found in source
13 Source records processed
I do not know enough about programming or SQL to know what is wrong. I do have a copy of F98OWSEC in my library and my library is in the library list. Anyone got any suggestions?
Thanks,
Danny Mc?
--------
JDE OW Xe SP17
EN - AS/400 820 v5r1
DP - Win2k
CL - Win2k Citrix
I am trying to create an AS/400 command that calls a program to make this modification so my operators do not have to run the SQL command. What I have found is that I have to make the SQL call from a high level programming language such as ILE RPG, RPG IV, or C. CL is not supported.
So far I have found some documentation on the CRTSQLRPGL command and examples I cannot follow on IBM's web site. I have come up with the following ILE RPG code:
H
C* *inzsr begsr
C *entry plist
C parm userid 10
C* endSR
C/eject
C/EXEC sql
C+ update f98owsec
C+ set scseclst = 102001,
C+ set scowpwd = :userid
C+ where scuser = :userid
C/END-EXEC
C/eject
Unfortunately, I keep getting the following message:
MSG ID SEV RECORD TEXT
SQL0104 30 10 Position 21 Token SCOWPWD was not valid. Valid tokens: =.
Message Summary
Total Info Warning Error Severe Terminal
1 0 0 0 1 0
30 level severity errors found in source
13 Source records processed
I do not know enough about programming or SQL to know what is wrong. I do have a copy of F98OWSEC in my library and my library is in the library list. Anyone got any suggestions?
Thanks,
Danny Mc?
--------
JDE OW Xe SP17
EN - AS/400 820 v5r1
DP - Win2k
CL - Win2k Citrix