/*********************************************************************
* Copyright (C) 2000 by Progress Software Corporation ("PSC"),       *
* 14 Oak Park, Bedford, MA 01730, and other contributors as listed   *
* below.  All Rights Reserved.                                       *
*                                                                    *
* The Initial Developer of the Original Code is PSC.  The Original   *
* Code is Progress IDE code released to open source December 1, 2000.*
*                                                                    *
* The contents of this file are subject to the Possenet Public       *
* License Version 1.0 (the "License"); you may not use this file     *
* except in compliance with the License.  A copy of the License is   *
* available as of the date of this notice at                         *
* http://www.possenet.org/license.html                               *
*                                                                    *
* Software distributed under the License is distributed on an "AS IS"*
* basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You*
* should refer to the License for the specific language governing    *
* rights and limitations under the License.                          *
*                                                                    *
* Contributors:                                                      *
*                                                                    *
*********************************************************************/
/*----------------------------------------------------------------------------

File: _preproc.p

Description:
    Generates the preprocessor section in a .w file. 

Input Parameters:  
    p_proc-id    = Context id of the current procedure
    p_status     = used to check status of _U records
    skip_queries = IF DEFINED, don't write out queries.

Output Parameters:
   <None>

Author: Wm.T.Wood [from adeuib/_gendefs.p by D. Ross Hunter]

Date Created: January 31, 1997

Last Modifed:
---------------------------------------------------------------------------- */
/*Copyright (c) by PROGRESS SOFTWARE CORPORATION. 1992 - AllRights Reserved. */

DEFINE INPUT PARAMETER p_proc-id AS INTEGER NO-UNDO.
DEFINE INPUT PARAMETER p_status  AS CHAR NO-UNDO.

/* Include files */
{ workshop/objects.i }     /* Universal Widget TEMP-TABLE definition         */
{ workshop/uniwidg.i }     /* Universal Widget TEMP-TABLE definition         */
{ workshop/sharvars.i }    /* Shared variables                               */
{ workshop/code.i }        /* Code Section TEMP-TABLE definition             */
{ workshop/property.i }    /* Object Property TEMP-TABLE                     */
{ workshop/genshar.i}      /* Shared variable definitions                    */

DEFINE SHARED STREAM P_4GL.
DEF BUFFER x_U  FOR _U.

DEF VAR tmp_string     AS CHARACTER  NO-UNDO.

/* ************************************************************************* */
/*                                                                           */
/*                         PREPROCESSOR DEFINITIONS                          */
/*                                                                           */
/* ************************************************************************* */

/* Find the current procedure that we are creating definitions for. */
FIND _P WHERE RECID(_P) eq p_proc-id.

PUT STREAM P_4GL UNFORMATTED
    "&ANALYZE-SUSPEND _PREPROCESSOR-BLOCK "  SKIP.
    
/* Define the frames for this window                                         */
PUT STREAM P_4GL UNFORMATTED SKIP (1)
   "/* ********************  Preprocessor Definitions  ******************** */"
    SKIP (1)
    .

/* Only put out Procedure-Type for .p and .w files (not for .i's) */
IF _P._TYPE ne "" AND LOOKUP("INCLUDE":U, _P._TYPE-LIST) eq 0 
THEN PUT STREAM P_4GL UNFORMATTED 
    "&Scoped-define PROCEDURE-TYPE " _P._TYPE
    SKIP (1).

IF _P._html-file ne "":U 
THEN PUT STREAM P_4GL UNFORMATTED 
    "&Scoped-define WEB-FILE " _P._html-file
    SKIP (1).



/* List the designated Frame-Name and First Browse */
FIND FIRST x_U WHERE x_U._TYPE = "FRAME" 
                 AND x_U._p-recid eq RECID(_P)
                 AND x_U._STATUS BEGINS u_status USE-INDEX _NAME NO-ERROR.
IF AVAILABLE x_U THEN DO:
  ASSIGN frame_name_f  = x_U._NAME.
  PUT STREAM P_4GL UNFORMATTED
    "/* Default preprocessor names. */"  SKIP 
    "&Scoped-define FRAME-NAME " frame_name_f SKIP.
END.

/* Write out QUERY-NAME. This will get written out even if a query
 * exists without a table list 
 */
FIND FIRST x_U WHERE x_U._TYPE = "QUERY" 
                 AND x_U._p-recid eq RECID(_P)
                 AND x_U._STATUS BEGINS u_status USE-INDEX _NAME NO-ERROR.
IF AVAILABLE x_U THEN PUT STREAM P_4GL UNFORMATTED
  "&Scoped-define QUERY-NAME " x_U._NAME SKIP.
PUT STREAM P_4GL UNFORMATTED SKIP(1).

/* Frame, Query & Browser preprocessor variables (eg. User &FIELDS-IN-QUERY) */
FOR EACH _U WHERE _U._p-recid eq RECID(_P)
              AND _U._TYPE eq "QUERY":U
              AND _U._STATUS eq u_status
            USE-INDEX _OUTPUT:
  /* Find the _Q records for use in put_query_preproc_vars.
     (If there are any preprocessor variables.)  */
  FIND _Q WHERE RECID(_Q) eq _U._x-recid.
  /* Only put out the section if it has some tables, or some contained 
     browse frames */
  IF _Q._TblList ne "" OR 
     CAN-FIND (FIRST _code WHERE _code._l-recid eq RECID(_U) 
                             AND _code._name= "OPEN_QUERY":U
                             AND _code._STATUS NE "DELETED":U)
  THEN DO:
    ASSIGN tmp_string = "/* Definitions for " + _U._TYPE + " ":U + _U._NAME
           tmp_string = tmp_string + 
                        FILL(" ":U,MAXIMUM(1,72 - LENGTH(tmp_string,"RAW":U))) +
                        "*/".
    PUT STREAM P_4GL UNFORMATTED SKIP tmp_string SKIP.
    RUN put_query_preproc_vars.
  END. 
END.

/* Window preprocessor variables (eg. User &LIST-1) */
IF CAN-FIND (FIRST _U WHERE _U._p-recid eq p_proc-id)
THEN RUN put_win_preproc_vars.

/* Close the section. */
PUT STREAM P_4GL UNFORMATTED  "&ANALYZE-RESUME" SKIP (2). 

/* * * * * * * * * * * * * * Internal Procedures * * * * * * * * * * * * * * */

/* Build a simple list of tables from a 4gl query */
PROCEDURE build_table_list:
  DEFINE INPUT  PARAMETER iquery    AS CHARACTER     NO-UNDO.
  DEFINE INPUT  PARAMETER delmtr    AS CHARACTER     NO-UNDO.
  DEFINE INPUT  PARAMETER qualify   AS LOGICAL       NO-UNDO.
  DEFINE OUTPUT PARAMETER otbls     AS CHARACTER     NO-UNDO.
  
  DEFINE VARIABLE db_name           AS CHARACTER     NO-UNDO.
  DEFINE VARIABLE i                 AS INTEGER       NO-UNDO.
  DEFINE VARIABLE tmptbl            AS CHARACTER     NO-UNDO.
  
  ASSIGN iquery  = REPLACE(REPLACE(REPLACE(TRIM(iquery),CHR(13)," "),
                                   CHR(10), " "), "~~", " ")
         i       = 0
         otbls   = "".
  /* condense spaces */
  DO WHILE otbls NE iquery:
    ASSIGN otbls  = iquery
           iquery = REPLACE(iquery, "  ":U, " ").
  END.
  otbls = "".                     
  DO WHILE i < NUM-ENTRIES(iquery," ":U):
    i = i + 1.
    IF CAN-DO("EACH,FIRST,LAST,CURRENT,NEXT,PREV",ENTRY(i, iquery, " ":U))
    THEN DO: /* Next token is a table name */
      IF (i > 1 AND ENTRY(i - 1, iquery, " ":U) NE "GET":U)
          OR i = 1 THEN DO:  /* GET NEXT or GET PREV is followed by query-name */
        ASSIGN i       = i + 1
               db_name = TRIM(ENTRY(i, iquery, " ":U),",.":U)
               tmptbl  = (IF NUM-ENTRIES(db_name,".":U) = 1 AND qualify
                          THEN ldbname(1) + "." + db_name
                          ELSE db_name). 
        IF LOOKUP(tmptbl,otbls,delmtr) = 0 THEN otbls   = otbls + delmtr + tmptbl.
      END.
    END. /* Next token is a table name */
  END.  /* While i < number of entries */
  ASSIGN otbls = TRIM(otbls,delmtr).
END PROCEDURE. /* build_table_list */
   
/* Put out the query preprocessor variables --
   For each browser, frame (or dialog-box) write:
	 Scope-define FIELDS-IN-QUERY-NAME <some vars>
	 Scope-define OPEN-BROWSERS-IN-QUERY-NAME queries
	 Scope-define OPEN-QUERY-NAME query
	 Scope-define FIRST-TABLE-IN-QUERY-NAME <some tables>
	 Scope-define TABLES-IN-QUERY-NAME <some tables>
   The current _U and _C records point to the current frame.
*/
PROCEDURE put_query_preproc_vars:
  DEFINE VAR tables_in_query  AS CHARACTER NO-UNDO.
  DEFINE VAR enabled-tables   AS CHARACTER NO-UNDO.
  DEFINE VAR tmp_cnt          AS INTEGER   NO-UNDO.
  DEFINE VAR tmp_cnt2         AS INTEGER   NO-UNDO.  
  DEFINE VAR tmp_code         AS CHARACTER NO-UNDO.
  DEFINE VAR tmp_code2        AS CHARACTER NO-UNDO.
  DEFINE VAR tmp_line         AS CHARACTER NO-UNDO.
  DEFINE VAR tmp_line2        AS CHARACTER NO-UNDO.
  DEFINE VAR tmp_item         AS CHARACTER NO-UNDO.
  DEFINE VAR cur-ent          AS CHARACTER NO-UNDO.
  DEFINE VAR db_name          AS CHARACTER NO-UNDO.
  DEFINE VAR TuneOpts         AS CHARACTER NO-UNDO.
  DEFINE VAR i                AS INTEGER   NO-UNDO.
  DEFINE VAR j                AS INTEGER   NO-UNDO.
  DEFINE VAR jj               AS INTEGER   NO-UNDO.
  DEFINE VAR n-ent            AS INTEGER   NO-UNDO.
  DEFINE VAR per-pos          AS INTEGER   NO-UNDO.
  DEFINE VAR qt               AS CHARACTER NO-UNDO.
  DEFINE VAR tc               AS CHARACTER NO-UNDO.
  DEFINE VAR token            AS CHARACTER NO-UNDO.

  DEFINE BUFFER ipU for _U.
  DEFINE BUFFER ipQ for _Q.
  
  /* Create a comma-delimeted list of tables in the default query (based on
     _C._TblList which has the form "db.table,db.table2 OF db.table,db.table2
     WHERE db.table etc).  So we want only the first ENTRY of each element
     of the list. */
     
  /* First see if the query is freeform.  If so use the _code record to determine
     the tables in the query, otherwise use _Q._TblList                       */
  FIND _code WHERE _code._l-recid = RECID(_U) 
               AND _code._name = "OPEN_QUERY":U NO-ERROR.
  IF AVAILABLE _code THEN DO:     
    /* Assume that a freefrom query is, at most, one code-text section. */
    FIND _code-text WHERE RECID(_code-text) eq _code._text-id.
    RUN build_table_list (INPUT _code-text._text, INPUT " ":U, INPUT NO,
                          OUTPUT tables_in_query).
  END.
  ELSE tables_in_query = _Q._TblList.
  DO i = 1 TO NUM-ENTRIES(tables_in_query):
     ENTRY(i,tables_in_query) = ENTRY (1, TRIM (ENTRY (i,tables_in_query)), " ").
  END.
  
  /* Now put out the Open Query and related TABLE  names (if there is one) */
  FIND _code WHERE _code._l-recid = RECID(_U)
               AND _code._name = "OPEN_QUERY":U NO-ERROR.
  IF AVAILABLE _code THEN DO:
    FIND _code-text WHERE RECID(_code-text) eq _code._text-id.
    PUT STREAM P_4GL UNFORMATTED 
       "&Scoped-define SELF-NAME " + _U._NAME SKIP.
    ASSIGN tmp_item = RIGHT-TRIM(_code-text._text).
    DO i = 1 TO NUM-ENTRIES(tmp_item,CHR(10)):
      /* Remove white space at end of each line */
      ENTRY(i,tmp_item,CHR(10)) = RIGHT-TRIM(ENTRY(i,tmp_item,CHR(10))).
    END.
    ASSIGN _code-text._text = tmp_item
           tmp_item    = REPLACE(REPLACE(RIGHT-TRIM(tmp_item,".:":U),CHR(10)," ":U),
                              ",":U,", ~~" + CHR(10) + FILL(" ":U,6)).
    /* IF we had a freeform qury (from _code) then load _Q._TblList FROM tmp_item */
    run build_table_list (INPUT tmp_item, INPUT ",":U, INPUT NO,
                          OUTPUT _Q._TblList). 
  END. 
  ELSE IF _Q._TblList ne "" THEN DO:
    RUN workshop/_coddflt.p (INPUT "_OPEN-QUERY", INPUT RECID(_U),
                             OUTPUT tmp_item).

    /* If there are any query-tining options prepare them for output */
    IF tmp_item NE "" THEN 
      ASSIGN TuneOpts = REPLACE(REPLACE(TRIM(_Q._TuneOptions),CHR(13),""),
                       CHR(10)," ~~" + CHR(10) + "              ")
             /* Add Tuning Options to the Open Query line. */
             tmp_item = tmp_item +
                  (IF TuneOpts NE "" THEN " QUERY-TUNING (" + TuneOpts + ")"
                                     ELSE "").
  END.      
  
  /* Add a new-line between OPEN QUERY statements. */
  IF tmp_item NE "" THEN 
    PUT STREAM P_4GL UNFORMATTED 
       "&Scoped-define OPEN-QUERY-" + _U._NAME + " " +
       (IF tmp_item BEGINS "OPEN QUERY" THEN
             tmp_item
        ELSE IF (tmp_item BEGINS "FOR EACH":U OR
                 tmp_item BEGINS "FOR FIRST":U OR
                 tmp_item BEGINS "FOR LAST":U) THEN 
             "OPEN QUERY " + _U._NAME + " " + tmp_item
        ELSE IF (tmp_item BEGINS "EACH":U OR
                 tmp_item BEGINS "FIRST":U OR
                 tmp_item BEGINS "LAST":U) THEN 
             "OPEN QUERY " + _U._NAME
             + (IF LOOKUP ("Preselect":U, _Q._OptionList, " ":U) eq 0
                THEN " FOR ":U ELSE " PRESELECT ":U )
             + tmp_item
        ELSE tmp_item) + "." SKIP.
  
  /* Now put the TABLES-IN-QUERY.  */
  RUN put_tbllist (_Q._TblList, 
                   FALSE, /* Not SHARED */
		        "TABLES-IN-QUERY-" + _U._NAME,
		        "&1-TABLE-IN-QUERY-" + _U._NAME, 
		        1,  /* Only put the first table. */
		        " " /* Space delimited */
		        ).
		     
  /* Skip a line before next section */
  PUT STREAM P_4GL UNFORMATTED SKIP(1).
END. /* put_query_preproc_vars */

/* put_tbllist: Put out the contents of pc_TblList variable.  Note that the
   list can beof the form
       sports.Customer,sports.Order OF sports.Customer.
   A bunch of preprocessor variables are created:
       p_tables_var -- all tables
       p_ith_var -- ith table in the list. (up to pi_max)
            This variable has the form "&1-ENABLED-TABLE".  The &1 is replaced with
            FIRST, SECOND, THIRD (up to 3 variables).
   Note:
       pl_shared -- the tables are shared, so replace "." with "_"
		    [i.e. sports.customer becomes buffer sports_customer]
*/
PROCEDURE put_tbllist:
  define input parameter pc_tbllist as char no-undo.
  define input parameter pl_shared as logical no-undo.
  define input parameter p_table_var as char no-undo.
  define input parameter p_ith_var as char no-undo.
  define input parameter p_imax as integer no-undo.
  define input parameter p_delim as char no-undo.
  
  DEFINE VAR cnt       AS INTEGER NO-UNDO.
  DEFINE VAR i         AS INTEGER NO-UNDO.
  DEFINE VAR tmp_code  AS CHAR NO-UNDO.
  DEFINE VAR more_code AS CHAR NO-UNDO.
  DEFINE VAR tmp_item  AS CHAR NO-UNDO.

  /* Do we need this section at all */
  cnt = NUM-ENTRIES(pc_TblList).
  IF cnt > 0 THEN DO:    
    /* we only support up to 3 items so far. */
    IF p_imax > 3 THEN p_imax = 3.                         
    tmp_code = "&Scoped-define " + p_table_var + " ".
    DO i = 1 TO cnt:
      tmp_item = ENTRY (1, TRIM (ENTRY (i,pc_TblList)), " ").
      IF NUM-ENTRIES(tmp_item,".") > 1 AND _suppress_dbname 
      THEN tmp_item = ENTRY(2,tmp_item,".").
      IF pl_shared THEN DO:
	IF _suppress_dbname THEN tmp_item = tmp_item + "_".
			    ELSE tmp_item = REPLACE(tmp_item,".","_").
      END.
      IF i <= p_imax THEN
	more_code = more_code 
	    + "&Scoped-define " 
	    + SUBSTITUTE(p_ith_var, ENTRY(i,
	        "FIRST,SECOND,THIRD,FOURTH,FIFTH,SIXTH,SEVENTH,EIGHTH,NINTH,TENTH":U)) + " " 
	    + tmp_item
	    + CHR(10).
      IF LENGTH(tmp_code + tmp_item, "raw":U) > 75 THEN DO:
	PUT STREAM P_4GL UNFORMATTED tmp_code "~~" SKIP.
	tmp_code = "".
      END.
      tmp_code = tmp_code + tmp_item + (IF i < cnt THEN p_delim  ELSE "").
    END.
    /* Finish putting out the line. */
    IF tmp_code ne "" THEN PUT STREAM P_4GL UNFORMATTED tmp_code SKIP.    
    /* Put out the additional code for NTH-enabled-table. */
    IF more_code ne "" THEN PUT STREAM P_4GL UNFORMATTED more_code.    
  END.
END PROCEDURE.

/* Put out the window preprocessor variables --
   For each window (or dialog-box) write:
	 Scoped-define ENABLED-FIELDS    <some db-fields>
	 Scoped-define ENABLED-OBJECTS   <some non-db objects>
	 Scoped-define DISPLAYED-FIELDS  <some db-fields>
	 Scoped-define DISPLAYED-OBJECTS <some non-db objects>
	 Scoped-define DISPLAY <some vars>
	 Scoped-define LIST-1  <some vars>
	 Scoped-define LIST-2  <some vars>
	 Scoped-define LIST-3  <some vars>
  _h_win points to the current window/dialog-box.
*/
PROCEDURE put_win_preproc_vars:
  &IF {&MaxUserLists} ne 6 &THEN
  &MESSAGE [_gen4gl.p] *** FIX NOW *** User-List not being generated correctly (wood)
  &ENDIF   
  &Scope MaxLists 10
  /*  The extent of all these arrays should be MaxUserLists + 4  */
  DEFINE VAR tmp_code       AS CHAR    NO-UNDO EXTENT {&MaxLists}.
  DEFINE VAR tmp_line       AS CHAR    NO-UNDO EXTENT {&MaxLists}.
  DEFINE VAR enabled-tables AS CHAR    NO-UNDO.
  DEFINE VAR emptyList      AS LOGICAL INITIAL YES NO-UNDO EXTENT {&MaxLists}.
  DEFINE VAR frm-recid      AS RECID   NO-UNDO.
  DEFINE VAR name           AS CHAR    NO-UNDO.
  DEFINE VAR add2list       AS LOGICAL NO-UNDO.
  DEFINE VAR i              AS INTEGER NO-UNDO.
  DEFINE VAR list-cnt       AS INTEGER NO-UNDO.
  DEFINE VAR tblname        AS CHAR    NO-UNDO.
  DEFINE VAR widg2display   AS CHAR    NO-UNDO.
  DEFINE VAR widg2enable    AS CHAR    NO-UNDO.

  DEFINE BUFFER ipU for _U.

  /* Find the RECID of the first frame */
  IF frame_name_f ne "" THEN DO:
    FIND ipU WHERE ipU._NAME eq frame_name_f 
	         AND ipU._TYPE eq "FRAME":U
	         AND ipU._P-recid eq p_proc-id
	         AND ipU._STATUS BEGINS u_status.
    frm-recid = RECID(ipU).
  END.
  
  /* Find the widgets that can be ENABLEd or DISPLAYed (i.e. that have these on their
     property sheet */
  FIND _prop WHERE _prop._NAME eq "DISPLAY" NO-ERROR.
  IF NOT AVAILABLE _prop THEN RETURN.  /* Called from Freeze frame */
  widg2display = _prop._WIDGETS.
  FIND _prop WHERE _prop._NAME eq "ENABLE".
  widg2enable = _prop._WIDGETS.
  
  /* Create an alphabetic list of variables in each of the user defined
     lists of variables */ 
  DO i = 1 TO {&MaxUserLists}:
    tmp_line[i] = "&Scoped-define " + ENTRY(i, _P._LISTS) + " ".
  END.
  ASSIGN tmp_line[{&MaxUserLists} + 1] = "&Scoped-Define ENABLED-FIELDS "
         tmp_line[{&MaxUserLists} + 2] = "&Scoped-Define ENABLED-OBJECTS "
         tmp_line[{&MaxUserLists} + 3] = "&Scoped-Define DISPLAYED-FIELDS "
         tmp_line[{&MaxUserLists} + 4] = "&Scoped-Define DISPLAYED-OBJECTS "
         .
 
  /* If there is no frame, then don't bother with Enabled/Displayed Fields and
     Objects */
  list-cnt =  (IF frame_name_f ne "" THEN {&MaxLists} ELSE {&MaxUserLists}).

  /* Look for all variables in the window that have the list checked. */
  FOR EACH ipU WHERE ipU._STATUS ne "DELETED":U 
                 AND ipU._P-recid eq p_proc-id
                  BY ipU._NAME:
    name = { workshop/name_u.i &U_BUFFER = "ipU" } .
    DO i = 1 TO list-cnt:
      /* Add the variable to the line IFF it has LIST-i checked, or if it
	 is in the first-frame, and has ENABLE or DISPLAY, and the widget is
	 the right "type". */
      IF i <= {&MaxUserLists} 
      THEN add2list = ipU._User-List[i].
      ELSE IF i eq {&MaxUserLists} + 1 THEN
	add2list = (ipU._parent-recid eq frm-recid) AND 
		     ipU._ENABLE AND (ipU._DBNAME ne ?) AND
		     CAN-DO(widg2enable, ipU._TYPE).
      ELSE IF i eq {&MaxUserLists} + 2 THEN
	add2list = (ipU._parent-recid eq frm-recid) AND 
		     ipU._ENABLE AND (ipU._DBNAME eq ?) AND
		     CAN-DO(widg2enable, ipU._TYPE).
      ELSE IF i eq {&MaxUserLists} + 3 THEN
	add2list = (ipU._parent-recid eq frm-recid) AND  
		     ipU._DISPLAY AND (ipU._DBNAME ne ?) AND
		     CAN-DO(widg2enable, ipU._TYPE).
      ELSE 
	add2list = (ipU._parent-recid eq frm-recid) AND 
		   ipU._DISPLAY AND (ipU._DBNAME eq ?) AND
		   CAN-DO(widg2display, ipU._TYPE).
      IF add2list THEN DO:
	emptyList[i] = NO.
	/* Add the name to the existing line (unless that line is full,
	   in which case, skip to the next line */             
        IF LENGTH(tmp_line [i] + name, "CHARACTER":U) > 75 THEN DO:
	  tmp_code[i] = tmp_code[i] + tmp_line[i] + "~~" + CHR(10).
	  tmp_line[i] = "".
	END.
	tmp_line[i] = tmp_line[i] + name + " ".

	IF i = {&MaxUserLists} + 1 AND NUM-ENTRIES(name,".":U) > 1 THEN
        DO:  /* Add to the ENABLED-TABLES list */
	  tblname = ENTRY(1,name,".":U) +
	              (IF NUM-ENTRIES(name,".":U) = 3 THEN
	                ".":U + ENTRY(2,name,".":U) ELSE "":U).

	  IF enabled-tables = "" THEN enabled-tables = tblname.
	  ELSE IF NOT CAN-DO(enabled-tables, tblname) THEN
	    enabled-tables = enabled-tables + ",":U + tblname.
	END.  /* populate enabled-tables */
      END. /* IF in UserList */
    END. /* DO... */
  END. /* FOR EACH ipU */ 
  
  /* Add any remaining line into the code, and output it. */
  DO i = 1 TO {&MaxLists}:
    IF tmp_line[i] ne "" THEN tmp_code[i] = tmp_code[i] + tmp_line[i].
  END.
  
  /* Write Standard Lists - Note: there is no ENABLE or DISABLE if there
     is no frame */
  IF frame_name_f ne "" AND ((emptyList[{&MaxUserLists} + 1] eq NO) OR 
			    (emptyList[{&MaxUserLists} + 2] eq NO) OR
			    (emptyList[{&MaxUserLists} + 3] eq NO) OR 
			    (emptyList[{&MaxUserLists} + 4] eq NO))
  THEN DO:
    PUT STREAM P_4GL UNFORMATTED SKIP
    "/* Standard List Definitions                                            */"
    SKIP.
    DO i = {&MaxUserLists} + 1 TO {&MaxLists}:
      IF NOT emptyList[i] THEN DO:
        PUT STREAM P_4GL UNFORMATTED tmp_code[i] SKIP.
        IF i = {&MaxUserLists} + 1 THEN DO:
          IF enabled-tables NE ""
          THEN RUN put_tbllist (enabled-tables, FALSE,
                                "ENABLED-TABLES":U, "&1-ENABLED-TABLE", 10, " ":U).
        END.  /* If enabled fields */
      END.  /* IF NOT emptylist */
    END.
    PUT STREAM P_4GL UNFORMATTED SKIP (1).
  END. 
  
  /* Write Custom Lists */ 
  PUT STREAM P_4GL UNFORMATTED SKIP
   "/* Custom List Definitions                                              */"
   SKIP
   "/* " _P._LISTS FILL(" ", 68 - LENGTH(_P._LISTS,"RAW")) " */"
   SKIP.
  DO i = 1 TO {&MaxUserLists}:
    IF NOT emptyList[i] THEN PUT STREAM P_4GL UNFORMATTED tmp_code[i] SKIP.
  END.
  
END PROCEDURE. /* put_win_preproc_vars */