Skip to end of metadata
Go to start of metadata

You are viewing an old version of this page. View the current version.

Compare with Current View Page History

« Previous Version 2 Current »

This template is handy for TPS to SQL conversions where you are not sure all the fields actually used in the procedure got added to the hot fields.

UP_SQL_ProjectAllFields.tpw
#EXTENSION (SQLProjectALLFieldsBrowse, 'Project all fields in view tables for SQL Browse'),REQ(BrowseBox(ABC))
#!
#ATSTART 
  #FIX(%File,%Primary)
  #INSERT(%SQLProjectALLFields)
  #FOR(%Secondary)
    #FIX(%File,%Secondary)
    #INSERT(%SQLProjectALLFields)
  #ENDFOR
#ENDAT  
#!
#GROUP(%SQLProjectALLFields)
  #FOR(%Field)
    #SET(%ValueConstruct,%Field)
    #INSERT(%CleanDimensions(ABC))
    #IF(~INLIST(%ValueConstruct,%QueueField))
      #ADD(%QueueField,%ValueConstruct)
      #SET(%QueueFieldAssignment,%Field)
      #SET(%QueueFieldComment,'Force all fields')
    #ENDIF
  #ENDFOR 
  • No labels