perm filename BATCH.LOG[S,AIL]2 blob sn#266400 filedate 1977-02-27 generic text, type T, neo UTF8
;SELECTIVE LIBRARY UPDATE
.;example using SAIREC and SAILUP
.ALIAS S,AIL

.RU SCISS
SITE ID (<CR> OK FOR SU-AI) = 
STANDARD?N

TYPE THE NUMBERS OF THOSE PARAMETERS YOU WISH TO AFFECT:
 INDEX	DESCRIPTION

   1	PASS 2 NOW
   2	DON'T CHAIN TO FAIL
   3	DON'T CREATE INTERMEDIATE FILES
   4	MAKE RE-ENTRANT LIBRARY
   5	SELECT ENTRIES FROM PROMPT-LIST
   6	SPECIFY ENTRIES EXPLICITLY
   7	DON'T DELETE INTERMEDIATE FILES (PASS 2)
   8	DON'T MAKE A LIBRARY (PASS 2)
*6
TYPE LIBRARY TITLES, `DONE' WHEN DONE
*SAILUP
*DONE
SAILUP WILL BE ASSEMBLED
LOOKING AT HEAD
LOOKING AT GOGOL
SAILUP FOUND
 HDRFIL
FAIL:  HDRFIL
 SAILUP.FAI
FAIL:  SAILUP
SITE ID (<CR> OK FOR SU-AI) = ↑C
↑C

.R FUDGE2
*SYS:LIBSA8←SYS:LIBSA8<SAILUP>,DSK:SAILUP/R$
WARNING NO INDEX ON OUTPUT FILE - CONTINUING
*SYS:LIBSA8←SYS:LIBSA8/X$
*↑C
↑C

.RU SCISS
SITE ID (<CR> OK FOR SU-AI) = 
STANDARD?N

TYPE THE NUMBERS OF THOSE PARAMETERS YOU WISH TO AFFECT:
 INDEX	DESCRIPTION

   1	PASS 2 NOW
   2	DON'T CHAIN TO FAIL
   3	DON'T CREATE INTERMEDIATE FILES
   4	MAKE RE-ENTRANT LIBRARY
   5	SELECT ENTRIES FROM PROMPT-LIST
   6	SPECIFY ENTRIES EXPLICITLY
   7	DON'T DELETE INTERMEDIATE FILES (PASS 2)
   8	DON'T MAKE A LIBRARY (PASS 2)
*3,4,6
TYPE LIBRARY TITLES, `DONE' WHEN DONE
*SAILUP
*DONE
SAILUP WILL BE ASSEMBLED
 SAIREN.FAI
 SAILUP.FAI
FAIL:  SAILUP
SITE ID (<CR> OK FOR SU-AI) = ↑C
↑C

.R FUDGE2
*SYS:HLBSA8←SYS:HLBSA8<SAILUP>,DSK:SAILUP/R$
WARNING NO INDEX ON OUTPUT FILE - CONTINUING
*SYS:HLBSA8←SYS:HLBSA8/X$
*↑C
↑C

.DEL/Q SAILUP.FAI,SAILUP.REL

DELETED:SAILUP FAI
DELETED:SAILUP REL
TOTAL SPACE RECLAIMED =   11.5  6 BLK  85%


Exit
↑C
.ALIAS

.K/F
Kjob
.