.TITLE IPATHS - CCS LOOKUP PATH DEFINITIONS .SBTTL IPATHS - TITLE PAGE .IDENT /V02.00/ .ENABL LC ; ; Define the lookup paths for CCS task as an ordered list of file dataset ; descriptors and operations. ; ; Version: V01.00 ; Author: R.W. Stamerjohn ; ; Modification history: ; ; V01.00 RWS 14-Oct-82 Initial version ; V02.00 RWS 06-Mar-87 Update for public domain release ; ; Macro library calls: ; ; none. ; ; Define DSD string generating macro. ; .MACRO DSD NAME,STRING .NCHR NAME'SZ, NAME: .ASCII #STRING# .ENDM DSD .SBTTL IPATHS - PATH DEFINITIONS. ; ; Define list of search paths and types of searches. The path list is a ; series of pairs, terminated by a zero word. The first word of each pair ; is a pointer to a file datset descriptor, the second word is a pointer ; to the processing routine for the descriptor: ; ; VRBINT -> Scan internal table ; VRBTSK -> Use descriptor to find task image (verb used for filename) ; VRBCMD -> Use descriptor to find command file (verb used for filename) ; VRBCCL -> Use descriptor to open .CCL file ; ; You should change and reorder the table to match your pleasure, add/deleting ; entries and dataset descriptors. ; .PSECT CCS$RO,RO,D,GBL,REL,CON SEARCH::.WORD -1 ,VRBINT ;Internal table .WORD CCLUSR,VRBCCL ;SYS$LOGIN:USERCCL.CCL .WORD CMDCUR,VRBCMD ;SY:[]verb.CMD .WORD CMDLIB,VRBCMD ;LB:[]verb.CMD .WORD TSKLIB,VRBTSK ;LB:[]verb.TSK .WORD TSKSYS,VRBTSK ;LB:[]verb.TSK .WORD STOOLS,VRBTSK ;ST:[6,1]verb.TSK .WORD CCLSYS,VRBCCL ;LB:[1,5]SYSCCL.CCL .WORD 0 ; EOT ; ; Declare the various dataset descriptors defined in the above path list. ; CCLUSR: .WORD ULOGSZ,ULOG ;SYS$LOGIN:USERCCL.CCL .WORD 0,0 .WORD USERSZ,USER CMDCUR: .WORD SYDVSZ,SYDV ;SY:[]verb.CMD .WORD DFUISZ,DFUI .WORD 0,0 CMDLIB: .WORD LBDVSZ,LBDV ;LB:[]verb.CMD .WORD LBUISZ,LBUI .WORD 0,0 TSKLIB: .WORD LBDVSZ,LBDV ;LB:[]verb.TSK .WORD LBUISZ,LBUI .WORD 0,0 TSKSYS: .WORD LBDVSZ,LBDV ;LB:[]verb.TSK .WORD SYUISZ,SYUI .WORD 0,0 STOOLS: .WORD STDVSZ,STDV ;ST:[6,1]verb.TSK .WORD STUISZ,STUI .WORD 0,0 CCLLBS: .WORD LBDVSZ,LBDV ;LB:[1,5]SYSCCL.CCL .WORD CCUISZ,CCUI .WORD SYSCSZ,SYSC ; ; Declare the various constant strings used by the dataset descriptors above. ; Note, DFUI and DFUISZ are defined in module CCSDAT as the current default ; directory. ; DSD SYDV, DSD LBDV, DSD STDV, DSD ULOG, DSD SYUI,<[1,54]> DSD LBUI,<[3,54]> DSD CCUI,<[1,5]> DSD STUI,<[6,1]> DSD USER, DSD SYSC, .EVEN .END