OS390-Stdio
view release on metacpan or search on metacpan
to a different HLQ:
$mydshandle = mvsopen("//FOO.BAR","r");
$myfullname = getname($mydshandle);
$bobsuid = '214';
setuid($bobsuid);
$bobsdshandle = mvsopen("//FOO.BAR","r");
$bobsfullname = getname($bobsdshandle);
$bobshlq = $bobsfullname;
$bobshlq =~ s/\'([^\.]+)\..*/$1/;
print "Bob's pwname is ",(getpwuid($<))[0],"\n";
print "Bob's high level qualifier (HLQ) is $bobshlq\n";
Note that both of these examples assume that UIDs map directly to
profile prefixes, whereas they may not in general. To obtain more
extensive information for a given data set handle see C<get_dcb>.
=item mvsopen NAME MODE
The C<mvsopen> function enables you to specify optional arguments
to the CRTL when opening a data set. Its operation is similar to the
EOGORY0
}
print +($line eq $date_str ? '' : 'not '), "ok $t\n"; $t++;
my $gotname = getname($fh); # e.g. 'PVHP.TEST3355.TEST3355'
my $gotname_name = getname($name); # e.g. 'PVHP.TEST3355.TEST3355'
print "#$t gotname=>$gotname<= and gotname_name '=>'$gotname_name'<=\n" if $DIAG;
print +($gotname eq $gotname_name ? '' : 'not '), "ok $t\n"; $t++;
my $sans_slash = $name; # e.g. //TEST3355.TEST3355
$sans_slash =~ s#\Q//\E##; # e.g. TEST3355.TEST3355
my $hlq = (getpwuid($<))[0]; # e.g. PVHP
print "#$t gotname=>$gotname<= and 'hlq.sans_slash'=>'$hlq.$sans_slash'<=\n" if $DIAG;
print +($gotname eq "'$hlq.$sans_slash'" ? '' : 'not '), "ok $t\n"; $t++;
my $slash_name = '//' . getname($fh); # e.g. //'PVHP.TEST3355.TEST3355'
$slash_name =~ s/$hlq\.//; # e.g. //'TEST3355.TEST3355'
$slash_name =~ s/\'//g; # e.g. //TEST3355.TEST3355
print "#$t slash_name=>$slash_name<= and name=>$name<=\n" if $DIAG;
print +($slash_name eq "$name" ? '' : 'not '), "ok $t\n"; $t++;
print "#$t attempts to close the ds handle\n" if $DIAG;
( run in 0.431 second using v1.01-cache-2.11-cpan-8d75d55dd25 )