× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Try rename you role in pi to something else and see if that would work.
See example below:

P cmssecure b export
D pi opdesc
D piusername 10a
D pirole 1a
*
C piUsername chain rcmsuserf
C if Not %found
C eval piRole = 'X'
C else
C eval piRole = Role
C endif
C Return
P cmssecure e





-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Emily Smith
Sent: Friday, October 26, 2007 3:45 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: ILE newbie question....

Hello all,

This is my first attempt at ILE, and I'm having a problem that has me
stumped.

Here's the code...

CMSADD is a module that is called from a program CMSMAIN. I won't put
the code for CMSMAIN because I don't think it's neccessary.

CMSADD

D*----------------------------------------------------------------
D* Procedure Prototype
D*----------------------------------------------------------------
D cmssecure pr opdesc
D username 10a
D role 1a
D
D CMSadd pr opdesc
D username 10a
P cmsadd b export
D pi opdesc
D username 10a
*
*Verify security
*

C Callp cmssecure(username:Role)

CMSSECURE:
D CMSSECURE pr opdesc
D username 10a
D role 1a
*
P cmssecure b export
D pi opdesc
D username 10a
D role 1a
*
C Username chain rcmsuserf
C if Not %found
C eval role = 'X'
C endif
C Return
P cmssecure e

ROLE is a field in cmsuserf. The chain is successful, and I can verify
that the record that is found has data in the field ROLE. However, in
debug, if I display the value of ROLE it shows as blanks both before and
after the chain, and ROLE is passed back to CMSADD as blanks. Maybe this
is an easy answer, but right now I'm stumped. Also, since this is my
first attempt, any other critique or comment is definitely welcomed and
appreciated.

Thanks

Em


CONFIDENTIALITY NOTICE: This email message is private, confidential
property of the sender, and the materials may be privileged
communications intended solely for the receipt, use, benefit, and
information of the intended recipient indicated above. If you are not
the intended recipient, you are hereby notified that any review,
disclosure,distribution, copying or taking of any other action in
reference to the contents of this message is strictly prohibited, and
may result in legal liability on your part. If you have received this
message in error, please notify the sender immediately and delete this
message from your system. We believe that this email and any attachments
are free of any virus or other defect that might affect any computer
system that it is received and opened in, however, it is the
responsibility of the recipient to ensure that it is virus free and the
sender accepts no responsibility for any loss or damage.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.