MVSFORUMS.com

basky_g · Beginner Joined: 04 Jul 2004 Posts: 5 Topics: 2

I encountered below puzzle, can anyone help solving it
(ignore the syntax Very Happy

)
[code:1:3ea12a2d8c]
IDENTIFICATION DIVISION.
PROGRAM-ID. ABC.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(2) VALUE 0.

PROCEDURE DIVISION.

MAIN-PARA.

Compute A = A + 1.
DISPLAY A

Nic Clouston · Posted: Fri Jan 21, 2011 12:34 am Post subject:

I believe that B will be the output. If you want A then you have to read the manual and I believe INITIALIZE is the keyword you are looking for. You may have to read the COBOL Users Guide as well.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

misi01 · Posted: Fri Jan 21, 2011 5:37 am Post subject: That depends

Wouldn't the result be dependent on how the program was being run ? Normally (?), when a program is started via JCL, all working-storage is initialized, so A has the value 0 in your example.

If you submit JCL that runs the program, let it run to completion and repeat this 4 times, I would expect answer 1 every time.
On the other hand, if you have a program that, in turn, calls the program above 4 times via a loop, then I would expect answer 2

Anuj Dhawan · Posted: Fri Jan 21, 2011 5:45 am Post subject:

I'm in agreement with misi01.
_________________
Regards,
Anuj

dbzTHEdinosauer · Posted: Fri Jan 21, 2011 7:50 am Post subject:

unless of course, the invoking program issues a CANCEL before subsequent CALLs in which case A would be the result.
_________________
Dick Brenholtz
American living in Varel, Germany

RonB · Posted: Fri Jan 21, 2011 8:29 am Post subject:

kolusu · Posted: Fri Jan 21, 2011 11:17 am Post subject:

basky_g,

Please search before posting. Check this link

http://www.mvsforums.com/helpboards/viewtopic.php?t=3788&highlight=initial

Kolusu

basky_g · Beginner Joined: 04 Jul 2004 Posts: 5 Topics: 2

Thanks Kolusu and Others. Actually I tried searching the forum but could not find it bonk

. Sorry for that, now I got it. Thanks again.