Hi Brian :)
Actually, I think I was write for once!! (dang used up my once a
year shot! Hehe)
I was remembering from the source code back circa 1984... Our
college got a copy of source code for parts of MPE (Rich can you
remember where we got it from in HP?) We, of course, being good studious
college TechnoGeeks in Training immediately started poring over it ...
Found lots of things... MPE Programmers were definitely an eclectic
(sp) lot! ('nuff said unless any of you want to pony up info?)
On the question below, What was the return statuses of the
GetPrivMode? I assume it succeeded but in all computer environs there
are 'levels' of success...
Also, as I am rapidly learning on the Linux front... What I think is
in the same process stack and ownership isn't always... Could there be a
"rights" or "exclusivity" issue between the process that fopened and the
process attempting the fwrite? Ie maybe one process isn't willing to
play well with another?
Thanks,
Art
Art Bahrs, CISSP
Security Engineer
Providence Health & Services
[log in to unmask]
Phone: 503-216-2722
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Brian Donaldson
Sent: Sunday, July 13, 2008 11:05 PM
To: [log in to unmask]
Subject: Re: Cannot Purge PRIV mode File Problem
Nah, I don't blame my tools or the steak -- I blame you!
You're the cause of all my woes :-)
Think that problem was a bad one, wait for this one --
CALL INTRINSIC "GETPRIVMODE"
CALL INTRINSIC "FWRITE" USING WS-FETIPAS2-FNUM
WS-FETIPAS2-RECORD
WS-FIELD-LENGTH
\0\
The file is a PRIV mode, KSAMXL lockworded file that was previously
FOPENed and returned a file number = +0021
So, the FWRITE fails with an error code = 45 (PRIVILEGED FILE VIOLATION)
Huh? I've no idea how that can happen.
I am not expecting any constructive answers to this one so I am just
documenting this for posterity.
I'm sure I'll figure it out eventually.
On Sun, 13 Jul 2008 22:49:37 -0500, Denys Beauchemin
<[log in to unmask]> wrote:
>Shawn, great answer.
>
>Another one is something about someone blaming his tools for his
errors.
>
>Denys
>
>-----Original Message-----
>From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
>Behalf Of Shawn Gordon
>Sent: Sunday, July 13, 2008 4:13 PM
>To: [log in to unmask]
>Subject: Re: [HP3000-L] Cannot Purge PRIV mode File Problem
>
>At 02:09 PM 7/13/2008, Brian Donaldson wrote:
>>One thing I did forget to mention was that once I have the eight char
>>(lowercase or uppercase) lockword, I am using the AIF intrinsic
>>AIFFILEGPUT to plug the lockword into the file.
>>
>>So I am assuming that the AIF isn't smart enough to upshift all the
>>letters before plugging the lockword into the file.
>
>that's like blaming the steak for not cooking itself to the right
>temperature.
>
>
>
>>Brian.
>>
>>
>>On Sun, 13 Jul 2008 17:04:05 -0400, Brian Donaldson
>><[log in to unmask]> wrote:
>>
>> >Nope, the lockword was created in a Cobol program running under the
>> >MPEiX directory, not the shell.
>> >
>> >This problem only seems to occur if the lockword has lower-case
>> >chars but I can purge the file via MPEX ok if the lockword is in
upper-case.
>> >
>> >So I had to fix my routine that creates the random lockword
>> >(password) to restrict it to upper-case chars (and numbers) only.
>> >
>> >Brian.
>> >
>> >On Sun, 13 Jul 2008 12:04:10 -0700, Bahrs, Art
><[log in to unmask]>
>> >wrote:
>> >
>> >>Hi Brian
>> >> Not an expert here but I don't remember the ability in the
>> >>lockword
>> >handlers to support lower case chars
>> >>
>> >> Could the lockword have been established in the shell? Might
>> >> have
>been
>> >established programtically ther?
>> >>
>> >>
>> >>Sent via PDA
>> >>Thanks
>> >>Art Bahrs
>> >>Security Engineer
>> >>[log in to unmask]
>> >>
>> >>-----Original Message-----
>> >>From: Brian Donaldson <[log in to unmask]>
>> >>Sent: Sunday, 13 July, 2008 9:58 AM
>> >>To: [log in to unmask] <[log in to unmask]>
>> >>Subject: Re: Cannot Purge PRIV mode File Problem
>> >>
>> >>I was able to whack the file (finally) via a nasty little program
>> >>named FSCHECK.MPEXL.TELESUP
>> >>
>> >>However, this still leaves me wondering why I couldn't purge the
>> >>file because it had lowercase chars in the lockword.
>> >>
>> >>Anyone know why?
>> >>
>> >>Brian.
>> >>
>> >>On Sun, 13 Jul 2008 12:37:08 -0400, Brian Donaldson
>> >><[log in to unmask]>
>>wrote:
>> >>
>> >>>FILE: xxxxx.PUB.SYS
>> >>>
>> >>>FILE CODE : -201 FOPTIONS: ASCII,FIXED,NOCCTL,STD
>> >>>BLK FACTOR: 8 CREATOR : MANAGER.SYS
>> >>>REC SIZE: 32(BYTES) LOCKWORD: hMOGhF2m
>> >>>BLK SIZE: 256(BYTES) SECURITY--READ : ANY
>> >>>EXT SIZE: 0(SECT) WRITE : ANY
>> >>>NUM REC: 0 APPEND : ANY
>> >>>NUM SEC: 0 LOCK : ANY
>> >>>NUM EXT: 0 EXECUTE : ANY
>> >>>MAX REC: 1024 **SECURITY IS ON
>> >>> FLAGS : NO ACCESSORS
>> >>>NUM LABELS: 0 CREATED : SUN, JUL 13, 2008, 9:14
AM
>> >>>MAX LABELS: 254 MODIFIED: SUN, JUL 13, 2008, 9:14
AM
>> >>>DISC DEV #: 2 ACCESSED: SUN, JUL 13, 2008, 9:14
AM
>> >>>SEC OFFSET: 65024 LABEL ADDR: $0000005E.$002C6420
>> >>>VOLCLASS : MPEXL_SYSTEM_VOLUME_SET:DISC
>> >>>
>> >>>
>> >>>:MPEX
>> >>>
>> >>>MPEX/3000 29N00420 (c) VESOFT Inc, 1980 6.5 03:04918 For help
>> >>>type
>>'HELP'
>> >>>
>> >>>Hint: %PRINT @.DOC;SEARCH="CUST_NUM";PREV="PROCEDURE" or
"FUNCTION";NUM
>> >>> shows you all lines containing CUST_NUM and the
>> immediately preceding
>> >>> lines that contain PROCEDURE or FUNCTION (i.e. the
>> procedure headers).
>> >>>
>> >>>%ALTFILE LOCKERD2;CODE=0
>> >>>-----Altering LOCKERD2.PUB.SYS
>> >>>LOCKWORD VIOLATION (FSERR 92)
>> >>>Error: Doing Fopen of LOCKERD2/.PUB.SYS.
>> >>>%PURGE LOCKERD2
>> >>>-----Will purge LOCKERD2.PUB.SYS (code "PRIV", type FA, EOF 0, 0
>sectors)
>> >>>OK to purge 1 file (y/N)? Y
>> >>>-----Purging LOCKERD2.PUB.SYS (0 sectors) LOCKWORD VIOLATION
>> >>>(FSERR 92) Unable to purge file "LOCKERD2/.PUB.SYS". (CIERR 384)
>> >>>%REDO
>> >>>
>> >>>PURGE LOCKERD2/hMOGhF2m
>> >>>
>> >>>-----Will purge LOCKERD2.PUB.SYS (code "PRIV", type FA, EOF 0, 0
>sectors)
>> >>>OK to purge 1 file (y/N)? Y
>> >>>-----Purging LOCKERD2.PUB.SYS (0 sectors) LOCKWORD VIOLATION
>> >>>(FSERR 92) Unable to purge file "LOCKERD2/.PUB.SYS". (CIERR 384) %
>> >>>EXIT
>> >>>
>> >>>END OF PROGRAM
>> >>>
>> >>>:FILE T;DEV=DISC
>> >>>
>> >>>:FILE T;DEV=DISC
>> >>>:STORE LOCKERD2.PUB.SYS;*T;PURGE
>> >>> >> TURBO-STORE/RESTORE VERSION C.65.19 B5152AA <<
>> >>> (C) 1986 HEWLETT-PACKARD CO.
>> >>>
>> >>>STORE LOCKERD2.PUB.SYS;*T;PURGE
>> >>>
>> >>>SUN, JUL 13, 2008, 9:23 AM
>> >>>
>> >>>
>> >>>FILES STORED : 1
>> >>>
>> >>>
>> >>>TOTAL MEDIA WRITTEN : 1
>> >>>
>> >>>LOCKWORD VIOLATION (FSERR 92)
>> >>>LOCKERD2.PUB .SYS NOT PURGED: LOCKWORD VIOLATION
ENCOUNTERED
>ON
>> >>> FILE OPEN
>> >>>
>> >>>
>> >>>How on earth do I get rid of this file? It has a lockword with
>lowercase
>>chars
>> >>>in it and I cannot purge the file.............! (even when I give
>> >>>it
>the
>> >>>correct
>> >>>lockword)
>> >>>
>> >>>TIA,
>> >>>Brian.
>> >>>
>> >>>* To join/leave the list, search archives, change list settings, *
>> >>>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>> >>
>> >>* To join/leave the list, search archives, change list settings, *
>> >>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>> >>
>> >>
>> >>DISCLAIMER:
>> >>This message is intended for the sole use of the addressee, and may
>contain
>> >information that is privileged, confidential and exempt from
>> >disclosure under applicable law. If you are not the addressee you
>> >are hereby
>notified
>> >that you may not use, copy, disclose, or distribute to anyone the
>> >message
>or
>> >any information contained in the message. If you have received this
>message
>> >in error, please immediately advise the sender by reply email and
>> >delete this message.
>> >>
>> >>* To join/leave the list, search archives, change list settings, *
>> >>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>> >
>> >* To join/leave the list, search archives, change list settings, *
>> >* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>>
>>* To join/leave the list, search archives, change list settings, *
>>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>
>Regards,
>
>Shawn Gordon
>President
>theKompany.com
>www.thekompany.com
>www.mindawn.com
>949-713-3276
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html * No
>virus found in this incoming message.
>Checked by AVG - http://www.avg.com
>Version: 8.0.138 / Virus Database: 270.4.10/1550 - Release Date:
>7/13/2008
>5:58 PM
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
DISCLAIMER:
This message is intended for the sole use of the addressee, and may contain information that is privileged, confidential and exempt from disclosure under applicable law. If you are not the addressee you are hereby notified that you may not use, copy, disclose, or distribute to anyone the message or any information contained in the message. If you have received this message in error, please immediately advise the sender by reply email and delete this message.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
