Question { CTS, 57030 }

DLI Vs BMP

Answer

DL/I-
No data communication services are required
databases are accessed through offline
transactions are batch oriented and saved in file
application programs run through jcl

BMP-
Runs in two ways-
transaction oriented
-can read & write online message queues
-process online files & databases
batch oriented
-can read only massage queues
-can process online databases in batch mode,send messages to the message queue.all are scheduled by jcl

Question { HSBC, 21536 }

hai friends ,i have HSBc exam on this sunday,my platform is
Mainframe,i have 1 year exp,pls any one send me placement
papers of Hsbc and technical questions on mainframe

Answer

If you are a mainframe develeoper you will have three tests
first one will be with one passage having fill in the gaps
second one will be with reasoning
third --cobol
fourth-db2
fifth-cics
sixth-jcl

Question { HSBC, 21536 }

hai friends ,i have HSBc exam on this sunday,my platform is
Mainframe,i have 1 year exp,pls any one send me placement
papers of Hsbc and technical questions on mainframe

Answer

the passage was related to steve hawkins which came on 11th
july,2010.it was very easy.

Question { IBM, 43757 }

What is the difference between Verify & Index in PL/1?

Answer

VERIFY
Indicates the position in string x of the first character thats not in string y. if all r there it returns 0

example: VERIFY(SAM,SAM)returns 0
VERIFY(ABCD,EREE) returns 1

INDEX
Returns the starting position of the string y within x; returns 0 if y is not there in x

example: index(sam,agt) returns 2
index(sam,dog) returns 0

Question { Cap Gemini, 22895 }

How to resolve -818 sql code in DB2?

Answer

its due to time stamp mismatch .Bind the job once again and
link it

Question { IBM, 11258 }

Can we give the GSAM-PCB in between the DB-PCB'S like below?
I/O-PCB

DB-PCB1

GSAM-PCB1

GSAM-PCB2

DB-PCB2

Answer

its possible to give GSAM PCB in between DB-PCBs-
The following is the example-
PRINT NOGEN
PCB TYPE=DB,
DATABASE=XXXDB,
PROCOPT=PA,
KEYLEN=27
SENSEG NAME=XXXDB1,
PARENT=0
PCB TYPE=GSAM
DBDNAME=XXXG,
PROCOPT=L
PCB TYPE=GSAM
DBDNAME=XXXG1,
PROCOPT=L
PCB TYPE=DB
DBDNAME=XXDB2,
PROCOPT=PA,
KEYLEN=17

PSBGEN LANG=PL/I,
PSBNAME=JDHSJDH,
CMPAT=YES,
OLIC=NO
END

END

Question { EDS, 13783 }

I have a PSB which contains 3 PCB, how to write it ?
please..

Answer

PCB TYPE=DB,
DATABASE=XXDB,
PROCOPT=PA,
KEYLEN=27,
POS=S
SENSEG NAME=XXDB1,
PARENT=0
SENSEG NAME=XXDB2,
PARENT=XXDB1
PSBGEN LANG=PL/I,
PSBNAME=XCXCPS
END

Question { TCS, 7625 }

how do u define a file in cobol and jcl ?

Answer

decalre file in cobol- select filename assign to dd1
in jcl - dd1 will be the ddname for your jcl

Question { Infosys, 43119 }

how to convert fb to vb in jcl ?

Answer

//copy exec pgm=idcams
//syprint dd sysout=*
//sysut1 dd dsn=x.y.z.fb,disp=shr
//sysut2 dd dsn=a.b.c.vb,
// disp=(new,catlg,delete),
// dcb=(recfm=vb,lrecl=80,blksize=1600),
// unit=sysda,space=(cyl,(10,10),rlse)
//sysin dd *
repro infile(sysut1)-
outfile(sysut2)
/*
//sysout dd sysout=*

Question { IBM, 7334 }

i have a file which contains duplicates ? my requirement is to
eliminate duplicates and these elminated duplicates should be
moved to another file can any code this using sort ?

Answer

But which duplicate record will be found in SORTXSUM.
Will it have last duplicate record or first duplicate
record.

e,g 123acvvbbnm
123bbbbbbbb
123rkrjrjjr

which record will be found in sortxsum

Question { CSC, 26005 }

how can u view a vsam file using file-aid

Answer

we can view VSAM files through fileaid by selecting option 1

Question { 14862 }

i just need the first and last record from a sequencial
file?how

Answer

USE SKIP(N) To skip number of records
if 10 accounts are there and u want to skip first 7 records
use
//sysin dd*
repro infile(dd1) -
outfile(dd2) -
skip(07) -
count(03)
/*
for 1st and last
//sysin dd*
repro infile(dd1) -
outfile(dd2) -
count(1) -
skip(08) -
count(01)
/*

Question { ADP, 46362 }

WHAT WILL HAPPEN TO A FILE IF DISP=(MOD,DELETE,DELETE)

Answer

dataset will not be created since under normal or abnormal
condition the datset will be deleted

Question { CTS, 13327 }

How do u initialize an array?

Answer

array can be initiazed by INITIALIZE verb or by moving the
values to the elements of a table.
if u initialise an array with INITIALIZE verb your
alphanumeric fields will be stored with space and numeric
fields with '0'.

Question { CTS, 9923 }

How do u sort the table for Search ALL? Is it only using
ASCENDING KEY IS statement in occurs clause? If the data is
input in non ascending order, will the ASC KEY IS
automatically sort the data? or will it throw compile time
error?

Answer

for using SEARCH ALL your table must be defined with KEY IS
along with the OCCURS caluse and INDEXED BY.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 XXX-TABLE.
03 XXX-TEXT PIC X OCCURS 10 TIMES
ASCENDING KEY IS XXX-TEXT
INDEXED BY AXIDX.

In the above case my table is ordered in ascending sequence.
i can order my table in descending sequence also.

01 SRCHXXX PIC X.
01 XXXPOS PIC 99.

PROCEDURE DIVISION.
Begin.
ACCEPT SRCHXXX
SET AXIDX TO 1
SEARCH ALL XXX-TEXT
AT END DISPLAY "NO LETTER FOUND"
WHEN XXX-TEXT(AXIDX) = SRCHXXX
SET XXXPOS TO AXIDX
DISPLAY SRCHXX " IS IN " XXXPOS
END-SEARCH
STOP RUN.

If data input in non ascending order, the ASC KEY will not
automatically sort the data