SOURCE (Source)

The SOURCE tag defines ISPF panel logic statements within an application panel.

Syntax


>>-<SOURCE--+-------------------+-->--text--</SOURCE>----------><
            |       .-PROC----. |                       
            '-TYPE=-+-REINIT--+-'                       
                    +-INIT----+                         
                    +-ABCINIT-+                         
                    '-ABCPROC-'

Parameters

TYPE=PROC | REINIT | INIT | ABCINIT | ABCPROC: This attribute specifies the panel section that is updated with the SOURCE tag text.
text: This is the unformatted ISPF panel statement.

Comments

The SOURCE tag defines ISPF panel statements within an application panel.

Lines of text from a SOURCE tag that follows an AREA, CHOICE, DA, DTACOL, DTAFLD, HELP, LSTCOL, LSTFLD, LSTGRP, PANEL, REGION, or SELFLD tag are added to the )INIT, )REINIT, or )PROC panel section when encountered in the DTL source file.

For example, if a SOURCE tag follows the DTAFLD tag, any logic or other entries normally generated by DTAFLD would be completed before the lines within SOURCE are added.

The use of a SOURCE tag within a SELFLD tag results in the placement of the SOURCE tag lines after any logic created by the previous CHOICE tag. Additional )INIT, )REINIT, or )PROC section entries may be added when the end SELFLD tag is processed. You can control the placement of the SOURCE tag entries by nesting the SELFLD tag definition within a DTACOL tag, and placing the SOURCE tag definition either before or after the SELFLD tag definition.

Lines of text from a SOURCE tag within an action bar definition are added to:

)ABCINIT following all other generated statements for that PDC tag.
)ABCPROC before any other generated statements for that PDC tag.

SOURCE tags within an action bar definition must specify the TYPE as ABCINIT or ABCPROC. SOURCE tags that follow the other listed tags cannot specify TYPE as ABCINIT or ABCPROC.

When the SOURCE tag is coded within a GENERATE tag, the TYPE attribute is ignored. TYPE is automatically determined from the placement of the GENERATE tag within the DTL source file.

If the length of any line exceeds the record length of the output panel file, the conversion utility truncates the line and issues a warning message.

Text found between the SOURCE and SOURCE end tags is placed in the specified panel section as coded; that is, no formatting except entity substitution is performed. To refer to an entity within <SOURCE> tag text, the entity name is preceded by a percent (%) instead of an ampersand (&). Using the percent (%) sign avoids conflict with variable names. A valid percent sign can be specified as "%amp;" to avoid an "entity not found" message. For example, you would refer to the TSO command "%xyz" as “%amp;xyz”.

Restrictions

The SOURCE tag requires an end tag.
You must code the SOURCE tag within an ABC, AREA, CHOICE, DA, DTACOL, DTAFLD, GENERATE, HELP, INFO, LSTCOL, LSTFLD, LSTGRP, PANEL, PDC, REGION, or SELFLD tag definition.

Processing

None.

Examples

<!DOCTYPE DM SYSTEM(
  <!entity sampvar1 sysem>
  <!entity sampabc system>)>
&sampvar1;

<PANEL NAME=source1 KEYLIST=keylxmp>Library Card Registration
<AB>
&sampabc;
</AB>
<TOPINST>Type in patron's name and card number (if applicable)
<TOPINST>Then select an action bar choice.
<AREA>
    <DTACOL PMTWIDTH=12 ENTWIDTH=25 DESWIDTH=25 SELWIDTH=25>
    <DTAFLD DATAVAR=curdate USAGE=out ENTWIDTH=8>Date
    <DTAFLD DATAVAR=cardno ENTWIDTH=7>Card No.
      <DTAFLDD>(A 7-digit number)
    <DTAFLD DATAVAR=name>Name
      <DTAFLDD>(Last, First, M.I.)
    <DTAFLD DATAVAR=address>Address
   </DTACOL>
  <DIVIDER>
  <REGION DIR=horiz>
  <SELFLD NAME=cardsel PMTWIDTH=30 SELWIDTH=38>Choose
  one of the following
    <CHOICE CHECKVAR=card MATCH=new>New
    <CHOICE CHECKVAR=card MATCH=renew>Renewal
    <CHOICE CHECKVAR=card MATCH=replace>Replacement
    <SOURCE TYPE=proc>
    if (&cardsel = 1)
      VER (&name,nb)
      VER (&address,nb)
    </SOURCE>
  </SELFLD>
  <SELFLD TYPE=multi PMTWIDTH=30 SELWIDTH=25>Check valid branches
    <CHOICE NAME=north HELP=nthhlp CHECKVAR=nth>North Branch
    <CHOICE NAME=south HELP=sthhlp CHECKVAR=sth>South Branch
    <CHOICE NAME=east HELP=esthlp CHECKVAR=est>East Branch
    <CHOICE NAME=west HELP=wsthlp CHECKVAR=wst>West Branch
  </SELFLD>
  </REGION>
</AREA>
<CMDAREA>Enter a command
</PANEL>