Need Explanation
These are informix/4GL lines. I am writing equivalent perl code Can anyone explain me what this code performs sdate be any date ------------------ let mnth = month(sdate) let yr = year(sdate) # let edatec = mnth using "&&", "/01/", yr using "&&&&" let edate = edatec # let edate = extend(edate) + 1 units month - 1 units day I have problems on how to translate to Perl on # marked lines Kaladhaur
Kaladhaur Palaniappa wrote: > > These are informix/4GL lines. I am writing equivalent perl code > > Can anyone explain me what this code performs > > sdate be any date > ------------------ > > let mnth = month(sdate) > let yr = year(sdate) > # let edatec = mnth using "&&", "/01/", yr using "&&&&" Give me a full first of the month date based on mnth and yr > let edate = edatec > # let edate = extend(edate) + 1 units month - 1 units day Set edate to the end of the next month > > I have problems on how to translate to Perl on # marked lines > > Kaladhaur -- Paul Watson # Oninit Ltd # Growing old is mandatory Tel: +44 1436 672201 # Growing up is optional Fax: +44 1436 678693 # Mob: +44 7818 003457 # www.oninit.com #
On Thu, 07 Aug 2003 05:46:45 -0400, Kaladhaur Palaniappa wrote: Paul's explanation of the lines beginning with '#' is correct but you should note that those are comments. The '#' character comments out the following characters to the end of the line in 4GL. Art S. Kagel > These are informix/4GL lines. I am writing equivalent perl code > > Can anyone explain me what this code performs > > sdate be any date > ------------------ > > let mnth = month(sdate) > let yr = year(sdate) > # let edatec = mnth using "&&", "/01/", yr using "&&&&" > let edate = edatec > # let edate = extend(edate) + 1 units month - 1 units day > > I have problems on how to translate to Perl on # marked lines > > Kaladhaur