Re: Workstation ID

[Carl Galgano <cgalgano@xxxxxxxxxxxxxxxxx>]

In a CL program it would be the job name.  Use the RTVJOBA command... see
below.
                        Retrieve Job Attributes (RTVJOBA)
    

    
 Type choices, press Enter.
    

    
 CL var for JOB          (10) . .                 Character value
    
 CL var for USER         (10) . .                 Character value
    
 CL var for NBR           (6) . .                 Character value
    
 CL var for LOGLVL        (1) . .                 Character value
    
 CL var for LOGSEV      (2 0) . .                 Number
    
 CL var for LOGTYPE      (10) . .                 Character value
    
 CL var for LOGCLPGM     (10) . .                 Character value
    
 CL var for INQMSGRPY    (10) . .                 Character value
    
 CL var for OUTQ         (10) . .                 Character value
    
 CL var for OUTQLIB      (10) . .                 Character value
    
 CL var for ACGCDE       (15) . .                 Character value
    
 CL var for DATE          (6) . .                 Character value
    
 CL var for SWS           (8) . .                 Character value
    
 CL var for TYPE          (1) . .                 Character value
    
 CL var for RTNCDE      (5 0) . .                 Number
    
 CL var for ENDSTS        (1) . .                 Character value
    

More... 
 F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this
display    
 F24=More keys
    
 

In an RPG program it is in the program information data structure.  See the
data structure below:

 I                                       11  20 OTQLIB          
 **  PROGRAM INFORMATION DATA STRUCTURE TO RETRIEVE THE PROGRAM 
 **  NAME, THE WORKSTATION NAME AND THE USER'S NAME.            
 I           SDS                                                
 I                                        1  10 PGMID           
 I                                      244 253 WSID            
 I                                      254 263 USERID          


Hope this helps.
Carl


                                   
At 09:17 AM 4/30/98 -0700, you wrote:
>Where can I retrieve the workstation ID to use on a display screen?
>
>TIA
>
>Darlene Brengle
>Norsoft, Inc.
>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
>| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: david@midrange.com
>+---
>
Carl J. Galgano
http://cgalgano.home.mindspring.com
mailto:cgalgano@ediconsulting.com
EDI Consulting Services, Inc.   
540 Powder Springs Street
Suite C19
Marietta, GA 30064
770-422-2995
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---