›
Welcome to the SRP Forum! Please refer to the SRP Forum FAQ post if you have any questions regarding how the forum works.

VNAV Compile warnings

BarryStevensBarryStevens
in OpenInsight
Is there a routine available from anyone, or, how would I create one, that would compile all procs and report on any suspected vnav warning errors?

It would also need to compare the name of the actual sub/func with the saved record name to avoid compiling any 'saved' procs, unless of course that are compiled with the record name so it would be an 'override the liveone' issue.

TIA

Comments

  • DonBakkeDonBakke
    Use the COMPILE method for the Repository function to compile your code. Use the Blint() stored procedure to check for VNAVs. Blint is not documented, but you can pretty easily figure out how to call it by looking at the argument names.
  • BarryStevensBarryStevens
    Thanks, because RTP5 is not the way to go, judging by the results!!!

  • BarryStevensBarryStevens
    edited September 2024
    Appears to miss the inserts

    Errors =blint(ProgID,Code)

    Not sure about the interpretation of the other params:


  • DonBakkeDonBakke
    Might I suggest that you create a simple hook so you can observe the incoming and outgoing values when you do a normal compile?
  • BarryStevensBarryStevens
    Yes you may 😁
  • BarryStevensBarryStevens
    Ah of cause, MD hook for BLINT.

    Thanks
  • BarryStevensBarryStevens
    Nope, had to go with:
    result = Repository("TCOMPILE", entid, recompile_if_unchanged, cleanup_orphan_entities, preserve_linemarks)

    The compile 'errors' are in ErrCode

    case result<1> = 0
    If Get_Status(ErrCode) then
  • BarryStevensBarryStevens
    Nope, Warnings are not returned.

    Blint call looks like this:
    Dont know how to create values for P6, which is the expanded inserts in the code.
    Not sure if P3 is passed ot a result

  • KevinFournierKevinFournier
    Is this OI 9 or 10?
  • BarryStevensBarryStevens
    OI10 - I think I need to get BLINT working
  • BarryStevensBarryStevens
    if I do this:
    BLint( mainname,ProcSource, "", "", "",ExpProcSource)
    The source of the proc in mainname is retrieved by blint and my other inSource params are ignored
    (Proved by entering different prog name in mainname than the source, with a forced vnav)
    If mainname is null, no compile is done
  • KevinFournierKevinFournier
    edited September 2024
    I asked because OI 10 actually doesn't need to use BLINT. Here's what the SRP Editor does:

    1
    2
    3
    4
    5
    6
    7
    rv = Repository("COMPILE", EntID, 0, "", "", EntID[-1, "B*"], StatusCode)
    Status = Get_Status(Err)
    If rv EQ 0 then
        Response = SRP_Editor_Utility("PROCESSERRORS", If Len(StatusCode) then StatusCode else Err)
    end else
        SuspectedVNAVs = StatusCode
    end


    The StatusCode parameter will be errors if the compilation failed and VNAVs if it succeeded.
  • BarryStevensBarryStevens
    Thank you so much.
    I will try that out.
    Funny, appears that Rev still uses BLINT, so you must have dug very deep (as usual)
  • BarryStevensBarryStevens
    edited September 2024
    FYI
    This is working:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    subroutine bsbs_check_compile_vnavs(Void)
     
    $insert LOGICAL
    Declare Function get_repos_entities,rti_resolve_main_stprocname,Repository,get_Status,Unassigned
    declare function SRP_Editor_Utility
    declare subroutine Set_Status
     
    AppId=@appID<1>
    entities       = get_repos_entities(AppId, 'STPROC', '', '', '', '', '')
    compile_errors = null$
    vnavs          = null$
    statuscode     = null$
    Err            =null$
    col            = null$
    Loop
        bRemove entity From entities At col Setting mark
    While entity != ""
        AppId      =entity[1,"*"]
        mainname   = rti_resolve_main_stprocname(entity)
        ProgID     =mainname:"*":AppId
        ProcSource =xlate("SYSPROCS",ProgID,"","X")
        SourceName =field(ProcSource,"(",1)[-1,"B "]
        if (mainname) and (mainname _eqc SourceName) then
            Set_Status(0)
            rv     = Repository("COMPILE", entity, 0, "", "", mainname, StatusCode)
            Status = Get_Status(Err)
             
            If rv EQ 0 then
                Response           = SRP_Editor_Utility("PROCESSERRORS", If Len(StatusCode) then StatusCode else Err)
                convert @vm:@svm to "||" in Response
                loop while response
                    ThisResponse        =Response[1,@fm]
                    Response[1,col2()]  =null$
                    compile_errors     := AppId:@vm:mainname:@vm:ThisResponse :@fm
                Repeat
                 
            end else
                SuspectedVNAVs  = StatusCode
                if SuspectedVNAVs then
                    loop while SuspectedVNAVs
                        ThisVNAV                  =SuspectedVNAVs[1,@fm]
                        SuspectedVNAVs[1,col2()]  =null$
                        vnavs                    := AppId:@vm:mainname:@vm:ThisVNAV[1,@vm] :@fm
                    Repeat
                     
                end
            end
        end
    repeat
     
    compile_errors[-1,1] =null$
    vnavs[-1,1]          =null$
     
    call write_Row('SYSLISTS', 'COMPILE_ERRORS', compile_errors, 0)
    call write_Row('SYSLISTS', 'VNAVS', vnavs, 0)
     
    return
Sign In or Register to comment.