Conference iosg::all-in-1_v30

Just a couple of thoughts ...

Firstly, why don't you include the conditional within the FOR loop,
thus

for subscriber with .orgunit1 nes "MD-ADV" do get oa$merge_line ...

Secondly, i think that the subscriber DSAB is "intelligent", and when
you search on ORGUNIT1 it automatically searches other ORGUNITS, so
you may be hitting some side-effect of comparing other fields within
a boolean.

Maybe, perhaps,

mb

    This is a known bug (I should know, as I reported it!), with the
    SUBSCRIBER data-set, which causes it to confuse any IFs.
    
    You can work round it by binding a phantom to SUBSCRIBER, so your
    script would look like:
    
    bind *fred to subscriber
    for *fred do ...
    
    (don't forget to do a bind_break *fred at the end of your script too.)
    
    D.

    Good afternoon,
    
    you're both right! I think the easyiest way is the workaround mentioned
    in .1 from Martin.
    
    Thank you again!
    
    Best regards 
    Charly

    Martin,
    
    I've tried your solution from .1 but it doesn'T work here either.
    The output file hasn't changed. 
    
    Best Regards 
    
    Charly
    

Charly,

oh well, still, you can use Dave's idea!

Cheers,

Martin

    Dave, Martin,
    
    I've then tried Daves workaround, and it doesn'T work again.
    The same output is still here.
    But having a look in the trace I get the same error messages described
    in Note 1198.
    
    Below I've posted a piece of the trace.
    
    Hmmmm?? What's going on here???
    
    Best Regards 
    Charly_from_CSC_Vienna
    
<merge mdadv_abt, wrk$:bind_abt.lis {CR}
![A1LOG]  Entry = %OA-I-LOGUSER, <merge mdadv_abt, wrk$:bind_abt.lis{CR}
![FORM]   Form = MAIN, Field = CHOICE/7, Page = 1, Key Value = {CR}
![FUNC]   Function = OA$FLD_DONE, Cmd line = 
![A1LOG]  Entry = %OA-I-LOGFUN, Funktion: OA$FLD_DONE     
![FIELD]  Field = CHOICE/7. All fields checked
![FIELD]  Field CHOICE being post-processed. Workspace = 0004B000
![FIELD]  Field = CHOICE. Returning field contents
![FORM]   Form = MAIN, Field = CHOICE/7, Page = 1, Input = <merge mdadv_abt, wrk
!               $:bind_abt.lis
![FUNC]   Function = MERGE, Cmd line = mdadv_abt, wrk$:bind_abt.lis
![A1LOG]  Entry = %OA-I-LOGFUN, Funktion: MERGE           mdadv_abt, wrk$:bind_a
!               bt.lis
![BLP]    Merging boilerplate mdadv_abt
![IO]     Opening TXT$MERGE_OUTPUT, File = wrk$:bind_abt.lis, Class = TEXT, Mode
!                = OUTPUT
![IO]     Putting record in TXT$MERGE_OUTPUT, Key = 
![FUNC]   Function = DO, Cmd line = mdadv_ABT
![A1LOG]  Entry = %OA-I-LOGFUN, Funktion: DO              mdadv_ABT
!   
![SCRIPT] Opening script MDADV_ABT (DO)
![IVP]    Script mdadv_ABT opened
![SCRIPT] Function nesting level = 0. Script context follows:
![SCRIPT] Line           SCRIPT Script
!   
![SCRIPT] Line             DO Script
![SCRIPT]   0    MDADV_ABT
!   
![SCRIPT] MDADV_ABT Line 1: BIND *fred to subscriber
![FUNC]   Function = BIND, Cmd line = *fred to subscriber
![A1LOG]  Entry = %OA-I-LOGFUN, Funktion: BIND            *fred to subscriber
![SYMBOL] Symbol = LOG$sys$cluster_node, Value = VNOTSC::
![FLOW]   Form UAPASSWRD opening, Library = ALLIN1$DISK:[ALLIN1.LIB_GERMAN]OAFOR
!               M.FLB;
![IO]     Opening UAPASSWRD, File = OA$DATA_SHARE:UAPASSWRD.DAT, Class = DATA, M
!               ode = INPUT
![IO]     Getting record from UAPASSWRD, Key = OA$VNOTSC$ALLIN1, Key-of-ref = /0
![IO]     Getting field UADDSID from UAPASSWRD, Value = 2B280A80009559E6439086C0
!               7EC20000
![SYMBOL] Symbol = #display, Value = 
![IO]     Getting field UAPASSWORD from UAPASSWRD, Value = TESTA1
![IO]     Getting field  from USERAGENT, Value = 
![IO]     Status = Die Funktion "!AS" ist bei dieser Version nicht verf�gbar.
![IO]     Getting field  from USERAGENT, Value = 
![IO]     Status = Die Funktion "!AS" ist bei dieser Version nicht verf�gbar.
![IO]     Getting field  from USERAGENT, Value = 
![IO]     Status = Die Funktion "!AS" ist bei dieser Version nicht verf�gbar.
![IO]     Getting field MTANODE2 from USERAGENT, Value = 
![IO]     Status = Die Funktion "!AS" ist bei dieser Version nicht verf�gbar.
![IO]     Getting field MTANODE1 from USERAGENT, Value = VNOTSC
![IO]     Status = Die Funktion "!AS" ist bei dieser Version nicht verf�gbar.
![IO]     Getting field USERIDI from USERAGENT, Value = MANAGER
![IO]     Status = Die Funktion "!AS" ist bei dieser Version nicht verf�gbar.
![IO]     Getting field MAILBOX from USERAGENT, Value = A1
![IO]     Status = Die Funktion "!AS" ist bei dieser Version nicht verf�gbar.
![IO]     Getting field USERIDV from USERAGENT, Value = 
![IO]     Status = Die Funktion "!AS" ist bei dieser Version nicht verf�gbar.
![IO]     Getting field VMSNODE from USERAGENT, Value = 
![IO]     Status = Die Funktion "!AS" ist bei dieser Version nicht verf�gbar.
![IO]     Getting record from PROFIL, Key = EHRLICH, Key-of-ref = USER/0
![IO]     Getting field MDFLAG from PROFIL, Value = Y
![SCRIPT] MDADV_ABT Line 2: FOR *fred do .if .orgunit1 NES "SSG" then Get oa$mer
!               ge_line = .Commname:30 " Abt = " .orgunit1
![FUNC]   Function = FOR, Cmd line = *fred do .if .orgunit1 NES "SSG" then Get o
!               a$merge_line = .Commname:30 " Abt = " .orgunit1
![A1LOG]  Entry = %OA-I-LOGFUN, Funktion: FOR             *fred do .if .orgunit1
!                NES "SSG" then Get oa$merge_line = .Commname:30 " Abt = " .orgu
!               nit1
![SYMBOL] Symbol = #display, Value = 
![SYMBOL] Symbol = , Value = 
![FUNC]   Function = OA$SCP_DISPATCH, Cmd line = .if .orgunit1 NES "SSG" then Ge
!               t oa$merge_line = .Commname:30 " Abt = " .orgunit1
![A1LOG]  Entry = %OA-I-LOGFUN, Funktion: OA$SCP_DISPATCH .if .orgunit1 NES "SSG
!               " then Get oa$merge_line = .Commname:30 " Abt = " .orgunit1
![SCRIPT] Form = MAIN, Statement = .if .orgunit1 NES "SSG" then Get oa$merge_lin
!               e = .Commname:30 " Abt = " .orgunit1
![SYMBOL] Symbol = "SSG", Value = SSG

    Good afternoon again,
    
    today I've spent some more time playing with the subscriber DSAB.
    Expanding Daves' solution to following:
    
    bind/sort_key=".SURNAME1" *fred to subscriber
    for *fred do .if .orgunit1 NES "SSG" then -    ! or ENS - as you like -
        Get oa$merge_line = .Commname:30 " Abt = " .orgunit1
    bind_break *fred
    
    works now fine.
    
    But having switched on the TRACE again, you'll find these errormessages
    as mentioned in .6.
    
    Can we ignore them?  Any ideas why this?
    
    Best regards
    Charly_from_Vienna

    Charly,
    
    No you shouldn't ever ignore these error messages - there was a note in
    here only a few days ago that mentioned these error message - can't
    find it at the moment. As I said in that note someone in Engineering
    needs to sit down in the VAX debugger and work out just what 'feature'
    was introduced in v3.0
    
    Regards,
    
    Andrew.D.Wicks

    Andy,
    
    	you've - however- right! The notes you and I mean is 1198 as
    I mentioned in .6. Guess, all I want to know is if someone has
    found  wherein the problem lies. As Trevor said in 1198.11 he has
    SPR'd this, I was not sure about filling out a SPR, too.
    
    The funny thing is, that it seems to work.
    
    Andy, have a nice day and maybe can you forward Candy(theMoon) my
    special greetings. Thatwillbenice!
    
    Regards
    Charly_as_you_know_the_troublemaker_from_Vienna!
    

    Since it's been SPRd once, there's no need for you to do so again.
    
    I strongly suspect that the problem is just some code setting the wrong
    status value somewhere, but we do need to check.
    
    D.