MIDRANGE dot COM Mailing List Archive



Home » COBOL400-L » January 2006

Using API QDMLOPNF



fixed

 

 

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. 






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 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