Create and run a multistep job using the utility programs to perform the operations described below. Use proper JCL documentation.

If these utilities have not all been discussed in class before you begin work on this assignment, you may need to read about them in the course Notes book.

Input

Two input data sets are involved here, all catalogued:

• PDSDATA is a data set with data set name KC02314.SUMMER09.CSCI465.EXTRA4.DATA.

• EXTRALIB is a PDS with data set name KC02314.SUMMER09.CSCI465.EXTRA4.LIB.

The records in the PDSDATA data set are each 46 bytes long. They are in 3 groups. The first group is terminated by a record which has '(*)*(*)' in columns 6 through 12, and the second group is terminated by a record which has '???!!!' in columns 37 through 42.

The records in the various members of EXTRALIB also have a record length of 46.

Processing

Your job should contain the following steps:

1. Use IEFBR14 to create a new empty catalogued PDS with enough room in its directory to list 10 members. Invent a name for your PDS, starting with your Znumber.

2. Use IEBGENER to create 3 members of your PDS from the PDSDATA data set. Call the 3 members ALPHA, BETA and GAMMA, in that order.

3. Use IEBPTPCH to print all of the members of your PDS, in the order GAMMA, BETA, ALPHA. Use a page heading (centered) and double-spacing but no editing. You will need a RECORD FIELD statement.

4. Use IEBCOPY to copy the members FOURTH, MU and SECOND, in that order, from EXTRALIB into the PDS you created earlier. When you copy FOURTH, change its name to LAMBDA. When you copy SECOND, try to change its name to ALPHA, but do not use the REPLACING option.

5. Use IEBPTPCH to print the member ALPHA of your PDS. Use a page heading (centered) and triple-spacing. You can list the name of the member in parentheses in the SYSUT1 DD statement's DSN and print it as if it is an ordinary sequential data set.

6. Use IEBCOPY to copy the members OMICRON, NU and NEWALPHA, in that order, from the PDS named EXTRALIB into your PDS. When you copy NEWALPHA, change its name to ALPHA and make sure it replaces the original ALPHA.

7. Use IEBPTPCH to print the directory of your PDS. Read about how to do this in the Notes book. Do not use a RECORD FIELD statement. The output will be in the IEBPTPCH default format, and much of it will print as blanks.

8. Use IEBPTPCH with TYPORG=PO to print all of the members of your PDS. (You do not need any MEMBER statements.) Use a page heading (centered) and single-spacing. Use a RECORD FIELD statement. Remember the record length is 46. The member called ALPHA should not be the same as when you printed it before, and the order of the member should not be alphabetical.

9. Use IEFBR14 to delete the PDS you created earlier.

Notes

You should not need more space than (TRK,(1,1)).

When you create a new data set using IEBGENER, you will need to supply DCB information on the DD statements.

Put appropriate COND parameters on the steps that need them. Use COND=EVEN on the last step.

None of the IEBPTPCH steps ask you to use the default format.

Please don't do any extra steps. This is long enough as it is.