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 your name as the programmer name, and use account code MVSMIDTM.
Send the job JCL and JES-3 message listings to TSO.  Suppress the PROC
listings from appearing in the JCL listing, and also suppress allocation
messages issued by JES-3.  Request highest priority within the JES-3
job queue.

First, use IDCAMS to copy 500 records of instream test data to tape
#314159.  Delete this tape after its last use.  Send IDCAMS status
messages to a standard printer.

Next, use the procedure CLGCOBOL to compile, link-edit and test an
instream COBOL program.  The test step is named GOTST, the link step is
named DOLINK, and the compile step is named CCOBOL.

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

The program will produce about 1500 lines of output on DDname OUTPRN.
Send this output to the laser printer.

The program will update a cataloged disk dataset of about 2000 records
named MASTRPAY using DDname UPDTMS.

The program will create a payment tape file on tape #213546.  This tape
must be created in ANSI format, for shipping off-site.  The COBOL code
for this tape dataset is below:

          SELECT PAY-FILE ASSIGN TO PAYFIL.
          FD PAY-FILE
          RECORD CONTAINS 40 CHARACTERS
          BLOCK CONTAINS 0 RECORDS
          ORGANIZATION IS SEQUENTIAL.

Catalog this ANSI tape after its last use.

Lastly, verify the updated MASTRPAY disk dataset by using a program
named VERIMAST.  The VERIMAST program will read its input dataset from
DDname VERIINPT and output the results of the verification on DDname
VERIOUTP.  There is one line of output for every record in the input.
Send the output to the standard printer.

In this shop, all tapes are in group TAP; disks are in group DSK.

JES-3 job scheduler classes for our shop are as follows:
       CLASS A - no tapes, maximum 500 prt lines, no use of laser printer
       CLASS D - 1 tape, maximum 500 prt lines, may use laser printer
       CLASS F - no tapes, maximum 5000 prt lines, no use of laser printer
       CLASS H - 2 tapes, maximum 5000 prt lines, may use laser printer
       CLASS K - 3 tapes, no prt line maximum, may use laser printer

JES-3 printer spooling classes for our shop are as follows:
       CLASS A - laser printer only, maximum 500 prt lines
       CLASS B - laser printer only, maximum 5000 prt lines
       CLASS C - standard printer, maximum 1500 prt lines
       CLASS D - standard printer, no prt line maximum
       CLASS X - hold for viewing from TSO terminal