Interested to Buy Any Domain ? << Click Here >> for more details...
how to code the following map using occours clause?
all the three fields have different length.
ename eno addr
1) _______ _________ __________
2) _______ _________ __________
3) _______ _________ __________
4) _______ _________ __________
5) _______ _________ __________
6) _______ _________ __________
- 1 Answers
- 12872 Views
- L&T, TCS, Wipro, I also Faced
- E-Mail Answers
Answer / sandeep
code BMS macro with all the fields I mean with all the
occurances. for example
give the first occurence field name as ename1, eno1,addrr1
and second line field as
ename2, eno2,addrr2 and respectively for all the six
occurences. Once you generate a map the symbolic map
consists of all the fields it looks like below (coded for
output field i.e Field+O only)
03 filler picture x(2)
03 ename1a pic x
03 ename1o pic x(10)
03 filler pic x(2)
03 eno1a pic x
03 enoO pic x(10)
03 filler pic x(2)
03 addr1a pic x
03 addrO pic x(10)
03 filler picture x(2)
03 ename2a pic x
03 ename2o pic x(10)
.
.
etc
You need to modify above symbolic map as shown below
02 employee OCCURS 6.
03 enamea pic x
03 enameo pic x(10)
03 filler pic x(2)
03 enoa pic x
03 enoO pic x(10)
03 filler pic x(2)
03 addra pic x
03 addrO pic x(10)
You can also give Occurs clause in BMS macro
Ex:
TELNO DFHMDF POS=(7,1),LENGTH=9,ATTRB=NORM,OCCURS=40
The description of these fields in the symbolic map looks
like this in COBOL:
02 TELNOG OCCURS 40.
03 FILLER PICTURE X(2).
03 TELNOA PICTURE X.
03 TELNOO PIC X(9).
| Is This Answer Correct ? | 13 Yes | 4 No |
We can allocate memory dynamically by using GET MAIN command my question is at what scenario we can't release this memory and reuse this same memory??
Explain the various ways data can be passed between CICS programs.
what are the two ways of breaking a cpu bound process to allow other task to gain access to cpu?
Can you define temporary storage?
Differentiate between PCT and FCT.
first when i try to write a record into the file, wresp=duprec, but follwed with that if i try to read the record it say record not fnd.. actually the record is not written in the file, but it says that duprec when trying to write... why this happens, pls help me asap..!
What are the some important fields in the eib block?
Define the term mro (multi region operation)?
What RCT Entries will you make for a CICS DB2 program??
Explain how would you resolve an asra abend?
How to get the cursor position when we receive a map?
What is the use of the DELIGHT in Mainframes and whats is use of scope?
COBOL 
