i believe you need to put $CONTROL POST85 in the top of your main program to use EXTERNAL.

thanks,
Eric Kundl
Colorado Springs, CO
http://members.home.net/ekundl1/
  ----- Original Message ----- 
  From: Shahan, Ray 
  To: [log in to unmask] 
  Sent: Tuesday, July 24, 2001 10:54 AM
  Subject: COBOL


  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 *

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