Author: lind sh
Subject: How to move a long alphanumeric data items to another.
Posted: Mon Dec 05, 2016 7:51 pm (GMT 5.5)
Dear friends
I want to move an alphanumeric field with the length of 8000 to another one.
but my CICS take abend ASRA. When I define my variable with the length of 5000 , there is no problem.
My code definition if following:
Content of WS-DIS-UOWT-TABLE was filled by another section and now I want to move it to the R-WS-DIS-UOWT-TABLE of commearea.
Is there any thing false here?
Subject: How to move a long alphanumeric data items to another.
Posted: Mon Dec 05, 2016 7:51 pm (GMT 5.5)
Dear friends
I want to move an alphanumeric field with the length of 8000 to another one.
but my CICS take abend ASRA. When I define my variable with the length of 5000 , there is no problem.
My code definition if following:
| Code: |
WORKING-STORAGE SECTION. 01 WS-DIS-UOWT-TABLE. 05 WS-DIS-UOWT-ROWS OCCURS 100 TIMES. 10 WS-DIS-UOWT-REC-COL PIC X(80). LINKAGE SECTION. 01 DFHCOMMAREA. 03 R-WS-DIS-UOWT-TABLE PIC X(8000). PROCEDURE DIVISION. *#------------------------------------- A0000-MAIN-SECT-0000 SECTION. MOVE WS-DIS-UOWT-TABLE TO R-WS-DIS-UOWT-TABLE. EXEC CICS RETURN END-EXEC. A0000-MAIN-SECT-0000-EXIT. EXIT. |
Content of WS-DIS-UOWT-TABLE was filled by another section and now I want to move it to the R-WS-DIS-UOWT-TABLE of commearea.
Is there any thing false here?