Fw: Setting user data on a joblog?

["Steve Landess" <steve_landess@xxxxxxxxxxx>]

> ----- Original Message -----
> From: "David Gibbs" <david@midrange.com>
> To: <midrange-l@midrange.com>
> Sent: Friday, October 25, 2002 1:47 PM
> Subject: Setting user data on a joblog?

> Anyone know if it's possible to set the USRDTA on a joblog?
 > I've tried various combinations of OVRPRTF with no luck.
 > Thanks!
 > david

 David - I think you could be out of luck here...

 If I had to guess, the CPP for SIGNOFF (QWCCLFEC) probably does an override
for QPJOBLOG to be the device name, so any override that you might perform
would be overridden again and wiped out by this program before the job log
is written.

 I remember trying to do this several years ago and I never could get it to
work, either.

 However, if you create your own SIGNOFF command, however, you can perform
 this trick:

In your signoff CPP, do something this:

 PGM PARM(&LOG &DROP &CNN)

 DCL &LOG *CHAR 7
DCL &DROP *CHAR 5
DCL &CNN  *CHAR 4

 OVRPRTF FILE(QPJOBLOG) USRDTA(XXXXXX)

 IF COND(&LOG *EQ '*LIST') THEN(DO)
    DSPJOBLOG OUTPUT(*PRINT)
 ENDDO

 SIGNOFF LOG(*NOLIST) DROP(&DROP) ENDCNN(&CNN)

 ENDPGM

 What about it Leif?  Know any tricks here?

 Steve Landess

> >
> >
> >
> > _______________________________________________
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> > To post a message email: MIDRANGE-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> > or email: MIDRANGE-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
> >
>