)GLV GLVJOBID.DATETIME
/*---------Language: OPS/MVS RULES----------------------------$$PROLOG*/
/*  Program Name: DATETIME                                            */
/*   Description: This rule will place the last update date and time  */
/*                of the global variable placed in the                */
/*                GLVJOBID.DATETIME variable.  This is used to get    */
/*                GLOBAL variable statistics to TSO/E REXX programs   */
/*                that can't call OPSVALUE.                           */
/*      Related:  IMSCMD REXX program.                                */
/* 56 DFS996I *IMS READY*  IMST                                       */
/*   Change log: Add new entries to the top                           */
/*-----------------Changed 08/13/1998 by: Bob Stark --------------1.0-*/
/* 1. Cleanup for distribution version 1.0                            */
/*-----------------Changed 08/13/1998 by: Bob Stark ------------------*/
/* 1. Initial coding                                                  */
/*--------------------------------------------------------------------*/
/* Copyright (C) 1999 ProTech Professional Technical Services. No war-*/
/* ranty expressed or implied. Permission to use, copy, and distribute*/
/* this document without fee is hereby granted, provided that this    */
/* copyright notice appear in all copies.  Permission to modify the   */
/* code is granted, but not the right to distribute the modified code,*/
/* which should be returned to the maintainer for inclusion into the  */
/* distributed version.  Contacts: 412-373-8855  www.protechpts.com   */
/*--------------------------------------------------------------------*/
)PROC
TRACE N
PARSE SOURCE . . caller .
IF GLV.program = caller     /* Are we firing ourselves?               */
THEN RETURN                 /* Yes, take a quick exit.                */

glvname = TRANSLATE(OPSVALUE('GLVJOBID.DATETIME','O'))
PARSE VALUE REVERSE(glvname) WITH . '.' prefix
prefix = REVERSE(prefix)
CALL OPSCLEDQ
CALL OPSVALUE prefix,'T'
  DO i = 1 TO QUEUED()
  PULL vname
  IF vname <> glvname THEN
    DO
    PULL .
    ITERATE i
    END
  PULL . . . . . vdate vtime pgm jobname .
  CALL OPSCLEDQ
  CALL OPSVALUE 'GLVJOBID.DATETIME','U',vdate vtime pgm jobname
  LEAVE i
  END
RETURN