Re: Trigger pgm: user & pgm id

on 11/05/97at 09:33 AM, the Great and Grand  Wazir Karen Bellecci
<KBellecci@osfa.state.la.us> said:


What (CL) command can

I use in my (Cobol) trigger program to identify this?  (We want to place

the before and after images of the database change in a history file,

with time, user and program that made the change.)

IN the CL you can RTVJOBA and choose a whole lot of information to fill
parms or whatever.  Here's a copy&paste of the F4 prompt (I love TN5250!)

Use a fixed font.

                        Retrieve Job Attributes (RTVJOBA)          
                                                                   
 Type choices, press Enter.                                        
                                                                   
 Label  . . . . . . . . . . . . .                                  
 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           
                                                                   

----------------------------------------------------
Booth Martin     
---------------------------------------------------



+---
| 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 MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---