BBC.SHARED.JOBI.CONVERT-PROMPTSET-FIELDS

Description

Property	Value
Type	JOBI
Folder	PACKAGES/BEST-BLU/BBC.SHARED/SOURCE
Title	Convert promptset fields value to a "machine value"
Archive Key 1	-
Archive Key 2	-
Created	Andreas Büsching am: 2022-06-01 05:27:53
Last Modified	Andreas Büsching am: 2025-07-04 16:53:16 6 x
Last Used	-

:set &PRPT_LIST_HND# = prep_process_var("BBC.SHARED.VARA@SEC_SQLI.GET-PROMPTSETS-OF-OBJECT")

:process &PRPT_LIST_HND#

:  set &PromptSet_Name# = get_process_line(&PRPT_LIST_HND#,1)

:  print " --- check Parameter for Promptset:&PromptSet_Name#"

:  set &PRPT_HND# = prep_process_promptset (&PromptSet_Name#)

:  process &PRPT_HND#

:   set &prompt_Variable_Name# = get_process_line(&PRPT_HND#,1)

:   set &prompt_Variable_Type# = get_process_line(&PRPT_HND#,4)

:   if &prompt_Variable_Type# = 'label'

:   else ! of &prompt_Variable_Type# = 'label'

:     set &prompt_VALUE# = get_script_var(&prompt_Variable_Name#)

:     set &is_to_convert# = str_match(&prompt_Variable_Name#,"V$*")

:     if &is_to_convert# = 'Y'

:        set &var_name# = substr( &prompt_Variable_Name#,3)

:        set &prompt_VARA_Name# = get_process_line(&PRPT_HND#,5)

:        set &VARA_HND#=prep_process_var(&prompt_VARA_Name#)

:        process &VARA_HND#

:          set &vara_value#  = get_process_line(&VARA_HND#,2)

:          if &vara_value# = &prompt_VALUE#

:            set &vara_key#  = get_process_line(&VARA_HND#,1)

:            if &vara_key# = "<2spaces>"

:              set &vara_key# = "  "

:            endif

:            if &vara_key# = "<space>"

:              set &vara_key# = " "

:            endif

:            print "  generating: C$&var_name# --> &vara_key#"

:            set &temp# = "&vara_key#"

:            publish &temp#, "C$&var_name#", TASK

:        endif

:        endprocess &VARA_HND#

:        close_process &VARA_HND#

:     else

:        print "  do not convert  &prompt_Variable_Name#-->&prompt_VALUE#"

:     endif

:   endif

:  endprocess &PRPT_HND#

:  close_process &PRPT_HND#

:endprocess &PRPT_LIST_HND#

:close_process &PRPT_LIST_HND#