Re: % temp addresses = 96.800

[D.BALE@xxxxxxxxxxxxx]

Beautiful, Brian!  Works like a charm!

You might want to fix the DCL for &CEN; I think you wanted a comment instead
of a VALUE keyword.

Thanks again!

Dan Bale
IT - AS/400
Handleman Company
248-362-4400  Ext. 4952

-------------------------- Original Message --------------------------
Previously on Midrange-L...........

> (Presently trying to scan the archives to find the
> thread on how to determine the last IPL on a given box.)  The job for
QCTL,
> the controlling subsystem, was started on 5/20/2000.  "CALL
QSYS/QWCCRTEC"
> shows that our CISC box was last IPL'd on October 1, 2000.  The same
program
> confirms the 5/20/2000 IPL on the aforementioned RISC box.
================

Dan I use the following to get the last IPL date and Time.
================

  PGM        /* Get the Date/Time the SCPF job starts */

  DCL        VAR(&DATA) TYPE(*CHAR) LEN(150) /* +
               Return Data */
  DCL        VAR(&BIN) TYPE(*CHAR) LEN(4) +
               VALUE(X'00000096') /* Len Return Data +
               (hex) */
  DCL        VAR(&CEN) TYPE(*CHAR) LEN(1) VALUE('Century +
               Code')
  DCL        VAR(&YY) TYPE(*CHAR) LEN(2) /*    YEAR  */
  DCL        VAR(&MM) TYPE(*CHAR) LEN(2) /*    MONTH  */
  DCL        VAR(&DD) TYPE(*CHAR) LEN(2) /* Day */
  DCL        VAR(&HH) TYPE(*CHAR) LEN(2) /* Hour */
  DCL        VAR(&M) TYPE(*CHAR) LEN(2) /* Minute */
  DCL        VAR(&SS) TYPE(*CHAR) LEN(2) /* Second */
  DCL        VAR(&FMT) TYPE(*CHAR) LEN(8) +
               VALUE('JOBI0400') /* Format for API */
  DCL        VAR(&JOB) TYPE(*CHAR) LEN(26) +
               VALUE('SCPF      QSYS      000000') /* +
                          SCPF job */
   DCL        VAR(&JOBI) TYPE(*CHAR) LEN(16)

   CALL       PGM(QUSRJOBI) PARM(&DATA &BIN &FMT &JOB +
                          &JOBI) /* Call the API to return the Job +
                          Attributes */


             CHGVAR     VAR(&CEN) VALUE(%SST(&DATA 63 1))
             CHGVAR     VAR(&YY) VALUE(%SST(&DATA 64 2))
             CHGVAR     VAR(&MM) VALUE(%SST(&DATA 66 2))
             CHGVAR     VAR(&DD) VALUE(%SST(&DATA 68 2))
             CHGVAR     VAR(&HH) VALUE(%SST(&DATA 70 2))
             CHGVAR     VAR(&M ) VALUE(%SST(&DATA 72 2))
             CHGVAR     VAR(&SS) VALUE(%SST(&DATA 74 2))

             SNDPGMMSG  MSG('The system was last IPL''d on ' || &MM +
                          || '/' || &DD || '/' || &YY || ' at ' || +
                          &HH || ':' || &M || ':' || &SS || '.')

 END:        ENDPGM



Bryan Dietz
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---