THIS DATASET IS NAMED STORET.HELP.JCL.LIB(DSN2TAPE)                     00000010
                                                                        00000020
YOU CAN ALTER THIS J.C.L. AND SUBMIT IT TO MAKE A                       00000030
TAPE COPY OF A DISK DATASET.                                            00000040
                                                                        00000050
YOU MUST USE THE STORET "%DES" COMMAND, AS IN:                          00000060
      %DES DATASET.NAME                                                 00000070
TO DETERMINE THE RECFM,LRECL,AND BLKSIZE OF THE LIBRARY                 00000080
FILE.                                                                   00000090
THE DCB ATTRIBUTES OF THE TAPE FILE (DDNAME SYSUT2)                     00000100
MUST MATCH THE RECFM AND LRECL OF THE LIBRARY FILE.                     00000110
THE SYSUT2 BLKSIZE MAY BE LARGER OR SMALLER THAN THAT                   00000120
OF THE LIBRARY FILE, BUT MUST BE A MULTIPLE OF THE                      00000130
LIBRARY FILE'S LRECL.                                                   00000140
                                                                        00000150
//III      JOB (AAAASTORP,MIII),STORET,NOTIFY=III,TIME=5,               00000160
//             MSGCLASS=A,MSGLEVEL=(1,1),PRTY=1,PASSWORD=AAAA           00000170
//*CHANGE ALL THE III'S TO YOUR USER ID AND ALL THE AAAA'S              00000180
//*TO YOUR ACCOUNT NUMBER.                                              00000190
/*JOBPARM LINES=20                                                      00000200
/*TAPE BNUMBER,TAPENO                                                   00000210
//LOAD EXEC PGM=IEBGENER,TIME=5,REGION=920K                             00000220
//SYSPRINT DD SYSOUT=A                                                  00000230
//SYSIN DD DUMMY                                                        00000240
//SYSUT1 DD DISP=(OLD,KEEP),DSN=IIIAAAA.DATASET.NAME                    00000250
//SYSUT2 DD UNIT=TAPERND,VOL=(PRIVATE,RETAIN,SER=TAPENO),DISP=(,KEEP),  00000260
// DSN=NEWNAME,DCB=(RECFM=FB,LRECL=133,BLKSIZE=3990,DEN=3),             00000270
// LABEL=(1,SL,EXPDT=9800)                                              00000280
/*                                                                      00000290
