RE: System API QlnDumpCobol -- COBOL400-L

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