IBM Version 4 manual Program for Packaging a Product-ILE Cobol Example, Qszcrtpd, Qszpkgpo

Program for Packaging a Product—ILE COBOL Example

Refer to “Program for Packaging a Product—OPM RPG Example” on page A-3 fo the original example. The following program also works for OPM COBOL.

IDENTIFICATION DIVISION.

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\

\Program Name: SFTWPRDEX

\

\Language: COBOL

\

\Descriptive Name: Software Product Example

\

\Description: This example shows you the steps necessary t￿o

\	package your product		like IBM products.
\
\Header Files Included: QUSEC		-	Error Code Parameter
\	QSZCRTPD -		Create Product Definition API
\	QSZCRTPL -		Create Product Load API
\	QSZPKGPO -		Package Product Option API
\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\

PROGRAM-ID. SFTWPRDEX.

ENVIRONMENT DIVISION.

CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-AS4ðð. OBJECT-COMPUTER. IBM-AS4ðð.

INPUT-OUTPUT SECTION. FILE-CONTROL.

SELECT LISTING ASSIGN TO PRINTER-QPRINT ORGANIZATION IS SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD	LISTING RECORD CONTAINS 132 CHARACTERS
	LABEL RECORDS ARE STANDARD
	DATA RECORD IS LIST-LINE.
ð1	LIST-LINE	PIC X(132).

\

WORKING-STORAGE SECTION.

\

\Error Code parameter include. As this sample program

\uses COPY to include the error code structure, only the fi￿rst

\16 bytes of the error code structure are available. If the

\application program needs to access the variable length￿

\exception data for the error, the developer should physic￿ally

\copy the QSYSINC include and modify the copied include to￿

\define additional storage for the exception data.

\

COPY QUSEC OF QSYSINC-QLBLSRC.

\

\Create Product Definition API Include

B-136System API Programming V4R1