Re: % temp addresses = 96.800

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
+---