Skip to content

Commit 1a75166

Browse files
tanto259tanto259
committed
Add SPDX ID for Db2 JCL Procedure
Signed-off-by: Hartanto Ario Widjaya <tanto259@users.noreply.github.com>
1 parent 742f8e3 commit 1a75166

File tree

4 files changed

+83
-75
lines changed

4 files changed

+83
-75
lines changed

‎COBOL Programming Course #1 - Getting Started/Labs/README.md‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
# COBOL Programming Course #1 - Getting Started - Lab Setup
22

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.
3+
The labs for this course are set up on z/OS 2.4 with Enterprise COBOL v6.3. Modification may be necessary for your installation.
44

55
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.
66

@@ -16,7 +16,7 @@ There are 2 kinds of data provided inside the **data** folder:
1616
- **data** is a binary file that is still encoded in EBCDIC with packed decimal
1717
- **xdata** is a viewable ASCII file, however, the packed decimal fields are unreadable
1818

19-
There are 3 supplied cataloged procedures inside the **jclproc** folder:
19+
There are 3 IBM-supplied cataloged procedures inside the **jclproc** folder:
2020
- **IGYWC** for COBOL code compilation
2121
- **IGYWCL** for COBOL code compilation and link-edit
2222
- **IGYWCLG** for COBOL code compilation, link-edit, and execution
@@ -29,7 +29,7 @@ To set up your environment for the Course,
2929
- 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`.
3030
- You will need to copy the members from **jcl** to your own PDS. The Course Document assumes that the PDS is `&SYSUID..JCL`.
3131
- 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.
32+
- You will need to make sure that the IBM-supplied procedures IGYWC, IGYWCL, and IGYWCLG are available in your procedure library. A copy of these procedures are available at **jclproc**.
3333

3434
Note that the JCL references the following data sets,
3535
- `&SYSUID..CBL` where the COBOL source codes are stored

‎COBOL Programming Course #2 - Advanced Topics/Labs/README.md‎

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
# COBOL Programming Course #2 - Advanced Topics - Lab Setup
22

3-
The labs for this course are set up on z/OS 2.4 with Enterprise COBOL v6.3 and Db2 for z/OS 12. Modification may be necessary if your installation uses a different version.
3+
The labs for this course are set up on z/OS 2.4 with Enterprise COBOL v6.3 and Db2 for z/OS 12. Modification may be necessary for your installation.
44

55
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.
66

@@ -14,7 +14,7 @@ There are 3 folders within this directory:
1414
There are 3 supplied cataloged procedures inside the **jclproc** folder:
1515
- **DB2CBL** for COBOL code compilation, link-edit, and Db2 binding
1616
- **DB2JCL** for the execution of SQL statements via JCL
17-
- **DSNUPROC** for invoking Db2 online utility
17+
- **DSNUPROC** for invoking Db2 online utility, this procedure is IBM-supplied
1818

1919
## Setup
2020

@@ -24,7 +24,8 @@ To set up your own environment for the Course,
2424
- You will need to make sure that the Lab Setup for Course 1 has been followed.
2525
- 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`.
2626
- You will need to copy the members from **jcl** to your own PDS. The Course Document assumes that the PDS is `&SYSUID..JCL`.
27-
- You will need to make sure that the procedures DB2CBL, DB2JCL, and DSNUPROC are available in your procedure library.
27+
- You will need to make sure that the procedures DB2CBL and DB2JCL are added from **jclproc** to your procedure library.
28+
- You will need to make sure that the IBM-supplied procedure DSNUPROC is an IBM-supplied procedure. A copy is available on **jclproc**.
2829

2930
Note that the JCL references the following data sets,
3031
- `&SYSUID..CBL` where the COBOL source codes are stored

‎COBOL Programming Course #2 - Advanced Topics/Labs/jclproc/DB2CBL.jcl‎

Lines changed: 60 additions & 57 deletions
Original file line numberDiff line numberDiff line change
@@ -1,57 +1,60 @@
1-
//DB2CBL PROC MBR='DB2CBL' 00010000
2-
//******************************************************************** 00200000
3-
//* COMPILE - COBOL PLUS EXPANDED EXEC SQL CODE * 00210000
4-
//******************************************************************** 00220000
5-
// IF RC = 0 THEN 00230000
6-
//COBOL EXEC PGM=IGYCRCTL,REGION=0M,PARM='SQL' 00240002
7-
//STEPLIB DD DSN=IGY630.SIGYCOMP,DISP=SHR 00250001
8-
// DD DSN=DSNC10.DBCG.SDSNEXIT,DISP=SHR 00251000
9-
// DD DSN=DSNC10.SDSNLOAD,DISP=SHR 00252000
10-
// DD DSN=CEE.SCEERUN,DISP=SHR 00260000
11-
// DD DSN=CEE.SCEERUN2,DISP=SHR 00270000
12-
//SYSIN DD DISP=SHR,DSN=&SYSUID..CBL(&MBR) 00271003
13-
//DBRMLIB DD DISP=SHR,DSN=&SYSUID..DBRMLIB(&MBR) 00272000
14-
//SYSPRINT DD SYSOUT=* 00290000
15-
//SYSLIN DD DSN=&&LOADSET,UNIT=SYSALLDA, 00300000
16-
// DISP=(MOD,PASS),SPACE=(CYL,(1,1)) 00310000
17-
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00320000
18-
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00330000
19-
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00340000
20-
//SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00350000
21-
//SYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00360000
22-
//SYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00370000
23-
//SYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00380000
24-
//SYSUT8 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00390000
25-
//SYSUT9 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00400000
26-
//SYSUT10 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00410000
27-
//SYSUT11 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00420000
28-
//SYSUT12 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00430000
29-
//SYSUT13 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00440000
30-
//SYSUT14 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00450000
31-
//SYSUT15 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00460000
32-
//SYSMDECK DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00470000
33-
// ENDIF 00480000
34-
//******************************************************************** 00490000
35-
//* CREATE EXECUTABLE MODULE * 00500000
36-
//******************************************************************** 00510000
37-
// IF RC <= 4 THEN 00520004
38-
//LKED EXEC PGM=IEWBLINK,COND=(8,LT,COBOL),REGION=0M 00530000
39-
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR 00540000
40-
// DD DSN=DSNC10.SDSNLOAD,DISP=SHR 00550000
41-
//SYSPRINT DD SYSOUT=* 00560000
42-
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1)) 00570000
43-
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 00580000
44-
//SYSLMOD DD DSN=&SYSUID..LOAD(&MBR),DISP=SHR 00590000
45-
// ENDIF 00600000
46-
//******************************************************************** 00610000
47-
//* BIND DB2 PLAN * 00620000
48-
//******************************************************************** 00630000
49-
// IF RC <= 4 THEN 00640000
50-
//BIND EXEC PGM=IKJEFT01 00650000
51-
//STEPLIB DD DSN=DSNC10.SDSNLOAD,DISP=SHR 00660000
52-
//DBRMLIB DD DSN=&SYSUID..DBRMLIB,DISP=SHR 00670000
53-
//SYSUDUMP DD DUMMY 00680000
54-
//SYSTSPRT DD SYSOUT=* 00690000
55-
//SYSPRINT DD SYSOUT=* 00700000
56-
//SYSTSIN DD DUMMY 00710007
57-
// ENDIF 00760000
1+
//DB2CBL PROC MBR='DB2CBL'
2+
//********************************************************************
3+
//* Copyright Contributors to the COBOL Programming Course *
4+
//* SPDX-License-Identifier: CC-BY-4.0 *
5+
//********************************************************************
6+
//* COMPILE - COBOL PLUS EXPANDED EXEC SQL CODE *
7+
//********************************************************************
8+
// IF RC = 0 THEN
9+
//COBOL EXEC PGM=IGYCRCTL,REGION=0M,PARM='SQL'
10+
//STEPLIB DD DSN=IGY630.SIGYCOMP,DISP=SHR
11+
// DD DSN=DSNC10.DBCG.SDSNEXIT,DISP=SHR
12+
// DD DSN=DSNC10.SDSNLOAD,DISP=SHR
13+
// DD DSN=CEE.SCEERUN,DISP=SHR
14+
// DD DSN=CEE.SCEERUN2,DISP=SHR
15+
//SYSIN DD DISP=SHR,DSN=&SYSUID..CBL(&MBR)
16+
//DBRMLIB DD DISP=SHR,DSN=&SYSUID..DBRMLIB(&MBR)
17+
//SYSPRINT DD SYSOUT=*
18+
//SYSLIN DD DSN=&&LOADSET,UNIT=SYSALLDA,
19+
// DISP=(MOD,PASS),SPACE=(CYL,(1,1))
20+
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
21+
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
22+
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
23+
//SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
24+
//SYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
25+
//SYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
26+
//SYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
27+
//SYSUT8 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
28+
//SYSUT9 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
29+
//SYSUT10 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
30+
//SYSUT11 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
31+
//SYSUT12 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
32+
//SYSUT13 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
33+
//SYSUT14 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
34+
//SYSUT15 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
35+
//SYSMDECK DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
36+
// ENDIF
37+
//********************************************************************
38+
//* CREATE EXECUTABLE MODULE *
39+
//********************************************************************
40+
// IF RC <= 4 THEN
41+
//LKED EXEC PGM=IEWBLINK,COND=(8,LT,COBOL),REGION=0M
42+
//SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
43+
// DD DSN=DSNC10.SDSNLOAD,DISP=SHR
44+
//SYSPRINT DD SYSOUT=*
45+
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
46+
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE)
47+
//SYSLMOD DD DSN=&SYSUID..LOAD(&MBR),DISP=SHR
48+
// ENDIF
49+
//********************************************************************
50+
//* BIND DB2 PLAN *
51+
//********************************************************************
52+
// IF RC <= 4 THEN
53+
//BIND EXEC PGM=IKJEFT01
54+
//STEPLIB DD DSN=DSNC10.SDSNLOAD,DISP=SHR
55+
//DBRMLIB DD DSN=&SYSUID..DBRMLIB,DISP=SHR
56+
//SYSUDUMP DD DUMMY
57+
//SYSTSPRT DD SYSOUT=*
58+
//SYSPRINT DD SYSOUT=*
59+
//SYSTSIN DD DUMMY
60+
// ENDIF

‎COBOL Programming Course #2 - Advanced Topics/Labs/jclproc/DB2JCL.jcl‎

Lines changed: 16 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,16 @@
1-
//DB2JCL PROC 00010001
2-
//SQL EXEC PGM=IKJEFT01 00030001
3-
//STEPLIB DD DSN=DSNC10.SDSNLOAD,DISP=SHR 00031002
4-
//SYSTSPRT DD SYSOUT=* 00040000
5-
//SYSTSIN DD * 00050000
6-
DSN SYSTEM(DBCG) 00060004
7-
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP12) + 00070000
8-
LIB('DSNC10.DBCG.RUNLIB.LOAD') PARMS('/ALIGN(MID)') 00090006
9-
END 00100000
10-
//SYSPRINT DD SYSOUT=* 00110000
11-
//SYSUDUMP DD DUMMY 00120000
12-
// PEND 00150001
1+
//DB2JCL PROC
2+
//***************************************************/
3+
//* Copyright Contributors to the COBOL Programming Course
4+
//* SPDX-License-Identifier: CC-BY-4.0
5+
//***************************************************/
6+
//SQL EXEC PGM=IKJEFT01
7+
//STEPLIB DD DSN=DSNC10.SDSNLOAD,DISP=SHR
8+
//SYSTSPRT DD SYSOUT=*
9+
//SYSTSIN DD *
10+
DSN SYSTEM(DBCG)
11+
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP12) +
12+
LIB('DSNC10.DBCG.RUNLIB.LOAD') PARMS('/ALIGN(MID)')
13+
END
14+
//SYSPRINT DD SYSOUT=*
15+
//SYSUDUMP DD DUMMY
16+
// PEND

0 commit comments

Comments
 (0)