THIS FILE IS NAMED 'STORET.HELP.DESPOOL'                                00000100
AND WAS UPDATED MAY 6, 1984 BY LEE MANNING                              00000200
                                                                        00000300
ITS FUNCTION IS TO ENABLE USERS WITH DATA-100 TERMINALS EQUIPPED WITH   00000400
TAPE DRIVES TO UNLOAD CALCOMP PLOTTING INSTRUCTIONS SUITABLE FOR USE    00000500
WITH CALCOMP MODEL 918 TAPE CONTROLLED PLOTTERS.                        00000600
                                                                        00000700
//III$$    JOB (AAAASTORP,MIII),' STORET SPOOL',                        00010000
//             TIME=5,MSGLEVEL=(1,1),PRTY=4                             00020000
/*ROUTE  PRINT RMTXX                                                    00030000
/*ROUTE  PUNCH RMTXX                                                    00040000
/*CNTL  SPOOL,EXC                                                       00050000
/*JOBPARM LINES=10,CARDS=50000                                          00060000
//*                                                                     00070000
//*          STORET HELP DESK                                           00080000
//*              STORET                                                 00100000
//*           (800)424-9067                                             00110000
//*                                                                     00120000
//* THIS JOB DESTROYS THE ORIGINAL, SO .............                    00120010
//* DDNAME OUTFILE IS A THIRTY-DAY TAPE BACKUP OF YOUR                  00120100
//* SPOOL FILE, JUST IN CASE.                                           00120200
//*                                                                     00120400
//* DO NOT MODIFY PARM FIELD WITHOUT ASSISTANCE                         00130000
//*                                                                     00140000
//DESPOOL EXEC PGM=DESPOOL,REGION=250K,                                 00260000
//   PARM='/HASP TAPE RESET ADDRESSES LABELS NOSELECT'                  00270000
//STEPLIB DD DISP=SHR,DSN=LJMA014.LLIB.LOAD                             00280000
//INFILE DD DISP=OLD,DSN=IIIAAAA.SPOOL                                  00290000
//OUTFILE DD DISP=(NEW,KEEP),DSN=IIIAAAA.SPOOL,                         00300000
//  UNIT=(TAPE9,,DEFER),LABEL=RETPD=30,                                 00310000
//  DCB=(RECFM=F,LRECL=800,BLKSIZE=800,DEN=3)                           00320000
//PUNCH DD SYSOUT=(B,,STPL),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)         00330000
//SYSPRINT DD SYSOUT=A                                                  00340000
//LOCATE DD DISP=SHR,DSN=STORET.LOCATE                                  00350000
//PLOTREC DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=4240)                 00360000
//*                                                                     00360100
//*     NOTES ON HANDLING DATA-100 DURING DESPOOL                       00360200
//*                                                                     00360210
//*   BEFORE DESPOOLING -                                               00360300
//* ..CF P1=060  (PRESUMES EPA-NCC KNOWS YOU HAVE A PUNCH)              00360400
//* ..MT OU=60,CC,RL=80,BL=800,RW=U                                     00360410
//*                                                                     00360420
//*     NOW MOUNT THE TAPE                                              00360430
//*                                                                     00360440
//*   START DESPOOLING -                                                00360500
//* /*$TR70.PU1,F=STPL;S R70.PU1     (ON A CARD)                        00360600
//*                                                                     00360610
//*   DURING DESPOOLING -                                               00360700
//* /*$NR70.PU1;P R70.PU1;DU,R70.PU1  (ALSO ON A CARD)                  00360800
//*         (THE $N COMMAND CREATES A SECOND COPY, AS BACKUP IF NEEDED) 00360810
//*                                                                     00360820
//*   AFTER DESPOOLING                                                  00360900
//* /*$TR70.PU1,F=STD.        (ON A CARD - DOT IS REQUIRED)             00361000
//*                                                                     00361100
//*   DESPOOLING WILL NORMALLY BEGIN PROCESSING WITH A TWO MESSAGE      00361200
//*   SET ON YOUR CONSOLE -                                             00361300
//*        60 CC NFND                                                   00361400
//*        60 CC FND                                                    00361500
//*   AS THE PUNCH DECK SEPARATOR CARDS ARE BYPASSED.                   00361600
//*   IT WILL END WITH A SINGLE -                                       00361700
//*        60 CC NFND                                                   00361800
//*   AS THE END OF JOB SEPARATOR CARDS ARE BYPASSED.                   00361900
//*   THE TAPE DRIVE WILL REWIND AND GO OFFLINE. (RW=U)                 00362000
//*                                                                     00362100
//*   NOTICE THAT THE JOB NUMBER IS NOT IN ANY OF THE CARDS.            00362200
//*   YOU CAN PUNCH THEM AND USE THEM OVER AND OVER.                    00362300
//*                                                                     00362400
