CMD PROMPT('Test Viewer-Controller')

PARM KWD(VCID) TYPE(*CHAR) LEN(6) MIN(1) +

PROMPT('ID of View-Controller')

PARM KWD(ONLYREAD) TYPE(*CHAR) LEN(4) RSTD(*YES) +

DFT(*NO) SPCVAL((*) (*YES '1') (*NO '0')) +

CHOICE('*NO, *YES') PROMPT('Only read the +

server')

PARM KWD(INSTRTN) TYPE(*CHAR) LEN(16) +

PROMPT('Instruction to Model') +

PMTCTL(READONLY)

PARM KWD(MESSAGE) TYPE(*CHAR) LEN(80) +

PROMPT('Message to Model') +

PMTCTL(READONLY)

PARM KWD(ONLYWRITE) TYPE(*CHAR) LEN(4) RSTD(*YES) +

DFT(*NO) SPCVAL((*) (*YES '1') (*NO '0')) +

CHOICE('*NO, *YES') PMTCTL(READONLY) +

PROMPT('Only write, dont wait for read')

READONLY: PMTCTL CTL(ONLYREAD) COND((*EQ '0')) NBRTRUE(*EQ 1)