Question { Oracle, 20084 }

Can the OCCURS clause be at the 01 level?

Answer

No, you can not code OCCUR clause in level no. 01
because it is used to repeat the fields with same format not
the records...

correct me if i am wrong...

Question { HCL, 17409 }

how to submit a jcl by cobol program.
clear me with an example.

Answer

Submission of JCL Job from COBOL program
JOB:

//Jobcard
//STEP1 EXEC PGM=MAINPROG
//DD1 DD DSN=RAM.TEST,DISP=(SHR)
//JCLDD DD SYSOUT=(*,INTRDR)

COBOL PROGRAM:
(MAINPROG)

IDENTIFICATION DIVISION.
PROGRAM-ID. RAM.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO JCLDD
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 JCL-REC PIC X(20).
PROCEDURE DIVISION.
OPEN OUTPUT INFILE.
MOVE "//TYAWJKG JOB (A123, RAM)' TO JCL-REC.
MOVE "//STEP1 EXEC PGM=IEFBR14' TO JCL-REC.
MOVE "//DATA1 DD DSN=A.B.C,DISP=OLD' TO JCL-REC.
CLOSE INFILE.

correct me i am wrong......

Question { Cap Gemini, 38932 }

how to create a new pds with the structure of an existing
pds?

Answer

This can be achieved with the help of LIKE parameter
//jobcard
//STEP1 EXEC PGEM=IEFBR14
//DD1 DD DSN=PROJ.TEST.TWO
// DISP=(NEW,CATLG,DELETE)
// LIKE=PROJ.TEST.ONE
//

pls let me know if the answer
is correct or not....

Question { EDS, 17605 }

can we give instream data in procedure

Answer

No we cannot code instream data to procedure.
to overcome this
- code SYSIN DD DUMMY in the proc
- then override this from the JCL with instream data

Question { Cap Gemini, 16470 }

what is difference between repro and export? if any one know
this plz tell me

Answer

REPRO EXPORT
- used vsam and non vsam - used for only vsam data sets
data sets - backed up logical records
- backed up logical along with attributes
records only
- If vsam data sets has - IMPORT command is defined
to be restore, the to restore the backed up
data set has to be data
redefined and reloaded
from backed up copy

Question { Temenos, 8050 }

can alternate index use in ESDS since it does not contain
primary index? if yes can you explain?

Answer

Alternate index is possible in ESDS but only in
On-line mode using RBA (Relative Byte Address)
- Accessing of records through RBA is faster than
accessing through index field
- It can be dangerous, since RBA can be altered
through control interval/control area split

Question { 13126 }

what is the use of reuse in vsam?

Answer

A cluster can be used again and again
as a reusable cluster.
When u open the data set in output mode
all the existing records are logically deleted
- A cluster can't be reusable if
-- KEYRANGE parameter is coded
-- An Alternet index is built for it

Question { IBM, 7212 }

If I defined space as TRK(10,10) for the one file and lrecl
= 4K then tell me how many record will vsam file will
contain. will it 1,2,3,4,5 or how many,

Answer

TRK(10,10) means 10 tracks for primary and 10 tracks for
secondary space
for flat file 15 extents are available (1 for primary and 15
for secondary).
1 TRK = 56k
so, it will be like
[(10*1)+(10*15)]*56/4 = [10+150]*14 = [160]*14 = 2240

so Answer is we can place up to 2240 records in the flat file

correct me if i am wrong...
thanks

Question { CSC, 22581 }

How can we see data in TEMPARARY DATA SET in JCL ?

Answer

- No, you can not see data in temporary data set.
- Because temporary data sets are created during jobs
execution and terminated after completion of the job.
- It is used to release the space utilized by the data set
after termination of the job.

correct me if i am wrong
thanks

Question { Cognizant, 7747 }

A job has 90 steps i want to execute only step7 and step15

Answer

Ans1) you can use IEBEDIT Utility like
//step1 exec pgm=iebedit
//sysprint dd sysout=*
//sysut1 dd dsn=proj.test.file,disp=shr
//sysut2 dd sysout=(*,intrdr)
//sysin dd *
edit type=include
stepname=(step7,step15)
/*

correct me if i am wrong
thanks

Question { HP, 5893 }

Difference b/w Error and abend in COBOL

Answer

ERROR: occurs before the execution of job
ABEND: occurs during the execution of program in a step

Question { 10305 }

How To Separate The Numerics From An Alphanumric Data Item
Which Contains Both Alphabates And Numerics ?

Answer

01 A pic x(10) value 'a1b2c34d5e'.
01 B pic x(5).
(You want to move only numeric data from a to b)

PERFORM PARA1 VARYING I FROM 1 BY 1 UNTIL I>10
PARA1.
IF A(I:1) IS NUMERIC
MOVE A(I:1) TO B(I:1)
END-IF
END-PERFORM.
DISPLAY "NUMERIC DATA IS:" B(I).

Question { 15336 }

We have two PS files,want to compare those files and put
the duplicate records in one file.
Input file 1 contains(1,2,4,9,10)
Input file 2 contains (1,4,5,11,12,14,16).

Help me with jcl.

Answer

//jobcard
//step1 exec pgm=iebgener
//sysprint dd sysout=*
//sysut1 dd dsn=proj.test.file1,disp=shr
// dd dsn=proj.test.file2,disp=shr
//sysut2 dd dsn=proj.output,disp=shr
//sysin dd dummy
//if (step1.rc eq 0) then
//step2 exec pgm=sort
//sysprint dd sysout=*
//sortin dd dsn=proj.output,disp=shr
//sortout dd dsn=proj.sortout,disp=shr
//sortxsum dd dsn=proj.duplicate,disp=shr
//sysin dd *
sort fields=(1,5,ch,a)
sum fields=none,xsum
/*

Now, all these records are copied to proj.output
and out of those records the duplicate records are copied to
proj.duplicate

Correct me if i am wrong