× 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. RPG400-L
  3. August 2021

RE: [EXTERNAL] Sharing access paths

The code is too long but here is the same code as used in the failing
program.

FOEPRTJ01IF E K DISK
C KY KLIST
C KFLD PSOP
C KFLD MTOP
C *LIKE DEFN PRPSOP PSOP
C *LIKE DEFN PRMTOP MTOP
C*
C Z-ADD215 PSOP
C Z-ADD119 MTOP
C KY CHAINOEPRTJ01 01
C *IN01 IFEQ *OFF
C Z-ADD1 Z 30
C ELSE
C Z-ADD2 Z
C ENDIF
C MOVE *ON *INLR

A***************************************************************
A R OEPRTF01 JFILE(OEPRTP OEBDSP)
A J JOIN(OEPRTP OEBDSP)
A JFLD(PRMTOP PRMTOP)
A PRPSOP
A PRMTOP JREF(1)
A PRCOMP
A PRHNPT
A* dropped the additional fields.

A K PRPSOP
A K PRMTOP
A S PRTRNL COMP(NE 'I')
A PRSTS COMP(EQ ' ')

Darryl Freinkel
A4G
Telephone: 770.321.8562 Mobile: 678.355.8562


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.