RE: An introduction to MI by example II...

[Leif Svalgaard <l.svalgaard@xxxxxxxxxxxxx>]

Thanks again Phil.
One could make the code even shorter by removing unused data declarations.
This also makes it less readable (you often see data declarations written
that way):


> DCL SPCPTR .PARM1 PARM;
> DCL DD PARM1 CHAR(10) BAS(.PARM1);
>     DCL DD PARM-LIB-NAME CHAR(10) DEF(PARM1) POS(1);
> DCL OL PARMS(.PARM1) EXT PARM MIN(1);
> 
> DCL SPCPTR .PROGRAM INIT(PROGRAM);
> DCL DD      PROGRAM CHAR(77) BDRY(16);
>     DCL DD  PGM-BYTES-PRV      BIN(4) DEF(PROGRAM) POS( 1) INIT(77);
>     DCL DD  PGM-LIB-NAME     CHAR(30) DEF(PROGRAM) POS(12);
> 
> DCL SPCPTR .THE-STACK INIT(THE-STACK);
> DCL DD      THE-STACK CHAR(12816) BDRY(16);
>     DCL DD  STK-BYTES-PRV      BIN(4) DEF(THE-STACK) POS( 1);
>     DCL DD  STK-ENTRY(100)  CHAR(128) DEF(THE-STACK) POS(17);
> 
> DCL DD THE-ENTRY CHAR(128) BDRY(16);
>     DCL SYSPTR THE-ENTRY-PGM DEF(THE-ENTRY) POS(33);
> 
> DCL DD CALLING-PGM-NBR BIN(4);
> 
> /*********************************************************************/
> 
> ENTRY * (PARMS) EXT;
>     ADDN       STK-BYTES-PRV, 12800, 16;
>     MATINVS   .THE-STACK, *;
>     SUBN       CALLING-PGM-NBR, STK-NBR-OF-ENTRIES, 1;
>     CPYBWP     THE-ENTRY, STK-ENTRY(CALLING-PGM-NBR);
>     MATPTR    .PROGRAM, THE-ENTRY-PGM; /* CALLER */
>     CPYBLA     PARM-LIB-NAME, PGM-LIB-NAME;
>     RTX        *;
> 
> 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
+---