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