Hi all,

I'm trying to (in a hurry), use the EXTERNAL clause on a WS 01 level for
passing some subprog info, but while it appears to work in as much as the
run unit executes, I don't seem to be getting any data in the sub from the
main.

I've included a snippet of both source codes, so can you please give a look
and see what/if I'm missing something...thanks all.

MAIN:

 WORKING-STORAGE SECTION.
  01 ABC                   EXTERNAL   PIC X(10).
  01  XREF-ARRAY                      IS EXTERNAL.
      05  XREF-TABLE-SIZE-SW          PIC S9(04) COMP.
          88  XREF-TABLE-SIZE                         VALUE 10.
      05  XREF-TABLE                  OCCURS 10 TIMES
                                      INDEXED BY XREF-IDX.
          10  XREF-ENTRY              PIC S9(04) COMP.

  01  FIELD-1                         PIC 9(1) VALUE 1.
  01  FIELD-2                         PIC 9(1) VALUE 8.

 /
  PROCEDURE DIVISION.

  0000-START.

      MOVE "ABCDEFGHIJ"           TO ABC.
      SET XREF-TABLE-SIZE         TO TRUE.
      PERFORM VARYING XREF-IDX FROM 1 BY 1
      ;       UNTIL   (XREF-IDX > XREF-TABLE-SIZE-SW)
      ;   SET XREF-ENTRY(XREF-IDX) TO XREF-IDX
      END-PERFORM.
        CALL "IQ2" USING FIELD-1.

SUB:

WORKING-STORAGE SECTION.

01  ABC                    EXTERNAL PIC X(10).
01  XREF-ARRAY                      IS EXTERNAL.
    05  XREF-TABLE-SIZE-SW          PIC S9(04) COMP.
        88  XREF-TABLE-SIZE                         VALUE 10.
    05  XREF-TABLE                  OCCURS 10 TIMES
                                    INDEXED BY XREF-IDX.
        10  XREF-ENTRY              PIC S9(04) COMP.

    01  FIELD-2                     PIC 9(01)  VALUE 1.

LINKAGE SECTION.
    01  FIELD-1                     PIC 9(01).

 PROCEDURE DIVISION USING FIELD-1.

 0000-START.

     DISPLAY " "
     DISPLAY "BEGIN DISPLAY OF EXTERNAL ARRAY"
     DISPLAY "'" ABC "'"
     DISPLAY "'" XREF-ARRAY "'".

ANSWER:

BEGIN DISPLAY OF EXTERNAL ARRAY
''
''

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *