;
;	STANDARD "KMS" TABLE FOR CCL V9.0
;	 FIRST SET OF COMMANDS DON'T NEED MUCH PARSING
;
^^< >< ><><>
$5500IDENT
*CCL V9.0 -- May 1983%P
$1100?
*HELP%A%
$3300HEY
-%1%%P%$
$4400POOL
*SET /POOL
$3300DLG
*DEV /LOG
$3300SHQ
*INS $QMGCLI/CMD="QUE /BR:ALL"
$3300SHW
*INS $QMGCLI/CMD="QUE /FU:ALL"
$3300ATS
*ACT /%1?TERM=\ALL%%1%
$3400FREE
*PIP %1:\SY:%/FR
$3400SORT
*SRD %A%/LI
$3300MCR
*%1\%%Q
;
; CHANGE PARAMETER DELIMITERS TO ONLY ACCEPT "," AND " ", AND SWITCH
;	TO V9 PARSING
;
^^< >< />< >< ,>
$2411TYPE
?1File(s)
*PIP TI:=%1\%%2,%%0%%Q
$3611DELETE
?1File(s)
*PIP %1\%%2,%%0%/DE/LD%Q
$3900DIRECTORY
*PIP %1%%2,%%0%/LI
$3511PURGE
?1File(s)
*PIP %1\%%2,%%0%/PU%Q
$3811TRUNCATE
?1File(s)
*PIP %1\%%2,%%0%/TR%Q
$3422COPY
?1From
?2To
*PIP %2a;0%/FO=%1\%%Q
$3611CREATE
?1File
*PIP %1a\%=TI:%Q
$5511SPOOL
?1File(s)
*PIP %1\%%2,%%0%/SP%Q
;
; CHANGE DELIMITERS TO PARSE ENTIRE LINE INTO %1a% - %1z% ...
;	ONLY %1a% AND %1b% ARE IMPORTANT
;
^^< >< ><>< ,>
$3300UIC
*SET /UIC%1?=[%%1a%%1b,]%
$3600SYSUIC
*SET /SYSUIC%1?=[%%1a%%1b,]%
$6600LIBUIC
*SET /LIBUIC%1?=[%%1a%%1b,]%
$6600NETUIC
*SET /NETUIC%1?=[%%1a%%1b,]%