The GENERATE tag provides direct formatting
for )BODY and )AREA panel sections.
Syntax
![Read syntax diagram](./c.gif)
>>-<GENERATE>--+---------------------+--</GENERATE>------------><
| .-NO--. |
'-SUBSTITUTE=-+-YES-+-'
Parameters
- SUBSTITUTE=NO |
YES
- The
SUBSTITUTE attribute specifies whether variable substitution is attempted
within the pre-formatted panel text.
Comments
The
GENERATE tag is used to add pre-formatted displayable panel contents
into the )BODY or )AREA panel sections. These contents can contain
any valid displayable information. It is the panel developer's responsibility
to provide valid displayable data.
The pre-formatted information
is coded within a nested SOURCE tag. The SOURCE tag TYPE attribute
is automatically determined based on the position of the GENERATE
tag within the DTL source file. When panel attributes are required,
the ATTR tag can be used to define the necessary )ATTR section entries.
Restrictions
- The GENERATE tag requires an end tag.
- You must code the GENERATE tag within an AREA, HELP or PANEL tag
definition.
Examples
Here
is markup that shows contains a GENERATE tag with nested ATTR and
SOURCE tags. Figure 1 shows the generated panel
file.
<!DOCTYPE DM SYSTEM>
<PANEL NAME=* KEYLIST=keylxmp applid=isr window=no>
Generate Tag Example
<CMDAREA>
<pnlinst compact>
Sample panel source to illustrate the GENERATE tag.
<divider type=solid gap=no>
<generate>
<attr attrchar=! type=FP>
<attr attrchar=_ type=NEF>
<attr attrchar=+ type=NT>
<source>
! Project ===>_PROJECT !
! Group ===>_GROUP1 !===>_GROUP2 !===>_GROUP3 !===>_GROUP4 +
! Type ===>_TYPE !
! Member ===>_MEMBER !
! DS Name ===>_OTHERDSN +
! Volume ===>_VOLUME+
</source>
</generate>
</panel>
Figure 1. Generated panel)PANEL KEYLIST(KEYLXMP,ISR)
)ATTR DEFAULT(""") FORMAT(MIX)
05 TYPE(PT)
06 TYPE(PIN)
09 TYPE(FP)
0A TYPE(NT)
13 TYPE(NEF)
22 TYPE(WASL) SKIP(ON) GE(ON)
! TYPE(FP)
_ TYPE(NEF)
+ TYPE(NT)
)BODY CMD(ZCMD)
Generate Tag Example
Command ===> Z
Sample panel source to illustrate the GENERATE tag.
------------------------------------------------------------------
! Project ===>_PROJECT !
! Group ===>_GROUP1 !===>_GROUP2 !===>_GROUP3 !===>_GROUP4 +
! Type ===>_TYPE !
! Member ===>_MEMBER !
! DS Name ===>_OTHERDSN +
! Volume ===>_VOLUME+
)INIT
.ZVARS = '(ZCMD)'
&ZCMD = ' '
)PROC
)END