Part A:  Coding MVS JCL - 80%

Code all JCL for the following job.  Use JCL comments to document any
guesses you are forced to make; state whether an incorrect guess would
cause a JCL error or a run-time error.

You may draw a Flow Diagram for this question using the paper provided;
but, it will not be marked.  Hand in the paper when you leave, even if
it is blank.

Use the programmer name CELINE DION and the account code MVSMID1. Request
highest priority within the JES-2 job queue.  We only need to see our
JOB statement; suppress the rest of the JCL.  We do want to see all the
JES-2 allocation messages.  Send the job JCL and JES-2 message listings
(about 200 lines) to the laser printer.

First, use a program named MAKEDATA to read 1000 records of instream
test data from DDname MKIN. The program will pro­ cess the test data and
create a new test dataset on an ANSI tape (any tape) using this COBOL
source code:

          SELECT TESTOUT ASSIGN TO OUTDAT.
          FD TESTOUT
          RECORD CONTAINS 40 CHARACTERS
          BLOCK CONTAINS 0 RECORDS
          ORGANIZATION IS SEQUENTIAL.

The dataset name of the output tape should be NEWTEST. Cata­ log this
tape after its last use.  This program will also produce about 2000
lines of print output that you should send to a standard printer.

Next, use the procedure NEWCLG to compile, link-edit and test an instream
COBOL program.  The link step is named COBOLNK, the test step is named
COBOPRG, and the compile step is named COMPILE. The IBM compiler reads
COBOL source using DDname SYSIN.

The test program will read the ANSI test data tape created in the previous
step, using DDname TAPERD.

The program will create a new payment dataset of about 3000 records on
tape #314159.  The COBOL code for this tape dataset is below:

          SELECT MASTER ASSIGN TO UPDTMS.
          FD MASTER
          RECORD CONTAINS 50 CHARACTERS
          BLOCK CONTAINS 0 RECORDS
          ORGANIZATION IS SEQUENTIAL.

Catalog this tape after its last use.

The program will produce about 1000 lines of output on DDname TAPPRT
that you should send to a standard printer.

The program will update a cataloged disk dataset of about 500 records
named PAYFILE using DDname MASTER.

Lastly, after the test, copy the payment tape created in the previous step
to the laser printer using IDCAMS. There is one line of output for every
record on the tape.  Hold the IDCAMS status messages for viewing via TSO.

In this shop, requests for specific tapes are in group TPGROUP,
non-specific tape requests are in group SCRATCH, and all disks are in
group DKGROUP.

JES-2 job scheduler classes for our shop are as follows:
       CLASS P - no tapes, maximum 600 prt lines, no use of laser printer
       CLASS Q - 1 tape, maximum 5000 prt lines, may use laser printer
       CLASS R - no tapes, maximum 6000 prt lines, no use of laser printer
       CLASS S - 2 tapes, maximum 7000 prt lines, may use laser printer
       CLASS T - 3 tapes, no prt line maximum, may use laser printer

JES-2 printer spooling classes for our shop are as follows:
       CLASS A - laser printer only, maximum 600 print lines
       CLASS B - laser printer only, maximum 4000 print lines
       CLASS C - standard printer, maximum 1900 print lines
       CLASS D - standard printer, no print line maximum
       CLASS E - hold for viewing from TSO terminal