"¬" (NOT) On 25/04/2020 02:18, Paul Gilmartin wrote: > 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 > . >
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
