
THIS ILLUSTRATES THE NECESSARY JCL TO PLACE OUTPUT FROM
A STORET ALLPARM RETRIEVAL ON TAPE WITH THE "CONV" AND "MORE=ALL"
OPTIONS. IN THE EVENT THAT THE DESTINATION COMPUTER CAN DEAL WITH
VARIABLE LENGTH RECORDS, THE "FCF' FILE DCB CAN BE ALTERED AS FOLLOWS:


./  DCB=(RECFM=VB,LRECL=9072,BLKSIZE=9076,DEN=4)

AS USUAL, THE BLKSIZE CAN BE ALTERED AS LONG AS IT IS
A WHOLE-NUMBER-MULTIPLE OF THE LRECL.




PGM=ALLPARM,MORE ALL,ARCLASS ALL,CONV,PRT NO,                           00001014
STCO 30053,                                                             00004013
ONLYATTR LAKE,                                                          00005013
./III      JOB (AAAASTORP,MIII,,,,,1),'YOUR NAME',                      00040007
./             MSGCLASS=A,MSGLEVEL=(1,1),PRTY=1,TIME=9                  00050013
**ROUTE  PRINT HOLD                                                     00060007
**JOBPARM LINES=43                                                      00070007
**TAPE  BBBBBB,VOLSER
./FCFABF DD DISP=(,CATLG),UNIT=DISK,SPACE=(TRK,(5,5),RLSE),             00080011
./  DSN=IIIAAAA.FCFABF,                                                 00090013
./  DCB=(RECFM=FB,BLKSIZE=8500,LRECL=85)                                00100011
./CONV.OUTF  DD DISP=(,KEEP),UNIT=TAPERND,LABEL=(1,SL,RETPD=25),        00100714
./   DSN=IIIAAAA.ALLDATA,VOL=SER=BBBBBB,                                00100814
./  DCB=(RECFM=VB,BLKSIZE=9076,LRECL=9072,DEN=4)                        00100914


   AN ALTERNATIVE JCL STATEMENT FOR AN INSTALLATION WHICH
   CAN PROCESS STANDARD LABEL TAPE (E.G VAX)
   IS :

./CONV.OUTF DD UNIT=TAPERND,DISP=(,CATLG),
./  DSN=IIIAAAA.ANYNAME,LABEL=(1,SL,RETPD=30),
./  DCB=(RECFM=VB,BLKSIZE=9076,LRECL=9072,DEN=4)                        00100914


   THIS TAPE WILL BE ADDED TO THE EPA TAPE LIBRARY UNDER
   YOUR PREFIX, AND WILL BE TURNED OVER TO YOU IF YOU CALL
   THE TAPE LIBRARY AND ARRANGE TO PAY FOR IT.


   FOR INFORMATION DESCRIBING THE RECORD STRUCTURE FOR THE TAPE,
   SEE DATASET "STORET.HELP.FILE.FORMATS."





   IN ADDITION, FILE "FCFABF" (THE DESCRIPTIVE INFORMATION
   ABOUT ALL THE PARAMETER CODES FOUND IN THE ABOVE RETRIEVAL)
   CAN BE COPIED TO THE SECOND FILE OF YOUR TAPE BY SUBMITTING
   THE FOLLOWING JCL:

//III      JOB (AAAASTORP,MIII,,,,,1),'YOUR NAME',                      00040007
//             MSGCLASS=A,MSGLEVEL=(1,1),PRTY=2,TIME=(,30)              00050013
/*ROUTE  PRINT HOLD                                                     00040009
/*TAPE  BBBBBB,VOLSER
//GENER1 EXEC PGM=IEBGENER,REGION=1650K
//SYSPRINT DD SYSOUT=A
//SYSIN DD DUMMY
//SYSUT1  DD DISP=SHR,DSN=IIIAAAA.FCFABF                                00090009
//SYSUT2  DD DISP=(,KEEP),UNIT=TAPERND,LABEL=(2,SL,RETPD=25),           00100714
./   DSN=IIIAAAA.PARABF,VOL=SER=BBBBBB,                                 00100814
./  DCB=(RECFM=VB,BLKSIZE=9076,LRECL=9072,DEN=4)                        00100914
/*
