Minibild erstellen

IMAGEXCMD (CMD)



    /* COPYRIGHT JÜRGEN REULE 2010-2023 */
     
  CMD PROMPT('Minibild erstellen')
     
  PARM KWD(IMAGE) TYPE(*PNAME) LEN(5000) MIN(1) +
      EXPR(*YES) CASE(*MIXED) PROMPT('Bild')
  PARM KWD(FORMAT) TYPE(*CHAR) LEN(4) RSTD(*YES) +
      DFT(JPEG) VALUES(JPEG) EXPR(*YES) +
      PROMPT('Format')
  PARM KWD(SUBMIT) TYPE(*CHAR) LEN(1) RSTD(*YES) +
      DFT(*YES) SPCVAL((*YES '1') (*NO '0')) +
      PROMPT('Job übergeben')

30 ms | Contact | Information | Aibo-Bar © 2005-2024