mainframegurukul.com

here is the code with linkage section declaration - LINKAGE SECTION. 01 WS-SQLOUT. 05 WS-SQLOUT-XX PIC X(32000). 01 ARSRBAN-PARAMETER-LIST. 05 ARSRBAN-HEADER-COUNT COMP PIC S9(8). 05 ARSRBAN-HEADER-LENGTH COMP PIC S9(8). 05 ARSRBAN-SEQUENCE-NUMBER COMP PIC S9(8). 05 ARSRBAN-REQUEST-TYPE PIC X(01). 0...

Sorry I dont get it. It is passed to the program as I have a USING Clause on PROCEDURE DIVISION USING ARSRBAN-PARAMETER-LIST

and ARSRBAN-SQLQUERY-PTR is one of the elementary item under ARSBAN-PARAMETER-LIST group item.

I thought I mentioned about ARSRBAN-SQLQUERY-PTR, it is a pointer to a SQL Query which passed to my program., It is the sending pointer and WS-SQLOUT is the receiving field. But the SET ADDRESS OF WS-SQLOUT to Pointer is not working, It is giving SOC4 abend.

I tried that, this is how my code looks, (New data definition) LINKAGE SECTION. 01 WS-SQLOUT. 05 WS-SQLOUT-XX PIC X(32000). ------------------------- SET ADDRESS OF WS-SQLOUT TO ARSRBAN-SQLQUERY-PTR UNSTRING WS-SQLOUT-XX DELIMITED BY ';' INTO PART1, PART2, PART3 But the program is failing at SET sta...

Thanks William, I have two pointers one is a sending data item and the other is a receiving data item, Sending data item in defined in linkage section where as the receiving data item is defined as Working storage item. and I am not setting address, instead the content itself. below is how my SET st...

I am trying to receive a Pointer in a called program and want to use the content of Pointer and extract a portion of it. Typically my pointer gives a string which looks like below, From this semi-colon delimited string I want to extract the report-id. 1;system;reportid;.... What I did is defined a W...