Problem with STRING function at the time of compilation

babu_hi · New User Joined: 11 Apr 2006 Posts: 93

I am facing problem with STRING function,

05 LK-ARWENQ-INDATA-FRMSOURCE.
10 LK-DBL-SEND-ABA PIC S9(9) USAGE COMP.
10 LK-DBL-RECV-ABA PIC S9(9) USAGE COMP.
10 LK-DBL-RESEND-IND PIC X(1).
10 LK-DBL-FILE-RECV-IND PIC S9(4) USAGE COMP.
10 LK-DBL-CREATE-DATE PIC X(10).
10 LK-DBL-CREATE-TIME PIC X(8).
10 LK-DBL-BUSINESS-DATE PIC X(10).
10 LK-DBL-CASH-LET-ID PIC X(8).
10 LK-DBL-BUNDLE-ID PIC X(10).
10 LK-DBL-HEADER PIC X(1).

05 WS-DYN-OPEN.
49 WS-OPEN-LEN PIC S9(04) VALUE +4000
49 WS-DYNCURSOR-OPEN PIC X(4000) VALUE SPACES.

STRING LK-DBL-SEND-ABA,
LK-DBL-RECV-ABA,
LK-DBL-RESEND-IND,
LK-DBL-FILE-RECV-IND,
LK-DBL-CREATE-DATE,
LK-DBL-CREATE-TIME,
LK-DBL-BUSINESS-DATE,
LK-DBL-CASH-LET-ID,
LK-DBL-BUNDLE-ID,
LK-DBL-HEADER,
DELIMITED BY SIZE
INTO WS-DYNCURSOR-OPEN
END-STRING.

i am getting this error message at the time of compilation.

IGYPA3101-S "STRING" or "DELIMITED BY" identifier "LK-DBL-SEND-ABA (BINARY INTEGER)" was not a group item, an elementary item with "USAGE DISPLAY", "USAGE DISPLAY1"or "USAGE NATIONAL" nor an alphanumeric or national function. The statement was discarded.

Please let me know what is wrong in the String function?

dbzTHEdinosauer · Posted: Wed Jul 16, 2008 12:15 pm

dick scherrer · Posted: Wed Jul 16, 2008 8:44 pm

Hello,

Terry Heinze · Posted: Wed Jul 16, 2008 9:03 pm

If you want LK-DBL-RECV-ABA and LK-DBL-FILE-RECV-IND to be "readable" in WS-DYNCURSOR-OPEN, move those 2 binary items to fields defined as DISPLAY, then refer to those new fields in your STRING verb.