IDENTIFICATION DIVISION.
 PROGRAM-ID. TEST15k.
 AUTHOR.  David Essex.
 INSTALLATION. TinyCOBOL.
 ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
 DATA DIVISION.
 FILE SECTION.

 WORKING-STORAGE SECTION.

 01 WS-PARM-1.
    05 WS-PARM-1W   PIC X(10) value "WS-PARM-1".
    05 FILLER       PIC X VALUE x"00".
 01 WS-PARM-2.
    05 WS-PARM-2W   PIC X(10) value "WS-PARM-2".
    05 FILLER       PIC X VALUE x"00".
 01 WS-PARM-3.
    05 WS-PARM-3W   PIC X(10) value "WS-PARM-3".
    05 FILLER       PIC X VALUE x"00".
 01 WS-PARM-4.
    05 FILLER       PIC X VALUE x"00".
 01 WS-PARM.
    05 WS-PARM-1S.
     10 WS-PARM-1S1 OCCURS 3 TIMES PIC X(15).
*    05 WS-PARM-1S   PIC X(15) value "WS-PARM-1S :".
*    05 WS-PARM-2S   PIC X(15) value "WS-PARM-2S :".
*    05 WS-PARM-3S   PIC X(15) value "WS-PARM-3S :".
    05 FILLER       PIC X VALUE x"00".
 01 WS-NUM          PIC 9(9) COMP-5 VALUE ZERO.
 01 WS-RCODE        PIC Z(4)9 VALUE ZERO.

 01 wsWorkareas.
    05 wsStructWorkarea.
*      10 filler        pointer value x"00".
*      10 filler        pointer value x"00".
*      10 filler        pointer value x"00".
      10 wsStruct-n    PIC 9(4)  COMP-5 VALUE 56.
      10 wsStruct-ch   PIC X(09) VALUE "123456789".
      10 filler        PIC X     value x"00".
      10 wsStruct-num  PIC 9(9)  COMP-5 VALUE 324.

 PROCEDURE DIVISION.

    DISPLAY "--------------------------------------------------". 

    DISPLAY "main (test15k) COB  before call".
    CALL "STEST1902" USING BY REFERENCE WS-PARM-1. 
    DISPLAY "main (test15k) COB  after  call".

    DISPLAY "--------------------------------------------------". 

    MOVE 3 TO WS-NUM.
    DISPLAY "main (test15k) COB  before call".
    CALL "STEST1901"  USING 
         BY VALUE WS-NUM 
         BY REFERENCE WS-PARM-1 
         BY REFERENCE WS-PARM-2 
         BY REFERENCE WS-PARM-3
         BY REFERENCE WS-PARM-4
    END-CALL.
    DISPLAY "main (test15k) COB  after  call".

    DISPLAY "--------------------------------------------------". 

    MOVE "WS-PARM-1S :WS-PARM-3S :WS-PARM-3S :" TO WS-PARM-1S.
    DISPLAY "main (test15k) COB  before call".
    CALL "STEST1903" USING BY REFERENCE WS-PARM. 
    DISPLAY "main (test15k) COB  after  call".

    DISPLAY "--------------------------------------------------". 

    DISPLAY "main (test15k) COB  before call".
    CALL "STEST1904" USING BY REFERENCE wsStructWorkarea. 
    DISPLAY "main (test15k) COB  after  call".
    DISPLAY "main (test15k) COB  wsStruct-n=" wsStruct-n.

    DISPLAY "--------------------------------------------------". 

    MOVE RETURN-CODE TO WS-RCODE.
    DISPLAY "WS-RCODE=" WS-RCODE.
    STOP RUN.