Search found 6 matches

Go to advanced search

by Sandrit
Mon Oct 05, 2015 1:19 am
Forum: COBOL
Topic: Is there a way to store variable outside the code?
Replies: 4
Views: 6524

Is there a way to store variable outside the code?

COMPUTE K215-SUM = K215-FIRST – K215-SECOND IF K215-SUM < 100 AND K100-ACCOUNT-NO = 110 OR 118 OR 120 OR 125 OR 130 OR 132 OR 136 OR 140 OR 148 OR 150 OR 155 OR 156 OR 160 OR 165 OR 168 OR 171 OR 172 OR 175 OR 176 OR 180 OR 185 MOVE 'Account exist' TO K110-STATE ELSE STRING K215-SUM ' To capital ac...
by Sandrit
Tue Sep 22, 2015 10:34 pm
Forum: COBOL
Topic: String
Replies: 3
Views: 4771

You're using a Micro Focus COBOL. Are you using it for off-line development for the Mainframe? I downloaded the trial version of Micro Focus on my laptop when I started to learn Cobol for a couple of weeks ago. Firstly, when using verbs, like evaluate, which have a scope-delimiters (END-...), use t...
by Sandrit
Tue Sep 22, 2015 2:41 am
Forum: COBOL
Topic: String
Replies: 3
Views: 4771

String

EVALUATE TRUE WHEN B100-DOLLAR > A100-AMOUNT MOVE 'BOLD' TO B100-STATE WHEN B100-DOLLAR = A100-AMOUNT MOVE 'RICH' TO B100-STATE WHEN B100-DOLLAR < 75 AND F100-ACCOUNT(1:1) = 9 MOVE 'POOR' TO B100-STATE STRING B100-DOLLAR 'Dollars left' INTO B100-NOTICE WHEN OTHER CONTINUE. Hi I want to writ...
by Sandrit
Sun Sep 20, 2015 5:42 pm
Forum: COBOL
Topic: EVALUATE
Replies: 2
Views: 3673

I could not understand how to use EVALUATE. But now after having seen your answer and explanations, I see it more clearly.
Your code is clean and easy to read, you make it look so easy.
Thanks so much for your help.
by Sandrit
Sun Sep 20, 2015 5:55 am
Forum: COBOL
Topic: EVALUATE
Replies: 2
Views: 3673

EVALUATE

*READ THE N36-RECORD. MOVE N23-KEY-ID TO N5-KEY1-ID. M0VE 10 TO R2-READ. PERFORM K100-READ. *UPDATE THE N-36-RECORD. IF N2-STOP = 'Y' MOVE 'A' TO N36-STATE GO TO C100 END-IF. IF N38-HOLD = 'Y' MOVE 'B' TO N36-STATE IF N36-AMOUNT > N38-AMOUNT MOVE 'A' TO N36-STATE ELSE IF N38-DONE = 'Y' MOVE 'C' TO ...
by Sandrit
Fri Sep 11, 2015 11:58 pm
Forum: DB2 SQL - DB2 PROGRAMMING
Topic: Error message: ORA-01405: fetched column value is NULL
Replies: 0
Views: 2824

Error message: ORA-01405: fetched column value is NULL

This is my (PL/SQL) call. I want to fetch data from this package Get_db.be_free. EXEC SQL EXECUTE BEGIN : W07-TAB-POST := Get_db.be_free(); END; END-EXEC. The call returns a null value, and I get this error message: ORA-01405: fetched column value is NULL I understand that Indicator or NVL c...

Go to advanced search