home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / print.lzh / PRINT.CMD < prev   
OS/2 REXX Batch file  |  1986-06-02  |  2KB  |  35 lines
  1.  PRINT:      CMD        PROMPT('Print a character string')
  2.  
  3.              /*         PRINT  */
  4.              /*         Command Processing Program is CPP1651  */
  5.  
  6.              PARM       KWD(PRTDTA) TYPE(*CHAR) LEN(255) EXPR(*YES) +
  7.                           PROMPT('Print data:')
  8.              PARM       KWD(SPACEA) TYPE(*CHAR) LEN(1) RSTD(*YES) +
  9.                           DFT(1) VALUES(0 1 2 3) EXPR(*YES) +
  10.                           PROMPT('Lines to space after print:')
  11.              PARM       KWD(SPACEB) TYPE(*CHAR) LEN(1) RSTD(*YES) +
  12.                           DFT(0) VALUES(0 1 2 3) EXPR(*YES) +
  13.                           PROMPT('Lines to space before print:')
  14.              PARM       KWD(SKIPA) TYPE(*CHAR) LEN(2) RANGE(01 99) +
  15.                           SPCVAL((*NONE ' ')) FULL(*YES) EXPR(*YES) +
  16.                           PROMPT('Line to skip to after print:')
  17.              PARM       KWD(SKIPB) TYPE(*CHAR) LEN(2) RANGE(01 99) +
  18.                           SPCVAL((*NONE ' ')) FULL(*YES) EXPR(*YES) +
  19.                           PROMPT('Line to skip to before print:')
  20.              PARM       KWD(IGNOVF) TYPE(*LGL) RSTD(*YES) DFT(*NO) +
  21.                           SPCVAL((*YES '1') (*NO '0')) EXPR(*YES) +
  22.                           PROMPT('Ignore overflow:')
  23.              PARM       KWD(HEADING) TYPE(HEADING) DFT(*NO) +
  24.                           SNGVAL((*NO '0')) PROMPT('Heading control:')
  25.  HEADING:    ELEM       TYPE(*LGL) RSTD(*YES) SPCVAL((*YES '1')) +
  26.                           EXPR(*YES) PROMPT('Use this data for +
  27.                           headings:')
  28.              ELEM       TYPE(*LGL) RSTD(*YES) DFT(*ADD) +
  29.                           SPCVAL((*ADD '0') (*REPLACE '1')) +
  30.                           EXPR(*YES) PROMPT('Heading option (*ADD +
  31.                           *REPLACE)')
  32.              PARM       KWD(CLOSE) TYPE(*LGL) RSTD(*YES) DFT(*NO) +
  33.                           SPCVAL((*YES '1') (*NO '0')) PROMPT('Close +
  34.                           printer after printing:')
  35.