// COPY LIBRARY-P,NAME-KEYSRT * * This program will generate a procedure that will KEYSORT all indexed * files on a system. * * Copyright 1988,89 by David Gibbs, SysOp * The Midrange System BBS * 312-439-9679 * * This program many be freely distributed in any way shape or form as long * as no fee is charged for the access or distribution. * // IF DATAF1-KEYSRT?WS? DELETE KEYSRT?WS?,F1 // IF PROC-'KEYSR1,?CLIB?' REMOVE KEYSR1,P,?CLIB? * CATALOG ALL,F1,,,NAME,,KEYSRT?WS? * // LOAD #GSORT // FILE NAME-INPUT,LABEL-KEYSRT?WS? // FILE NAME-OUTPUT,LABEL-KEYSRT?WS?,DISP-OLD // RUN HSORTR 8A 3 8 I C 22 22EQCI IAC 26 26EQC *BLANK FNC 1 8 // END * // LOAD KEYSRT // FILE NAME-CATALOG,LABEL-KEYSRT?WS?,RETAIN-S // FILE NAME-PROC,LABEL-PROC?WS?,RETAIN-J,RECORDS-?F'A,KEYSRT?WS?'?,EXTEND-100 // RUN * TOLIBR PROC?WS?,F1,,REPLACE,?CLIB? * KEYSR1 * REMOVE KEYSR1,P,?CLIB? * DELETE KEYSRT?WS?,F1 // CEND // COPY LIBRARY-S,NAME-KEYSRT H P032 B KEYSRT F* This program will generate a procedure that will KEYSORT all F* indexed files on the system. F* F* Copyright 1988 by David Gibbs, SysOp F* The Midrange System BBS F* 312-439-9679 F* F* This program many be freely distributed in any way shape or F* form as long as no fee is charged for the access or distribution. F* FCATALOG IP 256 8 DISK FPROC O 80 80 DISK ICATALOG AA 01 I 1 8 FILENM OPROC H 1P O 23 '// COPY LIBRARY-P,NAME-' O 29 'KEYSR1' O D 01 O 7 'KEYSORT' O FILENM 16 O T LR O 7 '// CEND' // CEND