Question { 6119 }

i have n records in one file and in this file there is some
fields and i want to count that how many sharma in my file
so plz give the coding that how we read sharma ?

Answer

HI...........
PLZZZZZZ USE DIS LOGIC.


PROCEDURE DIVISION.
OPEN INPUT FILE1.
PERFORM READ-PARA UNTIL EOF = 'D'.
DISPLAY COUNT.
CLOSE FILE1.
STOP RUN.
READ-PARA.
READ FILE1
AT END
MOVE 'D' TO EOF
NOT AT END
PERFORM INSPECT-PARA
END-READ.
INSPECT-PARA.
INSPECT NAME TALLYING COUNT FOR ALL 'SHARMA'.

COUNT IS A WORKING-STORAGE VARIABLE WHICH WILL COUNT THE
OCCURENCE OF 'SHARMA'.

THANKS
REGARDS
RAVINDRA BISHT

Question { Fidelity, 12474 }

I have a table(product),It contain fields(productname,cost).
I want to retrieve the product name ,which cost is second
maximum in the table?

Answer

Hi............

SELECT PRODUCTNAME FROM PRODUCT WHERE COST = (SELECT MAX(COST)
FROM PRODUCT WHERE COST > (SELECT MAX(COST) FROM PRODUCT));

THANKS
REGARDS
RAVINDRA BISHT

Question { Mphasis, 9991 }

can we use 77 level no for Redefines?if we use give an
example?

Answer

Hi..........

Yes, We can use 77 level in Redefines.
But make sure the redefining variable & Redefined variable must be defined with level 77.

77 A pic x(5) value 'delhi'.
77 B redefines A pic 9(5).


Thanks.

Question { TetraSoft, 6707 }

i have job card like this
//job *****
//step1 exec pgm=iebgener
//sysut1 dd dsn=main.sss,disp=shr
// dd dsn=main1.sss,disp=shr
// dd dsn=main2.sss,disp=shr
//sysut2 dd dsn=out1.mmm ,disp=(new,catlg,delete)
dcb=( )

// sysin dd *
like this what i have to do to skip dsn=main1.sss
please giveme answer asap

Answer

//* DD DSN=MAIN1.SSS,DISP=SHR

* WILL TREAT AS A COMMENT.
AND THE FOLLOWING DATA SET WILL BE SKIPED.


THANKS

Question { TCS, 10261 }

If a job has 3 steps and step 1 and step 3 should get
executed and step 2 should not get executed irrespective of
the return code from the previous steps. How can it be done?

Answer

Hi..........
We can use condition parameter for step2.
//JOBCARD
//STEP1 EXEC=PGM1
//STEP2 EXEC=PGM2,COND=(0,LE,STEP1)
//STEP3 EXEC=PGM3
//

THANKS