Journal API Troubleshooting

[CarollaT@xxxxxxxxxxxxxx]

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.