.; UP.IND, IND control file. .; Moves up one logical device and reassigns the logical name .; given in DOWN to that LD. .; .; The parameters of the control file are: .; P1 Inhibit printing current assignment (used with OVER). .; .; When used in conjunction with a UCL, you can type .; UP to move up in the logical device nesting. .; The UCL entry is .; UP == R IND\SY:UP ^ (assuming you are using UCL+). .; (Also assuming you have patched IND to expect .IND as the default .; extension)! .; .; Written by: .; R. W. Barnard .; BIO/Comp Applications .; Albuquerque, NM 87185 .; .; Version 2.2; 20-Oct-86. .; .enable quiet .disable lowercase .; .openr SY:CURDK.TMP .read LINE .;Get the logical name used in DOWN. .close .parse LINE " ," ESC CURFIL REST .parse CURFIL " " CURFIL IS LOGICL REST .; .; See where we are right now. .testdevice 'LOGICL' .parse "," DEVNAM SIZE A1 A2 A3 LOAD ONL MOU NAT .sets CURLD "LD7" .if DEVNAM eq CURLD .goto up1 .sets CURLD "LD6" DEASS 'LOGICL' .sets LOGICL "DK" .goto 10 .; .up1: .;Assign the logical name from the LD below. ASS LD6 'LOGICL' .; .10: DISMOUNT 'CURLD' .testdevice 'LOGICL' .parse "," DEVNAM SIZE A1 A2 A3 LOAD ONL MOU NAT .if ONL ne "OFL" .goto 20 DEASS 'LOGICL' .sets DEVNAM "''''" .20: .vol VOLID 'LOGICL' .parse VOLID " " VOLID REST .; .open SY:CURDK.TMP .data E 'DEVNAM':('VOLID') is 'LOGICL'  .close .; .if P1 ne "" .exit .;Don't type our whereabouts. TYPE SY:CURDK.TMP .; .exit