Re: [MI400] New to MI, need help please

["Leif Svalgaard" <leif@xxxxxxxx>]

From: Amitava Datta <babuada@xxxxxxxxx>

> I copied the code provided there and compiled and ran
> the code. It generated the CRTMIPGM compiler. But when
> I am trying to compile the MI source code with
> CRTMIPGM it is giving an error.

how did you "copy"? typed it in again? copy/paste? or what?
Check the control block:
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');