midrange.com code scratchpad |
Name:
Issue with embedded lists in a command
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
01/09/2013 04:39:04 pm
|
IP:
Logged
|
|
Description:
Where the issue comes in is when I define the code and message as lists. There can be up to two codes and there could be up to three message lines for each code. When I specify the code with a max value of two (MAX(2)) and the message with a max value of three (MAX(3)) the command will not compile and I get the error shown here.
CPD0258 30 More than three levels of nesting specified for keyword ENRCODE.
|
Code:
- CMD PROMPT('Billing Statement Insert Setup') TEXT('Billing +
- statement insert setup') ALLOW(*INTERACT) MODE(*ALL)
-
- PARM KWD(ENRCODE) TYPE(ENRGROUP) MAX(2) +
- PROMPT('ENR code')
- ENRGROUP: ELEM TYPE(*CHAR) LEN(1) MIN(1) +
- PROMPT('Code')
- ELEM TYPE(*DATE) MIN(1) PROMPT('Start date')
- ELEM TYPE(*DATE) MIN(1) PROMPT('End date')
- ELEM TYPE(ENRMSG) MAX(3) PROMPT('Message text')
- ENRMSG: ELEM TYPE(*CHAR) MIN(1) LEN(80) PROMPT('Message text')
- ELEM TYPE(*CHAR) MIN(1) LEN(6) PROMPT('Configuration text')
- ELEM TYPE(*CHAR) MIN(1) LEN(2) PROMPT('Size text')
-
- PARM KWD(IMPCODE) TYPE(IMPGROUP) MAX(2) PROMPT('IMP code')
- IMPGROUP: ELEM TYPE(*CHAR) LEN(1) MIN(1) CASE(*MONO) +
- CHOICEPGM(*NONE) PROMPT('Code')
- ELEM TYPE(*DATE) MIN(1) PROMPT('Start date')
- ELEM TYPE(*DATE) MIN(1) PROMPT('End date')
-
- PARM KWD(INSCODE) TYPE(INSGROUP) MAX(4) PROMPT('INS code')
- INSGROUP: ELEM TYPE(*CHAR) LEN(1) MIN(1) CASE(*MONO) +
- CHOICEPGM(*NONE) PROMPT('Code')
- ELEM TYPE(*DATE) MIN(1) PROMPT('Start date')
- ELEM TYPE(*DATE) MIN(1) PROMPT('End date')
|
|
|