Program exceptions like DDE can be handled using *PSSR routine. *PSSR is an
exception error handling subroutine.
Specify *PSSR in Factor 1 of a BEGSR operation and write the code to handle
the error in this subroutine. Control goes
to this routine when you have an exception.
Use program status data structure to get program exception information in
your program. Pos 11 to 15 (*STATUS) can be used to trap DDE, this will
have a value 00907 (zoned decimal field)
Refer RPG/400 Reference for more information.





truax @ usaor.net
09/09/97 12:21 PM


Please respond to MIDRANGE-L@midrange.com

To:   midrange-L @ midrange.com
cc:    (bcc: Shylesh Nadig/users/IndyMac)
Subject:  Decimal Data Error




Hi All,
I am from the S36 world and am now working with the AS400.  One very
frustrating thing is the DDE's that I get from time to time.  Please
look at the following:
I have a program that gets called from other programs-
C*****************************************************************
C* MAINLINE CALCULATION AREA.                                    *
C*****************************************************************
C           *ENTRY    PLIST
C                     PARM           X$YYYY  40      <--4 pos/0dec
C                     PARM           X$MM    20
C                     PARM           X$DD    20
C                     PARM           @D1RT   1
C                     PARM           @D1TP   1
C                     PARM           @D1N#   30
C                     PARM           Y$YYYY  40
C                     PARM           Y$MM    20
C                     PARM           Y$DD    20
C                     PARM           @D1NM   3
C*
I am getting a DDE on this line-
C* PLACE THE YYYY INTO HDYTST.
C                     MOVELX$YYYY    HDYTST  80    <--DDE happening
here!
Any help from you bright folks would be appreciated, also any tips on
avoiding DDE's would be appreciated.

--
?????????????
?-Tim Truax-?
?????????????
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
uucp




+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].