Just what I needed. Thanks
EDeLong@xxxxxxxxxxxxxxx 10/31/2008 3:13 PM >>>
Buddy,
I think your prototype is not right...
D SetProfExit PR ExtPgm('QWTSETPX')
D NumEnt 10i 0 const
D ExtFlags 10i 0 DIM(8) const
D Format 8a const
D UserID 10A const
D ErrorCode 32766A options(*varsize: *nopass)
When IBM writes documentation for api's, they often refer to integer
values as Binary(4), meaning this should be a four-byte integer value.
Unsigned value ranges from 0 to 4,294,967,296.
In RPG, IBM refers to numeric fields in terms of digits. As you can see
above, a 4 byte integer can have up to 10 digits, so we declare this a
10i 0.
Hope this helps a little...
Eric DeLong
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Buddy McClean
Sent: Friday, October 31, 2008 2:44 PM
To: <Midrange List
Subject: QWTSETPX - User Profile - and SYS/REQ Exit Point
Running the program below - I get CPF1666 Number of Entries not in Valid
Range (Field name 'ENTRIES')
Am I defining the parameters correctly for QWTSETPX to read them?
I don't think the external program is getting the value.
As a side (or maybe not) - how does QWTSETPX know which error DS I am
expecting back ERRC0100 or ERRC0200
H DftActGrp(*no) BNDDIR('DFTBNDDIR')
10/30/08
200 H Debug Optimize(*none)
10/28/08
300 H*Debug(*No) Optimize(*Basic)
10/28/08
400 H InDent('>') Text(*SrcMbrTxt)
10/27/08
500
10/27/08
600 D Entries S 4B 0 Inz(1)
10/30/08
700 D Flag S 1 0 Inz(1)
10/30/08
800 D Format S 8 Inz('SREQ0100')
10/30/08
900 D User S 10 Inz('MBNETUSER')
10/30/08
1000 D Error S Like(QUSEC)
10/30/08
1100
10/27/08
1200 D SetUser PR ExtPgm('QWTSETPX')
10/30/08
1300 D 4B 0
10/30/08
1400 D 1 0
10/30/08
1500 D 8
10/30/08
1600 D 10
10/30/08
1700 D 16
10/30/08
1800
10/30/08
1900 DQUSEC DS
10/28/08
2000 D* Qus EC
10/28/08
2100 D QUSBPRV 1 4B 0
10/28/08
2200 D* Bytes
Provided 10/28/08
2300 D QUSBAVL 5 8B 0
10/28/08
2400 D* Bytes
Available 10/28/08
2500 D QUSEI 9 15
10/28/08
2600 D* Exception Id
10/28/08
2700 D QUSERVED 16 16
10/28/08
2800 D* Reserved
10/28/08
2900 D*QUSED01 17 116
10/30/08
3000
10/27/08
3100 C Clear QUSec
10/30/08
3200 C Eval QUSBPRV = 16
10/30/08
3300 C CallP SetUser (Entries:
10/30/08
3400 C Flag:
10/30/08
3500 C Format:
10/30/08
3600 C User:
10/30/08
3700 C QUSEC)
10/30/08
3800
10/30/08
3900 C Eval *INLR = *On
10/27/08
* * * * E N D O F S O U R C E * *
* *
--
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.
midrange.com
