Have a look at
http://www-01.ibm.com/support/docview.wss?uid=swg27036733
and pick your compiler version release and have a look at the
Programming Guide chapter that discusses cataloged procedures.
For example, for Enterprise COBOL for z/OS 4.2, see Chapter 14 Compiling
under z/OS, section Using a Cataloged Procedure.
You might also want to reference the JCL books and consider breaking
this into 2 steps, 1 that does the compile and link, and one that does
the GO, which is a better example of the 'real world' (where compile,
link and go are rarely done at the same time).
For JCL books, I'd start here:
http://www-03.ibm.com/systems/z/os/zos/bkserv/
there are lots of ways to find books in there, so I won't try to go into
that, but you want to look for these 2
MVS JCL Reference
MVS JCL User's Guide
George
On 11/4/2013 9:49 PM, Cameron Seay wrote:
All:
I am a re-newbie to COBOL (learned it years ago but it's very rusty). I am
teaching it to my students because it's a great job skill now. Below is job
that contains the source code inline and runs great. It compiles, links and
runs error free. What I want is the syntax to place the LOAD module into a
data set. I tried what I thought would work, but it didn't. Many thanks!
//KC02177B JOB (12345678),'V HAMPTON',MSGLEVEL=(1,1),REGION=0M,
// NOTIFY=&SYSUID,MSGCLASS=A,CLASS=A
//****
//COBOL1 EXEC IGYWCLG,
// PARM.COBOL='TEST,RENT,APOST,OBJECT,NODYNAM,LIB,SIZE(5048376)'
//COBOL.SYSPRINT DD SYSOUT=*
//COBOL.SYSIN DD *
IDENTIFICATION DIVISION.
00000004
PROGRAM-ID. PROG1.
00000006
AUTHOR. VICKI HAMPTON.
* LAB EXERCISE 1.
00000007
ENVIRONMENT DIVISION.
00000009
CONFIGURATION SECTION.
00000011
INPUT-OUTPUT SECTION.
00000017
FILE-CONTROL.
00000019
SELECT INPUT-FILE ASSIGN TO DA-S-INPUT.
00000021
SELECT PRNT-FILE ASSIGN TO UR-S-PRNT.
00000024
* INPUT-FILE IS THE NAME THE PROGRAM WILL USE
* DA-S-INPUT TELLS JCL TO ASSIGN THE INPUT DATA
* TO THE FILE NAME INPUT-FILE, SAME FOR PRNT-FILE
* AND UR-S-PRNT
EJECT
00000025
* EJECT DIRECTS THE PRINTER TO START THE NEXT
* OUTPUT TO BEGIN AT THE TOP OF THE PAGE
DATA DIVISION.
00000026
SKIP3
00000027
* SKIP 3 INSERTS 3 BLANK LINES
FILE SECTION.
00000028
SKIP2
00000029
* SKIP TO INSERTS 2 BLANK LINES
FD INPUT-FILE
00000030
BLOCK CONTAINS 0 RECORDS
00000031
* THIS INFORMS THE SYSTEM THAT NO RECORDS ARE PRESENT
* WHEN WE START (WE ARE READING OUR DATA FROM
* AN INLINE STREAM
LABEL RECORDS ARE STANDARD.
00000032
01 INPUT-REC PIC X(80). 0000033
SKIP2
00000034
FD PRNT-FILE
00000045
LABEL RECORDS ARE OMITTED.
00000046
01 PRNT-REC.
00000047
03 PIC X(60).
03 PIC X(65).
* THIS IS FORMATTING FOR OUR REPORT
SKIP2
00000048
EJECT
00000049
WORKING-STORAGE SECTION.
00000050
SKIP2
00000051
**************************************************************
00000052
* LAYOUT FOR THE INPUT FILE * 00000053
**************************************************************
00000054
01 INPUT-DATA.
00000055
03 I-NAME PIC X(20).
00000057
03 DEPT PIC X(10).
03 FILLER PIC X(50).
00000058
* FILLER IS USED FOR PADDING
SKIP2
00000062
EJECT
00000096
**************************************************************
00000097
* LAYOUT FOR THE 1ST DATA LINE OF REPORT PRNTING *
00000098
**************************************************************
00000099
01 PRNT-DATA1.
00000100
03 FILLER PIC X(10) VALUE SPACES.
00000101
03 L-NAME1 PIC X(20).
00000104
03 FILLER PIC X(10) VALUE SPACES.
03 DEPT1 PIC X(10).
03 EXTRA PIC X(50).
03 EXTRA2 PIC X(40)
VALUE 'QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ'.
03 EXTRA3 PIC X(5) VALUE 'EEEEE'.
SKIP2
00000105
**************************************************************
00000129
* LAYOUT FOR THE 1ST HEADING LINE OF REPORT PRNTING *
00000130
**************************************************************
00000131
01 PRNT-HEADING1.
00000132
03 FILLER PIC X(10) VALUE SPACES.
00000133
03 FILLER PIC X(20) VALUE 'NAME'.
00000136
03 FILLER PIC X(10) VALUE SPACES.
03 FILLER PIC X(10) VALUE 'DEPT'.
SKIP2
00000137
**************************************************************
00000155
* MISCELLANEOUS DATA NAMES *
00000156
**************************************************************
00000157
01 MISC.
00000158
SKIP2
00000159
**************************************************************
00000160
* END OF FILE (EOF) SWITCHES *
00000161
* 0 = NOT AT EOF 1 = AT EOF *
00000162
**************************************************************
00000163
03 EOF-I PIC 9 VALUE 0.
00000164
**************************************************************
00000201
* START OF PROCEDURE DIVISION *
00000202
**************************************************************
00000203
PROCEDURE DIVISION.
00000204
000-MAINLINE.
00000206
OPEN INPUT INPUT-FILE
00000207
OUTPUT PRNT-FILE.
00000210
PERFORM 2000-READ-INPUT.
00000211
PERFORM 1400-PRINT-HEAD.
PERFORM 1500-LOOP
00000217
UNTIL EOF-I = 1.
00000218
CLOSE INPUT-FILE 0000219
PRNT-FILE.
00000221
STOP RUN.
00000223
1400-PRINT-HEAD.
WRITE PRNT-REC FROM PRNT-HEADING1
00000265
AFTER ADVANCING PAGE.
00000266
MOVE SPACES TO PRNT-REC.
00000267
WRITE PRNT-REC
00000268
AFTER ADVANCING 1 LINE.
00000269
1500-LOOP.
00000248
PERFORM 1600-PRINT-NAMES.
00000255
PERFORM 2000-READ-INPUT. 0000249
**************************************************************
00000261
* PRINTS THE SCHEDULE INFORMATION *
00000262
**************************************************************
00000263
1600-PRINT-NAMES.
00000264
MOVE I-NAME TO L-NAME1.
00000271
MOVE DEPT TO DEPT1.
WRITE PRNT-REC FROM PRNT-DATA1
00000272
AFTER ADVANCING 1 LINE.
00000273
**************************************************************
00000324
* READS THE INPUT FILE * 0000325
**************************************************************
00000326
2000-READ-INPUT. 0000327
READ INPUT-FILE INTO INPUT-DATA 000328
AT END MOVE 1 TO EOF-I.
00000329
//GO.SYSOUT DD SYSOUT=*
//GO.SYSPRINT DD SYSOUT=*
//GO.INPUT DD *
VICKI HAMPTON CIS
GEORGE WASHINGTON ENG
IVAN ISGREAT PHY
IGOR ISBETTER
IVANA GOHOME
COB OL
HUGH LESS
GARY MORE
PAULA PANTHER
//GO.PRNT DD SYSOUT=*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
