Hi Jose, It sounds like EXTERNAL data would probably work for you. If you define a data area in all of your programs and use the EXTERNAL keyword then that data area does not belong to any one program but instead it belongs to the run-unit and is shared by all programs within that run-unit that also have it defined. prog1: 01 my-ext-data external. 05 field-1 pic x(10). 05 field-2 pic x(20). move "TEST" to field-1 call "prog2" display field-1 * will display PROG2 prog2: 01 my-ext-data external. 05 field-1 pic x(10). 05 field-2 pic x(20). display field-1 * will display TEST move "PROG2" to field-1 goback.
↧
