                                                                        00000003
IT CONTAINS TWO RUN-STREAMS FOR SUBMITTING STORET RETRIEVALS.           00000004
THE FIRST CREATES A TAPE IN STANDARD STORET "FCF" FORMAT                00000005
USING "MORE=4".  TAPES IN THIS FORMAT MAY BE READILY ACCESSED           00000006
ON IBM SYSTEMS.                                                         00000007
                                                                        00000008
THE SECOND CREATES A NON-LABELLED ASCII TAPE, USING THE "CONV"          00000009
OPTION IN STORET, TO WRITE THE FCF AS FILE "OUTF", EXPANDING            00000010
ALL BINARY/HEXADECIMAL FIELDS TO THEIR ASCII EQUIVALENT.                00000011
TAPES IN THIS FORMAT ARE READILY ACCESSED ON NON-IBM OPERATING          00000012
SYSTEMS SUCH AS UNIVAC, CDC, VAX, PDP, AND OTHERS.                      00000013
                                                                        00000014
IN EITHER CASE, YOU MAY HAVE THE FINISHED TAPE SENT OFF-SITE            00000015
BY CALLING OUR TAPE LIBRARY IN NORTH CAROLINA AT                        00000016
           1-919-541-2385                                               00000017
         OR FTS-8-629-2385                                              00000018
                                                                        00000019
           +---------------------------------------------+              00000020
           +  BELOW THIS POINT IS THE RUN-STREAM NEEDED  +              00000021
           +  IF YOU REQUIRE STD-LABEL TAPE IN IBM HEX   +              00000022
           +---------------------------------------------+              00000023
                                                                        00000024
//III      JOB (AAAA,MIII),STORET,                                      00000025
//             MSGLEVEL=(1,1),PRTY=4                                    00000026
/*ROUTE  PRINT HOLD                                                     00000030
/*JOBPARM LINES=10                                                      00000040
//SCAN EXEC WQINTRDR                                                    00000110
//CARDFD DD DATA                                                        00000120
PGM=RET,MORE=4,PURP 104B6/STA,PRT NO,                                   00000130
LT I,L 4315,L 10415,L 4315,L 9630,L 3945,L 95,L 3945,L 10215,           00000140
L 4015,L 10215,L 4045,L 10415,                                          00000150
P 10,P 11,P 20,P 32,P 60,P 70,P 95,P 299,P 300,P 310,P 340,P 400,       00000160
P 410,P 515,P 610,P 620,P 650,P 665,P 900,P 915,P 925,P 930,P 931,      00000170
P 935,P 940,P 945,P 31501,P 31616,                                      00000180
./III      JOB (AAAASTORP,MIII),STORET,NOTIFY=III,TIME=20,              00000190
./             MSGCLASS=A,MSGLEVEL=(1,1),PRTY=1                         00000192
**ROUTE  PRINT HOLD                                                     00000194
**JOBPARM LINES=10                                                      00000196
./FCF DD UNIT=TAPE,DISP=(,CATLG),                                       00000240
./  DSN=IIIAAAA.FILE1,DCB=(RECFM=VB,LRECL=309,BLKSIZE=6184,DEN=3),      00000250
./  LABEL=(1,SL,RETPD=90)                                               00000260
./*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *      00000270
                                                                        00000361
           +---------------------------------------------+              00000362
           +  BELOW THIS POINT IS THE RUN-STREAM NEEDED  +              00000363
           +  IF YOU REQUIRE NON-LABEL TAPE IN ASCII FMT +              00000364
           +---------------------------------------------+              00000365
                                                                        00000366
//III      JOB (AAAA,MIII),STORET,NOTIFY=III,TIME=(,30),                00000370
//             MSGLEVEL=(1,1),PRTY=1                                    00000380
/*ROUTE  PRINT HOLD                                                     00000390
/*JOBPARM LINES=10                                                      00000400
//*                                                                     00000500
//* BEFORE YOU USE THIS, CALL THE TAPE LIBRARIAN AND GET A TAPE AND     00000600
//* A BIN NUMBER (BNUMBER).  ENTER THE TAPE NUMBER IN THE PLACES        00000700
//* IN THE JCL WHERE THERE IS 'TAPENO' AND THE BNUMBER WHERE THERE IS   00000800
//* 'BNUMBER'.                                                          00000900
//*                                                                     00001000
//SCAN EXEC WQINTRDR                                                    00001100
//CARDFD DD DATA                                                        00001200
PGM=RET,PRT=NO,CONV,                                                    00001300
LT I,L 4315,L 10415,L 4315,L 9630,L 3945,L 95,L 3945,L 10215,           00001400
L 4015,L 10215,L 4045,L 10415,                                          00001500
P 10,P 11,P 20,P 32,P 60,P 70,P 95,P 299,P 300,P 310,P 340,P 400,       00001600
P 410,P 515,P 610,P 620,P 650,P 665,P 900,P 915,P 925,P 930,P 931,      00001700
P 935,P 940,P 945,P 31501,P 31616,                                      00001800
./III      JOB (AAAASTORP,MIII),STORET,NOTIFY=III,TIME=20,              00001900
./             MSGCLASS=A,MSGLEVEL=(1,1),PRTY=1                         00002000
**ROUTE  PRINT HOLD                                                     00002100
**JOBPARM LINES=10                                                      00002200
**TAPE BNUMBER,TAPENO                                                   00002300
./OUTF DD UNIT=TAPERND,VOL=SER=BNUMBER,DISP=(,KEEP),                    00003800
./  DCB=(RECFM=FB,LRECL=505,BLKSIZE=5050,DEN=3,OPTCD=Q),                00003900
./  LABEL=(1,NL,EXPDT=98000)                                            00004000
