Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Problem with STRING function at the time of compilation

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
babu_hi

New User


Joined: 11 Apr 2006
Posts: 93

PostPosted: Wed Jul 16, 2008 11:42 am    Post subject: Problem with STRING function at the time of compilation
Reply with quote

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?
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6970
Location: porcelain throne

PostPosted: Wed Jul 16, 2008 12:15 pm    Post subject:
Reply with quote

Quote:

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



"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.


You can not have a Binary-Integer (LK-DBL-SEND-ABA) as a sending field in a string instruction.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Jul 16, 2008 8:44 pm    Post subject:
Reply with quote

Hello,

Quote:
You can not have a Binary-Integer (LK-DBL-SEND-ABA) as a sending field in a string instruction.
Hint: You might redefine binary fields as PIC X fields and use the redefinitions in the STRING. . .
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Wed Jul 16, 2008 9:03 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Having a problem FTP'ng to the MF pahiker All Other Mainframe Topics 2 Fri Nov 10, 2017 8:20 pm
No new posts Comparision with current time arunsoods DFSORT/ICETOOL 5 Thu Nov 09, 2017 10:37 am
This topic is locked: you cannot edit posts or make replies. Comparing current time with the time ... arunsoods SYNCSORT 1 Mon Oct 30, 2017 4:07 pm
This topic is locked: you cannot edit posts or make replies. Incrementing current time field by 30... arunsoods DFSORT/ICETOOL 11 Thu Oct 26, 2017 3:22 pm
No new posts line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 5 Sat Oct 14, 2017 2:29 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us