CMD   PROMPT('Compress/Decompress File')
 PARM  KWD(FCT) TYPE(*CHAR) LEN(1) PROMPT('(C)ompress/(D)ecompress')
 PARM  KWD(INFILE)  TYPE(*CHAR) LEN(10) PROMPT('In File')
 PARM  KWD(INLIB)   TYPE(*CHAR) LEN(10) PROMPT('In Library')
 PARM  KWD(OUTFILE) TYPE(*CHAR) LEN(10) PROMPT('Out File')
 PARM  KWD(OUTLIB)  TYPE(*CHAR) LEN(10) PROMPT('Out Library')