home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / mov2prd.lzh / MOVTOPRD.CMD < prev   
OS/2 REXX Batch file  |  1987-04-17  |  2KB  |  34 lines
  1.  MOV2PROD:   CMD        PROMPT('Move an Object to Production')
  2.  
  3.              /*         Command processing program is CPP4200 */
  4.  
  5.              PARM       KWD(OBJ) TYPE(OBJ) MIN(1) PROMPT('Object +
  6.                           name:')
  7.  OBJ:        QUAL       TYPE(*NAME) MIN(1) EXPR(*YES)
  8.              QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
  9.                           EXPR(*YES) PROMPT('Library name:')
  10.  
  11.  OBJTYPE:    PARM       KWD(OBJTYPE) TYPE(*CHAR) LEN(8) RSTD(*YES) +
  12.                           SPCVAL((*CHTFMT) (*CLS) (*CMD) (*CUD) +
  13.                           (*DEVD) (*DOC) (*DOCL) (*DTAARA) (*DTAQ) +
  14.                           (*EDTD) (*FCT) (*FILE) (*GSS) (*JOBD) +
  15.                           (*JOBQ) (*JRN) (*JRNRCV) (*LIB) (*LIND) +
  16.                           (*MSGF) (*MSGQ) (*OUTQ) (*PGM) (*PRTIMG) +
  17.                           (*SBSD) (*SPADCT) (*SSND) (*TBL) (*USRPRF)) +
  18.                           MIN(1) MAX(1) EXPR(*YES) PROMPT('Object +
  19.                           type:')
  20.  
  21.              PARM       KWD(TOLIB) TYPE(*NAME) MIN(1) EXPR(*YES) +
  22.                           PROMPT('Production library:')
  23.  
  24.              PARM       KWD(OWNER) TYPE(*NAME) DFT(*SAME) +
  25.                           SPCVAL((*SAME)) EXPR(*YES) PROMPT('Owner of +
  26.                           production version:')
  27.              PARM       KWD(REPLACE) TYPE(*LGL) RSTD(*YES) DFT(*NO) +
  28.                           SPCVAL((*YES '1') (*NO '0')) EXPR(*YES) +
  29.                           PROMPT('Replace existing object:')
  30.              PARM       KWD(RTNAUT) TYPE(*LGL) RSTD(*YES) DFT(*YES) +
  31.                           SPCVAL((*YES '1') (*NO '0')) EXPR(*YES) +
  32.                           PROMPT('Retain production authority:')
  33.  
  34.