[Info-vax] DCL's flaws (both scripting and UI)
David Froble
davef at tsoft-inc.com
Mon Jan 19 23:50:58 EST 2015
Craig A. Berry wrote:
> On 1/19/15 6:49 AM, Jan-Erik Soderholm wrote:
>> Matthew H McKenzie skrev den 2015-01-19 08:29:
>>> He has,
>>>
>>> I think a port of python would probably go a long way towards resolving
>>> these.
>>
>> Available today.
>> http://www.vmspython.org/doku.php
>>
>>
>>> - abstracting too, the system calls in wrappers.
>>
>> Available today (if you are still talkning about Python).
>>
>> Here is what the interface to SYSQUI looks like.
>> This lists all queues, all jobs in the queues
>> and the filename of all files in those jobs:
>>
>> ------------------------------------------------
>> from vms import queues
>> for q in queues.all_queues():
>> print "Queue: ", q.queue_name
>> for j in q.jobs():
>> print " Job: ", j.job_name
>> for f in j.files:
>> print " Name: ", f.specification
>> ------------------------------------------------
>>
>> Thats all.
>>
>> You can of course get all other information and
>> also "do" things like deleting jobs.
>
> And you can do all of that in Perl as well with the VMS::Queue module,
> which has been around for 17 years now. Here's something similar to the
> above Python example:
>
> use VMS::Queue;
>
> for my $j (VMS::Queue::entry_list()) {
> my $jinfo = VMS::Queue::entry_info($j);
> print "Queue: $$jinfo{QUEUE_NAME} Job: $$jinfo{JOB_NAME}\n";
> for my $f (VMS::Queue::file_list($j)) {
> print " File: $$f{FILE_SPECIFICATION}\n";
> }
> }
>
> It can also decode bitmaps for you, which F$GETQUI can't do.
>
But, that "$j" is just SO alien looking ...
Sorry, old dog ...
:-)
More information about the Info-vax
mailing list