You can create CL source, a CL module, and a program in one batch input stream from diskette. The following example shows the basic parts of the input stream from a diskette unit. The input is submitted to a job queue using the Submit Diskette Job (SBMDKTJOB) command. The input stream should follow this format:
// BCHJOB CRTBNDCL PGM(QGPL/EDUPGM) SRCFILE(PERLIST) // DATA FILE(PERLIST) FILETYPE(*SRC) . . (CL Procedure Source) . // /* // ENDINP
This stream creates a program from inline source. If you want to keep the source inline, a Copy File (CPYF) command could be used to copy the source into a database file. The program could then be created using the database file.
You can also create a CL module directly from CL source on external media, such as diskette, using an IBM-supplied device file. The IBM-supplied diskette source file is QDKTSRC (use QTAPSRC for tape). Assume, for instance, that the CL source statements are in a source file on diskette named PGMA.
The first step is to identify the location of the source on diskette by using the following override command with LABEL attribute override:
OVRDKTF FILE(QDKTSRC) LABEL(PGMA)
Now you can consider the QDKTSRC file as the source file on the Create CL Module (CRTCLMOD) command. To create the CL module based on the source input from the diskette, enter the following command:
CRTCLMOD MODULE(QGPL/PGMA) SRCFILE(QDKTSRC)
When the CRTCLMOD command is processed, it treats the QDKTSRC source file like any database source file. Using the override, the source is located on diskette. PGMA is created in QGPL, and the source for that module remains on diskette.
(C) Copyright IBM Corporation 1992, 2005. All Rights Reserved.