.ENABLE SUBSTITUTION .ENABLE GLOBAL .DISABLE LOWERCASE .IFNDF MPL .SETF MPL .IFT .GOTO 10 ; ; This procedure will move the desired DECnet-11M/S/M-PLUS ; HELP files to the target system''s LB: device. ; .GOTO 20 .10: ; ; This procedure will move the desired DECnet-IAS Help Files ; to your target system''s LB: device ; .20: .SETS OLDUIC .SETF CFE .SETF FTS .SETF NCP .SETF NDA .SETF NFT .SETF VNP .ASKS IN On what device is NETHLP.ULB (DDUU) .TEST IN .IF IN NE "" .IFT .SETS IN "'IN':" .ASKS OUT Target system''s "LB:" device (DDUU) .TEST OUT .IF OUT NE "" .IFT .SETS OUT "'OUT':" .SETS TMPS "" .IFF MPL .SETS TMPS ", VNP" .IFF .ASK ALL Do you want all the HELP files (CFE, FTS, NCP, NDA, NFT'TMPS') .IFT .ASK ALL Do you want all the HELP files (CFE, NCP, NDA, NFT) .IFF ALL .GOTO 10 .SETT CFE .IFF .SETT FTS .SETT NCP .SETT NDA .SETT NFT .IFF .IFF MPL .SETT VNP .GOTO 20 .10: ; Do you want HELP for - .ASK CFE CFE .IFF .ASK FTS FTS .ASK NCP NCP .ASK NDA NDA .ASK NFT NFT .IFF .IFF MPL .ASK VNP VNP .20: ; .IF NE "[1,2]" SET /UIC=[1,2] .IFT CFE LBR 'OUT'CFE='IN'NETHLP.ULB/EX:CFE .IFT CFE LBR 'OUT'CFEDEF='IN'NETHLP.ULB/EX:CFEDEF .IFT CFE LBR 'OUT'CFELIS='IN'NETHLP.ULB/EX:CFELIS .IFT FTS LBR 'OUT'FTS='IN'NETHLP.ULB/EX:FTS .IFT NCP LBR 'OUT'NCP='IN'NETHLP.ULB/EX:NCP .IFT NCP LBR 'OUT'NCPCLE='IN'NETHLP.ULB/EX:NCPCLE .IFT NCP LBR 'OUT'NCPLOA='IN'NETHLP.ULB/EX:NCPLOA .IFT NCP LBR 'OUT'NCPLOO='IN'NETHLP.ULB/EX:NCPLOO .IFT NCP LBR 'OUT'NCPSET='IN'NETHLP.ULB/EX:NCPSET .IFT NCP LBR 'OUT'NCPSHO='IN'NETHLP.ULB/EX:NCPSHO .IFT NCP LBR 'OUT'NCPTRI='IN'NETHLP.ULB/EX:NCPTRI .IFT NCP LBR 'OUT'NCPZER='IN'NETHLP.ULB/EX:NCPZER .IFT NDA LBR 'OUT'NDA='IN'NETHLP.ULB/EX:NDA .IFT NFT LBR 'OUT'NFT='IN'NETHLP.ULB/EX:NFT .IFT VNP LBR 'OUT'VNP='IN'NETHLP.ULB/EX:VNP .IFT VNP LBR 'OUT'VNPCLE='IN'NETHLP.ULB/EX:VNPCLE .IFT VNP LBR 'OUT'VNPSET='IN'NETHLP.ULB/EX:VNPSET .IFT VNP LBR 'OUT'VNPSHO='IN'NETHLP.ULB/EX:VNPSHO .IF OLDUIC NE "[1,2]" SET /UIC='OLDUIC'