/********************************************************************/ 
     /********************************************************************/ 
     /*                                                                  */ 
     /*     Program Name: CL03                                           */ 
     /*                                                                  */ 
     /*     Programming Language: CL                                     */ 
     /*                                                                  */ 
     /*     Description: Main driver program for initial version of      */ 
     /*                  MI program MICRTPG.  This program creates a     */ 
     /*                  *USRSPC, calls CL04 to load MI source from      */ 
     /*                  a *SRC physical file into the *USRSPC, and      */ 
     /*                  then calls MICRTPG to create MI programs.       */ 
     /*                                                                  */ 
     /*     Header Files Included: None                                  */ 
     /*                                                                  */ 
     /*                                                                  */ 
     /********************************************************************/ 
                  PGM        PARM(&FILE &MBR) 
                  DCL        VAR(&FILE) TYPE(*CHAR) LEN(10) 
                  DCL        VAR(&MBR) TYPE(*CHAR) LEN(10) 
                  DCL        VAR(&SPCNAM) TYPE(*CHAR) LEN(20) + 
                               VALUE('          *CURLIB   ') 
                  DCL        VAR(&SPCEXTATR) TYPE(*CHAR) LEN(10) VALUE(' ') 
                  DCL        VAR(&SPCSIZ) TYPE(*CHAR) LEN(4) + 
                               VALUE(X'00010000') 
                  DCL        VAR(&SPCINTVAL) TYPE(*CHAR) LEN(1) VALUE(X'00') 
                  DCL        VAR(&SPCSPCAUT) TYPE(*CHAR) LEN(10) + 
                               VALUE('*ALL') 
                  DCL        VAR(&SPCTXTDSC) TYPE(*CHAR) LEN(50) VALUE(' ') 
                  DCL        VAR(&SPCRPLOPT) TYPE(*CHAR) LEN(10) + 
                               VALUE('*YES') 
                  DCL        VAR(&ERRCOD) TYPE(*CHAR) LEN(4) + 
                               VALUE(X'00000000') 
                  DCL        VAR(&SPCDMN) TYPE(*CHAR) LEN(10) VALUE('*USER') 
                  DCL        VAR(&BINOFFSET) TYPE(*CHAR) LEN(4) + 
                               VALUE(X'00000001') 
                  CHGVAR     VAR(%SST(&SPCNAM 1 10)) VALUE(&MBR) 
                  CALL       PGM(QUSCRTUS) PARM(&SPCNAM &SPCEXTATR + 
                               &SPCSIZ &SPCINTVAL &SPCSPCAUT &SPCTXTDSC + 
                               &SPCRPLOPT &ERRCOD &SPCDMN) 
                  OVRDBF     FILE(MISRC) TOFILE(&FILE) MBR(&MBR) 
                  CALL       PGM(CL04) PARM(&MBR &BINOFFSET) 
                  CALL       PGM(MICRTPG) PARM(&MBR &BINOFFSET) 
                  ENDPGM