× 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.






I am very much impressed with this... but, I have no knowledge about MI,
any body please help me in coding this MI instructions...
0001.00     DCL DD USERID AUTO CHAR(10);
0002.00     DCL DD PASSWORD AUTO CHAR(10);
0003.00     DCL SYSPRT ?SUBSYS BASPCO POS(H'211');
0004.00     DCL MSPPTR ?M;
0005.00     DCL SPCPTR ?UFCB BAS(?M) POS(H'1B1');
0006.00     DCL SPCPTR ?BUFFER BAS(?UFCB) POS(H'11');
0007.00     DCL DD BUFFER BAS(?BUFFER) CHAR(32767);
0008.00     SETSPPFP ?M, ?SUBSYS;
0009.00     CPYBLA USERID, BUFFER(1:10);
0010.00     CPYBLA PASSWORD, BUFFER(11:10);
I did write this in source file member of type CLP. Is it right/wrong? how
do I compile and run this?

I appreciate your help. Thanks in advance.
Thanks
Shailu




John Earl <johnearl@400security.com>@midrange.com on 06/06/2000 10:57:38 AM

Please respond to MI400@midrange.com

Sent by:  owner-mi400@midrange.com


To:   MI400@midrange.com
cc:

Subject:  Re: QSYUPTBL



Gary Guthrie wrote:

> Yeah, and those shops with programmers belonging to group profile
> QPGMR...

Yes, and any shop running at QSECURITY level 30.

Or any shop where the QSTRUPPGM is not secured.

Or any of the myriad other ways to assume QPGMR's identity.  This is just
one
more in a long list of reasons to lock QPGMR down and not use it in your
applications.

jte


>
>
> Gary Guthrie
> REAL Solutions Technical Support
> NEWS/400 Technical Editor
>
> Scott.Lindstrom@zenith.com wrote:
> >
> > At least (by default) only QSYSOPR, QPGMR, QSRV, and QSRVBAS are
authorized
> > to this command.  Everyone else is excluded.
> >
> > Scott Lindstrom
> > Zenith Electronics
> >
> > Gene,
> >
> > > In addition to storing passwords in ciphertext, OS/400 stores
> > > passwords in plaintext, too.  For example, after User A signs on,
> > > User B can type the following and see User A's plaintext password
> > > (provided User A and User B are signed on in the same subsystem):
> > >
> > > DMPSYSOBJ  OFFSET(210  1B0  10)  SPACE(0  14)
> >
> > An interesting twist on sniffing passwords. If a user has access to
> > DMPSYSOBJ, it sure beats sniffing the IP packets for telnet sessions !
> >
> > +---
> > | This is the MI Programmers Mailing List!
> > | To submit a new message, send your mail to MI400@midrange.com.
> > | To subscribe to this list send email to MI400-SUB@midrange.com.
> > | To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
dr2@cssas400.com
> > +---
> +---
> | This is the MI Programmers Mailing List!
> | To submit a new message, send your mail to MI400@midrange.com.
> | To subscribe to this list send email to MI400-SUB@midrange.com.
> | To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
dr2@cssas400.com
> +---

--
John Earl                               johnearl@400security.com
The PowerTech Group                     206-575-0711
PowerLock Network Security              www.400security.com
--


+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---



+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.