× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



John,

Thanks, I did add the "Send message to a message queue", and I am convinced that the Exit Program is not being called.

Is QSERVER the subsystem that needs to go down ?

Thanks,
Narayanan

--- On Tue, 2/8/11, John Earl <john.earl@xxxxxxxxxxxxxxxxxxxx> wrote:

From: John Earl <john.earl@xxxxxxxxxxxxxxxxxxxx>
Subject: Re: QIBM_QPWFS_FILE_SERV - V6R1 - Fails to call(?)
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Date: Tuesday, February 8, 2011, 8:58 AM
Narayanan,

It looks like you're doing the right things...

I would stub in a bit of code that sent a message to a
message queue 
(or some similar notifying process) to verify that my exit
program was 
getting called in the first place. Then perhaps you can
have it write 
some of it's internal values to the message queue before it
sets the 
return code and returns.

Now that I think about it, I wonder if the File Server
requires the 
entire subsystem to be brought down in order for the exit
program to 
take hold.  I remember that some of these
communications jobs were 
very stubborn to take a new exit program, I just don't
recall which 
ones.

hth,

jte



On Feb 7, 2011, at 5:25 PM, Narayanan R Pillai wrote:

Any pointers would be appreciated:

1. I have a very simple RPGLE Exit Program that does
an allow = '0'
attached to the QIBM_QPWFS_FILE_SERV Exit Point on a
V6R1 box.

2. After adding the exit program, I ENDTCPSVR *NETSVR
and killed the
following Pre-start jobs in QSERVER
PGM(QSYS/QZLSFILE), PGM(QSYS/QPWFSERVSO),
PGM(QSYS/QPWFSERVSS),
PGM(QSYS/QPWFSERVS2), PGM(QSYS/QPWFSTP0),
PGM(QSYS/QPWFSTP1),
PGM(QSYS/QPWFSTP2). Then a ENDHOSTSVR *FILE

3. Then Restarted in the reverse order.

Now when I attempt to map a folder, I expect the
request to be 
rejected.
This does not seem to be happening. Messages sent from
the program 
to my
message queue do not seem to go as well.

Where do I start the debugging procedure ? And what do
I do to debug 
this ?

Thanks and regards,
Pillai
--
This is the Midrange Systems Technical Discussion
(MIDRANGE-L) 
mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the
archives
at http://archive.midrange.com/midrange-l.


--
John Earl
President and CEO,
Townsend Security
360-359-4418
townsendsecurity.com
The Encryption Company

--
This is the Midrange Systems Technical Discussion
(MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the
archives
at http://archive.midrange.com/midrange-l.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.