Re: Question on api QlnDumpCobol

MD2448 is the change flag


0144.00 MD2448 COPY QUSEC OF QSYSINC-QLBLSRC.

0145.00 MD2448*

0146.00 MD2448 COPY QSZCRTPD OF QSYSINC-QLBLSRC.

0147.00 MD2448*

0148.00 MD2448 COPY QSZCRTPL OF QSYSINC-QLBLSRC.

0149.00 MD2448*

0150.00 MD2448 COPY QSZPKGPO OF QSYSINC-QLBLSRC.

0151.00 MD2448*





0545.00 MD2448 WRITE DBHXCLMDRT-RECORD INVALID
KEY

0546.00 MD2448 PERFORM
9998-EXIT-PROGRAM-WITH-DUMP

0547.00 MD2448
END-WRITE.


0548.00

0549.00 MD2448
9998-EXIT-PROGRAM-WITH-DUMP.

0550.00 MD2448 MOVE LENGTH OF ERROR-CODE TO BYTES-PROVIDED OF
QUS-EC.

0551.00 MD2448 MOVE "DGCCLMSTSR" TO
PROGRAM-NAME.

0552.00 MD2448 MOVE "DGCCLMSTSR" TO
MODULE-NAME.

0553.00 MD2448 MOVE "Library name" TO
LIBRARY-NAME.

0554.00 MD2448 MOVE "COBOL *PGM" TO
PROGRAM-TYPE.

0555.00 MD2448 MOVE "F" TO
DUMP-TYPE.

0556.00 MD2448


0557.00 MD2448 CALL PROCEDURE "QlnDumpCobol" USING
BYTES-PROVIDED

0558.00 MD2448 OF
QUS-EC,

0559.00 MD2448
PROGRAM-NAME,

0560.00 MD2448
LIBRARY-NAME,

0561.00 MD2448 MODULE-NAME,

0562.00 MD2448 PROGRAM-TYPE,

0563.00 MD2448 DUMP-TYPE.

0564.00 MD2448



On Tue, Oct 18, 2022 at 8:25 PM Jon Paris <jon.paris@xxxxxxxxxxxxxx>
wrote:

Off the top of my head I can only think you haven't quoted it properly
and the system is trying to find QLNDUMPCOBOL.

Can you show us how is the call is being done?

I'd try it myself but I'm trying to finish a presentation for tomorrow!


Jon P.

On Oct 18, 2022, at 9:03 PM, Thomas Burrows <

thomas.burrows.1957@xxxxxxxxx> wrote:

In the joblog that is created when the program does not compile I get

the

message that QlnDumpCobol is not found.

Obviously I am missing a copy book command.

I have the following copybook commands.

copy qusec of qsysinc-qlblsrc

copy qszcrtpd of qsysinc-qlblsrc

copy qszcrtpl of qsysinc-qlblsrc

copy qszpkgpd of qsysinc-qlblsrc

What am I missing?

Thomas in Texas
--
This is the COBOL Programming on the IBM i (AS/400 and iSeries)

(COBOL400-L) mailing list

To post a message email: COBOL400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/cobol400-l.

--
This is the COBOL Programming on the IBM i (AS/400 and iSeries)
(COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/cobol400-l.