Skip to main content

D3 Program Info Available in a CALLX program

  • February 13, 2024
  • 9 replies
  • 1 view

Tom Power
Forum|alt.badge.img

Hi All,

We have some CALLX programs saving audit data for certain master files.

Function system(45) returns the calling program name but that is always the name of the CALLX program. System(33) is supposed to also return a program name but is always empty.

Is there a way to retrieve the "chain" of calling programs - similar to check.pibs but without having to understand 2000 lines of deep code!

Also a way to see if the item was updated in the editor/UP as opposed to in a program?

Any tech ideas welcome.

Thanks in Advance

Tom Power



------------------------------
Tom Power
Owner
Power Business Systems
Benoni ZA
------------------------------

9 replies

Forum|alt.badge.img+1
  • Inspiring
  • February 14, 2024

Hi All,

We have some CALLX programs saving audit data for certain master files.

Function system(45) returns the calling program name but that is always the name of the CALLX program. System(33) is supposed to also return a program name but is always empty.

Is there a way to retrieve the "chain" of calling programs - similar to check.pibs but without having to understand 2000 lines of deep code!

Also a way to see if the item was updated in the editor/UP as opposed to in a program?

Any tech ideas welcome.

Thanks in Advance

Tom Power



------------------------------
Tom Power
Owner
Power Business Systems
Benoni ZA
------------------------------

Hy
i use this program provied by rocket to retrive the the basic programs stack

PROG.OPCAO = "GET-BASIC-PROGRAM"
         CALL @PROG.OPCAO(LIST.PROGRAM)

this will retrive the stack of calls like an @VM array



------------------------------
Alberto Leal
System Analyst
Millano Distribuidora de Auto Pecas Ltda
Varzea Grande MT BR
------------------------------

Tom Power
Forum|alt.badge.img
  • Author
  • Participating Frequently
  • February 14, 2024

Hy
i use this program provied by rocket to retrive the the basic programs stack

PROG.OPCAO = "GET-BASIC-PROGRAM"
         CALL @PROG.OPCAO(LIST.PROGRAM)

this will retrive the stack of calls like an @VM array



------------------------------
Alberto Leal
System Analyst
Millano Distribuidora de Auto Pecas Ltda
Varzea Grande MT BR
------------------------------

Hi Alberto,

Thanks very much - this is awesome! Will give it a test.

Cheers

Tom



------------------------------
Tom Power
Owner
Power Business Systems
Benoni ZA
------------------------------

Bryan Buchanan
  • Participating Frequently
  • February 15, 2024

Hy
i use this program provied by rocket to retrive the the basic programs stack

PROG.OPCAO = "GET-BASIC-PROGRAM"
         CALL @PROG.OPCAO(LIST.PROGRAM)

this will retrive the stack of calls like an @VM array



------------------------------
Alberto Leal
System Analyst
Millano Distribuidora de Auto Pecas Ltda
Varzea Grande MT BR
------------------------------

So where does on find "GET-BASIC-PROGRAM" ?



------------------------------
Bryan Buchanan
Manager
WebbTide Systems Pty Ltd
Morayfield QLD AU
------------------------------

Tom Power
Forum|alt.badge.img
  • Author
  • Participating Frequently
  • February 15, 2024

So where does on find "GET-BASIC-PROGRAM" ?



------------------------------
Bryan Buchanan
Manager
WebbTide Systems Pty Ltd
Morayfield QLD AU
------------------------------

Hi Bryan - if you look at Alberto's post, he attached a text file of the source code.

Cheers

Tom



------------------------------
Tom Power
Owner
Power Business Systems
Benoni ZA
------------------------------

Bryan Buchanan
  • Participating Frequently
  • February 15, 2024

Hi Bryan - if you look at Alberto's post, he attached a text file of the source code.

Cheers

Tom



------------------------------
Tom Power
Owner
Power Business Systems
Benoni ZA
------------------------------

Ta, didn't see that :(



------------------------------
Bryan Buchanan
Manager
WebbTide Systems Pty Ltd
Morayfield QLD AU
------------------------------

Bryan Buchanan
  • Participating Frequently
  • February 15, 2024

Hi Bryan - if you look at Alberto's post, he attached a text file of the source code.

Cheers

Tom



------------------------------
Tom Power
Owner
Power Business Systems
Benoni ZA
------------------------------

Interesting program. It would be good if Rocket made this generally available by putting it in dm,bp,



------------------------------
Bryan Buchanan

------------------------------

Mark Locke
  • Rocketeer
  • February 20, 2024

Interesting program. It would be good if Rocket made this generally available by putting it in dm,bp,



------------------------------
Bryan Buchanan

------------------------------

You can get the same information from the check.pib utility, by specifying the "running" option.

Example:

check.pib <pib> running

Will just return the information from the "running" page in check.pib



------------------------------
Mark Locke
Rocket Internal - All Brands
CA US
------------------------------

Bryan Buchanan
  • Participating Frequently
  • February 20, 2024

You can get the same information from the check.pib utility, by specifying the "running" option.

Example:

check.pib <pib> running

Will just return the information from the "running" page in check.pib



------------------------------
Mark Locke
Rocket Internal - All Brands
CA US
------------------------------

Hey Mark,

Thanks for that. Very useful program - and it's actually documented in the manual. RTFM Bryan !

Cheers.


Bryan Buchanan
  • Participating Frequently
  • February 20, 2024

You can get the same information from the check.pib utility, by specifying the "running" option.

Example:

check.pib <pib> running

Will just return the information from the "running" page in check.pib



------------------------------
Mark Locke
Rocket Internal - All Brands
CA US
------------------------------

Turns out check.pib can't be run on it's own process, so doesn't solve the OP's use case. Useful program all the same :)



------------------------------
Bryan Buchanan
Manager
WebbTide Systems Pty Ltd
Morayfield QLD AU
------------------------------