//JOB1 JOB                                                              00000010
//*                                                                     00000020
//* THIS JOB IS NOW SPLIT INTO SIX SEPARATE JOBS BECAUSE OF             00000030
//* IBM'S RESTRICTION THAT A JOB MAY NOT HAVE MORE THAN                 00000040
//* 255 STEPS. THE FIRST JOB HAS 200 STEPS THE SECOND THE REST.         00000050
//* THE SIXTH JOB WILL LOAD FILE 001 OF THE TAPE INTO A PRE-            00000060
//* DEFINED VSAM CLUSTER FOR INFO/MVS DATABASE PROCESSING (YOU          00000070
//* HAVE TO HAVE INFOMVS).                                              00000080
//*                                                                     00000090
//*                                                                     00000100
//*  YOU MAY HAVE A PROBLEM WITH SOME OF THESE FILES THAT ARE           00000110
//*  IEBCOPIED DOWN IF YOU TRY TO DROP TO A NON-3350 TYPE               00000120
//*  DEVICE SINCE MOST INPUT WAS FULL TRACK BLOCKED ON A 3350.          00000130
//*  THE ORIGINAL DCB'S ARE MARKED BELOW. YOU CAN DROP DOWN LOAD        00000140
//*  MODULES INTO A SMALLER BLOCKSIZE PDS, HOWEVER YOU WILL GET A       00000150
//*  WARNING MESSAGE AND YOU WILL NOT BE ABLE TO DO A COMPRESS          00000160
//*  IN PLACE ON THAT LIBRARY UNTIL YOU GET RID OF THE OFFENDING        00000170
//*  MEMBERS OR RELINK THEM BACK IN                                     00000180
//*                                                                     00000190
//*  YOU WILL GET THE FOLLOWING MESSAGE:                                00000200
//*  IEB175I - WARNING INPUT RECORD IS GREATER THAN OUTPUT BLKSIZE      00000210
//*            DDNAME=XXXXXXXX,OUTPUT TTRN=00000000                     00000220
//*                                                                     00000230
//*                                                                     00000240
//ASMFCL PROC  V1=ANY,         -   INPUT TAPE VOLUME                    00000250
//*            VO=,            -   OUTPUT DASD VOLUME                   00000260
//             P=CBT973,           DECOMPRESSION PROGRAM                00000270
//             LAB=002,            INPUT TAPE LABEL NUMBER FOR PROGRAM  00000280
//             CLASS=A,        -   SYSOUT CLASS                         00000290
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00000300
//             WORK2=SYSDA,        DASD WORK TYPE                       00000310
//             INDEX=MVS,      -   FIRST LEVEL INDEX FOR DSNAME         00000320
//             DSP=PASS,           OUTPUT DATASET DISPOSITION           00000330
//             UNT=TAPE,       -   TYPE UNIT NAME                       00000340
//             TY=NL,              TAPE FILE LABEL                      00000350
//             PRI=1,              PRIMARY ALLOCATION                   00000360
//             SEC=1,              SECONDARY ALLOCATION                 00000370
//             DIR=1,              NUMBER OF DIRECTORY BLOCKS           00000380
//             ALLOC=TRK,          ALLOC INCREMENT                      00000390
//             LR=80,              LRECL                                00000400
//             BKI=32720,          INPUT BLOCKSIZE                      00000410
//             FM=FB               RECFM                                00000420
//ASM      EXEC  PGM=IFOX00,REGION=256K,COND=EVEN,PARM='OBJECT,NODECK'  00000430
//SYSPRINT DD  SYSOUT=&CLASS                                            00000440
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                 00000450
//         DD  DSN=SYS1.AMODGEN,DISP=SHR                                00000460
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00000470
//SYSUT2   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00000480
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00000490
//SYSGO    DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(NEW,&DSP.),              00000500
//             UNIT=&WORK1.,FREE=CLOSE,                                 00000510
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE) VOL=SER=&VO           00000520
//SYSIN    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00000530
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKI.),               00000540
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00000550
//LKED     EXEC  PGM=IEWL,REGION=256K,COND=(4,LT,ASM),PARM=LIST         00000560
//SYSPRINT DD  SYSOUT=&CLASS                                            00000570
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00000580
//SYSLMOD  DD  DSN=&INDEX..FILE&LAB..LOAD(&P),DISP=(NEW,&DSP.),         00000590
//             UNIT=&WORK1.,FREE=CLOSE,                                 00000600
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE) VOL=SER=&VO     00000610
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(OLD,&DSP.),              00000620
//             LABEL=(&LAB,&TY.)                                        00000630
//       PEND                                                           00000640
//COPY   PROC  V1=ANY,             INPUT TAPE VOLUME                    00000650
//             VO=,                OUTPUT DASD VOLUME                   00000660
//             LAB=,               INPUT TAPE LABEL NUMBER              00000670
//             CLASS=A,            SYSOUT CLASS                         00000680
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00000690
//             WORK2=SYSDA,        DASD WORK TYPE                       00000700
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00000710
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME          00000720
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00000730
//             UNT=TAPE,           TYPE UNIT NAME                       00000740
//             TY=NL,              TAPE FILE LABEL                      00000750
//             PRI=190,            PRIMARY ALLOCATION                   00000760
//             SEC=190,            SECONDARY ALLOCATION                 00000770
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS           00000780
//             ALLOC=TRK           ALLOC INCREMENT                      00000790
//COPY     EXEC  PGM=IEBCOPY,REGION=256K,COND=EVEN                      00000800
//SYSPRINT DD  SYSOUT=&CLASS                                            00000810
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00000820
//SYSUT4   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00000830
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00000840
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00000850
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00000860
//             UNIT=&WORK1.,FREE=CLOSE,                                 00000870
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE),VOL=SER=&VO     00000880
//SYSIN    DD  DUMMY                                                    00000890
//       PEND                                                           00000900
//GENERO PROC  V1=ANY,             INPUT TAPE VOLUME                    00000910
//             VO=,                OUTPUT DASD VOLUME                   00000920
//             LAB=,               INPUT TAPE LABEL NUMBER              00000930
//             CLASS=A,            SYSOUT CLASS                         00000940
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00000950
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00000960
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME          00000970
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00000980
//             UNT=TAPE,           TYPE UNIT NAME                       00000990
//             TY=NL,              TAPE FILE LABEL                      00001000
//             PRI=190,            PRIMARY ALLOCATION                   00001010
//             SEC=190,            SECONDARY ALLOCATION                 00001020
//             ALLOC=TRK,          ALLOC INCREMENT                      00001030
//             LR=80,              LRECL                                00001040
//             BKI=32720,          INPUT BLOCKSIZE                      00001050
//             BKO=5600,           OUTPUT BLOCKSIZE                     00001060
//             FM=FB               RECFM                                00001070
//GENER    EXEC  PGM=IEBGENER,REGION=256K,COND=EVEN                     00001080
//SYSPRINT DD  SYSOUT=&CLASS                                            00001090
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00001100
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKI.),               00001110
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00001120
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00001130
//             UNIT=&WORK1.,FREE=CLOSE,                                 00001140
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00001150
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE),VOL=SER=&VO           00001160
//SYSIN    DD  DUMMY                                                    00001170
//       PEND                                                           00001180
//UPDATEO PROC V1=ANY,             INPUT TAPE VOLUME                    00001190
//             P=CBT973,           DECOMPRESSION PROGRAM                00001200
//             P1=IEBUPDTE,   PROGRAM TO PROCESS IEBUPDTE SYSIN         00001210
//*                           STREAM. YOU MAY USE THE NORMAL IBM PGM    00001220
//*                           OR YOU MAY HAVE INSTALLED THE PDSLOAD     00001230
//*                           PROGRAM FROM FILE 316 OF THE CBT TAPE     00001240
//*                           WHICH IS USEFUL FOR FILES UNLOADED BY     00001250
//*                           THE FAMOUS YALE OFFLOAD PROGRAM. CAN      00001260
//*                           CHANGE THE IMBEDDED '><' TO './' AS       00001270
//*                           RELOAD.                                   00001280
//             VO=,                OUTPUT DASD VOLUME                   00001290
//             LAB=,               INPUT TAPE LABEL NUMBER              00001300
//             CLASS=A,            SYSOUT CLASS                         00001310
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00001320
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00001330
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME          00001340
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00001350
//             UNT=TAPE,           TYPE UNIT NAME                       00001360
//             TY=NL,              TAPE FILE LABEL                      00001370
//             PRI=190,            PRIMARY ALLOCATION                   00001380
//             SEC=190,            SECONDARY ALLOCATION                 00001390
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS           00001400
//             ALLOC=TRK,          ALLOC INCREMENT                      00001410
//             LR=80,              LRECL                                00001420
//             BKI=32720,          INPUT BLOCKSIZE                      00001430
//             BKO=5600,           OUTPUT BLOCKSIZE                     00001440
//             FM=FB               RECFM                                00001450
//UPDATE1  EXEC  PGM=&P,REGION=512K,COND=EVEN                           00001460
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)                00001470
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00001480
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI.),                   00001490
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00001500
//OUTPUT   DD  DSN=&&TEMP,DISP=(NEW,PASS),                              00001510
//             UNIT=&WORK1.,                                            00001520
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00001530
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE) VOL=SER=&VO           00001540
//UPDATE2  EXEC  PGM=&P1,PARM=NEW,REGION=256K,COND=EVEN                 00001550
//SYSPRINT DD  SYSOUT=&CLASS                                            00001560
//SYSIN    DD  DSN=&&TEMP,DISP=(OLD,DELETE)                             00001570
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00001580
//             UNIT=&WORK1.,FREE=CLOSE,                                 00001590
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00001600
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE),VOL=SER=&VO     00001610
//       PEND                                                           00001620
//GENER  PROC  V1=ANY,             INPUT TAPE VOLUME                    00001630
//             VO=,                OUTPUT DASD VOLUME                   00001640
//             P=CBT973,           DECOMPRESSION PROGRAM                00001650
//             LAB=,               INPUT TAPE LABEL NUMBER              00001660
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00001670
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00001680
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME          00001690
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00001700
//             UNT=TAPE,           TYPE UNIT NAME                       00001710
//             TY=NL,              TAPE FILE LABEL                      00001720
//             PRI=190,            PRIMARY ALLOCATION                   00001730
//             SEC=190,            SECONDARY ALLOCATION                 00001740
//             ALLOC=TRK,          ALLOC INCREMENT                      00001750
//             LR=80,              LRECL                                00001760
//             BKI=32716,          INPUT BLOCKSIZE                      00001770
//             BKO=5600,           OUTPUT BLOCKSIZE                     00001780
//             FM=FB               RECFM                                00001790
//GENER    EXEC  PGM=&P,REGION=512K,COND=EVEN                           00001800
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)                00001810
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00001820
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI.),                   00001830
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00001840
//OUTPUT   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00001850
//             UNIT=&WORK1.,FREE=CLOSE,                                 00001860
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00001870
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE),VOL=SER=&VO           00001880
//       PEND                                                           00001890
//ASMFCL      EXEC ASMFCL                                               00001900
//STEP001     EXEC GENERO,LAB=001                                       00001910
//STEP002     EXEC GENERO,LAB=002                                       00001920
//STEP003     EXEC GENERO,LAB=003                                       00001930
//STEP004     EXEC UPDATEO,LAB=004                                      00001940
//STEP005     EXEC GENERO,LAB=005,FM=VB,LR=255,BKI=3120,BKO=3120        00001950
//STEP006     EXEC GENER,LAB=006                                        00001960
//STEP007     EXEC GENER,LAB=007                                        00001970
//STEP008     EXEC GENER,LAB=008                                        00001980
//STEP009     EXEC GENER,LAB=009                                        00001990
//STEP010     EXEC GENER,LAB=010                                        00002000
//STEP011     EXEC UPDATEO,LAB=011                                      00002010
//STEP012     EXEC UPDATEO,LAB=012                                      00002020
//STEP013     EXEC UPDATEO,LAB=013                                      00002030
//STEP014     EXEC UPDATEO,LAB=014                                      00002040
//STEP015     EXEC GENER,LAB=015                                        00002050
//STEP016     EXEC GENER,LAB=016                                        00002060
//STEP017     EXEC UPDATEO,LAB=017                                      00002070
//STEP018     EXEC GENERO,LAB=018,FM=FBA,LR=133,BKI=32718,BKO=6118      00002080
//STEP019     EXEC UPDATEO,LAB=019                                      00002090
//STEP020     EXEC UPDATEO,LAB=020                                      00002100
//STEP021     EXEC GENER,LAB=021                                        00002110
//STEP022     EXEC GENER,LAB=022,FM=FBA                                 00002120
//STEP023     EXEC UPDATEO,LAB=023                                      00002130
//STEP024     EXEC COPY,LAB=024   DCB=RECFM=U,BLKSIZE=13030             00002140
//STEP025     EXEC UPDATEO,LAB=025                                      00002150
//STEP026     EXEC COPY,LAB=026   DCB=RECFM=U,BLKSIZE=13030             00002160
//STEP027     EXEC GENER,LAB=027                                        00002170
//STEP028     EXEC GENER,LAB=028                                        00002180
//STEP029     EXEC GENER,LAB=029                                        00002190
//STEP030     EXEC GENER,LAB=030                                        00002200
//STEP031     EXEC GENER,LAB=031                                        00002210
//STEP032     EXEC UPDATEO,LAB=032                                      00002220
//STEP033     EXEC GENER,LAB=033                                        00002230
//STEP034     EXEC GENER,LAB=034                                        00002240
//STEP035     EXEC COPY,LAB=035   DCB=RECFM=U,BLKSIZE=19069             00002250
//STEP036     EXEC UPDATEO,LAB=036                                      00002260
//STEP037     EXEC UPDATEO,LAB=037                                      00002270
//STEP038     EXEC UPDATEO,LAB=038                                      00002280
//STEP039     EXEC UPDATEO,LAB=039                                      00002290
//STEP040     EXEC UPDATEO,LAB=040                                      00002300
//STEP041     EXEC UPDATEO,LAB=041                                      00002310
//STEP042     EXEC UPDATEO,LAB=042                                      00002320
//STEP043     EXEC GENERO,LAB=043,FM=FB,LR=133,BKI=32718,BKO=6118       00002330
//STEP044     EXEC COPY,LAB=044   DCB=RECFM=VB,LRECL=255,BLKSIZE=19060  00002340
//STEP045     EXEC UPDATEO,LAB=045                                      00002350
//STEP046     EXEC UPDATEO,LAB=046                                      00002360
//STEP047     EXEC GENER,LAB=047                                        00002370
//STEP048     EXEC GENER,LAB=048                                        00002380
//STEP049     EXEC GENER,LAB=049                                        00002390
//STEP050     EXEC GENER,LAB=050                                        00002400
//STEP051     EXEC GENER,LAB=051                                        00002410
//STEP052     EXEC GENER,LAB=052                                        00002420
//STEP053     EXEC GENER,LAB=053                                        00002430
//STEP054     EXEC GENER,LAB=054                                        00002440
//STEP055     EXEC GENER,LAB=055                                        00002450
//STEP056     EXEC GENER,LAB=056                                        00002460
//STEP057     EXEC UPDATEO,LAB=057                                      00002470
//STEP058     EXEC UPDATEO,LAB=058                                      00002480
//STEP059     EXEC GENERO,LAB=059,FM=VBA,LR=137,BKI=32747,BKO=6136      00002490
//STEP060     EXEC UPDATEO,LAB=060                                      00002500
//STEP061     EXEC UPDATEO,LAB=061                                      00002510
//STEP062     EXEC GENER,LAB=062                                        00002520
//STEP063     EXEC UPDATEO,LAB=063                                      00002530
//STEP064     EXEC COPY,LAB=064   DCB=RECFM=U,BLKSIZE=13030             00002540
//STEP065     EXEC UPDATEO,LAB=065                                      00002550
//STEP066     EXEC UPDATEO,LAB=066                                      00002560
//STEP067     EXEC UPDATEO,LAB=067                                      00002570
//STEP068     EXEC UPDATEO,LAB=068                                      00002580
//STEP069     EXEC UPDATEO,LAB=069                                      00002590
//STEP070     EXEC GENER,LAB=070                                        00002600
//STEP071     EXEC GENER,LAB=071                                        00002610
//STEP072     EXEC UPDATEO,LAB=072                                      00002620
//STEP073     EXEC UPDATEO,LAB=073                                      00002630
//STEP074     EXEC GENERO,LAB=074,FM=FBA,LR=133,BKI=32718,BKO=6118      00002640
//STEP075     EXEC UPDATEO,LAB=075                                      00002650
//STEP076     EXEC GENER,LAB=076                                        00002660
//STEP077     EXEC GENER,LAB=077,FM=FBA                                 00002670
//STEP078     EXEC GENER,LAB=078                                        00002680
//STEP079     EXEC GENER,LAB=079                                        00002690
//STEP080     EXEC UPDATEO,LAB=080                                      00002700
//STEP081     EXEC GENER,LAB=081                                        00002710
//STEP082     EXEC GENER,LAB=082,FM=FBA                                 00002720
//STEP083     EXEC GENER,LAB=083                                        00002730
//STEP084     EXEC GENER,LAB=084                                        00002740
//STEP085     EXEC GENER,LAB=085                                        00002750
//STEP086     EXEC GENER,LAB=086                                        00002760
//STEP087     EXEC UPDATEO,LAB=087                                      00002770
//STEP088     EXEC COPY,LAB=088   DCB=RECFM=VB,LRECL=104,BLKSIZE=18932  00002780
//STEP089     EXEC GENER,LAB=089                                        00002790
//STEP090     EXEC GENER,LAB=090                                        00002800
//STEP091     EXEC GENER,LAB=091                                        00002810
//STEP092     EXEC UPDATEO,LAB=092                                      00002820
//STEP093     EXEC UPDATEO,LAB=093                                      00002830
//STEP094     EXEC UPDATEO,LAB=094                                      00002840
//STEP095     EXEC GENER,LAB=095                                        00002850
//STEP096     EXEC GENERO,LAB=096,FM=FBM,LR=133,BKI=32718,BKO=6118      00002860
//STEP097     EXEC GENERO,LAB=097,FM=FBA,LR=133,BKI=32718,BKO=6118      00002870
//STEP098     EXEC GENER,LAB=098                                        00002880
//STEP099     EXEC GENER,LAB=099                                        00002890
//JOB2 JOB                                                              00002900
//*                                                                     00002910
//* THIS JOB IS NOW SPLIT INTO SIX SEPARATE JOBS BECAUSE OF             00002920
//* IBM'S RESTRICTION THAT A JOB MAY NOT HAVE MORE THAN                 00002930
//* 255 STEPS. THE FIRST JOB HAS 200 STEPS THE SECOND THE REST.         00002940
//* THE SIXTH JOB WILL LOAD FILE 001 OF THE TAPE INTO A PRE-            00002950
//* DEFINED VSAM CLUSTER FOR INFO/MVS DATABASE PROCESSING (YOU          00002960
//* HAVE TO HAVE INFOMVS).                                              00002970
//*                                                                     00002980
//*                                                                     00002990
//*  YOU MAY HAVE A PROBLEM WITH SOME OF THESE FILES THAT ARE           00003000
//*  IEBCOPIED DOWN IF YOU TRY TO DROP TO A NON-3350 TYPE               00003010
//*  DEVICE SINCE MOST INPUT WAS FULL TRACK BLOCKED ON A 3350.          00003020
//*  THE ORIGINAL DCB'S ARE MARKED BELOW. YOU CAN DROP DOWN LOAD        00003030
//*  MODULES INTO A SMALLER BLOCKSIZE PDS, HOWEVER YOU WILL GET A       00003040
//*  WARNING MESSAGE AND YOU WILL NOT BE ABLE TO DO A COMPRESS          00003050
//*  IN PLACE ON THAT LIBRARY UNTIL YOU GET RID OF THE OFFENDING        00003060
//*  MEMBERS OR RELINK THEM BACK IN                                     00003070
//*                                                                     00003080
//*  YOU WILL GET THE FOLLOWING MESSAGE:                                00003090
//*  IEB175I - WARNING INPUT RECORD IS GREATER THAN OUTPUT BLKSIZE      00003100
//*            DDNAME=XXXXXXXX,OUTPUT TTRN=00000000                     00003110
//*                                                                     00003120
//*                                                                     00003130
//ASMFCL PROC  V1=ANY,         -   INPUT TAPE VOLUME                    00003140
//*            VO=,            -   OUTPUT DASD VOLUME                   00003150
//             P=CBT973,           DECOMPRESSION PROGRAM                00003160
//             LAB=002,            INPUT TAPE LABEL NUMBER FOR PROGRAM  00003170
//             CLASS=A,        -   SYSOUT CLASS                         00003180
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00003190
//             WORK2=SYSDA,        DASD WORK TYPE                       00003200
//             INDEX=MVS,      -   FIRST LEVEL INDEX FOR DSNAME         00003210
//             DSP=PASS,           OUTPUT DATASET DISPOSITION           00003220
//             UNT=TAPE,       -   TYPE UNIT NAME                       00003230
//             TY=NL,              TAPE FILE LABEL                      00003240
//             PRI=1,              PRIMARY ALLOCATION                   00003250
//             SEC=1,              SECONDARY ALLOCATION                 00003260
//             DIR=1,              NUMBER OF DIRECTORY BLOCKS           00003270
//             ALLOC=TRK,          ALLOC INCREMENT                      00003280
//             LR=80,              LRECL                                00003290
//             BKI=32720,          INPUT BLOCKSIZE                      00003300
//             FM=FB               RECFM                                00003310
//ASM      EXEC  PGM=IFOX00,REGION=256K,COND=EVEN,PARM='OBJECT,NODECK'  00003320
//SYSPRINT DD  SYSOUT=&CLASS                                            00003330
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                 00003340
//         DD  DSN=SYS1.AMODGEN,DISP=SHR                                00003350
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00003360
//SYSUT2   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00003370
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00003380
//SYSGO    DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(NEW,&DSP.),              00003390
//             UNIT=&WORK1.,FREE=CLOSE,                                 00003400
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE) VOL=SER=&VO           00003410
//SYSIN    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00003420
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKI.),               00003430
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00003440
//LKED     EXEC  PGM=IEWL,REGION=256K,COND=(4,LT,ASM),PARM=LIST         00003450
//SYSPRINT DD  SYSOUT=&CLASS                                            00003460
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00003470
//SYSLMOD  DD  DSN=&INDEX..FILE&LAB..LOAD(&P),DISP=(NEW,&DSP.),         00003480
//             UNIT=&WORK1.,FREE=CLOSE,                                 00003490
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE) VOL=SER=&VO     00003500
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(OLD,&DSP.),              00003510
//             LABEL=(&LAB,&TY.)                                        00003520
//       PEND                                                           00003530
//COPY   PROC  V1=ANY,             INPUT TAPE VOLUME                    00003540
//             VO=,                OUTPUT DASD VOLUME                   00003550
//             LAB=,               INPUT TAPE LABEL NUMBER              00003560
//             CLASS=A,            SYSOUT CLASS                         00003570
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00003580
//             WORK2=SYSDA,        DASD WORK TYPE                       00003590
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00003600
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME          00003610
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00003620
//             UNT=TAPE,           TYPE UNIT NAME                       00003630
//             TY=NL,              TAPE FILE LABEL                      00003640
//             PRI=190,            PRIMARY ALLOCATION                   00003650
//             SEC=190,            SECONDARY ALLOCATION                 00003660
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS           00003670
//             ALLOC=TRK           ALLOC INCREMENT                      00003680
//COPY     EXEC  PGM=IEBCOPY,REGION=256K,COND=EVEN                      00003690
//SYSPRINT DD  SYSOUT=&CLASS                                            00003700
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00003710
//SYSUT4   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00003720
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00003730
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00003740
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00003750
//             UNIT=&WORK1.,FREE=CLOSE,                                 00003760
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE),VOL=SER=&VO     00003770
//SYSIN    DD  DUMMY                                                    00003780
//       PEND                                                           00003790
//GENERO PROC  V1=ANY,             INPUT TAPE VOLUME                    00003800
//             VO=,                OUTPUT DASD VOLUME                   00003810
//             LAB=,               INPUT TAPE LABEL NUMBER              00003820
//             CLASS=A,            SYSOUT CLASS                         00003830
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00003840
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00003850
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME          00003860
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00003870
//             UNT=TAPE,           TYPE UNIT NAME                       00003880
//             TY=NL,              TAPE FILE LABEL                      00003890
//             PRI=190,            PRIMARY ALLOCATION                   00003900
//             SEC=190,            SECONDARY ALLOCATION                 00003910
//             ALLOC=TRK,          ALLOC INCREMENT                      00003920
//             LR=80,              LRECL                                00003930
//             BKI=32720,          INPUT BLOCKSIZE                      00003940
//             BKO=5600,           OUTPUT BLOCKSIZE                     00003950
//             FM=FB               RECFM                                00003960
//GENER    EXEC  PGM=IEBGENER,REGION=256K,COND=EVEN                     00003970
//SYSPRINT DD  SYSOUT=&CLASS                                            00003980
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00003990
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKI.),               00004000
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00004010
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00004020
//             UNIT=&WORK1.,FREE=CLOSE,                                 00004030
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00004040
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE),VOL=SER=&VO           00004050
//SYSIN    DD  DUMMY                                                    00004060
//       PEND                                                           00004070
//UPDATEO PROC V1=ANY,             INPUT TAPE VOLUME                    00004080
//             P=CBT973,           DECOMPRESSION PROGRAM                00004090
//             P1=IEBUPDTE,   PROGRAM TO PROCESS IEBUPDTE SYSIN         00004100
//*                           STREAM. YOU MAY USE THE NORMAL IBM PGM    00004110
//*                           OR YOU MAY HAVE INSTALLED THE PDSLOAD     00004120
//*                           PROGRAM FROM FILE 316 OF THE CBT TAPE     00004130
//*                           WHICH IS USEFUL FOR FILES UNLOADED BY     00004140
//*                           THE FAMOUS YALE OFFLOAD PROGRAM. CAN      00004150
//*                           CHANGE THE IMBEDDED '><' TO './' AS       00004160
//*                           RELOAD.                                   00004170
//             VO=,                OUTPUT DASD VOLUME                   00004180
//             LAB=,               INPUT TAPE LABEL NUMBER              00004190
//             CLASS=A,            SYSOUT CLASS                         00004200
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00004210
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00004220
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME          00004230
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00004240
//             UNT=TAPE,           TYPE UNIT NAME                       00004250
//             TY=NL,              TAPE FILE LABEL                      00004260
//             PRI=190,            PRIMARY ALLOCATION                   00004270
//             SEC=190,            SECONDARY ALLOCATION                 00004280
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS           00004290
//             ALLOC=TRK,          ALLOC INCREMENT                      00004300
//             LR=80,              LRECL                                00004310
//             BKI=32720,          INPUT BLOCKSIZE                      00004320
//             BKO=5600,           OUTPUT BLOCKSIZE                     00004330
//             FM=FB               RECFM                                00004340
//UPDATE1  EXEC  PGM=&P,REGION=512K,COND=EVEN                           00004350
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)                00004360
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00004370
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI.),                   00004380
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00004390
//OUTPUT   DD  DSN=&&TEMP,DISP=(NEW,PASS),                              00004400
//             UNIT=&WORK1.,                                            00004410
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00004420
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE) VOL=SER=&VO           00004430
//UPDATE2  EXEC  PGM=&P1,PARM=NEW,REGION=256K,COND=EVEN                 00004440
//SYSPRINT DD  SYSOUT=&CLASS                                            00004450
//SYSIN    DD  DSN=&&TEMP,DISP=(OLD,DELETE)                             00004460
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00004470
//             UNIT=&WORK1.,FREE=CLOSE,                                 00004480
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00004490
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE),VOL=SER=&VO     00004500
//       PEND                                                           00004510
//GENER  PROC  V1=ANY,             INPUT TAPE VOLUME                    00004520
//             VO=,                OUTPUT DASD VOLUME                   00004530
//             P=CBT973,           DECOMPRESSION PROGRAM                00004540
//             LAB=,               INPUT TAPE LABEL NUMBER              00004550
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00004560
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00004570
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME          00004580
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00004590
//             UNT=TAPE,           TYPE UNIT NAME                       00004600
//             TY=NL,              TAPE FILE LABEL                      00004610
//             PRI=190,            PRIMARY ALLOCATION                   00004620
//             SEC=190,            SECONDARY ALLOCATION                 00004630
//             ALLOC=TRK,          ALLOC INCREMENT                      00004640
//             LR=80,              LRECL                                00004650
//             BKI=32716,          INPUT BLOCKSIZE                      00004660
//             BKO=5600,           OUTPUT BLOCKSIZE                     00004670
//             FM=FB               RECFM                                00004680
//GENER    EXEC  PGM=&P,REGION=512K,COND=EVEN                           00004690
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)                00004700
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00004710
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI.),                   00004720
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00004730
//OUTPUT   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00004740
//             UNIT=&WORK1.,FREE=CLOSE,                                 00004750
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00004760
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE),VOL=SER=&VO           00004770
//       PEND                                                           00004780
//ASMFCL      EXEC ASMFCL                                               00004790
//STEP100     EXEC UPDATEO,LAB=100                                      00004800
//STEP101     EXEC UPDATEO,LAB=101                                      00004810
//STEP102     EXEC UPDATEO,LAB=102                                      00004820
//STEP103     EXEC GENER,LAB=103                                        00004830
//STEP104     EXEC GENERO,LAB=104,FM=FBM,LR=133,BKI=32718,BKO=6118      00004840
//STEP105     EXEC GENER,LAB=105                                        00004850
//STEP106     EXEC GENER,LAB=106                                        00004860
//STEP107     EXEC GENER,LAB=107                                        00004870
//STEP108     EXEC GENER,LAB=108                                        00004880
//STEP109     EXEC GENER,LAB=109                                        00004890
//STEP110     EXEC GENER,LAB=110                                        00004900
//STEP111     EXEC GENERO,LAB=111,FM=FBM,LR=133,BKI=32718,BKO=6118      00004910
//STEP112     EXEC UPDATEO,LAB=112                                      00004920
//STEP113     EXEC UPDATEO,LAB=113                                      00004930
//STEP114     EXEC GENERO,LAB=114,FM=FBA,LR=133,BKI=32718,BKO=6118      00004940
//STEP115     EXEC UPDATEO,LAB=115                                      00004950
//STEP116     EXEC GENER,LAB=116                                        00004960
//STEP117     EXEC GENER,LAB=117                                        00004970
//STEP118     EXEC GENER,LAB=118                                        00004980
//STEP119     EXEC UPDATEO,LAB=119                                      00004990
//STEP120     EXEC GENER,LAB=120                                        00005000
//STEP121     EXEC GENER,LAB=121                                        00005010
//STEP122     EXEC UPDATEO,LAB=122                                      00005020
//STEP123     EXEC GENER,LAB=123                                        00005030
//STEP124     EXEC UPDATEO,LAB=124                                      00005040
//STEP125     EXEC GENERO,LAB=125,FM=FBA,LR=133,BKI=32718,BKO=6118      00005050
//STEP126     EXEC GENER,LAB=126                                        00005060
//STEP127     EXEC UPDATEO,LAB=127                                      00005070
//STEP128     EXEC UPDATEO,LAB=128                                      00005080
//STEP129     EXEC GENER,LAB=129                                        00005090
//STEP130     EXEC GENER,LAB=130,FM=FBA                                 00005100
//STEP131     EXEC GENER,LAB=131                                        00005110
//STEP132     EXEC GENER,LAB=132                                        00005120
//STEP133     EXEC GENER,LAB=133                                        00005130
//STEP134     EXEC GENER,LAB=134                                        00005140
//STEP135     EXEC GENER,LAB=135                                        00005150
//STEP136     EXEC UPDATEO,LAB=136                                      00005160
//STEP137     EXEC UPDATEO,LAB=137                                      00005170
//STEP138     EXEC GENER,LAB=138                                        00005180
//STEP139     EXEC UPDATEO,LAB=139                                      00005190
//STEP140     EXEC GENER,LAB=140                                        00005200
//STEP141     EXEC UPDATEO,LAB=141                                      00005210
//STEP142     EXEC GENER,LAB=142                                        00005220
//STEP143     EXEC UPDATEO,LAB=143                                      00005230
//STEP144     EXEC UPDATEO,LAB=144                                      00005240
//STEP145     EXEC UPDATEO,LAB=145                                      00005250
//STEP146     EXEC GENER,LAB=146                                        00005260
//STEP147     EXEC GENER,LAB=147                                        00005270
//STEP148     EXEC UPDATEO,LAB=148                                      00005280
//STEP149     EXEC UPDATEO,LAB=149                                      00005290
//STEP150     EXEC GENER,LAB=150                                        00005300
//STEP151     EXEC GENER,LAB=151                                        00005310
//STEP152     EXEC GENER,LAB=152                                        00005320
//STEP153     EXEC UPDATEO,LAB=153                                      00005330
//STEP154     EXEC GENER,LAB=154                                        00005340
//STEP155     EXEC GENER,LAB=155,FM=FBM                                 00005350
//STEP156     EXEC GENER,LAB=156                                        00005360
//STEP157     EXEC GENER,LAB=157                                        00005370
//STEP158     EXEC UPDATEO,LAB=158                                      00005380
//STEP159     EXEC GENER,LAB=159                                        00005390
//STEP160     EXEC UPDATEO,LAB=160                                      00005400
//STEP161     EXEC UPDATEO,LAB=161                                      00005410
//STEP162     EXEC UPDATEO,LAB=162                                      00005420
//STEP163     EXEC GENER,LAB=163                                        00005430
//STEP164     EXEC GENER,LAB=164                                        00005440
//STEP165     EXEC GENER,LAB=165                                        00005450
//STEP166     EXEC GENER,LAB=166                                        00005460
//STEP167     EXEC UPDATEO,LAB=167                                      00005470
//STEP168     EXEC UPDATEO,LAB=168                                      00005480
//STEP169     EXEC UPDATEO,LAB=169                                      00005490
//STEP170     EXEC UPDATEO,LAB=170                                      00005500
//STEP171     EXEC COPY,LAB=171   DCB=RECFM=U,BLKSIZE=19069             00005510
//STEP172     EXEC GENER,LAB=172,FM=FBA                                 00005520
//STEP173     EXEC UPDATEO,LAB=173                                      00005530
//STEP174     EXEC UPDATEO,LAB=174                                      00005540
//STEP175     EXEC UPDATEO,LAB=175                                      00005550
//STEP176     EXEC GENER,LAB=176                                        00005560
//STEP177     EXEC GENER,LAB=177                                        00005570
//STEP178     EXEC GENER,LAB=178                                        00005580
//STEP179     EXEC GENER,LAB=179                                        00005590
//STEP180     EXEC GENER,LAB=180                                        00005600
//STEP181     EXEC GENER,LAB=181                                        00005610
//STEP182     EXEC UPDATEO,LAB=182                                      00005620
//STEP183     EXEC GENER,LAB=183                                        00005630
//STEP184     EXEC GENER,LAB=184                                        00005640
//STEP185     EXEC GENER,LAB=185                                        00005650
//STEP186     EXEC UPDATEO,LAB=186                                      00005660
//STEP187     EXEC GENER,LAB=187                                        00005670
//STEP188     EXEC GENER,LAB=188                                        00005680
//STEP189     EXEC GENER,LAB=189                                        00005690
//STEP190     EXEC GENER,LAB=190                                        00005700
//STEP191     EXEC GENER,LAB=191                                        00005710
//STEP192     EXEC GENER,LAB=192                                        00005720
//STEP193     EXEC GENER,LAB=193                                        00005730
//STEP194     EXEC GENER,LAB=194                                        00005740
//STEP195     EXEC GENER,LAB=195                                        00005750
//STEP196     EXEC GENER,LAB=196                                        00005760
//STEP197     EXEC GENER,LAB=197                                        00005770
//STEP198     EXEC UPDATEO,LAB=198                                      00005780
//STEP199     EXEC GENER,LAB=199                                        00005790
//JOB3 JOB                                                              00005800
//*                                                                     00005810
//* THIS JOB IS NOW SPLIT INTO SIX SEPARATE JOBS BECAUSE OF             00005820
//* IBM'S RESTRICTION THAT A JOB MAY NOT HAVE MORE THAN                 00005830
//* 255 STEPS. THE FIRST JOB HAS 200 STEPS THE SECOND THE REST.         00005840
//* THE SIXTH JOB WILL LOAD FILE 001 OF THE TAPE INTO A PRE-            00005850
//* DEFINED VSAM CLUSTER FOR INFO/MVS DATABASE PROCESSING (YOU          00005860
//* HAVE TO HAVE INFOMVS).                                              00005870
//*                                                                     00005880
//*                                                                     00005890
//*  YOU MAY HAVE A PROBLEM WITH SOME OF THESE FILES THAT ARE           00005900
//*  IEBCOPIED DOWN IF YOU TRY TO DROP TO A NON-3350 TYPE               00005910
//*  DEVICE SINCE MOST INPUT WAS FULL TRACK BLOCKED ON A 3350.          00005920
//*  THE ORIGINAL DCB'S ARE MARKED BELOW. YOU CAN DROP DOWN LOAD        00005930
//*  MODULES INTO A SMALLER BLOCKSIZE PDS, HOWEVER YOU WILL GET A       00005940
//*  WARNING MESSAGE AND YOU WILL NOT BE ABLE TO DO A COMPRESS          00005950
//*  IN PLACE ON THAT LIBRARY UNTIL YOU GET RID OF THE OFFENDING        00005960
//*  MEMBERS OR RELINK THEM BACK IN                                     00005970
//*                                                                     00005980
//*  YOU WILL GET THE FOLLOWING MESSAGE:                                00005990
//*  IEB175I - WARNING INPUT RECORD IS GREATER THAN OUTPUT BLKSIZE      00006000
//*            DDNAME=XXXXXXXX,OUTPUT TTRN=00000000                     00006010
//*                                                                     00006020
//*                                                                     00006030
//ASMFCL PROC  V1=ANY,             INPUT TAPE VOLUME                    00006040
//*            VO=,                OUTPUT DASD VOLUME                   00006050
//             P=CBT973,           DECOMPRESSION PROGRAM                00006060
//             LAB=002,            INPUT TAPE LABEL NUMBER FOR PROGRAM  00006070
//             CLASS=A,            SYSOUT CLASS                         00006080
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00006090
//             WORK2=SYSDA,        DASD WORK TYPE                       00006100
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00006110
//             DSP=PASS,           OUTPUT DATASET DISPOSITION           00006120
//             UNT=TAPE,           TYPE UNIT NAME                       00006130
//             TY=NL,              TAPE FILE LABEL                      00006140
//             PRI=1,              PRIMARY ALLOCATION                   00006150
//             SEC=1,              SECONDARY ALLOCATION                 00006160
//             DIR=1,              NUMBER OF DIRECTORY BLOCKS           00006170
//             ALLOC=TRK,          ALLOC INCREMENT                      00006180
//             LR=80,              LRECL                                00006190
//             BKI=32720,          INPUT BLOCKSIZE                      00006200
//             FM=FB               RECFM                                00006210
//ASM      EXEC  PGM=IFOX00,REGION=256K,COND=EVEN,PARM='OBJECT,NODECK'  00006220
//SYSPRINT DD  SYSOUT=&CLASS                                            00006230
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                 00006240
//         DD  DSN=SYS1.AMODGEN,DISP=SHR                                00006250
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00006260
//SYSUT2   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00006270
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00006280
//SYSGO    DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(NEW,&DSP.),              00006290
//             UNIT=&WORK1.,FREE=CLOSE,                                 00006300
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE) VOL=SER=&VO           00006310
//SYSIN    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00006320
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKI.),               00006330
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00006340
//LKED     EXEC  PGM=IEWL,REGION=256K,COND=(4,LT,ASM),PARM=LIST         00006350
//SYSPRINT DD  SYSOUT=&CLASS                                            00006360
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00006370
//SYSLMOD  DD  DSN=&INDEX..FILE&LAB..LOAD(&P),DISP=(NEW,&DSP.),         00006380
//             UNIT=&WORK1.,FREE=CLOSE,                                 00006390
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE) VOL=SER=&VO     00006400
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(OLD,&DSP.),              00006410
//             LABEL=(&LAB,&TY.)                                        00006420
//       PEND                                                           00006430
//COPY   PROC  V1=ANY,             INPUT TAPE VOLUME                    00006440
//             VO=,                OUTPUT DASD VOLUME                   00006450
//             LAB=,               INPUT TAPE LABEL NUMBER              00006460
//             CLASS=A,            SYSOUT CLASS                         00006470
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00006480
//             WORK2=SYSDA,        DASD WORK TYPE                       00006490
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00006500
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME          00006510
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00006520
//             UNT=TAPE,           TYPE UNIT NAME                       00006530
//             TY=NL,              TAPE FILE LABEL                      00006540
//             PRI=190,            PRIMARY ALLOCATION                   00006550
//             SEC=190,            SECONDARY ALLOCATION                 00006560
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS           00006570
//             ALLOC=TRK           ALLOC INCREMENT                      00006580
//COPY     EXEC  PGM=IEBCOPY,REGION=256K,COND=EVEN                      00006590
//SYSPRINT DD  SYSOUT=&CLASS                                            00006600
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00006610
//SYSUT4   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00006620
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00006630
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00006640
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00006650
//             UNIT=&WORK1.,FREE=CLOSE,                                 00006660
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE),VOL=SER=&VO     00006670
//SYSIN    DD  DUMMY                                                    00006680
//       PEND                                                           00006690
//GENERO PROC  V1=ANY,             INPUT TAPE VOLUME                    00006700
//             VO=,                OUTPUT DASD VOLUME                   00006710
//             LAB=,               INPUT TAPE LABEL NUMBER              00006720
//             CLASS=A,            SYSOUT CLASS                         00006730
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00006740
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00006750
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME          00006760
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00006770
//             UNT=TAPE,           TYPE UNIT NAME                       00006780
//             TY=NL,              TAPE FILE LABEL                      00006790
//             PRI=190,            PRIMARY ALLOCATION                   00006800
//             SEC=190,            SECONDARY ALLOCATION                 00006810
//             ALLOC=TRK,          ALLOC INCREMENT                      00006820
//             LR=80,              LRECL                                00006830
//             BKI=32720,          INPUT BLOCKSIZE                      00006840
//             BKO=5600,           OUTPUT BLOCKSIZE                     00006850
//             FM=FB               RECFM                                00006860
//GENER    EXEC  PGM=IEBGENER,REGION=256K,COND=EVEN                     00006870
//SYSPRINT DD  SYSOUT=&CLASS                                            00006880
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00006890
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKI.),               00006900
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00006910
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00006920
//             UNIT=&WORK1.,FREE=CLOSE,                                 00006930
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00006940
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE),VOL=SER=&VO           00006950
//SYSIN    DD  DUMMY                                                    00006960
//       PEND                                                           00006970
//UPDATEO PROC V1=ANY,             INPUT TAPE VOLUME                    00006980
//             P=CBT973,           DECOMPRESSION PROGRAM                00006990
//             P1=IEBUPDTE,   PROGRAM TO PROCESS IEBUPDTE SYSIN         00007000
//*                           STREAM. YOU MAY USE THE NORMAL IBM PGM    00007010
//*                           OR YOU MAY HAVE INSTALLED THE PDSLOAD     00007020
//*                           PROGRAM FROM FILE 316 OF THE CBT TAPE     00007030
//*                           WHICH IS USEFUL FOR FILES UNLOADED BY     00007040
//*                           THE FAMOUS YALE OFFLOAD PROGRAM. CAN      00007050
//*                           CHANGE THE IMBEDDED '><' TO './' AS       00007060
//*                           RELOAD.                                   00007070
//             VO=,                OUTPUT DASD VOLUME                   00007080
//             LAB=,               INPUT TAPE LABEL NUMBER              00007090
//             CLASS=A,            SYSOUT CLASS                         00007100
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00007110
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00007120
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME          00007130
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00007140
//             UNT=TAPE,           TYPE UNIT NAME                       00007150
//             TY=NL,              TAPE FILE LABEL                      00007160
//             PRI=190,            PRIMARY ALLOCATION                   00007170
//             SEC=190,            SECONDARY ALLOCATION                 00007180
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS           00007190
//             ALLOC=TRK,          ALLOC INCREMENT                      00007200
//             LR=80,              LRECL                                00007210
//             BKI=32720,          INPUT BLOCKSIZE                      00007220
//             BKO=5600,           OUTPUT BLOCKSIZE                     00007230
//             FM=FB               RECFM                                00007240
//UPDATE1  EXEC  PGM=&P,REGION=512K,COND=EVEN                           00007250
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)                00007260
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00007270
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI.),                   00007280
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00007290
//OUTPUT   DD  DSN=&&TEMP,DISP=(NEW,PASS),                              00007300
//             UNIT=&WORK1.,                                            00007310
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00007320
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE) VOL=SER=&VO           00007330
//UPDATE2  EXEC  PGM=&P1,PARM=NEW,REGION=256K,COND=EVEN                 00007340
//SYSPRINT DD  SYSOUT=&CLASS                                            00007350
//SYSIN    DD  DSN=&&TEMP,DISP=(OLD,DELETE)                             00007360
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00007370
//             UNIT=&WORK1.,FREE=CLOSE,                                 00007380
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00007390
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE),VOL=SER=&VO     00007400
//       PEND                                                           00007410
//GENER  PROC  V1=ANY,             INPUT TAPE VOLUME                    00007420
//             VO=,                OUTPUT DASD VOLUME                   00007430
//             P=CBT973,           DECOMPRESSION PROGRAM                00007440
//             LAB=,               INPUT TAPE LABEL NUMBER              00007450
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00007460
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00007470
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME          00007480
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00007490
//             UNT=TAPE,           TYPE UNIT NAME                       00007500
//             TY=NL,              TAPE FILE LABEL                      00007510
//             PRI=190,            PRIMARY ALLOCATION                   00007520
//             SEC=190,            SECONDARY ALLOCATION                 00007530
//             ALLOC=TRK,          ALLOC INCREMENT                      00007540
//             LR=80,              LRECL                                00007550
//             BKI=32716,          INPUT BLOCKSIZE                      00007560
//             BKO=5600,           OUTPUT BLOCKSIZE                     00007570
//             FM=FB               RECFM                                00007580
//GENER    EXEC  PGM=&P,REGION=512K,COND=EVEN                           00007590
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)                00007600
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00007610
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI.),                   00007620
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00007630
//OUTPUT   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00007640
//             UNIT=&WORK1.,FREE=CLOSE,                                 00007650
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00007660
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE),VOL=SER=&VO           00007670
//       PEND                                                           00007680
//ASMFCL      EXEC ASMFCL                                               00007690
//STEP200     EXEC UPDATEO,LAB=200                                      00007700
//STEP201     EXEC GENER,LAB=201                                        00007710
//STEP202     EXEC UPDATEO,LAB=202                                      00007720
//STEP203     EXEC GENER,LAB=203                                        00007730
//STEP204     EXEC GENER,LAB=204                                        00007740
//STEP205     EXEC UPDATEO,LAB=205                                      00007750
//STEP206     EXEC UPDATEO,LAB=206                                      00007760
//STEP207     EXEC UPDATEO,LAB=207                                      00007770
//STEP208     EXEC GENER,LAB=208                                        00007780
//STEP209     EXEC UPDATEO,LAB=209                                      00007790
//STEP210     EXEC UPDATEO,LAB=210                                      00007800
//STEP211     EXEC UPDATEO,LAB=211                                      00007810
//STEP212     EXEC UPDATEO,LAB=212                                      00007820
//STEP213     EXEC UPDATEO,LAB=213                                      00007830
//STEP214     EXEC GENER,LAB=214,FM=FBA                                 00007840
//STEP215     EXEC GENER,LAB=215                                        00007850
//STEP216     EXEC UPDATEO,LAB=216                                      00007860
//STEP217     EXEC UPDATEO,LAB=217                                      00007870
//STEP218     EXEC UPDATEO,LAB=218                                      00007880
//STEP219     EXEC GENER,LAB=219                                        00007890
//STEP220     EXEC GENER,LAB=220                                        00007900
//STEP221     EXEC GENER,LAB=221                                        00007910
//STEP222     EXEC UPDATEO,LAB=222                                      00007920
//STEP223     EXEC UPDATEO,LAB=223                                      00007930
//STEP224     EXEC GENER,LAB=224                                        00007940
//STEP225     EXEC GENER,LAB=225                                        00007950
//STEP226     EXEC GENER,LAB=226                                        00007960
//STEP227     EXEC UPDATEO,LAB=227                                      00007970
//STEP228     EXEC GENER,LAB=228                                        00007980
//STEP229     EXEC GENER,LAB=229                                        00007990
//STEP230     EXEC GENER,LAB=230                                        00008000
//STEP231     EXEC GENER,LAB=231                                        00008010
//STEP232     EXEC GENER,LAB=232                                        00008020
//STEP233     EXEC GENER,LAB=233                                        00008030
//STEP234     EXEC GENER,LAB=234                                        00008040
//STEP235     EXEC GENER,LAB=235                                        00008050
//STEP236     EXEC GENER,LAB=236                                        00008060
//STEP237     EXEC UPDATEO,LAB=237                                      00008070
//STEP238     EXEC GENER,LAB=238                                        00008080
//STEP239     EXEC GENER,LAB=239                                        00008090
//STEP240     EXEC GENERO,LAB=240,FM=VBA,LR=137,BKI=32747,BKO=6136      00008100
//STEP241     EXEC UPDATEO,LAB=241                                      00008110
//STEP242     EXEC UPDATEO,LAB=242                                      00008120
//STEP243     EXEC UPDATEO,LAB=243                                      00008130
//STEP244     EXEC UPDATEO,LAB=244                                      00008140
//STEP245     EXEC COPY,LAB=245   DCB=RECFM=U,BLKSIZE=13030             00008150
//STEP246     EXEC GENER,LAB=246                                        00008160
//STEP247     EXEC GENER,LAB=247                                        00008170
//STEP248     EXEC GENER,LAB=248                                        00008180
//STEP249     EXEC GENER,LAB=249                                        00008190
//STEP250     EXEC GENER,LAB=250                                        00008200
//STEP251     EXEC GENER,LAB=251                                        00008210
//STEP252     EXEC GENER,LAB=252                                        00008220
//STEP253     EXEC UPDATEO,LAB=253                                      00008230
//STEP254     EXEC UPDATEO,LAB=254                                      00008240
//STEP255     EXEC UPDATEO,LAB=255                                      00008250
//STEP256     EXEC GENER,LAB=256                                        00008260
//STEP257     EXEC UPDATEO,LAB=257                                      00008270
//STEP258     EXEC UPDATEO,LAB=258                                      00008280
//STEP259     EXEC COPY,LAB=259   DCB=RECFM=VB,LRECL=255,BLKSIZE=19060  00008290
//STEP260     EXEC GENER,LAB=260                                        00008300
//STEP261     EXEC GENER,LAB=261                                        00008310
//STEP262     EXEC GENER,LAB=262                                        00008320
//STEP263     EXEC UPDATEO,LAB=263                                      00008330
//STEP264     EXEC GENER,LAB=264                                        00008340
//STEP265     EXEC UPDATEO,LAB=265                                      00008350
//STEP266     EXEC UPDATEO,LAB=266                                      00008360
//STEP267     EXEC COPY,LAB=267   DCB=RECFM=U,BLKSIZE=19060             00008370
//STEP268     EXEC GENER,LAB=268                                        00008380
//STEP269     EXEC GENER,LAB=269                                        00008390
//STEP270     EXEC UPDATEO,LAB=270                                      00008400
//STEP271     EXEC UPDATEO,LAB=271                                      00008410
//STEP272     EXEC UPDATEO,LAB=272                                      00008420
//STEP273     EXEC UPDATEO,LAB=273                                      00008430
//STEP274     EXEC UPDATEO,LAB=274                                      00008440
//STEP275     EXEC UPDATEO,LAB=275                                      00008450
//STEP276     EXEC UPDATEO,LAB=276                                      00008460
//STEP277     EXEC UPDATEO,LAB=277                                      00008470
//STEP278     EXEC UPDATEO,LAB=278                                      00008480
//STEP279     EXEC UPDATEO,LAB=279                                      00008490
//STEP280     EXEC UPDATEO,LAB=280                                      00008500
//STEP281     EXEC COPY,LAB=281   DCB=RECFM=U,BLKSIZE=7294              00008510
//STEP282     EXEC UPDATEO,LAB=282                                      00008520
//STEP283     EXEC COPY,LAB=283   DCB=RECFM=VB,LRECL=84,BLKSIZE=3360    00008530
//STEP284     EXEC UPDATEO,LAB=284                                      00008540
//STEP285     EXEC GENERO,LAB=285,FM=VB,LR=80,BKI=32720,BKO=19040       00008550
//STEP286     EXEC UPDATEO,LAB=286                                      00008560
//STEP287     EXEC UPDATEO,LAB=287                                      00008570
//STEP288     EXEC UPDATEO,LAB=288                                      00008580
//STEP289     EXEC UPDATEO,LAB=289                                      00008590
//STEP290     EXEC COPY,LAB=290   DCB=RECFM=VB,RECL=255,BLKSIZE=19060   00008600
//STEP291     EXEC COPY,LAB=291   DCB=RECFM=VBA,LRECL=137,BLKSIZE=19060 00008610
//STEP292     EXEC UPDATEO,LAB=292                                      00008620
//STEP293     EXEC GENERO,LAB=293,FM=VB,LR=255,BKI=32644,BKO=18874      00008630
//STEP294     EXEC UPDATEO,LAB=294                                      00008640
//STEP295     EXEC GENER,LAB=295                                        00008650
//STEP296     EXEC UPDATEO,LAB=296                                      00008660
//STEP297     EXEC UPDATEO,LAB=297                                      00008670
//STEP298     EXEC GENER,LAB=298                                        00008680
//STEP299     EXEC UPDATEO,LAB=299                                      00008690
//JOB4 JOB                                                              00008700
//*                                                                     00008710
//*  YOU MAY HAVE A PROBLEM WITH SOME OF THESE FILES THAT ARE           00008720
//*  IEBCOPIED DOWN IF YOU TRY TO DROP TO A NON-3350 TYPE               00008730
//*  DEVICE SINCE MOST INPUT WAS FULL TRACK BLOCKED ON A 3350.          00008740
//*  THE ORIGINAL DCB'S ARE MARKED BELOW. YOU CAN DROP DOWN LOAD        00008750
//*  MODULES INTO A SMALLER BLOCKSIZE PDS, HOWEVER YOU WILL GET A       00008760
//*  WARNING MESSAGE AND YOU WILL NOT BE ABLE TO DO A COMPRESS          00008770
//*  IN PLACE ON THAT LIBRARY UNTIL YOU GET RID OF THE OFFENDING        00008780
//*  MEMBERS OR RELINK THEM BACK IN                                     00008790
//*                                                                     00008800
//*  YOU WILL GET THE FOLLOWING MESSAGE:                                00008810
//*  IEB175I - WARNING INPUT RECORD IS GREATER THAN OUTPUT BLKSIZE      00008820
//*            DDNAME=XXXXXXXX,OUTPUT TTRN=00000000                     00008830
//*                                                                     00008840
//*                                                                     00008850
//ASMFCL PROC  V1=ANY,         -   INPUT TAPE VOLUME                    00008860
//*            VO=,            -   OUTPUT DASD VOLUME                   00008870
//             P=CBT973,           DECOMPRESSION PROGRAM                00008880
//             LAB=002,            INPUT TAPE LABEL NUMBER FOR PROGRAM  00008890
//             CLASS=A,        -   SYSOUT CLASS                         00008900
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00008910
//             WORK2=SYSDA,        DASD WORK TYPE                       00008920
//             INDEX=MVS,      -   FIRST LEVEL INDEX FOR DSNAME         00008930
//             DSP=PASS,           OUTPUT DATASET DISPOSITION           00008940
//             UNT=TAPE,       -   TYPE UNIT NAME                       00008950
//             TY=NL,              TAPE FILE LABEL                      00008960
//             PRI=1,              PRIMARY ALLOCATION                   00008970
//             SEC=1,              SECONDARY ALLOCATION                 00008980
//             DIR=1,              NUMBER OF DIRECTORY BLOCKS           00008990
//             ALLOC=TRK,          ALLOC INCREMENT                      00009000
//             LR=80,              LRECL                                00009010
//             BKI=32720,          INPUT BLOCKSIZE                      00009020
//             FM=FB               RECFM                                00009030
//ASM      EXEC  PGM=IFOX00,REGION=256K,COND=EVEN,PARM='OBJECT,NODECK'  00009040
//SYSPRINT DD  SYSOUT=&CLASS                                            00009050
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                 00009060
//         DD  DSN=SYS1.AMODGEN,DISP=SHR                                00009070
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00009080
//SYSUT2   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00009090
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00009100
//SYSGO    DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(NEW,&DSP.),              00009110
//             UNIT=&WORK1.,FREE=CLOSE,                                 00009120
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE) VOL=SER=&VO           00009130
//SYSIN    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00009140
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKI.),               00009150
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00009160
//LKED     EXEC  PGM=IEWL,REGION=256K,COND=(4,LT,ASM),PARM=LIST         00009170
//SYSPRINT DD  SYSOUT=&CLASS                                            00009180
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00009190
//SYSLMOD  DD  DSN=&INDEX..FILE&LAB..LOAD(&P),DISP=(NEW,&DSP.),         00009200
//             UNIT=&WORK1.,FREE=CLOSE,                                 00009210
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE) VOL=SER=&VO     00009220
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(OLD,&DSP.),              00009230
//             LABEL=(&LAB,&TY.)                                        00009240
//       PEND                                                           00009250
//COPY   PROC  V1=ANY,             INPUT TAPE VOLUME                    00009260
//             VO=,                OUTPUT DASD VOLUME                   00009270
//             LAB=,               INPUT TAPE LABEL NUMBER              00009280
//             CLASS=A,            SYSOUT CLASS                         00009290
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00009300
//             WORK2=SYSDA,        DASD WORK TYPE                       00009310
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00009320
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME          00009330
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00009340
//             UNT=TAPE,           TYPE UNIT NAME                       00009350
//             TY=NL,              TAPE FILE LABEL                      00009360
//             PRI=190,            PRIMARY ALLOCATION                   00009370
//             SEC=190,            SECONDARY ALLOCATION                 00009380
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS           00009390
//             ALLOC=TRK           ALLOC INCREMENT                      00009400
//COPY     EXEC  PGM=IEBCOPY,REGION=256K,COND=EVEN                      00009410
//SYSPRINT DD  SYSOUT=&CLASS                                            00009420
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00009430
//SYSUT4   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00009440
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00009450
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00009460
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00009470
//             UNIT=&WORK1.,FREE=CLOSE,                                 00009480
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE),VOL=SER=&VO     00009490
//SYSIN    DD  DUMMY                                                    00009500
//       PEND                                                           00009510
//GENERO PROC  V1=ANY,             INPUT TAPE VOLUME                    00009520
//             VO=,                OUTPUT DASD VOLUME                   00009530
//             LAB=,               INPUT TAPE LABEL NUMBER              00009540
//             CLASS=A,            SYSOUT CLASS                         00009550
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00009560
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00009570
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME          00009580
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00009590
//             UNT=TAPE,           TYPE UNIT NAME                       00009600
//             TY=NL,              TAPE FILE LABEL                      00009610
//             PRI=190,            PRIMARY ALLOCATION                   00009620
//             SEC=190,            SECONDARY ALLOCATION                 00009630
//             ALLOC=TRK,          ALLOC INCREMENT                      00009640
//             LR=80,              LRECL                                00009650
//             BKI=32720,          INPUT BLOCKSIZE                      00009660
//             BKO=5600,           OUTPUT BLOCKSIZE                     00009670
//             FM=FB               RECFM                                00009680
//GENER    EXEC  PGM=IEBGENER,REGION=256K,COND=EVEN                     00009690
//SYSPRINT DD  SYSOUT=&CLASS                                            00009700
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00009710
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKI.),               00009720
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00009730
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00009740
//             UNIT=&WORK1.,FREE=CLOSE,                                 00009750
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00009760
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE),VOL=SER=&VO           00009770
//SYSIN    DD  DUMMY                                                    00009780
//       PEND                                                           00009790
//UPDATEO PROC V1=ANY,             INPUT TAPE VOLUME                    00009800
//             P=CBT973,           DECOMPRESSION PROGRAM                00009810
//             P1=IEBUPDTE,   PROGRAM TO PROCESS IEBUPDTE SYSIN         00009820
//*                           STREAM. YOU MAY USE THE NORMAL IBM PGM    00009830
//*                           OR YOU MAY HAVE INSTALLED THE PDSLOAD     00009840
//*                           PROGRAM FROM FILE 316 OF THE CBT TAPE     00009850
//*                           WHICH IS USEFUL FOR FILES UNLOADED BY     00009860
//*                           THE FAMOUS YALE OFFLOAD PROGRAM. CAN      00009870
//*                           CHANGE THE IMBEDDED '><' TO './' AS       00009880
//*                           RELOAD.                                   00009890
//             VO=,                OUTPUT DASD VOLUME                   00009900
//             LAB=,               INPUT TAPE LABEL NUMBER              00009910
//             CLASS=A,            SYSOUT CLASS                         00009920
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00009930
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00009940
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME          00009950
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00009960
//             UNT=TAPE,           TYPE UNIT NAME                       00009970
//             TY=NL,              TAPE FILE LABEL                      00009980
//             PRI=190,            PRIMARY ALLOCATION                   00009990
//             SEC=190,            SECONDARY ALLOCATION                 00010000
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS           00010010
//             ALLOC=TRK,          ALLOC INCREMENT                      00010020
//             LR=80,              LRECL                                00010030
//             BKI=32720,          INPUT BLOCKSIZE                      00010040
//             BKO=5600,           OUTPUT BLOCKSIZE                     00010050
//             FM=FB               RECFM                                00010060
//UPDATE1  EXEC  PGM=&P,REGION=512K,COND=EVEN                           00010070
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)                00010080
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00010090
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI.),                   00010100
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00010110
//OUTPUT   DD  DSN=&&TEMP,DISP=(NEW,PASS),                              00010120
//             UNIT=&WORK1.,                                            00010130
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00010140
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE) VOL=SER=&VO           00010150
//UPDATE2  EXEC  PGM=&P1,PARM=NEW,REGION=256K,COND=EVEN                 00010160
//SYSPRINT DD  SYSOUT=&CLASS                                            00010170
//SYSIN    DD  DSN=&&TEMP,DISP=(OLD,DELETE)                             00010180
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00010190
//             UNIT=&WORK1.,FREE=CLOSE,                                 00010200
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00010210
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE),VOL=SER=&VO     00010220
//       PEND                                                           00010230
//GENER  PROC  V1=ANY,             INPUT TAPE VOLUME                    00010240
//             VO=,                OUTPUT DASD VOLUME                   00010250
//             P=CBT973,           DECOMPRESSION PROGRAM                00010260
//             LAB=,               INPUT TAPE LABEL NUMBER              00010270
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00010280
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00010290
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME          00010300
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00010310
//             UNT=TAPE,           TYPE UNIT NAME                       00010320
//             TY=NL,              TAPE FILE LABEL                      00010330
//             PRI=190,            PRIMARY ALLOCATION                   00010340
//             SEC=190,            SECONDARY ALLOCATION                 00010350
//             ALLOC=TRK,          ALLOC INCREMENT                      00010360
//             LR=80,              LRECL                                00010370
//             BKI=32716,          INPUT BLOCKSIZE                      00010380
//             BKO=5600,           OUTPUT BLOCKSIZE                     00010390
//             FM=FB               RECFM                                00010400
//GENER    EXEC  PGM=&P,REGION=512K,COND=EVEN                           00010410
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)                00010420
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00010430
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI.),                   00010440
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00010450
//OUTPUT   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00010460
//             UNIT=&WORK1.,FREE=CLOSE,                                 00010470
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00010480
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE),VOL=SER=&VO           00010490
//       PEND                                                           00010500
//ASMFCL      EXEC ASMFCL                                               00010510
//STEP300     EXEC UPDATEO,LAB=300,DIR=200                              00010520
//STEP301     EXEC UPDATEO,LAB=301                                      00010530
//STEP302     EXEC GENER,LAB=302                                        00010540
//STEP303     EXEC UPDATEO,LAB=303                                      00010550
//STEP304     EXEC UPDATEO,LAB=304                                      00010560
//STEP305     EXEC GENER,LAB=305                                        00010570
//STEP306     EXEC UPDATEO,LAB=306                                      00010580
//STEP307     EXEC UPDATEO,LAB=307                                      00010590
//STEP308     EXEC UPDATEO,LAB=308                                      00010600
//STEP309     EXEC GENER,LAB=309                                        00010610
//STEP310     EXEC UPDATEO,LAB=310                                      00010620
//STEP311     EXEC COPY,LAB=311   DCB=RECFM=VB,BLKSIZE=19069            00010630
//STEP312     EXEC UPDATEO,LAB=312                                      00010640
//STEP313     EXEC UPDATEO,LAB=313                                      00010650
//STEP314     EXEC GENER,LAB=314                                        00010660
//STEP315     EXEC UPDATEO,LAB=315                                      00010670
//STEP316     EXEC UPDATEO,LAB=316                                      00010680
//STEP317     EXEC UPDATEO,LAB=317                                      00010690
//STEP318     EXEC UPDATEO,LAB=318                                      00010700
//STEP319     EXEC GENER,LAB=319                                        00010710
//STEP320     EXEC GENER,LAB=320                                        00010720
//STEP321     EXEC UPDATEO,LAB=321                                      00010730
//STEP322     EXEC UPDATEO,LAB=322                                      00010740
//STEP323     EXEC UPDATEO,LAB=323                                      00010750
//STEP324     EXEC UPDATEO,LAB=324                                      00010760
//STEP325     EXEC UPDATEO,LAB=325                                      00010770
//STEP326     EXEC UPDATEO,LAB=326                                      00010780
//STEP327     EXEC UPDATEO,LAB=327                                      00010790
//STEP328     EXEC UPDATEO,LAB=328                                      00010800
//STEP329     EXEC UPDATEO,LAB=329                                      00010810
//STEP330     EXEC UPDATEO,LAB=330                                      00010820
//STEP331     EXEC COPY,LAB=331   DCB=RECFM=U,BLKSIZE=13030             00010830
//STEP332     EXEC UPDATEO,LAB=332                                      00010840
//STEP333     EXEC GENER,LAB=333                                        00010850
//STEP334     EXEC UPDATEO,LAB=334                                      00010860
//STEP335     EXEC UPDATEO,LAB=335                                      00010870
//STEP336     EXEC UPDATEO,LAB=336                                      00010880
//STEP337     EXEC UPDATEO,LAB=337                                      00010890
//STEP338     EXEC UPDATEO,LAB=338                                      00010900
//STEP339     EXEC GENER,LAB=339                                        00010910
//STEP340     EXEC UPDATEO,LAB=340                                      00010920
//STEP341     EXEC UPDATEO,LAB=341                                      00010930
//STEP342     EXEC UPDATEO,LAB=342                                      00010940
//STEP343     EXEC GENER,LAB=343                                        00010950
//STEP344     EXEC GENER,LAB=344                                        00010960
//STEP345     EXEC GENER,LAB=345                                        00010970
//STEP346     EXEC UPDATEO,LAB=346                                      00010980
//STEP347     EXEC UPDATEO,LAB=347                                      00010990
//STEP348     EXEC UPDATEO,LAB=348                                      00011000
//STEP349     EXEC UPDATEO,LAB=349                                      00011010
//STEP350     EXEC UPDATEO,LAB=350                                      00011020
//STEP351     EXEC GENER,LAB=351                                        00011030
//STEP352     EXEC UPDATEO,LAB=352                                      00011040
//STEP353     EXEC UPDATEO,LAB=353                                      00011050
//STEP354     EXEC UPDATEO,LAB=354                                      00011060
//STEP355     EXEC UPDATEO,LAB=355                                      00011070
//STEP356     EXEC UPDATEO,LAB=356                                      00011080
//STEP357     EXEC COPY,LAB=357                                         00011090
//STEP358     EXEC UPDATEO,LAB=358                                      00011100
//STEP359     EXEC UPDATEO,LAB=359                                      00011110
//STEP360     EXEC UPDATEO,LAB=360                                      00011120
//STEP361     EXEC GENER,LAB=361                                        00011130
//STEP362     EXEC GENER,LAB=362                                        00011140
//STEP363     EXEC UPDATEO,LAB=363                                      00011150
//STEP364     EXEC UPDATEO,LAB=364                                      00011160
//STEP365     EXEC UPDATEO,LAB=365                                      00011170
//STEP366     EXEC UPDATEO,LAB=366                                      00011180
//STEP367     EXEC COPY,LAB=367   DCB=RECFM=VB,LRECL=104,BLKSIZE=15365  00011190
//STEP368     EXEC UPDATEO,LAB=368                                      00011200
//STEP369     EXEC GENER,LAB=369                                        00011210
//STEP370     EXEC GENER,LAB=370                                        00011220
//STEP371     EXEC UPDATEO,LAB=371                                      00011230
//STEP372     EXEC UPDATEO,LAB=372                                      00011240
//STEP373     EXEC UPDATEO,LAB=373                                      00011250
//STEP374     EXEC GENER,LAB=374                                        00011260
//STEP375     EXEC GENER,LAB=375                                        00011270
//STEP376     EXEC UPDATEO,LAB=376                                      00011280
//STEP377     EXEC UPDATEO,LAB=377                                      00011290
//STEP378     EXEC COPY,LAB=378                                         00011300
//STEP379     EXEC UPDATEO,LAB=379                                      00011310
//STEP380     EXEC GENER,LAB=380                                        00011320
//STEP381     EXEC UPDATEO,LAB=381                                      00011330
//STEP382     EXEC UPDATEO,LAB=382                                      00011340
//STEP383     EXEC COPY,LAB=383   DCB=RECFM=VB,LRECL=84,BLKSIZE=15456   00011350
//STEP384     EXEC GENER,LAB=384                                        00011360
//STEP385     EXEC GENER,LAB=385                                        00011370
//STEP386     EXEC UPDATEO,LAB=386                                      00011380
//STEP387     EXEC UPDATEO,LAB=387                                      00011390
//STEP388     EXEC UPDATEO,LAB=388                                      00011400
//STEP389     EXEC UPDATEO,LAB=389                                      00011410
//STEP390     EXEC UPDATEO,LAB=390                                      00011420
//STEP391     EXEC UPDATEO,LAB=391                                      00011430
//STEP392     EXEC UPDATEO,LAB=392                                      00011440
//STEP393     EXEC UPDATEO,LAB=393                                      00011450
//JOB5 JOB                                                              00011460
//*                                                                     00011470
//* THIS JOB IS NOW SPLIT INTO SIX SEPARATE JOBS BECAUSE OF             00011480
//* IBM'S RESTRICTION THAT A JOB MAY NOT HAVE MORE THAN                 00011490
//* 255 STEPS. THE FIRST JOB HAS 200 STEPS THE SECOND THE REST.         00011500
//* THE SIXTH JOB WILL LOAD FILE 001 OF THE TAPE INTO A PRE-            00011510
//* DEFINED VSAM CLUSTER FOR INFO/MVS DATABASE PROCESSING (YOU          00011520
//* HAVE TO HAVE INFOMVS).                                              00011530
//*                                                                     00011540
//*                                                                     00011550
//*  YOU MAY HAVE A PROBLEM WITH SOME OF THESE FILES THAT ARE           00011560
//*  IEBCOPIED DOWN IF YOU TRY TO DROP TO A NON-3350 TYPE               00011570
//*  DEVICE SINCE MOST INPUT WAS FULL TRACK BLOCKED ON A 3350.          00011580
//*  THE ORIGINAL DCB'S ARE MARKED BELOW. YOU CAN DROP DOWN LOAD        00011590
//*  MODULES INTO A SMALLER BLOCKSIZE PDS, HOWEVER YOU WILL GET A       00011600
//*  WARNING MESSAGE AND YOU WILL NOT BE ABLE TO DO A COMPRESS          00011610
//*  IN PLACE ON THAT LIBRARY UNTIL YOU GET RID OF THE OFFENDING        00011620
//*  MEMBERS OR RELINK THEM BACK IN                                     00011630
//*                                                                     00011640
//*  YOU WILL GET THE FOLLOWING MESSAGE:                                00011650
//*  IEB175I - WARNING INPUT RECORD IS GREATER THAN OUTPUT BLKSIZE      00011660
//*            DDNAME=XXXXXXXX,OUTPUT TTRN=00000000                     00011670
//*                                                                     00011680
//*                                                                     00011690
//ASMFCL PROC  V1=ANY,         -   INPUT TAPE VOLUME                    00011700
//*            VO=,            -   OUTPUT DASD VOLUME                   00011710
//             P=CBT973,           DECOMPRESSION PROGRAM                00011720
//             LAB=002,            INPUT TAPE LABEL NUMBER FOR PROGRAM  00011730
//             CLASS=A,        -   SYSOUT CLASS                         00011740
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00011750
//             WORK2=SYSDA,        DASD WORK TYPE                       00011760
//             INDEX=MVS,      -   FIRST LEVEL INDEX FOR DSNAME         00011770
//             DSP=PASS,           OUTPUT DATASET DISPOSITION           00011780
//             UNT=TAPE,       -   TYPE UNIT NAME                       00011790
//             TY=NL,              TAPE FILE LABEL                      00011800
//             PRI=1,              PRIMARY ALLOCATION                   00011810
//             SEC=1,              SECONDARY ALLOCATION                 00011820
//             DIR=1,              NUMBER OF DIRECTORY BLOCKS           00011830
//             ALLOC=TRK,          ALLOC INCREMENT                      00011840
//             LR=80,              LRECL                                00011850
//             BKI=32720,          INPUT BLOCKSIZE                      00011860
//             FM=FB               RECFM                                00011870
//ASM      EXEC  PGM=IFOX00,REGION=256K,COND=EVEN,PARM='OBJECT,NODECK'  00011880
//SYSPRINT DD  SYSOUT=&CLASS                                            00011890
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                 00011900
//         DD  DSN=SYS1.AMODGEN,DISP=SHR                                00011910
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00011920
//SYSUT2   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00011930
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00011940
//SYSGO    DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(NEW,&DSP.),              00011950
//             UNIT=&WORK1.,FREE=CLOSE,                                 00011960
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE) VOL=SER=&VO           00011970
//SYSIN    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00011980
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKI.),               00011990
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00012000
//LKED     EXEC  PGM=IEWL,REGION=256K,COND=(4,LT,ASM),PARM=LIST         00012010
//SYSPRINT DD  SYSOUT=&CLASS                                            00012020
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00012030
//SYSLMOD  DD  DSN=&INDEX..FILE&LAB..LOAD(&P),DISP=(NEW,&DSP.),         00012040
//             UNIT=&WORK1.,FREE=CLOSE,                                 00012050
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE) VOL=SER=&VO     00012060
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(OLD,&DSP.),              00012070
//             LABEL=(&LAB,&TY.)                                        00012080
//       PEND                                                           00012090
//COPY   PROC  V1=ANY,             INPUT TAPE VOLUME                    00012100
//             VO=,                OUTPUT DASD VOLUME                   00012110
//             LAB=,               INPUT TAPE LABEL NUMBER              00012120
//             CLASS=A,            SYSOUT CLASS                         00012130
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00012140
//             WORK2=SYSDA,        DASD WORK TYPE                       00012150
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00012160
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME          00012170
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00012180
//             UNT=TAPE,           TYPE UNIT NAME                       00012190
//             TY=NL,              TAPE FILE LABEL                      00012200
//             PRI=190,            PRIMARY ALLOCATION                   00012210
//             SEC=190,            SECONDARY ALLOCATION                 00012220
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS           00012230
//             ALLOC=TRK           ALLOC INCREMENT                      00012240
//COPY     EXEC  PGM=IEBCOPY,REGION=256K,COND=EVEN                      00012250
//SYSPRINT DD  SYSOUT=&CLASS                                            00012260
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00012270
//SYSUT4   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00012280
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00012290
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00012300
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00012310
//             UNIT=&WORK1.,FREE=CLOSE,                                 00012320
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE),VOL=SER=&VO     00012330
//SYSIN    DD  DUMMY                                                    00012340
//       PEND                                                           00012350
//GENERO PROC  V1=ANY,             INPUT TAPE VOLUME                    00012360
//             VO=,                OUTPUT DASD VOLUME                   00012370
//             LAB=,               INPUT TAPE LABEL NUMBER              00012380
//             CLASS=A,            SYSOUT CLASS                         00012390
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00012400
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00012410
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME          00012420
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00012430
//             UNT=TAPE,           TYPE UNIT NAME                       00012440
//             TY=NL,              TAPE FILE LABEL                      00012450
//             PRI=190,            PRIMARY ALLOCATION                   00012460
//             SEC=190,            SECONDARY ALLOCATION                 00012470
//             ALLOC=TRK,          ALLOC INCREMENT                      00012480
//             LR=80,              LRECL                                00012490
//             BKI=32720,          INPUT BLOCKSIZE                      00012500
//             BKO=5600,           OUTPUT BLOCKSIZE                     00012510
//             FM=FB               RECFM                                00012520
//GENER    EXEC  PGM=IEBGENER,REGION=256K,COND=EVEN                     00012530
//SYSPRINT DD  SYSOUT=&CLASS                                            00012540
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00012550
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKI.),               00012560
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00012570
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00012580
//             UNIT=&WORK1.,FREE=CLOSE,                                 00012590
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00012600
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE),VOL=SER=&VO           00012610
//SYSIN    DD  DUMMY                                                    00012620
//       PEND                                                           00012630
//UPDATEO PROC V1=ANY,             INPUT TAPE VOLUME                    00012640
//             P=CBT973,           DECOMPRESSION PROGRAM                00012650
//             P1=IEBUPDTE,   PROGRAM TO PROCESS IEBUPDTE SYSIN         00012660
//*                           STREAM. YOU MAY USE THE NORMAL IBM PGM    00012670
//*                           OR YOU MAY HAVE INSTALLED THE PDSLOAD     00012680
//*                           PROGRAM FROM FILE 316 OF THE CBT TAPE     00012690
//*                           WHICH IS USEFUL FOR FILES UNLOADED BY     00012700
//*                           THE FAMOUS YALE OFFLOAD PROGRAM. CAN      00012710
//*                           CHANGE THE IMBEDDED '><' TO './' AS       00012720
//*                           RELOAD.                                   00012730
//             VO=,                OUTPUT DASD VOLUME                   00012740
//             LAB=,               INPUT TAPE LABEL NUMBER              00012750
//             CLASS=A,            SYSOUT CLASS                         00012760
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00012770
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00012780
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME          00012790
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00012800
//             UNT=TAPE,           TYPE UNIT NAME                       00012810
//             TY=NL,              TAPE FILE LABEL                      00012820
//             PRI=190,            PRIMARY ALLOCATION                   00012830
//             SEC=190,            SECONDARY ALLOCATION                 00012840
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS           00012850
//             ALLOC=TRK,          ALLOC INCREMENT                      00012860
//             LR=80,              LRECL                                00012870
//             BKI=32720,          INPUT BLOCKSIZE                      00012880
//             BKO=5600,           OUTPUT BLOCKSIZE                     00012890
//             FM=FB               RECFM                                00012900
//UPDATE1  EXEC  PGM=&P,REGION=512K,COND=EVEN                           00012910
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)                00012920
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00012930
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI.),                   00012940
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00012950
//OUTPUT   DD  DSN=&&TEMP,DISP=(NEW,PASS),                              00012960
//             UNIT=&WORK1.,                                            00012970
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00012980
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE) VOL=SER=&VO           00012990
//UPDATE2  EXEC  PGM=&P1,PARM=NEW,REGION=256K,COND=EVEN                 00013000
//SYSPRINT DD  SYSOUT=&CLASS                                            00013010
//SYSIN    DD  DSN=&&TEMP,DISP=(OLD,DELETE)                             00013020
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00013030
//             UNIT=&WORK1.,FREE=CLOSE,                                 00013040
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00013050
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE),VOL=SER=&VO     00013060
//       PEND                                                           00013070
//GENER  PROC  V1=ANY,             INPUT TAPE VOLUME                    00013080
//             VO=,                OUTPUT DASD VOLUME                   00013090
//             P=CBT973,           DECOMPRESSION PROGRAM                00013100
//             LAB=,               INPUT TAPE LABEL NUMBER              00013110
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00013120
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME         00013130
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME          00013140
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION           00013150
//             UNT=TAPE,           TYPE UNIT NAME                       00013160
//             TY=NL,              TAPE FILE LABEL                      00013170
//             PRI=190,            PRIMARY ALLOCATION                   00013180
//             SEC=190,            SECONDARY ALLOCATION                 00013190
//             ALLOC=TRK,          ALLOC INCREMENT                      00013200
//             LR=80,              LRECL                                00013210
//             BKI=32716,          INPUT BLOCKSIZE                      00013220
//             BKO=5600,           OUTPUT BLOCKSIZE                     00013230
//             FM=FB               RECFM                                00013240
//GENER    EXEC  PGM=&P,REGION=512K,COND=EVEN                           00013250
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)                00013260
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00013270
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI.),                   00013280
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00013290
//OUTPUT   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00013300
//             UNIT=&WORK1.,FREE=CLOSE,                                 00013310
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00013320
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE),VOL=SER=&VO           00013330
//       PEND                                                           00013340
//ASMFCL      EXEC ASMFCL                                               00013350
//STEP400     EXEC UPDATEO,LAB=400                                      00013360
//STEP401     EXEC UPDATEO,LAB=401                                      00013370
//STEP402     EXEC UPDATEO,LAB=402                                      00013380
//STEP403     EXEC GENER,LAB=403                                        00013390
//STEP404     EXEC UPDATEO,LAB=404                                      00013400
//STEP405     EXEC UPDATEO,LAB=405                                      00013410
//STEP406     EXEC UPDATEO,LAB=406                                      00013420
//STEP407     EXEC UPDATEO,LAB=407                                      00013430
//STEP408     EXEC UPDATEO,LAB=408                                      00013440
//STEP409     EXEC UPDATEO,LAB=409                                      00013450
//STEP410     EXEC UPDATEO,LAB=410                                      00013460
//STEP411     EXEC UPDATEO,LAB=411                                      00013470
//STEP412     EXEC UPDATEO,LAB=412                                      00013480
//STEP413     EXEC UPDATEO,LAB=413                                      00013490
//STEP414     EXEC UPDATEO,LAB=414                                      00013500
//STEP415     EXEC UPDATEO,LAB=415                                      00013510
//STEP416     EXEC UPDATEO,LAB=416                                      00013520
//STEP417     EXEC UPDATEO,LAB=417                                      00013530
//STEP418     EXEC UPDATEO,LAB=418                                      00013540
//STEP419     EXEC UPDATEO,LAB=419                                      00013550
//STEP420     EXEC UPDATEO,LAB=420                                      00013560
//STEP421     EXEC UPDATEO,LAB=421                                      00013570
//STEP422     EXEC UPDATEO,LAB=422                                      00013575
//STEP423     EXEC UPDATEO,LAB=423                                      00013577
//STEP431     EXEC GENER,LAB=431                                        00013580
//STEP432     EXEC COPY,LAB=432                                         00013590
//STEP433     EXEC UPDATEO,LAB=433                                      00013600
//STEP434     EXEC COPY,LAB=434                                         00013610
//STEP435     EXEC UPDATEO,LAB=435                                      00013620
//STEP436     EXEC UPDATEO,LAB=436                                      00013630
//STEP437     EXEC UPDATEO,LAB=437,PRI=570                              00013640
//STEP438     EXEC GENERO,LAB=438,FM=FBA,LR=100,BKI=32700,BKO=6000      00013650
//STEP439     EXEC GENERO,LAB=439,FM=FBA,LR=132,BKI=32604,BKO=6600      00013660
//STEP440     EXEC UPDATEO,LAB=440                                      00013670
//STEP441     EXEC UPDATEO,LAB=441                                      00013680
//STEP442     EXEC COPY,LAB=442                                         00013690
//STEP443     EXEC UPDATEO,LAB=443                                      00013700
//STEP444     EXEC COPY,LAB=444                                         00013710
//STEP445     EXEC GENERO,LAB=445,FM=VB,LR=84,BKI=32700,BKO=6000        00013720
//STEP446     EXEC UPDATEO,LAB=446                                      00013730
//STEP447     EXEC UPDATEO,LAB=447                                      00013740
//STEP448     EXEC GENERO,LAB=448,FM=FBA,LR=100,BKI=32700,BKO=6000      00013750
//STEP449     EXEC UPDATEO,LAB=449                                      00013760
//STEP450     EXEC UPDATEO,LAB=450                                      00013770
//STEP451     EXEC UPDATEO,LAB=451                                      00013780
//STEP452     EXEC UPDATEO,LAB=452                                      00013790
//STEP453     EXEC UPDATEO,LAB=453                                      00013800
//STEP454     EXEC COPY,LAB=454,DIR=400                                 00013810
//STEP455     EXEC COPY,LAB=455,DIR=100                                 00013820
//JOB6 JOB                                                              00013830
//*                                                                     00013840
//*********************************************************             00013850
//* WHEN YOU LOAD THE DATBASE BY PROCESSING THROUGH       *             00013860
//* STEP7  YOU WILL GET A LOT OF LINES THAT ARE           *             00013870
//* REJECTED SOME 15,000 + LINES - THAT IS NORMAL         *             00013880
//* JUST DON'T PRINT THAT SYSOUT DD STATEMENT             *             00013890
//*********************************************************             00013900
//*                                                                     00013910
//* LOAD MVSMODS INFO DATABASE OFF OF FILE 001                          00013920
//* THIS JOB REQUIRES A PREF-DEFINED VSAM CLUSTER                       00013930
//* TO HOLD THE DATA.                                                   00013940
//* THE DATASET NAME IS REQUIRED IN STEP8 ON DDNAME CARD 'OZVSAM'       00013950
//*                                                                     00013960
//* ASMFCL - ASSEMBLE DECOMPRESSION PROGRAM                             00013970
//* STEP2  - LOAD FILE 4                                                00013980
//* STEP3  - LOAD FILE 5                                                00013990
//* STEP4  - CONVERT FILE 4 INTO A PDS                                  00014000
//* STEP5  - ASSEMBLE, LINK, AND EXECUTE THE CBTINFO PROGRAM            00014010
//* STEP6  - COMBINE OUTPUT FROM CBTINFO PROGRAM WITH FILE 5            00014020
//* STEP7  - BLGOZB                                                     00014030
//* STEP8  - BLGOZC                                                     00014040
//*                                                                     00014050
//ASMFCL PROC  V1=022156,      -   INPUT TAPE VOLUME                    00014060
//*            VO=,            -   OUTPUT DASD VOLUME                   00014070
//             P=CBT973,           DECOMPRESSION PROGRAM                00014080
//             LAB=002,            INPUT TAPE LABEL NUMBER FOR PROGRAM  00014090
//             CLASS=Z,        -   SYSOUT CLASS                         00014100
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00014110
//             WORK2=SYSDA,        DASD WORK TYPE                       00014120
//             INDEX='TS.CBT', -   FIRST LEVEL INDEX FOR DSNAME         00014130
//             DSP=PASS,           OUTPUT DATASET DISPOSITION           00014140
//             UNT=TAPE,       -   TYPE UNIT NAME                       00014150
//             TY=NL,          -   TAPE FILE LABEL                      00014160
//             PRI=1,              PRIMARY ALLOCATION                   00014170
//             SEC=1,              SECONDARY ALLOCATION                 00014180
//             DIR=1,              NUMBER OF DIRECTORY BLOCKS           00014190
//             ALLOC=TRK,          ALLOC INCREMENT                      00014200
//             LR=80,              LRECL                                00014210
//             BKI=32720,          INPUT BLOCKSIZE                      00014220
//             FM=FB               RECFM                                00014230
//ASM      EXEC  PGM=IFOX00,REGION=256K,COND=EVEN,PARM='OBJECT,NODECK'  00014240
//SYSPRINT DD  SYSOUT=&CLASS                                            00014250
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                 00014260
//         DD  DSN=SYS1.AMODGEN,DISP=SHR                                00014270
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00014280
//SYSUT2   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00014290
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00014300
//SYSGO    DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(NEW,&DSP.),              00014310
//             UNIT=&WORK1.,FREE=CLOSE,                                 00014320
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE) VOL=SER=&VO           00014330
//SYSIN    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00014340
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKI.),               00014350
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00014360
//LKED     EXEC  PGM=IEWL,REGION=256K,COND=(4,LT,ASM),PARM=LIST         00014370
//SYSPRINT DD  SYSOUT=&CLASS                                            00014380
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2                          00014390
//SYSLMOD  DD  DSN=&INDEX..FILE&LAB..LOAD(&P),DISP=(NEW,&DSP.),         00014400
//             UNIT=&WORK1.,FREE=CLOSE,                                 00014410
//             SPACE=(&ALLOC.,(&PRI.,&SEC.,&DIR.),RLSE) VOL=SER=&VO     00014420
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(OLD,&DSP.),              00014430
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00014440
//       PEND                                                           00014450
//GENERO PROC  V1=022156,          INPUT TAPE VOLUME                    00014460
//             VO=,                OUTPUT DASD VOLUME                   00014470
//             LAB=,               INPUT TAPE LABEL NUMBER              00014480
//             CLASS=Z,            SYSOUT CLASS                         00014490
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00014500
//             INDEX='TS.CBT',     FIRST LEVEL INDEX FOR DSNAME         00014510
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME          00014520
//             DSP=PASS,           OUTPUT DATASET DISPOSITION           00014530
//             UNT=TAPE,           TYPE UNIT NAME                       00014540
//             TY=NL,           -  TAPE FILE LABEL                      00014550
//             PRI=190,            PRIMARY ALLOCATION                   00014560
//             SEC=190,            SECONDARY ALLOCATION                 00014570
//             ALLOC=TRK,          ALLOC INCREMENT                      00014580
//             LR=80,              LRECL                                00014590
//             BKI=32720,          INPUT BLOCKSIZE                      00014600
//             BKO=5600,           OUTPUT BLOCKSIZE                     00014610
//             FM=FB               RECFM                                00014620
//GENER    EXEC  PGM=IEBGENER,REGION=256K,COND=EVEN                     00014630
//SYSPRINT DD  SYSOUT=&CLASS                                            00014640
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00014650
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKI.),               00014660
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00014670
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00014680
//             UNIT=&WORK1.,FREE=CLOSE,                                 00014690
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00014700
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE),VOL=SER=&VO           00014710
//SYSIN    DD  DUMMY                                                    00014720
//       PEND                                                           00014730
//GENER  PROC  V1=022156,          INPUT TAPE VOLUME                    00014740
//             VO=,                OUTPUT DASD VOLUME                   00014750
//             P=CBT973,           DECOMPRESSION PROGRAM                00014760
//             LAB=,               INPUT TAPE LABEL NUMBER              00014770
//             WORK1=SYSDA,        DASD OUTPUT TYPE                     00014780
//             INDEX='TS.CBT',     FIRST LEVEL INDEX FOR DSNAME         00014790
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME          00014800
//             DSP=PASS,           OUTPUT DATASET DISPOSITION           00014810
//             UNT=TAPE,           TYPE UNIT NAME                       00014820
//             TY=NL,           -  TAPE FILE LABEL                      00014830
//             PRI=190,            PRIMARY ALLOCATION                   00014840
//             SEC=190,            SECONDARY ALLOCATION                 00014850
//             ALLOC=TRK,          ALLOC INCREMENT                      00014860
//             LR=80,              LRECL                                00014870
//             BKI=32716,          INPUT BLOCKSIZE                      00014880
//             BKO=5600,           OUTPUT BLOCKSIZE                     00014890
//             FM=FB               RECFM                                00014900
//GENER    EXEC  PGM=&P,REGION=512K,COND=EVEN                           00014910
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)                00014920
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),         00014930
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI.),                   00014940
//             LABEL=(&LAB,&TY.,EXPDT=98000)                            00014950
//OUTPUT   DD  DSN=&INDEX..FILE&LAB..&TYPE.,DISP=(NEW,&DSP.),           00014960
//             UNIT=&WORK1.,FREE=CLOSE,                                 00014970
//             DCB=(RECFM=&FM.,LRECL=&LR.,BLKSIZE=&BKO.),               00014980
//             SPACE=(&ALLOC.,(&PRI.,&SEC.),RLSE),VOL=SER=&VO           00014990
//       PEND                                                           00015000
//ASMFCL  EXEC ASMFCL                                                   00015010
//STEP2   EXEC GENER,LAB=004 BAM                                        00015020
//STEP3   EXEC GENERO,LAB=005,FM=VB,LR=255,BKI=32760,BKO=3120 BAM       00015030
//STEP4   EXEC PGM=IEBUPDTE,PARM=NEW                                    00015040
//SYSPRINT DD  SYSOUT=A                                                 00015050
//SYSUT2   DD  DSN=TS.CBT.FILE004.PDS,UNIT=SYSDA,DISP=(,PASS),          00015060
//             SPACE=(TRK,(10,10,10)),                                  00015070
//             DCB=(LRECL=80,BLKSIZE=6160,RECFM=FB)                     00015080
//SYSIN    DD  DSN=TS.CBT.FILE004.DATA,DISP=(OLD,DELETE)                00015090
//STEP5   EXEC ASMFCLG,REGION.GO=4096K                                  00015100
//ASM.SYSIN DD DSN=TS.CBT.FILE004.PDS(PROGRAM),DISP=(SHR,PASS)          00015110
//GO.SYSIN DD  DSN=TS.CBT.FILE004.PDS(KEYWORDS),DISP=(SHR,DELETE)       00015120
//FILEIN   DD  UNIT=TAPE,VOL=SER=022156,DISP=(OLD,PASS),                00015130
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=32720),                   00015140
//             LABEL=(1,NL,EXPDT=98000)                                 00015150
//FILEOUT  DD  DSN=&&CBTINFO,DISP=(,PASS),                              00015160
//             UNIT=SYSDA,SPACE=(CYL,(20,5)),                           00015170
//             DCB=(RECFM=VB,LRECL=255,BLKSIZE=3120,DSORG=PS)           00015180
//SYSUDUMP DD  SYSOUT=A                                                 00015190
//STEP6   EXEC PGM=IEBGENER                                             00015200
//SYSPRINT DD  SYSOUT=A                                                 00015210
//SYSUT1   DD  DSN=TS.CBT.FILE005.DATA,DISP=(SHR,DELETE)                00015220
//SYSUT2   DD  DSN=&&CBTINFO,DISP=(MOD,PASS)                            00015230
//SYSIN    DD  DUMMY                                                    00015240
//STEP7   EXEC PGM=BLGOZB                                               00015250
//*                                                                     00015260
//* EXPECT A LOT OF WARNING MESSAGES - IT IS PERFECTLY NORMAL           00015270
//*                                                                     00015280
//FILE     DD  DSN=&&CBTINFO,DISP=(SHR,DELETE)                          00015290
//SORTMSG  DD  DUMMY SYSOUT=A                                           00015300
//SYSPRINT DD  DUMMY SYSOUT=A                                           00015310
//SYSOUT   DD  DUMMY SYSOUT=A                                           00015320
//SORTLIB  DD  DSN=SYS1.SORTLIB,DISP=SHR                                00015330
//SORTIN   DD  UNIT=SYSDA,SPACE=(CYL,(10,10))                           00015340
//SORTOUT  DD  UNIT=SYSDA,SPACE=(CYL,(10,10))                           00015350
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(10,10))                           00015360
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(10,10))                           00015370
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(10,10))                           00015380
//TAPE     DD  DSN=&&CBTOZB,DISP=(,PASS),                               00015390
//             UNIT=SYSDA,SPACE=(CYL,(20,5)),                           00015400
//             DCB=(RECFM=VB,LRECL=255,BLKSIZE=3120,DSORG=PS)           00015410
//STEP8   EXEC PGM=BLGOZC                                               00015420
//TAPE     DD  DSN=&&CBTOZB,DISP=(SHR,DELETE)                           00015430
//OZVSAM   DD  DSN=SYS1.CBT.OZ,DISP=OLD           /* YOUR DSN */        00015440
//SYSPRINT DD  SYSOUT=A                                                 00015450
//SYSIN    DD  *                                                        00015460
$SELECT *                                                           