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


  • Subject: RE: System API QlnDumpCobol
  • From: "Weatherly, Howard" <hweatherly@xxxxxxxxxxxx>
  • Date: Thu, 19 Jul 2001 08:47:01 -0400

Title: RE: System API QlnDumpCobol

Bruce,

Where you have the by content fields I have variables, do they need to be literals? here is a snippet form the program and error dump

2 PRG           PIC  X(10) Value "TESTAPI".   
2 LIB           PIC  X(10) Value "TLMTDOBJ".  
2 MOD   PIC  X(10) Value "TESTAPI".   
2 TYP           PIC  X(10) Value "*PGM".      
2 DMP           PIC  X(01) Value "F".         
2 ERR           PIC  X(72) Value "Sample Dump".

Line 85

Call Procedure "QlnDumpCobol" Using
     PRG, LIB, MOD, TYP, DMP, ERR 
End-Call                          

Error addressing API parameter. The API did not complete successfully.

Message 'LNR7075' at COBOL statement 85 (C D F G).

DMP     OF API-DATA     CHAR(1)         "F"                     "C6"X                                
ERR     OF API-DATA     CHAR(72)                "Sample Dump    "E2819497938540C4A49497404040404040404 ....
                                                                                "4040404040404040404040404040404040404   ....

LIB     OF API-DATA     CHAR(10)                "TLMTDOBJ  "    "E3D3D4E3C4D6C2D14040"X               
MOD     OF API-DATA     CHAR(10)                "TESTAPI   "            "E3C5E2E3C1D7C9404040"X     
PRG     OF API-DATA     CHAR(10)                "TESTAPI   "            "E3C5E2E3C1D7C9404040"X     
TYP     OF API-DATA     CHAR(10)                "*PGM      "            "5CD7C7D4404040404040"X  

-----Original Message-----
From: R. Bruce Hoffman, Jr. [mailto:rbruceh@attglobal.net]
Sent: Wednesday, July 18, 2001 15:45
To: COBOL400-L@midrange.com
Subject: Re: System API QlnDumpCobol


-----Original Message-----
From: Weatherly, Howard <hweatherly@dlis.dla.mil>
To: COBOL Midrange (E-mail) <COBOL400-L@midrange.com>
Date: Wednesday, July 18, 2001 3:16 PM
Subject: System API QlnDumpCobol


>Quick question when the parameter group specifies a parm with the attribute
>of char(*) what exactly is the API looking for? Is it a variable length
>field? If anyone has a snippet (don't matter what API as long as it has a
>char(*) parm) I can stop banging my head on the table. :-)
>


      * ----------------------------------------------------------------
      * ----- Dump Program.  AS/400 Specific COBOL exception handler
       Dump-program.

           call procedure "QlnDumpCobol"
             using omitted
                   omitted
                   omitted
                   by content "*PGM      "
                   by content "F"
                   by content x"0000000000000000"

           stop run.
      * ----------------------------------------------------------------

===========================================================
R. Bruce Hoffman, Jr.
 -- IBM Certified Specialist - AS/400 Administrator
 -- IBM Certified Specialist - RPG IV Developer

"America is the land that fought for freedom and then
  began passing laws to get rid of it."

     - Alfred E. Neuman



+---
| This is the COBOL/400 Mailing List!
| To submit a new message, send your mail to COBOL400-L@midrange.com.
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.