midrange.com code scratchpad
Name:
Build
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
09/10/2014 07:30:35 pm
IP:
Logged
Description:
Command definition
Code:
  1. /*   *> CRTCMD CMD(&O/&ON) PGM(*LIBL/BUILDRG) -     <* +                        
  2.  *   *>        MODE(*ALL) ALLOW(*ALL) -             <* +                        
  3.  *   *>        HLPPNLGRP(BUILDPG) HLPID(BUILD) -    <* +                        
  4.  *   *>        TEXT(&X)                             <* +                        
  5.  *                                                     */                       
  6.              CMD        PROMPT('Build an object from source')                   
  7.                                                                                 
  8.              PARM       KWD(OBJ) TYPE(FILE1) MIN(1) PROMPT('Object Name')       
  9.                                                                                 
  10.              PARM       KWD(SRCFILE) TYPE(FILE2) PROMPT('Source File')          
  11.                                                                                 
  12.              PARM       KWD(SRCMBR) TYPE(*NAME) DFT(*OBJ) SPCVAL((*OBJ)) +      
  13.                                 PROMPT('Source member') EXPR(*YES)              
  14.                                                                                 
  15.              PARM       KWD(DBGVIEW) TYPE(*CHAR) LEN(7) RSTD(*YES) +            
  16.                                 DFT(*LIST) VALUES(*LIST *SOURCE *STMT +         
  17.                                 *NONE) PROMPT('Debug View') EXPR(*YES)          
  18.                                                                                 
  19.              PARM       KWD(REPLACE) TYPE(*CHAR) LEN(4) RSTD(*YES) +            
  20.                                 DFT(*YES) VALUES(*YES *NO) EXPR(*YES) +         
  21.                                 PROMPT('Replace object')                        
  22.                                                                                 
  23.              PARM       KWD(ALWF9) TYPE(*CHAR) LEN(4) RSTD(*YES) DFT(*NO) +     
  24.                                 VALUES(*YES *NO) EXPR(*YES) PROMPT('Allow +     
  25.                                 F9=Retrieve on commands')                       
  26.                                                                                 
  27.              PARM       KWD(OPTION) TYPE(*CHAR) LEN(10) RSTD(*YES) +            
  28.                                 DFT(*EVENTF) VALUES(*NOEVENTF *EVENTF) +        
  29.                                 EXPR(*YES) PMTCTL(*PMTRQS) +                    
  30.                                 PROMPT('Compiler Options')                      
  31.                                                                                 
  32.              PARM       KWD(USECMS) TYPE(*CHAR) LEN(1) RSTD(*YES) +             
  33.                                 DFT(*YES) SPCVAL((*YES '1') (*NO '0')) +        
  34.                                 PMTCTL(*PMTRQS) PROMPT('Use CMS compiler +      
  35.                                 command')                                       
  36.              PARM       KWD(LIST) TYPE(*CHAR) LEN(1) RSTD(*YES) DFT(*NO) +      
  37.                                 SPCVAL((*YES '1') (*NO '0')) +                  
  38.                                 PMTCTL(*PMTRQS) PROMPT('Generate compile +      
  39.                                 listing')                                       
  40.                                                                                 
  41.                                                                                 
  42.  FILE1:      QUAL       TYPE(*NAME) EXPR(*YES)                                  
  43.              QUAL       TYPE(*NAME) DFT(*CURLIB) EXPR(*YES) +                   
  44.                           SPCVAL((*CURLIB)) PROMPT('Library')                   
  45.                                                                                 
  46.  FILE2:      QUAL       TYPE(*NAME) DFT(QRPGLESRC) EXPR(*YES)                   
  47.              QUAL       TYPE(*NAME) DFT(*LIBL) EXPR(*YES) SPCVAL((*LIBL) +      
  48.                           (*CURLIB)) PROMPT('Library')                          
  49.                                                                                  
© 2004-2019 by midrange.com generated in 0.004s valid xhtml & css