VMS::Logical

VMS::Logical provides access to the logical name system services.  It allows your perl program to translate and define logical names and create and delete logical name tables.

use VMS::Logical qw(:all);
$hashref = translate({lognam='sys$sysdevice',
                      case_blind=>1});
$string = getlogical('sys$login');
@strings = getlogical('sys$sysroot');
$table = create_table({table=>'test_table',
                       partab=>'LNM$PROCESS_DIRECTORY'});
$table = define({lognam=>'TEST_LOGICAL',
                 table=>'LNM$JOB',
                 acmode=>'SUPERVISOR',
                 equiv->[{string=>'equivalence'},
                            {string=>'another'}]});
$status = deassign({lognam=>'TEST_LOGICAL',
                    table=>'LNM$JOB',
                    acmode=>'SUPERVISOR'});

Leave a comment

Your email address will not be published.