the information of a connection

Hi,

As i understand it you are using "UNIX", here is a simple example:

define variable pid# as character no-undo.

input through "echo $PPID" no-echo.
set pid#.

Regards Ole
 
You can do the same thing as Ole stated using a UNIX SILENT command.
This is a portion of a program to delete Progress sessions that are without activity for 'n' number of minutes.

UNIX echo $PPID
/*************************************************/
/* Find the jobs that have the terminal id in it */
/*************************************************/
UNIX SILENT ps -fae|grep VALUE (t_2_terminal_id) > /tmp/job.d.
UNIX SILENT chmod 666 /tmp/job.d.
UNIX SILENT fold /tmp/job.d > /tmp/job.f.
UNIX SILENT rm /tmp/job.d.
UNIX SILENT chmod 666 /tmp/job.f.
/***************************/
/* Progress Quoter Command */
/***************************/
UNIX SILENT /d0/progress/dlc83b/bin/quoter /tmp/job.f > /tmp/job.q.
UNIX SILENT chmod 666 /tmp/job.q.
INPUT STREAM s-2 FROM /tmp/job.q /**/ NO-ECHO /**/.
JOB_LOOP:
Ä File: /d0/users/ibarash/sesdel/ibsesdel.p ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
REPEAT:
PROMPT-FOR STREAM s-2 t_whole_list2 NO-LABEL
WITH FRAME f_input2 WIDTH 350.
ASSIGN t_whole_list2.
If SUBSTRING (t_whole_list2,1,8) = t_1_UID THEN
DO:
ASSIGN t_a_UID = SUBSTRING (t_whole_list2, 1, 8)
t_b_PID = INTEGER (SUBSTRING (t_whole_list2, 11, 5))
t_c_PPID = INTEGER (SUBSTRING (t_whole_list2, 18, 5)).

END.
ELSE NEXT JOB_LOOP.
Ira
 
You must log in or register to reply here.
Back
Top