Just guessing from the manual... have you tried )PNTS FIELD(field) VAR(VAR1) VAL(1)
Here's the manual info I'm going from: For point-and-shoot input/output fields, the format is: FIELD(field_name) where: field_name The name of the field on the panel that this statement controls. For point-and-shoot text fields, the format is: FIELD(ZPSxxyyy) where: xx 00 for a point-and-shoot field defined in the )BODY section and 01 to 99 for the number of the scrollable area in which the point-and-shoot text field is defined. Each scrollable area is assigned a sequential number based on its relative position within the panel body. The scrollable area closest to the upper-left corner of the panel body is assigned number 01. Each additional scrollable area, scanning left to right, top to bottom, is assigned the next sequential number. A maximum of 99 scrollable areas in any given panel can contain point- and-shoot text fields. yyy 001 to 999 for the relative number of the point-and-shoot text field within the panel body or within a particular scrollable area. A point-and-shoot text field can wrap around multiple terminal lines in panels that are not displayed in a window. A point-and-shoot text field that logically wraps in a pop-up window requires the beginning of each wrapped line to contain a PS field attribute and an entry must exist in the )PNTS section for each wrapped line. This is also true for panels containing the WINDOW() keyword that are not displayed in a pop-up window. The additional )PNTS section entries should result in the same action as the first line of the wrapped text field. On Fri, 18 Mar 2011 18:26:10 -0400, michealbutz <[email protected]> wrote: >I can't seem to get Point and shoot right > >The attribute field that is defined needs to have PAS(ON) > >So for example > > @ TYPE(INPUT) PAS(ON) COLOR(WHITE) > >The )PNTS section defines the value to be placed in the point and shoot field )BODT > Point and shoot field ==> @field > > >)PNTS > FIELD(ZPS00001) VAR(&VAR1) VAL(1) > > So if the user cursor selects the area where field is located a value of 1 will be >placed variable var1 > >Excepts when I do a say ' var1 = ' var1 var1 value is not 1 > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: GET IBM-MAIN INFO >Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
