RE: Please compile this program -- MI400

1) compile the program using your MI-compiler. (if you don't have any,
attached is an RPG program that creates the MI-compiler front-end,
or you can find better ones in the archives of the this list).
2) save the *PGM object to a save file (no compression)
3) e-mail the save file to me
Thanks.

 <<crtmicmp.txt>> 
     /*================================================================
      * This program creates MI compiler CRTMI in *CURLIB.            =
      * Source statements for the MI compiler are found in array MI.  =
      *================================================================
     E                    MI      1 210 80
     I            DS
     I                                    B   1   40#SRCLN
     I I            'CRTMIPGM  *CURLIB'       5  24 #PGMLB
     I                                       25  74 #TEXT
     I I            '*NONE'                  75  94 #SRCFL
     I                                       95 104 #MBR
     I                                      105 117 #CHGDT
     I                                      105 105 #CENT
     I                                      106 107 #YY
     I                                      108 111 #MMDD
     I                                      112 117 #HMS
     I                                      118 137 #PRTFL
     I                                    B 138 1410#STRPG
     I                                      142 151 #AUT
     I                                      152 327 #OP
     I                                    B 328 3310#NOOPT
     C                     CALL 'QPRCRTPG'
     C                     PARM           MI
     C                     PARM 16800     #SRCLN
     C                     PARM           #PGMLB
     C                     PARM 'MI Comp' #TEXT
     C                     PARM           #SRCFL
     C                     PARM           #MBR
     C                     PARM           #CHGDT
     C                     PARM ' '       #PRTFL
     C                     PARM 0         #STRPG
     C                     PARM '*USE'    #AUT
     C                     PARM '*REPLACE'#OP
     C                     PARM 1         #NOOPT
     C                     MOVE *ON       *INLR
**                                                             */
DCL SPCPTR .MBR PARM;
DCL SPCPTR .FIL PARM;
DCL SPCPTR .DET PARM;
DCL OL *ENTRY (.MBR, .FIL, .DET) PARM EXT MIN(1);
DCL DD MBR CHAR(10) BAS(.MBR);
DCL DD FIL CHAR(10) BAS(.FIL);
DCL DD DET CHAR(10) BAS(.DET);

DCL SPC PCO  BASPCO;
    DCL SPCPTR .PCO DIR;

DCL SPC SEPT BAS(.PCO);
    DCL SPCPTR .SEPT(2000) DIR;

DCL SPCPTR .UFCB INIT(UFCB);
DCL DD UFCB CHAR(214) BDRY(16);
    DCL SPCPTR .ODP           DEF(UFCB) POS(  1);
    DCL SPCPTR .INBUF         DEF(UFCB) POS( 17);
    DCL SPCPTR .OUTBUF        DEF(UFCB) POS( 33);
    DCL SPCPTR .OPEN-FEEDBACK DEF(UFCB) POS( 49);
    DCL SPCPTR .IO-FEEDBACK   DEF(UFCB) POS( 65);
    DCL SPCPTR .NEXT-UFCB     DEF(UFCB) POS( 81);

    DCL DD *         CHAR(32) DEF(UFCB) POS( 97);
    DCL DD FILE      CHAR(10) DEF(UFCB) POS(129) INIT("QMISRC");
    DCL DD LIB-ID    BIN ( 2) DEF(UFCB) POS(139) INIT(-75);
    DCL DD LIBRARY   CHAR(10) DEF(UFCB) POS(141) INIT("*LIBL");
    DCL DD MBR-ID    BIN ( 2) DEF(UFCB) POS(151) INIT( 73);
    DCL DD MEMBER    CHAR(10) DEF(UFCB) POS(153);

    DCL DD ODP-DEVICE-NAME    CHAR(10) DEF(UFCB) POS(163);
    DCL DD ODP-DEVICE-INDEX   BIN ( 2) DEF(UFCB) POS(173);

    DCL DD FLAGS-PERM-80      CHAR( 1) DEF(UFCB) POS(175) INIT(X'80');
    DCL DD FLAGS-GET-20       CHAR( 1) DEF(UFCB) POS(176) INIT(X'20');
    DCL DD REL-VERSION        CHAR( 4) DEF(UFCB) POS(177) INIT("0100");
    DCL DD INVOC-MARK-COUNT   BIN ( 4) DEF(UFCB) POS(181);
    DCL DD MORE-FLAGS         CHAR( 1) DEF(UFCB) POS(185) INIT(X'00');
    DCL DD *                  CHAR(23) DEF(UFCB) POS(186);

    DCL DD RECORD-PARAM       BIN ( 2) DEF(UFCB) POS(209) INIT(1);
    DCL DD RECORD-LENGTH      BIN ( 2) DEF(UFCB) POS(211) INIT(92);

    DCL DD NO-MORE-PARAMS     BIN ( 2) DEF(UFCB) POS(213) INIT(32767);

DCL SPC ODP BAS(.ODP);
    DCL DD *          CHAR(16) DIR;
    DCL DD DEV-OFFSET BIN ( 4) DIR;

DCL SPCPTR .DMDEV;
DCL SPC     DMDEV BAS(.DMDEV);
    DCL DD MAX-DEVICE      BIN ( 2) DIR;
    DCL DD NBR-DEVICES     BIN ( 2) DIR;
    DCL DD DEVICE-NAME     CHAR(10) DIR;
    DCL DD WORKAREA-OFFSET BIN ( 4) DIR;
    DCL DD WORKAREA-LENGTH BIN ( 4) DIR;
    DCL DD LUD-PTR-INDEX   BIN ( 2) DIR;
    DCL DD DM-GET          BIN ( 2) DIR;

DCL SPCPTR .GETOPT INIT(GETOPT);
DCL DD      GETOPT CHAR(4);
    DCL DD  GET-OPTION-BYTE CHAR(1) DEF(GETOPT) POS(1) INIT(X'03');
    DCL DD  GET-SHARE-BYTE  CHAR(1) DEF(GETOPT) POS(2) INIT(X'00');
    DCL DD  GET-DATA-BYTE   CHAR(1) DEF(GETOPT) POS(3) INIT(X'00');
    DCL DD  GET-DEVICE-BYTE CHAR(1) DEF(GETOPT) POS(4) INIT(X'01');

DCL SPCPTR .NULL;
DCL OL GET  (.UFCB, .GETOPT, .NULL);
DCL OL OPEN (.UFCB);
DCL OL CLOSE(.UFCB);

DCL SPC INBUF BAS(.INBUF);
    DCL DD INBUF-DATE CHAR(12) DEF(INBUF) POS( 1);
    DCL DD INBUF-LINE CHAR(80) DEF(INBUF) POS(13);
        DCL DD INBUF-KEYWORD CHAR( 9) DEF(INBUF-LINE) POS( 1);
        DCL DD INBUF-NEWMBR  CHAR(10) DEF(INBUF-LINE) POS(10);

DCL SPCPTR .SOURCE;
DCL DD LINE(10000) CHAR(80) AUTO;
DCL DD LINE-NBR BIN(4);
DCL DD READ-NBR BIN(4);
DCL DD SAVE-NBR BIN(4);
DCL DD SKIP-NBR BIN(4);
DCL DD INCL-NBR BIN(2);

DCL SPCPTR .SIZE INIT(SIZE);
DCL DD      SIZE BIN(4);

DCL SPCPTR .PGM INIT(PGM);
DCL DD      PGM CHAR(20);
    DCL DD PGM-NAME  CHAR(10) DEF(PGM) POS( 1);
    DCL DD PGM-LIB   CHAR(10) DEF(PGM) POS(11) INIT("*CURLIB");

DCL SPCPTR .PGM-TEXT INIT(PGM-TEXT);
DCL DD      PGM-TEXT CHAR(50) INIT(" ");

DCL SPCPTR .PGM-SRCF INIT(PGM-SRCF);
DCL DD      PGM-SRCF CHAR(20) INIT("*NONE");

DCL SPCPTR .PGM-SRCM INIT(PGM-SRCM);
DCL DD      PGM-SRCM CHAR(10) INIT(" ");

DCL SPCPTR .PGM-SRCD INIT(PGM-SRCD);
DCL DD      PGM-SRCD CHAR(13) INIT(" ");

DCL SPCPTR .PRTF-NAME INIT(PRTF-NAME);
DCL DD      PRTF-NAME CHAR(20);
    DCL DD PRTF-FILE CHAR(10) DEF(PRTF-NAME) POS( 1) INIT("QSYSPRT ");
    DCL DD PRTF-LIB  CHAR(10) DEF(PRTF-NAME) POS(11) INIT("*LIBL   ");

DCL SPCPTR .PRT-STRPAG INIT(PRT-STRPAG);
DCL DD      PRT-STRPAG BIN(4) INIT(1);

DCL SPCPTR .PGM-PUBAUT INIT(PGM-PUBAUT);
DCL DD      PGM-PUBAUT CHAR(10) INIT("*ALL");

DCL SPCPTR .PGM-OPTS INIT(PGM-OPTS);
DCL DD      PGM-OPTS(16) CHAR(11) INIT("*REPLACE   ", "*SUBSTR  ",
                        "*NOCLRPSSA ", "*NOCLRPASA ", "*SUBSCR  ",
                        "*LIST      ", "*ATR       ", "*XREF      ");

DCL SPCPTR .NBR-OPTS INIT(NBR-OPTS);
DCL DD      NBR-OPTS BIN(4);

DCL OL QPRCRTPG (.SOURCE, .SIZE, .PGM,   .PGM-TEXT,  .PGM-SRCF,
                 .PGM-SRCM,   .PGM-SRCD, .PRTF-NAME, .PRT-STRPAG,
                 .PGM-PUBAUT, .PGM-OPTS, .NBR-OPTS) ARG;

DCL SYSPTR .QPRCRTPG INIT("QPRCRTPG", CTX("QSYS"), TYPE(PGM));

DCL DD NBR-PARMS BIN(2);
DCL EXCM * EXCID(H'5001') BP(EOF) IMD;

DCL DD START CHAR(80);
    DCL DD *         CHAR(12) DEF(START) POS( 1) INIT("/* INCLUDE: ");
    DCL DD NEWMBR    CHAR(10) DEF(START) POS(13);
    DCL DD *         CHAR(58) DEF(START) POS(23) INIT(" */");

DCL DD STOP  CHAR(80);
    DCL DD * CHAR(80) DEF(STOP) POS(1) INIT("/* END INCLUDE */");

/****************************************************************/

ENTRY * (*ENTRY) EXT;
    CPYNV        LINE-NBR, 1;
    CPYNV        INCL-NBR, 0;
    CPYNV        SKIP-NBR, 0;

    CPYBWP      .NULL, *;
    CPYNV        NBR-OPTS,  6; /* YES: *LIST; NO: *ATR, *XREF */
    STPLLEN      NBR-PARMS;
    CMPNV(B)     NBR-PARMS, 3/NEQ(PREPARE-FILE);
    CMPBLA(B)    DET, <10|*DETAIL   >/EQ(YES-DETAIL);
    CMPBLA(B)    DET, <10|*NOLIST   >/EQ(NO-LIST);
    B            PREPARE-FILE;
YES-DETAIL:      CPYNV(B) NBR-OPTS, 8/NNAN(PREPARE-FILE);
NO-LIST:         CPYNV(B) NBR-OPTS, 5/NNAN(PREPARE-FILE);

PREPARE-FILE:
    CPYBLAP      FILE, "QMISRC", " ";
    CMPNV(B)     NBR-PARMS, 1 /EQ(SET-MEMBER);
    CPYBLA       FILE, FIL;
SET-MEMBER:
    CPYBLA       MEMBER, MBR;
    CPYBLA       PGM-NAME, MBR;
OPEN-FILE:
    CPYNV        READ-NBR, 0;
    CALLX       .SEPT(12), OPEN, *;
    ADDSPP      .DMDEV, .ODP, DEV-OFFSET;

NEXT-SOURCE-RECORD:
    CALLX       .SEPT(DM-GET), GET, *;
    BRK "1";
    ADDN(S)      READ-NBR, 1;
    SUBN(SB)     SKIP-NBR, 1/NNEG(NEXT-SOURCE-RECORD);
    CMPBLA(B)    INBUF-KEYWORD, "%INCLUDE "/EQ(INCLUDE-MEMBER);
    CPYBLA       LINE(LINE-NBR), INBUF-LINE;
    ADDN(S)      LINE-NBR, 1;
    B            NEXT-SOURCE-RECORD;

EOF:
    CALLX       .SEPT(11), CLOSE, *;
    CMPNV(B)     INCL-NBR, 0/HI(END-INCLUDE);
    CPYBLAP      LINE(LINE-NBR), <23|/*'/*'/*"/*"*/; PEND;;;>, " ";
    MULT         SIZE, LINE-NBR, 80;
    SETSPP      .SOURCE, LINE;
    CALLX       .QPRCRTPG, QPRCRTPG, *;
    RTX          *;

ERROR:
    RTX          *;

INCLUDE-MEMBER:
    ADDN(S)      INCL-NBR, 1;
    CPYBLA       NEWMBR, INBUF-NEWMBR;
    CALLX       .SEPT(11), CLOSE, *;
    CPYBLA       MEMBER, NEWMBR;
    CPYBLA       LINE(LINE-NBR), START;
    ADDN(S)      LINE-NBR, 1;
    CPYNV(B)     SAVE-NBR, READ-NBR/NNAN(OPEN-FILE);

END-INCLUDE:
    CPYBLA       LINE(LINE-NBR), STOP;
    ADDN(S)      LINE-NBR, 1;
    SUBN(S)      INCL-NBR, 1;
    CPYBLA       MEMBER, MBR;
    CPYNV(B)     SKIP-NBR, SAVE-NBR/NNAN(OPEN-FILE);

PEND;


> -----Original Message-----
> From: Chuck Lewis [SMTP:clewis@iquest.net]
> Sent: Monday, January 31, 2000 7:14 AM
> To:   MI400@midrange.com
> Subject:      Re: Please compile this program
> 
> Leif,
> 
> Duh question of the day - what do I use to do this ?
> 
> I'm at V4R1 and will be glad to help !
> 
> Chuck
> 
> Leif Svalgaard wrote:
> 
> > I need to know what the encapsulated program looks like
> > for the little MI-program below, on V3R7, V4R1, and V4R2.
> > I already have V4R3 and V4R4.
> >
> > Anybody with these versions wanna help?
> > Please send me a savefile with the result.
> > Thanks.
> >
> > DCL DD X BIN(4);
> > ENTRY * EXT;
> >         CPYNV     X, H'00000000';
> >         CPYNV     X, H'00000000';
> >         CPYNV     X, H'00000000';
> >         CPYNV     X, H'00000000';
> > PEND;
> > +---
> > | 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
> +---

begin 600 crtmicmp.txt
M("`@("`O*CT]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]
M/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T-"B`@("`@("H@5&AI<R!P<F]G
M<F%M(&-R96%T97,@34D@8V]M<&EL97(@0U)434D@:6X@*D-54DQ)0BX@("`@
M("`@("`@("`]#0H@("`@("`J(%-O=7)C92!S=&%T96UE;G1S(&9O<B!T:&4@
M34D@8V]M<&EL97(@87)E(&9O=6YD(&EN(&%R<F%Y($U)+B`@/0T*("`@("`@
M*CT]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]
M/3T]/3T]/3T]/3T]/3T]/3T]/3T-"B`@("`@12`@("`@("`@("`@("`@("`@
M("`@34D@("`@("`Q(#(Q,"`X,`T*("`@("!)("`@("`@("`@("`@1%,-"B`@
M("`@22`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@($(@("`Q
M("`@-#`C4U)#3$X-"B`@("`@22!)("`@("`@("`@("`@)T-25$U)4$=-("`J
M0U523$E")R`@("`@("`U("`R-"`C4$=-3$(-"B`@("`@22`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@(#(U("`W-"`C5$585`T*("`@
M("!)($D@("`@("`@("`@("`G*DY/3D4G("`@("`@("`@("`@("`@("`@-S4@
M(#DT("-34D-&3`T*("`@("!)("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@.34@,3`T("--0E(-"B`@("`@22`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@,3`U(#$Q-R`C0TA'1%0-"B`@("`@
M22`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@,3`U(#$P
M-2`C0T5.5`T*("`@("!)("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`Q,#8@,3`W("-960T*("`@("!)("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`Q,#@@,3$Q("--341$#0H@("`@($D@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(#$Q,B`Q,3<@(TA-
M4PT*("`@("!)("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`Q,3@@,3,W("-04E1&3`T*("`@("!)("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@0B`Q,S@@,30Q,"-35%)01PT*("`@("!)("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`Q-#(@,34Q("-!550-
M"B`@("`@22`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M,34R(#,R-R`C3U`-"B`@("`@22`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@($(@,S(X(#,S,3`C3D]/4%0-"B`@("`@0R`@("`@("`@("`@
M("`@("`@("`@($-!3$P@)U%04D-25%!')PT*("`@("!#("`@("`@("`@("`@
M("`@("`@("`@4$%232`@("`@("`@("`@34D-"B`@("`@0R`@("`@("`@("`@
M("`@("`@("`@(%!!4DT@,38X,#`@("`@("-34D-,3@T*("`@("!#("`@("`@
M("`@("`@("`@("`@("`@4$%232`@("`@("`@("`@(U!'34Q"#0H@("`@($,@
M("`@("`@("`@("`@("`@("`@("!005)-("=-22!#;VUP)R`C5$585`T*("`@
M("!#("`@("`@("`@("`@("`@("`@("`@4$%232`@("`@("`@("`@(U-20T9,
M#0H@("`@($,@("`@("`@("`@("`@("`@("`@("!005)-("`@("`@("`@("`C
M34)2#0H@("`@($,@("`@("`@("`@("`@("`@("`@("!005)-("`@("`@("`@
M("`C0TA'1%0-"B`@("`@0R`@("`@("`@("`@("`@("`@("`@(%!!4DT@)R`G
M("`@("`@("-04E1&3`T*("`@("!#("`@("`@("`@("`@("`@("`@("`@4$%2
M32`P("`@("`@("`@(U-44E!'#0H@("`@($,@("`@("`@("`@("`@("`@("`@
M("!005)-("<J55-%)R`@("`C0554#0H@("`@($,@("`@("`@("`@("`@("`@
M("`@("!005)-("<J4D503$%#12<C3U`-"B`@("`@0R`@("`@("`@("`@("`@
M("`@("`@(%!!4DT@,2`@("`@("`@("-.3T]05`T*("`@("!#("`@("`@("`@
M("`@("`@("`@("`@34]612`J3TX@("`@("`@*DE.3%(-"BHJ("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("HO#0I$0TP@4U!#4%12("Y-0E(@4$%233L-"D1#3"!34$-05%(@
M+D9)3"!005)-.PT*1$-,(%-00U!44B`N1$54(%!!4DT[#0I$0TP@3TP@*D5.
M5%)9("@N34)2+"`N1DE,+"`N1$54*2!005)-($585"!-24XH,2D[#0I$0TP@
M1$0@34)2($-(05(H,3`I($)!4R@N34)2*3L-"D1#3"!$1"!&24P@0TA!4B@Q
M,"D@0D%3*"Y&24PI.PT*1$-,($1$($1%5"!#2$%2*#$P*2!"05,H+D1%5"D[
M#0H-"D1#3"!34$,@4$-/("!"05-00T\[#0H@("`@1$-,(%-00U!44B`N4$-/
M($1)4CL-"@T*1$-,(%-00R!315!4($)!4R@N4$-/*3L-"B`@("!$0TP@4U!#
M4%12("Y315!4*#(P,#`I($1)4CL-"@T*1$-,(%-00U!44B`N549#0B!)3DE4
M*%5&0T(I.PT*1$-,($1$(%5&0T(@0TA!4B@R,30I($)$4EDH,38I.PT*("`@
M($1#3"!34$-05%(@+D]$4"`@("`@("`@("`@1$5&*%5&0T(I(%!/4R@@(#$I
M.PT*("`@($1#3"!34$-05%(@+DE.0E5&("`@("`@("`@1$5&*%5&0T(I(%!/
M4R@@,3<I.PT*("`@($1#3"!34$-05%(@+D]55$)51B`@("`@("`@1$5&*%5&
M0T(I(%!/4R@@,S,I.PT*("`@($1#3"!34$-05%(@+D]014XM1D5%1$)!0TL@
M1$5&*%5&0T(I(%!/4R@@-#DI.PT*("`@($1#3"!34$-05%(@+DE/+49%141"
M04-+("`@1$5&*%5&0T(I(%!/4R@@-C4I.PT*("`@($1#3"!34$-05%(@+DY%
M6%0M549#0B`@("`@1$5&*%5&0T(I(%!/4R@@.#$I.PT*#0H@("`@1$-,($1$
M("H@("`@("`@("!#2$%2*#,R*2!$148H549#0BD@4$]3*"`Y-RD[#0H@("`@
M1$-,($1$($9)3$4@("`@("!#2$%2*#$P*2!$148H549#0BD@4$]3*#$R.2D@
M24Y)5"@B44U)4U)#(BD[#0H@("`@1$-,($1$($Q)0BU)1"`@("!"24X@*"`R
M*2!$148H549#0BD@4$]3*#$S.2D@24Y)5"@M-S4I.PT*("`@($1#3"!$1"!,
M24)205)9("`@0TA!4B@Q,"D@1$5&*%5&0T(I(%!/4R@Q-#$I($E.250H(BI,
M24),(BD[#0H@("`@1$-,($1$($U"4BU)1"`@("!"24X@*"`R*2!$148H549#
M0BD@4$]3*#$U,2D@24Y)5"@@-S,I.PT*("`@($1#3"!$1"!-14U"15(@("`@
M0TA!4B@Q,"D@1$5&*%5&0T(I(%!/4R@Q-3,I.PT*#0H@("`@1$-,($1$($]$
M4"U$159)0T4M3D%-12`@("!#2$%2*#$P*2!$148H549#0BD@4$]3*#$V,RD[
M#0H@("`@1$-,($1$($]$4"U$159)0T4M24Y$15@@("!"24X@*"`R*2!$148H
M549#0BD@4$]3*#$W,RD[#0H-"B`@("!$0TP@1$0@1DQ!1U,M4$5232TX,"`@
M("`@($-(05(H(#$I($1%1BA51D-"*2!03U,H,3<U*2!)3DE4*%@G.#`G*3L-
M"B`@("!$0TP@1$0@1DQ!1U,M1T54+3(P("`@("`@($-(05(H(#$I($1%1BA5
M1D-"*2!03U,H,3<V*2!)3DE4*%@G,C`G*3L-"B`@("!$0TP@1$0@4D5,+59%
M4E-)3TX@("`@("`@($-(05(H(#0I($1%1BA51D-"*2!03U,H,3<W*2!)3DE4
M*"(P,3`P(BD[#0H@("`@1$-,($1$($E.5D]#+4U!4DLM0T]53E0@("!"24X@
M*"`T*2!$148H549#0BD@4$]3*#$X,2D[#0H@("`@1$-,($1$($U/4D4M1DQ!
M1U,@("`@("`@("!#2$%2*"`Q*2!$148H549#0BD@4$]3*#$X-2D@24Y)5"A8
M)S`P)RD[#0H@("`@1$-,($1$("H@("`@("`@("`@("`@("`@("!#2$%2*#(S
M*2!$148H549#0BD@4$]3*#$X-BD[#0H-"B`@("!$0TP@1$0@4D5#3U)$+5!!
M4D%-("`@("`@($))3B`H(#(I($1%1BA51D-"*2!03U,H,C`Y*2!)3DE4*#$I
M.PT*("`@($1#3"!$1"!214-/4D0M3$5.1U1(("`@("`@0DE.("@@,BD@1$5&
M*%5&0T(I(%!/4R@R,3$I($E.250H.3(I.PT*#0H@("`@1$-,($1$($Y/+4U/
M4D4M4$%204U3("`@("!"24X@*"`R*2!$148H549#0BD@4$]3*#(Q,RD@24Y)
M5"@S,C<V-RD[#0H-"D1#3"!34$,@3T10($)!4R@N3T10*3L-"B`@("!$0TP@
M1$0@*B`@("`@("`@("!#2$%2*#$V*2!$25([#0H@("`@1$-,($1$($1%5BU/
M1D93150@0DE.("@@-"D@1$E2.PT*#0I$0TP@4U!#4%12("Y$341%5CL-"D1#
M3"!34$,@("`@($1-1$56($)!4R@N1$U$158I.PT*("`@($1#3"!$1"!-05@M
M1$5624-%("`@("`@0DE.("@@,BD@1$E2.PT*("`@($1#3"!$1"!.0E(M1$56
M24-%4R`@("`@0DE.("@@,BD@1$E2.PT*("`@($1#3"!$1"!$159)0T4M3D%-
M12`@("`@0TA!4B@Q,"D@1$E2.PT*("`@($1#3"!$1"!73U)+05)%02U/1D93
M150@0DE.("@@-"D@1$E2.PT*("`@($1#3"!$1"!73U)+05)%02U,14Y'5$@@
M0DE.("@@-"D@1$E2.PT*("`@($1#3"!$1"!,540M4%12+4E.1$58("`@0DE.
M("@@,BD@1$E2.PT*("`@($1#3"!$1"!$32U'150@("`@("`@("`@0DE.("@@
M,BD@1$E2.PT*#0I$0TP@4U!#4%12("Y'151/4%0@24Y)5"A'151/4%0I.PT*
M1$-,($1$("`@("`@1T543U!4($-(05(H-"D[#0H@("`@1$-,($1$("!'150M
M3U!424].+4)95$4@0TA!4B@Q*2!$148H1T543U!4*2!03U,H,2D@24Y)5"A8
M)S`S)RD[#0H@("`@1$-,($1$("!'150M4TA!4D4M0EE412`@0TA!4B@Q*2!$
M148H1T543U!4*2!03U,H,BD@24Y)5"A8)S`P)RD[#0H@("`@1$-,($1$("!'
M150M1$%402U"651%("`@0TA!4B@Q*2!$148H1T543U!4*2!03U,H,RD@24Y)
M5"A8)S`P)RD[#0H@("`@1$-,($1$("!'150M1$5624-%+4)95$4@0TA!4B@Q
M*2!$148H1T543U!4*2!03U,H-"D@24Y)5"A8)S`Q)RD[#0H-"D1#3"!34$-0
M5%(@+DY53$P[#0I$0TP@3TP@1T54("`H+E5&0T(L("Y'151/4%0L("Y.54Q,
M*3L-"D1#3"!/3"!/4$5.("@N549#0BD[#0I$0TP@3TP@0TQ/4T4H+E5&0T(I
M.PT*#0I$0TP@4U!#($E.0E5&($)!4R@N24Y"548I.PT*("`@($1#3"!$1"!)
M3D)51BU$051%($-(05(H,3(I($1%1BA)3D)51BD@4$]3*"`Q*3L-"B`@("!$
M0TP@1$0@24Y"548M3$E.12!#2$%2*#@P*2!$148H24Y"548I(%!/4R@Q,RD[
M#0H@("`@("`@($1#3"!$1"!)3D)51BU+15E73U)$($-(05(H(#DI($1%1BA)
M3D)51BU,24Y%*2!03U,H(#$I.PT*("`@("`@("!$0TP@1$0@24Y"548M3D57
M34)2("!#2$%2*#$P*2!$148H24Y"548M3$E.12D@4$]3*#$P*3L-"@T*1$-,
M(%-00U!44B`N4T]54D-%.PT*1$-,($1$($Q)3D4H,3`P,#`I($-(05(H.#`I
M($%55$\[#0I$0TP@1$0@3$E.12U.0E(@0DE.*#0I.PT*1$-,($1$(%)%040M
M3D)2($))3B@T*3L-"D1#3"!$1"!3059%+4Y"4B!"24XH-"D[#0I$0TP@1$0@
M4TM)4"U.0E(@0DE.*#0I.PT*1$-,($1$($E.0TPM3D)2($))3B@R*3L-"@T*
M1$-,(%-00U!44B`N4TE:12!)3DE4*%-)6D4I.PT*1$-,($1$("`@("`@4TE:
M12!"24XH-"D[#0H-"D1#3"!34$-05%(@+E!'32!)3DE4*%!'32D[#0I$0TP@
M1$0@("`@("!01TT@0TA!4B@R,"D[#0H@("`@1$-,($1$(%!'32U.04U%("!#
M2$%2*#$P*2!$148H4$=-*2!03U,H(#$I.PT*("`@($1#3"!$1"!01TTM3$E"
M("`@0TA!4B@Q,"D@1$5&*%!'32D@4$]3*#$Q*2!)3DE4*"(J0U523$E"(BD[
M#0H-"D1#3"!34$-05%(@+E!'32U415A4($E.250H4$=-+51%6%0I.PT*1$-,
M($1$("`@("`@4$=-+51%6%0@0TA!4B@U,"D@24Y)5"@B("(I.PT*#0I$0TP@
M4U!#4%12("Y01TTM4U)#1B!)3DE4*%!'32U34D-&*3L-"D1#3"!$1"`@("`@
M(%!'32U34D-&($-(05(H,C`I($E.250H(BI.3TY%(BD[#0H-"D1#3"!34$-0
M5%(@+E!'32U34D--($E.250H4$=-+5-20TTI.PT*1$-,($1$("`@("`@4$=-
M+5-20TT@0TA!4B@Q,"D@24Y)5"@B("(I.PT*#0I$0TP@4U!#4%12("Y01TTM
M4U)#1"!)3DE4*%!'32U34D-$*3L-"D1#3"!$1"`@("`@(%!'32U34D-$($-(
M05(H,3,I($E.250H(B`B*3L-"@T*1$-,(%-00U!44B`N4%)41BU.04U%($E.
M250H4%)41BU.04U%*3L-"D1#3"!$1"`@("`@(%!25$8M3D%-12!#2$%2*#(P
M*3L-"B`@("!$0TP@1$0@4%)41BU&24Q%($-(05(H,3`I($1%1BA04E1&+4Y!
M344I(%!/4R@@,2D@24Y)5"@B45-94U!25"`B*3L-"B`@("!$0TP@1$0@4%)4
M1BU,24(@($-(05(H,3`I($1%1BA04E1&+4Y!344I(%!/4R@Q,2D@24Y)5"@B
M*DQ)0DP@("`B*3L-"@T*1$-,(%-00U!44B`N4%)4+5-44E!!1R!)3DE4*%!2
M5"U35%)004<I.PT*1$-,($1$("`@("`@4%)4+5-44E!!1R!"24XH-"D@24Y)
M5"@Q*3L-"@T*1$-,(%-00U!44B`N4$=-+5!50D%55"!)3DE4*%!'32U054)!
M550I.PT*1$-,($1$("`@("`@4$=-+5!50D%55"!#2$%2*#$P*2!)3DE4*"(J
M04Q,(BD[#0H-"D1#3"!34$-05%(@+E!'32U/4%13($E.250H4$=-+4]05%,I
M.PT*1$-,($1$("`@("`@4$=-+4]05%,H,38I($-(05(H,3$I($E.250H(BI2
M15!,04-%("`@(BP@(BI354)35%(@("(L#0H@("`@("`@("`@("`@("`@("`@
M("`@("`B*DY/0TQ24%-302`B+"`B*DY/0TQ24$%302`B+"`B*E-50E-#4B`@
M(BP-"B`@("`@("`@("`@("`@("`@("`@("`@("(J3$E35"`@("`@("(L("(J
M0512("`@("`@("(L("(J6%)%1B`@("`@("(I.PT*#0I$0TP@4U!#4%12("Y.
M0E(M3U!44R!)3DE4*$Y"4BU/4%13*3L-"D1#3"!$1"`@("`@($Y"4BU/4%13
M($))3B@T*3L-"@T*1$-,($],(%%04D-25%!'("@N4T]54D-%+"`N4TE:12P@
M+E!'32P@("`N4$=-+51%6%0L("`N4$=-+5-20T8L#0H@("`@("`@("`@("`@
M("`@("Y01TTM4U)#32P@("`N4$=-+5-20T0L("Y04E1&+4Y!344L("Y04E0M
M4U124$%'+`T*("`@("`@("`@("`@("`@("`N4$=-+5!50D%55"P@+E!'32U/
M4%13+"`N3D)2+4]05%,I($%21SL-"@T*1$-,(%-94U!44B`N45!20U)44$<@
M24Y)5"@B45!20U)44$<B+"!#5%@H(E%365,B*2P@5%E012A01TTI*3L-"@T*
M1$-,($1$($Y"4BU005)-4R!"24XH,BD[#0I$0TP@15A#32`J($580TE$*$@G
M-3`P,2<I($)0*$5/1BD@24U$.PT*#0I$0TP@1$0@4U1!4E0@0TA!4B@X,"D[
M#0H@("`@1$-,($1$("H@("`@("`@("!#2$%2*#$R*2!$148H4U1!4E0I(%!/
M4R@@,2D@24Y)5"@B+RH@24Y#3%5$13H@(BD[#0H@("`@1$-,($1$($Y%5TU"
M4B`@("!#2$%2*#$P*2!$148H4U1!4E0I(%!/4R@Q,RD[#0H@("`@1$-,($1$
M("H@("`@("`@("!#2$%2*#4X*2!$148H4U1!4E0I(%!/4R@R,RD@24Y)5"@B
M("HO(BD[#0H-"D1#3"!$1"!35$]0("!#2$%2*#@P*3L-"B`@("!$0TP@1$0@
M*B!#2$%2*#@P*2!$148H4U1/4"D@4$]3*#$I($E.250H(B\J($5.1"!)3D-,
M541%("HO(BD[#0H-"B\J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ+PT*#0I%3E1262`J
M("@J14Y44EDI($585#L-"B`@("!#4%E.5B`@("`@("`@3$E.12U.0E(L(#$[
M#0H@("`@0U!93E8@("`@("`@($E.0TPM3D)2+"`P.PT*("`@($-064Y6("`@
M("`@("!32TE0+4Y"4BP@,#L-"@T*("`@($-064)74"`@("`@("Y.54Q,+"`J
M.PT*("`@($-064Y6("`@("`@("!.0E(M3U!44RP@(#8[("\J(%E%4SH@*DQ)
M4U0[($Y/.B`J0512+"`J6%)%1B`J+PT*("`@(%-44$Q,14X@("`@("!.0E(M
M4$%235,[#0H@("`@0TU03E8H0BD@("`@($Y"4BU005)-4RP@,R].15$H4%)%
M4$%212U&24Q%*3L-"B`@("!#35!"3$$H0BD@("`@1$54+"`\,3!\*D1%5$%)
M3"`@(#XO15$H6453+41%5$%)3"D[#0H@("`@0TU00DQ!*$(I("`@($1%5"P@
M/#$P?"I.3TQ)4U0@("`^+T51*$Y/+4Q)4U0I.PT*("`@($(@("`@("`@("`@
M("!04D5005)%+49)3$4[#0I915,M1$5404E,.B`@("`@($-064Y6*$(I($Y"
M4BU/4%13+"`X+TY.04XH4%)%4$%212U&24Q%*3L-"DY/+4Q)4U0Z("`@("`@
M("`@0U!93E8H0BD@3D)2+4]05%,L(#4O3DY!3BA04D5005)%+49)3$4I.PT*
M#0I04D5005)%+49)3$4Z#0H@("`@0U!90DQ!4"`@("`@($9)3$4L(")134E3
M4D,B+"`B("([#0H@("`@0TU03E8H0BD@("`@($Y"4BU005)-4RP@,2`O15$H
M4T54+4U%34)%4BD[#0H@("`@0U!90DQ!("`@("`@($9)3$4L($9)3#L-"E-%
M5"U-14U"15(Z#0H@("`@0U!90DQ!("`@("`@($U%34)%4BP@34)2.PT*("`@
M($-064),02`@("`@("!01TTM3D%-12P@34)2.PT*3U!%3BU&24Q%.@T*("`@
M($-064Y6("`@("`@("!214%$+4Y"4BP@,#L-"B`@("!#04Q,6"`@("`@("`N
M4T505"@Q,BDL($]014XL("H[#0H@("`@041$4U!0("`@("`@+D1-1$56+"`N
M3T10+"!$158M3T9&4T54.PT*#0I.15A4+5-/55)#12U214-/4D0Z#0H@("`@
M0T%,3%@@("`@("`@+E-%4%0H1$TM1T54*2P@1T54+"`J.PT*("`@($)22R`B
M,2([#0H@("`@041$3BA3*2`@("`@(%)%040M3D)2+"`Q.PT*("`@(%-50DXH
M4T(I("`@("!32TE0+4Y"4BP@,2].3D5'*$Y%6%0M4T]54D-%+5)%0T]21"D[
M#0H@("`@0TU00DQ!*$(I("`@($E.0E5&+4M%65=/4D0L("(E24Y#3%5$12`B
M+T51*$E.0TQ51$4M345-0D52*3L-"B`@("!#4%E"3$$@("`@("`@3$E.12A,
M24Y%+4Y"4BDL($E.0E5&+4Q)3D4[#0H@("`@041$3BA3*2`@("`@($Q)3D4M
M3D)2+"`Q.PT*("`@($(@("`@("`@("`@("!.15A4+5-/55)#12U214-/4D0[
M#0H-"D5/1CH-"B`@("!#04Q,6"`@("`@("`N4T505"@Q,2DL($-,3U-%+"`J
M.PT*("`@($--4$Y6*$(I("`@("!)3D-,+4Y"4BP@,"](22A%3D0M24Y#3%5$
M12D[#0H@("`@0U!90DQ!4"`@("`@($Q)3D4H3$E.12U.0E(I+"`\,C-\+RHG
M+RHG+RHB+RHB*B\[(%!%3D0[.SL^+"`B("([#0H@("`@355,5"`@("`@("`@
M(%-)6D4L($Q)3D4M3D)2+"`X,#L-"B`@("!315134%`@("`@("`N4T]54D-%
M+"!,24Y%.PT*("`@($-!3$Q8("`@("`@("Y14%)#4E101RP@45!20U)44$<L
M("H[#0H@("`@4E18("`@("`@("`@("H[#0H-"D524D]2.@T*("`@(%)46"`@
M("`@("`@("`J.PT*#0I)3D-,541%+4U%34)%4CH-"B`@("!!1$1.*%,I("`@
M("`@24Y#3"U.0E(L(#$[#0H@("`@0U!90DQ!("`@("`@($Y%5TU"4BP@24Y"
M548M3D5734)2.PT*("`@($-!3$Q8("`@("`@("Y315!4*#$Q*2P@0TQ/4T4L
M("H[#0H@("`@0U!90DQ!("`@("`@($U%34)%4BP@3D5734)2.PT*("`@($-0
M64),02`@("`@("!,24Y%*$Q)3D4M3D)2*2P@4U1!4E0[#0H@("`@041$3BA3
M*2`@("`@($Q)3D4M3D)2+"`Q.PT*("`@($-064Y6*$(I("`@("!3059%+4Y"
M4BP@4D5!1"U.0E(O3DY!3BA/4$5.+49)3$4I.PT*#0I%3D0M24Y#3%5$13H-
M"B`@("!#4%E"3$$@("`@("`@3$E.12A,24Y%+4Y"4BDL(%-43U`[#0H@("`@
M041$3BA3*2`@("`@($Q)3D4M3D)2+"`Q.PT*("`@(%-50DXH4RD@("`@("!)
M3D-,+4Y"4BP@,3L-"B`@("!#4%E"3$$@("`@("`@345-0D52+"!-0E([#0H@
M("`@0U!93E8H0BD@("`@(%-+25`M3D)2+"!3059%+4Y"4B].3D%.*$]014XM
11DE,12D[#0H-"E!%3D0[#0H=
`
end
+---
| 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
+---