RE: QSYUPTBL (Private)

["Steve Glanstein" <mic@xxxxxxxxx>]

Shailaja:

Did you figure this out?

Steve Glanstein
mic@aloha.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

[snip snip]

+---
| 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
+---