MPE::CIvar 1.11

MPE::CIvar is a Perl extension for CI variables and JCWs on MPE/ix.

SYNOPSIS

 use MPE::CIvar ':all';


 $acct = hpcigetvar("HPACCOUNT");

 hpciputvar("TEMPVAR", 1);
 hpciputvar("TEMPVAR", hpcigetvar("TEMPVAR")+1);
 $hold = hpcigetvar("TEMPVAR");
 hpcideletevar("TEMPVAR");
 print "tempvar value was $hold\n";
 setjcw(32768);
 $jcw = getjcw();
 $ci = findjcw("CIERROR");
 putjcw("CIERROR", 0);

 hpcicommand("build TOOOLONGNAME.PUB,invaliddomain", undef, undef, 2);
 if ($CIVAR{HPCIERR}) {
 print "Error message: $CIVAR{HPCIERRMSG}\n";
 }

 hpcicmds("purge larry",
 "build larry;rec=-80,,f,ascii",
 "file input=larry,old",
 "run darryl.pub")
 or die "Error on cmd: '$MPE::CIvar::lastcmd': $CIVAR{HPCIERRMSG}\n";

 $CIVAR{HPPATH} .= ",PERL.PUB"; # append PERL.PUB to HPPATH


Product's homepage

Requirements:

· Perl