//JOB1 JOB
//*
//*  IT IS BETTER TO USE PDSLOAD THAN IEBUPDTE FOR THE UPDATEO PROC.
//*  -->>>  UPDATEO IS THE FORMAT OF MOST FILES ON THIS TAPE  <<<--
//*  PDSLOAD LOADS ISPF STATS WHEN THEY ARE AVAILABLE.  ALSO, NULL
//*  MEMBERS OF PDS'ES WILL GET LOST WITH IEBUPDTE (AND WILL GET RC 4),
//*  BUT WHEN USING PDSLOAD, THESE NULL MEMBERS WILL NOT GET LOST.
//*
//*  FILES WITH NULL MEMBERS ARE MARKED:   >>> GETS RC=4 WITH IEBUPDTE
//*
//* (THE LOAD MODULE FOR PDSLOAD CAN NOW BE FOUND ON FILE 035.)
//*
//* ASSEMBLER:   IFOX00 HAS BEEN CHANGED TO IEV90.  IF YOU ONLY HAVE
//* IFOX00, THEN CHANGE DDNAME "SYSLIN" IN THE //ASM STEP TO SYSGO.
//* MAKE THIS CHANGE IN ALL SIX PLACES.  NOTE THAT THE //LKED STEP
//* ALSO HAS A SYSLIN DDNAME.  DON'T CHANGE THAT ONE.
//*
//* IEV90 HAS BEEN CHANGED TO ASMA90.  TO USE IEV90, UNCOMMENT AND
//* COMMENT THE APPROPRIATE LINES IN THE //ASM STEPS (6 OF THEM).
//*
//* >>>  NOTE:  DEFAULT REGION SIZES HAVE BEEN CHANGED FROM      <<<
//* >>>  256K TO 600K.  IF NOT BIG ENOUGH, PLEASE REPORT         <<<
//* >>>  THIS SITUATION TO ME.  (SAM GOLOB - SBGOLOB@IBM.NET OR  <<<
//* >>>                                      SBGOLOB@AOL.COM   ) <<<
//*
//* THIS JOB IS NOW SPLIT INTO SIX SEPARATE JOBS BECAUSE OF
//* IBM'S RESTRICTION THAT A JOB MAY NOT HAVE MORE THAN
//* 255 STEPS. THE FIRST JOB HAS 100 STEPS THE SECOND THE NEXT 100...
//* THE SIXTH JOB WILL LOAD FILE 001 OF THE TAPE INTO A PRE-
//* DEFINED VSAM CLUSTER FOR INFO/MVS DATABASE PROCESSING (YOU
//* HAVE TO HAVE INFOMVS).
//*
//*  YOU MAY HAVE A PROBLEM WITH SOME OF THESE FILES THAT ARE
//*  IEBCOPIED DOWN IF YOU TRY TO DROP TO A NON-3350 TYPE
//*  DEVICE SINCE MOST INPUT WAS FULL TRACK BLOCKED ON A 3350.
//*  THE ORIGINAL DCB'S ARE MARKED BELOW. YOU CAN DROP DOWN LOAD
//*  MODULES INTO A SMALLER BLOCKSIZE PDS, HOWEVER YOU WILL GET A
//*  WARNING MESSAGE AND YOU WILL NOT BE ABLE TO DO A COMPRESS
//*  IN PLACE ON THAT LIBRARY UNTIL YOU GET RID OF THE OFFENDING
//*  MEMBERS OR RELINK THEM BACK IN.  (SEE NEXT NOTE)
//*
//*  ON DFP SYSTEMS, IEBCOPY HAS THE COPYMOD OPTION
//*  WHICH WILL REBLOCK THE OUTPUT MODULES, SO THE ENDS OF
//*  ANY LONG BLOCKS WILL NOT GET LOST.  INSTEAD OF THE
//*  CONTROL CARD, COPY, USE COPYMOD ...,MAXBLK=6144 OR SOME
//*  OTHER, SMALL ENOUGH VALUE FOR THE OUTPUT BLOCK SIZE.
//*
//*  IF YOU STAY WITH 'COPY', YOU MAY GET THE FOLLOWING MESSAGE:
//*  IEB175I - WARNING INPUT RECORD IS GREATER THAN OUTPUT BLKSIZE
//*            DDNAME=XXXXXXXX,OUTPUT TTRN=00000000
//*
//*  NEXT NOTE:  HOWEVER, MOST OF US ARE RUNNING ON VERY MODERN
//*              SYSTEMS AND ARE USING 3380 OR 3390 DISK PACKS,
//*              OR OTHER DASD WITH LARGER TRACK SIZES THAN 19069,
//*              WHICH IS THE TRACK SIZE OF A 3350 DISK PACK.
//*              THEREFORE, SINCE WE'RE NOT TRYING TO LOAD TO A
//*              3330 (TRACK SIZE 13030), THERE'S NO PROBLEM.
//*
//*              IF WE WOULD (PERCHANCE) WANT TO CUT THE BLOCKSIZE
//*              OF AN IEBCOPY-UNLOADED LOAD LIBRARY ON THIS TAPE,
//*              DO AS FOLLOWS:
//*
//*              WE CAN OVERRIDE THE SYSIN DDNAME ON THE "COPY"
//*              PROC AS BELOW.  OUR SYSTEM HAS TO BE RUNNING A "DFP"
//*              VERSION OF IEBCOPY, AS OPPOSED TO "PRE-DFP", SO
//*              THAT THE COPYMOD KEYWORD WILL WORK.
//*
//*       //SYSIN  DD  *
//*         COPYMOD I=SYSUT1,O=SYSUT2,MAXBLK=6144
//*       /*
//*
//*         (WHERE 6144 CAN BE ANY SMALL BLOCKSIZE OF YOUR CHOICE)
//*
//*
//ASMFCL PROC  V1=ANY,         -   INPUT TAPE VOLUME
//*            VO=,            -   OUTPUT DASD VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             LAB=002,            INPUT TAPE LABEL NUMBER FOR PROGRAM
//             CLASS=A,        -   SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             WORK2=SYSDA,        DASD WORK TYPE
//             INDEX=MVS,      -   FIRST LEVEL INDEX FOR DSNAME
//             DSP=PASS,           OUTPUT DATASET DISPOSITION
//             UNT=TAPE,       -   TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=1,              PRIMARY ALLOCATION
//             SEC=1,              SECONDARY ALLOCATION
//             DIR=1,              NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             FM=FB               RECFM
//ASM     EXEC  PGM=ASMA90,REGION=1024K,COND=EVEN,PARM='OBJECT,NODECK'
//*SM     EXEC  PGM=IEV90,REGION=1024K,COND=EVEN,PARM='OBJECT,NODECK'
//SYSPRINT DD  SYSOUT=&CLASS
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
//         DD  DSN=SYS1.AMODGEN,DISP=SHR
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT2   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSPUNCH DD  DUMMY
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE) VOL=SER=&VO
//SYSIN    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//LKED     EXEC  PGM=IEWL,REGION=600K,COND=(4,LT,ASM),PARM=LIST
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSLMOD  DD  DSN=&INDEX..FILE&LAB..LOAD(&P),DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE) VOL=SER=&VO
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(OLD,&DSP),
//             LABEL=(&LAB,&TY)
//       PEND
//COPY   PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             WORK2=SYSDA,        DASD WORK TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK           ALLOC INCREMENT
//COPY     EXEC  PGM=IEBCOPY,REGION=600K,COND=EVEN
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT4   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE),VOL=SER=&VO
//SYSIN    DD  DUMMY
//       PEND
//GENERO PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//GENER    EXEC  PGM=IEBGENER,REGION=600K,COND=EVEN
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE),VOL=SER=&VO
//SYSIN    DD  DUMMY
//       PEND
//UPDATEO PROC V1=ANY,             INPUT TAPE VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             P1=IEBUPDTE,   PROGRAM TO PROCESS IEBUPDTE SYSIN
//*                           STREAM. YOU MAY USE THE NORMAL IBM PGM
//*                           OR YOU MAY HAVE INSTALLED THE PDSLOAD
//*                           PROGRAM FROM FILE 316 OF THE CBT TAPE
//*                           WHICH IS USEFUL FOR FILES UNLOADED BY
//*                           THE FAMOUS YALE OFFLOAD PROGRAM. CAN
//*                           CHANGE THE IMBEDDED '><' TO './' AT
//*                           RELOAD.
//*   ---->                    IF PDSLOAD,  USE SYSUT1 DD
//*   ---->                    IF IEBUPDTE, USE SYSIN  DD
//             STEPLB='SYS1.LINKLIB',   LIBRARY THAT CONTAINS PGM=P1
//             S='NEW',            'NEW'           IF IEBUPDTE
//*   ---->                        'UPDTE(><)'     IF PDSLOAD
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//UPDATE1  EXEC  PGM=&P,REGION=512K,COND=EVEN
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//OUTPUT   DD  DSN=&&TEMP,DISP=(NEW,PASS),
//             UNIT=&WORK1,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE) VOL=SER=&VO
//UPDATE2  EXEC  PGM=&P1,PARM='&S',COND=EVEN
//STEPLIB  DD  DSN=&STEPLB,DISP=SHR
//SYSPRINT DD  SYSOUT=&CLASS     <<====  DUMMY OUT TO CUT PRINTOUT
//*                            IF PDSLOAD,  USE SYSUT1 DD
//*                            IF IEBUPDTE, USE SYSIN  DD
//SYSIN    DD  DSN=&&TEMP,DISP=(OLD,DELETE)
//*YSUT1   DD  DSN=&&TEMP,DISP=(OLD,DELETE)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE),VOL=SER=&VO
//       PEND
//GENER  PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             LAB=,               INPUT TAPE LABEL NUMBER
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32716,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//GENER    EXEC  PGM=&P,REGION=512K,COND=EVEN
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//OUTPUT   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE),VOL=SER=&VO
//       PEND
//ASMFCL      EXEC ASMFCL
//STEP001     EXEC GENERO,LAB=001
//STEP002     EXEC GENERO,LAB=002
//STEP003     EXEC GENERO,LAB=003
//STEP004     EXEC GENERO,LAB=004
//STEP005     EXEC GENERO,LAB=005
//STEP006     EXEC UPDATEO,LAB=006
//STEP007     EXEC UPDATEO,LAB=007
//STEP008     EXEC UPDATEO,LAB=008
//STEP009     EXEC UPDATEO,LAB=009
//STEP010     EXEC UPDATEO,LAB=010
//STEP011     EXEC UPDATEO,LAB=011
//STEP012     EXEC UPDATEO,LAB=012
//STEP013     EXEC UPDATEO,LAB=013
//STEP014     EXEC UPDATEO,LAB=014
//STEP015     EXEC UPDATEO,LAB=015
//STEP016     EXEC UPDATEO,LAB=016
//STEP017     EXEC UPDATEO,LAB=017
//STEP018     EXEC GENERO,LAB=018,FM=FBA,LR=133,BKI=32718,BKO=6118
//STEP019     EXEC UPDATEO,LAB=019
//STEP020     EXEC UPDATEO,LAB=020
//STEP021     EXEC UPDATEO,LAB=021
//STEP022     EXEC UPDATEO,LAB=022
//STEP023     EXEC UPDATEO,LAB=023
//STEP024     EXEC UPDATEO,LAB=024
//STEP025     EXEC UPDATEO,LAB=025
//STEP026     EXEC UPDATEO,LAB=026
//STEP027     EXEC UPDATEO,LAB=027
//STEP028     EXEC COPY,LAB=028   DCB=RECFM=VB,LRECL=255,BLISIZE=15300
//STEP029     EXEC UPDATEO,LAB=029
//STEP030     EXEC UPDATEO,LAB=030
//STEP031     EXEC UPDATEO,LAB=031
//STEP032     EXEC UPDATEO,LAB=032
//STEP033     EXEC UPDATEO,LAB=033
//STEP034     EXEC UPDATEO,LAB=034
//STEP035     EXEC COPY,LAB=035   DCB=RECFM=U,BLKSIZE=19069
//STEP036     EXEC UPDATEO,LAB=036
//STEP037     EXEC UPDATEO,LAB=037
//STEP038     EXEC UPDATEO,LAB=038
//STEP039     EXEC UPDATEO,LAB=039
//STEP040     EXEC UPDATEO,LAB=040
//STEP041     EXEC UPDATEO,LAB=041
//STEP042     EXEC UPDATEO,LAB=042              (WAS //STEP004.)
//STEP043     EXEC GENERO,LAB=043,FM=VB,LR=255,BKI=3120,BKO=3120
//STEP044     EXEC UPDATEO,LAB=044
//STEP045     EXEC UPDATEO,LAB=045
//STEP046     EXEC UPDATEO,LAB=046
//STEP047     EXEC UPDATEO,LAB=047
//STEP048     EXEC UPDATEO,LAB=048
//STEP050     EXEC UPDATEO,LAB=050
//STEP051     EXEC UPDATEO,LAB=051
//STEP053     EXEC UPDATEO,LAB=053
//STEP054     EXEC UPDATEO,LAB=054
//STEP055     EXEC UPDATEO,LAB=055
//STEP056     EXEC UPDATEO,LAB=056
//STEP057     EXEC COPY,LAB=057   DCB=RECFM=VB,LRECL=255,BLKSIZE=6233
//STEP058     EXEC UPDATEO,LAB=058
//STEP059     EXEC UPDATEO,LAB=059
//STEP060     EXEC UPDATEO,LAB=060
//STEP061     EXEC COPY,LAB=061   DCB=RECFM=U,BLKSIZE=19069
//STEP062     EXEC GENERO,LAB=062,FM=FB,LR=2040,BKI=2040,BKO=2040
//STEP063     EXEC GENERO,LAB=063,FM=FB,LR=8180,BKI=8180,BKO=8180
//STEP064     EXEC GENERO,LAB=064,FM=FB,LR=53,BKI=5300,BKO=5300
//STEP065     EXEC UPDATEO,LAB=065
//STEP066     EXEC UPDATEO,LAB=066
//STEP067     EXEC UPDATEO,LAB=067
//STEP069     EXEC UPDATEO,LAB=069
//STEP070     EXEC UPDATEO,LAB=070
//STEP071     EXEC UPDATEO,LAB=071
//STEP072     EXEC UPDATEO,LAB=072
//STEP073     EXEC COPY,LAB=073
//STEP074     EXEC UPDATEO,LAB=074
//STEP075     EXEC UPDATEO,LAB=075
//STEP076     EXEC UPDATEO,LAB=076
//STEP078     EXEC UPDATEO,LAB=078
//STEP079     EXEC UPDATEO,LAB=079
//STEP080     EXEC UPDATEO,LAB=080
//STEP081     EXEC UPDATEO,LAB=081
//STEP082     EXEC UPDATEO,LAB=082
//STEP083     EXEC UPDATEO,LAB=083
//STEP084     EXEC UPDATEO,LAB=084
//STEP085     EXEC UPDATEO,LAB=085
//STEP086     EXEC UPDATEO,LAB=086
//STEP087     EXEC UPDATEO,LAB=087
//STEP088     EXEC UPDATEO,LAB=088
//STEP089     EXEC UPDATEO,LAB=089
//STEP090     EXEC UPDATEO,LAB=090
//STEP091     EXEC UPDATEO,LAB=091
//STEP092     EXEC COPY,LAB=092,DIR=229  DCB=RECFM=U,BLKSIZE=6K
//STEP093     EXEC UPDATEO,LAB=093
//STEP094     EXEC UPDATEO,LAB=094
//STEP095     EXEC UPDATEO,LAB=095
//STEP096     EXEC UPDATEO,LAB=096
//STEP097     EXEC UPDATEO,LAB=097
//STEP098     EXEC UPDATEO,LAB=098
//STEP099     EXEC GENERO,LAB=099,FM=FB,LR=251,BKI=32630,BKO=4267
//JOB2 JOB
//*
//* THIS JOB IS NOW SPLIT INTO SIX SEPARATE JOBS BECAUSE OF
//* IBM'S RESTRICTION THAT A JOB MAY NOT HAVE MORE THAN
//* 255 STEPS. THE FIRST JOB HAS 200 STEPS THE SECOND THE REST.
//* THE SIXTH JOB WILL LOAD FILE 001 OF THE TAPE INTO A PRE-
//* DEFINED VSAM CLUSTER FOR INFO/MVS DATABASE PROCESSING (YOU
//* HAVE TO HAVE INFOMVS).
//*
//*
//*  YOU MAY HAVE A PROBLEM WITH SOME OF THESE FILES THAT ARE
//*  IEBCOPIED DOWN IF YOU TRY TO DROP TO A NON-3350 TYPE
//*  DEVICE SINCE MOST INPUT WAS FULL TRACK BLOCKED ON A 3350.
//*  THE ORIGINAL DCB'S ARE MARKED BELOW. YOU CAN DROP DOWN LOAD
//*  MODULES INTO A SMALLER BLOCKSIZE PDS, HOWEVER YOU WILL GET A
//*  WARNING MESSAGE AND YOU WILL NOT BE ABLE TO DO A COMPRESS
//*  IN PLACE ON THAT LIBRARY UNTIL YOU GET RID OF THE OFFENDING
//*  MEMBERS OR RELINK THEM BACK IN
//*
//*  YOU WILL GET THE FOLLOWING MESSAGE:
//*  IEB175I - WARNING INPUT RECORD IS GREATER THAN OUTPUT BLKSIZE
//*            DDNAME=XXXXXXXX,OUTPUT TTRN=00000000
//*
//*
//ASMFCL PROC  V1=ANY,         -   INPUT TAPE VOLUME
//*            VO=,            -   OUTPUT DASD VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             LAB=002,            INPUT TAPE LABEL NUMBER FOR PROGRAM
//             CLASS=A,        -   SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             WORK2=SYSDA,        DASD WORK TYPE
//             INDEX=MVS,      -   FIRST LEVEL INDEX FOR DSNAME
//             DSP=PASS,           OUTPUT DATASET DISPOSITION
//             UNT=TAPE,       -   TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=1,              PRIMARY ALLOCATION
//             SEC=1,              SECONDARY ALLOCATION
//             DIR=1,              NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             FM=FB               RECFM
//ASM     EXEC  PGM=ASMA90,REGION=1024K,COND=EVEN,PARM='OBJECT,NODECK'
//*SM     EXEC  PGM=IEV90,REGION=1024K,COND=EVEN,PARM='OBJECT,NODECK'
//SYSPRINT DD  SYSOUT=&CLASS
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
//         DD  DSN=SYS1.AMODGEN,DISP=SHR
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT2   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSPUNCH DD  DUMMY
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE) VOL=SER=&VO
//SYSIN    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//LKED     EXEC  PGM=IEWL,REGION=600K,COND=(4,LT,ASM),PARM=LIST
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSLMOD  DD  DSN=&INDEX..FILE&LAB..LOAD(&P),DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE) VOL=SER=&VO
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(OLD,&DSP),
//             LABEL=(&LAB,&TY)
//       PEND
//COPY   PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             WORK2=SYSDA,        DASD WORK TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK           ALLOC INCREMENT
//COPY     EXEC  PGM=IEBCOPY,REGION=600K,COND=EVEN
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT4   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE),VOL=SER=&VO
//SYSIN    DD  DUMMY
//       PEND
//GENERO PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//GENER    EXEC  PGM=IEBGENER,REGION=600K,COND=EVEN
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE),VOL=SER=&VO
//SYSIN    DD  DUMMY
//       PEND
//UPDATEO PROC V1=ANY,             INPUT TAPE VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             P1=IEBUPDTE,   PROGRAM TO PROCESS IEBUPDTE SYSIN
//*                           STREAM. YOU MAY USE THE NORMAL IBM PGM
//*                           OR YOU MAY HAVE INSTALLED THE PDSLOAD
//*                           PROGRAM FROM FILE 316 OF THE CBT TAPE
//*                           WHICH IS USEFUL FOR FILES UNLOADED BY
//*                           THE FAMOUS YALE OFFLOAD PROGRAM. CAN
//*                           CHANGE THE IMBEDDED '><' TO './' AT
//*                           RELOAD.
//*   ---->                    IF PDSLOAD,  USE SYSUT1 DD
//*   ---->                    IF IEBUPDTE, USE SYSIN  DD
//             STEPLB='SYS1.LINKLIB',   LIBRARY THAT CONTAINS PGM=P1
//             S='NEW',            'NEW'           IF IEBUPDTE
//*   ---->                        'UPDTE(><)'     IF PDSLOAD
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//UPDATE1  EXEC  PGM=&P,REGION=512K,COND=EVEN
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//OUTPUT   DD  DSN=&&TEMP,DISP=(NEW,PASS),
//             UNIT=&WORK1,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE) VOL=SER=&VO
//UPDATE2  EXEC  PGM=&P1,PARM='&S',COND=EVEN
//STEPLIB  DD  DSN=&STEPLB,DISP=SHR
//SYSPRINT DD  SYSOUT=&CLASS     <<====  DUMMY OUT TO CUT PRINTOUT
//*                            IF PDSLOAD,  USE SYSUT1 DD
//*                            IF IEBUPDTE, USE SYSIN  DD
//SYSIN    DD  DSN=&&TEMP,DISP=(OLD,DELETE)
//*YSUT1   DD  DSN=&&TEMP,DISP=(OLD,DELETE)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE),VOL=SER=&VO
//       PEND
//GENER  PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             LAB=,               INPUT TAPE LABEL NUMBER
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32716,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//GENER    EXEC  PGM=&P,REGION=512K,COND=EVEN
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//OUTPUT   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE),VOL=SER=&VO
//       PEND
//ASMFCL      EXEC ASMFCL
//STEP100     EXEC UPDATEO,LAB=100
//STEP101     EXEC UPDATEO,LAB=101
//STEP102     EXEC UPDATEO,LAB=102
//STEP103     EXEC UPDATEO,LAB=103
//STEP104     EXEC UPDATEO,LAB=104
//STEP105     EXEC UPDATEO,LAB=105
//STEP106     EXEC UPDATEO,LAB=106
//STEP107     EXEC UPDATEO,LAB=107
//STEP108     EXEC UPDATEO,LAB=108
//STEP109     EXEC UPDATEO,LAB=109
//STEP110     EXEC GENERO,LAB=110,FM=FBA,LR=133,BKI=32718,BKO=6118
//STEP111     EXEC UPDATEO,LAB=111
//STEP112     EXEC UPDATEO,LAB=112
//STEP113     EXEC UPDATEO,LAB=113
//STEP114     EXEC UPDATEO,LAB=114
//STEP115     EXEC COPY,LAB=115   DCB=RECFM=VB,BLKSIZE=6156,LRECL=104
//STEP116     EXEC UPDATEO,LAB=116
//STEP117     EXEC UPDATEO,LAB=117
//STEP118     EXEC UPDATEO,LAB=118
//STEP119     EXEC UPDATEO,LAB=119
//STEP120     EXEC UPDATEO,LAB=120
//STEP121     EXEC COPY,LAB=121
//STEP122     EXEC UPDATEO,LAB=122
//STEP124     EXEC UPDATEO,LAB=124
//STEP125     EXEC UPDATEO,LAB=125
//STEP126     EXEC UPDATEO,LAB=126
//STEP127     EXEC UPDATEO,LAB=127
//STEP128     EXEC UPDATEO,LAB=128
//STEP129     EXEC UPDATEO,LAB=129
//STEP130     EXEC UPDATEO,LAB=130
//STEP131     EXEC UPDATEO,LAB=131
//STEP132     EXEC UPDATEO,LAB=132
//STEP133     EXEC UPDATEO,LAB=133
//STEP134     EXEC UPDATEO,LAB=134
//STEP135     EXEC COPY,LAB=135   DCB=RECFM=U,BLKSIZE=19069
//STEP136     EXEC UPDATEO,LAB=136
//STEP137     EXEC UPDATEO,LAB=137
//STEP138     EXEC UPDATEO,LAB=138
//STEP139     EXEC UPDATEO,LAB=139
//STEP140     EXEC UPDATEO,LAB=140
//STEP141     EXEC UPDATEO,LAB=141
//STEP142     EXEC UPDATEO,LAB=142
//STEP143     EXEC UPDATEO,LAB=143
//STEP144     EXEC UPDATEO,LAB=144
//STEP145     EXEC COPY,LAB=145   DCB=RECFM=U,BLKSIZE=6144
//STEP146     EXEC UPDATEO,LAB=146
//STEP147     EXEC UPDATEO,LAB=147   >>> GETS RC=4 WITH IEBUPDTE
//STEP148     EXEC UPDATEO,LAB=148
//STEP149     EXEC UPDATEO,LAB=149
//STEP150     EXEC UPDATEO,LAB=150
//STEP151     EXEC UPDATEO,LAB=151
//STEP152     EXEC UPDATEO,LAB=152
//STEP153     EXEC COPY,LAB=153  DCB=RECFM=VBM,LRECL=8205,BLISIZE=8209
//STEP154     EXEC UPDATEO,LAB=154
//STEP155     EXEC UPDATEO,LAB=155
//STEP156     EXEC UPDATEO,LAB=156   >>> GETS RC=4 WITH IEBUPDTE
//STEP157     EXEC GENERO,LAB=157,FM=FBA,LR=133,BKI=32718,BKO=6118
//STEP158     EXEC UPDATEO,LAB=158
//STEP159     EXEC UPDATEO,LAB=159
//STEP160     EXEC UPDATEO,LAB=160
//STEP161     EXEC UPDATEO,LAB=161
//STEP162     EXEC UPDATEO,LAB=162
//STEP163     EXEC UPDATEO,LAB=163
//STEP164     EXEC UPDATEO,LAB=164
//STEP165     EXEC UPDATEO,LAB=165
//STEP166     EXEC UPDATEO,LAB=166
//STEP167     EXEC UPDATEO,LAB=167
//STEP168     EXEC UPDATEO,LAB=168
//STEP169     EXEC UPDATEO,LAB=169
//STEP170     EXEC UPDATEO,LAB=170
//STEP171     EXEC UPDATEO,LAB=171
//STEP172     EXEC UPDATEO,LAB=172
//STEP173     EXEC UPDATEO,LAB=173
//STEP174     EXEC UPDATEO,LAB=174
//STEP175     EXEC UPDATEO,LAB=175
//STEP176     EXEC COPY,LAB=176
//STEP177     EXEC UPDATEO,LAB=177
//STEP178     EXEC UPDATEO,LAB=178
//STEP179     EXEC UPDATEO,LAB=179
//STEP180     EXEC UPDATEO,LAB=180
//STEP181     EXEC UPDATEO,LAB=181
//STEP182     EXEC UPDATEO,LAB=182
//STEP183     EXEC UPDATEO,LAB=183
//STEP184     EXEC UPDATEO,LAB=184
//STEP185     EXEC UPDATEO,LAB=185
//STEP186     EXEC COPY,LAB=186
//STEP187     EXEC UPDATEO,LAB=187
//STEP188     EXEC UPDATEO,LAB=188
//STEP189     EXEC COPY,LAB=189   DCB=RECFM=FBA,LRECL=133,BLKSIZE=15428
//STEP190     EXEC UPDATEO,LAB=190
//STEP191     EXEC UPDATEO,LAB=191
//STEP192     EXEC UPDATEO,LAB=192
//STEP193     EXEC UPDATEO,LAB=193
//STEP194     EXEC UPDATEO,LAB=194
//STEP195     EXEC UPDATEO,LAB=195
//STEP196     EXEC UPDATEO,LAB=196
//STEP197     EXEC UPDATEO,LAB=197
//STEP198     EXEC UPDATEO,LAB=198
//STEP199     EXEC UPDATEO,LAB=199
//JOB3 JOB
//*
//* THIS JOB IS NOW SPLIT INTO SIX SEPARATE JOBS BECAUSE OF
//* IBM'S RESTRICTION THAT A JOB MAY NOT HAVE MORE THAN
//* 255 STEPS. THE FIRST JOB HAS 200 STEPS THE SECOND THE REST.
//* THE SIXTH JOB WILL LOAD FILE 001 OF THE TAPE INTO A PRE-
//* DEFINED VSAM CLUSTER FOR INFO/MVS DATABASE PROCESSING (YOU
//* HAVE TO HAVE INFOMVS).
//*
//*
//*  YOU MAY HAVE A PROBLEM WITH SOME OF THESE FILES THAT ARE
//*  IEBCOPIED DOWN IF YOU TRY TO DROP TO A NON-3350 TYPE
//*  DEVICE SINCE MOST INPUT WAS FULL TRACK BLOCKED ON A 3350.
//*  THE ORIGINAL DCB'S ARE MARKED BELOW. YOU CAN DROP DOWN LOAD
//*  MODULES INTO A SMALLER BLOCKSIZE PDS, HOWEVER YOU WILL GET A
//*  WARNING MESSAGE AND YOU WILL NOT BE ABLE TO DO A COMPRESS
//*  IN PLACE ON THAT LIBRARY UNTIL YOU GET RID OF THE OFFENDING
//*  MEMBERS OR RELINK THEM BACK IN
//*
//*  YOU WILL GET THE FOLLOWING MESSAGE:
//*  IEB175I - WARNING INPUT RECORD IS GREATER THAN OUTPUT BLKSIZE
//*            DDNAME=XXXXXXXX,OUTPUT TTRN=00000000
//*
//*
//ASMFCL PROC  V1=ANY,             INPUT TAPE VOLUME
//*            VO=,                OUTPUT DASD VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             LAB=002,            INPUT TAPE LABEL NUMBER FOR PROGRAM
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             WORK2=SYSDA,        DASD WORK TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             DSP=PASS,           OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=1,              PRIMARY ALLOCATION
//             SEC=1,              SECONDARY ALLOCATION
//             DIR=1,              NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             FM=FB               RECFM
//ASM     EXEC  PGM=ASMA90,REGION=1024K,COND=EVEN,PARM='OBJECT,NODECK'
//*SM     EXEC  PGM=IEV90,REGION=1024K,COND=EVEN,PARM='OBJECT,NODECK'
//SYSPRINT DD  SYSOUT=&CLASS
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
//         DD  DSN=SYS1.AMODGEN,DISP=SHR
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT2   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSPUNCH DD  DUMMY
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE) VOL=SER=&VO
//SYSIN    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//LKED     EXEC  PGM=IEWL,REGION=600K,COND=(4,LT,ASM),PARM=LIST
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSLMOD  DD  DSN=&INDEX..FILE&LAB..LOAD(&P),DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE) VOL=SER=&VO
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(OLD,&DSP),
//             LABEL=(&LAB,&TY)
//       PEND
//COPY   PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             WORK2=SYSDA,        DASD WORK TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK           ALLOC INCREMENT
//COPY     EXEC  PGM=IEBCOPY,REGION=600K,COND=EVEN
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT4   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE),VOL=SER=&VO
//SYSIN    DD  DUMMY
//       PEND
//GENERO PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//GENER    EXEC  PGM=IEBGENER,REGION=600K,COND=EVEN
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE),VOL=SER=&VO
//SYSIN    DD  DUMMY
//       PEND
//UPDATEO PROC V1=ANY,             INPUT TAPE VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             P1=IEBUPDTE,   PROGRAM TO PROCESS IEBUPDTE SYSIN
//*                           STREAM. YOU MAY USE THE NORMAL IBM PGM
//*                           OR YOU MAY HAVE INSTALLED THE PDSLOAD
//*                           PROGRAM FROM FILE 316 OF THE CBT TAPE
//*                           WHICH IS USEFUL FOR FILES UNLOADED BY
//*                           THE FAMOUS YALE OFFLOAD PROGRAM. CAN
//*                           CHANGE THE IMBEDDED '><' TO './' AT
//*                           RELOAD.
//*   ---->                    IF PDSLOAD,  USE SYSUT1 DD
//*   ---->                    IF IEBUPDTE, USE SYSIN  DD
//             STEPLB='SYS1.LINKLIB',   LIBRARY THAT CONTAINS PGM=P1
//             S='NEW',            'NEW'           IF IEBUPDTE
//*   ---->                        'UPDTE(><)'     IF PDSLOAD
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//UPDATE1  EXEC  PGM=&P,REGION=512K,COND=EVEN
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//OUTPUT   DD  DSN=&&TEMP,DISP=(NEW,PASS),
//             UNIT=&WORK1,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE) VOL=SER=&VO
//UPDATE2  EXEC  PGM=&P1,PARM='&S',COND=EVEN
//STEPLIB  DD  DSN=&STEPLB,DISP=SHR
//SYSPRINT DD  SYSOUT=&CLASS     <<====  DUMMY OUT TO CUT PRINTOUT
//*                            IF PDSLOAD,  USE SYSUT1 DD
//*                            IF IEBUPDTE, USE SYSIN  DD
//SYSIN    DD  DSN=&&TEMP,DISP=(OLD,DELETE)
//*YSUT1   DD  DSN=&&TEMP,DISP=(OLD,DELETE)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE),VOL=SER=&VO
//       PEND
//GENER  PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             LAB=,               INPUT TAPE LABEL NUMBER
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32716,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//GENER    EXEC  PGM=&P,REGION=512K,COND=EVEN
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//OUTPUT   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE),VOL=SER=&VO
//       PEND
//ASMFCL      EXEC ASMFCL
//STEP200     EXEC UPDATEO,LAB=200
//STEP201     EXEC UPDATEO,LAB=201
//STEP202     EXEC COPY,LAB=202
//STEP203     EXEC UPDATEO,LAB=203
//STEP204     EXEC UPDATEO,LAB=204
//STEP205     EXEC COPY,LAB=205
//STEP206     EXEC UPDATEO,LAB=206
//STEP207     EXEC UPDATEO,LAB=207
//STEP208     EXEC UPDATEO,LAB=208
//STEP209     EXEC UPDATEO,LAB=209
//STEP210     EXEC UPDATEO,LAB=210
//STEP211     EXEC COPY,LAB=211
//STEP212     EXEC UPDATEO,LAB=212
//STEP213     EXEC COPY,LAB=213
//STEP214     EXEC UPDATEO,LAB=214
//STEP215     EXEC UPDATEO,LAB=215
//STEP216     EXEC UPDATEO,LAB=216
//STEP217     EXEC UPDATEO,LAB=217
//STEP218     EXEC UPDATEO,LAB=218
//STEP219     EXEC UPDATEO,LAB=219
//STEP220     EXEC UPDATEO,LAB=220
//STEP221     EXEC COPY,LAB=221
//STEP222     EXEC UPDATEO,LAB=222
//STEP223     EXEC UPDATEO,LAB=223
//STEP224     EXEC COPY,LAB=224
//STEP225     EXEC UPDATEO,LAB=225
//STEP226     EXEC UPDATEO,LAB=226
//STEP227     EXEC UPDATEO,LAB=227
//STEP228     EXEC UPDATEO,LAB=228
//STEP229     EXEC UPDATEO,LAB=229
//STEP230     EXEC GENERO,LAB=230,FM=FBA,LR=133,BKI=32718,BKO=6118
//STEP231     EXEC UPDATEO,LAB=231
//STEP232     EXEC UPDATEO,LAB=232
//STEP233     EXEC UPDATEO,LAB=233
//STEP234     EXEC UPDATEO,LAB=234
//STEP235     EXEC UPDATEO,LAB=235
//STEP236     EXEC UPDATEO,LAB=236
//STEP237     EXEC UPDATEO,LAB=237
//STEP238     EXEC COPY,LAB=238
//STEP239     EXEC UPDATEO,LAB=239
//STEP240     EXEC UPDATEO,LAB=240
//STEP241     EXEC UPDATEO,LAB=241
//STEP242     EXEC COPY,LAB=242
//STEP244     EXEC UPDATEO,LAB=244
//STEP245     EXEC UPDATEO,LAB=245
//STEP247     EXEC UPDATEO,LAB=247
//STEP248     EXEC UPDATEO,LAB=248
//STEP249     EXEC UPDATEO,LAB=249
//STEP250     EXEC UPDATEO,LAB=250
//STEP251     EXEC UPDATEO,LAB=251
//STEP252     EXEC UPDATEO,LAB=252
//STEP253     EXEC UPDATEO,LAB=253
//STEP254     EXEC UPDATEO,LAB=254
//STEP255     EXEC UPDATEO,LAB=255
//STEP256     EXEC UPDATEO,LAB=256
//STEP257     EXEC UPDATEO,LAB=257
//STEP258     EXEC UPDATEO,LAB=258
//STEP259     EXEC COPY,LAB=259
//STEP260     EXEC UPDATEO,LAB=260
//STEP261     EXEC UPDATEO,LAB=261
//STEP262     EXEC UPDATEO,LAB=262
//STEP263     EXEC UPDATEO,LAB=263
//STEP264     EXEC UPDATEO,LAB=264
//STEP265     EXEC UPDATEO,LAB=265
//STEP266     EXEC UPDATEO,LAB=266
//STEP268     EXEC UPDATEO,LAB=268
//STEP269     EXEC UPDATEO,LAB=269
//STEP270     EXEC UPDATEO,LAB=270
//STEP271     EXEC UPDATEO,LAB=271
//STEP272     EXEC UPDATEO,LAB=272
//STEP273     EXEC UPDATEO,LAB=273
//STEP274     EXEC UPDATEO,LAB=274
//STEP275     EXEC UPDATEO,LAB=275
//STEP276     EXEC UPDATEO,LAB=276
//STEP277     EXEC UPDATEO,LAB=277
//STEP278     EXEC UPDATEO,LAB=278
//STEP279     EXEC COPY,LAB=279   DCB=RECFM=VB,LRECL=255,BLKSIZE=9036
//STEP280     EXEC UPDATEO,LAB=280
//STEP281     EXEC COPY,LAB=281   DCB=RECFM=U,BLKSIZE=7294
//STEP282     EXEC UPDATEO,LAB=282
//STEP283     EXEC COPY,LAB=283   DCB=RECFM=VB,LRECL=84,BLKSIZE=3360
//STEP284     EXEC UPDATEO,LAB=284
//STEP285     EXEC COPY,LAB=285
//STEP286     EXEC UPDATEO,LAB=286
//STEP287     EXEC UPDATEO,LAB=287
//STEP288     EXEC UPDATEO,LAB=288
//STEP289     EXEC UPDATEO,LAB=289
//STEP290     EXEC UPDATEO,LAB=290
//STEP291     EXEC UPDATEO,LAB=291
//STEP292     EXEC UPDATEO,LAB=292
//STEP294     EXEC UPDATEO,LAB=294
//STEP296     EXEC UPDATEO,LAB=296
//STEP297     EXEC UPDATEO,LAB=297
//STEP298     EXEC UPDATEO,LAB=298
//STEP299     EXEC UPDATEO,LAB=299
//JOB4 JOB
//*
//*  YOU MAY HAVE A PROBLEM WITH SOME OF THESE FILES THAT ARE
//*  IEBCOPIED DOWN IF YOU TRY TO DROP TO A NON-3350 TYPE
//*  DEVICE SINCE MOST INPUT WAS FULL TRACK BLOCKED ON A 3350.
//*  THE ORIGINAL DCB'S ARE MARKED BELOW. YOU CAN DROP DOWN LOAD
//*  MODULES INTO A SMALLER BLOCKSIZE PDS, HOWEVER YOU WILL GET A
//*  WARNING MESSAGE AND YOU WILL NOT BE ABLE TO DO A COMPRESS
//*  IN PLACE ON THAT LIBRARY UNTIL YOU GET RID OF THE OFFENDING
//*  MEMBERS OR RELINK THEM BACK IN
//*
//*  YOU WILL GET THE FOLLOWING MESSAGE:
//*  IEB175I - WARNING INPUT RECORD IS GREATER THAN OUTPUT BLKSIZE
//*            DDNAME=XXXXXXXX,OUTPUT TTRN=00000000
//*
//*
//ASMFCL PROC  V1=ANY,         -   INPUT TAPE VOLUME
//*            VO=,            -   OUTPUT DASD VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             LAB=002,            INPUT TAPE LABEL NUMBER FOR PROGRAM
//             CLASS=A,        -   SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             WORK2=SYSDA,        DASD WORK TYPE
//             INDEX=MVS,      -   FIRST LEVEL INDEX FOR DSNAME
//             DSP=PASS,           OUTPUT DATASET DISPOSITION
//             UNT=TAPE,       -   TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=1,              PRIMARY ALLOCATION
//             SEC=1,              SECONDARY ALLOCATION
//             DIR=1,              NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             FM=FB               RECFM
//ASM     EXEC  PGM=ASMA90,REGION=1024K,COND=EVEN,PARM='OBJECT,NODECK'
//*SM     EXEC  PGM=IEV90,REGION=1024K,COND=EVEN,PARM='OBJECT,NODECK'
//SYSPRINT DD  SYSOUT=&CLASS
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
//         DD  DSN=SYS1.AMODGEN,DISP=SHR
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT2   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSPUNCH DD  DUMMY
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE) VOL=SER=&VO
//SYSIN    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//LKED     EXEC  PGM=IEWL,REGION=600K,COND=(4,LT,ASM),PARM=LIST
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSLMOD  DD  DSN=&INDEX..FILE&LAB..LOAD(&P),DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE) VOL=SER=&VO
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(OLD,&DSP),
//             LABEL=(&LAB,&TY)
//       PEND
//COPY   PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             WORK2=SYSDA,        DASD WORK TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK           ALLOC INCREMENT
//COPY     EXEC  PGM=IEBCOPY,REGION=600K,COND=EVEN
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT4   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE),VOL=SER=&VO
//SYSIN    DD  DUMMY
//       PEND
//GENERO PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//GENER    EXEC  PGM=IEBGENER,REGION=600K,COND=EVEN
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE),VOL=SER=&VO
//SYSIN    DD  DUMMY
//       PEND
//UPDATEO PROC V1=ANY,             INPUT TAPE VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             P1=IEBUPDTE,   PROGRAM TO PROCESS IEBUPDTE SYSIN
//*                           STREAM. YOU MAY USE THE NORMAL IBM PGM
//*                           OR YOU MAY HAVE INSTALLED THE PDSLOAD
//*                           PROGRAM FROM FILE 316 OF THE CBT TAPE
//*                           WHICH IS USEFUL FOR FILES UNLOADED BY
//*                           THE FAMOUS YALE OFFLOAD PROGRAM. CAN
//*                           CHANGE THE IMBEDDED '><' TO './' AT
//*                           RELOAD.
//*   ---->                    IF PDSLOAD,  USE SYSUT1 DD
//*   ---->                    IF IEBUPDTE, USE SYSIN  DD
//             STEPLB='SYS1.LINKLIB',   LIBRARY THAT CONTAINS PGM=P1
//             S='NEW',            'NEW'           IF IEBUPDTE
//*   ---->                        'UPDTE(><)'     IF PDSLOAD
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//UPDATE1  EXEC  PGM=&P,REGION=512K,COND=EVEN
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//OUTPUT   DD  DSN=&&TEMP,DISP=(NEW,PASS),
//             UNIT=&WORK1,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE) VOL=SER=&VO
//UPDATE2  EXEC  PGM=&P1,PARM='&S',COND=EVEN
//STEPLIB  DD  DSN=&STEPLB,DISP=SHR
//SYSPRINT DD  SYSOUT=&CLASS     <<====  DUMMY OUT TO CUT PRINTOUT
//*                            IF PDSLOAD,  USE SYSUT1 DD
//*                            IF IEBUPDTE, USE SYSIN  DD
//SYSIN    DD  DSN=&&TEMP,DISP=(OLD,DELETE)
//*YSUT1   DD  DSN=&&TEMP,DISP=(OLD,DELETE)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE),VOL=SER=&VO
//       PEND
//GENER  PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             LAB=,               INPUT TAPE LABEL NUMBER
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32716,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//GENER    EXEC  PGM=&P,REGION=512K,COND=EVEN
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//OUTPUT   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE),VOL=SER=&VO
//       PEND
//ASMFCL      EXEC ASMFCL
//STEP300     EXEC UPDATEO,LAB=300,DIR=134
//STEP301     EXEC UPDATEO,LAB=301
//STEP302     EXEC UPDATEO,LAB=302
//STEP303     EXEC UPDATEO,LAB=303
//STEP304     EXEC UPDATEO,LAB=304
//STEP305     EXEC COPY,LAB=305
//STEP306     EXEC UPDATEO,LAB=306
//STEP307     EXEC UPDATEO,LAB=307
//STEP308     EXEC UPDATEO,LAB=308
//STEP309     EXEC UPDATEO,LAB=309
//STEP310     EXEC UPDATEO,LAB=310
//STEP311     EXEC UPDATEO,LAB=311
//STEP312     EXEC UPDATEO,LAB=312
//STEP313     EXEC UPDATEO,LAB=313
//STEP314     EXEC UPDATEO,LAB=314
//STEP315     EXEC UPDATEO,LAB=315
//STEP316     EXEC UPDATEO,LAB=316
//STEP317     EXEC UPDATEO,LAB=317
//STEP318     EXEC UPDATEO,LAB=318
//STEP319     EXEC UPDATEO,LAB=319
//STEP320     EXEC UPDATEO,LAB=320
//STEP321     EXEC UPDATEO,LAB=321
//STEP322     EXEC UPDATEO,LAB=322
//STEP323     EXEC UPDATEO,LAB=323
//STEP324     EXEC COPY,LAB=324
//STEP325     EXEC UPDATEO,LAB=325
//STEP326     EXEC COPY,LAB=326,DIR=200
//STEP327     EXEC COPY,LAB=327
//STEP328     EXEC UPDATEO,LAB=328
//STEP329     EXEC UPDATEO,LAB=329
//STEP330     EXEC UPDATEO,LAB=330
//STEP331     EXEC UPDATEO,LAB=331
//STEP332     EXEC UPDATEO,LAB=332
//STEP333     EXEC UPDATEO,LAB=333
//STEP334     EXEC UPDATEO,LAB=334
//STEP335     EXEC UPDATEO,LAB=335
//STEP336     EXEC UPDATEO,LAB=336
//STEP337     EXEC UPDATEO,LAB=337
//STEP338     EXEC UPDATEO,LAB=338
//STEP339     EXEC UPDATEO,LAB=339
//STEP340     EXEC UPDATEO,LAB=340
//STEP341     EXEC UPDATEO,LAB=341
//STEP342     EXEC UPDATEO,LAB=342
//STEP343     EXEC UPDATEO,LAB=343
//STEP344     EXEC UPDATEO,LAB=344
//STEP345     EXEC UPDATEO,LAB=345
//STEP346     EXEC UPDATEO,LAB=346
//STEP347     EXEC UPDATEO,LAB=347
//STEP348     EXEC UPDATEO,LAB=348
//STEP349     EXEC UPDATEO,LAB=349
//STEP350     EXEC UPDATEO,LAB=350
//STEP351     EXEC UPDATEO,LAB=351
//STEP352     EXEC UPDATEO,LAB=352
//STEP353     EXEC UPDATEO,LAB=353
//STEP354     EXEC UPDATEO,LAB=354
//STEP355     EXEC UPDATEO,LAB=355
//STEP356     EXEC UPDATEO,LAB=356
//STEP357     EXEC UPDATEO,LAB=357
//STEP358     EXEC UPDATEO,LAB=358
//STEP359     EXEC UPDATEO,LAB=359
//STEP360     EXEC UPDATEO,LAB=360
//STEP361     EXEC UPDATEO,LAB=361
//STEP362     EXEC COPY,LAB=362
//STEP363     EXEC UPDATEO,LAB=363
//STEP364     EXEC UPDATEO,LAB=364
//STEP365     EXEC UPDATEO,LAB=365
//STEP366     EXEC UPDATEO,LAB=366
//STEP367     EXEC UPDATEO,LAB=367
//STEP368     EXEC UPDATEO,LAB=368
//STEP369     EXEC UPDATEO,LAB=369
//STEP370     EXEC UPDATEO,LAB=370
//STEP371     EXEC COPY,LAB=371   DCB=RECFM=U,BLKSIZE=19070
//STEP372     EXEC UPDATEO,LAB=372
//STEP373     EXEC UPDATEO,LAB=373
//STEP374     EXEC UPDATEO,LAB=374
//STEP375     EXEC UPDATEO,LAB=375
//STEP376     EXEC UPDATEO,LAB=376
//STEP377     EXEC UPDATEO,LAB=377
//STEP378     EXEC UPDATEO,LAB=378
//STEP379     EXEC UPDATEO,LAB=379
//STEP381     EXEC UPDATEO,LAB=381
//STEP382     EXEC UPDATEO,LAB=382
//STEP383     EXEC COPY,LAB=383   DCB=RECFM=VB,LRECL=84,BLKSIZE=15456
//STEP384     EXEC UPDATEO,LAB=384
//STEP385     EXEC UPDATEO,LAB=385
//STEP386     EXEC UPDATEO,LAB=386
//STEP388     EXEC UPDATEO,LAB=388
//STEP390     EXEC UPDATEO,LAB=390
//STEP391     EXEC UPDATEO,LAB=391
//STEP392     EXEC UPDATEO,LAB=392   >>> GETS RC=4 WITH IEBUPDTE
//STEP393     EXEC UPDATEO,LAB=393
//STEP394     EXEC UPDATEO,LAB=394
//STEP395     EXEC UPDATEO,LAB=395
//STEP396     EXEC UPDATEO,LAB=396
//STEP397     EXEC UPDATEO,LAB=397
//STEP398     EXEC UPDATEO,LAB=398
//STEP399     EXEC UPDATEO,LAB=399
//STEP400     EXEC UPDATEO,LAB=400
//STEP404     EXEC UPDATEO,LAB=404
//JOB5 JOB
//*
//* THIS JOB IS NOW SPLIT INTO SIX SEPARATE JOBS BECAUSE OF
//* IBM'S RESTRICTION THAT A JOB MAY NOT HAVE MORE THAN
//* 255 STEPS. THE FIRST JOB HAS 200 STEPS THE SECOND THE REST.
//* THE SIXTH JOB WILL LOAD FILE 001 OF THE TAPE INTO A PRE-
//* DEFINED VSAM CLUSTER FOR INFO/MVS DATABASE PROCESSING (YOU
//* HAVE TO HAVE INFOMVS).
//*
//*
//*  YOU MAY HAVE A PROBLEM WITH SOME OF THESE FILES THAT ARE
//*  IEBCOPIED DOWN IF YOU TRY TO DROP TO A NON-3350 TYPE
//*  DEVICE SINCE MOST INPUT WAS FULL TRACK BLOCKED ON A 3350.
//*  THE ORIGINAL DCB'S ARE MARKED BELOW. YOU CAN DROP DOWN LOAD
//*  MODULES INTO A SMALLER BLOCKSIZE PDS, HOWEVER YOU WILL GET A
//*  WARNING MESSAGE AND YOU WILL NOT BE ABLE TO DO A COMPRESS
//*  IN PLACE ON THAT LIBRARY UNTIL YOU GET RID OF THE OFFENDING
//*  MEMBERS OR RELINK THEM BACK IN
//*
//*  YOU WILL GET THE FOLLOWING MESSAGE:
//*  IEB175I - WARNING INPUT RECORD IS GREATER THAN OUTPUT BLKSIZE
//*            DDNAME=XXXXXXXX,OUTPUT TTRN=00000000
//*
//*
//ASMFCL PROC  V1=ANY,         -   INPUT TAPE VOLUME
//*            VO=,            -   OUTPUT DASD VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             LAB=002,            INPUT TAPE LABEL NUMBER FOR PROGRAM
//             CLASS=A,        -   SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             WORK2=SYSDA,        DASD WORK TYPE
//             INDEX=MVS,      -   FIRST LEVEL INDEX FOR DSNAME
//             DSP=PASS,           OUTPUT DATASET DISPOSITION
//             UNT=TAPE,       -   TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=1,              PRIMARY ALLOCATION
//             SEC=1,              SECONDARY ALLOCATION
//             DIR=1,              NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             FM=FB               RECFM
//ASM     EXEC  PGM=ASMA90,REGION=1024K,COND=EVEN,PARM='OBJECT,NODECK'
//*SM     EXEC  PGM=IEV90,REGION=1024K,COND=EVEN,PARM='OBJECT,NODECK'
//SYSPRINT DD  SYSOUT=&CLASS
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
//         DD  DSN=SYS1.AMODGEN,DISP=SHR
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT2   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSPUNCH DD  DUMMY
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE) VOL=SER=&VO
//SYSIN    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//LKED     EXEC  PGM=IEWL,REGION=600K,COND=(4,LT,ASM),PARM=LIST
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSLMOD  DD  DSN=&INDEX..FILE&LAB..LOAD(&P),DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE) VOL=SER=&VO
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(OLD,&DSP),
//             LABEL=(&LAB,&TY)
//       PEND
//COPY   PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             WORK2=SYSDA,        DASD WORK TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK           ALLOC INCREMENT
//COPY     EXEC  PGM=IEBCOPY,REGION=600K,COND=EVEN
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT4   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE),VOL=SER=&VO
//SYSIN    DD  DUMMY
//       PEND
//GENERO PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//GENER    EXEC  PGM=IEBGENER,REGION=600K,COND=EVEN
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE),VOL=SER=&VO
//SYSIN    DD  DUMMY
//       PEND
//UPDATEO PROC V1=ANY,             INPUT TAPE VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             P1=IEBUPDTE,   PROGRAM TO PROCESS IEBUPDTE SYSIN
//*                           STREAM. YOU MAY USE THE NORMAL IBM PGM
//*                           OR YOU MAY HAVE INSTALLED THE PDSLOAD
//*                           PROGRAM FROM FILE 316 OF THE CBT TAPE
//*                           WHICH IS USEFUL FOR FILES UNLOADED BY
//*                           THE FAMOUS YALE OFFLOAD PROGRAM. CAN
//*                           CHANGE THE IMBEDDED '><' TO './' AT
//*                           RELOAD.
//*   ---->                    IF PDSLOAD,  USE SYSUT1 DD
//*   ---->                    IF IEBUPDTE, USE SYSIN  DD
//             STEPLB='SYS1.LINKLIB',   LIBRARY THAT CONTAINS PGM=P1
//             S='NEW',            'NEW'           IF IEBUPDTE
//*   ---->                        'UPDTE(><)'     IF PDSLOAD
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=A,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=PDS,           THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             DIR=92,             NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//UPDATE1  EXEC  PGM=&P,REGION=512K,COND=EVEN
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//OUTPUT   DD  DSN=&&TEMP,DISP=(NEW,PASS),
//             UNIT=&WORK1,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE) VOL=SER=&VO
//UPDATE2  EXEC  PGM=&P1,PARM='&S',COND=EVEN
//STEPLIB  DD  DSN=&STEPLB,DISP=SHR
//SYSPRINT DD  SYSOUT=&CLASS     <<====  DUMMY OUT TO CUT PRINTOUT
//*                            IF PDSLOAD,  USE SYSUT1 DD
//*                            IF IEBUPDTE, USE SYSIN  DD
//SYSIN    DD  DSN=&&TEMP,DISP=(OLD,DELETE)
//*YSUT1   DD  DSN=&&TEMP,DISP=(OLD,DELETE)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE),VOL=SER=&VO
//       PEND
//GENER  PROC  V1=ANY,             INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             LAB=,               INPUT TAPE LABEL NUMBER
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX=MVS,          FIRST LEVEL INDEX FOR DSNAME
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME
//             DSP=CATLG,          OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,              TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32716,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//GENER    EXEC  PGM=&P,REGION=512K,COND=EVEN
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//OUTPUT   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE),VOL=SER=&VO
//       PEND
//*--------------------------------------------------------------*//
//*----  THE STEPS BELOW ARE REPEATED IN FILE 004, IF YOU   -----*//
//*----    ARE A NON-CARTRIDGE INSTALLATION LOADING THIS    -----*//
//*----    TAPE FROM TWO REELS.                             -----*//
//*----  IF YOU ARE LOADING FROM A CARTRIDGE, THERE IS NO   -----*//
//*----    ADDITIONAL JCL NECESSARY.                        -----*//
//*--------------------------------------------------------------*//
//ASMFCL      EXEC ASMFCL
//STEP405     EXEC UPDATEO,LAB=405
//STEP407     EXEC UPDATEO,LAB=407
//STEP408     EXEC UPDATEO,LAB=408
//STEP409     EXEC UPDATEO,LAB=409
//STEP410     EXEC COPY,LAB=410
//STEP411     EXEC UPDATEO,LAB=411
//STEP412     EXEC COPY,LAB=412
//STEP413     EXEC UPDATEO,LAB=413
//STEP414     EXEC UPDATEO,LAB=414
//STEP416     EXEC UPDATEO,LAB=416
//STEP418     EXEC UPDATEO,LAB=418
//STEP419     EXEC UPDATEO,LAB=419
//STEP420     EXEC COPY,LAB=420
//STEP421     EXEC UPDATEO,LAB=421
//STEP422     EXEC UPDATEO,LAB=422
//STEP423     EXEC UPDATEO,LAB=423
//STEP424     EXEC UPDATEO,LAB=424
//STEP425     EXEC UPDATEO,LAB=425
//STEP426     EXEC UPDATEO,LAB=426
//STEP427     EXEC UPDATEO,LAB=427
//STEP428     EXEC UPDATEO,LAB=428
//STEP429     EXEC UPDATEO,LAB=429
//STEP430     EXEC UPDATEO,LAB=430
//STEP431     EXEC UPDATEO,LAB=431
//STEP432     EXEC UPDATEO,LAB=432
//STEP433     EXEC COPY,LAB=433
//STEP434     EXEC UPDATEO,LAB=434
//STEP435     EXEC UPDATEO,LAB=435
//STEP436     EXEC UPDATEO,LAB=436
//STEP437     EXEC UPDATEO,LAB=437
//STEP438     EXEC UPDATEO,LAB=438
//STEP439     EXEC UPDATEO,LAB=439
//STEP440     EXEC COPY,LAB=440
//STEP441     EXEC UPDATEO,LAB=441
//STEP442     EXEC UPDATEO,LAB=442
//STEP443     EXEC UPDATEO,LAB=443
//STEP444     EXEC UPDATEO,LAB=444
//STEP445     EXEC UPDATEO,LAB=445
//STEP446     EXEC UPDATEO,LAB=446
//STEP447     EXEC UPDATEO,LAB=447
//STEP448     EXEC UPDATEO,LAB=448
//STEP449     EXEC UPDATEO,LAB=449
//STEP450     EXEC UPDATEO,LAB=450
//STEP451     EXEC UPDATEO,LAB=451
//STEP452     EXEC UPDATEO,LAB=452
//STEP453     EXEC UPDATEO,LAB=453
//STEP454     EXEC UPDATEO,LAB=454,DIR=140
//STEP455     EXEC UPDATEO,LAB=455
//STEP456     EXEC UPDATEO,LAB=456
//STEP457     EXEC UPDATEO,LAB=457
//STEP458     EXEC UPDATEO,LAB=458
//STEP459     EXEC UPDATEO,LAB=459
//STEP460     EXEC UPDATEO,LAB=460
//STEP461     EXEC UPDATEO,LAB=461
//STEP462     EXEC UPDATEO,LAB=462
//STEP463     EXEC UPDATEO,LAB=463
//STEP464     EXEC UPDATEO,LAB=464
//STEP465     EXEC UPDATEO,LAB=465
//STEP466     EXEC UPDATEO,LAB=466
//STEP467     EXEC UPDATEO,LAB=467
//STEP468     EXEC UPDATEO,LAB=468
//STEP469     EXEC UPDATEO,LAB=469
//STEP470     EXEC UPDATEO,LAB=470
//STEP471     EXEC UPDATEO,LAB=471
//STEP472     EXEC UPDATEO,LAB=472
//STEP473     EXEC UPDATEO,LAB=473
//STEP474     EXEC UPDATEO,LAB=474
//STEP475     EXEC UPDATEO,LAB=475
//STEP476     EXEC UPDATEO,LAB=476
//STEP477     EXEC UPDATEO,LAB=477
//STEP478     EXEC UPDATEO,LAB=478
//STEP479     EXEC UPDATEO,LAB=479
//STEP480     EXEC UPDATEO,LAB=480
//STEP481     EXEC COPY,LAB=481
//STEP482     EXEC UPDATEO,LAB=482
//JOB6 JOB
//*
//*********************************************************
//* WHEN YOU LOAD THE DATBASE BY PROCESSING THROUGH       *
//* STEP7  YOU WILL GET A LOT OF LINES THAT ARE           *
//* REJECTED SOME 15,000 + LINES - THAT IS NORMAL         *
//* JUST DON'T PRINT THAT SYSOUT DD STATEMENT             *
//*********************************************************
//*
//* LOAD MVSMODS INFO DATABASE OFF OF FILE 001
//* THIS JOB REQUIRES A PREF-DEFINED VSAM CLUSTER
//* TO HOLD THE DATA.
//* THE DATASET NAME IS REQUIRED IN STEP8 ON DDNAME CARD 'OZVSAM'
//*
//* ASMFCL - ASSEMBLE DECOMPRESSION PROGRAM
//* STEP2  - LOAD FILE 42          (CHANGED -- WAS FILE 004)
//* STEP3  - LOAD FILE 43          (CHANGED -- WAS FILE 005)
//* STEP4  - CONVERT FILE 42 INTO A PDS
//* STEP5  - ASSEMBLE, LINK, AND EXECUTE THE CBTINFO PROGRAM
//* STEP6  - COMBINE OUTPUT FROM CBTINFO PROGRAM WITH FILE 43
//* STEP7  - BLGOZB
//* STEP8  - BLGOZC
//*
//ASMFCL PROC  V1=022156,      -   INPUT TAPE VOLUME
//*            VO=,            -   OUTPUT DASD VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             LAB=002,            INPUT TAPE LABEL NUMBER FOR PROGRAM
//             CLASS=Z,        -   SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             WORK2=SYSDA,        DASD WORK TYPE
//             INDEX='TS.CBT', -   FIRST LEVEL INDEX FOR DSNAME
//             DSP=PASS,           OUTPUT DATASET DISPOSITION
//             UNT=TAPE,       -   TYPE UNIT NAME
//             TY=NL,          -   TAPE FILE LABEL
//             PRI=1,              PRIMARY ALLOCATION
//             SEC=1,              SECONDARY ALLOCATION
//             DIR=1,              NUMBER OF DIRECTORY BLOCKS
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             FM=FB               RECFM
//ASM     EXEC  PGM=ASMA90,REGION=1024K,COND=EVEN,PARM='OBJECT,NODECK'
//*SM     EXEC  PGM=IEV90,REGION=1024K,COND=EVEN,PARM='OBJECT,NODECK'
//SYSPRINT DD  SYSOUT=&CLASS
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
//         DD  DSN=SYS1.AMODGEN,DISP=SHR
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT2   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSUT3   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSPUNCH DD  DUMMY
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE) VOL=SER=&VO
//SYSIN    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//LKED     EXEC  PGM=IEWL,REGION=600K,COND=(4,LT,ASM),PARM=LIST
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT1   DD  SPACE=(CYL,(10,10)),UNIT=&WORK2
//SYSLMOD  DD  DSN=&INDEX..FILE&LAB..LOAD(&P),DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             SPACE=(&ALLOC,(&PRI,&SEC,&DIR),RLSE) VOL=SER=&VO
//SYSLIN   DD  DSN=&INDEX..FILE&LAB..OBJ,DISP=(OLD,&DSP),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//       PEND
//GENERO PROC  V1=022156,          INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             LAB=,               INPUT TAPE LABEL NUMBER
//             CLASS=Z,            SYSOUT CLASS
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX='TS.CBT',     FIRST LEVEL INDEX FOR DSNAME
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME
//             DSP=PASS,           OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,           -  TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32720,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//GENER    EXEC  PGM=IEBGENER,REGION=600K,COND=EVEN
//SYSPRINT DD  SYSOUT=&CLASS
//SYSUT1   DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//SYSUT2   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE),VOL=SER=&VO
//SYSIN    DD  DUMMY
//       PEND
//GENER  PROC  V1=022156,          INPUT TAPE VOLUME
//             VO=,                OUTPUT DASD VOLUME
//             P=CBT973,           DECOMPRESSION PROGRAM
//             LAB=,               INPUT TAPE LABEL NUMBER
//             WORK1=SYSDA,        DASD OUTPUT TYPE
//             INDEX='TS.CBT',     FIRST LEVEL INDEX FOR DSNAME
//             TYPE=DATA,          THIRD LEVEL TYPE FOR DSNAME
//             DSP=PASS,           OUTPUT DATASET DISPOSITION
//             UNT=TAPE,           TYPE UNIT NAME
//             TY=NL,           -  TAPE FILE LABEL
//             PRI=190,            PRIMARY ALLOCATION
//             SEC=190,            SECONDARY ALLOCATION
//             ALLOC=TRK,          ALLOC INCREMENT
//             LR=80,              LRECL
//             BKI=32716,          INPUT BLOCKSIZE
//             BKO=5600,           OUTPUT BLOCKSIZE
//             FM=FB               RECFM
//GENER    EXEC  PGM=&P,REGION=512K,COND=EVEN
//STEPLIB  DD  DSN=*.ASMFCL.LKED.SYSLMOD,DISP=(SHR,PASS)
//INPUT    DD  UNIT=&UNT,VOL=(,RETAIN,SER=&V1),DISP=(OLD,PASS),
//             DCB=(RECFM=VB,LRECL=94,BLKSIZE=&BKI),
//             LABEL=(&LAB,&TY,EXPDT=98000)
//OUTPUT   DD  DSN=&INDEX..FILE&LAB..&TYPE,DISP=(NEW,&DSP),
//             UNIT=&WORK1,FREE=CLOSE,
//             DCB=(RECFM=&FM,LRECL=&LR,BLKSIZE=&BKO),
//             SPACE=(&ALLOC,(&PRI,&SEC),RLSE),VOL=SER=&VO
//       PEND
//ASMFCL  EXEC ASMFCL
//STEP2   EXEC GENER,LAB=042 BAM
//STEP3   EXEC GENERO,LAB=043,FM=VB,LR=255,BKI=32760,BKO=3120 BAM
//STEP4   EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DSN=TS.CBT.FILE042.PDS,UNIT=&WORK1,DISP=(,PASS),
//             SPACE=(TRK,(10,10,10)),
//             DCB=(LRECL=80,BLKSIZE=6160,RECFM=FB)
//SYSIN    DD  DSN=TS.CBT.FILE042.DATA,DISP=(OLD,DELETE)
//STEP5   EXEC ASMFCLG,REGION.GO=4096K
//ASM.SYSIN DD DSN=TS.CBT.FILE042.PDS(PROGRAM),DISP=(SHR,PASS)
//GO.SYSIN DD  DSN=TS.CBT.FILE042.PDS(KEYWORDS),DISP=(SHR,DELETE)
//FILEIN   DD  UNIT=TAPE,VOL=SER=022156,DISP=(OLD,PASS),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=32720),
//             LABEL=(1,NL,EXPDT=98000)
//FILEOUT  DD  DSN=&&CBTINFO,DISP=(,PASS),
//             UNIT=&WORK1,SPACE=(CYL,(20,5)),
//             DCB=(RECFM=VB,LRECL=255,BLKSIZE=3120,DSORG=PS)
//SYSUDUMP DD  SYSOUT=A
//STEP6   EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=A
//SYSUT1   DD  DSN=TS.CBT.FILE043.DATA,DISP=(SHR,DELETE)
//SYSUT2   DD  DSN=&&CBTINFO,DISP=(MOD,PASS)
//SYSIN    DD  DUMMY
//STEP7   EXEC PGM=BLGOZB
//*
//* EXPECT A LOT OF WARNING MESSAGES - IT IS PERFECTLY NORMAL
//*
//FILE     DD  DSN=&&CBTINFO,DISP=(SHR,DELETE)
//SORTMSG  DD  DUMMY SYSOUT=A
//SYSPRINT DD  DUMMY SYSOUT=A
//SYSOUT   DD  DUMMY SYSOUT=A
//SORTLIB  DD  DSN=SYS1.SORTLIB,DISP=SHR
//SORTIN   DD  UNIT=&WORK1,SPACE=(CYL,(10,10)),
//         DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600)
//SORTOUT  DD  UNIT=&WORK1,SPACE=(CYL,(10,10)),
//         DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600)
//SORTWK01 DD  UNIT=&WORK1,SPACE=(CYL,(10,10))
//SORTWK02 DD  UNIT=&WORK1,SPACE=(CYL,(10,10))
//SORTWK03 DD  UNIT=&WORK1,SPACE=(CYL,(10,10))
//TAPE     DD  DSN=&&CBTOZB,DISP=(,PASS),
//             UNIT=&WORK1,SPACE=(CYL,(20,5)),
//             DCB=(RECFM=VB,LRECL=255,BLKSIZE=3120,DSORG=PS)
//STEP8   EXEC PGM=BLGOZC
//TAPE     DD  DSN=&&CBTOZB,DISP=(SHR,DELETE)
//OZVSAM   DD  DSN=SYS1.CBT.OZ,DISP=OLD           /* YOUR DSN */
//SYSPRINT DD  SYSOUT=A
//SYSIN    DD  *
$SELECT *
