× 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.



I am attempting to use the Retrieve Journal Entries
(QjoRetrieveJournalEntries) API, and I just can't seem to get the call to
work.  Currently, I am just trying to get a small chunk of test code to
work, and learn how to use it further.  It compiles, but when I run the
program, I get a CPF24B4 - That's right, a SEVERE error... *grin*  I can't
seem to figure out why.  Any help would be gratefully appreciated.  Once I
get this to work, I am going to utilize the journal entries, but I must
learn to crawl before I even attempt walking.  

 

 

 

     H Dftactgrp(*No)

     H BndDir('QC2LE')

 

     D QJoRtvJE        PR
ExtProc('QjoRetrieveJournalEntries')

     D  RcvVar                     4096A

     D  RcvVarLen                    10I 0 Value

     D  JrnName                      20A   Value

     D  FmtName                       8A   Value

     D  JrnSelect                     1A   Options(*Nopass)

     D  ErrorCode                     1A   Options(*Nopass)

 

     D Receiver        S           4096A   Inz(*Blanks)

     D ReceiverLen     S              4B 0 Inz(4096)

     D FormatName      S              8A   Inz('RJNE0100')

 

     D JournalName     DS                  Qualified

     D  Journal                      10A   Inz('CPUJRN')

     D  Library                      10A   Inz('E06FILES')

 

      /Free

 

       CallP QJoRtvJE(Receiver:ReceiverLen:JournalName:FormatName);

       *InLR=*On;

       Return;

 

Tony Carolla

MedAmerica Billing Services, Inc.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.