On Fri, 24 Apr 2020 07:01:52 +0100, CM Poncelet wrote: >I attach a Rexx program to calculate and display the biorhythm values >for a given date of birth and current or whatever other date. > >If 'management' complains that home workers are not putting enough >effort into their working-from-home time, they can run this thing and >send its output to 'management' just to prove that they are in perfect >working condition and that any slow-down in productivity must be due to >external factors which are wholly beyond their control <g>. > ... >CHECK_DATE: >/* CHECK THAT DATE IS NUMERIC AND IN THE CORRECT FORMAT */ >IF DATATYPE(Q,N) �= 1 , >| DATATYPE(SUBSTR(Q,1,4),W) �= 1 , >| DATATYPE(SUBSTR(Q,6,4),W) �= 1 , >| LENGTH(Q) �= 9 , >| SUBSTR(Q,5,1) �= '.' THEN , > ... What charset/CCSID is that supposed to be?
-- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
