RE: *DATE on DSPF program

I've been thinking about adding a *PSSR subroutine as a work-around.
How do I then return to the line directly after the line that the error
happened on?

Dave

> ----------
> From:         Buck Calabro[SMTP:mcalabro@commsoft.net]
> Reply To:     MIDRANGE-L@midrange.com
> Sent:         Thursday, September 17, 1998 10:57 AM
> To:   'MIDRANGE-L@midrange.com'
> Subject:      RE: *DATE on DSPF program
> 
> On Wednesday, September 16, 1998 2:10 PM, Leland, David 
> [SMTP:dleland@Harter.com] wrote:
> > I've posted this problem one other time but I was hopeful at the
> time
> > that it would be resolved by IBM.  Well, I've officially received
> the
> > word that it "works as designed".  So, now I'd like to know what you
> > think.
> 
> Ask for the manual pages that would tell you this.
> 
> > Background:
> > 1)  Date data types can be placed on Display Files as of V4R2M0
> > (finally!)
> > 2)  Error checking of date data types on display files is handled by
> the
> > internal error checker (terrific!)
> -snip-
> > What do you think, should the program receive this error?  When you
> > answer the error with a "D", the dump doesn't have the invalid date
> in
> > it, but the original.
> 
> No, the program should not recieve this error.
> 
> > IBM's answer is that the date is in the "buffer" (whatever that is)
> and
> > that the internal error checker checks twice - once when enter was
> > pressed with the invalid date and again when the F3 (CA03) is
> pressed.
> 
> The RNX0112 message is NOT issued by the DDS validity checker; it is 
> issued by the RPG ILE runtime modules.  Don't believe me?  Add a *PSSR
> and 
> a DUMP to your code and watch as this "DDS validation error" gets
> trapped 
> by the runtime code.
> 
> C     *PSSR         BEGSR
> C                   Eval      PgmStat=%Status
> C     'P'           DUMP
> C                   Movel     '*CANCL'      Action            6
> C                   ENDSR     Action
> 
> >what IBM told me is that is DOES work like the "VALUES" DDS
> >keyword.  My question to them was, then why don't I receive a program
> >error when I go through the exact same steps with a field on a screen
> >with VALUES field validation?
> >
> >I couldn't get a straight answer on that one.
> 
> That's because the Date validity checking is NOT consistent with
> VALUES 
> validity checking!
> 
> Keep the problem open until they make it consistent or show you the
> manual 
> pages that describe the current behaviour.  As a work-around, you
> *might* 
> consider adding a *PSSR, a test for status 00112 and a RETURN...
> 
> Buck Calabro
> Commsoft, Albany, NY
> mailto:mcalabro@commsoft.net
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---