.ENABLE SUBSTITUTION
;
; Command file to select desired CCL commands
; Will create SY:'<UIC>'SELECTCCL.TMP containing desired commands,
; then lets you append them to SYSCCL.
;
; Answer yes to each CCL command to be included
;
.OPEN SELECTCCL.TMP
.;
.; $4400VT52
.;
.10:.ASK TF $4400VT52
.IFF TF .GOTO 10
.DATA $4400VT52
.DATA +TCF 33,74
.DATA +TCF 33,133,77,67,150
.DATA *@LB1:[1,5]VT52.CMD
.;
.; $5500VT100
.;
.10:.ASK TF $5500VT100
.IFF TF .GOTO 10
.DATA $5500VT100
.DATA +TCF 33,74
.DATA +TCF 33,133,77,67,150
.DATA *@LB1:[1,5]VT100.CMD
.;
.; $4400WIDE
.;
.10:.ASK TF $4400WIDE
.IFF TF .GOTO 10
.DATA $4400WIDE
.DATA +SET /TERM=TI:VT100
.DATA +SET /BUF=TI:132.
.DATA +SET /LOWER=TI:
.DATA +TCF 33,74
.DATA +TCF 33,133,77,67,150
.DATA *TCF 33,133,77,63,150
.;
.; $4600NARROW
.;
.10:.ASK TF $4600NARROW
.IFF TF .GOTO 10
.DATA $4600NARROW
.DATA +SET /TERM=TI:VT100
.DATA +SET /BUF=TI:132.
.DATA +SET /LOWER=TI:
.DATA +TCF 33,74
.DATA +TCF 33,133,77,67,150
.DATA *TCF 33,133,77,63,154
.;
.; $4411DSPT
.;
.10:.ASK TF $4411DSPT
.IFF TF .GOTO 10
.DATA $4411DSPT
.DATA ?1Taskname for RMD task display
.DATA *RMD T,TASK=%1%%$%
.;
.; $4711PROTECT
.;
.10:.ASK TF $4711PROTECT
.IFF TF .GOTO 10
.DATA $4711PROTECT
.DATA ?1FILESPEC OF ITEM(S) TO PROTECT
.DATA *PIP %1%/PR/SY:R/OW:R/GR:R/WO:R
.;
.; $5711UNPROTECT
.;
.10:.ASK TF $5711UNPROTECT
.IFF TF .GOTO 10
.DATA $5711UNPROTECT
.DATA ?1FILESPEC OF ITEM(S) TO UNPROTECT
.DATA *PIP %1%/PR:0
.;
.; $4755CHGPROTECT
.;
.10:.ASK TF $4755CHGPROTECT
.IFF TF .GOTO 10
.DATA $4755CHGPROTECT
.DATA ?1FILESPEC
.DATA ?2SYSTEM
.DATA ?3OWNER
.DATA ?4GROUP
.DATA ?5WORLD
.DATA *PIP %1%/PR/SY:%2%/OW:%3%/GR:%4%/WO:%5%
.;
.; $4600CCLIST
.;
.10:.ASK TF $4600CCLIST
.IFF TF .GOTO 10
.DATA $4600CCLIST
.DATA *MUNG LB1:[1,5]CCLI%1,%
.;
.; $4411PLP0
.;
.10:.ASK TF $3311PLPx
.IFF TF .GOTO 10
.DATA $3311PLP
.DATA $4411PLP0
.DATA ?1FILE
.DATA *PRI LP0:/LE:62.=%1%%2,%%3,%%4,%%5,%%6,%,LB1:[5,2]NULL.LST/-DE/CO:1
.;
.; $4411PLP1
.;
.DATA $4411PLP1
.DATA ?1FILE
.DATA *PRI LP1:/LE:62.=%1%%2,%%3,%%4,%%5,%%6,%,LB1:[5,2]NULL.LST/-DE/CO:1
.;
.; $3311HDR
.;
.10:.ASK TF $3311HDR
.IFF TF .GOTO 10
.DATA $3311HDR
.DATA ?1File
.DATA *DMP TI:=%1%/HD/BL:0
.;
.; $4422NDXP
.;
.10:.ASK TF $4422NDXP
.IFF TF .GOTO 10
.DATA $4422NDXP
.DATA ?1STARTING BLOCK NUMBER OF INDEXF.SYS FOR LIST
.DATA ?2ENDING BLOCK NUMBER
.DATA *DMP TI:/HF=%3:%[0,0]INDEXF.SYS%4%/BL:%1%:%2%
.;
.; $4422SRCH
.;
.10:.ASK TF $4422SRCH
.IFF TF .GOTO 10
.DATA $4422SRCH
.DATA ?1FILE
.DATA ?2SEARCH ARG
.DATA *MUNG LB1:[1,5]GREP,%1%,%2%
.;
.; $4411LDGX
.;
.10:.ASK TF $4411LDGX
.IFF TF .GOTO 10
.DATA $4411LDGX
.DATA ?PROGRAM NAME FOR COMPILE (/DE), BUILD, EXECUTE?
.DATA +FOR %1%=%1%/DE
.DATA +FTB %1%=%1%%2,%%3,%%4,%%5,%,LB1:[5,1]SHRLIB/LB
.DATA +RUN %1%
.DATA *PIP %1%.TSK;0/SD,%1%.OBJ;0/SD
.;
.; $4411LDGO
.;
.10:.ASK TF $4411LDGO
.IFF TF .GOTO 10
.DATA $4411LDGO
.DATA ?PROGRAM NAME FOR COMPILE, BUILD, EXECUTE?
.DATA +FOR %1%=%1%
.DATA +FTB %1%=%1%%2,%%3,%%4,%%5,%,LB1:[5,1]SHRLIB/LB
.DATA +RUN %1%
.DATA *PIP %1%.TSK;0/SD,%1%.OBJ;0/SD
.;
.; $4400TLIST
.;
.10:.ASK TF $4400TLIST
.IFF TF .GOTO 10
.DATA $4400TLIST
.DATA *MUNG LB1:[1,5]TLIST%1,%%2,%%3,%%4,%%5,%%6,%
.;
.; $4400MLIST
.;
.10:.ASK TF $4400MLIST
.IFF TF .GOTO 10
.DATA $4400MLIST
.DATA *MUNG LB1:[1,5]MLIST%1,%%2,%%3,%%4,%%5,%%6,%
.;
.; $3522TMUNG
.;
.10:.ASK TF $3522TMUNG
.IFF TF .GOTO 10
.DATA $3522TMUNG
.DATA ?1MUNGFILE
.DATA ?2ARG-STRING
.DATA *MUNG LB1:[1,5]%1.TEC%%2,%
.;
.; $4611TKKILL
.;
.10:.ASK TF $4611TKKILL
.IFF TF .GOTO 10
.DATA $4611TKKILL
.DATA ?1NAME (NO EXT) FOR KILL OF .TSK/.MAP/.LST/.OBJ FILES
.DATA *PIP %1%.TSK;*/NM/SD,.MAP;*/NM,.LST;*/NM,.OBJ;*/NM
.;
.; All done now - close output file
.;
.10:.CLOSE
;
; SELECTCCL.TMP created with desired CCL commands
; For the next step there must be an existing
; file LB1:[1,5]SYSCCL.CCL. If not, answer "N"
;
; Append to LB1:[1,5]SYSCCL.CCL
;
.ASK TF Add to current LB1:[1,5]SYSCCL.CCL and copy .TEC/.CMD files
.IFF TF .GOTO EX1
.SETS UIC <UIC>
SET /UIC=[1,5]
; Save old
PIP SYSCCLCCL.VGN=SYSCCL.CCL
; Copy
PIP SYSCCL.CCL/AP='UIC'SELECTCCL.TMP
PIP LB1:='UIC'*.TEC,*.CMD
SET /UIC='UIC'
; Answer Y to delete workfile
PIP SELECTCCL.TMP;*/SD
.GOTO EX9
.EX1:
;
; The selected macros are in SELECTCCL.TMP
; If you do not have a SYSCCL.CCL, proceed as follows to create it and move
; the .TEC/.CMD files
;
;   SET /UIC=[1,5]
;   PIP LB1:SYSCCL.CCL='<UIC>'SELECTCCL.TMP
;   PIP LB1:='<UIC>'*.TEC,*.CMD
;
; This assumes LB1 is assigned.; If you do not have an LB1: device assigned,
; first do the following
;
;   ASN LB:=LB1:/GBL
;
; This should also be added to [1,2]STARTUP.CMD, since many of these macros
; require LB1:
;
.EX9: