|
midrange.com
Hi all,
I'm having trouble getting the API QDMLOPNF to work for me. I'm a bit
confused as to how to pass the parameters to the API for starters. For
example, the required second variable (length of receiver variable) is
Binary(4). If I pass 01 length-of-receiver-variable pic s9(4) comp-4, the
response is CPF3C3B - value for parameter not valid. If I pass 01
length-of-receiver-variable pic s9(9), the response is CPF3C24 - Length of
the receiver variable is not correct. I remember having problems passing
numeric variables to a CL as it was always treated as s9(10)v9(5) but I'm
not sure if I'm on the same page.
What am I missing?
Any help would be appreciated.
Thanks
IDENTIFICATION DIVISION.
PROGRAM-ID. FINDME.
*
AUTHOR. DANIEL MIELKE.
INSTALLATION.
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-AS400.
OBJECT-COMPUTER. IBM-AS400.
SPECIAL-NAMES.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
*
*
WORKING-STORAGE SECTION.
*
*
01 test-me pic x(500).
01 INPUT-DATA.
05 bytes-returned pic s9(4) comp-4.
05 bytes-available pic s9(4) comp-4.
05 nbr-of-open-files-avail pic s9(4) comp-4.
05 nbr-of-open-files-rtnd pic s9(4) comp-4.
05 length-of-open-file-en pic s9(4) comp-4.
05 job-name-used pic x(10).
05 job-user-name-used pic x(10).
05 job-number-used pic x(6).
05 thread-id-used pic x(6).
05 huh pic x(3).
10 file-list occurs 150.
12 file-name pic x(10).
12 file-library pic x(10).
12 member-device-name pic x(10).
12 file-type pic x(10).
12 record-format pic x(10).
12 activation-group-name pic x(10).
12 thread-identifier pic x(8).
12 open-option pic x(1).
12 reserved pic x(3).
12 activation-group-nbr pic s9(8) comp-4.
12 write-count pic s9(8) comp-4.
12 read-count pic s9(8) comp-4.
12 write-read-count pic s9(8) comp-4.
12 other-io-count pic s9(8) comp-4.
12 relative-record-nbr pic s9(8) comp-4.
12 number-of-shared-opns pic s9(8) comp-4.
01 length-of-receiver-variable pic s9(9).
*01 length-of-receiver-variable pic s9(4) comp-4.
01 format-of-receiver pic x(8) value "OPNF0100".
01 job-identification-information.
05 jii-job-name pic x(10).
05 jii-job-user pic x(10).
05 jii-job-number pic x(6).
05 jii-int-job-id pic x(16) value spaces.
05 jii-reserved pic x(2) value spaces.
05 jii-thread-indicator pic s9(4) comp-4 value 2.
05 jii-thread-identifier pic x(8) .
01 format-of-jii pic x(8) value "JIDF0100".
01 error-code pic x(60).
* 05 ec-key pic s9(4) comp-4.
* 05 bytes-provided pic s9(4) comp-4.
* 05 bytes-available pic s9(4) comp-4.
* 05 exception-id pic x(7).
* 05 reserved pic x.
* 05 ccsid-of-cchar-data pic s9(4) comp-4.
* 05 offset-to-the-e-data pic s9(4) comp-4.
* 05 length-of-exception-data pic s9(4) comp-4.
* 05 exception-data pic x(40).
*
* SAVE AREA FOR SUBFILES
*
*
*
*
LINKAGE SECTION.
01 passed-job-name pic x(10).
01 passed-job-user pic x(10).
01 passed-job-number pic x(6).
PROCEDURE DIVISION USING passed-job-name
passed-job-user
passed-job-number.
MAIN-CONTROL.
move 100
to length-of-receiver-variable.
move low-values
to jii-thread-identifier.
move passed-job-name
to jii-job-name.
move passed-job-user
to jii-job-user.
move passed-job-number
to jii-job-number.
display "jii:" job-identification-information
call "QDMLOPNF" using test-me
length-of-receiver-variable
format-of-receiver
job-identification-information
format-of-jii
error-code.
display "test-me:" test-me
display "error-code:" error-code
exit program.
stop run.
BUY. HOLD. AND PROSPER
Daniel Mielke
Business Systems Analyst
AIC Limited
1-888-710-4242 x4614
dmielke@xxxxxxx <mailto:dmielke@xxxxxxx>
www.aic.com <http://www.aic.com>
**************************************************************************
This RRSP season if you're looking for a Fund with superior returns and lower
volatility, consider AIC Dividend Income Fund:
- Monthly income stream of $0.05 per unit;
- Focused portfolio of 10-20 excellent businesses;
- Diversification by sector and sub-sector;
- Managed by Portfolio Management Team with a proven track record.
Return summary*
AIC Dividend Income Fund
3 mo. - 4.0 percent
6 mo. - 18.5 percent
1 yr. - 22.7 percent
Since intro. - 24.7 percent
* as at November 30, 2005
AIC Dividend Income Fund provides both yield and performance. For more
information visit www.aic.com.
All returns are historical annual compounded total returns as at November 30,
2005 including changes in unit/share value and distributions reinvested and do
not take into account sales, redemption, distribution or optional charges or
income taxes payable by any securityholder that would have reduced returns.
Commissions, trailing commissions, management fees and expenses may be
associated with mutual fund investments. Mutual funds are not guaranteed,
their values change frequently and past performance may not be repeated.
Please read the prospectus before investing.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
