hexagon logo
Register Sign in
  • Replies 3 replies
  • Subscribers 15 subscribers
  • Views 208 views
  • Users 0 members are here
Options
Related

Hide or Lock PRC !

Benjir0
Hey guys,

is it possible to hide or lock a PRC?
I'm supposed to write a program for a client and my boss doesn't want the client know how we write that program. So I work with PRC (without external file). My boss said that the client is not allowed to have any insight into the PRC.

Best Regards

Benji​

  • !-- Procedure which should be converted
    EDTPRC TestPrc

    !--Exporting procedure to text file.
    FMTOBJ (FIL=C:\Users\Joe.Bloggs\Desktop\Lock PRC\New folder\TestPrc.txt, NAM=LDBPRC:TestPrc)

    !--Open the txt file and change object type from PRC tp SPc.
    !--$TEXT (NAM=PRC:TestPrc) to $TEXT (NAM=SPc:TestPrc)

    !--Load back the procedure in Quindos.
    CNVFIL (FIL=C:\Users\Joe.Bloggs\Desktop\Lock PRC\New folder\TestPrc.txt)

    !---Test of the SPc
    DELREA (NAM=C, CNF=N)
    INDPRC (NAM=LDBSPc:TestPrc1)
    ​

  • !-- Procedure which should be converted
    EDTPRC TestPrc

    !--Exporting procedure to text file.
    FMTOBJ (FIL=C:\Users\Joe.Bloggs\Desktop\Lock PRC\New folder\TestPrc.txt, NAM=LDBPRC:TestPrc)

    !--Open the txt file and change object type from PRC tp SPc.
    !--$TEXT (NAM=PRC:TestPrc) to $TEXT (NAM=SPc:TestPrc)

    !--Load back the procedure in Quindos.
    CNVFIL (FIL=C:\Users\Joe.Bloggs\Desktop\Lock PRC\New folder\TestPrc.txt)

    !---Test of the SPc
    DELREA (NAM=C, CNF=N)
    INDPRC (NAM=LDBSPc:TestPrc1)
    ​

    Hello Quindos_Moderator ,

    Sorry but this didn't work. Maybe I did something wrong?

    Benji
  • TRY:


    CLROBJ (CNF=N)

    !-- Procedure which should be converted
    CVSTRTXT (TXT=TestPrc, LIN=1, STR="$TEXT (NAM=SPc:TestPrc)")
    CVSTRTXT (TXT=TestPrc, LIN=2, STR="X = 1")
    CVSTRTXT (TXT=TestPrc, LIN=3, STR="$TXTEND")

    OPEN (FIL=C:\Users\Muster\OneDrive - Hexagon\Desktop\TestPrc.txt, DEV=D1, STA=NEW, ACC=A)
    OUTPUT (NAM=TXT:TestPrc, DEV=D1)
    CLOSE (DEV=D1)

    CLROBJ (CNF=N)

    !--Load back the procedure in Quindos.
    CNVFIL (FIL=C:\Users\Muster\OneDrive - Hexagon\Desktop\TestPrc.txt)

    !---Test of the SPc
    INDPRC (NAM=LDBSPc:TestPrc)

    LISREA (NAM=X)

    ​
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement