× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. July 2002

Re: Command works with CL CPP and not with an RPG CPP

Hi Peter,

Try removing your *PSSR, or modifying it so you know whether it's been
invoked or not.

hth,
Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 522-3214 cellular
909 793-4480 fax


----- Original Message -----
From: <Peter_Vidal@pall.com>
Sent: Monday, July 29, 2002 11:21 AM
Subject: Re: Command works with CL CPP and not with an RPG CPP



Sorry Rob!.  Here it is:


¹    C*
¹
C*--------------------------------------------------------------------------
-------------------
¹    C* *PSSR - Error handling routine
¹
C*--------------------------------------------------------------------------
-------------------
¹    C*
     C     *PSSR         BEGSR
¹    C*
¹    C* Error processing an API call -
¹    C*
     C     PSRACT        IFEQ      '*ABEND  '
     C                   Z-ADD     999999999     INC
     C                   MOVE      *ON           *INLR
     C                   ENDIF
¹    C*
     C                   ENDSR
¹    C*

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.