garry


{ City } new delhi
< Country > india
* Profession * se
User No # 51490
Total Questions Posted # 1
Total Answers Posted # 14

Total Answers Posted for My Questions # 4
Total Views for My Questions # 8138

Users Marked my Answers as Correct # 22
Users Marked my Answers as Wrong # 9
Questions / { garry }
Questions Answers Category Views Company eMail

In COBOL CALL-CALLING,if a program A is calling 3 sub- programs, dynamically, then it is said sub-programs will always will always in Initial Mode. My question is : Do we need to code CANCEL or (IS INITIAL) for dynamically called sub-programs or it is the property of Dynamically called pgms so every time sub-pgms are called they will be in initial mode. ***This question is only Dynamic call****, Please reply. Thank you in advance.

Wipro,

4 COBOL 8138



Answers / { garry }

Question { T systems, 8311 }

What will happen if we generate GDG +2 version instead of
+1 version?


Answer

@Varun

Excellent answer: 100% correct.

Is This Answer Correct ?    1 Yes 0 No

Question { 13717 }

Is it possible to take a PDS and write it to a GDG? If so,
can you provide an example? Thanx


Answer

@Madhu.
Not it not.

He is trying to write a PDS member to a GDG.

But your requirement/question is just opposite.

Is This Answer Correct ?    0 Yes 0 No


Question { 13717 }

Is it possible to take a PDS and write it to a GDG? If so,
can you provide an example? Thanx


Answer

Let me check once again and ignore previous reply .

Is This Answer Correct ?    0 Yes 0 No

Question { iGate, 24482 }

Hi Guyz,
My requirement is to empty out a PS file but not to delete.
How would I do that. Is there any Utility. If any other
way, plz answer. Thanks.


Answer

Try This :

//JOBCARD
//STEP1 EXEC PGM=IEFRBR14
//DD1 DD DSN=FILE1,DISP=(MOD,DELETE,DELETE)
May need to code DCB and SPACE parameter.
//DD2 DD DSN=FILE1,DISP=(NEW,CATLG,CATLG)
MUST need to code DCB and SPACE parameter.
//

Ply respond with YES or NO.

Thanks

Garry

Is This Answer Correct ?    0 Yes 3 No

Question { DELL, 11972 }

what is the difference between Normal vaiable and comp
variable.


Answer

I am not sure about previous explanation, however before that all explanations are valid.

One thing should be clear in our mind that COMP usage is good but it can not be displayed simply, it will store in binary format, so we need to convert it in to ZD, if displaying in SYSOUT or writing to a file.

Please let me know if I am wrong.
Thanks

Garry

Is This Answer Correct ?    0 Yes 1 No

Question { Bank Of America, 11532 }

I have 2 steps in my exec statement , in first step I am
creating a gdg, and the output of this step is going into
second step as a input, and this second step is abended ,
now how could i approach in this case.


Answer

Pls code GDG(0) and the data set at step 2 is created, you need to take care of this as well (may or may not created).

I am assuming created, then delete is first:
Couple of options are:

1. Manual Delete and JCL will create it again as //STEP2 ......... DD DSN=.....DISP=(new,catlg,catlg{if delete was coded hear you may ignore my steps})

2. Use IEBGBER at step0 to delete previously created d/st by DISP=(MOD,delete,delete).

Pls check, if my response is not clear let me know.

Garry

Is This Answer Correct ?    0 Yes 0 No

Question { 20262 }

Hi,
Say I have 10 flat files and I want to copy all these 10
flat files to a GDG versions flat files (I have GDG base:
FDWS01.TEST.RESTORE) in one shot. Can we do that in one shot
using a JCL. May be by using IEBGENER. It's a bit urgent. So
anyone's fast rely would be appreciated.. Thanks in advance..

10 flat files
-----------------------------------
FDWS01.SUB.RESTORE1
FDWS01.SUB.RESTORE2
FDWS01.SUB.RESTORE3
;
;
FDWS01.SUB.RESTORE10

TO
GDG versions
-----------------------
FDWS01.TEST.RESTORE.G0001V00
FDWS01.TEST.RESTORE.G0002V00
FDWS01.TEST.RESTORE.G0003V00
;
;
FDWS01.TEST.RESTORE.G0010V00


Answer

@Balmukund : Ultimate reply:

Same can be done by following method:

Sort all the 10 files on a ASC KEY.

Merge them and copy them to any file (Or GDG).

Let me know if you ned JCL for this. I hope u can do it and post the JCL for others.


Thnx, pls let us know the result

Garry

Is This Answer Correct ?    0 Yes 0 No

Question { CTS, 7917 }

If i have a variable
A pic 9(2) value 10
Compute A = a - 100

what will be the value of A and will there be any error
becoz of the Negative value


Answer

From above you will get answer as :

90 (without any sign'-').

If you Code S9(02).
Result : 9} (-90)
To get -90 properly, use SIGN is Leading or trailing.

Any difference, please write at : thespider390@hotmail.com

Is This Answer Correct ?    1 Yes 0 No

Question { 9940 }

in cobol perform stmt whether it first checks the condition
or not


Answer

@Deepa,

You are correct!

Is This Answer Correct ?    0 Yes 0 No

Question { Patni, 10701 }

01 a pic 9(9v99)

01 b pic 9(9.99)

wht will be the stored vales in both cases


Answer

IL-logical question.

Is This Answer Correct ?    0 Yes 0 No

Question { EDS, 5337 }

I have a table with 3 dimensions like this :
01 ws-table
04 ws-page occurs 3
08 ws-column occurs 2.
12 ws-record occurs 20 pic x(40).
How to code with PERFORM varying with 3 dimension...I
forgot..


Answer

@Lu

Excellent Posts, I Really appreciate your time for giving wonderful and sure-shot results.

Pls keep it up.

gmt360@gmail.com

Is This Answer Correct ?    0 Yes 1 No

Question { Amdocs, 9690 }

I HAVE FOLLOWING DECLARATION.
02. A PIC X(10) VALUE 'XXXXXXXXXX'.
02. B REDEFINES A.
05. C PIC X(3).
05. D PIC X(3).
05. E PIC 9(3).
IN MY PROG, I HAVE
MOVE 1 TO E.
DISPLAY A.
WHAT WILL BE DISPLAYED AS A RESULT OF THIS?
PLEASE EXPLAIN THE ANSWER. THANKS.


Answer

Correct answer is : (As already explained and corrected by Duboisa )

C = xxx
D = xxx
e = 001
So A = xxxxxx001x

100% assured!!

Any difference can be routed or discussed at : thespider390@hotmail.com

Is This Answer Correct ?    4 Yes 0 No

Question { IBM, 7959 }

Are all (i), (ii), (iii), (iv) of the below are VALID to
reference a temporary dataset ?

STEP2
DD1 DD DSN = &&TEMP

STEP3
DD2 DD (i) DSN = TEMP
(ii) DSN = *.TEMP
(iii) DSN = *.STEP1.DD1
(iv) DSN = *.STEP1.DD1.ONE


Answer

May be the option is not here in 4:

DSN=*.step1.temp

Please correct me

Is This Answer Correct ?    0 Yes 3 No

Question { JPMorgan Chase, 12319 }

In an array processing what is the thing that can be done
by using subscripts but not by using index


Answer

Arithmetic Operations .

Is This Answer Correct ?    16 Yes 1 No