compile insert LCPOSITIONS
*
*  WINDOW prompt structure
*  Each prompt will conform to the following structure
*
*
*   prompt            position  required   description
*   ------            --------  --------   -------------------------------------
EQU PNO                 TO 1    ;* Yes     Relative position number.
EQU DICT                TO 2    ;* No      Dictionary field representing prompt.
EQU TYPE                TO 3    ;* Yes     Type of prompt (F=data field, S=symbolic, N=filename, D=dict filename).
EQU FNO                 TO 4    ;* Yes     Dictionary field number (0=key).
EQU D                   TO 5    ;* No      Display label/literal.
EQU DA                  TO 6    ;* No      Display label's video attribute (color). If null, WINDOW will use current system attribute
                                ;*         setting for application window (AW) labels.
EQU DX                  TO 7    ;* Yes     Display label x/column location relative to the upper left corner of window.
EQU DY                  TO 8    ;* Yes     Display label y/row    location relative to upper left corner of window.
EQU VA                  TO 9    ;* No      Prompt value's video attribute (color). If null, WINDOW will use current system attribute
                                ;*         setting for application window (AW) prompts.
EQU VX                  TO 10   ;* Yes     Prompt value x/column location relative to upper left window corner.
EQU VY                  TO 11   ;* Yes     Prompt value y/row location relative to upper left window corner.
EQU VINP                TO 12   ;* No      Prompt value input validation.
EQU VOTP                TO 13   ;* No      Prompt value output format for display.
EQU VJST                TO 14   ;* No      Prompt value justification for display (if null then just = 'L')
EQU VLEN                TO 15   ;* No      Prompt value display length/width.
EQU VDEPTH              TO 16   ;* No      Prompt value display depth for multi-value and text fields with depth.
                                ;*         (0=single value, 1=single line mult-value, 2+=multi-line multi-value).
EQU DFLT                TO 17   ;* No      Prompt value default fill-in value if user has a null entry.
EQU ET                  TO 18   ;* No      Prompt value Entry type. (R=required, P=protected, F=fill, etc.)
EQU JOIN.FILE           TO 19   ;* No      Secondary file source for this prompt/field
EQU JOIN.KEY            TO 20   ;* No      Key used to access JOIN.FILE
EQU JOIN.FIELD          TO 21   ;* No      Field number to retrieve/update in joined record of JOIN.FILE
EQU LOCASE              TO 22   ;* No      Permit lower case characters (default = false).
EQU MASK                TO 23   ;* No      Editing mask.
EQU PRE.CODE            TO 24   ;* No      Process to occur prior to user data entry into current prompt.
EQU PRE.COMMAND         TO 25   ;* No
EQU POST.CODE           TO 26   ;* No      Process to occur after the user has entered data into the current prompt.
EQU POST.COMMAND        TO 27   ;* No
EQU OPTIONS.CODE        TO 28   ;* No      Options key code type.
EQU OPTIONS.COMMAND     TO 29   ;* No      Options key command to perform when Options key is pressed.
EQU DEP.MAX             TO 30   ;* No      Maximum depth for associated multi-value prompt sets.
EQU JOIN.DEPENDENTS     TO 31   ;* No      A list of prompts that are dependent on this JOIN key.
EQU PROMPT.TAB          TO 32   ;* No      Tab stop for moving more quickly between prompts.
EQU HELP.CODE           TO 33   ;* No      Detail help for this prompt.  Can take the form of code-vm-command or
                                ;*         a generated number for use with the help file.
EQU SLMV                TO 34   ;* No      Permit a single line multivalue
EQU AMV.GROUP           TO 35   ;* No      Associated multi-value group flag
EQU INVALID.CODE        TO 36   ;* No      Process to occur when data entered is invalid.
EQU INVALID.COMMAND     TO 37   ;* No
EQU CHAR.CNT            TO 38   ;* No      Number of characters entered at a field. Zero
                                ;*         or '' allow 64k to be entered
EQU SCRIBE.CODE         TO 39   ;* No      Process to occur instead of Scribe.
EQU SCRIBE.COMMAND      TO 40   ;* No
EQU TX                  TO 41   ;* No      X/column during Table mode
EQU TLEN                TO 42   ;* No      Length of prompt during Table mode
EQU HELP.COMMAND        TO 43   ;* No      Help catalyst commands where PROMPT.HELP is the catalyst code.
EQU JOIN.DELETE         TO 44   ;* No      Delete joined record from JOIN.FILE if primary record is deleted (yes/no)
EQU JOIN.CHANGE         TO 45   ;* No      If JOIN.KEY is changed, delete previous JOIN.KEY from JOIN.FILE (yes/no)
EQU THEAD               TO 46   ;* No      Table column heading (overrides prompt label)
EQU PREG1               TO 47   ;* No      Prompt register1
EQU PREG2               TO 48   ;* No      Prompt register2
EQU PREG3               TO 49   ;* No      Prompt register3
EQU PREG4               TO 50   ;* No      Prompt register4
EQU PREG5               TO 51   ;* No      Prompt register5
EQU HOMEXY              TO 52   ;* No      Virtual page mark
EQU HIDDEN.LABEL        TO 53   ;* No      Hidden label when only prompt entry is needed (no prompt label shown)
EQU GENERIC.TYPE        TO 54   ;* No      Generic Field Data Type (2.0+)
Equ TBFlag              To 55   ;*         Flag for table browser
Equ MDatafile.NO        To 56   ;* Multiple table supporting value

* Source Date: 07:58:41  05 APR 1993  Build ID: AREV*3.1.46  Level: 3.1