|
1 | | -COBOL labs |
2 | | -4 folders |
| 1 | +# COBOL Programming Course #1 - Getting Started - Lab Setup |
3 | 2 |
|
4 | | -1. **cbl** – COBOL source code |
5 | | -2. **jcl** – JCL to compile, link, and execute COBOL source code |
6 | | -3. **jclproc** – JCL PROCEDUREs used for labs in JCL folder |
7 | | -4. **data** – COBOL program input records |
| 3 | +The labs for this course are set up on z/OS 2.4 with Enterprise COBOL v6.3. Modification may be necessary if your installation uses a different version. |
8 | 4 |
|
9 | | -Note: |
10 | | -**cbl** folder |
11 | | -- copy cobol source members into student id.CBL partitioned data set name |
| 5 | +Please note that the following instruction is provided as-is. Neither this project nor the Open Mainframe Project will be held responsible or liable for any loss, costs, liabilities, or damages resulting from your direct or indirect use of this Lab Setup. |
12 | 6 |
|
13 | | -**jcl** folder |
14 | | -- copy jcl members into student id.JCL partitioned data set name |
15 | | -- jcl members reference student id.CBL and student id.LOAD partitioned data set names |
| 7 | +## Contents |
16 | 8 |
|
17 | | -**jclproc** folder |
18 | | -- members need to be copied into z/OS JES procedure library |
| 9 | +There are 4 folders within this directory: |
| 10 | +- **cbl**, containing the actual COBOL source code |
| 11 | +- **jcl**, containing the JCL used to compile, link, and execute COBOL source code |
| 12 | +- **jclproc**, containing the supplied cataloged procedure used in the JCL |
| 13 | +- **data**, containing the data used as input for the COBOL program |
19 | 14 |
|
20 | | -**data** folder |
21 | | -- member **data** must be transferred binary to z/OS because the data contains EBCDIC and Packed Decimal |
22 | | -- member **xdata** is a viewable ASCII data but the packed decimal fields were translated to ASCII and are unreadable |
| 15 | +There are 2 kinds of data provided inside the **data** folder: |
| 16 | +- **data** is a binary file that is still encoded in EBCDIC with packed decimal |
| 17 | +- **xdata** is a viewable ASCII file, however, the packed decimal fields are unreadable |
23 | 18 |
|
| 19 | +There are 3 supplied cataloged procedures inside the **jclproc** folder: |
| 20 | +- **IGYWC** for COBOL code compilation |
| 21 | +- **IGYWCL** for COBOL code compilation and link-edit |
| 22 | +- **IGYWCLG** for COBOL code compilation, link-edit, and execution |
| 23 | + |
| 24 | +## Setup |
| 25 | + |
| 26 | +For the following instructions, `&SYSUID.` refers to the course taker's ID. |
| 27 | + |
| 28 | +To set up your environment for the Course, |
| 29 | +- You will need to copy the members from **cbl** to your own PDS. The Course Document and JCL assume that the PDS is `&SYSUID..CBL`. |
| 30 | +- You will need to copy the members from **jcl** to your own PDS. The Course Document assumes that the PDS is `&SYSUID..JCL`. |
| 31 | +- You will need to transfer the binary **data** from the data folder to your own sequential data set. The Course Document and JCL assume that the PDS is `&SYSUID..DATA`. |
| 32 | +- You will need to make sure that the procedures IGYWC, IGYWCL, and IGYWCLG are available in your procedure library. |
| 33 | + |
| 34 | +Note that the JCL references the following data sets, |
| 35 | +- `&SYSUID..CBL` where the COBOL source codes are stored |
| 36 | +- `&SYSUID..LOAD` where the COBOL load modules are stored |
| 37 | +- `&SYSUID..DATA` where the input data are stored |
0 commit comments