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.
This mailing list archive is Copyright 1997-2015 by MIDRANGE dot 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 here. If you have questions about this, please contact