In my cobol code when i use 'accept' keyword then the jcl return abendu4038.
What's the reason?
Thank advance
HELP!! abendu4038 ERROR
Previous topic • Next topic • 10 posts
• Page 1 of 1
HELP!! abendu4038 ERROR
by woaiwanchan » Wed Feb 24, 2010 10:14 am
- woaiwanchan
- Posts: 6
- Joined: Wed Feb 24, 2010 10:06 am
- Has thanked: 0 time
- Been thanked: 0 time
Re: HELP!! abendu4038 ERROR
by woaiwanchan » Wed Feb 24, 2010 10:17 am
MY cobol code is
If i don't use the 'accept' keyword the programe run all right.
ACCEPT A.
ACEEPT B.
ADD A TO B.
DISPLAY B
ACEEPT B.
ADD A TO B.
DISPLAY B
If i don't use the 'accept' keyword the programe run all right.
- woaiwanchan
- Posts: 6
- Joined: Wed Feb 24, 2010 10:06 am
- Has thanked: 0 time
- Been thanked: 0 time
Re: HELP!! abendu4038 ERROR
by dick scherrer » Wed Feb 24, 2010 10:35 am
Hello and welcome to the forum,
You have not provided enough for someone to use to help you. . . Also, there is diagnostic information available that you have not shown.
The posted code could not compile, so for someone to help, you need to post the actual code. Do not key codeinto a topic - use copy/pasteto preventtypo's. Then use the Code tag to preserve alignment and improve readability.
How are A and B defined? What is the jcl and input data ?
You have not provided enough for someone to use to help you. . . Also, there is diagnostic information available that you have not shown.
The posted code could not compile, so for someone to help, you need to post the actual code. Do not key codeinto a topic - use copy/pasteto preventtypo's. Then use the Code tag to preserve alignment and improve readability.
How are A and B defined? What is the jcl and input data ?
Hope this helps,
d.sch.
d.sch.
-
dick scherrer - Global moderator
- Posts: 6268
- Joined: Sat Jun 09, 2007 8:58 am
- Has thanked: 3 times
- Been thanked: 93 times
Re: HELP!! abendu4038 ERROR
by woaiwanchan » Wed Feb 24, 2010 10:55 am
This is my cobol code
jcl
IDENTIFICATION DIVISION.
PROGRAM-ID. ADDNUM.
ENVIRONMENT DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(10).
01 B PIC 9(10).
01 C PIC 9(10).
PROCEDURE DIVISION.
ACCEPT A.
ACCEPT B.
* MOVE 3 TO A. (if use this that would be success)
* MOVR 4 TO B.
ADD A,B GIVING C.
DISPLAY A " ADD " B '=' C.
STOP RUN.
PROGRAM-ID. ADDNUM.
ENVIRONMENT DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(10).
01 B PIC 9(10).
01 C PIC 9(10).
PROCEDURE DIVISION.
ACCEPT A.
ACCEPT B.
* MOVE 3 TO A. (if use this that would be success)
* MOVR 4 TO B.
ADD A,B GIVING C.
DISPLAY A " ADD " B '=' C.
STOP RUN.
jcl
//JOBADD JOB ,LEROY,CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=EXT2231
// STEP1 EXEC PGM=ADD,RESION=128M
//STEPLIB DD DSN=EXT2231.MY.COBOL.LOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//
// STEP1 EXEC PGM=ADD,RESION=128M
//STEPLIB DD DSN=EXT2231.MY.COBOL.LOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//
- woaiwanchan
- Posts: 6
- Joined: Wed Feb 24, 2010 10:06 am
- Has thanked: 0 time
- Been thanked: 0 time
Re: HELP!! abendu4038 ERROR
by dick scherrer » Wed Feb 24, 2010 11:16 am
Hello,
There is no "input" for the ACCEPTs. This causes the abend.
When you move literals, the ACCEPT is not executed and there is no abend.
To use your code with the ACCEPTs, you need to include a //SYSIN DD * with the next 2 statements containing a 10-digit number.
Keep in mind that in "real" applications, ACCEPT is nearly never permitted, but is ok for a training exercise.
There is no "input" for the ACCEPTs. This causes the abend.
When you move literals, the ACCEPT is not executed and there is no abend.
To use your code with the ACCEPTs, you need to include a //SYSIN DD * with the next 2 statements containing a 10-digit number.
Keep in mind that in "real" applications, ACCEPT is nearly never permitted, but is ok for a training exercise.
Hope this helps,
d.sch.
d.sch.
-
dick scherrer - Global moderator
- Posts: 6268
- Joined: Sat Jun 09, 2007 8:58 am
- Has thanked: 3 times
- Been thanked: 93 times
Re: HELP!! abendu4038 ERROR
by woaiwanchan » Wed Feb 24, 2010 11:31 am
Very thanks
Where are you from? I come from china .now i'm only a intern and i will try hard like you(dick scherrer ）
Where are you from? I come from china .now i'm only a intern and i will try hard like you(dick scherrer ）
- woaiwanchan
- Posts: 6
- Joined: Wed Feb 24, 2010 10:06 am
- Has thanked: 0 time
- Been thanked: 0 time
Re: HELP!! abendu4038 ERROR
by dick scherrer » Thu Feb 25, 2010 1:08 am
You're welcome 
I'm from the US.
d
I'm from the US.
We all were beginners at one time. . .now i'm only a intern
d
-
dick scherrer - Global moderator
- Posts: 6268
- Joined: Sat Jun 09, 2007 8:58 am
- Has thanked: 3 times
- Been thanked: 93 times
Re: HELP!! abendu4038 ERROR
by Robert Sample » Thu Feb 25, 2010 1:10 am
Cue up the music ...dick scherrer wrote:We all were beginners at one time. . .
d
A long, long time ago in a galaxy far, far away ....
- Robert Sample
- Global moderator
- Posts: 3720
- Joined: Sat Dec 19, 2009 8:32 pm
- Location: Dubuque, Iowa, USA
- Has thanked: 1 time
- Been thanked: 279 times
Re: HELP!! abendu4038 ERROR
by dick scherrer » Thu Feb 25, 2010 1:49 am
When you saw this scroll up the movie screen in 1977 or there about, did it remind you of something from much earlier . . .?A long, long time ago in a galaxy far, far away ....
d
-
dick scherrer - Global moderator
- Posts: 6268
- Joined: Sat Jun 09, 2007 8:58 am
- Has thanked: 3 times
- Been thanked: 93 times
Previous topic • Next topic • 10 posts
• Page 1 of 1
-
- Related topics
- Replies
- Views
- Last post
-
- No Error messages or Error codes, But Sort doesn't work.
by sriram1695 » Sat Dec 10, 2011 4:50 pm - 6 Replies
- 4050 Views
- Last post by NicC
Tue Dec 13, 2011 3:59 pm
- No Error messages or Error codes, But Sort doesn't work.
-
- T.S.U compiling error
by stewchicken » Mon Jun 30, 2008 8:29 pm - 3 Replies
- 2723 Views
- Last post by dick scherrer
Tue Jul 01, 2008 8:21 pm
- T.S.U compiling error
-
- IGYPS2120-S Error
by tlnata1 » Wed Dec 02, 2009 1:40 am - 1 Replies
- 4318 Views
- Last post by dick scherrer
Wed Dec 02, 2009 7:41 am
- IGYPS2120-S Error
-
- 002-04,IGC0005E error
1, 2by jaggz » Fri Sep 02, 2011 3:15 pm - 15 Replies
- 10814 Views
- Last post by steve-myers
Sat Sep 03, 2011 10:18 am
- 002-04,IGC0005E error