ISPF/Rexx Function : DATEGET
|
ISPF/Rexx Function : DATEGET |
|
|
As ever, you use this
free program at your own risk. Feel free to use the software on this site but please honor the copyrights. DATEGET is a Rexx and ISPF facility that can be used to prompt a user to enter a date. This user will be prompted via a panel (ASLDTE01) which will validate the validity of the date entered. The year portion of the date must be between 1960 and the current year. These can by changed in the panel if you need to. Note: that future dates that are within the current years are permitted. There is also a Rexx exec named DATETEST which demonstrates how to call the DATEGET rexx exec. DATEGET sets a value, via a PUSH, named "mydate" back to the calling exec. This is of the format 'yyyymmdd xxx'. The "xxx" portion returns the switch settings entered from the panel. These will be an "x" if the switch is not set. If the switch is set it will show as a "o" for ON, "b" for BEFORE and "a" for AFTER. For example if the date enter was 9th November 1971 and the switch is set for ON or BEFORE the result in mydate will be '19711109 obx'. If you only want the date portion PULL the mydate variable and split it. i.e. datepart = substr(mydate,1,8) /* gives the returned date */ yearpart = substr(mydate,1,4) /* gives the returned year */ monpart = substr(mydate,5,2) /* gives the returned month */ daypart = sunstr(mydate,7,2) /* gives the returned day */ The ASLDTE01 panel will display as a popup panel. The panel looks like:
The XMI (Transmit) file for DATEGET is available from here. This material has been used successfully by Abbydale Systems LLC. and to the best of our knowledge this material and any system(s) of which it is a part are operational as of the service level or date stated in the body of this material (if so stated). However, NO warranty is given or implied as to the accuracy of this material or any related material or systems, and no responsibility is assumed for any effect or modification directly or indirectly caused by the use of this material. It is the responsibility of any user of this material to evaluate its usefulness to the user's environment. Abbydale Systems LLC. does not guarantee to keep this or any related material current, nor does it guarantee to provide any corrections or extensions described by any users of this material or any corrections or extensions made in the future by Abbydale Systems LLC. itself. |
||
Number of unique visitors 120
Copyright © Abbydale Systems LLC 2015-2024
Abbydale Systems LLC Lic. 802696149. All rights reserved.
